ALV报表——选择屏幕选项卡

ALV选择屏幕选项卡

运行效果：

代码：

*&--------------------------------------------------------------------*
*& REPORT ZQMRTEST
*&--------------------------------------------------------------------*
*&
*&--------------------------------------------------------------------*
REPORT  ZQMRTEST.

TABLES: MARA,QALS,AFPO.

DATA: BEGIN OF GT_DATA OCCURS ,
  PRUEFLOS LIKE QALS-PRUEFLOS,
  MSG TYPE STRING,
END OF GT_DATA.

*-->ALV
TYPE-POOLS SLIS.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
          GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
          WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.
PARAMETERS: P_WERKS LIKE MARC-WERKS DEFAULT '' OBLIGATORY,
                    P_TYPE LIKE QALS-HERKUNFT DEFAULT '' OBLIGATORY,
                    P_MATNR LIKE MARC-MATNR,
                    P_MENGE LIKE QALS-LOSMENGE,
                    P_KDAUF LIKE AFPO-KDAUF,
                    P_KDPOS LIKE AFPO-KDPOS.
SELECTION-SCREEN END OF SCREEN .

SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.
PARAMETERS: P_WERKS2 LIKE MARC-WERKS DEFAULT '' OBLIGATORY,
                    P_TYPE2 LIKE QALS-HERKUNFT DEFAULT '' OBLIGATORY,
                    P_MATNR2 LIKE MARC-MATNR,
                    P_MENGE2 LIKE QALS-LOSMENGE.
SELECTION-SCREEN END OF SCREEN .

"定义一个TAB空间, 取名为MYTAB, 控件高10行, 共分为二个页签.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR  LINES,
  TAB () BUTTON1 USER-COMMAND PUSH1,
  TAB () BUTTON2 USER-COMMAND PUSH2,
END OF BLOCK MYTAB.

************************************************************************
* INITIALIZATION
************************************************************************
"为TAB控件分配初始化值
INITIALIZATION.
  BUTTON1 = TEXT-.
  BUTTON2 = TEXT-.
  MYTAB-PROG = SY-REPID.
  MYTAB-DYNNR = .

************************************************************************
* AT SELECTION SCREEN
************************************************************************
  "为控件页签单击事件, 选择不同页签显示不同子屏幕.
AT SELECTION-SCREEN.
  CASE SY-UCOMM.
    WHEN 'PUSH1'.
      MYTAB-DYNNR = .
      MYTAB-ACTIVETAB = 'BUTTON1'.
    WHEN 'PUSH2'.
      MYTAB-DYNNR = .
      MYTAB-ACTIVETAB = 'BUTTON2'.
  ENDCASE.

  "处理各个屏幕的触发

************************************************************************
* AT SELECTION SCREEN OUTPUT
************************************************************************
AT SELECTION-SCREEN OUTPUT.

************************************************************************
* REPORT FORMAT
************************************************************************
TOP-OF-PAGE.

END-OF-PAGE.
************************************************************************
* MAIN PROCESS
************************************************************************
START-OF-SELECTION.

END-OF-SELECTION.

补充：若是想要按不同屏幕执行PERFORM，可在START-OF-SELECTION处增加如下代码

START-OF-SELECTION.
  CASE MYTAB-DYNNR.
    WHEN '100'.
      WRITE 1.
*  PERFORM get_data.
*  PERFORM display_data.
    WHEN '200'.
      WRITE 2.
*  PERFORM get_data2.
*  PERFORM display_data2.
  ENDCASE.
END-OF-SELECTION.

原文：https://www.cnblogs.com/mingdashu/p/6824161.html