POPUP_TO_CONFIRM 弹出框

SAP abap function: POPUP_TO_CONFIRM 弹出框

2012-09-03 10:21  126人阅读  评论(0)  收藏  举报

CALL FUNCTION 'POPUP_TO_CONFIRM' "Standard Dialog Popup
  EXPORTING
*   titlebar = SPACE            "               Title of dialog box
*   diagnose_object = SPACE     " dokhl-object  Diagnosis text (maintain via SE61)
    text_question =             "               Question text in dialog box
*   text_button_1 = 'Ja'(001)   "               Text on the first pushbutton
*   icon_button_1 = SPACE       " icon-name     Icon on first pushbutton
*   text_button_2 = 'Nein'(002)  "              Text on the second pushbutton
*   icon_button_2 = SPACE       " icon-name     Icon on second pushbutton
*   default_button = '1'        "               Cursor position
*   display_cancel_button = 'X'  "              Button for displaying cancel pushbutton
*   userdefined_f1_help = SPACE  " dokhl-object  User-Defined F1 Help
*   start_column = 25           " sy-cucol      Column in which the POPUP begins
*   start_row = 6               " sy-curow      Line in which the POPUP begins
*   popup_type =                " icon-name     Icon type
*   iv_quickinfo_button_1 = SPACE  " text132    Quick Info on First Pushbutton
*   iv_quickinfo_button_2 = SPACE  " text132    Quick Info on Second Pushbutton
  IMPORTING
    answer =                    "               Return values: '1', '2', 'A'
* TABLES
*   parameter =                 " spar          Text transfer table for parameter in text
  EXCEPTIONS
    TEXT_NOT_FOUND = 1          "               Diagnosis text not found

    OTHERS = 2
    .  "  POPUP_TO_CONFIRM

-------------------------------------------------------------------------------------------------

CALL FUNCTION 'POPUP_TO_CONFIRM'
               EXPORTING
                    titlebar      =         'Warning Message' 
                    text_question =    'Cumulative credit check for non ret order'

                       text_button_1               = 'Yes'
                       text_button_2               = 'No'
                       default_button              = '2'
                       display_cancel_button       = ''
               IMPORTING
                      answer                      = zz_answer
               EXCEPTIONS
                      text_not_found              = 1
                      OTHERS                      = 2.

          CASE zz_answer.
            WHEN '1'.
*              Process further checks
            WHEN '2'.
              SET SCREEN 0.
              LEAVE TO  SCREEN 4001.

            WHEN OTHERS.
*              N/a
          ENDCASE.
-------------------------------------------------------------------------------------------
CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
    
    
    
    

     
     
     
     
  TITLEBAR                    = ' '
     
     
     
     
  DIAGNOSE_OBJECT             = ' '
    
    
    
    
    text_question               =
 
  TEXT_BUTTON_1               = 'Ja'(001)
  ICON_BUTTON_1               = 'X'
 
    
    
    
    

     
     
     
     
  TEXT_BUTTON_2               = 'Nein'(002)
     
     
     
     
  ICON_BUTTON_2               = ' '
     
     
     
     
  DEFAULT_BUTTON              = '1'
     
     
     
     
  DISPLAY_CANCEL_BUTTON       = 'X'
     
     
     
     
  USERDEFINED_F1_HELP         = ' '
     
     
     
     
  START_COLUMN                = 25
     
     
     
     
  START_ROW                   = 6
     
     
     
     
  POPUP_TYPE                  =
     
     
     
     
  IV_QUICKINFO_BUTTON_1       = ' '
     
     
     
     
  IV_QUICKINFO_BUTTON_2       = ' '
     
     
     
     
IMPORTING
     
     
     
     
  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.


http://blog.csdn.net/justicezhengyi/article/details/7936568