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

2020-08-17 11:27发布

         点击此处--->   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-点。

         点击此处--->   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-点。

付费偷看设置
发送
3条回答
hongfeng1314
1楼-- · 2020-08-17 12:28

OPEN DATASET和CLOSE DATASET来获取文件到应用程序服务器或从中获取文件。

很多帖子以及在线工作代码。.google它。

愤怒的猪头君
2楼-- · 2020-08-17 12:30

感谢您访问SAP 获得您问题的答案的社区。 既然你在这里问一个问题 第一次,我建议您熟悉 https://community.sap.com/resources/questions- 和答案(如果您 还没有),因为它提供了准备问题的提示 我们成员的回应。 例如,您可以概述要采取的步骤 查找答案(以及为什么它们对您没有帮助),分享您所拥有内容的屏幕截图 看到/完成,并使用更具描述性的主题行。 您更多的细节 提供,则会员更有可能能够为您提供帮助。

您是否愿意,您 可以通过选择操作,然后选择修改来修改您的问题(尽管一旦有人 回答您的问题,您将失去编辑问题的能力-但是如果 发生这种情况,您可以在评论中保留更多详细信息。)

最后,如果 您希望与读者建立联系,请考虑将图片添加到您的 个人资料。 操作方法如下: https://www.youtube.com/watch?v=F5JdUbyjfMA&list=PLpQebylwrdhs5 h6RtymfDpoz3vDS 。 通过个性化您的 个人资料中附有您的照片,可以鼓励读者做出回应。

亲切的问候

卡塔琳娜 (SAP社区主持人)

大简至美
3楼-- · 2020-08-17 12:13

不需要在应用程序服务器上读取/写入文件的功能。 正如在另一个答案中正确指出的那样,有一些ABAP命令,它们在文档中进行了描述。

您可以在GitHub上的app和演示服务器上找到文件操作的非常简单的代码示例此处

一周热门 更多>