POSTING_INTERFACE_RESET_CLEAR - ooxxvv/MySAPnotes GitHub Wiki
POSTING_INTERFACE_RESET_CLEAR
- 將已 Cleared 的文件，再轉成 Open Item。
- 相當於 FBRA 的功能
- 可參考 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. DATA/ l_augbl LIKE rf05r-augbl, l_bukrs LIKE rf05r-bukrs, l_gjahr LIKE rf05r-gjahr.
CLEAR/ ft_message, l_tcode, l_msgid, l_msgno, l_msgty, l_msgv1, l_msgv2, l_msgv3, l_msgv4, l_subrc, l_mstring, l_augbl, l_bukrs, l_gjahr.
l_augbl=fi_belnr. l_bukrs=fi_bukrs. l_gjahr=fi_gjahr.
l_tcode='FBRA'.
CALL FUNCTION 'POSTING_INTERFACE_RESET_CLEAR' EXPORTING i_augbl =l_augbl i_bukrs =l_bukrs i_gjahr =l_gjahr i_tcode =l_tcode 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 EXCEPTIONS transaction_code_invalid=1 no_authorization =2 OTHERS =3.
*-Return message 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.
}}}