Massive GOS attchment upload to FI docuemnt

[Former Member]

Hello All,

This program upload FI scan file to FI document ,

note :scan file must pdf format , and pdf file must equal  FI number,

*&---------------------------------------------------------------------*

*& Report  ZGOS_ATTACHMENT

*&

*&---------------------------------------------------------------------*

*& Mass Upload gos file to FI document.

*&

*&---------------------------------------------------------------------*

REPORT  ZGOS_ATTACHMENT.

*report  zgos_attachment.

*Macros.

include <cntn01>.

swc_container lt_message_container.

*top dec.

type-pools: slis, abap, truxs.

data:      gt_filename type standard table of dxfilep with header line,

      wa_filename type dxfilep,

      gt_bin      type solix occurs 0,

      wa_bin      type solix,

      g_filename  type string,

      l_obj       type swc_object,

      gs_obja     type borident,

      gs_objb     type borident,

      gs_binrel   type gbinrel,

      gt_binatt   type standard table of brelattr,

      g_attsize   type wsrm_error-wsrm_direction,

      objkey TYPE BORIDENT-OBJKEY.

DATA : BEGIN OF bin_tab OCCURS 0,

       tx TYPE c  LENGTH 255,

      END OF bin_tab.

selection-screen begin of block b0 with frame title text-001.

parameters: p_file  type rlgrap-filename OBLIGATORY,

            gjahr TYPE gjahr OBLIGATORY,

            bukrs TYPE bukrs DEFAULT '1000'.

selection-screen end of block b0.

DATA: lt_file_table TYPE TABLE OF sdokpath,

      wa_file_table LIKE LINE OF lt_file_table,

      lt_dir_table  TYPE TABLE OF sdokpath,

      lv_belnr TYPE bkpf-belnr,

      lv_char TYPE n LENGTH 10,

      ls_bkpf TYPE bkpf.

DATA : FILEPATH TYPE  STRING,

      FILENAME  TYPE  STRING,

      doc_t TYPE string.

DATA: ls_file_table TYPE sdokpath,

      ls_output     TYPE sdokpath,

      lt_output     TYPE TABLE OF sdokpath.

DATA: lv_dir          TYPE cffile-filename, lv_flag(3)      TYPE n,

      lv_app_path(80) TYPE c,               lv_file_count   TYPE i,

      lv_cnt(3)       TYPE n,               lv_text(200)    TYPE c,

      lv_filename     TYPE string.

DATA : BEGIN OF bel_t OCCURS 0,

    belnr TYPE belnr,

  END OF bel_t.

DATA : lv_text_path(50).

*----------------------------------------------------------------------*

* AT SELECTION-SCREEN  on <parameters>                                 *

*----------------------------------------------------------------------*

at selection-screen on p_file.

  if p_file is initial.

    message e999(yfimc01) with 'Please select the file path'. "#EC NOTEXT

  endif.

*----------------------------------------------------------------------*

* AT SELECTION-SCREEN  on HELP-REQUEST|VALUE-REQUEST                   *

*----------------------------------------------------------------------*

at selection-screen  on value-request for p_file.

*  call function 'F4_FILENAME'

*    exporting

*      program_name  = syst-cprog

*      dynpro_number = syst-dynnr

*      field_name    = 'P_FILE'

*    importing

*      file_name     = p_file.

  PERFORM value_request_pc_file_download USING p_file.

start-of-selection.

  CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'

    EXPORTING

      directory  = p_file

      filter     = '*.PDF'

    IMPORTING

      file_count = lv_file_count

    TABLES

      file_table = lt_file_table

      dir_table  = lt_dir_table

    EXCEPTIONS

      cntl_error = 1

      OTHERS     = 2.

  CLEAR wa_file_table.

  LOOP AT lt_file_table INTO wa_file_table.

    CLEAR : ls_bkpf.

    lv_text_path = wa_file_table-PATHNAME.

    REPLACE ALL OCCURRENCES OF '.PDF' IN lv_text_path WITH ''.

    REPLACE ALL OCCURRENCES OF '.pdf' IN lv_text_path WITH ''.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

      EXPORTING

        INPUT         = lv_text_path

     IMPORTING

       OUTPUT        = lv_belnr

              .

*    WRITE lv_text_path to lv_char .

*    move lv_char to lv_belnr.

    SELECT SINGLE * FROM bkpf INTO ls_bkpf WHERE belnr = lv_belnr AND

                                    bukrs = bukrs  AND

                                    GJAHR = GJAHR.

    IF sy-subrc = 0.

      CLEAR : g_filename , g_attsize , gt_bin.

      CONCATENATE p_file wa_file_table-PATHNAME INTO g_filename.

      concatenate    bukrs  "company code

                       lv_belnr "FI Document

                       gjahr  "fiscal year

                       into

                       objkey.

