SAP ABAP编程 从模板（smw0）处下载文档

REPORT  Y0825_EXCEL_PRACTICE.

*定义模板下载到本地保存的全名称
DATA: P_DOWN_FILE LIKE SAPB-SAPPFAD.

  PERFORM  DOWNLOAD_EXCEL_FROMSERVER USING  'YI_CASH_FLOW_EXCEL'  P_DOWN_FILE.

************************************************************************

*      -->P_OBJECT 模板名称                                                                *
*      -->P_DEST   存档路径                                                                   *
************************************************************************
FORM DOWNLOAD_EXCEL_FROMSERVER  USING P_OBJID  LIKE WWWDATATAB -OBJID
                                                                                               P_DEST  LIKE SAPB -SAPPFAD .

   DATA  : LO_OBJDATA  LIKE WWWDATATAB ,
         LO_MINE  LIKE W3MIME ,
         LS_DESTINATION  LIKE RLGRAP -FILENAME ,
         LS_OBJNAM  TYPE STRING ,
         LI_RC  LIKE SY -SUBRC ,
         LS_ERRTXT  TYPE STRING .

   CONCATENATE P_OBJID  '.XLS'  INTO LS_OBJNAM .
   CONDENSE LS_OBJNAM  NO -GAPS .

   SELECT  SINGLE RELID OBJID  FROM WWWDATA
     INTO CORRESPONDING  FIELDS  OF LO_OBJDATA
     WHERE SRTF2  =  0
     AND RELID  =  'MI'
     AND OBJID  = P_OBJID .

   IF SY -SUBRC  NE   0  OR LO_OBJDATA -OBJID  EQ SPACE .
     CONCATENATE  '模板文件：' LS_OBJNAM  '不存在，请用TCODE:SMWO进行加载'  INTO LS_ERRTXT .
     MESSAGE E600 (ZDEV )  WITH LS_ERRTXT .
   ENDIF .

  LS_DESTINATION    = P_DEST .

   CALL  FUNCTION  'DOWNLOAD_WEB_OBJECT'
     EXPORTING
       KEY          = LO_OBJDATA
      DESTINATION  = LS_DESTINATION
     IMPORTING
      RC           = LI_RC .

   IF LI_RC  NE  0 .
     CONCATENATE  '模板文件：' LS_OBJNAM  '下载失败'  INTO LS_ERRTXT .
     MESSAGE E600 (ZDEV )  WITH LS_ERRTXT .
   ENDIF .
ENDFORM .