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

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

《Modal Dialog Box方式对话框的使用实例.docx》由会员分享，可在线阅读，更多相关《Modal Dialog Box方式对话框的使用实例.docx（8页珍藏版）》请在冰豆网上搜索。

ModalDialogBox方式对话框的使用实例

1、se38创建一个程序

1.DATA:

ok_codeTYPEsy-ucomm.

2.TABLESmara.

3.TYPES:

matnrTYPEmara-matnr,

4.      ersdaTYPEmara-ersda,

5.      ernamTYPEmara-ernam,

6.      mtartTYPEmara-mtart,

7.      matklTYPEmara-matkl.

8.

9.START-OF-SELECTION.

10.  CALLSCREEN0100.

复制代码

2、双击SCREEN0100，新建100屏幕

在屏幕中画一个物料字段，可以直接从数据字典mara表里获取matnr字段

显示按钮，注意输入一个功能码，程序中捕获该值，相应操作；如果屏幕上有红色，说明有错误

定义OK_CODE

逻辑流

1.PROCESSBEFOREOUTPUT.

2.*MODULESTATUS_0100.

3.*

4.PROCESSAFTERINPUT.

5.MODULEUSER_COMMAND_0100.

复制代码

1.*&---------------------------------------------------------------------*

2.*&    Module  USER_COMMAND_0100  INPUT

3.*&---------------------------------------------------------------------*

4.*    text

5.*----------------------------------------------------------------------*

6.MODULEuser_command_0100INPUT.

7.  CASEok_code.

8.  WHEN'DISPLAY'.

9.    CALLSCREEN0110

10.        STARTINGAT410

11.        ENDINGAT5020.

12.  ENDCASE.

13.ENDMODULE.            "USER_COMMAND_0100  INPUT

复制代码

3、双击SCREEN0110新建110屏幕

语法:

CALLSCREEN  STARTINGAT  ENDINGAT     

STARTINGAT和ENDINGAT选项告诉系统在何处定位弹出屏幕 

SCREENTYPE选择Modal Dialog Box 

从数据字典获取字段，放在屏幕上

定义OK_CODE

逻辑流

1.PROCESSBEFOREOUTPUT.

2.MODULESTATUS_0110.

3.*

4.PROCESSAFTERINPUT.

5.MODULEUSER_COMMAND_0110.

复制代码

1.*&---------------------------------------------------------------------*

2.*&    Module  STATUS_0110  OUTPUT

3.*&---------------------------------------------------------------------*

4.*    text

5.*----------------------------------------------------------------------*

6.MODULEstatus_0110OUTPUT.

7.*  SETPF-STATUS'xxxxxxxx'.

8.*  SETTITLEBAR'xxx'.

9.  SELECTSINGLEmatnrersdaernammtartmatklFROMmara

10.    INTO（mara-matnr,mara-ersda,mara-ernam,mara-mtart,mara-matkl）

11.    WHEREmatnr=mara-matnr.

12.ENDMODULE.            "STATUS_0110  OUTPUT

13.*&---------------------------------------------------------------------*

14.*&    Module  USER_COMMAND_0110  INPUT

15.*&---------------------------------------------------------------------*

16.*    text

17.*----------------------------------------------------------------------*

18.MODULEuser_command_0110INPUT.

19.  CASEok_code.

20.  WHEN'EXIT'.

21.    LEAVEPROGRAM.

22.  ENDCASE.

23.ENDMODULE.            "USER_COMMAND_0110  INPUT

复制代码

退出按钮，注意输入一个功能码

4、执行程序，显示效果