弹出确认窗口

  DATA:
   gv_title     TYPE char40,
   gv_txt_qa    TYPE char40,
   gv_txt_bn1   TYPE char4,
   gv_txt_bn2   TYPE char4,
   gv_answer    TYPE char01.
 
  "调用时  
  gv_title =  '保存数据确认'.
  gv_txt_qa =  '是否保存数据'.   
   
   PERFORM cofirm_action  USING gv_title
                              gv_txt_qa
                              gv_txt_bn1
                              gv_txt_bn2
                         CHANGING gv_answer.
   IF gv_answer =  '1'.  "是  
   ENDIF. 
      
*&---------------------------------------------------------------------*
*&      Form  COFIRM_ACTION
*&---------------------------------------------------------------------*
*     确认动作
*----------------------------------------------------------------------*
*      --&gtP_TITLE  text
*      --&gtP_TXT_QA  text
*      --&gtP_TXT_BN1  text
*      --&gtP_GV_TXT_BN2  text
*----------------------------------------------------------------------*
FORM cofirm_action   USING   p_title    TYPE  c
                             p_txt_qa   TYPE  c
                             p_txt_bn1  TYPE  c
                             p_txt_bn2  TYPE  c
                    CHANGING p_answer  TYPE  c.
   CALL  FUNCTION  'POPUP_TO_CONFIRM'
     EXPORTING
       titlebar              = p_title
      text_question         = p_txt_qa
      text_button_1         = p_txt_bn1
      text_button_2         = p_txt_bn2
      display_cancel_button =  ''
      start_column          =  '65'
     IMPORTING
      answer                = p_answer
     EXCEPTIONS
      text_not_found        =  1
       OTHERS                =  2.
   IF sy-subrc <>  0.
    p_answer =  '2'.  "否
   ENDIF.
ENDFORM.                     " COFIRM_ACTION

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/25465231/viewspace-714865/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/25465231/viewspace-714865/