본문 바로가기

ABAP

POPUP_TO_CONFIRM 팝업 확인 창 띄우기

반응형

POPUP_TO_CONFIRM

  DATA: LV_CHECK  TYPE C,
        LV_ANSWER TYPE C.

  PERFORM POPUP_TO_CONFIRM USING TEXT-P01 TEXT-P02 CHANGING LV_ANSWER.
  IF LV_ANSWER = 1.

  ELSE.
    MESSAGE S009 DISPLAY LIKE 'E'. "취소하였습니다.
    EXIT.
  ENDIF.

*&---------------------------------------------------------------------*
*& Form POPUP_TO_CONFIRM
*&---------------------------------------------------------------------*
FORM POPUP_TO_CONFIRM  USING    PV_TITLE
                                PV_TEXT
                       CHANGING PV_ANSWER.

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TITLEBAR              PV_TITLE
      TEXT_QUESTION         PV_TEXT
      TEXT_BUTTON_1         'YES'
      ICON_BUTTON_1         'ICON_OKAY'
      TEXT_BUTTON_2         'NO'
      ICON_BUTTON_2         'ICON_CANCEL'
      DEFAULT_BUTTON        '1'
      DISPLAY_CANCEL_BUTTON SPACE
    IMPORTING
      ANSWER                PV_ANSWER.

ENDFORM.

 

 

반응형