子屏幕selection-screen

在程序中创建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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10842258/viewspace-86388/