前台操作:
VL09
填写装运点 和交货单
点击定义日期,将输入的实际过账日期输入到本地日期中。点勾
然后点击冲销
点击绿色勾,冲销成功或错误,则均会出现如果对话框。
*&---------------------------------------------------------------------*
*& 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的参数字段可以看描述,自己测试
欢迎关注订阅号:SAP学习记录 (SAPlearning )