Abap功能模块,用于将Xml文件下载并上传到AL11

2020-08-17 11:27发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨, 我无法下载XML文件并将...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


嗨,

我无法下载XML文件并将其上传到AL11文件夹。 我已经附上了程序。请从abap程序中建议方法/功能模块。在此先感谢您。

DATA:带有标题行的SCALT的LT_SCARR类型表。

数据:ITAB发生0的开始,

a(100)C型,

ITAB结束。

数据:XML_OUT TYPE STRING。

数据:UPL发生次数0的开始,

f(255)C型,

UPL结束。

数据:XMLUPL类型字符串。

PARAMETERS:P_FILE TYPE STRING。

在P_FILE值请求的选择屏幕上。

调用方法CL_RSAN_UT_FILES => F4

导出

I_APPLSERV =空格

I_TITLE ='保存到XML'

I_GUI_EXTENSION ='XML'

I_GUI_EXT_FILTER ='XML'

更改

C_FILE_NAME = P_FILE

例外

失败= 1

OTHERS = 2。

如果SY-SUBRC <> 0。

消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO

带有SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。

ENDIF。

选择*从SCARR到表LT_SCARR最多10个行。

呼叫转换('ID')

源标签= LT_SCARR []

结果XML XML_OUT。

CALL FUNCTION'HR_EFI_CONVERT_STRING_TO_TABLE'

导出

I_STRING = XML_OUT

I_TABLINE_LENGTH = 100

表格

ET_TABLE = ITAB。

CALL FUNCTION'GUI_DOWNLOAD'

导出

FILETYPE ='BIN'

FILENAME = P_FILE

表格

DATA_TAB = ITAB。

__________________________________________________________________________________

BREAK-点。

刷新LT_SCARR。

清除LT_SCARR。

*要从AL11下载的文件。

*提交RC1TCG3Y。

*通话功能'C13Z_APPL_TO_FRONT_END'

*例外情况

*其他= 1。

CALL FUNCTION'GUI_UPLOAD'

导出

FILENAME = P_FILE

FILETYPE ='BIN'

表格

DATA_TAB = UPL。

UPL上的循环。

CONCATENATE XMLUPL UPL-F INTOXMLUPL。

ENDLOOP。

* * ------------------- XML

呼叫转换('ID')

源XML XMLUPL

结果标签= LT_SCARR []

BREAK-点。