SAP-abap学习记录（22）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_22
*&
*&---------------------------------------------------------------------*
*&分页屏幕
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_22.

TABLES: mara.

**定义第一个屏幕，名100
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
  SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
    SELECT-OPTIONS: MAT1 FOR MARA-MATNR NO INTERVALS.
    SELECTION-SCREEN SKIP.
    PARAMETERS: CHK1 AS CHECKBOX DEFAULT 'X'.
  SELECTION-SCREEN END OF BLOCK A1.
SELECTION-SCREEN END OF SCREEN 100.

**定义第二个子屏幕200
SELECTION-SCREEN BEGIN OF SCREEN 200 as SUBSCREEN.
  PARAMETERS: mat2 LIKE mara-matnr.
SELECTION-SCREEN END OF SCREEN 200.

**定义一个tab空间，取名MYTAB，控件高5，分两个选项卡button1和button2
*两个选项卡的功能代码分别为push1，和push2
SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR 5 LINES,
                    TAB (20) BUTTON1 USER-COMMAND PUSH1,
                    TAB (20) BUTTON2 USER-COMMAND PUSH2,
                  END OF BLOCK MYTAB.

**为TAB控件选项卡分配初始化值，应用text element定义文本
INITIALIZATION.
    button1 = TEXT-010.
    button2 = TEXT-020.
    MYTAB-PROG = SY-REPID.
    MYTAB-DYNNR = 100.

*    TAB控件选项卡单击事件
AT SELECTION-SCREEN.
  CASE SY-UCOMM.
    WHEN 'PUSH1'.
      MYTAB-DYNNR = 100.
      MYTAB-ACTIVETAB = 'BUTTON1'.
    WHEN 'PUSH2'.
      MYTAB-DYNNR = 200.
      MYTAB-ACTIVETAB = 'BUTTON2'.
  ENDCASE.