FUNCTION ZHR_PA02. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" VALUE(IN_OBJID) TYPE HROBJID OPTIONAL *" VALUE(IN_PERNR) TYPE PERSNO OPTIONAL *" VALUE(IN_NACHN) TYPE NACHN OPTIONAL *" TABLES *" RESULT_PA02 STRUCTURE ZAPP_PA02 *"---------------------------------------------------------------------- IF IN_OBJID IS NOT INITIAL. DATA:LT_STRUC LIKE TABLE OF STRUC WITH HEADER LINE, LT_OBJEC LIKE TABLE OF OBJEC WITH HEADER LINE. DATA:GT_STRUC LIKE TABLE OF STRUC WITH HEADER LINE, GT_OBJEC LIKE TABLE OF OBJEC WITH HEADER LINE, WT_OBJEC LIKE TABLE OF OBJEC WITH HEADER LINE. DATA:LS_CONNECT_INFO TYPE TOAV0. DATA:LT_EX_DOCUMENT TYPE TABLE OF TBL1024, LS_EX_DOCUMENT TYPE TBL1024, LV_LEN TYPE INT4. DATA:L_STRING TYPE STRING,L_STRING1 TYPE STRING. DATA LV_IMAGE TYPE XSTRING. DATA:LENGTH TYPE I,L_IMAGE TYPE XSTRING. DATA:URL TYPE STRING, GUID TYPE GUID_32, CACHED_RESPONSE TYPE REF TO IF_HTTP_RESPONSE. DATA:L_USRID LIKE PA0105-USRID. DATA:LINES TYPE I,NUM TYPE I. CALL FUNCTION \'RH_STRUC_GET\' EXPORTING ACT_OTYPE = \'O\' ACT_OBJID = IN_OBJID ACT_WEGID = \'PERS-O\' * ACT_INT_FLAG = ACT_PLVAR = \'01\' ACT_BEGDA = SY-DATUM ACT_ENDDA = SY-DATUM TABLES * RESULT_TAB = RESULT_OBJEC = LT_OBJEC RESULT_STRUC = LT_STRUC EXCEPTIONS NO_PLVAR_FOUND = 1 NO_ENTRY_FOUND = 2 OTHERS = 3. IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. DELETE LT_OBJEC WHERE OTYPE <> \'P\'. SORT LT_OBJEC BY OBJID. DELETE ADJACENT DUPLICATES FROM LT_OBJEC COMPARING OBJID. LOOP AT LT_OBJEC. CLEAR:L_USRID. RESULT_PA02-PERNR = LT_OBJEC-OBJID. RESULT_PA02-NACHN = LT_OBJEC-SHORT. SELECT SINGLE GESCH INTO RESULT_PA02-GESCH FROM PA0002 WHERE PERNR = RESULT_PA02-PERNR. SELECT SINGLE USRID INTO L_USRID FROM PA0105 WHERE PERNR = RESULT_PA02-PERNR AND USRTY = \'0004\'. RESULT_PA02-FLAG1 = L_USRID. CONDENSE RESULT_PA02-FLAG1. "职位 CLEAR:GT_OBJEC,GT_OBJEC[],GT_STRUC,GT_STRUC[]. CALL FUNCTION \'RH_STRUC_GET\' EXPORTING ACT_OTYPE = \'P\' ACT_OBJID = RESULT_PA02-PERNR ACT_WEGID = \'ZPSCOO\' ACT_PLVAR = \'01\' ACT_BEGDA = SY-DATUM ACT_ENDDA = SY-DATUM AUTHORITY_CHECK = \'\' TABLES RESULT_OBJEC = GT_OBJEC RESULT_STRUC = GT_STRUC EXCEPTIONS NO_PLVAR_FOUND = 1 NO_ENTRY_FOUND = 2 OTHERS = 3. WT_OBJEC[] = GT_OBJEC[]. DELETE WT_OBJEC WHERE OTYPE NE \'S\'. CLEAR:NUM. DESCRIBE TABLE WT_OBJEC LINES NUM. IF NUM > 1. "如果有多个职位 LOOP AT WT_OBJEC. SEARCH WT_OBJEC-STEXT FOR \'党委\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 1. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. IF WT_OBJEC-STEXT = \'董事长\'. WT_OBJEC-OBJID = 2. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'集团董事\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 3. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'集团监事\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 4. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'集团\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 5. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'股份公司董事长\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 6. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'股份公司董事\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 7. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'股份公司监事\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 8. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'股份公司总经理\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 9. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH WT_OBJEC-STEXT FOR \'股份公司副总经理\'. IF SY-SUBRC = 0. WT_OBJEC-OBJID = 10. MODIFY WT_OBJEC.CLEAR WT_OBJEC.CONTINUE. ENDIF. SEARCH GT_OBJEC-STEXT FOR \'事业部\'. IF SY-SUBRC = 0. GT_OBJEC-OBJID = 11. MODIFY GT_OBJEC.CLEAR GT_OBJEC.CONTINUE. ENDIF. ENDLOOP. ENDIF. SORT WT_OBJEC BY OBJID. LOOP AT WT_OBJEC WHERE OTYPE = \'S\'. IF RESULT_PA02-ZHIWEI IS INITIAL. RESULT_PA02-ZHIWEI = WT_OBJEC-STEXT. ELSE. CONCATENATE RESULT_PA02-ZHIWEI \'/\' WT_OBJEC-STEXT INTO RESULT_PA02-ZHIWEI. ENDIF. * delete WT_OBJEC. * SORT WT_OBJEC by begda. ENDLOOP. "读取照片地址 CLEAR:LS_CONNECT_INFO. CALL FUNCTION \'HR_IMAGE_EXISTS\' "检查照片是否存在 EXPORTING P_PERNR = RESULT_PA02-PERNR P_TCLAS = \'A\' P_BEGDA = \'18000101\' P_ENDDA = \'99991231\' IMPORTING * P_EXISTS = P_CONNECT_INFO = LS_CONNECT_INFO EXCEPTIONS ERROR_CONNECTIONTABLE = 1 OTHERS = 2. CLEAR:LV_LEN,LT_EX_DOCUMENT,LT_EX_DOCUMENT[]. CALL FUNCTION \'ALINK_RFC_TABLE_GET\' "获取照片LINK EXPORTING IM_DOCID = LS_CONNECT_INFO-ARC_DOC_ID IM_CREPID = \'A2\' * IM_COMPID = IMPORTING EX_LENGTH = LV_LEN * EX_MESSAGE = TABLES EX_DOCUMENT = LT_EX_DOCUMENT. CLEAR:LS_EX_DOCUMENT,L_STRING1,L_STRING,LV_IMAGE,L_IMAGE,LENGTH. LOOP AT LT_EX_DOCUMENT INTO LS_EX_DOCUMENT. L_STRING1 = LS_EX_DOCUMENT-LINE. CONCATENATE L_STRING L_STRING1 INTO L_STRING. ENDLOOP. LV_IMAGE = L_STRING. L_IMAGE = LV_IMAGE. LENGTH = XSTRLEN( L_IMAGE ). CLEAR:URL,GUID,CACHED_RESPONSE. CREATE OBJECT CACHED_RESPONSE TYPE CL_HTTP_RESPONSE EXPORTING ADD_C_MSG = 1. CACHED_RESPONSE->SET_DATA( LV_IMAGE ). CACHED_RESPONSE->SET_HEADER_FIELD( NAME = IF_HTTP_HEADER_FIELDS=>CONTENT_TYPE VALUE = \'image/pjpeg\' ). CACHED_RESPONSE->SET_STATUS( CODE = 200 REASON = \'OK\' ). CACHED_RESPONSE->SERVER_CACHE_EXPIRE_REL( EXPIRES_REL = 180 ). CALL FUNCTION \'GUID_CREATE\' IMPORTING EV_GUID_32 = GUID. CL_WD_UTILITIES=>CONSTRUCT_WD_URL( EXPORTING APPLICATION_NAME = \'ZPROTAL_PHOTO\' IMPORTING OUT_LOCAL_URL = URL ). CONCATENATE URL \'/\' GUID SY-UZEIT INTO URL. CL_HTTP_SERVER=>SERVER_CACHE_UPLOAD( URL = URL RESPONSE = CACHED_RESPONSE ). RESULT_PA02-PIC_ID = URL. SHIFT RESULT_PA02-PIC_ID LEFT DELETING LEADING \'0\'. APPEND RESULT_PA02. CLEAR RESULT_PA02. ENDLOOP. ******************测试临时使用 LOOP AT RESULT_PA02. IF IN_OBJID = \'11000007\'. IF RESULT_PA02-PERNR = \'00000225\' OR RESULT_PA02-PERNR = \'00022240\'. DELETE RESULT_PA02. CLEAR RESULT_PA02. CONTINUE. ENDIF. ENDIF. ENDLOOP. ***************** DESCRIBE TABLE RESULT_PA02 LINES LINES. IF LINES > 1. LOOP AT RESULT_PA02. READ TABLE LT_STRUC WITH KEY OBJID = RESULT_PA02-PERNR. IF SY-SUBRC = 0. RESULT_PA02-INDEX1 = LT_STRUC-SEQNR. ELSE. RESULT_PA02-INDEX1 = 99999. ENDIF. MODIFY RESULT_PA02.CLEAR RESULT_PA02. ENDLOOP. SORT RESULT_PA02 BY INDEX1. ENDIF. ELSE. * DATA:L_NACHN LIKE PA0002-NACHN. * CLEAR L_NACHN. * CONCATENATE \'%\' IN_NACHN \'%\' INTO L_NACHN. * IF IN_PERNR IS INITIAL . * SELECT PERNR NACHN INTO CORRESPONDING FIELDS OF TABLE RESULT_PA02 * FROM PA0002 WHERE NACHN LIKE L_NACHN. * ELSE. * RESULT_PA02-PERNR = IN_PERNR. * SELECT SINGLE NACHN INTO RESULT_PA02-NACHN FROM PA0002 * WHERE PERNR = RESULT_PA02-PERNR. * APPEND RESULT_PA02. CLEAR RESULT_PA02. * ENDIF. * * LOOP AT RESULT_PA02. * "职位 * CLEAR:GT_OBJEC,GT_OBJEC[],GT_STRUC,GT_STRUC[]. * CALL FUNCTION \'RH_STRUC_GET\' * EXPORTING * ACT_OTYPE = \'P\' * ACT_OBJID = RESULT_PA02-PERNR * ACT_WEGID = \'ZPSCOO\' * ACT_PLVAR = \'01\' * ACT_BEGDA = SY-DATUM * ACT_ENDDA = SY-DATUM * AUTHORITY_CHECK = \'\' * TABLES * RESULT_OBJEC = GT_OBJEC * RESULT_STRUC = GT_STRUC * EXCEPTIONS * NO_PLVAR_FOUND = 1 * NO_ENTRY_FOUND = 2 * OTHERS = 3. * LOOP AT GT_OBJEC WHERE OTYPE = \'S\'. * IF RESULT_PA02-ZHIWEI IS INITIAL. * RESULT_PA02-ZHIWEI = GT_OBJEC-STEXT. * ELSE. * CONCATENATE RESULT_PA02-ZHIWEI \'/\' GT_OBJEC-STEXT INTO RESULT_PA02-ZHIWEI. * ENDIF. * ENDLOOP. * * "读取照片地址 * CLEAR:LS_CONNECT_INFO. * CALL FUNCTION \'HR_IMAGE_EXISTS\' "检查照片是否存在 * EXPORTING * P_PERNR = RESULT_PA02-PERNR * P_TCLAS = \'A\' * P_BEGDA = \'18000101\' * P_ENDDA = \'99991231\' * IMPORTING ** P_EXISTS = * P_CONNECT_INFO = LS_CONNECT_INFO * EXCEPTIONS * ERROR_CONNECTIONTABLE = 1 * OTHERS = 2. * * CLEAR:LV_LEN,LT_EX_DOCUMENT,LT_EX_DOCUMENT[]. * CALL FUNCTION \'ALINK_RFC_TABLE_GET\' "获取照片LINK * EXPORTING * IM_DOCID = LS_CONNECT_INFO-ARC_DOC_ID * IM_CREPID = \'A2\' ** IM_COMPID = * IMPORTING * EX_LENGTH = LV_LEN ** EX_MESSAGE = * TABLES * EX_DOCUMENT = LT_EX_DOCUMENT. * * CLEAR:LS_EX_DOCUMENT,L_STRING1,L_STRING,LV_IMAGE,L_IMAGE,LENGTH. * LOOP AT LT_EX_DOCUMENT INTO LS_EX_DOCUMENT. * L_STRING1 = LS_EX_DOCUMENT-LINE. * CONCATENATE L_STRING L_STRING1 INTO L_STRING. * ENDLOOP. * LV_IMAGE = L_STRING. * L_IMAGE = LV_IMAGE. * LENGTH = XSTRLEN( L_IMAGE ). * * CLEAR:URL,GUID,CACHED_RESPONSE. * CREATE OBJECT CACHED_RESPONSE * TYPE * CL_HTTP_RESPONSE * EXPORTING * ADD_C_MSG = 1. * * CACHED_RESPONSE->SET_DATA( LV_IMAGE ). * CACHED_RESPONSE->SET_HEADER_FIELD( * NAME = IF_HTTP_HEADER_FIELDS=>CONTENT_TYPE * VALUE = \'image/pjpeg\' ). * * CACHED_RESPONSE->SET_STATUS( CODE = 200 REASON = \'OK\' ). * CACHED_RESPONSE->SERVER_CACHE_EXPIRE_REL( EXPIRES_REL = * 180 ). * * CALL FUNCTION \'GUID_CREATE\' * IMPORTING * EV_GUID_32 = GUID. * * CL_WD_UTILITIES=>CONSTRUCT_WD_URL( EXPORTING * APPLICATION_NAME = \'ZPROTAL_PHOTO\' * IMPORTING OUT_LOCAL_URL = URL ). * * CONCATENATE URL \'/\' GUID SY-UZEIT INTO URL. * CL_HTTP_SERVER=>SERVER_CACHE_UPLOAD( * URL = URL * RESPONSE = CACHED_RESPONSE ). * * RESULT_PA02-PIC_ID = URL. * SHIFT RESULT_PA02-PIC_ID LEFT DELETING LEADING \'0\'. * MODIFY RESULT_PA02.CLEAR RESULT_PA02. * ENDLOOP. ENDIF. LOOP AT RESULT_PA02 . IF RESULT_PA02-NACHN IS INITIAL. DELETE RESULT_PA02.CLEAR RESULT_PA02. ENDIF. ENDLOOP. ENDFUNCTION.
,