Create an SAP DMS document attaching a file from the Application Server and checking in an FTP vault with automatic filename creation

Hi,

one of my first post, hopefully I will not be out of scope 🙂

I had a similar issue to create a Document info Record linked to an object and with files to be checked. The problem is that files are saved in an internal table as binaries and not stored somewhere on the server nor on the local PC of the user.

So I wrote that function module which fulfilled my requirements:

FUNCTION z_fm_ca_set_docments_to_dms.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IS_DOCUMENT) TYPE  BAPI_DOC_DRAW2
*"     VALUE(IT_LINK) TYPE  TT_BAPI_DOC_DRAD OPTIONAL
*"     VALUE(IT_FILES) TYPE  ZCA_DMS_FILE_2_TT OPTIONAL
*"  EXPORTING
*"     VALUE(ET_RETURN) TYPE  BAPIRET2_TAB
*"----------------------------------------------------------------------
  DATA: lt_objectlink     TYPE          tt_bapi_doc_drad,
        lt_objectlink_new TYPE          tt_bapi_doc_drad,
        lt_content        TYPE TABLE OF drao,
        lt_files          TYPE TABLE OF cvapi_doc_file,
        lt_comp_x         TYPE TABLE OF cvapi_doc_comp,
        lt_binary         TYPE TABLE OF orblk.

  DATA: ls_document TYPE bapi_doc_aux,
        ls_data     TYPE bapi_doc_draw2,
        ls_message  TYPE messages,
        ls_return   TYPE bapiret2.

  DATA: lv_file_size TYPE i.

  ls_data = is_document.

  IF ls_data-documenttype IS INITIAL.
    ls_data-documenttype    = zif_ps_cmt_m=>mc_dms_defaults-dms_type. "'GEN'
  ENDIF.

* DMS document does not exist yet, create it.
  IF is_document-documentnumber  IS INITIAL AND
     is_document-documentpart    IS INITIAL AND
     is_document-documentversion IS INITIAL.
    CALL FUNCTION 'BAPI_DOCUMENT_CREATE2'
      EXPORTING
        documentdata    = is_document
        pf_ftp_dest     = zif_ca_constants=>gc_dms_ftp_rfc
        pf_http_dest    = zif_ca_constants=>gc_dms_http_rfc
      IMPORTING
        documenttype    = ls_document-doctype
        documentnumber  = ls_document-docnumber
        documentpart    = ls_document-docpart
        documentversion = ls_document-docversion
        return          = ls_return.
*      TABLES
*        objectlinks     = lt_objectlink.

    APPEND ls_return TO et_return.

    IF ls_return-type NA /srmsmc/if_supplier_c=>gc_message_types_failure.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.
  ENDIF.

  lt_objectlink_new = it_link.

  IF NOT lt_objectlink_new IS INITIAL AND ls_return-type NA /srmsmc/if_supplier_c=>gc_message_types_failure.
    CLEAR: ls_return.

    CALL FUNCTION 'BAPI_DOCUMENT_GETOBJECTLINKS'
      EXPORTING
        documenttype    = ls_document-doctype
        documentnumber  = ls_document-docnumber
        documentpart    = ls_document-docpart
        documentversion = ls_document-docversion
      IMPORTING
        return          = ls_return
      TABLES
        objectlinks     = lt_objectlink.

    APPEND ls_return TO et_return.

*   Only add links that do not exist yet.
    LOOP AT lt_objectlink REFERENCE INTO DATA(lr_link).
      DELETE lt_objectlink_new WHERE objectkey  = lr_link->objectkey
                                 AND objecttype = lr_link->objecttype.
    ENDLOOP.

    IF NOT lt_objectlink_new IS INITIAL AND ls_return-type NA /srmsmc/if_supplier_c=>gc_message_types_failure.
      CLEAR: ls_return.

      CALL FUNCTION 'BAPI_DOCUMENT_SAVEOBJECTLINKS'
        EXPORTING
          documenttype    = ls_document-doctype
          documentnumber  = ls_document-docnumber
          documentpart    = ls_document-docpart
          documentversion = ls_document-docversion
        IMPORTING
          return          = ls_return
        TABLES
          objectlinks     = lt_objectlink_new.

      APPEND ls_return TO et_return.

      IF ls_return-type NA /srmsmc/if_supplier_c=>gc_message_types_failure.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.
      ENDIF.
    ENDIF.
  ENDIF.

