1.SAP定义RFC函数。 SE37 创建函数名:输入变量 I_PERNR TYPE PERNR_D输出变量:MSG_TYPE TYPE ZBAPI_MTYPE MESSAGE TYPE ZBAPI_MSG输出表:ET_IMAGE_BIN STRUCTURE SDOKCNTBINFUNCTION Z_ITF_SELECT_HR_PIC .*"-------------------------------------------------
摘要由CSDN通过智能技术生成
1.SAP定义RFC函数。
SE37 创建函数名:
输入变量 I_PERNR TYPE PERNR_D
输出变量:MSG_TYPE TYPE ZBAPI_MTYPE
MESSAGE TYPE ZBAPI_MSG
输出表:ET_IMAGE_BIN STRUCTURE SDOKCNTBIN
FUNCTION Z_ITF_SELECT_HR_PIC .
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_PERNR) TYPE PERNR_D OPTIONAL
*" EXPORTING
*" VALUE(MSG_TYPE) TYPE ZBAPI_MTYPE
*" VALUE(MESSAGE) TYPE ZBAPI_MSG
*" TABLES
*" ET_IMAGE_BIN STRUCTURE SDOKCNTBIN
*"----------------------------------------------------------------------
DATA: p_tclas LIKE pspar-tclas VALUE 'A',
p_begda LIKE prelp-begda VALUE '18000101',
p_endda LIKE prelp-endda VALUE '99991231'.
DATA: l_connect_info LIKE toav0,
l_exists(1) TYPE c.
DATA:l_access_info TYPE STANDARD TABLE OF scms_acinf WITH HEADER LINE,
l_content_txt TYPE STANDARD TABLE OF sdokcntasc,
l_content_bin TYPE STANDARD TABLE OF sdokcntbin.
TRANSLATE i_pernr TO UPPER CASE.
CALL METHOD z_itf_utils=>add_zero
CHANGING
c_input = i_pernr.
CALL FUNCTION 'HR_IMAGE_EXISTS'
EXPORTING
p_pernr = i_pernr
p_tclas = p_tclas
p_begda = p_begda
p_endda = p_endda
IMPORTING
p_exists = l_exists
p_connect_info = l_connect_info
EXCEPTIONS
error_connectiontable = 1
OTHERS = 2.
IF sy-subrc <> 0 OR l_exists <> '1'.
MSG_TYPE = 'E'.
MESSAGE = '照片不存在'.
EXIT.
ENDIF.
CALL FUNCTION 'SCMS_DOC_READ'
EXPORTING
MANDT = SY-MANDT
STOR_CAT = ''
CREP_ID = l_connect_info-archiv_id
DOC_ID = l_connect_info-arc_doc_id
SIGNATURE = 'X'
RAW_MODE = 'X'
TABLES
ACCESS_INFO = l_access_info
CONTENT_TXT = l_content_txt
CONTENT_BIN = et_image_bin
EXCEPTIONS
BAD_STORAGE_TYPE = 1
BAD_REQUEST = 2
UNAUTHORIZED = 3
COMP_NOT_FOUND = 4
NOT_FOUND = 5
FORBIDDEN = 6
CONFLICT = 7
INTERNAL_SERVER_ERROR = 8
ERROR_HTTP = 9
ERROR_SIGNATURE = 10
ERROR_CONFIG = 11
ERROR_FORMAT = 12
ERROR_PARAMETER = 13
ERROR = 14
OTHERS = 15
.
*
* IF sy-subrc <> 0 AND sy-msgty <> ''.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
* ENDIF.
IF et_image_bin IS NOT INITIAL .
MSG_TYPE = 'S'.
MESSAGE = '照片获取成功'.
ELSE.
MSG_TYPE = 'E'.
MESSAGE = '照片获取失败'.
ENDIF.
ENDFUNCTION.
1.SAP定义RFC函数。 SE37 创建函数名:输入变量 I_PERNR TYPE PERNR_D输出变量:MSG_TYPE TYPE ZBAPI_MTYPE MESSAGE TYPE ZBAPI_MSG输出表:ET_IMAGE_BIN STRUCTURE SDOKCNTBINFUNCTION Z_ITF_SELECT_HR_PIC .*"-------------------------------------------------