POSTING_INTERFACE_REVERSE_DOC - ooxxvv/MySAPnotes GitHub Wiki
POSTING_INTERFACE_REVERSE_DOC
- 迴轉會計文件 (Reverse) 。
- 相當於 FB08 的功能。
- 可參考 Code20080110
- 相關 Function
- POSTING_INTERFACE_START
- POSTING_INTERFACE_END
Code
{{{#!abap
DATA/ l_tcode LIKE sy-tcode, l_msgid LIKE sy-msgid, l_msgno LIKE sy-msgno, l_msgty LIKE sy-msgty, l_msgv1 LIKE sy-msgv1, l_msgv2 LIKE sy-msgv2, l_msgv3 LIKE sy-msgv3, l_msgv4 LIKE sy-msgv4, l_subrc LIKE sy-subrc, l_mstring TYPE string.
CLEAR/ ft_message, ft_blntab, ft_blntab[], l_tcode, l_msgid, l_msgno, l_msgty, l_msgv1, l_msgv2, l_msgv3, l_msgv4, l_subrc, l_mstring.
l_tcode='FB08'.
CALL FUNCTION 'POSTING_INTERFACE_REVERSE_DOC' EXPORTING i_belns =fi_belnr i_budat =fi_budat i_bukrs =fi_bukrs i_gjahs =fi_gjahr i_monat =fi_monat i_tcode =l_tcode i_stgrd =fi_stgrd IMPORTING e_msgid =l_msgid e_msgno =l_msgno e_msgty =l_msgty e_msgv1 =l_msgv1 e_msgv2 =l_msgv2 e_msgv3 =l_msgv3 e_msgv4 =l_msgv4 e_subrc =l_subrc TABLES t_blntab =ft_blntab EXCEPTIONS transaction_code_invalid=1 no_authorization =2 OTHERS =3.
IF l_subrc <> 0. SELECT SINGLE text INTO l_mstring FROM t100 WHERE sprsl='E' AND arbgb=l_msgid AND msgnr=l_msgno.
IF sy-subrc=0. IF l_mstring CS '&1'. REPLACE '&1' WITH l_msgv1 INTO l_mstring. REPLACE '&2' WITH l_msgv2 INTO l_mstring. REPLACE '&3' WITH l_msgv3 INTO l_mstring. REPLACE '&4' WITH l_msgv4 INTO l_mstring. ELSE. REPLACE '&' WITH l_msgv1 INTO l_mstring. REPLACE '&' WITH l_msgv2 INTO l_mstring. REPLACE '&' WITH l_msgv3 INTO l_mstring. REPLACE '&' WITH l_msgv4 INTO l_mstring. ENDIF. CONDENSE l_mstring. ELSE. CONCATENATE l_msgid l_msgno l_msgty l_msgv1 l_msgv2 l_msgv3 l_msgv4 INTO l_mstring. ENDIF.
CONCATENATE 'BDC/ ' l_mstring INTO l_mstring. append_message '000' l_mstring.
ENDIF.
}}}