创建内向交货单 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.