ABAP confirm box 例子

最新推荐文章于 2024-07-08 09:19:03 发布

原创最新推荐文章于 2024-07-08 09:19:03 发布 · 742 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#button #parameters #report #function #object

ABAP 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一个 ABAP 程序中实现弹窗确认框的具体方法，包括定义参数、调用函数并处理返回结果的过程。通过该方法可以有效地获取用户的确认选择，并根据返回值进行后续操作。

REPORT ztest_cofirm_box.

DATA: gv_answer TYPE char1.

PARAMETERS: p_ttl TYPE char20,
p_quest TYPE char50.

START-OF-SELECTION.

PERFORM confirm_box USING p_ttl
p_quest
CHANGING gv_answer.
CASE gv_answer.
WHEN '1'.
WRITE: / 'YES'.
WHEN '2'.
WRITE: / 'NO'.
WHEN 'A'.
WRITE: / 'CANC'.
WHEN OTHERS.
WRITE: / 'ERROR'.
ENDCASE.

*&---------------------------------------------------------------------*
*& Form confirm_box
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_TITLE text
* -->P_P_QUESTION text
* -->P_GV_ANSWER text
*----------------------------------------------------------------------*
FORM confirm_box USING p_p_title TYPE char20
p_p_question TYPE char50
CHANGING p_gv_answer TYPE char1.

CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = p_p_title
* DIAGNOSE_OBJECT =
text_question = p_p_question
text_button_1 = 'YES'
icon_button_1 = 'ICON_OKAY'
text_button_2 = 'NO'
* ICON_BUTTON_2 =
* DEFAULT_BUTTON =
display_cancel_button = 'X'
* SERDEFINED_F1_HELP =
start_column = 25
start_row = 6
* POPUP_TYPE =
* IV_QUICKINFO_BUTTON_1 =
* IV_QUICKINFO_BUTTON_2 =
IMPORTING
answer = p_gv_answer
* TABLES =
* PARAMETER =
EXCEPTIONS
text_not_found = 1
OTHERS = 2.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM.