ABAP 程序 confirmOverwrite

*/----------------------confirmOverwrite------------------------------\
form confirmOverwrite  using l_objInfo  type string
                    changing l_answer  type flag .

data l_message  type string .
data l_title  type string .

   clear l_answer .
  l_title  =  'Overwrite confirm. Proceed with CAUTION!' .

   concatenate  'You have selected to overwrite originals.'
    l_objinfo  'will be overwritten. Are you sure?'
     into l_message  separated  by space .

   CALL  FUNCTION  'POPUP_TO_CONFIRM'
     EXPORTING
       TITLEBAR                     = l_title
      text_question                = l_message
      TEXT_BUTTON_1                =  'Yes'
      TEXT_BUTTON_2                =  'Yes to all'
      DEFAULT_BUTTON               =  '1'
      DISPLAY_CANCEL_BUTTON        =  'X'
     IMPORTING
      ANSWER                       = l_answer
             .
endform .
*\--------------------------------------------------------------------/

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

转载于:http://blog.itpub.net/74753/viewspace-2143991/