Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7188989
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2008-11-21 15:54:11

 
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屏幕外,其余屏幕类型都是“子屏幕”
 
 
阅读(5921) | 评论(9) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2009-05-13 15:03:18

调试过了,谢谢分享

chinaunix网友2009-04-09 19:02:54

http://blog.chinaunix.net/u1/40527/showart.php?id=1097110

rogeer2009-04-04 11:50:59

你那个动态换图标是怎么做出来的啊!

chinaunix网友2008-12-27 17:09:03

有N个那样的按钮,你就得做2的N次方个屏幕,ME21N就是这么做出来的

chinaunix网友2008-12-27 17:08:59

有N个那样的按钮,你就得做2的N次方个屏幕,ME21N就是这么做出来的