弹出对话框

方法1：

  WHEN '102'.
    call function 'POPUP_TO_CONFIRM_STEP'
       exporting
*     DEFAULTOPTION        = 'Y'
       TEXTLINE1           = 'Note:Yes will write data to scrap table.'
       TEXTLINE2           =
       'No/Cancel to reverse 101 GR,Not write scrap table!'
       titel               = 'Please Confirm Scrap or GR Cancellation.'
*     START_COLUMN         = 25
*     START_ROW            = 6
*     CANCEL_DISPLAY       = 'X'
     IMPORTING
       ANSWER               = X_ANS.

    if X_ANS EQ 'J' .  "if anser Yes
      WA-SCP_IND = 'RTV'.
      TRY.
        INSERT INTO ZMMSCRAP VALUES WA.
      CATCH CX_ROOT INTO OREF.
        TEXT = OREF->GET_TEXT( ).
        MESSAGE TEXT TYPE 'E'.
      ENDTRY.
    endif.

 

方法2：

CALL FUNCTION 'LC_POPUP_TO_CONFIRM_STEP'

       EXPORTING
         DEFAULTOPTION = 'N' 

      TEXTLINE1     = 'Do You Want To delete Model?'
         TEXTLINE2     = ' '
         TITEL         = 'Confirm Information'
       IMPORTING
         ANSWER        = ANSWER
       EXCEPTIONS
         OTHERS        = 1.

if ANSWER = 'J'.

del_data.

else.

save_data.

endif.

 

方法3：

REPORT  ZCONFIRMTC  .
data X_ANS .
CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
   TITLEBAR                    = '--->T&C Print Confirmation<--'
*   DIAGNOSE_OBJECT             = ' '
    TEXT_QUESTION               =
         'Choose Print EN or ZH T&C,Cancel not print T&C !'
   TEXT_BUTTON_1               = 'Print EN T&C'
   ICON_BUTTON_1               = 'ICON_PRINT'
   TEXT_BUTTON_2               = 'Print ZH T&C'
   ICON_BUTTON_2               = 'ICON_SYSTEM_PRINT'
   DEFAULT_BUTTON              = '1'
   DISPLAY_CANCEL_BUTTON       = 'X'
*   USERDEFINED_F1_HELP         = ' '
   START_COLUMN                = 25
   START_ROW                   = 8
*   POPUP_TYPE                  =
 IMPORTING
   ANSWER                      = X_ANS
* TABLES
*   PARAMETER                   =
 EXCEPTIONS
   TEXT_NOT_FOUND              = 1
   OTHERS                      = 2
          .
case X_ANS .
   when '1'.
     message i001(00)  with 'You have chosen print English T&C!' .
   when '2'.
     message i001(00)  with 'You have chosen print Chinese T&C !'.
   when 'A' .
     message i001(00)  with 'You have cancelled Print T&C!'.
   when others.  
endcase.