创建内向交货单 BBP_INB_DELIVERY_CREATE

DATA:DEL_HEADER TYPE BBP_INBD_L.

DATA:DEL_TAB TYPE TABLE OF BBP_INBD_D WITH HEADER LINE.

DATA:DEL_RET TYPE TABLE OF BAPIRETURN WITH HEADER LINE.

DATA:DEL_NO LIKE LIKP-VBELN.

LOOP AT INPUT.

MOVE-CORRESPONDING INPUT TO OUTPUT.

CLEAR DEL_HEADER.

DEL_HEADER-DELIV_DATE = INPUT-EINDT.

DEL_HEADER-DELIV_EXT = ''.

CLEAR DEL_TAB.

REFRESH DEL_TAB.

DEL_TAB-DELIV_QTY = INPUT-LFIMG.

SELECT SINGLE

MEINS

INTO DEL_TAB-UNIT

FROM EKPO

WHERE EBELN = INPUT-EBELN

AND EBELP = INPUT-EBELP.

DEL_TAB-PO_NUMBER = INPUT-EBELN.

DEL_TAB-PO_ITEM = INPUT-EBELP.

APPEND DEL_TAB.

CLEAR DEL_TAB.

CALL FUNCTION 'BBP_INB_DELIVERY_CREATE'

EXPORTING

IS_INB_DELIVERY_HEADER = DEL_HEADER

IMPORTING

EF_DELIVERY = DEL_NO

TABLES

IT_INB_DELIVERY_DETAIL = DEL_TAB

RETURN = DEL_RET.

IF SY-SUBRC = 0.

OUTPUT-VBELN = DEL_NO.

OUTPUT-FLAG = 'S'.

OUTPUT-MESSAGE = '创建内项交货成功！'.

ELSE.

OUTPUT-FLAG = 'E'.

OUTPUT-MESSAGE = '创建内项交货失败'.

ENDIF.

APPEND OUTPUT.

CLEAR OUTPUT.

ENDLOOP.