*--下载PDF


perform put_merged_file using merged_document.

form put_merged_file using merged_document type xstring.

  data: bin_tab type standard table of tabl1024.

  data: lo_gui type ref to cl_gui_frontend_services.

  data: path     type string, fullpath type string.

  data: length type i.

  data: filter type string, uact type i, name type string.

  DATA:cmd(2000) type c.

  create object lo_gui.

  call function 'SCMS_XSTRING_TO_BINARY'

    exporting

      buffer        = merged_document

    importing

      output_length = length

    tables

      binary_tab    = bin_tab.

  call method lo_gui->file_save_dialog

    exporting

      default_extension = 'pdf'

      default_file_name = 'merged.pdf'

      file_filter       = filter

    changing

      filename          = name

      path              = path

      fullpath          = fullpath

      user_action       = uact.

  if uact = lo_gui->action_cancel.

    exit.

  endif.

  lo_gui->gui_download( exporting

                          filename = fullpath

                          filetype = 'BIN'

                          bin_filesize = length

                        changing

                          data_tab = bin_tab ).