Pedido

[danieldl]

Est6imado Foro, alguien tiene algun ejemplo sencillo y bien documentado sobre un ALV desde ya gracias.

[Jotabin]

REPORT ZJBIN.

* Include ALV
TYPE-POOLS: slis.

* Catálogo de campos ALV
DATA t_fieldcat TYPE slis_t_fieldcat_alv.

* Tabla interna
DATA: BEGIN OF t_t001w OCCURS 0.
INCLUDE STRUCTURE t001w.
DATA: END OF t_t001w.

* Variable de nombre del reporte
DATA: l_repid LIKE sy-repid.


START-OF-SELECTION.

* Recuperación de datos
SELECT *
FROM t001w
INTO TABLE t_t001w.


END-OF-SELECTION.

l_repid = sy-repid.

* Se carga el catálogo de campos
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = l_repid
i_internal_tabname = 'T_T001W'
i_inclname = l_repid
CHANGING
ct_fieldcat = t_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.


* Se realiza la salida por pantalla
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = t_fieldcat
TABLES
t_outtab = t_t001w
EXCEPTIONS
program_error = 1
OTHERS = 2.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.Ahí tenés un ejemplo del ALV más sencillo posible... ojalá te sirva.
Está algo documentado, pero si no te resulta suficientemente claro o si era otra cosa lo que buscabas, preguntá nomás.

[danieldl]

Gracias por el ejemplo pero cambio la tabla (T005S) pero no me saca los encabezados reales.... o sea los encabezados de las columnas de la tabla seleccionada, por que?