如何做出类似ME21N的折叠屏幕
2012-09-04 09:08
369 查看
如何做出类似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
分类: 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
相关文章推荐
- 如何做出类似ME21N的折叠屏幕
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- 如何设计折叠样式的屏幕(类似MIGO的屏幕)
- UIImageView 如何实现windows 桌面类似的背景壁纸屏幕(很小的图片会显示N多个)?
- 如何实现当一个应用调用另一个应用的某个activity的时候,让这个activity类似dialog的效果,但是这个应用单独运行的时候还是铺满屏幕的效果
- ABAP屏幕开发 - 设计折叠样式的屏幕(类似MIGO或ME23N的屏幕)
- 如何设计折叠屏幕
- 如何实现类似KTV中屏幕歌词显示
- 如何在IOS设备中去掉屏幕上的status bar
- 如何把某个表字段对应的search help引用到自定义的屏幕字段中
- iOS 如何在整个屏幕中都能实现滑动返回的效果
- 如何用VC60实现类似windows搜索文件的功能,针对文件夹中包含的文件名进行模糊查
- 如何获取当前屏幕状态?左横屏 右横屏 竖屏
- 如何截取屏幕图片并把它在内存中转化成jpg