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