****************************************************************************8

     MOVE p_file TO FILEPATH.

     MOVE wa_file_table-PATHNAME TO FILENAME.

     MOVE lv_belnr to doc_t.

     CALL FUNCTION 'ZHR_GOS_UPLOAD'

      EXPORTING

        OBJTYPE        = 'BKPF'

        OBJKEY         = OBJKEY

        FILEPATH       = FILEPATH

        FILENAME       = FILENAME

        DOCTITLE       = doc_t

        DOCTYPE        = 'PDF'

      TABLES

        BIN_TAB        = bin_tab

      EXCEPTIONS

        UNKNOWN_ERROR  = 1

        NO_FILE_OR_BIN = 2

        NO_DOC_TYPE    = 3

        OTHERS         = 4.

*******************************************************************************

*      call function 'GUI_UPLOAD'

*        exporting

*          filename                = g_filename

*          filetype                = 'BIN'

*        importing

*          filelength              = g_attsize

*        tables

*          data_tab                = gt_bin

*        exceptions

*          file_open_error         = 1

*          file_read_error         = 2

*          no_batch                = 3

*          gui_refuse_filetransfer = 4

*          invalid_type            = 5

*          no_authority            = 6

*          unknown_error           = 7

*          bad_data_format         = 8

*          header_not_allowed      = 9

*          separator_not_allowed   = 10

*          header_too_long         = 11

*          unknown_dp_error        = 12

*          access_denied           = 13

*          dp_out_of_memory        = 14

*          disk_full               = 15

*          dp_timeout              = 16

*          others                  = 17.

*

*      if sy-subrc <> 0.

*      else.

**    file Uploaded successfully.

**    convert uploaded file contents into BIN format.

*        data: l_seq type i.

*        swc_container      l_cont.

*        swc_create_object  l_obj  'MESSAGE'       ''.

*        swc_set_element    l_cont 'NO_DIALOG'     'X'.

*        swc_set_element    l_cont 'DOCUMENTTITLE' g_filename.

*        swc_set_table      l_cont 'Content_Hex'   gt_bin.

*        swc_set_element    l_cont 'DOCUMENTTYPE'  'TXT'.

*        swc_set_element    l_cont 'DOCUMENTSIZE'  g_attsize.

*        swc_refresh_object l_obj.

*        swc_call_method    l_obj  'CREATE'        l_cont.

*        swc_get_object_key l_obj  gs_objb-objkey.

*        gs_objb-objtype = 'MESSAGE'.   "type of attach document

*        gs_obja-objtype = 'BKPF'.      "BO of SAP Document.

*        concatenate    bukrs  "company code

*                       lv_belnr "FI Document

*                       gjahr  "fiscal year

*                       into

*                       gs_obja-objkey.

*        call function 'BINARY_RELATION_CREATE_COMMIT'

*          exporting

*            obj_rolea      = gs_obja

*            obj_roleb      = gs_objb

*            relationtype   = 'ATTA'

*          importing

*            binrel         = gs_binrel

*          tables

*            binrel_attrib  = gt_binatt

*          exceptions

*            no_model       = 1

*            internal_error = 2

*            unknown        = 3

*            others         = 4.

*        if sy-subrc eq 0.

*          message s043(sgos_msg).

*        endif.

*      endif.

    ENDIF.

  ENDLOOP.

*&---------------------------------------------------------------------*

*&      Form  VALUE_REQUEST_PC_FILE_DOWNLOAD

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_P_FILE  text

*----------------------------------------------------------------------*

FORM VALUE_REQUEST_PC_FILE_DOWNLOAD  USING   field.

  CALL FUNCTION '/SAPDMC/LSM_F4_FRONTEND_FILE'

    CHANGING

      pathfile         = p_file

    EXCEPTIONS

      canceled_by_user = 1

      system_error     = 2

      OTHERS           = 3.

  CLEAR lv_dir.

* Below functionality used to delete the file name form the selected path.

  DO.

    SEARCH p_file FOR '\'.

    IF sy-subrc EQ 0.

      lv_flag = strlen( p_file ).

      sy-fdpos = sy-fdpos + 1.

      CONCATENATE  lv_dir p_file+0(sy-fdpos)  INTO lv_dir.

      p_file+0(sy-fdpos) = ''.

      CONDENSE p_file.

    ELSE.

      EXIT.

    ENDIF.

  ENDDO.

  CLEAR p_file.

  p_file = lv_dir.

  CONCATENATE 'Directory selected: --> ' p_file INTO ls_output SEPARATED BY space.

  APPEND ls_output TO lt_output.

  CLEAR ls_output.

ENDFORM. " value_request_pc_file_download

FUNCTION ZHR_GOS_UPLOAD.

