创建内向交货单 BBP_INB_DELIVERY_CREATE

时间：2016-01-03 12:50:08 阅读：1171 评论：0 收藏：0 [点我收藏+]

标签：

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.

标签：

原文地址：http://www.cnblogs.com/mengfanrong/p/5095944.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行