少年休闲海

少年休闲海的SAP世界

ABAP选择屏幕页标签的复习
*&---------------------------------------------------------------------*
*& 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.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/zhongguomao/article/details/46801171
个人分类: 程序人生 ABAPer
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

ABAP选择屏幕页标签的复习

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