代码如下
*&---------------------------------------------------------------------* *& Report ZPPR0020 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ZPPR0022. INCLUDE ZPPR0022_TOP. INCLUDE ZPPR0022_SEL. INCLUDE ZPPR0022_F01. INITIALIZATION. AT SELECTION-SCREEN OUTPUT. PERFORM FRM_SET_SCREEN. " 屏幕控制 AT SELECTION-SCREEN. START-OF-SELECTION.
*&---------------------------------------------------------------------* *& 包含 ZPPR0021_TOP *&---------------------------------------------------------------------* TABLES:MARA,AFKO,AUFK,PLAF,EKKO,EKPO,EKET,EBAN,RESB.*&---------------------------------------------------------------------*
*& 包含 ZPPR0021_SEL *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-T01. SELECTION-SCREEN SKIP. SELECTION-SCREEN BEGIN OF LINE. PARAMETERS: P_CB1 AS CHECKBOX USER-COMMAND FLAG. SELECTION-SCREEN COMMENT (20) TEXT-TC1 FOR FIELD P_CB1. PARAMETERS: P_CB2 AS CHECKBOX USER-COMMAND FLAG. SELECTION-SCREEN COMMENT (20) TEXT-TC2 FOR FIELD P_CB2. PARAMETERS: P_CB3 AS CHECKBOX USER-COMMAND FLAG. SELECTION-SCREEN COMMENT (20) TEXT-TC3 FOR FIELD P_CB3. PARAMETERS: P_CB4 AS CHECKBOX USER-COMMAND FLAG. SELECTION-SCREEN COMMENT (20) TEXT-TC4 FOR FIELD P_CB4. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN SKIP. PARAMETERS P_WERKS TYPE WERKS_D. SELECT-OPTIONS S_MATNR FOR MARA-MATNR . SELECTION-SCREEN END OF BLOCK B01. " 生产订单 SELECTION-SCREEN BEGIN OF BLOCK B02 WITH FRAME TITLE TEXT-T02. SELECT-OPTIONS: S_AUFNR FOR AFKO-AUFNR MODIF ID M1, S_GSTRP FOR AFKO-GSTRP MODIF ID M1, S_GLTRP FOR AFKO-GLTRP MODIF ID M1, S_FEVOR FOR AFKO-FEVOR MODIF ID M1, S_DISPO FOR AFKO-DISPO MODIF ID M1, S_AUART FOR AUFK-AUART MODIF ID M1. SELECTION-SCREEN END OF BLOCK B02. " 采购订单 SELECTION-SCREEN BEGIN OF BLOCK B03 WITH FRAME TITLE TEXT-T03. SELECT-OPTIONS: S_EBELN FOR EKPO-EBELN MODIF ID M2, S_CREAT FOR EKPO-CREATIONDATE MODIF ID M2, S_SLFDT FOR EKET-SLFDT MODIF ID M2, S_LIFNR FOR EKKO-LIFNR MODIF ID M2. SELECTION-SCREEN END OF BLOCK B03. " 采购申请 SELECTION-SCREEN BEGIN OF BLOCK B04 WITH FRAME TITLE TEXT-T04. SELECT-OPTIONS: S_BANFN FOR EBAN-EBELN MODIF ID M3, S_LFDAT FOR EBAN-LFDAT MODIF ID M3, S_FRGDT FOR EBAN-FRGDT MODIF ID M3, S_FLIEF FOR EBAN-FLIEF MODIF ID M3. SELECTION-SCREEN END OF BLOCK B04. " 计划订单 SELECTION-SCREEN BEGIN OF BLOCK B05 WITH FRAME TITLE TEXT-T05. SELECT-OPTIONS: S_PLNUM FOR PLAF-PLNUM MODIF ID M4. * S_LFDAT FOR EBAN-LFDAT MODIF ID M4, * S_FRGDT FOR EBAN-FRGDT MODIF ID M4, * S_FLIEF FOR EBAN-FLIEF MODIF ID M4. SELECTION-SCREEN END OF BLOCK B05. SELECTION-SCREEN BEGIN OF BLOCK B06 WITH FRAME TITLE TEXT-T06. SELECTION-SCREEN END OF BLOCK B06. SELECTION-SCREEN BEGIN OF BLOCK B07 WITH FRAME TITLE TEXT-T07. SELECTION-SCREEN END OF BLOCK B07.
*&---------------------------------------------------------------------* *& 包含 ZPPR0021_F01 *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form FRM_SET_SCREEN *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM FRM_SET_SCREEN . LOOP AT SCREEN. IF P_CB1 IS INITIAL AND SCREEN-GROUP1 = 'M1'. SCREEN-INPUT = 0. SCREEN-INVISIBLE = 1. ENDIF. IF P_CB2 IS INITIAL AND SCREEN-GROUP1 = 'M2'. SCREEN-INPUT = 0. SCREEN-INVISIBLE = 1. ENDIF. IF P_CB3 IS INITIAL AND SCREEN-GROUP1 = 'M3'. SCREEN-INPUT = 0. SCREEN-INVISIBLE = 1. ENDIF. IF P_CB4 IS INITIAL AND SCREEN-GROUP1 = 'M4'. SCREEN-INPUT = 0. SCREEN-INVISIBLE = 1. ENDIF. MODIFY SCREEN. ENDLOOP. ENDFORM.
网友评论