sap call msword
*&---------------------------------------------------------------------**& ReportZHR2007D *
*& *
*&---------------------------------------------------------------------*
* Version : ver 1.0.0. - 2007/09/21
* SYSTEM 名 : HR MODULE
* PROGRAM 名 : 员工个人简历(打印) - 青岛用
* AUTHOR : 金磊(jinlei)
* 作成日 : 2006/09/21
* Modify :
*&---------------------------------------------------------------------*
INCLUDE ZHR2007D_TOP .
* INCLUDE ZHR2007D_O01 . *
* INCLUDE ZHR2007D_I01 . *
INCLUDE ZHR2007D_F01 .
INITIALIZATION .
PERFORM INIT_FACTORY.
START-OF-SELECTION .
PERFORM GET_PICTUR.
PERFORM OPEN_DOC.
PERFORM MACRO_PROCESSING.
CALL FUNCTION 'WS_MSG'
EXPORTING
MSG_TYPE = 'I'
TEXT = TEXT-200
TITL = TEXT-201 .
PERFORM CLOSE_DOC.
END-OF-SELECTION.
PERFORM CLOSE_FACTORY.
PERFORM DELETE_BMP_FILE.
*-------------------------------------------------------------------------------------------------------
REPORT ZHR2007DNO STANDARD PAGE HEADING.
INCLUDE <CTLDEF> .
INCLUDE OFFICEINTEGRATIONINCLUDE.
TABLES: ZHR02T,TOAHR.
DATAZ_OBJECT_ID LIKE TOAHR-OBJECT_ID.
DATAZURIL LIKE RLGRAP-FILENAME.
DATA : BEGIN OF IT_OUTPUT_1 OCCURS 0,
SNAME LIKE ZHR12T-SNAME, "员工姓名1
SEX(2) , "性别2
FGBDT LIKE ZHR12T-FGBDT , "出生年月3
PERNR LIKE ZHR12T-PERNR , "社员编号4
SORGCD(20) , "部署名称5
BEGDA LIKE ZHR12T-BEGDA , "入社日期6
ENDDA LIKE ZHR12T-ENDDA , "退社日期7
SANSVH(10) , "工资级别8
SJIKWI(8) , "职务9
SRACES(10) , "民族10
SJOGCH(6) , "政治面貌11
REGNO(21) , "身份证编号12
ADDR1 LIKE ZHR12T-ADDR1 , "籍贯13
ADDR2 LIKE ZHR12T-ADDR2 , "住址14
ADDR3 LIKE ZHR12T-ADDR3 , "户口所在地15
SCENSU LIKE ZHR12T-CENSU , "户口性质16
STATU LIKE ZHR12T-STATU , "身高17
WEIGH LIKE ZHR12T-WEIGH , "体重18
EYELE LIKE ZHR12T-EYELE , "左19
EYERI LIKE ZHR12T-EYERI , "右20
BLOOD LIKE ZHR12T-BLOOD , "血型21
SCONN(36) , "联系电话22
URIL LIKE RLGRAP-FILENAME , "相片地址23
SSLABS(16) , "学历
END OF IT_OUTPUT_1.
DATA: BEGIN OF IT_OUTPUT_2 OCCURS 0, "家属信息
SSUBTY(8) , "类型1
SNAME LIKE ZHR12T-SNAME, "姓2
FGBDT LIKE ZHR15T-FGBDT, "出生年月4
SEX(4) , "性别5
FASAR LIKE ZHR15T-FASAR, "文化程度6
END OF IT_OUTPUT_2.
DATA: BEGIN OF IT_OUTPUT_3 OCCURS 0 , "学历情况
SDAY(24) , "起始日期1
INSTI LIKE ZHR13T-INSTI, "学校名称3
YEART LIKE ZHR13T-YEART, "学制4
ATEXT LIKE ZHR13T-SLTP1, "专业5
SLABS LIKE ZHR13T-SLABS, "学历6
END OF IT_OUTPUT_3 .
DATA: BEGIN OF IT_OUTPUT_4 OCCURS 0 , "公司内发令事项
BEGDA LIKE ZHR19T-BEGDA, "起始日期1
SMASSN(8) , "发令类型2
ACTRE LIKE ZHR19T-ACTRE, "事由3
SCHANGE(24) , "旧部署6
END OF IT_OUTPUT_4 .
DATA: FACTORY TYPE REF TO I_OI_DOCUMENT_FACTORY.
DATA: DOCUMENT TYPE REF TO I_OI_DOCUMENT_PROXY.
DATA: RETCODE TYPE T_OI_RET_STRING.
SELECTION-SCREEN: BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_PERNR LIKE ZHR12T-PERNR MATCHCODE OBJECT ZHR0003.
SELECTION-SCREEN END OF BLOCK BK1.
DATA: DOC_TABLE LIKE W3MIME OCCURS 0.
DATA: DOC_SIZE TYPE I.
DATA: DOC_TYPE(80) VALUE SOI_DOCTYPE_WORD97_DOCUMENT.
DATA: DOC_FORMAT(80) TYPE C.
DATA: LINK_SERVER TYPE REF TO I_OI_LINK_SERVER.
DATA: IS_CLOSED TYPE I.
*-----------------------------------------------------------------------------------------------------------------------------------------
*----------------------------------------------------------------------*
***INCLUDE ZHR2007D_F01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& FormOPEN_DOC
*&---------------------------------------------------------------------*
FORM OPEN_DOC.
DEFINE M_LINK_TAB.
CALL METHOD LINK_SERVER->ADD_TABLE_ITEM2
EXPORTING ITEM_NAME = &1
IMPORTING RETCODE = RETCODE
CHANGINGDATA_TABLE = &2.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
END-OF-DEFINITION.
DATA :BEGIN OF LT_OUTPUT_1 OCCURS 0,
SNAME LIKE ZHR12T-SNAME, "员工姓名
FASEX LIKE ZHR12T-FASEX , "性别
FGBDT LIKE ZHR12T-FGBDT , "出生年月
PERNR LIKE ZHR12T-PERNR , "社员编号
ORGCD LIKE ZHR12T-ORGCD , "部署编号
BEGDA LIKE ZHR12T-BEGDA , "入社日期
ENDDA LIKE ZHR12T-ENDDA , "退社日期
ANSVH LIKE ZHR11T-ANSVH , "工资级别
JIKWI LIKE ZHR12T-JIKWI , "职务
RACES LIKE ZHR12T-RACES , "民族10
JOGCH LIKE ZHR12T-JOGCH , "政治面貌11
REGNO LIKE ZHR12T-REGNO , "身份证编号12
ADDR1 LIKE ZHR12T-ADDR1 , "籍贯13
ADDR2 LIKE ZHR12T-ADDR2 , "住址14
ADDR3 LIKE ZHR12T-ADDR3 , "户口所在地15
CENSU LIKE ZHR12T-CENSU , "户口性质16
STATU LIKE ZHR12T-STATU , "身高17
WEIGH LIKE ZHR12T-WEIGH , "体重18
EYELE LIKE ZHR12T-EYELE , "左19
EYERI LIKE ZHR12T-EYERI , "右20
BLOOD LIKE ZHR12T-BLOOD , "血型21
TELPH LIKE ZHR12T-TELPH , "联系电话22
HANDP LIKE ZHR12T-HANDP , "手机23
SLABS LIKE ZHR12T-SLABS , "学历24
END OF LT_OUTPUT_1.
CLEAR: LT_OUTPUT_1,IT_OUTPUT_1.
REFRESH: LT_OUTPUT_1,IT_OUTPUT_1.
DATA: BEGIN OF LT_OUTPUT_2 OCCURS 0, "家属信息
SUBTY LIKE ZHR15T-SUBTY , "类型1
FAVOR LIKE ZHR15T-FAVOR, "姓2
FANAM LIKE ZHR15T-FANAM, "名3
FGBDT LIKE ZHR15T-FGBDT, "出生年月4
FASEX LIKE ZHR15T-FASEX, "性别5
FASAR LIKE ZHR15T-FASAR, "文化程度6
END OF LT_OUTPUT_2.
CLEAR: LT_OUTPUT_2 .
REFRESH: LT_OUTPUT_2 .
DATA: BEGIN OF LT_OUTPUT_3 OCCURS 0, "学历
BEGDA LIKE ZHR13T-BEGDA, "起始日期1
ENDDA LIKE ZHR13T-ENDDA, "结束日期2
INSTI LIKE ZHR13T-INSTI, "学校名称3
YEART LIKE ZHR13T-YEART, "学制4
ATEXT LIKE ZHR13T-ATEXT, "专业5
SLABS LIKE ZHR13T-SLABS, "学历6
END OF LT_OUTPUT_3.
CLEAR: LT_OUTPUT_3 .
REFRESH: LT_OUTPUT_3 .
DATA: BEGIN OF LT_OUTPUT_4 OCCURS 0, "发令
BEGDA LIKE ZHR19T-BEGDA, "起始日期1
MASSN LIKE ZHR19T-MASSN, "发令类型2
ACTRE LIKE ZHR19T-ACTRE, "事由3
STAT2 LIKE ZHR19T-STAT2, "旧状态4
STAT2N LIKE ZHR19T-STAT2N , "新状态5
ORGCDLIKE ZHR19T-ORGCD, "旧部署6
ORGCDN LIKE ZHR19T-ORGCDN , "新部署7
JIKWILIKE ZHR19T-JIKWI, "旧职务8
JIKWIN LIKE ZHR19T-JIKWIN, "新职务9
ANSVHLIKE ZHR19T-ANSVH, "旧职级10
ANSVHN LIKE ZHR19T-ANSVHN , "新职级11
END OF LT_OUTPUT_4.
*--- 人事主记录选择
DATA: ZSTRLEN(2).
CLEAR:ZSTRLEN.
SELECT* INTO CORRESPONDING FIELDS OF TABLE LT_OUTPUT_1
FROM ZHR12TWHERE PERNR = P_PERNR.
IF LT_OUTPUT_1[] IS INITIAL.
CALL FUNCTION 'WS_MSG'
EXPORTING
MSG_TYPE = 'I'
TEXT = TEXT-202
TITL = TEXT-203 .
STOP.
ENDIF.
LOOP AT LT_OUTPUT_1.
MOVE-CORRESPONDING LT_OUTPUT_1 TO IT_OUTPUT_1.
IFLT_OUTPUT_1-FASEX = '1'.
IT_OUTPUT_1-SEX = TEXT-100. "'男'.
ELSE.
IT_OUTPUT_1-SEX = TEXT-101. "'女'.
ENDIF.
PERFORM ZHR03T_SELECTUSING: 'S' "职务名称
LT_OUTPUT_1-JIKWI
CHANGING IT_OUTPUT_1-SJIKWI ,
'E' "民族
LT_OUTPUT_1-RACES
CHANGING IT_OUTPUT_1-SRACES.
CASE LT_OUTPUT_1-JOGCH. "政治面貌
WHEN '1'.
IT_OUTPUT_1-SJOGCH = TEXT-102. "'团员'
WHEN '2'.
IT_OUTPUT_1-SJOGCH = TEXT-103. "'党员'
WHEN '3'.
IT_OUTPUT_1-SJOGCH = TEXT-104.
ENDCASE.
CASE LT_OUTPUT_1-CENSU. "户口性质
WHEN '1'.
IT_OUTPUT_1-SCENSU = TEXT-105. "'非农业'.
WHEN '2'.
IT_OUTPUT_1-SCENSU =TEXT-106. " '农业'.
ENDCASE.
SELECT SINGLE ATX FROM ZHR04T INTO IT_OUTPUT_1-SANSVH "职级名称
WHERE ANSVH = LT_OUTPUT_1-ANSVH.
CLEAR: ZHR02T.
SELECT SINGLE * FROM ZHR02T WHERE ENDDA = '99991231'
AND ORGCD = LT_OUTPUT_1-ORGCD.
CONCATENATE ZHR02T-KWATX ZHR02T-GONTX INTO IT_OUTPUT_1-SORGCD
SEPARATED BY SPACE.
IF LT_OUTPUT_1-TELPH NE SPACE ANDLT_OUTPUT_1-HANDP NE SPACE.
CONCATENATE 'tel.' LT_OUTPUT_1-TELPH 'hd.' LT_OUTPUT_1-HANDP
INTO IT_OUTPUT_1-SCONN SEPARATED BY SPACE.
ELSEIF LT_OUTPUT_1-TELPH NE SPACE AND LT_OUTPUT_1-HANDP EQ SPACE.
CONCATENATE 'tel.' LT_OUTPUT_1-TELPH
INTO IT_OUTPUT_1-SCONN SEPARATED BY SPACE.
ELSEIF LT_OUTPUT_1-TELPH EQ SPACE AND LT_OUTPUT_1-HANDP NE SPACE.
CONCATENATE 'hd.' LT_OUTPUT_1-HANDP
INTO IT_OUTPUT_1-SCONN SEPARATED BY SPACE.
ENDIF.
IF LT_OUTPUT_1-SLABS NE SPACE.
SELECT SINGLE TTOUT FROM ZHR05T INTO IT_OUTPUT_1-SSLABS
WHERE SLABS = LT_OUTPUT_1-SLABS.
ELSE.
SELECT SINGLE MAX( SLABS ) FROM ZHR13T INTO LT_OUTPUT_1-SLABS
WHERE PERNR = P_PERNR
AND SLABS < '80'.
SELECT SINGLE TTOUT FROM ZHR05T INTO IT_OUTPUT_1-SSLABS
WHERE SLABS = LT_OUTPUT_1-SLABS.
ENDIF.
ZSTRLEN = STRLEN( LT_OUTPUT_1-REGNO ).
IF ZSTRLEN = '18'.
CONCATENATE LT_OUTPUT_1-REGNO+0(6) '-' LT_OUTPUT_1-REGNO+6(8) '-'
LT_OUTPUT_1-REGNO+14(*) INTO IT_OUTPUT_1-REGNO.
ELSEIF ZSTRLEN = '15'.
CONCATENATE LT_OUTPUT_1-REGNO+0(6) '-' LT_OUTPUT_1-REGNO+6(6) '-'
LT_OUTPUT_1-REGNO+12(*)INTO IT_OUTPUT_1-REGNO.
ELSE.
ENDIF.
IT_OUTPUT_1-URIL = ZURIL.
APPENDIT_OUTPUT_1.
ENDLOOP.
*-- 家族情况选择
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_OUTPUT_2
FROM ZHR15T WHERE PERNR =P_PERNR.
LOOP AT LT_OUTPUT_2.
MOVE-CORRESPONDING LT_OUTPUT_2 TO IT_OUTPUT_2 .
CONCATENATE LT_OUTPUT_2-FAVORLT_OUTPUT_2-FANAM
INTO IT_OUTPUT_2-SNAMESEPARATED BY SPACE.
PERFORM ZHR03T_SELECT USING 'F'
LT_OUTPUT_2-SUBTY
CHANGING IT_OUTPUT_2-SSUBTY.
IF LT_OUTPUT_2-FASEX = '1'.
IT_OUTPUT_2-SEX = TEXT-100.
ELSE.
IT_OUTPUT_2-SEX = TEXT-101.
ENDIF.
APPENDIT_OUTPUT_2.
ENDLOOP.
*-- 学历情况选择
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_OUTPUT_3
FROM ZHR13T WHERE PERNR =P_PERNR.
LOOP AT LT_OUTPUT_3.
MOVE-CORRESPONDING LT_OUTPUT_3 TO IT_OUTPUT_3 .
CONCATENATE LT_OUTPUT_3-BEGDA TEXT-107 LT_OUTPUT_3-ENDDA
INTO IT_OUTPUT_3-SDAY SEPARATED BY SPACE.
SELECT SINGLE TTOUT FROM ZHR05T INTO IT_OUTPUT_3-SLABS
WHERE SLABS = LT_OUTPUT_3-SLABS.
APPENDIT_OUTPUT_3.
ENDLOOP.
*-- 发令事项选择
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_OUTPUT_4
FROM ZHR19T WHERE PERNR =P_PERNR.
LOOP AT LT_OUTPUT_4 .
MOVE-CORRESPONDINGLT_OUTPUT_4 TO IT_OUTPUT_4.
PERFORM ZHR03T_SELECT USING 'G' "发令类型
LT_OUTPUT_4-MASSN
CHANGING IT_OUTPUT_4-SMASSN.
IF LT_OUTPUT_4-STAT2 NE LT_OUTPUT_4-STAT2N .
CONCATENATE TEXT-108 LT_OUTPUT_4-STAT2 '-->' LT_OUTPUT_4-STAT2N
INTO IT_OUTPUT_4-SCHANGE.
ELSEIF LT_OUTPUT_4-ORGCD NE LT_OUTPUT_4-ORGCDN.
CONCATENATE TEXT-109 LT_OUTPUT_4-ORGCD '-->' LT_OUTPUT_4-ORGCDN
INTO IT_OUTPUT_4-SCHANGE.
ELSEIFLT_OUTPUT_4-JIKWI NE LT_OUTPUT_4-JIKWIN.
CONCATENATE TEXT-110 LT_OUTPUT_4-JIKWI '-->' LT_OUTPUT_4-JIKWIN
INTO IT_OUTPUT_4-SCHANGE.
ELSEIF LT_OUTPUT_4-ANSVH NE LT_OUTPUT_4-ANSVHN.
CONCATENATE TEXT-111 LT_OUTPUT_4-ANSVH '-->' LT_OUTPUT_4-ANSVHN
INTO IT_OUTPUT_4-SCHANGE.
ENDIF.
APPEND IT_OUTPUT_4.
ENDLOOP.
CLEAR:LT_OUTPUT_1.
IF NOT LINK_SERVER IS INITIAL.
*CALL METHOD LINK_SERVER->ADD_TABLE_ITEM2
* EXPORTING ITEM_NAME = 'IT_OUTPUT_1'
* IMPORTING RETCODE = RETCODE
* CHANGINGDATA_TABLE = LT_OUTPUT_1[].
*CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
M_LINK_TAB 'IT_OUTPUT_1' IT_OUTPUT_1[].
M_LINK_TAB 'IT_OUTPUT_2'IT_OUTPUT_2[].
M_LINK_TAB 'IT_OUTPUT_3'IT_OUTPUT_3[].
M_LINK_TAB 'IT_OUTPUT_4'IT_OUTPUT_4[].
ENDIF.
CALL FUNCTION 'SAP_OI_LOAD_MIME_DATA'
EXPORTING
OBJECT_ID = 'ZHRPERS'
IMPORTING
DATA_SIZE = DOC_SIZE
DOCUMENT_TYPE = DOC_TYPE
DOCUMENT_FORMAT= DOC_FORMAT
TABLES
DATA_TABLE = DOC_TABLE
EXCEPTIONS
OBJECT_NOT_FOUND = 1
INTERNAL_ERROR = 2
OTHERS = 3.
IF DOC_SIZE NE 0.
CALL METHOD FACTORY->GET_DOCUMENT_PROXY
EXPORTING DOCUMENT_TYPE = DOC_TYPE
IMPORTING DOCUMENT_PROXY = DOCUMENT
RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
CALL METHOD DOCUMENT->OPEN_DOCUMENT_FROM_TABLE
EXPORTING DOCUMENT_TABLE = DOC_TABLE[]
DOCUMENT_SIZE= DOC_SIZE
IMPORTING RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
ELSE.
ENDIF.
ENDFORM. " OPEN_DOC
*&---------------------------------------------------------------------*
*& FormCLOSE_FACTORY
*&---------------------------------------------------------------------*
FORM CLOSE_FACTORY.
IF NOT LINK_SERVER IS INITIAL.
CALL METHOD LINK_SERVER->STOP_LINK_SERVER
IMPORTING RETCODE = RETCODE.
FREE LINK_SERVER.
ENDIF.
IF NOT FACTORY IS INITIAL.
CALL METHOD FACTORY->STOP_FACTORY IMPORTING RETCODE = RETCODE.
FREE FACTORY.
ENDIF.
ENDFORM. " CLOSE_FACTORY
*&---------------------------------------------------------------------*
*& FormMACRO_PROCESSING
*&---------------------------------------------------------------------*
FORM MACRO_PROCESSING.
CALL METHOD DOCUMENT->EXECUTE_MACRO
EXPORTING MACRO_STRING = 'R3_Macro1'
IMPORTING RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
ENDFORM. " MACRO_PROCESSING
*&---------------------------------------------------------------------*
*& FormINIT_FACTORY
*&---------------------------------------------------------------------*
FORM INIT_FACTORY.
IF FACTORY IS INITIAL.
CALL METHOD C_OI_FACTORY_CREATOR=>GET_DOCUMENT_FACTORY
IMPORTING FACTORY = FACTORY
RETCODE = RETCODE.
IF RETCODE NE C_OI_ERRORS=>RET_OK. EXIT. ENDIF.
CALL METHOD FACTORY->START_FACTORY
EXPORTING R3_APPLICATION_NAME = 'jinlei'
* register_on_close_event = 'X'
* register_on_custom_event = 'X'
IMPORTING RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
CALL METHOD FACTORY->GET_LINK_SERVER
IMPORTING LINK_SERVER = LINK_SERVER
RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
CALL METHOD LINK_SERVER->START_LINK_SERVER
IMPORTING RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
ENDIF. "factory IS INITIAL.
ENDFORM. " INIT_FACTORY
*&---------------------------------------------------------------------*
*& FormCLOSE_DOC
*&---------------------------------------------------------------------*
FORM CLOSE_DOC.
IF NOT DOCUMENT IS INITIAL.
CALL METHOD DOCUMENT->IS_DESTROYED
IMPORTING RET_VALUE = IS_CLOSED.
IF IS_CLOSED IS INITIAL.
CALL METHOD DOCUMENT->CLOSE_DOCUMENT
EXPORTING DO_SAVE = 'X'
IMPORTING RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
ENDIF.
CALL METHOD DOCUMENT->RELEASE_DOCUMENT
IMPORTING RETCODE = RETCODE.
CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
FREE DOCUMENT.
ENDIF.
ENDFORM. " CLOSE_DOC
*&---------------------------------------------------------------------*
*& FormZHR03T_SELECT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_ARTtext
* -->P_=text
* -->P_0295 text
* -->P_SUBTYtext
* -->P_=text
* -->P_LT_OUTPUT_1_JIKWItext
* <--P_IT_OUTPUT_1_SJIKWItext
*----------------------------------------------------------------------*
FORM ZHR03T_SELECT USING P_ART
P_SUBTY
CHANGING P_VALUE.
SELECT SINGLE TTOUT FROM ZHR03T INTO P_VALUE
WHERE ART = P_ART
AND SUBTY = P_SUBTY.
ENDFORM. " ZHR03T_SELECT
*&---------------------------------------------------------------------*
*& FormGET_PICTUR
*&---------------------------------------------------------------------*
FORM GET_PICTUR.
DATA: ZPERNR(10).
CLEAR: ZPERNR.
CONCATENATE P_PERNR '%' INTO ZPERNR.
SELECT MIN( OBJECT_ID ) FROM TOAHR "得到个人图片
INTO Z_OBJECT_ID
WHERE OBJECT_ID LIKE ZPERNR
AND DEL_DATE EQ SPACE.
SELECT SINGLE * FROM TOAHR WHERE
OBJECT_ID = Z_OBJECT_ID.
IF SY-SUBRC = 0.
CALL FUNCTION 'ZARCHIVOBJECT_DISPLAY_MIX1'
EXPORTING
ARCHIV_DOC_ID = TOAHR-ARC_DOC_ID
ARCHIV_ID = 'HR'
DOC_TYPE = 'JPG'
IMPORTING
URIL = ZURIL
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ENDFORM. " GET_PICTUR
*&---------------------------------------------------------------------*
*& FormDELETE_BMP_FILE
*&---------------------------------------------------------------------*
FORM DELETE_BMP_FILE.
IF ZURILNE SPACE.
CALL FUNCTION 'TMP_GUI_DELETE_FILE'
EXPORTING
FILE_NAME = ZURIL
EXCEPTIONS
FAILED = 1
OTHERS = 2 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ENDFORM. " DELETE_BMP_FILE
页:
[1]