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.