BCM-自动生成付款通知

2020-08-25 15:30发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)我已经搜索了该主题,并参考了建议...

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

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


我已经搜索了该主题,并参考了建议使用事件模块41的SAP注释1313075。该注释引用了示例代码示例,但是此注释中没有示例代码。 我将不胜感激,因为有人已经实现了此功能,示例代码将非常有用。 谢谢!

4条回答
huskylover
2020-08-25 16:06 .采纳回答

我在笔记中找到了以下更正说明:

* $ * $ ------------------------------------------- --------------------- $ * $ *
* $ KORREKTURANLEITUNG 0020751259 0000147965 $ *
* $ ---------- -------------------------------------------------- -------- $ *
* $GÜLTIGFÜR:$ *
* $ Softwarekomponente S4CORE $ *
* $ Release 100 Alle支持软件包Stände$ *
* $ Release 101 Alle 支持包Stände$ *
* $版本102 Alle支持包Stände$ *
* $版本103 Alle支持包Stände$ *
* $版本104 Alle支持包Stände$ *
* $- -------------------------------------------------- ----------------- $ *
* $ SAP Enthalungen/Objekte nicht im $$
* $ * $ --------- -------------------------------------------------- ----- $ * $ *
*&------------------------------------ -------------------------------- *
*&对象表FUNC Z_FI_PAYMEDIUM_MT101_41
*&对象表头FUGR Z_FI_PAYMEDIUM_MT101_41
*&--------------------------------------------- ----------------------- *
*&功能Z_FI_PAYMEDIUM_MT101_41
*&------------------------------------------------ -------------------- *
* >>>>插入开始<<<<<< br>数据:LC_JOBNAME喜欢TBTCJOB-JOBNAME,
LC_JOBCOUNT像TBTCJOB-JOBCOUNT,
LC_JOBRELEASED像BTCH0000-CHAR1。

并连接'PAYM_ADVICES:'I_FPAYH-LAUFD'/'I_FPAYH-LAUFI
进入LC_JOBNAME。
通话功能 br> EXPORTING
作业名称= LC_JOBNAME
导入
JOBCOUNT = LC_JOBCOUNT
例外情况
其他=1。
如果SY-SUBRC NE0。
通话功能'FI_PAYM_MESSAGE_COLLECT'
>导出
i_msgid = sy-msgid
i_msgty ='E'
i_msgno = sy-msgno
i_msgv1 = sy-msgv1
i_msgv2 = sy-msgv2
i_msgv3 = sy-msgv3
i_msgv4 = sy-msgv3
i_probclass ='E'。
退出。
ENDIF。

提交rffoavis_fpaym
使用选择集''
用户SY-UNAME通过作业LC_JOBNAME编号LC_JOBCOUNT
带zw_laufd = I_FPAYH-LAUFD
带zw_laufi = I_FPAYH-LAUFI
带zw_xvorl = I_FPAYH-XVORL
并返回。 ' JOB_CLOSE'
导出
JOBCOUNT = LC_JOBCOUNT
JOBNAME = LC_JOBNAME
STRTIMMED ='X'
IMPORTING
JOB_WAS_RELEASED = LC_JOBRELEASED
EXCEPTIONS
其他= 1.

如果SY-SUBRC NE0。
呼叫功能'FI_PAYM_MESSAGE_COLLECT'
导出
i_msgid = sy-msgid
i_msgty ='E'
i_msgno = sy-msgno
i_msgv1 = sy-msgv1
i_msgv2 = sy-msgv2
i_msgv3 = sy-msgv3
i_msgv4 = sy-msgv3
i_probclass ='E'。
ENDIF。
ENDFUNCTION。






* >>>>插入结束<<<<<<<< >>
*&---- -------------------------------------------------- -------------- *

一周热门 更多>