[SAP ABAP] - Download OAOR File

FUNCTION zfm_oaor_dowload.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(FU_CLASS) LIKE  BDN_CON-CLASSNAME
*"     REFERENCE(FU_OBJCT) LIKE  BDN_CON-OBJKEY
*"     REFERENCE(FU_FILEPATH)
*"  EXPORTING
*"     REFERENCE(FC_PATH_DOCUMENT)
*"----------------------------------------------------------------------

  DATA : lv_logical_system LIKE  bapibds01-log_system,
           lv_oldpath TYPE string,
           lv_newpath TYPE string,
           lv_subrc   TYPE i.

  DATA : li_signature LIKE STANDARD TABLE OF bapisignat WITH HEADER LINE,
         li_all_connections LIKE STANDARD TABLE OF bdn_con WITH HEADER LINE.
  DATA : li_files LIKE bapifiles OCCURS WITH HEADER LINE.

  "Get file Signature
  CALL FUNCTION 'BDS_ALL_CONNECTIONS_GET'
    EXPORTING
      logical_system  = lv_logical_system
      classname       = fu_class
      classtype       = 'OT'
      objkey          = fu_objct
      client          = sy-mandt
      all             ' '
    TABLES
      signature       = li_signature
      all_connections = li_all_connections.

  "Read and Copy File to Local
  li_files-doc_count = '1'.
  li_files-directory = fu_filepath.
  APPEND li_files.

  CALL FUNCTION 'BDS_BUSINESSDOCUMENT_GET_FILES'
    EXPORTING
      logical_system = lv_logical_system
      classname      = fu_class
      classtype      = 'OT'
      client         = sy-mandt
      object_key     = fu_objct
    TABLES
      files          = li_files
      signature      = li_signature
    EXCEPTIONS
      nothing_found  = 1
      error_kpro     = 2
      internal_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 RAISING internal_error.
  ENDIF.


  READ TABLE li_files INDEX 1.
  PERFORM check_and_add_delimiter(scms) USING li_files-directory.

  CONCATENATE li_files-directory fu_objct INTO lv_oldpath.
  lv_newpath = fc_path_document.

  CHECK lv_oldpath NE lv_newpath.

  "Rename File
  CALL METHOD cl_gui_frontend_services=>file_copy
    EXPORTING
      source               = lv_oldpath
      destination          = lv_newpath
      overwrite            = 'X'
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      wrong_parameter      = 3
      disk_full            = 4
      access_denied        = 5
      file_not_found       = 6
      destination_exists   = 7
      unknown_error        = 8
      path_not_found       = 9
      disk_write_protect   = 10
      drive_not_ready      = 11
      not_supported_by_gui = 12
      OTHERS               13.

  IF sy-subrc EQ 0.
    CALL METHOD cl_gui_frontend_services=>file_delete
      EXPORTING
        filename = lv_oldpath
      CHANGING
        rc       = lv_subrc.
  ELSE.
    MESSAGE 'File error !!' TYPE 'E'.
  ENDIF.




ENDFUNCTION.

Comments

Bpk Baktiar said…
KAMI SEKELUARGA TAK LUPA MENGUCAPKAN PUJI SYUKUR KEPADA ALLAH S,W,T
dan terima kasih banyak kepada AKI atas nomor togel.nya yang AKI
berikan 4 angka [3927] alhamdulillah ternyata itu benar2 tembus AKI.
dan alhamdulillah sekarang saya bisa melunasi semua utan2 saya yang
ada sama tetangga.dan juga BANK BRI dan bukan hanya itu AKI. insya
allah saya akan coba untuk membuka usaha sendiri demi mencukupi
kebutuhan keluarga saya sehari-hari itu semua berkat bantuan AKI..
sekali lagi makasih banyak ya AKI… bagi saudara yang suka main togel
yang ingin merubah nasib seperti saya silahkan hubungi KI JAYA WARSITO,,di no (((085-342-064-735)))
insya allah anda bisa seperti saya…menang togel 870 JUTA , wassalam.


dijamin 100% jebol saya sudah buktikan...sendiri....







Apakah anda termasuk dalam kategori di bawah ini !!!!


1"Dikejar-kejar hutang

2"Selaluh kalah dalam bermain togel

3"Barang berharga anda udah habis terjual Buat judi togel


4"Anda udah kemana-mana tapi tidak menghasilkan solusi yg tepat


5"Udah banyak Dukun togel yang kamu tempati minta angka jitunya
tapi tidak ada satupun yang berhasil..







Solusi yang tepat jangan anda putus asah... KI JAYA WARSITO akan membantu
anda semua dengan Angka ritual/GHOIB:
butuh angka togel 2D ,3D, 4D SGP / HKG / MALAYSIA / TOTO MAGNUM / dijamin
100% jebol
Apabila ada waktu
silahkan Hub: KI JAYA WARSITO DI NO: [[[085-342-064-735]]]


ANGKA RITUAL: TOTO/MAGNUM 4D/5D/6D


ANGKA RITUAL: HONGKONG 2D/3D/4D/



ANGKA RITUAL; KUDA LARI 2D/3D/4D/



ANGKA RITUAL; SINGAPUR 2D/3D/4D/



ANGKA RITUAL; TAIWAN,THAILAND



ANGKA RITUAL: SIDNEY 2D/3D/4D



DAN PESUGIHAN TUYUL
PAK SUGI said…
Solusi yang tepat jangan anda putus asah… KI .angen jallo akan membantu
anda semua dengan Angka ritual/GHOIB: butuh angka togel 2D 3D 4D SGP /
HKG / MALAYSIA / TOTO MAGNUM / dijamin 100% jebol Apabila ada waktu
silahkan Hub: KI agen jallo DI NO: 085-283 790 444 ]] ANGKA GHOIB:
SINGAPUR 2D/3D/4D/ ANGKA GHOIB: HONGKONG 2D/3D/4D/ ANGKA GHOIB; TEXAS
ANGKA GHOIB; TOTO/ MAGNUM 4D/5D/6D/ ANGKA GHOIB; LAOS/JIKA INGIN
MENGUBAH NASIB KAMI SUDAH 20 X TERBUKTI

TRIM’S ROO,MX SOBAT





Solusi yang tepat jangan anda putus asah… KI .angen jallo akan membantu
anda semua dengan Angka ritual/GHOIB: butuh angka togel 2D 3D 4D SGP /
HKG / MALAYSIA / TOTO MAGNUM / dijamin 100% jebol Apabila ada waktu
silahkan Hub: KI agen jallo DI NO: 085-283 790 444 ]] ANGKA GHOIB:
SINGAPUR 2D/3D/4D/ ANGKA GHOIB: HONGKONG 2D/3D/4D/ ANGKA GHOIB; TEXAS
ANGKA GHOIB; TOTO/ MAGNUM 4D/5D/6D/ ANGKA GHOIB; LAOS/JIKA INGIN
MENGUBAH NASIB KAMI SUDAH 20 X TERBUKTI

TRIM’S ROO,MX SOBAT