ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 子屏幕selection-screen

子屏幕selection-screen

原创 Linux操作系统 作者:sapr 时间:2008-01-03 15:56:04 0 删除 编辑

在程序中创建0100为主屏幕,在其上添加‘子屏幕范围’控件,并命名为area。pbo中添加call subscreen area including sy-repid 0200,pai中添加call subscreen area。

REPORT  zdemo.
********************************************************
****表定义**********************************************
********************************************************

TABLES :EKKN.

DATA: save_ok LIKE sy-ucomm,
            ok_code LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF SCREEN 0200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME. TITLE TEXT-BL1.

SELECT-OPTIONS:  S_EBELN FOR EKKO-EBELN."采购凭证号"运费

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN END OF SCREEN 0200 .


START-OF-SELECTION.
call screen 0100.
END-OF-SELECTION.

MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '0100'.
ENDMODULE.  

MODULE USER_COMMAND_0100 INPUT.

  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
     WHEN 'BACK'.
       LEAVE PROGRAM.

ENDCASE.

ENDMODULE.          

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10842258/viewspace-86388/,如需转载,请注明出处,否则将追究法律责任。

下一篇: debugger mode
请登录后发表评论 登录
全部评论

注册时间:2007-12-22

  • 博文量
    89
  • 访问量
    232475