如何做出类似ME21N的折叠屏幕

如何做出类似ME21N的折叠屏幕 (2008-11-21 15:54)

分类： SAP ABAP

REPORT z_barry_screen.

DATA p_subscreen LIKE sy-dynnr .

DATA: save_ok LIKE sy-ucomm ,

ok_code LIKE sy-ucomm.

DATA: inputt1(10),

inputt2(10).

inputt1 = 'TESTT1'.

inputt2 = 'TESTT2'.

p_subscreen = '1001'.

CALL SCREEN 100 .

*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

SET PF-STATUS 'MAIN100'.

SET TITLEBAR 'T100'.

ENDMODULE. " STATUS_0100 OUTPUT

MODULE user_command_0100 INPUT.

CLEAR save_ok.

save_ok = ok_code.

CLEAR ok_code.

CASE save_ok.

WHEN 'B1001_1' OR 'B1004_2'.

p_subscreen = 1003.

WHEN 'B1001_2' OR 'B1004_1'.

p_subscreen = 1002.

WHEN 'B1002_1' OR 'B1003_2'.

p_subscreen = 1004.

WHEN 'B1003_1' OR 'B1002_2'.

p_subscreen = 1001.

WHEN 'BACK'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

** 0100

PROCESS BEFORE OUTPUT.

MODULE status_0100.

CALL SUBSCREEN sub_0100 INCLUDING sy-repid p_subscreen.

PROCESS AFTER INPUT.

MODULE user_command_0100.

CALL SUBSCREEN sub_0100.

**1001

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN sub_1001_1 INCLUDING sy-repid '0200'.

CALL SUBSCREEN sub_1001_2 INCLUDING sy-repid '0300'.

PROCESS AFTER INPUT.

CALL SUBSCREEN sub_1001_1.

CALL SUBSCREEN sub_1001_2.

**1002

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN sub_1002_1 INCLUDING sy-repid '0200'.

PROCESS AFTER INPUT.

CALL SUBSCREEN sub_1002_1.

**1003

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN sub_1003_2 INCLUDING sy-repid '0300'.

PROCESS AFTER INPUT.

CALL SUBSCREEN sub_1003_2.

**1004

PROCESS BEFORE OUTPUT.

* MODULE STATUS_2260.

*

PROCESS AFTER INPUT.

* MODULE USER_COMMAND_2260.

除100屏幕外，其余屏幕类型都是“子屏幕”

http://blog.chinaunix.net/space.php?uid=8527621&do=blog&id=2029843