*&---------------------------------------------------------------------*
*&外向交货单发货过账
*&---------------------------------------------------------------------*
PARAMETERS : P_VBELN TYPE VBELN . "外向交货单
DATA :G_LIKP LIKE LIKP .
DATA : I_VBKOK TYPE VBKOK .
DATA :LT_LIPS LIKE TABLE OF LIPS WITH HEADER LINE .
DATA :I_VBPOK_TAB TYPE TABLE OF VBPOK WITH HEADER LINE .
DATA ET_PROT LIKE TABLE OF PROTT WITH HEADER LINE .
START-OF-SELECTION .
“获取交货单数据
SELECT SINGLE * INTO G_LIKP FROM LIKP
WHERE VBELN = P_VBELN .
SELECT * INTO TABLE LT_LIPS FROM LIPS
WHERE VBELN = G_LIKP -VBELN .
"-----VL02N--------
I_VBKOK -VBELN_VL = P_VBELN . "<- Delivery number
I_VBKOK -WABUC = 'X' . "<- Automatic PGI
I_VBKOK -WADAT_IST = G_LIKP -BLDAT .
"填充行项目数据
LOOP AT LT_LIPS .
I_VBPOK_TAB -VBELN_VL = P_VBELN . "<- Delivery number
I_VBPOK_TAB -POSNR_VL = LT_LIPS -POSNR .
I_VBPOK_TAB -VBELN = P_VBELN .
I_VBPOK_TAB -POSNN = LT_LIPS -POSNR .
I_VBPOK_TAB -MATNR = LT_LIPS -MATNR . "Material Number
I_VBPOK_TAB -PIKMG = LT_LIPS -LFIMG .
APPEND I_VBPOK_TAB .
ENDLOOP .
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = I_VBKOK
COMMIT = 'X'
DELIVERY = P_VBELN
UPDATE_PICKING = 'X'
TABLES
VBPOK_TAB = I_VBPOK_TAB
PROT = ET_PROT
EXCEPTIONS
ERROR_MESSAGE = 1
OTHERS = 2 .
"bapi没有return表，消息内容在log表PROT中
READ TABLE ET_PROT WITH KEY MSGTY = 'E' .
IF SY -SUBRC <> 0 .
COMMIT WORK AND WAIT .
ENDIF .
"生成的凭证不会在这个函数中输出，需要在mesg中查找
