VL10D参照sto订单(根据采购订单订单)创建外向交货BAPI

DATA: SHIP_POINT        TYPE TVST-VSTEL,            "装运点/接收点
      NUM_DELIVERIES    TYPE VBNUM,
      STOCK_TRANS_ITEMS LIKE BAPIDLVREFTOSTO OCCURS 0 WITH HEADER LINE,
      DELIVERIES        TYPE STANDARD TABLE OF BAPISHPDELIVNUMB,
      EXTENSION_OUT     TYPE STANDARD TABLE OF BAPIPAREX,
      CREATED_ITEMS     LIKE BAPIDLVITEMCREATED OCCURS 0 WITH HEADER LINE ,
      SERIAL_NUMBERS    LIKE BAPIDLVSERIALNUMBER OCCURS 0 WITH HEADER LINE ,
      RETURN            TYPE STANDARD TABLE OF BAPIRET2,
      LF_VBELN          TYPE VBELN_VL.


SHIP_POINT = '1000'.                                "装运点


STOCK_TRANS_ITEMS-REF_DOC    = '4500048888'.        "参考凭证
STOCK_TRANS_ITEMS-REF_ITEM   = '000010'.
STOCK_TRANS_ITEMS-DLV_QTY    = 10.
STOCK_TRANS_ITEMS-SALES_UNIT = 'PCS'.                    "单位必输
STOCK_TRANS_ITEMS-SALES_UNIT_ISO = 'PCS'.


APPEND STOCK_TRANS_ITEMS.




CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_STO'
  EXPORTING
    SHIP_POINT         = SHIP_POINT
*   DUE_DATE                =
*   DEBUG_FLG               =
*   NO_DEQUEUE              = ' '
  IMPORTING
    DELIVERY                = LF_VBELN
    NUM_DELIVERIES          = NUM_DELIVERIES
  TABLES
    STOCK_TRANS_ITEMS       = STOCK_TRANS_ITEMS
    SERIAL_NUMBERS          = SERIAL_NUMBERS
    DELIVERIES              = DELIVERIES
    CREATED_ITEMS           = CREATED_ITEMS
    EXTENSION_OUT           = EXTENSION_OUT
    RETURN                  = RETURN.
          .


IF NOT LF_VBELN IS INITIAL.


  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'.
ENDIF.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值