ABAP多标签选择屏幕的使用

最新推荐文章于 2025-01-27 18:11:08 发布

原创

最新推荐文章于 2025-01-27 18:11:08 发布 · 1.9k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP

这篇博客介绍了如何在ABAP中创建并使用多标签选择屏幕。通过示例代码展示了如何定义子屏幕，并将它们合并到一个TAB块中，以及处理用户命令在不同屏幕间切换。在初始化和屏幕输出事件中，进行了屏幕状态的管理和消息显示。

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

REPORT zzzzz.

DATA: g_dynnr LIKE sy-dynnr.  "当前屏幕的编号

"定义两个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS p_file TYPE tabname.
SELECTION-SCREEN END OF SCREEN  100.

SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
PARAMETERS p_file2 TYPE tabname.
SELECTION-SCREEN END OF SCREEN 300.

"将两个屏幕合并到TAB里面
"类似于通常的BEGIN OF BLOCK
"SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE title1.

SELECTION-SCREEN  BEGIN OF TABBED BLOCK mytab FOR 11 LINES.
SELECTION-SCREEN  TAB (20) text1 USER-COMMAND but1.
SELECTION-SCREEN  TAB (20) text2 USER-COMMAND but2.
SELECTION-SCREEN END OF BLOCK mytab.

INITIALIZATION .
  text1 ='ONE'.
  text2 ='TWO'.

  mytab-prog = sy-repid.

"初始化屏幕0100
IF g_dynnr = space.
    mytab-dynnr =100.
    mytab-activetab ='BUT1'.
ENDIF.

AT SELECTION-SCREEN.          "PAI
  CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'BUT1'.
          mytab-dynnr =100.
        WHEN 'BUT2'.
          mytab-dynnr =300.