SAP ABAP 选择屏幕实现标签页

最新推荐文章于 2024-07-10 19:11:05 发布

離歌淺唱半丗殤

最新推荐文章于 2024-07-10 19:11:05 发布

阅读量2.7k

点赞数 1

分类专栏： SAP-ABAP 文章标签： SAP ABAP Selection-Screen

本文链接：https://blog.csdn.net/hugh_Lee/article/details/53018861

版权

本文档展示了如何在SAP ABAP中使用SELECTION-SCREEN创建选择屏幕，并实现标签页功能。通过定义两个子屏幕400和500，以及对应的用户命令按钮，动态切换显示不同内容。在初始化阶段设置了初始标签状态，并在用户输入时根据用户命令进行动态跳转。在选择屏幕的开始和结束部分定义了标签页，并在启动选择阶段根据当前动态编号显示对应的消息。

摘要由CSDN通过智能技术生成

DATA: g_dynnr LIKE sy-dynnr.
SELECTION-SCREEN BEGIN OF SCREEN 400 AS SUBSCREEN.
PARAMETERS p_file1 TYPE tabname.
SELECTION-SCREEN END OF SCREEN  400.

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


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


INITIALIZATION .
  text1 = '标签1'.
  text2 = '标签2'.
  mytab-prog = sy-repid.
  IF g_dynnr = space.
    mytab-dynnr = 400.
    mytab-activetab = 'PUSH1'.
  ELSE.
    mytab-dynnr = g_dynnr.

    IF g_dynnr = '400' .
      mytab-activetab = 'BUT2'.
    ENDIF.
  ENDIF.

AT SELECTION-SCREEN.
  CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'BUT1'.
          mytab-dynnr = 400.
        WHEN 'BUT2'.
          mytab-dynnr = 500.
        WHEN OTHERS.
      ENDCASE.
  ENDCASE.

START-OF-SELECTION.
  CASE mytab-dynnr.
    WHEN 400.
      MESSAGE '400' TYPE 'I'.
    WHEN 500.
      MESSAGE '500' TYPE 'I'.
  ENDCASE.

離歌淺唱半丗殤

关注

1
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
SAP ABAP 选择屏幕实现标签页

DATA: g_dynnr LIKE sy-dynnr.SELECTION-SCREEN BEGIN OF SCREEN 400 AS SUBSCREEN.PARAMETERS p_file1 TYPE tabname.SELECTION-SCREEN END OF SCREEN 400.SELECTION-SCREEN BEGIN OF SCREEN 500 AS SUBSCREEN
复制链接

扫一扫

专栏目录