How to download a template from BDN to a program?

Question

Hi,
There is an excel sheet in BDN(t-code-oaor). I need to call this template in a report.
After that I will fill data in this excel and download it on the local PC.
I need suggestions that how can I do it?

Answer 1

This is  sample prog for downloading the template from BDN to local system.
REPORT  YVAI_SV_LOC.
type-pools : slis.
Tables containing the Fields for appl. toolbar on selection screens.
tables : sscrfields.
Business Document Navigator: Internal Connection Table for the
download of excel template.
data:  begin of i_bds_conn occurs 10.
        include structure bdn_con.
data:   objecttext  like toasp-objecttext,
        objecttext2 like toasd-objecttext,
        objecttext3 like toasr-objecttext,
        ntext       like tojtt-ntext,
     end of i_bds_conn.
*data : i_local_path_for_copy like rlgrap-filename.
**i_local_path_for_copy = 'E:\'.
data: gv_flag    type xflag,
      gv_item_no type i.
data: gs_bds_conn_marked like i_bds_conn occurs 5 with header line.
data: l_ipi(40) type c.
selection-screen function key 1.
selection-screen begin of block c1 with frame title text-001.
parameters : p_po type rlgrap-filename
                    obligatory default 'E:\test98.xls'.
selection-screen end of block c1.
Intialization for the text for function key.
Create application toolbar with following mentioned text
initialization.
  move text-tit to sscrfields-functxt_01.
At selection screen on value request the file seach is performed.
File search opens standard window pop-up for searching the file.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_po.
PERFORM file_search.
at selection-screen.
  if sscrfields-ucomm = 'FC01'.
The Excel Id and other information is to be passed to the program
SAPLBDS_TOOLS to get the excel template.
    perform fill_bds_data.
   perform export_document
     in program saplbds_tools
         using gs_bds_conn_marked.
    perform y_export_document
          using gs_bds_conn_marked.
  if sy-subrc = 0.
    call TRANSACTION 'YVAI_TEST98'.
  endif.
call TRANSACTION 'YVAI1'.
  elseif sscrfields-ucomm = 'ONLI'.
The Check for the file Existence for uploading.
    call function 'DX_FILE_EXISTENCE_CHECK'
      exporting
        filename       = p_po
        pc             = 'X'
      importing
        file_exists    = gv_flag
      exceptions
        rfc_error      = 1
        frontend_error = 2
        no_authority   = 3
        others         = 4.
    if sy-subrc <> 0.
      message id sy-msgid type sy-msgty number sy-msgno
              with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.
    if gv_flag = ' '.
      message e070(zf) with p_po.
    endif.
  endif.
*&      Form  fill_bds_data
      Passing the Required parameters for the excel.
form fill_bds_data .
  gs_bds_conn_marked-client = sy-mandt.
  gs_bds_conn_marked-classname = 'SOFFICEINTEGRATION'.
  gs_bds_conn_marked-classtype = 'OT'.
  gs_bds_conn_marked-objkey = 'SOFFICEINTEGRATION'.
  gs_bds_conn_marked-loio_id =
                            'BDS_LOC2  DDBD0807B93B26F19ED30050569F4158'.
  gs_bds_conn_marked-doc_ver_no = '1'.
  gs_bds_conn_marked-doc_var_id = '1'.
  gs_bds_conn_marked-doc_var_tg = 'OR'.
  gs_bds_conn_marked-descript = 'VCPI'.
  gs_bds_conn_marked-langu = 'E'.
  gs_bds_conn_marked-comp_id = 'vai - test99 file.xls'.
  gs_bds_conn_marked-mimetype = 'application/vnd.ms-excel'.
  gs_bds_conn_marked-contrep = 'BDS_DB2_R'.
  gs_bds_conn_marked-docuclass = 'XLS'.
  gs_bds_conn_marked-doc_type = 'BDS_SHEET'.
  gs_bds_conn_marked-stor_tab = '2'.
endform.
                    " fill_bds_data
form y_export_document using i_bds_conn_marked structure i_bds_conn.
-- data declaration                                               -- *
  data: local_signature like bapisignat occurs 1 with header line,
        export_components like bapicompon occurs 5 with header line,
        i_local_path_for_copy like rlgrap-filename,
        popup_fields like sval occurs 5 with header line.
  DATA : i_files like bapifiles occurs 1 with header line.
  clear:   i_files.
  refresh: i_files.
-- check if document is currently in change modus                 -- *
if ( ( i_bds_conn_chng-loio_id    = i_bds_conn_marked-loio_id and
     i_bds_conn_chng-doc_ver_no = i_bds_conn_marked-doc_ver_no and
     i_bds_conn_chng-doc_var_id = i_bds_conn_marked-doc_var_id and
       i_bds_conn_chng-doc_var_tg = i_bds_conn_marked-doc_var_tg )
        and (  i_bds_conn_chng-loio_id <> space and
               i_bds_conn_marked-loio_id <> space  )
        and ( doc_chng_is_open = 'X' ) ).
     -> set info popup -> doc can not be exported
   message i337(sbds).
endif.
-- check if components exist                                      -- *
-- fill signature table
  local_signature-doc_count  = '1'.
  local_signature-doc_id     = i_bds_conn_marked-loio_id.
  local_signature-doc_ver_no = i_bds_conn_marked-doc_ver_no.
  local_signature-doc_var_id = i_bds_conn_marked-doc_var_id.
  local_signature-doc_var_tg = i_bds_conn_marked-doc_var_tg.
  append local_signature.
  call function 'BDS_BUSINESSDOCUMENT_GET_INFO'
    exporting
      logical_system  = i_bds_conn_marked-log_system
      classname       = i_bds_conn_marked-classname
      classtype       = i_bds_conn_marked-classtype
      client          = i_bds_conn_marked-client
      object_key      = i_bds_conn_marked-objkey
      all             = 'X'
    tables
      components      = export_components
      signature       = local_signature
    exceptions
      nothing_found   = 1
      parameter_error = 2
      not_allowed     = 3
      error_kpro      = 4
      internal_error  = 5
      not_authorized  = 6
      others          = 7.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
-- get path for export                                            -- *
  call function 'WS_QUERY'
    exporting
      query          = 'CD'
    importing
      return         = i_local_path_for_copy
    exceptions
      inv_query      = 1
      no_batch       = 2
      frontend_error = 3
      others         = 4.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
-- get path for the documents by the user                         -- *
perform get_local_path using i_local_path_for_copy.
  loop at export_components.
    i_files-doc_count  = export_components-doc_count.
    i_files-comp_count = export_components-comp_count.
    i_files-comp_id    = export_components-comp_id.
   i_files-directory  = i_local_path_for_copy.
     i_files-directory  = p_po.
    append i_files.
  endloop.
  call function 'BDS_BUSINESSDOCUMENT_GET_FILES'
    exporting
      logical_system  = i_bds_conn_marked-log_system
      classname       = i_bds_conn_marked-classname
      classtype       = i_bds_conn_marked-classtype
      client          = i_bds_conn_marked-client
      object_key      = i_bds_conn_marked-objkey
    tables
      files           = i_files
      signature       = local_signature
    exceptions
      nothing_found   = 1
      parameter_error = 2
      not_allowed     = 3
      error_kpro      = 4
      internal_error  = 5
      not_authorized  = 6
      others          = 7.
  if sy-subrc <> 0.
   message i338(sbds).
  else.
   message i339(sbds).
  endif.
endform.                               " EXPORT_DOCUMENT