Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
Former Member
4,994

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.
4 Comments
Labels in this area