赛跑网

 找回密码
 注册

QQ登录

只需一步,快速开始

快捷登录

查看: 3689|回复: 22

35,ABAP语法之选择屏幕(一)

[复制链接]
发表于 2015-9-6 21:37:35 | 显示全部楼层 |阅读模式
对于ABAP报表类型程序来说,选择屏幕是用户和系统交互的主要媒介。选择屏幕通常有以下几种类型,以下是供参考的代码。
屏幕执行效果如下图:
屏幕1.png
代码如下:
REPORT  z_screen_01.

*--200作为第二个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN SKIP.
PARAMETERS: tab1_01 TYPE c LENGTH 10,
            tab1_02 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.

*--200作为第二个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN SKIP.
PARAMETERS: tab2_01 TYPE c LENGTH 10,
            tab2_02 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.

*--将子屏幕存放到页签mytab中,
*--随着页签的mytab的建立,系统自动创建一个名称为MYTAB的变量,用于控制页签的当前子屏幕
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 5 LINES,
*--两个页签分别为button1  button2 并指定响应事件的功能码 push1 push2
                   TAB (20) button1 USER-COMMAND push1,
                   TAB (20) button2 USER-COMMAND push2,
                   END OF BLOCK mytab.

INITIALIZATION.

  button1 = 'TAB1'.
  button2 = 'TAB2'.
  mytab-prog = sy-repid.
  "初始化页签的当前显示页
  mytab-dynnr = 100.
  mytab-activetab = 'PUSH1'.

AT SELECTION-SCREEN.
  "在选择屏幕中,单击页签时刷新屏幕
  CASE sy-ucomm.
    WHEN 'PUSH1'.
      mytab-dynnr = 100.
    WHEN 'PUSH2'.
      mytab-dynnr = 200.
    WHEN OTHERS.
      ...
  ENDCASE.

START-OF-SELECTION.

  WRITE mytab-dynnr.
这类选择屏幕用处不多,不过可以收藏以备不时之需!

最近访客

  • tbb1177
    2024-01-16
  • AlbertJ.
    2020-07-20




上一篇:34,ABAP语法之SM30扩展
下一篇:36,ABAP语法之选择屏幕(二)
本楼点评(0) 收起
发表于 2015-11-22 18:46:29 | 显示全部楼层
源是必须的,但是供应商主数据也不是必须的。
4,采购订单是必须的,采购申请不是必须的。这个很容易理解,很多采购其实是直接采购的不需要进行申请
5,MM采购的集成点在 采购入库,发票校验 2个步骤, 根据业务的不同,配置的不同, 入库有也不是必须的。当然发票也可以不必须。 我建议每一个学员都

本楼点评(1) 收起
发表于 2016-2-28 10:36:36 | 显示全部楼层
111111111111111111111111111111111111111111111111111111111111
本楼点评(0) 收起
发表于 2016-4-9 08:05:57 | 显示全部楼层
今晚不上课
本楼点评(0) 收起
高级模式
B Color Image Link Quote Code Smilies |上传

本版积分规则

小黑屋|联系我们|赛跑网 ( QQ:108519493QQfsq

GMT+8, 2024-3-29 21:02 , Processed in 0.241234 second(s), 61 queries .

Powered by 91SAP X3.4

© 2001-2023 91sap Team.

快速回复 返回顶部 返回列表