ABAP分享一 彈出框函數的簡單示例


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


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM