abap选择屏幕上的button

最新推荐文章于 2024-10-17 12:14:02 发布

转载最新推荐文章于 2024-10-17 12:14:02 发布 · 720 阅读

本文介绍了一个实用的ABAP示例，在SAP系统的选择屏幕上通过弹出包含多个按钮的小窗体来处理不同的事务。文章提供了完整的代码实现，并解释了如何根据不同按钮的选择执行相应的操作。

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

1、背景：近期在看sap的一些abapDemo，看了一个比較好用的功能。分享一下。希望对用到的兄弟有帮助，主要功能是：在选择屏幕上弹出一个小窗体。放一些button在上面，触发不同button，会处理不同事务。例如以下图所看到的：

2、代码例如以下：

REPORT ZTEST_SEL_SCREEN_PUSHBUTTON.

TABLES SSCRFIELDS.

DATA FLAG(1) TYPE C.

SELECTION-SCREEN:
  BEGIN OF SCREEN 500 AS WINDOW TITLE TIT,
    BEGIN OF LINE,
      PUSHBUTTON 2(10) BUT1 USER-COMMAND CLI1,
      PUSHBUTTON 12(10) TEXT-020 USER-COMMAND CLI2,
    END OF LINE,
    BEGIN OF LINE,
      PUSHBUTTON 2(10) BUT3 USER-COMMAND CLI3,
      PUSHBUTTON 12(10) TEXT-040 USER-COMMAND CLI4,
    END OF LINE,
  END OF SCREEN 500.

AT SELECTION-SCREEN.

  MESSAGE I888(SABAPDEMOS) WITH TEXT-001 SSCRFIELDS-UCOMM.
  CASE SSCRFIELDS-UCOMM.
    WHEN 'CLI1'.
      FLAG = '1'.
    WHEN 'CLI2'.
      FLAG = '2'.
    WHEN 'CLI3'.
      FLAG = '3'.
    WHEN 'CLI4'.
      FLAG = '4'.
  ENDCASE.

START-OF-SELECTION.

  TIT  = 'FOUR BUTTONS'.
  BUT1 = 'BUTTON 1'.
  BUT3 = 'BUTTON 3'.

  CALL SELECTION-SCREEN 500 STARTING AT 10 10.

  CASE FLAG.
    WHEN '1'.
      WRITE / 'BUTTON 1 WAS CLICKED'.
    WHEN '2'.
      WRITE / 'BUTTON 2 WAS CLICKED'.
    WHEN '3'.
      WRITE / 'BUTTON 3 WAS CLICKED'.
    WHEN '4'.
      WRITE / 'BUTTON 4 WAS CLICKED'.
    WHEN OTHERS.
      WRITE / 'NO BUTTON WAS CLICKED'.
  ENDCASE.