hola lo que deseas es tener en una pantalla donde 2 alv
bueno eso lo puedes hacer con la funcion
si no entiendes y deseas el programa completo dame tu correo y te lo paso
*------------------------------------------------*
* Inicializamos el Bloque de la Lista ALV *
*------------------------------------------------*
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
I_callback_program = w_repid
I_CALLBACK_PF_STATUS_SET = 'SET_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'.
w_print-no_print_listinfos = 'X'.
PERFORM fieldcat_init USING i_fieldcat_alv[].
*------------------------------------------------*
* Imprimimos los Bloques del ALV *
*------------------------------------------------*
w_print-reserve_lines = 1.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
IS_PRINT = w_print.
Donde
Fielcat_init
* Monto IVA
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'IT_DATA'.
ls_fieldcat-fieldname = 'MONTOIVA'.
ls_fieldcat-seltext_m = text-h20.
ls_fieldcat-outputlen = 20.
ls_fieldcat-just = 'R'.
ls_fieldcat-do_sum = 'X'.
ls_fieldcat-datatype = 'CURR'.
APPEND ls_fieldcat TO rt_fieldcat.
* Retención IVA
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'IT_DATA'.
ls_fieldcat-fieldname = 'RETENIVA'.
ls_fieldcat-seltext_m = text-h21.
ls_fieldcat-outputlen = 20.
ls_fieldcat-just = 'R'.
ls_fieldcat-do_sum = 'X'.
ls_fieldcat-datatype = 'CURR'.
APPEND ls_fieldcat TO rt_fieldcat.
* IVA Percibido
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'IT_DATA'.
ls_fieldcat-fieldname = 'IVAPER'.
ls_fieldcat-seltext_m = text-h22.
ls_fieldcat-outputlen = 20.
ls_fieldcat-just = 'R'.
ls_fieldcat-do_sum = 'X'.
ls_fieldcat-datatype = 'CURR'.
APPEND ls_fieldcat TO rt_fieldcat.
* PERFORM eventtab_build USING gt_events[].
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = w_layout
it_fieldcat = rt_fieldcat[]
it_events = i_events[]
i_tabname = 'IT_DATA'
TABLES
t_outtab = IT_DATA
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'IT_RESUMEN'.
ls_fieldcat-fieldname = 'CASILLERO2'.
ls_fieldcat-seltext_s = text-T04.
ls_fieldcat-outputlen = 09.
ls_fieldcat-just = 'C'.
APPEND ls_fieldcat TO RE_FIELDCAT.
* Subtotal
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'IT_RESUMEN'.
ls_fieldcat-fieldname = 'SUBTOTAL2'.
ls_fieldcat-seltext_s = text-T05.
ls_fieldcat-outputlen = 20.
ls_fieldcat-just = 'R'.
ls_fieldcat-datatype = 'CURR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO RE_FIELDCAT.
* Debito Fiscal (IVA)debitofis
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'IT_RESUMEN'.
ls_fieldcat-fieldname = 'DEBITOFIS'.
ls_fieldcat-seltext_s = text-T06.
ls_fieldcat-outputlen = 20.
ls_fieldcat-just = 'R'.
ls_fieldcat-datatype = 'CURR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO RE_FIELDCAT.
PERFORM build_eventtab1 USING X_EVENTS[].
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = w_layout
it_fieldcat = RE_FIELDCAT[]
it_events = X_EVENTS[]
i_tabname = 'IT_RESUMEN'
tables
t_outtab = it_resumen
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3.
|