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

<style></style>

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

 

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

<style></style>

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.

<style></style>
上一篇:c# 字符串递归截取


下一篇:gym101666题解