8/19/2019 ALV Con Cabecera Larga

1/2

REPORT ZTEST_ALV_CHECK .

TYPE-POOLS: SLIS.DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,L_LAYOUT type slis_layout_alv,x_events type slis_alv_event,it_events type SLIS_T_EVENT.

DATA: BEGIN OF ITAB OCCURS 0,VBELN LIKE VBAK-VBELN,POSNR LIKE VBAP-POSNR,END OF ITAB.

SELECT VBELNPOSNRFROM VBAPUP TO 20 ROWSINTO TABLE ITAB.

X_FIELDCAT-FIELDNAME = 'VBELN'.X_FIELDCAT-SELTEXT_L = 'VBELN'.X_FIELDCAT-TABNAME = 'ITAB'.

X_FIELDCAT-COL_POS = 1.APPEND X_FIELDCAT TO IT_FIELDCAT.CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'POSNR'.X_FIELDCAT-SELTEXT_L = 'POSNR'.X_FIELDCAT-TABNAME = 'ITAB'.X_FIELDCAT-COL_POS = 2.APPEND X_FIELDCAT TO IT_FIELDCAT.CLEAR X_FIELDCAT.

x_events-NAME = SLIS_EV_END_OF_PAGE.

x_events-FORM = 'END_OF_PAGE'.APPEND x_events TO iT_EVENTS.CLEAR x_events .x_events-NAME = SLIS_EV_TOP_OF_PAGE.x_events-FORM = 'TOP_OF_PAGE'.APPEND x_events TO iT_EVENTS.CLEAR x_events .

x_events-NAME = slis_ev_end_of_list.x_events-FORM = 'END_OF_LIST'.APPEND x_events TO iT_EVENTS.CLEAR x_events .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'EXPORTINGI_CALLBACK_PROGRAM = SY-REPIDIS_LAYOUT = L_LAYOUTIT_FIELDCAT = IT_FIELDCATit_events = it_eventsTABLEST_OUTTAB = ITABEXCEPTIONSPROGRAM_ERROR = 1

8/19/2019 ALV Con Cabecera Larga

2/2

OTHERS = 2.IF SY-SUBRC = 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.

FORM TOP_OF_PAGE.

WRITE: / 'TOP_OF_PAGE: podes escribir todo lo que quierassssssss'.ENDFORM.

FORM END_OF_LIST.

WRITE: / 'Pie de pagina'.ENDFORM.FORM END_OF_PAGE.

WRITE: / 'END_OF_PAGE'.ENDFORM.