Modal Dialog Box方式对话框的使用实例.docx

1、Modal Dialog Box方式对话框的使用实例1、se38创建一个程序1. DATA:ok_code TYPE sy-ucomm.2. TABLES mara.3. TYPES : matnr TYPE mara-matnr,4. ersda TYPE mara-ersda,5. ernam TYPE mara-ernam,6. mtart TYPE mara-mtart,7. matkl TYPE mara-matkl.8. 9. START-OF-SELECTION.10. CALL SCREEN 0100.复制代码2、双击SCREEN 0100，新建100屏幕在屏幕中画一个物料字段

2、，可以直接从数据字典mara表里获取matnr字段显示按钮，注意输入一个功能码，程序中捕获该值，相应操作；如果屏幕上有红色，说明有错误定义OK_CODE逻辑流1. PROCESS BEFORE OUTPUT.2. * MODULE STATUS_0100.3. *4. PROCESS AFTER INPUT.5. MODULE USER_COMMAND_0100.复制代码1. *&-*2. *& ModuleUSER_COMMAND_0100INPUT3. *&-*4. * text5. *-*6. MODULE user_command_0100 INPUT.7. CASE ok_code.

3、8. WHEN DISPLAY.9. CALL SCREEN 011010. STARTING AT 4 1011. ENDING AT 50 20.12. ENDCASE.13. ENDMODULE. USER_COMMAND_0100INPUT复制代码3、双击SCREEN 0110 新建110屏幕语法:CALL SCREEN STARTING AT ENDING AT STARTING AT 和 ENDING AT 选项告诉系 统在何处定 位弹出屏幕SCREEN TYPE选择ModalDialogBox从数据字典获取字段，放在屏幕上定义OK_CODE逻辑流1. PROCESS BEFORE

4、 OUTPUT.2. MODULE STATUS_0110.3. *4. PROCESS AFTER INPUT.5. MODULE USER_COMMAND_0110.复制代码1. *&-*2. *& ModuleSTATUS_0110OUTPUT3. *&-*4. * text5. *-*6. MODULE status_0110 OUTPUT.7. *SET PF-STATUS xxxxxxxx.8. *SET TITLEBAR xxx.9. SELECT SINGLE matnr ersda ernam mtart matkl FROM mara10. INTO (mara-matnr

5、, mara-ersda, mara-ernam, mara-mtart, mara-matkl)11. WHERE matnr = mara-matnr.12. ENDMODULE. STATUS_0110OUTPUT13. *&-*14. *& ModuleUSER_COMMAND_0110INPUT15. *&-*16. * text17. *-*18. MODULE user_command_0110 INPUT.19. CASE ok_code.20. WHEN EXIT.21. LEAVE PROGRAM.22. ENDCASE.23. ENDMODULE. USER_COMMAND_0110INPUT复制代码退出按钮，注意输入一个功能码4、执行程序，显示效果