ABAP分享一 弹出框函数的简单示例

在开发中经常会使用到弹出框这个功能，在SAP中有很多函数可以实现类似的功能，这里介绍一个比较简单常用的函数  POPUP_TO_CONFIRM

下面是一个实现的简单示例：

TABLES sscrfields.

DATA: qus TYPE string,    
      ans TYPE c.    " 根据用户的操作会有三个值   1   是   ，  2   否  ，  A   取消

SELECTION-SCREEN:BEGIN OF BLOCK abs WITH FRAME TITLE TEXT-001,

PUSHBUTTON 2(20)  but1 USER-COMMAND cli1,   "定义一个按钮当点击按钮时会弹出弹出框

END OF BLOCK abs.

INITIALIZATION.

but1 = '点击后会有弹出框'.

AT SELECTION-SCREEN.

CASE sscrfields-ucomm.   "当用户点击按钮后会触发AT SELECTION-SCREEN事件，并且function code fcode会存储到sscrfields-ucomm字段中。
    WHEN 'CLI1'.
      qus = '确定吗'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'   "弹出框函数  POPUP_TO_CONFIRM 
        EXPORTING
          text_question = qus
        IMPORTING
          answer        = ans.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      CASE ans.
        WHEN '1'.
          MESSAGE '您点击的是确定按钮' TYPE 'S'.
        WHEN '2'.
           MESSAGE '您点击的是否按钮' TYPE 'S'.
        WHEN OTHERS.
          MESSAGE '您点击的是取消按钮' TYPE 'S'.
      ENDCASE.
  ENDCASE.