ZTTESTEXCMSG.docx
- 文档编号:2929867
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:24
- 大小:19.84KB
ZTTESTEXCMSG.docx
《ZTTESTEXCMSG.docx》由会员分享,可在线阅读,更多相关《ZTTESTEXCMSG.docx(24页珍藏版)》请在冰豆网上搜索。
ZTTESTEXCMSG
程序代码备份
REPORT ZT_TEST_EXCMSG.
*----------------------------------------------------------------------*
* I N C L U D E S *
*----------------------------------------------------------------------*
INCLUDE ZT_TEST_EXCMSG_TOP.
*----------------------------------------------------------------------*
* S E L E C T I O N S C R E E N *
*----------------------------------------------------------------------*
PARAMETERS:
P_PLANT TYPE T001W-WERKS OBLIGATORY.
*BLOCK 'Selection by'
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-H01.
*LINE 1
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS RB_MATRL RADIOBUTTON GROUP GR1 DEFAULT 'X' USER-COMMAND CMD.
SELECTION-SCREEN COMMENT 3(15) TEXT-001.
SELECT-OPTIONS:
S_MATRL FOR T_MATRL.
SELECTION-SCREEN END OF LINE.
*LINE 2
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS RB_MRPC RADIOBUTTON GROUP GR1 .
SELECTION-SCREEN COMMENT 3(18) TEXT-002.
PARAMETERS:
P_MRPCNL TYPE T024D-DISPO.
SELECTION-SCREEN END OF LINE.
*LINE 3
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS RB_PRDG RADIOBUTTON GROUP GR1.
SELECTION-SCREEN COMMENT 3(18) TEXT-003.
PARAMETERS:
P_PRDGRP TYPE RM61R-PRGRP MATCHCODE OBJECT MAT2.
SELECTION-SCREEN END OF LINE.
*LINE 4
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS RB_VNDR RADIOBUTTON GROUP GR1.
SELECTION-SCREEN COMMENT 3(15) TEXT-004.
SELECT-OPTIONS:
S_VENDOR FOR T_VENDOR.
SELECTION-SCREEN END OF LINE.
*LINE 5
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS RB_PCSG RADIOBUTTON GROUP GR1.
SELECTION-SCREEN COMMENT 3(18) TEXT-005.
PARAMETERS:
P_PCSGRP TYPE T024-EKGRP .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
*
*BLOCK 'Restrict Selection'
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-H02.
*LINE 1
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB1 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO1.
SELECTION-SCREEN END OF LINE.
*LINE 2
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB2 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO2.
SELECTION-SCREEN END OF LINE.
*LINE 3
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB3 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO3.
SELECTION-SCREEN END OF LINE.
*LINE 4
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB4 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO4.
SELECTION-SCREEN END OF LINE.
*LINE 5
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB5 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO5.
SELECTION-SCREEN END OF LINE.
*LINE 6
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB6 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO6.
SELECTION-SCREEN END OF LINE.
*LINE 7
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB7 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO7.
SELECTION-SCREEN END OF LINE.
*LINE 8
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_CB8 AS CHECKBOX DEFAULT C_X.
SELECTION-SCREEN COMMENT 3(35) TEXT-CO8.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
*----------------------------------------------------------------------*
* A T S E L E C T I O N S C R E E N O U T P U T *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
IF P_PLANT IS INITIAL.
LOOP AT SCREEN.
IF SCREEN-NAME = C_RB_MATRL.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_RB_MRPC.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_RB_PRDG.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_RB_VNDR.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_RB_PCSG.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_MATLOW.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_MATHIGH.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_MRPCNL.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_PRDGRP.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_VNDLOW.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_VNDHIGH.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_PCSGRP.
SCREEN-INPUT = C_ZERO.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
REFRESH S_VENDOR.
CLEAR:
P_MRPCNL,
P_PRDGRP,
P_PCSGRP.
ELSE.
*Material IS SELECTED
IF RB_MATRL = C_X.
LOOP AT SCREEN.
IF SCREEN-NAME = C_MRPCNL.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_PRDGRP.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_VNDLOW.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_VNDHIGH.
SCREEN-INPUT = C_ZERO.
ENDIF.
IF SCREEN-NAME = C_PCSGRP.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ZTTESTEXCMSG