sap call msword

zhtv

*&---------------------------------------------------------------------*
*& Report  ZHR2007D                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
* 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   ZHR2007D  NO STANDARD PAGE HEADING  .
　　INCLUDE <CTLDEF> .
INCLUDE OFFICEINTEGRATIONINCLUDE  .
TABLES: ZHR02T,TOAHR.
　　DATA  Z_OBJECT_ID LIKE TOAHR-OBJECT_ID.
DATA  ZURIL 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 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  OPEN_DOC
*&---------------------------------------------------------------------*
FORM OPEN_DOC.
　　  DEFINE M_LINK_TAB.
    CALL METHOD LINK_SERVER->ADD_TABLE_ITEM2
             EXPORTING ITEM_NAME = &1
             IMPORTING RETCODE = RETCODE
             CHANGING  DATA_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
ORGCD  LIKE ZHR19T-ORGCD  ,                                "旧部署6
ORGCDN LIKE ZHR19T-ORGCDN ,                                "新部署7
JIKWI  LIKE ZHR19T-JIKWI  ,                                "旧职务8
JIKWIN LIKE ZHR19T-JIKWIN  ,                               "新职务9
ANSVH  LIKE 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 ZHR12T  WHERE 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.
    IF  LT_OUTPUT_1-FASEX = '1'.
      IT_OUTPUT_1-SEX = TEXT-100.                                 "'男'.
    ELSE.
      IT_OUTPUT_1-SEX = TEXT-101.                                 "'女'.
    ENDIF.
    PERFORM ZHR03T_SELECT  USING: '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 AND  LT_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.
    APPEND  IT_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-FAVOR  LT_OUTPUT_2-FANAM
              INTO   IT_OUTPUT_2-SNAME  SEPARATED 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.
    APPEND  IT_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.
    APPEND  IT_OUTPUT_3.
  ENDLOOP.
　　*-- 发令事项选择
  SELECT *   INTO CORRESPONDING FIELDS OF TABLE LT_OUTPUT_4
       FROM ZHR19T WHERE PERNR =  P_PERNR.
  LOOP AT   LT_OUTPUT_4 .
    MOVE-CORRESPONDING  LT_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.
    ELSEIF  LT_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
*         CHANGING  DATA_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
　　*&---------------------------------------------------------------------*
*&      Form  CLOSE_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
　　*&---------------------------------------------------------------------*
*&      Form  MACRO_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
*&---------------------------------------------------------------------*
*&      Form  INIT_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
*&---------------------------------------------------------------------*
*&      Form  CLOSE_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
　　*&---------------------------------------------------------------------*
*&      Form  ZHR03T_SELECT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ART  text
*      -->P_=  text
*      -->P_0295   text
*      -->P_SUBTY  text
*      -->P_=  text
*      -->P_LT_OUTPUT_1_JIKWI  text
*      <--P_IT_OUTPUT_1_SJIKWI  text
*----------------------------------------------------------------------*
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
*&---------------------------------------------------------------------*
*&      Form  GET_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
*&---------------------------------------------------------------------*
*&      Form  DELETE_BMP_FILE
*&---------------------------------------------------------------------*
FORM DELETE_BMP_FILE.
IF ZURIL  NE 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