SAP-abap学习记录（21）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_21
*&
*&---------------------------------------------------------------------*
*&定义按钮
*&
*&---------------------------------------------------------------------*
REPORT ztest_abap_21.

TABLES SSCRFIELDS."引用词典对象
INCLUDE:<icon>.  "按钮中加入图标必须调用该类型库,图标请参考T-CODE：ICON
SELECTION-SCREEN PUSHBUTTON /1(20) pubu1 USER-COMMAND abcd.
SELECTION-SCREEN SKIP."换行
SELECTION-SCREEN PUSHBUTTON /1(20) pubu2 USER-COMMAND abce. "位置从10开始

SELECTION-SCREEN BEGIN OF SCREEN 1234 as WINDOW TITLE text-a01.
  PARAMETERS: matnr LIKE mara-matnr.
  PARAMETERS: type as CHECKBOX.
SELECTION-SCREEN END OF SCREEN 1234.

AT SELECTION-SCREEN OUTPUT.
  MOVE 'CALL NEXT SCREEN' TO pubu1. "给PUBU1按钮赋值描述

  WRITE icon_okay AS ICON TO pubu2. "给PUBU2按钮添加图标，并且在给按钮赋值之前，否则将会把文字替换。

  CONCATENATE pubu2 'My Second Button' INTO pubu2 SEPARATED BY space. "给第二个按钮添加赋值描述

AT SELECTION-SCREEN.
     IF SSCRFIELDS-UCOMM = 'ABCD'.  "按钮点击事件
       CALL SELECTION-SCREEN 1234.  "调用程序中的另一个窗体
    ENDIF.