码迷,mamicode.com
首页 > 其他好文 > 详细

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

时间:2019-09-27 19:31:47      阅读:121      评论:0      收藏:0      [点我收藏+]

标签: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

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!