SAP_ABAP_选择屏幕中实现子屏幕功能_TABSTRIP_标签页

湖东

于 2014-06-13 17:27:44 发布

阅读量2k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： SAP_选择屏幕文章标签：选择屏幕子屏幕 TABSTRIP 标签页

本文链接：https://blog.youkuaiyun.com/linmingqiang506/article/details/30507169

SAP_选择屏幕专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个ABAP程序示例，展示了如何使用子屏幕和选项卡块来构建用户界面。通过PARAMETERS定义了输入字段，并通过TABBED BLOCK实现了不同选项卡之间的切换，每个选项卡对应不同的子屏幕，提供了丰富的交互体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、效果：

wmd wmd

二、代码：

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blk01 WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE t001w-werks.
SELECTION-SCREEN END OF BLOCK blk01.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blk02 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE t001-bukrs.
SELECTION-SCREEN END OF BLOCK blk02.
SELECTION-SCREEN END OF SCREEN 200.

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.

INITIALIZATION.
  button1 = 'TAB1'.
  button2 = 'TAB2'.
  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'.
  ENDCASE.