上传PDF、DOC文件到SAP HCM系统中案例

背景:公司最近在上电子签系统，以实现劳动合同、保密协议等文件的去纸质化，保存为电子档文件，而企业的信息化的中心是SAP ERP，于是领导要求将签好的电子文件存储到HCM中。

题主写了如下代码实现需求：

FUNCTION ZHR_SAVE_FILE.
*"----------------------------------------------------------------------
*"*"局部接口：
*"  IMPORTING
*"     VALUE(FILE) TYPE  STRING OPTIONAL
*"     VALUE(USRTY) TYPE  CHAR4 OPTIONAL
*"     VALUE(USRID) TYPE  CHAR30 OPTIONAL
*"     VALUE(FILETYPE) TYPE  CHAR10 OPTIONAL
*"  EXPORTING
*"     VALUE(ZTYPE) TYPE  TEXT1
*"     VALUE(MESSAGE) TYPE  CHAR200
*"----------------------------------------------------------------------

  DATA: access_info   LIKE  scms_acinf   OCCURS 1 WITH HEADER LINE,
        content_txt   LIKE  sdokcntasc   OCCURS 1,
        content_bin   LIKE  sdokcntbin   OCCURS 1.
  DATA: ls_content_bin LIKE LINE OF content_bin.
  DATA: l_string TYPE string.
  DATA: l_xstring TYPE xstring.
  DATA: doc_id_out TYPE char40.
*  DATA: ADOKID     TYPE SAPB-SAPADOKID.
*  DATA: lt_ztb_icnum LIKE TABLE OF ztb_icnum,
*        ls_ztb_icnum LIKE LINE OF lt_ztb_icnum.
  access_info-comp_id    = 'data'.

  IF FILETYPE is INITIAL or FILETYPE = '' .
    ztype = 'E'.
    message = '请输入文件类型！' .
    return.
  ENDIF.

  IF USRID is INITIAL or USRID = ''.
    ztype = 'E'.
    message = '请输入人员工号！' .
    return.
  ENDIF.

  IF usrty IS NOT INITIAL AND usrid IS NOT INITIAL AND file IS NOT INITIAL .
*    ls_ztb_icnum-ictyp = usrty.                               "通过证件号码获取人员编号
*    ls_ztb_icnum-icnum = usrid.
*    APPEND ls_ztb_icnum TO lt_ztb_icnum.CLEAR ls_ztb_icnum.
*
*
*    IF lt_ztb_icnum[] IS NOT INITIAL.
*
*      CALL FUNCTION 'Z_IF_HR_PA_CHECK'
*        TABLES
*          tb_hr_icnum = lt_ztb_icnum.
*
*    ENDIF.
*
*    READ TABLE lt_ztb_icnum INTO ls_ztb_icnum INDEX 1.
*
*    IF ls_ztb_icnum-pernr IS NOT INITIAL.                         "判断是否能找到SAP对应的人员编号

      CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
        EXPORTING
          input    = file
*     unescape = 'X'
        IMPORTING
          output   = l_xstring
        EXCEPTIONS
          failed   = 1
          OTHERS   = 2.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.

      CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
        EXPORTING
          buffer                = l_xstring
*     APPEND_TO_TABLE       = ' '
*   IMPORTING
*     OUTPUT_LENGTH         =
        TABLES
          binary_tab            = content_bin
                .

      DATA: lv_nu TYPE i.
      CLEAR l_string.
      CLEAR access_info-comp_size.
      LOOP AT content_bin INTO ls_content_bin.
        l_string = ls_content_bin-line.
        access_info-comp_size = STRLEN( l_string ) + access_info-comp_size.
      ENDLOOP.
      access_info-mimetype   = 'application/*'.
      access_info-binary_flg = 'X'.
      access_info-first_line = 1.
      access_info-last_line = LINES( content_bin ).
      APPEND access_info.

      CALL FUNCTION 'SCMS_R3DB_EXPORT'
        EXPORTING
          mandt             = sy-mandt
          crep_id           = 'A2'
          doc_id            = ''
          doc_prot          = 'rud'
          overwrite         = '-'
          vscan_profile     = '/SCMS/KPRO_CREATE'
        IMPORTING
          doc_id_out        = doc_id_out
        TABLES
          access_info       = access_info
          content_txt       = content_txt
          content_bin       = content_bin
        EXCEPTIONS
          error_export      = 1
          error_import      = 2
          error_parameter   = 3
          blocked_by_policy = 4
          OTHERS            = 5.
      IF sy-subrc <> 0.
*    case sy-subrc.
*      when 1.      sys_message_raising error_export.
*      when 2.      sys_message_raising error_export.
*      when 3.      sys_message_raising error_parameter.
*      when 4.      sys_message_raising blocked_by_policy.
*      when others. sys_message_raising error_export.
*    endcase.
      ELSE.
        DATA: BEGIN OF i_toaom OCCURS 1.
                INCLUDE STRUCTURE toaom.
        DATA: END OF i_toaom.
        DATA: BEGIN OF i_toav0 OCCURS 1.
                INCLUDE STRUCTURE toav0.
        DATA: END OF i_toav0.

        REFRESH i_toaom.
        i_toav0-mandt       = sy-mandt.
        i_toav0-sap_object  = 'PREL'.
        i_toav0-archiv_id  = 'A2'.
        i_toav0-object_id  = usrid. "pernr-pernr
        i_toav0-ar_object   = 'HRICONTRAC'.
        i_toav0-ar_date     = sy-datum.
*  I_TOAV0-DEL_DATE    = SY-DATUM.
        i_toav0-reserve     = filetype.
        i_toav0-arc_doc_id  = doc_id_out.
        APPEND i_toav0.
        CALL FUNCTION 'ARCHIV_CONNECTIONTABLE_INSERT'
          TABLES
            entrys_connectiontable = i_toav0
          EXCEPTIONS
            no_entry_possible      = 1
            OTHERS                 = 2.
        CASE sy-subrc.
          WHEN 1.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              RAISING no_entry_possible.
          WHEN 2.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              RAISING others.
          WHEN OTHERS.
            ztype = 'S'.
            message = '上传成功'.
        ENDCASE.
      ENDIF.
*    ELSE.
*      ztype = 'E'.
*      CONCATENATE '无法在SAP系统中找到证件号码为：' ls_ztb_icnum-icnum '，的人员！' INTO message .
    ENDIF.
*  ELSE.
*    ztype = 'E'.
*    message = '请输入所有必输项！'.
*  ENDIF.

ENDFUNCTION.

效果图如下：