*&---------------------------------------------------------------------* *& 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.
1455
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
