【ABAP】BAPI_SALESORDER_CREATEFROMDAT2创建销售订单
注意点：
1、几个表的updateflag值为I；
2、要配置设备参数，要设置order_items_in-po_itm_no且ORDER_ITEMS_IN-PO_ITM_NO = ORDER_CFGS_REF-POSEX，配置表的order_cfgs_ref-config_id = order_cfgs_value-config_id。表order_cfgs_value传递特性值。并且，测试发现order_cfgs_value-inst_id 应等于 order_cfgs_ref-root_id。
3、extensionin增强传值的字段如果表VBAKKOM中没有，则在表VBAKKOM中APPEND字段后还需要在MV45AFZB中FORM userexit_move_field_to_vbakkom 添加代码把增强字段加进去。
仅为实现功能测试代码如下
FUNCTION zc_salesdocument_create.
*"----------------------------------------------------------------------
*"*"局部接口：
*"----------------------------------------------------------------------
DATA: lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA:
l_vbeln LIKE bapivbeln-vbeln,
"订单头
order_header_in LIKE bapisdhd1 OCCURS 0 WITH HEADER LINE,
order_header_inx LIKE bapisdhd1x OCCURS 0 WITH HEADER LINE,
"订单行项
order_items_in LIKE bapisditm OCCURS 0 WITH HEADER LINE,
order_items_inx LIKE bapisditmx OCCURS 0 WITH HEADER LINE,
"计划行
order_schedules_in LIKE bapischdl OCCURS 0 WITH HEADER LINE,
order_schedules_inx LIKE bapischdlx OCCURS 0 WITH HEADER LINE,
"定价条件
order_condition_in LIKE bapicond OCCURS 0 WITH HEADER LINE,
order_condition_inx LIKE bapicondx OCCURS 0 WITH HEADER LINE,
"伙伴
order_partners LIKE bapiparnr OCCURS 0 WITH HEADER LINE,
"逻辑设计，更新价格
ls_logic_switch TYPE bapisdls,
lt_extensionin TYPE TABLE OF bapiparex WITH HEADER LINE,
ls_bape_vbak TYPE bape_vbak,
ls_bape_vbakx TYPE bape_vbakx,
lt_order_cfgs_value TYPE TABLE OF bapicuval WITH HEADER LINE,
ls_order_cfgs_value TYPE bapicuval,
lt_order_cfgs_ref TYPE TABLE OF bapicucfg WITH HEADER LINE,
ls_order_cfgs_ref TYPE bapicucfg,
lt_order_cfgs_inst TYPE TABLE OF bapicuins WITH HEADER LINE,
ls_order_cfgs_inst TYPE bapicuins.
order_header_in-doc_type = 'ZOR2' . "销售凭证类型
order_header_in-sales_org = '1000' . "销售组织
order_header_in-distr_chan = '10' . "销售渠道
order_header_in-division = '00' . "产品组
order_header_in-sales_off = '1111' . "销售部门
order_header_in-sales_grp = '111' . "销售组
order_header_in-req_date_h = '20200101' . "请求交货日期
* order_header_in-war_date = sy-datum . "担保日期
order_header_in-purch_date = sy-datum . "客户采购订单日期
order_header_in-purch_no_c = 'SA10040007'. "客户采购订单编号
order_header_in-price_date = sy-datum . "定价日期.
order_header_in-pmnttrms = 'Z01'.
order_header_in-sales_dist = 'D1221'.
APPEND order_header_in.
order_header_inx-updateflag = 'I'.
order_header_inx-doc_type = 'X'.
order_header_inx-sales_org = 'X'.
. order_header_inx-distr_chan = 'X'.
order_header_inx-division = 'X'.
order_header_inx-sales_off = 'X'.
order_header_inx-sales_grp = 'X' .
.
* order_header_inx-war_date = 'X'.
order_header_inx-req_date_h = 'X'.
order_header_inx-purch_date = 'X'.
order_header_inx-purch_no_c = 'X'.
* order_header_inx-line_time = 'X'.
order_header_inx-price_date = 'X'.
order_header_inx-pmnttrms = 'X'.
order_header_inx-sales_dist = 'X'.
APPEND order_header_inx.
order_partners-partn_role = 'WE'.
order_partners-partn_numb = '0000200067'.
APPEND order_partners.
order_items_in-itm_number = '000010'.
order_items_in-material = '000000000030000310'.
* order_items_in-item_categ = 'ZKMN'.
* order_items_in-sales_unit = lt_vbap-vrkme .
* po_itm_no与配置表匹配
order_items_in-po_itm_no = '000010'.
order_items_in-target_qty = 1.
APPEND order_items_in .
order_items_inx-updateflag = 'I'.
order_items_inx-itm_number = '000010'.
order_items_inx-material = 'X'.
order_items_inx-po_itm_no = 'X'.
* order_items_inx-item_categ = 'X'.
* order_items_inx-target_qu = 'X'.
order_items_inx-target_qty = 'X'.
APPEND order_items_inx.
order_schedules_in-itm_number = '000010'.
order_schedules_in-sched_line = '0001'.
order_schedules_in-req_qty = 1.
APPEND order_schedules_in.
order_schedules_inx-itm_number = '000010'.
order_schedules_inx-sched_line = '0001'.
order_schedules_inx-updateflag = 'I'.
order_schedules_inx-req_qty = 'X'.
APPEND order_schedules_inx.
ls_logic_switch-pricing = 'G'.
*PRICING不同值含义的解释：
*
*A 复制价格组件和重新确定等级
*B 执行新的定价
*C 复制手工定价因素且重新确定其它因素
*D 复制不变的定价因素
*E 采用价格组件和固定值
*F 复制价格元素，调整价值与固定
*G 复制不变定价因素且重定税款
*H 重新确定运费条件
*J 重新确定确认的采购净价格/价值（KNTYP＝D）
*K 采纳价格组件和重新确定税收
*M 复制价格要素，转换值
*N 传输定价组件未更改, 新成本
*O 重新确定变式条件（KNTYP＝0）
*Q 重新确定计算条件（KNTYP=Q）
*R 应用价格部分和奖金条件
*U 重新确定贵重金属条件（KNTYP=U）
*S 装运&借方 (IBU HiTec)
CLEAR: order_condition_in, order_condition_inx.
order_condition_in-itm_number = '000010'.
order_condition_in-cond_type = 'ZR01' .
order_condition_in-cond_value = '10000' .
* order_condition_in-currency = 'CNY' .
* order_condition_in-cond_unit = 'PC'.
order_condition_in-cond_p_unt = '1'.
order_condition_in-cond_updat = 'X'.
APPEND order_condition_in .
order_condition_inx-itm_number = '000010'.
order_condition_inx-cond_type = 'ZR01' . "定价条件
order_condition_inx-updateflag = 'I'.
order_condition_inx-cond_value = 'X'. "价格
* order_condition_inx-currency = 'X'. "货币
* order_condition_inx-cond_unit = 'X'. "条件单位
order_condition_inx-cond_p_unt = 'X'. "条件定价单位
APPEND order_condition_inx .
* 增强
lt_extensionin-structure = 'BAPE_VBAK'.
ls_bape_vbak-vbelh = 'SA10040007'.
ls_bape_vbak-zvtweg = '10'.
lt_extensionin-valuepart1 = ls_bape_vbak.
APPEND lt_extensionin.
lt_extensionin-structure = 'BAPE_VBAKX'.
ls_bape_vbakx-vbelh = 'X'.
ls_bape_vbakx-zvtweg = 'X'.
lt_extensionin-valuepart1 = ls_bape_vbakx.
APPEND lt_extensionin.
* 特性
ls_order_cfgs_ref-posex = '000010'.
ls_order_cfgs_ref-config_id = '000001'.
ls_order_cfgs_ref-root_id = '00000001'.
APPEND ls_order_cfgs_ref TO lt_order_cfgs_ref.
ls_order_cfgs_value-config_id = '000001'.
ls_order_cfgs_value-inst_id = '00000001'.
ls_order_cfgs_value-charc = 'KLF_0010'.
ls_order_cfgs_value-value = 'SA10040007'.
APPEND ls_order_cfgs_value TO lt_order_cfgs_value.
ls_order_cfgs_value-config_id = '000001'.
ls_order_cfgs_value-inst_id = '00000001'.
ls_order_cfgs_value-charc = 'KLF_0020'.
ls_order_cfgs_value-value = 'TEST'.
APPEND ls_order_cfgs_value TO lt_order_cfgs_value.
* ls_order_cfgs_inst-config_id = '000010'.
* ls_order_cfgs_inst-inst_id = '000010'.
* APPEND ls_order_cfgs_inst TO lt_order_cfgs_inst.
*call FUNCTION
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
order_header_in = order_header_in
order_header_inx = order_header_inx
logic_switch = ls_logic_switch
IMPORTING
salesdocument = l_vbeln
TABLES
return = lt_return
order_items_in = order_items_in
order_items_inx = order_items_inx
order_schedules_in = order_schedules_in
order_schedules_inx = order_schedules_inx
order_partners = order_partners
order_conditions_in = order_condition_in
order_conditions_inx = order_condition_inx
extensionin = lt_extensionin
order_cfgs_ref = lt_order_cfgs_ref
order_cfgs_value = lt_order_cfgs_value.
DATA: e_message(60).
LOOP AT lt_return WHERE type = 'E' OR type = 'A'.
e_message = lt_return-message .
EXIT.
ENDLOOP.
IF sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
COMMIT WORK AND WAIT.
ENDIF.
ENDFUNCTION.