点击此处--->   群内免费提供SAP练习系统（在群公告中）

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

你好！

我开发了一个程序来使用BAPI_ACC_DOCUMENT_POST存放文档并正常工作。

开发了另一个程序，该程序仅显示所有停放的文档，用户将选择一个文档，也可以选择多个文档并发布它们。 我在程序内部使用了PRELIMINARY_POSTING_POST_ALL功能模块。 文档已成功过帐，各个数据已正确保存在BKPF，BSEG及其相关表中。

但是在使用PRELIMINARY_POSTING_POST_ALL进行发布时，错误日志作为更新失败记录在SM13中。 每天都有BASIS人员报告相同的情况。

我已经解决了这个问题，发现这是由于重新处理已经过帐的文档而发生的。 PRELIMINARY_POSTING_POST_ALL内部有一项检查，用于检查文档是否为驻留文档。 如果是停放的文件，它将过帐该文件。 如果它不是驻留的文档，它将通过ERROR出现，并且由于更新失败而将落入SM13。

我采取了所有预防措施，例如清除导出参数，表参数。 供您参考的以下是我使用的代码。 请帮助我如何使用PRELIMINARY_POSTING_POST_ALL，我是否需要清除任何缓冲区或需要调用任何其他FM？

在lt_final INTO gs_final中循环。

清除：gs_post，gs_vbkpf_alv，gt_post，gt_msg，gt_msg_tab，gs_msg，gs_t100。

读取表gt_vbkpf_alv使用键ausbk = gs_final-bukrs进入gs_vbkpf_alv
belnr = gs_final-belnr
gjahr = gs_final-gjahr
二进制搜索。
如果sy-subrc = 0。 清除：gs_post，gt_post，gt_msg，gt_msg_tab。

将gs_vbkpf_alv移动到gs_post。

APPEND gs_post到gt_post。

导出gv_tcode以共享缓冲区indx（zt）ID'ZPOST'。
导出gv_tcode1以共享缓冲区indx（zu）ID'ZPOS1'。
导出gv_tcode2以共享缓冲区indx（zv）ID'ZPOS2' 。

呼叫功能'PRELIMINARY_POSTING_POST_ALL'
导出
nomsg ='X'
表
t_vbkpf = gt_post
t_msg = gt_msg
t_msg_tab = gt_msg_tab。

gt_msg不是初始值。
等待最多1秒。
清除：gs_msg，gs_t100。
读取表gt_msg到gs_msg索引1。
如果sy-subrc =0。
选择单个* 从t100到gs_t100，其中sprsl EQ'E'
和arbgb EQ gs_msg-msgid
和msgnr EQ gs_msg-msgno。

gs_log-bukrs = gs_post-bukrs。
gs_log-belnr = gs_post-belnr。
gs_log-gjahr = gs_post-gjahr。
在gs_t100-text中用'替换所有'＆'的出现。
gs_log-text = gs_t100-text。
附加gs_log至 gt_log。
清除：gs_log。
ENDIF。
ENDIF。
ENDIF。

清除：gs_post，gs_final，gs_vbkpf_alv，gt_post，gt_msg，gt_msg_tab，
gs_msg，gs_t100。
ENDLOOP。