*&---------------------------------------------------------------------*
*&?Report??YLM_TEST007
*&
*&---------------------------------------------------------------------*
*&沖銷已過賬外向交貨單
*&---------------------------------------------------------------------*

TABLES:?MKPF,?IMKPF,?EMKPF,?LIKP.

DATA:?LT_MESG?TYPE?TABLE?OF?MESG?WITH?HEADER?LINE.


SELECTION-SCREEN?:?BEGIN?OF?BLOCK?BLK?WITH?FRAME?TITLE?TEXT-001.
PARAMETERS?:?P_VBELN?LIKE?LIKP-VBELN?OBLIGATORY?DEFAULT?'8000002259'. ??"外向交貨單
SELECTION-SCREEN?:?END?OF?BLOCK?BLK.

START-OF-SELECTION.

??"沖銷外向交貨單過賬
??PERFORM?REVERSE_GOODSISSUE.

*&---------------------------------------------------------------------*
*&??????Form??reverse_goodsissue
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
*??-->??p1????????text
*??<--??p2????????text
*----------------------------------------------------------------------*
FORM?REVERSE_GOODSISSUE?.

??DATA?:?LV_VBTYP?LIKE?LIKP-VBTYP.
??SELECT?SINGLE?VBTYP??????????????????????????????????????????????????"SD?憑證類別
?????FROM?LIKP
?????INTO?LV_VBTYP
?????WHERE?VBELN?=?P_VBELN.

??CALL?FUNCTION?'WS_REVERSE_GOODS_ISSUE'
????EXPORTING
??????I_VBELN ???????????????????=?P_VBELN
??????I_BUDAT???????????????????=?SY-DATUM
??????I_TCODE???????????????????=?'VL09'
??????I_VBTYP ???????????????????=?LV_VBTYP ???????????????????????????"SD?憑證類別 *??????I_POSNR???????????????????=?10?
????TABLES
??????T_MESG????????????????????=?LT_MESG
????EXCEPTIONS
??????ERROR_REVERSE_GOODS_ISSUE?=?1
??????OTHERS????????????????????=?2.


??IF?SY-SUBRC?=?0.
??ENDIF.

??READ?TABLE?LT_MESG?WITH?KEY?MSGTY?=?'E'.

??IF?SY-SUBRC?=?0.
??ENDIF.

具體其他bapi的參數字段可以看描述，自己測試
與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的冲销已过账外向交货单的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。