*&---------------------------------------------------------------------**& REPORT Y_ALV_OO_JAMES_4*&*&---------------------------------------------------------------------**& THIS REPORT SHOW YOU HOW TO USE FUNCATION ALV AND EVENT*&---------------------------------------------------------------------*REPORT Y_FCUNCA_ALV_DEMON.TABLES:YCACS_CTRTBU.*&---------------------------------------------------------------------**& DATA DEFINE*&---------------------------------------------------------------------*DATA: CTRTBU_ID TYPE CACS_CTRTBU_ID.DATA: LT_CACS_CTRTBU_TEMP TYPE TABLE OF YCACS_CTRTBU1, LT_CACS_CTRTBU TYPE TABLE OF YCACS_CTRTBU1, LS_CACS_CTRTBU TYPE YCACS_CTRTBU1,* ALV DEFINIE GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV, GS_LAYOUT TYPE SLIS_LAYOUT_ALV,* EVENT用 GT_EVENT TYPE SLIS_T_EVENT, GS_EVENT TYPE SLIS_ALV_EVENT,* 当用户选择复选框时，立刻出发DATA_CHANGED 事件. GS_GLAY TYPE LVC_S_GLAY.*&---------------------------------------------------------------------**& PARAMETERS DEFINITION*&---------------------------------------------------------------------*START-OF-SELECTION.SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-B01.PARAMETERS: P_CLIK AS CHECKBOX DEFAULT ‘X‘.PARAMETERS: P_EDIT AS CHECKBOX DEFAULT ‘X‘.SELECT-OPTIONS:S_COMM FOR CTRTBU_ID.SELECTION-SCREEN END OF BLOCK B01.*&---------------------------------------------------------------------**& INITIALIZATION*&---------------------------------------------------------------------*INITIALIZATION. CLEAR: LT_CACS_CTRTBU_TEMP, LT_CACS_CTRTBU, LS_CACS_CTRTBU, GT_FIELDCAT, GS_LAYOUT, GT_EVENT, GS_EVENT.*&---------------------------------------------------------------------**& START-OF-SELECTION*&---------------------------------------------------------------------*START-OF-SELECTION.* GET DATA PERFORM GET_DATA. PERFORM SET_ALV_FIELDCAT. PERFORM SET_ALV_LAYOUT. PERFORM SET_ALV_EVENT. PERFORM SET_ALV_SHOW.* 和SE80里自己设置的 GUI_STATUS 进行关联。 FORM ALV_STATUS_SET USING PT_EXTAB TYPE SLIS_T_EXTAB. CLEAR: PT_EXTAB.* SET PF-STATUS ‘ALV_STATUS‘. " 这是我自己设置的GUI STATUS，具体方法SE80-->GUI STATUS -APPLICATION TOOLBAR SET PF-STATUS ‘STANDARD_FULLSCREEN‘. " 这是我参照SAP 系统标准的GUI STATUS 进行设置的，功能比较齐全，具体方法，复制STANDARD_FULLSCREEN名 ENDFORM.* USER_COMMAND 事件 FORM ALV_USER_COMMAND USING P_UCOMM LIKE SY-UCOMM P_SELFIELD TYPE SLIS_SELFIELD. " 可以获取某一个单元格内的值 CASE P_UCOMM. WHEN ‘CLOSE‘. LEAVE PROGRAM. WHEN ‘&DATA_SAVE‘. MODIFY YCACS_CTRTBU FROM TABLE LT_CACS_CTRTBU. IF SY-SUBRC = 0. COMMIT WORK. MESSAGE ‘SUCCESSS‘ TYPE ‘S‘. ELSE. MESSAGE ‘FAIL‘ TYPE ‘E‘. ENDIF. WHEN OTHERS. ENDCASE. ENDFORM.* ALV_DATA_CHANGED 事件 FORM ALV_DATA_CHANGED USING PCL_DATA TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL. DATA: L_NAME(100), LS_CELLS TYPE LVC_S_MODI. FIELD-SYMBOLS <FS_VALUE>. LOOP AT PCL_DATA->MT_MOD_CELLS INTO LS_CELLS. CLEAR:LS_CACS_CTRTBU. READ TABLE LT_CACS_CTRTBU INTO LS_CACS_CTRTBU INDEX LS_CELLS-ROW_ID. CONCATENATE ‘LT_CACS_CTRTBU-‘LS_CELLS-FIELDNAME INTO L_NAME. ASSIGN (L_NAME) TO <FS_VALUE>. <FS_VALUE> = LS_CELLS-VALUE. MODIFY LT_CACS_CTRTBU INDEX LS_CELLS-ROW_ID FROM LS_CACS_CTRTBU. ENDLOOP. ENDFORM.*&---------------------------------------------------------------------**& FORM SET_ALV_FIELDCAT*&---------------------------------------------------------------------** THIS PERFORM IS FOR GET ALL FIELDCAT REFERENCE CACS_CTRTBU*----------------------------------------------------------------------** --> CACS_CTRTBU REFERENCE* <-- GT_FIELDCAT*----------------------------------------------------------------------*FORM SET_ALV_FIELDCAT . CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE‘ EXPORTING I_PROGRAM_NAME = ‘Y_FCUNCA_ALV_DEMON‘* I_INTERNAL_TABNAME = I_STRUCTURE_NAME = ‘CACS_CTRTBU‘* I_CLIENT_NEVER_DISPLAY = ‘X‘* I_INCLNAME =* I_BYPASSING_BUFFER =* I_BUFFER_ACTIVE = CHANGING CT_FIELDCAT = GT_FIELDCAT EXCEPTIONS INCONSISTENT_INTERFACE = 1 PROGRAM_ERROR = 2 OTHERS = 3 . IF SY-SUBRC <> 0.* IMPLEMENT SUITABLE ERROR HANDLING HERE ENDIF.* ALV 显示的时候增加出2列CHECK BOX DELETE和ADD 列 GS_FIELDCAT-FIELDNAME = ‘DELETE_LINE‘."FIELDNAME GS_FIELDCAT-TABNAME = ‘YCACS_CTRTBU‘."TABNAME GS_FIELDCAT-CHECKBOX = ‘X‘.* GS_FIELDCAT-COLTEXT = ‘DELETE LINE‘##NO_TEXT . GS_FIELDCAT-SELTEXT_L = ‘DELETE_LINE‘. GS_FIELDCAT-SELTEXT_M = ‘DELETE_LINE‘. GS_FIELDCAT-SELTEXT_S = ‘DELETE_LINE‘. INSERT GS_FIELDCAT INTO TABLE GT_FIELDCAT. CLEAR GS_FIELDCAT. GS_FIELDCAT-FIELDNAME = ‘NEW_LINE‘."FIELDNAME GS_FIELDCAT-TABNAME = ‘YCACS_CTRTBU‘."TABNAME GS_FIELDCAT-CHECKBOX = ‘X‘. GS_FIELDCAT-SELTEXT_L = ‘NEW_LINE‘. GS_FIELDCAT-SELTEXT_M = ‘NEW_LINE‘. GS_FIELDCAT-SELTEXT_S = ‘NEW_LINE‘. INSERT GS_FIELDCAT INTO TABLE GT_FIELDCAT.ENDFORM.*&---------------------------------------------------------------------**& FORM SET_ALV_LAYOUT*&---------------------------------------------------------------------** EDIT THE LAYOUT*----------------------------------------------------------------------** --> P1 TEXT* <-- GS_LAYOUT LAYOUT*----------------------------------------------------------------------*FORM SET_ALV_LAYOUT .* SET LAYOUT GS_LAYOUT-ZEBRA = ABAP_TRUE. GS_LAYOUT-COLWIDTH_OPTIMIZE = ABAP_TRUE.* Set edit mode IF P_EDIT = ABAP_TRUE. GS_LAYOUT-EDIT = ABAP_TRUE. GS_GLAY-EDT_CLL_CB = ABAP_TRUE. " 选中复选款，立刻触发data changed 事件 ENDIF.ENDFORM.*&---------------------------------------------------------------------**& FORM SET_ALV_GUI_STATUS*&---------------------------------------------------------------------** TEXT*----------------------------------------------------------------------** --> P1 TEXT* <-- P2 TEXT*----------------------------------------------------------------------*FORM SET_ALV_EVENT.* SET GUI STATUS EVENT MOVE ‘PF_STATUS_SET‘ TO GS_EVENT-NAME. " ALV的事件名 MOVE ‘ALV_STATUS_SET‘ TO GS_EVENT-FORM. " ALV 程序内设置GUI STATUS的语句 APPEND GS_EVENT TO GT_EVENT.* SET ALV DATA_CHANGED EVENT MOVE ‘DATA_CHANGED‘ TO GS_EVENT-NAME. MOVE ‘ALV_DATA_CHANGED‘ TO GS_EVENT-FORM. APPEND GS_EVENT TO GT_EVENT.ENDFORM.*&---------------------------------------------------------------------**& FORM SET_ALV_SHOW*&---------------------------------------------------------------------** TEXT*----------------------------------------------------------------------** --> P1 TEXT* <-- P2 TEXT*----------------------------------------------------------------------*FORM SET_ALV_SHOW . CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY‘ EXPORTING* I_INTERFACE_CHECK = ‘ ‘* I_BYPASSING_BUFFER = ‘ ‘* I_BUFFER_ACTIVE = ‘ ‘ I_CALLBACK_PROGRAM = ‘Y_FCUNCA_ALV_DEMON‘* I_CALLBACK_PF_STATUS_SET = ‘ ‘ I_CALLBACK_USER_COMMAND = ‘ALV_USER_COMMAND‘* I_CALLBACK_TOP_OF_PAGE = ‘ ‘* I_CALLBACK_HTML_TOP_OF_PAGE = ‘ ‘* I_CALLBACK_HTML_END_OF_LIST = ‘ ‘ I_STRUCTURE_NAME = ‘CACS_CTRTBU‘* I_BACKGROUND_ID = ‘ ‘* I_GRID_TITLE =* I_GRID_SETTINGS = GS_GLAY " 复选框触发data changed 事件 IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = GT_FIELDCAT* IS_SEL_HIDE =* I_DEFAULT = ‘X‘* I_SAVE = ‘ ‘* IS_VARIANT = IT_EVENTS = GT_EVENT* IT_EVENT_EXIT =* IS_PRINT =* IS_REPREP_ID = TABLES T_OUTTAB = LT_CACS_CTRTBU EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2 . IF SY-SUBRC <> 0.* IMPLEMENT SUITABLE ERROR HANDLING HERE ENDIF.ENDFORM.*&---------------------------------------------------------------------**& FORM GET_DATA*&---------------------------------------------------------------------** TEXT*----------------------------------------------------------------------** --> P1 TEXT* <-- P2 TEXT*----------------------------------------------------------------------*FORM GET_DATA . IF P_CLIK = ABAP_TRUE. SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_CACS_CTRTBU_TEMP FROM CACS_CTRTBU. IF LT_CACS_CTRTBU_TEMP IS NOT INITIAL. LT_CACS_CTRTBU = LT_CACS_CTRTBU_TEMP. ENDIF. ELSE. SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_CACS_CTRTBU FROM CACS_CTRTBU WHERE CTRTBU_ID IN S_COMM. ENDIF. IF LT_CACS_CTRTBU IS INITIAL. MESSAGE ‘SORRY, NOT ABLE TO FIND THE DATA‘ TYPE ‘E‘. ENDIF.ENDFORM.