cancel
Showing results for 
Search instead for 
Did you mean: 

BCM - Automatic Generation of Payment Advice

aidaj_hilton
Participant
0 Kudos

I have done a search on this topic and been referred to SAP Note 1313075 which suggests using event module 41. The note refers to example sample code but there is no sample code in this note. I would appreciate any assistance from somebody who has implemented this functionality and sample code would be really useful. Thanks!

aidaj_hilton
Participant
0 Kudos

I know this question has been raised several times over the years. Any insight from somebody that has implemented this functionality would be appreciated. Thanks!

aidaj_hilton
Participant
0 Kudos

Still hopeful that somebody who has implemented this functionality will offer a response.

Accepted Solutions (1)

Accepted Solutions (1)

henning_appe0303
Discoverer
0 Kudos

I have found the following correction instructions in the note:

*$*$----------------------------------------------------------------$*$*
*$ KORREKTURANLEITUNG 0020751259 0000147965 $*
*$--------------------------------------------------------------------$*
*$ GÜLTIG FÜR : $*
*$ Softwarekomponente S4CORE $*
*$ Release 100 Alle Support Package Stände $*
*$ Release 101 Alle Support Package Stände $*
*$ Release 102 Alle Support Package Stände $*
*$ Release 103 Alle Support Package Stände $*
*$ Release 104 Alle Support Package Stände $*
*$--------------------------------------------------------------------$*
*$ Änderungen/Objekte nicht im SAP Standard enthalten $*
*$*$----------------------------------------------------------------$*$*
*&--------------------------------------------------------------------*
*& Objekt FUNC Z_FI_PAYMEDIUM_MT101_41
*& Objekt Header FUGR Z_FI_PAYMEDIUM_MT101_41
*&--------------------------------------------------------------------*
*& FUNCTION Z_FI_PAYMEDIUM_MT101_41
*&--------------------------------------------------------------------*
*>>>> START OF INSERTION <<<<
data : LC_JOBNAME LIKE TBTCJOB-JOBNAME,
LC_JOBCOUNT LIKE TBTCJOB-JOBCOUNT,
LC_JOBRELEASED LIKE BTCH0000-CHAR1.

CONCATENATE 'PAYM_ADVICES:' I_FPAYH-LAUFD '/' I_FPAYH-LAUFI
INTO LC_JOBNAME.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
JOBNAME = LC_JOBNAME
IMPORTING
JOBCOUNT = LC_JOBCOUNT
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC NE 0.
CALL FUNCTION 'FI_PAYM_MESSAGE_COLLECT'
EXPORTING
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'.
EXIT.
ENDIF.

SUBMIT rffoavis_fpaym
USING SELECTION-SET '<VARIANT>'
USER SY-UNAME VIA JOB LC_JOBNAME NUMBER LC_JOBCOUNT
WITH zw_laufd = I_FPAYH-LAUFD
WITH zw_laufi = I_FPAYH-LAUFI
WITH zw_xvorl = I_FPAYH-XVORL
AND RETURN.

CALL FUNCTION 'JOB_CLOSE'
EXPORTING
JOBCOUNT = LC_JOBCOUNT
JOBNAME = LC_JOBNAME
STRTIMMED = 'X'
IMPORTING
JOB_WAS_RELEASED = LC_JOBRELEASED
EXCEPTIONS
OTHERS = 1.

IF SY-SUBRC NE 0.
CALL FUNCTION 'FI_PAYM_MESSAGE_COLLECT'
EXPORTING
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.







*>>>> END OF INSERTION <<<<<<
...
*&--------------------------------------------------------------------*

aidaj_hilton
Participant
0 Kudos

Thanks for updating this thread Henning. I eventually found the correction instruction but I know this response will help others.

Answers (0)