* Add files to created document
  IF NOT it_files IS INITIAL AND ls_return-type NA /srmsmc/if_supplier_c=>gc_message_types_failure.
    LOOP AT it_files REFERENCE INTO DATA(lr_file).
      CLEAR: lt_binary, lv_file_size, lt_content, lt_files.

      CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
        EXPORTING
          buffer          = lr_file->rawfile
          append_to_table = abap_false
        IMPORTING
          output_length   = lv_file_size
        TABLES
          binary_tab      = lt_binary.

      LOOP AT lt_binary REFERENCE INTO DATA(lr_binary).
        APPEND INITIAL LINE TO lt_content ASSIGNING FIELD-SYMBOL(<fs_content>).
        <fs_content>-dokar = ls_document-doctype.
        <fs_content>-doknr = ls_document-docnumber.
        <fs_content>-dokvr = ls_document-docversion.
        <fs_content>-doktl = ls_document-docpart.
        <fs_content>-zaehl = sy-tabix.
        <fs_content>-orln  = lv_file_size.
        <fs_content>-orblk = lr_binary->*.
        DESCRIBE FIELD <fs_content>-orblk LENGTH <fs_content>-orbkl IN BYTE MODE.
      ENDLOOP.

      APPEND INITIAL LINE TO lt_files ASSIGNING FIELD-SYMBOL(<fs_file>).
      <fs_file>-dttrg          = ls_document-dttrg.
      <fs_file>-storage_cat    = lr_file->storagecategory.

      IF <fs_file>-storage_cat  IS INITIAL.
        <fs_file>-storage_cat  = zif_ca_constants=>gc_dms_default_storage. "'DMS_C1_ST'
      ENDIF.

      <fs_file>-langu          = sy-langu.
      <fs_file>-pathname       = lr_file->docpath.
*      <fs_file>-filename       = lr_attachment->docfile.
      <fs_file>-description    = lr_file->description.
      <fs_file>-created_at     = lr_file->created_at.
      <fs_file>-created_by     = lr_file->created_by.
      <fs_file>-changed_at     = lr_file->changed_at.
      <fs_file>-changed_by     = lr_file->changed_by.
      <fs_file>-file_id        = lr_file->file_id.
      <fs_file>-dappl          = lr_file->wsapplication.
      <fs_file>-appnr          = lr_file->originaltype.

      IF <fs_file>-appnr IS INITIAL.
        <fs_file>-appnr = zif_ca_constants=>gc_dms_original_view_only. "'1'
      ENDIF.

      <fs_file>-active_version = abap_true.

      IF <fs_file>-dappl IS INITIAL.
*       Get corresponding application type
        CALL FUNCTION 'CV120_DOC_GET_APPL'
          EXPORTING
            pf_file   = lr_file->docfile
          IMPORTING
            pfx_dappl = <fs_file>-dappl.
      ENDIF.


      CALL FUNCTION 'CVAPI_DOC_CHECKIN'
        EXPORTING
          pf_dokar           = ls_document-doctype
          pf_doknr           = ls_document-docnumber
          pf_dokvr           = ls_document-docversion
          pf_doktl           = ls_document-docpart
*         PS_DOC_STATUS      =
          pf_ftp_dest        = zif_ca_constants=>gc_dms_ftp_rfc  "'SAPFTPA'
          pf_http_dest       = zif_ca_constants=>gc_dms_http_rfc "'SAPHTTPA'
*         PF_HOSTNAME        = ' '
*         PS_API_CONTROL     =
          pf_replace         = abap_true
          pf_content_provide = 'TBL'
        IMPORTING
          psx_message        = ls_message
        TABLES
          pt_files_x         = lt_files
*         pt_comp_x          = lt_comp_x
          pt_content         = lt_content.

      CLEAR ls_return.
      MOVE-CORRESPONDING ls_message TO ls_return.
      APPEND ls_return TO et_return.

      IF ls_return-type NA /srmsmc/if_supplier_c=>gc_message_types_failure.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDFUNCTION.

The function is quite simple as it creates first the DMS document is no document number is passed in structure "IS_DOCUMENT", the add new linked objects passed in table "IT_LINKS" and finally for each row of table IT_FILES, convert the xstring to a binary table, get required details default values like application type, etc... (which are part of the customizing of DMS).

Commits after each steps are required to avoid error like "Document XXX does not exist".

Hope it might help.