关闭

ABAP选择屏幕页标签的复习

1185人阅读 评论(1) 收藏 举报
分类:
*&---------------------------------------------------------------------*
*& Report  ZTEST_TAB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_TAB.
TABLES MARA.
                                                            "定义子屏幕 100
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECT-OPTIONSS_FG1 FOR MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECT-OPTIONSS_FG2 FOR MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
SELECT-OPTIONSS_RAW FOR MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 300.

"定义一个TAB空间, 取名为MYTAB, 控件高2行, 共分为三个页签.
"三个页签的功能代码分别为push1, push2, push3.
SELECTION-SCREENBEGIN OF TABBED BLOCK MYTAB FOR LINES,
  TAB (25BUTTON1 USER-COMMAND PUSH1,
  TAB (25BUTTON2 USER-COMMAND PUSH2,
  TAB (25BUTTON3 USER-COMMAND PUSH3,
END OF BLOCK MYTAB.

"为TAB控件分配初始化值

INITIALIZATION.
  BUTTON1 TEXT-010.
  BUTTON2 TEXT-020.
  BUTTON3 TEXT-030.
  MYTAB-PROG SY-REPID.
  MYTAB-DYNNR 100.

  "为控件页签单击事件, 选择不同页签显示不同子屏幕.

AT SELECTION-SCREEN.
  CASE SY-UCOMM.
    WHEN 'PUSH1'.
      MYTAB-DYNNR 100.
      MYTAB-ACTIVETAB 'BUTTON1'.
    WHEN 'PUSH2'.
      MYTAB-DYNNR 200.
      MYTAB-ACTIVETAB 'BUTTON2'.
    WHEN 'PUSH3'.
      MYTAB-DYNNR 300.
      MYTAB-ACTIVETAB 'BUTTON3'.
  ENDCASE.

  "处理各个屏幕的触发

START-OF-SELECTION.
  IF MYTAB-DYNNR 100.
*    PERFORM GET_FG1.
  ELSEIF MYTAB-DYNNR 200.
*    PERFORM GET_FG2.
  ELSEIF MYTAB-DYNNR 300.
*    PERFORM GET_MATNR.
  ENDIF.
0
0
查看评论
发表评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场

SAP ABAP 选择屏幕实现标签页

DATA: g_dynnr LIKE sy-dynnr. SELECTION-SCREEN BEGIN OF SCREEN 400 AS SUBSCREEN. PARAMETERS p_file1 T...
  • hugh_Lee
  • hugh_Lee
  • 2016-11-03 10:24
  • 966

abap多标签页实现(tabstrip)

如图: 可以通过画屏幕即call screen或者纯代码实现。以下代码为纯代码实现方式 data flag(1) type c. * SUBSCREEN 1 selection-sc...
  • donkey2004112103
  • donkey2004112103
  • 2009-08-24 14:55
  • 2629

ABAP页签创建

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN. PARAMETERS: p1 TYPE c LENGTH 10,           &...
  • yandong_song
  • yandong_song
  • 2012-08-14 09:34
  • 778

ABAP实战屏幕SCREEN设计(二)

屏幕(SCREEN)是ABAP设计最重要的工作之一,SAP的单据、主数据维护等业务功能都使用屏幕,一个程序可以包含多个屏幕。 上一篇博文“ABAP实战屏幕SCREEN设计(一)”主要介绍了以下内容: ...
  • Jay_1989
  • Jay_1989
  • 2016-06-15 10:23
  • 13245

选择屏幕-实现页签选择的效果

在R3中做的一个简单的例子,代码如下: *&-------------------------------------------...
  • SAPHOME
  • SAPHOME
  • 2008-01-08 11:13
  • 849

简单的Dialog开发步骤(类ME23N的PO功能)

本例实现的功能是:运行程序之后,点击按钮之后,可以弹出一个screen,然后
  • zzj_rainbow
  • zzj_rainbow
  • 2014-05-26 15:59
  • 2351

ABAP标准列表和选择屏幕

标准列表输出 REPORT YTEST20160527. *定义结构 DATA:BEGIN OF SCHOOL, CITY TYPE YTJAYCITY-YCT_NAME, NO TYPE ...
  • Jay_1989
  • Jay_1989
  • 2016-06-07 17:49
  • 2506

ABAP 如何控制Dialog中的键盘(回车)功能

ABAP 如何控制Dialog中的键盘(回车)功能
  • SAPmatinal
  • SAPmatinal
  • 2015-01-23 22:42
  • 1818

ABAP 查询屏幕标签页搜索条件

  • 2016-01-18 16:48
  • 13KB
  • 下载

ABAP选择屏幕建议

选择屏幕是用户使用报表等大多数程序的第一步,选择屏幕的显示、操作非常丰富,看似简单,但是若不加以统一,一个项目中的程序将会是五花八门。为了改进用户体验,我在写程序的第一部,规范了选择屏幕的定义,设想如...
  • zhongguomao
  • zhongguomao
  • 2011-11-14 13:14
  • 2108
    个人资料
    • 访问:4374093次
    • 积分:62180
    • 等级:
    • 排名:第47名
    • 原创:1739篇
    • 转载:2520篇
    • 译文:101篇
    • 评论:329条
    博客专栏
    最新评论
    微信公众号
      为你推荐最新的博文~更有惊喜等着你