FUNCTION ZHR_GOS_UPLOAD.

 *"----------------------------------------------------------------------

 *"*"Local Interface:

 *"  IMPORTING

 *"     REFERENCE(OBJTYPE) TYPE  BORIDENT-OBJTYPE

 *"     REFERENCE(OBJKEY) TYPE  BORIDENT-OBJKEY

 *"     REFERENCE(FILEPATH) TYPE  STRING OPTIONAL

 *"     REFERENCE(FILENAME) TYPE  STRING OPTIONAL

 *"     REFERENCE(DOCTITLE) TYPE  STRING OPTIONAL

 *"     REFERENCE(DOCTYPE) TYPE  SOFM-DOCTP OPTIONAL

 *"  TABLES

 *"      BIN_TAB

 *"  EXCEPTIONS

 *"      UNKNOWN_ERROR

 *"      NO_FILE_OR_BIN

 *"      NO_DOC_TYPE

 *"----------------------------------------------------------------------

  include : <cntn01>.

   constants:

             c_docnm  type borident-objtype value 'MESSAGE',

             c_reltyp type breltyp-reltype  value 'ATTA'.

   types: begin of ty_message_key,

           foltp type so_fol_tp,

           folyr type so_fol_yr,

           folno type so_fol_no,

           doctp type so_doc_tp,

           docyr type so_doc_yr,

           docno type so_doc_no,

           fortp type so_for_tp,

           foryr type so_for_yr,

           forno type so_for_no,

          end of ty_message_key.

   data : xobject_b type borident.

   data : xobject_a type borident.

   data : xdoc_size    type i.

   data : xfile_lines   type i.

   data : xmessage_key type ty_message_key.

   data : xmessage     type swc_object.

   data : idoc_content type standard table of soli-line.

   data : xdoc_content type soli-line.

   data : xfilenamepath type string.

   data : xdoctitle type string.

   data : xdoctype type sofm-doctp.

   data : xfname type string.

   if bin_tab[] is initial

     and ( filename is initial

       or  filepath is initial ).

     raise no_file_or_bin.

   endif.

   if not bin_tab[] is initial

      and doctype is initial.

     raise no_doc_type.

   endif.

   if not bin_tab[] is initial.

     xdoctype = doctype.

     translate xdoctype to upper case.

   else.

     split filename at '.' into xfname xdoctype.

     translate xdoctype to upper case.

   endif.

 *  * Create an initial instance of BO 'MESSAGE' - to call the

 * instance-independent method 'Create'.

   swc_create_object xmessage 'MESSAGE' xmessage_key.

 * define container to pass the parameter values to the method call

 * in next step.

   swc_container imessage_container.

 * Populate container with parameters for method

   if doctitle is initial.

     xdoctitle = filename.

   else.

     xdoctitle = doctitle.

   endif.

   swc_set_element imessage_container 'DOCUMENTTITLE'  xdoctitle.

   swc_set_element imessage_container 'DOCUMENTLANGU' 'E'.

   swc_set_element imessage_container 'NO_DIALOG'     'X'.

   swc_set_element imessage_container 'DOCUMENTNAME'   c_docnm.

   swc_set_element imessage_container 'DOCUMENTTYPE'   xdoctype.

   if not bin_tab[] is initial.

 * Translate table to 255, if not 255.

     data: tab_len type i.

     read table bin_tab index 1.

     tab_len = strlen( bin_tab ).

     if tab_len < 255.

       data: xbuffer type string.

       loop at bin_tab.

         translate bin_tab using ' ~'.

         concatenate xbuffer bin_tab into xbuffer.

       endloop.

       translate xbuffer using '~ '.

       do.

         xdoc_content = xbuffer.

         append xdoc_content to idoc_content.

         shift xbuffer left by 255 places.

         if xbuffer is initial.

           exit.

         endif.

       enddo.

     else.

       idoc_content[] =  bin_tab[].

     endif.

   else.

     concatenate filepath filename into xfilenamepath.

 * Upload file from frontend

     call function 'GUI_UPLOAD'

          exporting

               filename = xfilenamepath

               filetype = 'BIN'

 *              HEADER_LENGTH =

         IMPORTING

           FILELENGTH = xdoc_size

          tables

               data_tab = idoc_content

          exceptions

               others   = 17.

   endif.

 *  * 'DocumentContent' is a multi-line element ( itab ).

   swc_set_table imessage_container 'DocumentContent' idoc_content.

 * Size is required in case of File attachments

   describe table idoc_content lines xfile_lines.

   read table idoc_content into xdoc_content index xfile_lines.

 *  xdoc_size = ( 255 * ( xfile_lines - 1 ) ) +

 *              strlen( xdoc_content  ).

   swc_set_element imessage_container 'DOCUMENTSIZE'   xdoc_size .

 * Refresh to get the reference of create 'MESSAGE' object for attachment

   swc_refresh_object xmessage.

   swc_call_method xmessage 'CREATE' imessage_container.

 * Get Key of new object

   swc_get_object_key xmessage xmessage_key.

 * Now we have attachment as a business object instance. We can now

 * attach it to our main business object instance.

 * Create main BO object_a

   xobject_a-objkey = objkey.

   xobject_a-objtype = objtype.

 * Create attachment BO object_b

   xobject_b-objkey = xmessage_key.

   xobject_b-objtype = c_docnm.

   call function 'BINARY_RELATION_CREATE'

        exporting

             obj_rolea    = xobject_a

             obj_roleb    = xobject_b

             relationtype = c_reltyp

        exceptions

             others       = 1.

   if sy-subrc = 1.

     raise unknown_error.

   endif.

   commit work.

 ENDFUNCTION.