创建带有订单参考的外向交货：BAPI…

以前就提过，使用bapi，必须去了解前台，知道哪些是必输，哪些可选。

测试bapi必须也要找前台能跑通的数据，不然，如果是数据本事问题，再怎么调都不会通

前台：VL01N   （或者在订单修改VA02中创建交货）

VL01N

各个页签看看，哪些必输

我自己更喜欢va02里创建

然后看看抬头数据啥的

至于bapi，很简单

PARAMETERS P_SOD    TYPE CHAR10 .

*---Bapi Data Define
DATA :DELIVERY                     TYPE BAPISHPDELIVNUMB -DELIV_NUMB ,
            NUM_DELIVERIES             TYPE BAPIDLVCREATEHEADER -NUM_DELIVERIES ,
            SALES_ORDER_ITEMS          LIKE BAPIDLVREFTOSALESORDER  OCCURS  0  WITH  HEADER  LINE ,
            RETURN                           LIKE BAPIRET2                              OCCURS  0  WITH  HEADER  LINE  .

START-OF-SELECTION .
*---Assign Value
    SALES_ORDER_ITEMS -REF_DOC       = P_SOD .                     "参考订单号
    SALES_ORDER_ITEMS -REF_ITEM     =  '000010' .                  "行项目号
    SALES_ORDER_ITEMS -DLV_QTY       =  18                              "数量
    SALES_ORDER_ITEMS -SALES_UNIT  =  'TO' .                        "单位
    APPEND SALES_ORDER_ITEMS .

*---Call BAPI Function
    CALL  FUNCTION  'BAPI_OUTB_DELIVERY_CREATE_SLS'
        IMPORTING
            DELIVERY                    = DELIVERY
            NUM_DELIVERIES        = NUM_DELIVERIES
        TABLES
            SALES_ORDER_ITEMS  = SALES_ORDER_ITEMS
            RETURN             =  RETURN .

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