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

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.

??"沖銷外向交貨單過(guò)賬
??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的參數(shù)字段可以看描述，自己測(cè)試
與50位技術(shù)專家面對(duì)面20年技術(shù)見(jiàn)證，附贈(zèng)技術(shù)全景圖

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。