首页 > 其他 > 详细

给Tab分配一个子屏幕,分配的方式有动态分配与静态分配

时间:2019-11-08 10:17:46      阅读:92      评论:0      收藏:0      [点我收藏+]

*-----------------------------------------------------------------------------------

*动态方式分配

*-----------------------------------------------------------------------------------

TABLES SSCRFIELDS.

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

  PARAMETERS: P1 TYPE C LENGTH 10,
              P2 TYPE C LENGTH 10,
              P3 TYPE C LENGTH 10.

SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

  PARAMETERS: Q1 TYPE C LENGTH 10,
              Q2 TYPE C LENGTH 10,
              Q3 TYPE C LENGTH 10.

SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREENBEGIN OF TABBED BLOCK MYTAB FOR 10 LINES,

                  TAB (20) BUTTON1 USER-COMMAND PUSH1,
                  TAB (20) BUTTON2 USER-COMMAND PUSH2,
                  END OF BLOCK MYTAB.

INITIALIZATION.
  BUTTON1 ‘SELECTION SCREEN 1‘.
  BUTTON2 ‘SELECTION SCREEN 2‘.

  MYTAB-PROG      = SY-REPID.
  MYTAB-DYNNR     100.
  MYTAB-ACTIVETAB ‘PUSH1‘.

AT SELECTION-SCREEN.
  CASE SY-DYNNR.
    WHEN 1000.
      CASE SY-UCOMM.
        WHEN ‘PUSH1‘.
          MYTAB-DYNNR 100.
        WHEN ‘PUSH2‘.
          MYTAB-DYNNR 200.
      ENDCASE.
  ENDCASE.

*-----------------------------------------------------------------------------------

*静态方式分配

*-----------------------------------------------------------------------------------

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

  PARAMETERS: P1 TYPE C LENGTH 10,
              P2 TYPE C LENGTH 10,
              P3 TYPE C LENGTH 10.

SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

  PARAMETERS: Q1 TYPE C LENGTH 10,
              Q2 TYPE C LENGTH 10,
              Q3 TYPE C LENGTH 10.

SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREENBEGIN OF TABBED BLOCK MYTAB FOR 10 LINES,

  TAB (20) BUTTON1 USER-COMMAND PUSH1
                   DEFAULT SCREEN 100,

  TAB (20) BUTTON2 USER-COMMAND PUSH2
                   DEFAULT SCREEN 200,

END OF BLOCK MYTAB.

INITIALIZATION.
  BUTTON1 ‘SELECTION SCREEN 1‘.
  BUTTON2 ‘SELECTION SCREEN 2‘.

给Tab分配一个子屏幕,分配的方式有动态分配与静态分配

原文:https://www.cnblogs.com/RinShow/p/11818414.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!