[BAPI]外向交货单按批次拆分[BAPI_OUTB_DELIVERY_CHANGE]详解编程语言

LW_ITEM_DATA-USEHIERITM      = '1'.

REPORT ztest_bapi_sobitch. 
PARAMETERS p_vbeln TYPE vbeln_vl DEFAULT '8000003765'. 
"测试批次拆分 
DATA: 
lit_header_partner   LIKE TABLE OF bapidlvpartnerchg           , "交货：合作伙伴更改 
lit_header_deadlines LIKE TABLE OF bapidlvdeadln               , "交货截止日期 
lit_item_data        LIKE TABLE OF bapiobdlvitemchg            , "更改外向交货拣配数据项目等级 
lit_item_control     LIKE TABLE OF bapiobdlvitemctrlchg        , "外向交货项目级别控制数据 
lit_ret           LIKE TABLE OF bapiret2   WITH HEADER LINE , "返回参数 
lit_item_data_spl    LIKE TABLE OF /spe/bapiobdlvitemchg       , "更改向外交货拣配数据项目等级（SPE） 
is_header_data      LIKE          bapiobdlvhdrchg             , "更改外向交货拣配数据表头等级 
is_header_control   LIKE          bapiobdlvhdrctrlchg         , "外向交货标题级别控制数据 
iv_delivery         LIKE          bapiobdlvhdrchg-deliv_numb  . "交货 
DATA: 
lwa_header_partner   LIKE          bapidlvpartnerchg           , "交货：合作伙伴更改 
lwa_header_deadlines LIKE          bapidlvdeadln               , "交货截止日期 
lwa_item_data        LIKE          bapiobdlvitemchg            , "更改外向交货拣配数据项目等级 
lwa_item_control     LIKE          bapiobdlvitemctrlchg        , "外向交货项目级别控制数据 
lwa_return           LIKE          bapiret2                    . "返回参数 
DATA: l_techn_control  TYPE bapidlvcontrol. 
DATA: 
ls_item         TYPE bapiobdlvitemchg, 
ls_item_t       TYPE bapiobdlvitemchg, 
ls_item_control TYPE bapiobdlvitemctrlchg, 
ls_deadlines    TYPE bapidlvdeadln. 
iv_delivery = p_vbeln. "交货单号 
"头信息 
is_header_data-deliv_numb     = p_vbeln. "交货单号 
is_header_control-deliv_numb  = p_vbeln. 
"修改原10行项目数量 
CLEAR lwa_item_data. 
lwa_item_data-deliv_numb     = p_vbeln. 
lwa_item_data-deliv_item     = 10.      "原行项目 
lwa_item_data-dlv_qty        = 1. 
lwa_item_data-dlv_qty_imunit = 1. 
lwa_item_data-base_uom       = 'TO'.    "基本单位 
lwa_item_data-sales_unit     = 'TO'.    "销售单位 
 
lwa_item_data-fact_unit_nom   = 1.      "销售数量转换成SKU的分子(因子) 
lwa_item_data-fact_unit_denom = 1.      "销售数量转换为 SKU 的值（除数） 
APPEND lwa_item_data TO lit_item_data . 
CLEAR lwa_item_control. 
lwa_item_control-deliv_numb = p_vbeln. 
lwa_item_control-deliv_item = 10.       "原行项目 
lwa_item_control-chg_delqty = 'X'.      "数量修改标志 
APPEND lwa_item_control TO lit_item_control. 
"新拆分的批次 
CLEAR lwa_item_data. 
lwa_item_data-deliv_numb = p_vbeln. 
lwa_item_data-deliv_item = '900001'.       "拆分后的新行项目 
lwa_item_data-hieraritem = 10.             "上级行项目 
lwa_item_data-batch      = 'YS91480001'.   "新批次 
lwa_item_data-dlv_qty    = 1.              "自己重新计算拆分后的数量， 
lwa_item_data-dlv_qty_imunit = 1. 
lwa_item_data-fact_unit_nom   = 1.       "销售数量转换成SKU的分子(因子) 
lwa_item_data-fact_unit_denom = 1.       "销售数量转换为 SKU 的值（除数） 
lwa_item_data-base_uom        = 'TO'.    "基本单位 
lwa_item_data-sales_unit      = 'TO'.    "销售单位 
lwa_item_data-usehieritm      = '1'. 
APPEND lwa_item_data TO lit_item_data. 
CLEAR lwa_item_data. 
lwa_item_data-deliv_numb = p_vbeln. 
lwa_item_data-deliv_item = '900002'.    "拆分后的新行项目 
lwa_item_data-hieraritem = 10.          "上级行项目 
lwa_item_data-batch      = 'YS91480002'."新批次 
lwa_item_data-dlv_qty    = 1. 
lwa_item_data-dlv_qty_imunit = 1. 
lwa_item_data-fact_unit_nom   = 1.       "销售数量转换成SKU的分子(因子) 
lwa_item_data-fact_unit_denom = 1.       "销售数量转换为 SKU 的值（除数） 
lwa_item_data-base_uom        = 'TO'.    "基本单位 
lwa_item_data-sales_unit      = 'TO'.    "销售单位 
lwa_item_data-usehieritm      = '1'. 
APPEND lwa_item_data TO lit_item_data. 
CLEAR lwa_item_control. 
lwa_item_control-deliv_numb = p_vbeln. 
lwa_item_control-deliv_item = '900001'. "拆分后的新行项目 
lwa_item_control-chg_delqty = 'X'.      "数量修改标志 
APPEND lwa_item_control TO lit_item_control  . 
CLEAR lwa_item_control. 
lwa_item_control-deliv_numb = p_vbeln. 
lwa_item_control-deliv_item = '900002'."拆分后的新行项目 
lwa_item_control-chg_delqty = 'X'.     "数量修改标志 
APPEND lwa_item_control TO lit_item_control  . 
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE' 
EXPORTING 
header_data      = is_header_data 
header_control   = is_header_control 
delivery         = iv_delivery 
TABLES 
header_partner   = lit_header_partner 
header_deadlines = lit_header_deadlines 
item_data        = lit_item_data 
item_control     = lit_item_control 
return           = lit_ret 
*   ITEM_DATA_SPL    = IT_ITEM_DATA_SPL 
  . 
DATA: l_msg TYPE string. 
IF lit_ret[] IS INITIAL. 
COMMIT WORK AND WAIT. 
WRITE:/ '批次拆分成功'. 
RETURN. 
ENDIF. 
LOOP AT lit_ret WHERE type = 'E'. 
CLEAR l_msg. 
MESSAGE ID  lit_ret-id 
TYPE   'E' 
NUMBER lit_ret-number 
WITH   lit_ret-message_v1 
lit_ret-message_v2 
lit_ret-message_v3 
lit_ret-message_v4 
INTO   l_msg. 
WRITE:/ l_msg. 
ENDLOOP.