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

标签：family   popup   convert   tle   ted   ack   ati   title   事件   

在开发中经常会使用到弹出框这个功能，在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.

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

标签：family   popup   convert   tle   ted   ack   ati   title   事件   

原文地址：https://www.cnblogs.com/abapweb/p/11599509.html