SELECTION-SCREEN AS window

chuzhaowei

于 2011-01-19 09:02:00 发布

阅读量540

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/chuzhaowei/article/details/6151500

SAP-ABAP 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一个使用ABAP编程语言创建包含四个按钮的选择屏幕的示例。每个按钮都有相应的用户命令，点击后会触发不同的响应并显示点击了哪个按钮。

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

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.

initialization.
  TIT  = 'Four Buttons' .
  BUT1 = 'Button 1' .
  BUT3 = 'Button 3' .

  CALL SELECTION-SCREEN 500 STARTING AT 60 10.

AT SELECTION-SCREEN.

  CASE SSCRFIELDS.
    WHEN 'CLI1' .
      FLAG = '1' .
    WHEN 'CLI2' .
      FLAG = '2' .
    WHEN 'CLI3' .
      FLAG = '3' .
    WHEN 'CLI4' .
      FLAG = '4' .
  ENDCASE.

START-OF-SELECTION.
  write / SSCRFIELDS-UCOMM.
  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.