sap中子屏幕的创建

 一点个人的开发过程给大家分享一下哦，看看我的有缘人有多少吧 ，呵呵。。。。。。。

 

*第一步:  创建程序-->进入程序点击显示对象清单(ctrl+shift+5)
*         将鼠标放置在显示对象清单中的程序名并单击鼠标右键,选择create->screen
*第二步:  第一屏幕的属性设计:          
*           short description-->填写:程序的描述
*           Original language-->默认为:中文(zh)
*           ......
*           重点是在screen type 中选择通常 除上边的第一条需要填写,其他的一般可以使用默认值
*第三步:  屏幕设计:-->点击格式,进入屏幕设计器
*         在该屏幕中必须添加的控件是: 子屏幕范围-->可以自由拖拉,直到设计的大小可以满足自己的需要-->双击该控件:在屏幕属性屏幕中为控件起名称;
*         注释:至于其他的控制根据自己的需求来设计,不如添加一个按钮,根据按钮调用屏幕,这里我将为该屏幕创建一个gui,根据gui中创建的按钮调用子
*              屏幕,在此我只使用了一个子屏幕范围这个控件
*第四步:  创建第二屏,其中第二屏跟创建第一屏幕的方法是相同的,只是在属性部分:scree type部分选择的时候选择自屏幕就可以了.
*         注释:即使这样也是不可以的,必须在第一屏幕的逻辑流中的process before output
*                                                      module satatus_0100.(0100 是我创建屏幕的id号,但是在你创建的时候输入100即可)
*                                      <添加的部分>all subscreen 子屏幕范围控件的名称 including sy-repid ''.<''写创建的子屏幕的屏幕号,也可以传递参数>
*                                      <添加部分2>在module user_command_0100.下添加call cubscreen 子屏幕范围控件的名称.               
*第五步: GUI状态设置:
*
*第六步: 同建屏幕一样,在程序名上单击右键,选择creat-->create status-->在弹出的窗口中对填写状态的名称以及段文本的描述.
*        然后就弹出了一个用户界面信息,选中应用工具条的连拉按钮,在项目1-7这个行中的空白编辑处输入你要添加的按钮的名称 我这里创建的是kmcx
*        双击kmcx选中快捷功能键 这里选中的是f6,然后对function attributes窗口的:函数文本与图标文字这两个文本框输入按钮的描述,点击确定这样就创建好了
*        一个按钮.
*
*一切准备做好了 现在就可以写程序了

*主程序部分:

*&---------------------------------------------------------------------*
*& Report  ZTEST_LI_SCREEN
*&---------------------------------------------------------------------*

REPORT  ZTEST_LI_SCREEN.
*&---------------------------------------------------------------------*
*&   变量的定义
*&---------------------------------------------------------------------*
data: save_code LIKE sy-ucomm,
      sid(4) type n value '200',
      ok_code LIKE sy-ucomm.

call screen '100'.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
 SET PF-STATUS 'ZFIR0044_STATUS'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  save_code = ok_code.
  clear ok_code.
  case save_code.
    when 'BACK' OR 'EXIT' OR 'CANCLE'.
      LEAVE PROGRAM.
**科目余额查询
    when 'KMCX'.
      sid = '200'.
**供应商余额查询
    when 'GYSCX'.
      sid = '300'.
**客户余额查询
    when 'KHCX'.
      sid = '400'.
  endcase.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0200 INPUT.
  case save_code.
    when 'RUN'.
     leave program.
  endcase.
ENDMODULE.                 " USER_COMMAND_0200  INPUT