在開發中經常會使用到彈出框這個功能,在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.