Ver Mensaje Individual
  #2  
Viejo 13/09/07, 19:20:05
ibecerra
 
Mensajes: n/a
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.
Responder Con Cita