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.
Top Related