OOALV双屏界面互动
最近根据用户要求，要将ALV表做成透视表样子。于是想到了OOALV的多屏展示。接着就是一顿万物互联操作，最终形成了一个简单DEMO。
首先做的就是创建程序，接着创建屏幕，接着在屏幕上画2个ALV框。分别取号名字，这里取con1\con2.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
MODULE INIT_CON.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
上面是屏幕代码，程序代码如下
REPORT ZMMR0093. "使用画屏的方法的双屏DEMO TYPE-POOLS: ICON. TABLES: ZTMM006. DATA GT_ITAB TYPE STANDARD TABLE OF ZTMM006 . DATA GS_ITAB TYPE ZTMM006 . *DATA GT_PRINT TYPE STANDARD TABLE OF EBAN . DATA:BEGIN OF GS_PRINT OCCURS 0. INCLUDE STRUCTURE EBAN. DATA:BOX(1). DATA:END OF GS_PRINT. DATA:GT_PRINT LIKE TABLE OF GS_PRINT. DATA:BEGIN OF GS_ITAB_HEAD OCCURS 0. INCLUDE STRUCTURE ZTMM006. DATA:BOX(1). DATA:END OF GS_ITAB_HEAD. DATA:GT_ITAB_HEAD LIKE TABLE OF GS_ITAB_HEAD. DATA CON1_REF TYPE REF TO CL_GUI_CUSTOM_CONTAINER. DATA CON2_REF TYPE REF TO CL_GUI_CUSTOM_CONTAINER. DATA G_GRID1 TYPE REF TO CL_GUI_ALV_GRID. DATA G_GRID2 TYPE REF TO CL_GUI_ALV_GRID. "------------------------------------- "-----------ALV1的HOTSPOT单击事件------------ "------------------------------------- "1 定义ALV1的事件 CLASS LCL_EVENT_RECEIVER DEFINITION. PUBLIC SECTION. METHODS HANDLE_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO. ENDCLASS. "2 事件的执行方法 CLASS LCL_EVENT_RECEIVER IMPLEMENTATION. METHOD HANDLE_CLICK. MESSAGE E_ROW_ID TYPE 'S'. "清空原来的X LOOP AT GT_ITAB_HEAD INTO GS_ITAB_HEAD. GS_ITAB_HEAD-BOX = ''. MODIFY GT_ITAB_HEAD FROM GS_ITAB_HEAD. ENDLOOP. "补上当前行的X READ TABLE GT_ITAB_HEAD INTO GS_ITAB_HEAD INDEX E_ROW_ID. "读取当前行 GS_ITAB_HEAD-BOX = 'X'. MODIFY GT_ITAB_HEAD FROM GS_ITAB_HEAD INDEX E_ROW_ID. "刷新X DATA: LS_STABLE TYPE LVC_S_STBL. LS_STABLE-ROW = 'X'. LS_STABLE-COL = 'X'. CALL METHOD G_GRID1->REFRESH_TABLE_DISPLAY EXPORTING IS_STABLE = LS_STABLE I_SOFT_REFRESH = 'X'. "准备和显示第二个ALV的数据 * DATA GV_TZNUM LIKE GT_ZSDT030-TZNUM. DATA: GV_TZNUM LIKE ZTMM006-BANFN. "得到用户选的一个数据 LOOP AT GT_ITAB_HEAD INTO GS_ITAB_HEAD. IF GS_ITAB_HEAD-BOX = 'X'. GV_TZNUM = GS_ITAB_HEAD-BANFN. ENDIF. ENDLOOP. IF GV_TZNUM IS NOT INITIAL. SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_PRINT FROM EBAN AS A WHERE A~BANFN = GV_TZNUM. DATA GS_LAYOUT2 TYPE LVC_S_LAYO. GS_LAYOUT2-CWIDTH_OPT = 'X'. GS_LAYOUT2-GRID_TITLE = '详细项目'. GS_LAYOUT2-SEL_MODE = 'B'. GS_LAYOUT2-ZEBRA = 'X'. CALL METHOD G_GRID2->SET_FRONTEND_LAYOUT EXPORTING IS_LAYOUT = GS_LAYOUT2. CALL METHOD G_GRID2->REFRESH_TABLE_DISPLAY EXPORTING IS_STABLE = LS_STABLE I_SOFT_REFRESH = 'X'. ENDIF. ENDMETHOD. ENDCLASS. "3 事件引用变量 DATA EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER. "------------------------------------- "-----------ALV1的加图标事件---------- "------------------------------------- "1 定义ALV1的事件 CLASS LCL_EVENT_RECEIVER2 DEFINITION. PUBLIC SECTION. METHODS HANDLE_TOOLBAR FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID IMPORTING E_OBJECT E_INTERACTIVE. ENDCLASS. "2 事件的执行方法 CLASS LCL_EVENT_RECEIVER2 IMPLEMENTATION. METHOD HANDLE_TOOLBAR. DATA LS_TOOLBAR TYPE STB_BUTTON. CLEAR LS_TOOLBAR. LS_TOOLBAR-BUTN_TYPE = 3. APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR. CLEAR LS_TOOLBAR. LS_TOOLBAR-FUNCTION = 'MYSHEN'. LS_TOOLBAR-ICON = ICON_SET_STATE. LS_TOOLBAR-QUICKINFO = '审批确认'. LS_TOOLBAR-TEXT = '审批确认'. LS_TOOLBAR-DISABLED = ''. APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR. CLEAR LS_TOOLBAR. LS_TOOLBAR-FUNCTION = 'MYSCAN'. LS_TOOLBAR-ICON = ICON_STORNO. LS_TOOLBAR-QUICKINFO = '取消审批'. LS_TOOLBAR-TEXT = '取消审批'. LS_TOOLBAR-DISABLED = ''. APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR. CLEAR LS_TOOLBAR. LS_TOOLBAR-FUNCTION = 'MYPRINT'. LS_TOOLBAR-ICON = ICON_PRINT. LS_TOOLBAR-QUICKINFO = '单据打印'. LS_TOOLBAR-TEXT = '单据打印'. LS_TOOLBAR-DISABLED = ''. APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR. ENDMETHOD. ENDCLASS. "3 事件引用变量 DATA EVENT_RECEIVER2 TYPE REF TO LCL_EVENT_RECEIVER2. "------------------------------------- "-----------ALV1的加按钮响应事件------ "------------------------------------- "1 定义ALV1的事件 CLASS LCL_EVENT_RECEIVER3 DEFINITION. PUBLIC SECTION. METHODS HANDLE_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID IMPORTING E_UCOMM. ENDCLASS. "2 事件的执行方法 CLASS LCL_EVENT_RECEIVER3 IMPLEMENTATION. METHOD HANDLE_COMMAND. CASE E_UCOMM. WHEN 'MYSHEN'. PERFORM SHENFORM. WHEN 'MYSCAN'. PERFORM SCANCELFORM . WHEN 'MYPRINT'. PERFORM PPPFORM . ENDCASE. ENDMETHOD. ENDCLASS. "3 事件引用变量 DATA EVENT_RECEIVER3 TYPE REF TO LCL_EVENT_RECEIVER3. "选择屏幕 SELECT-OPTIONS GS_BANFN FOR ZTMM006-BANFN. "三包索赔单号 START-OF-SELECTION. SELECT * FROM ZTMM006 INTO CORRESPONDING FIELDS OF TABLE GT_ITAB WHERE BANFN IN GS_BANFN. "为第一个控件准备数据 LOOP AT GT_ITAB INTO GS_ITAB. MOVE GS_ITAB-BANFN TO GS_ITAB_HEAD-BANFN. MOVE GS_ITAB-BNFPO TO GS_ITAB_HEAD-BNFPO. MOVE GS_ITAB-ZFLAG_MSG TO GS_ITAB_HEAD-ZFLAG_MSG. MOVE GS_ITAB-ZFLAG_DATE TO GS_ITAB_HEAD-ZFLAG_DATE. MOVE GS_ITAB-ZFLAG_TIME TO GS_ITAB_HEAD-ZFLAG_TIME. APPEND GS_ITAB_HEAD TO GT_ITAB_HEAD. CLEAR GS_ITAB_HEAD. CLEAR GS_ITAB. ENDLOOP. SORT GT_ITAB_HEAD. DELETE ADJACENT DUPLICATES FROM GT_ITAB_HEAD. CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'TOPS'. * SET TITLEBAR 'xxx'. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& Module INIT_CON OUTPUT *&---------------------------------------------------------------------* * text 控件初始化模块 *----------------------------------------------------------------------* MODULE INIT_CON OUTPUT. "---------第一个ALV控件----------------- IF CON1_REF IS INITIAL. DATA GS_LAYOUT1 TYPE LVC_S_LAYO. GS_LAYOUT1-CWIDTH_OPT = 'X'. * GS_LAYOUT1-GRID_TITLE = '三包索赔单'. GS_LAYOUT1-GRID_TITLE = '采购申请传输日志'. GS_LAYOUT1-SEL_MODE = 'B'. GS_LAYOUT1-ZEBRA = 'X'. DATA GT_FIELDCAT TYPE LVC_T_FCAT. DATA GS_FIELDCAT TYPE LVC_S_FCAT. GS_FIELDCAT-COL_POS = 1. GS_FIELDCAT-FIELDNAME = 'BOX'. GS_FIELDCAT-CHECKBOX = 'X'. GS_FIELDCAT-HOTSPOT = 'X'. APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR GS_FIELDCAT. GS_FIELDCAT-COL_POS = 2. GS_FIELDCAT-FIELDNAME = 'BANFN'. GS_FIELDCAT-COLTEXT = 'PR'. APPEND GS_FIELDCAT TO GT_FIELDCAT. CLEAR GS_FIELDCAT. GS_FIELDCAT-COL_POS = 3. GS_FIELDCAT-FIELDNAME = 'BNFPO'. GS_FIELDCAT-COLTEXT = 'PRNO'. APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR GS_FIELDCAT. GS_FIELDCAT-COL_POS = 4. GS_FIELDCAT-FIELDNAME = 'ZFLAG_MSG'. GS_FIELDCAT-COLTEXT = 'MESSAGE'. APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR GS_FIELDCAT. GS_FIELDCAT-COL_POS = 5. GS_FIELDCAT-FIELDNAME = 'ZFLAG_DATE'. GS_FIELDCAT-COLTEXT = 'DATE'. APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR GS_FIELDCAT. GS_FIELDCAT-COL_POS = 6. GS_FIELDCAT-FIELDNAME = 'ZFLAG_TIME'. GS_FIELDCAT-COLTEXT = 'TIME'. APPEND GS_FIELDCAT TO GT_FIELDCAT.CLEAR GS_FIELDCAT. CREATE OBJECT CON1_REF EXPORTING CONTAINER_NAME = 'CON1'. CREATE OBJECT G_GRID1 EXPORTING I_PARENT = CON1_REF. "4 注册事件句柄,图标的还必须加在这里，不然不行 CREATE OBJECT EVENT_RECEIVER2. SET HANDLER EVENT_RECEIVER2->HANDLE_TOOLBAR FOR G_GRID1. "4 注册事件句柄 CREATE OBJECT EVENT_RECEIVER. SET HANDLER EVENT_RECEIVER->HANDLE_CLICK FOR G_GRID1. "4 注册事件句柄 CREATE OBJECT EVENT_RECEIVER3. SET HANDLER EVENT_RECEIVER3->HANDLE_COMMAND FOR G_GRID1. CALL METHOD G_GRID1->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING IS_LAYOUT = GS_LAYOUT1 CHANGING IT_OUTTAB = GT_ITAB_HEAD IT_FIELDCATALOG = GT_FIELDCAT. ENDIF. "---------第二个ALV控件----------------- IF CON2_REF IS INITIAL. DATA GS_LAYOUT2 TYPE LVC_S_LAYO. GS_LAYOUT2-CWIDTH_OPT = 'X'. GS_LAYOUT2-GRID_TITLE = '采购申请详细项目'. GS_LAYOUT2-SEL_MODE = 'B'. GS_LAYOUT2-ZEBRA = 'X'. DATA GT_FIELDCAT2 TYPE LVC_T_FCAT. DATA GS_FIELDCAT2 TYPE LVC_S_FCAT. GS_FIELDCAT2-COL_POS = 1. GS_FIELDCAT2-FIELDNAME = 'BOX'. GS_FIELDCAT2-CHECKBOX = 'X'. GS_FIELDCAT2-HOTSPOT = 'X'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 2. GS_FIELDCAT2-FIELDNAME = 'BANFN'. GS_FIELDCAT2-COLTEXT = 'PR号'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2. CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 3. GS_FIELDCAT2-FIELDNAME = 'BNFPO'. GS_FIELDCAT2-COLTEXT = 'PR行号'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 4. GS_FIELDCAT2-FIELDNAME = 'BSART'. GS_FIELDCAT2-COLTEXT = '类型'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 5. GS_FIELDCAT2-FIELDNAME = 'BSTYP'. GS_FIELDCAT2-COLTEXT = '型号'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 6. GS_FIELDCAT2-FIELDNAME = 'EKGRP'. GS_FIELDCAT2-COLTEXT = '采购组'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 7. GS_FIELDCAT2-FIELDNAME = 'ERNAM'. GS_FIELDCAT2-COLTEXT = '创建人'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 7. GS_FIELDCAT2-FIELDNAME = 'ERDAT'. GS_FIELDCAT2-COLTEXT = '创建时间'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 8. GS_FIELDCAT2-FIELDNAME = 'MATNR'. GS_FIELDCAT2-COLTEXT = '物料编码 '. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 9. GS_FIELDCAT2-FIELDNAME = 'TXZ01'. GS_FIELDCAT2-COLTEXT = '物料描述'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. GS_FIELDCAT2-COL_POS = 10. GS_FIELDCAT2-FIELDNAME = 'WERKS'. GS_FIELDCAT2-COLTEXT = '工厂'. APPEND GS_FIELDCAT2 TO GT_FIELDCAT2.CLEAR GS_FIELDCAT2. CREATE OBJECT CON2_REF EXPORTING CONTAINER_NAME = 'CON2'. CREATE OBJECT G_GRID2 EXPORTING I_PARENT = CON2_REF. CALL METHOD G_GRID2->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING IS_LAYOUT = GS_LAYOUT2 CHANGING IT_OUTTAB = GT_PRINT[] IT_FIELDCATALOG = GT_FIELDCAT2. ENDIF. ENDMODULE. " INIT_CON OUTPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text 这个用户命令，是最上面的 【标准工具条】上的按钮 *----------------------------------------------------------------------* MODULE USER_COMMAND_0100 INPUT. CASE SY-UCOMM. WHEN 'BACK'. LEAVE TO SCREEN 0. WHEN 'EXIT'. LEAVE PROGRAM. WHEN 'SCAN'. LEAVE TO SCREEN 0. WHEN OTHERS. ENDCASE. ENDMODULE. " USER_COMMAND_0100 INPUT "------------取消审批的FORM-------------------- FORM SCANCELFORM . MESSAGE '你点了取消审批按钮' TYPE 'I'. ENDFORM. "------------SHENFORM的FORM-------------------- FORM SHENFORM . MESSAGE '你点了审批按钮' TYPE 'I'. ENDFORM . "-------------打印FORM----------------- FORM PPPFORM . MESSAGE '你点了打印按钮' TYPE 'I'. ENDFORM.
如果用不到新加的按钮 可以换成全选或者取消全选。
