效果图如下:
SPRO配置通知单类型屏幕信息:
Go to TCode SPRO --> SAP Reference IMG--> Quality Management--. quality
Notifications -->Notification creations -->notification type-->define screen templates
-->Select define Screen Areas and Tabs-->select Notification type F2-->copy the new
Tab From existing tab.
实现SMOD QQMA0001
函数族创建屏幕。
SE11 添加客制化字段。QMEL
EXIT_SAPMIWO0_008:Customer Exit: Transfer Notification Data to User Screen
GS_VIQMEL = I_VIQMEL.
GV_AKTYP = I_AKTYP.
GV_TABCD = I_TABCD.
GV_SUBNR = I_SUBNR.
GV_USCR = I_USCR.
MOVE-CORRESPONDING I_VIQMEL to ci_cust .
EXIT_SAPMIWO0_009:Customer Exit: Transfer Notification Data from User Screen
MOVE-CORRESPONDING CI_CUST TO E_VIQMEL .
函数族定义全局变量:
DATA:GS_VIQMEL TYPE VIQMEL,
GV_AKTYP TYPE T365-AKTYP,
GV_TABCD TYPE TQTABS-TABCD,
GV_SUBNR TYPE N,
GV_USCR TYPE TQ80-USERSCR1.
DATA:CI_CUST TYPE CI_QMEL .
创建0100子屏幕:
MODULE STATUS_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
IF GV_AKTYP EQ 'A' .
LOOP AT SCREEN .
SCREEN-INPUT = 0 .
MODIFY SCREEN .
ENDLOOP .
ENDIF .
ENDMODULE. " STATUS_0100 OUTPUT