VA41 销售合同创建BAPI

"-----------------------------@斌将军-----------------------------
DATA: ls_header_in        TYPE bapisdhd1,
      ls_header_inx       TYPE bapisdhd1x,
      lv_vbeln            LIKE vbak-vbeln,
      ls_logic_switch     TYPE bapisdls,
      lt_return           TYPE TABLE OF bapiret2 WITH HEADER LINE,
      lt_items_in         TYPE TABLE OF bapisditm  WITH HEADER LINE,
      lt_items_inx        TYPE TABLE OF bapisditmx WITH HEADER LINE,
      lt_partners         TYPE TABLE OF bapiparnr  WITH HEADER LINE,
      lt_partnerchanges   TYPE TABLE OF bapiparnrc  WITH HEADER LINE,
      lt_schedules_in     TYPE TABLE OF bapischdl  WITH HEADER LINE,
      lt_schedules_inx    TYPE TABLE OF bapischdlx  WITH HEADER LINE,
      lt_conditions_in    TYPE TABLE OF bapicond WITH HEADER LINE,
      lt_conditions_inx   TYPE TABLE OF bapicondx WITH HEADER LINE,
      lt_partneraddresses    TYPE TABLE OF bapiaddr1 WITH HEADER LINE,
      order_cfgs_ref      TYPE TABLE OF bapicucfg WITH HEADER LINE,
      order_cfgs_inst     TYPE TABLE OF bapicuins WITH HEADER LINE,
      order_cfgs_value    TYPE TABLE OF bapicuval WITH HEADER LINE.


DATA:lv_check   TYPE char1,
     lv_message TYPE char200,
     lv_update  TYPE char1 VALUE 'I'.

CLEAR:ls_header_in.
ls_header_in-doc_type    = 'Z100'."i_head-auart."销售凭证类型
ls_header_in-sales_org   = '1010'."i_head-vkorg ."销售组织

ls_header_in-distr_chan  = '00'."i_head-vtweg."分销渠道
ls_header_in-division    = '00'."i_head-spart."产品组
ls_header_in-purch_no_c   = '20220905'."i_head-bstkd."客户参考日期
ls_header_in-cust_grp3   = 'Z00'."i_head-kvgr3."订单变更原因
ls_header_in-created_by   = 'LCC'."i_head-ernam."制单工号
* ls_header_in-sales_grp   = i_head-vkgrp."销售组
* ls_header_in-sales_off   = i_head-vkbur."销售办事处
*
* ls_header_in-sd_doc_cat  = i_head-."SD 凭证类别
* ls_header_in-doc_date    = sy-datum."凭证日期 (接收/发送日期)
* ls_header_in-price_date  = i_head-."定价日期和汇率
* ls_header_in-exchg_rate  = i_head-."定价和统计直接引用的汇率
* ls_header_in-dlvschduse  = 'QQQ'."l_abrvw.         "使用标识
* ls_header_in-ship_type   = i_head-vsart.  "装运类型
* ls_header_in-s_proc_ind  = 'QQQ'."lt_reslut-sdabw.  "特殊标识
* ls_header_in-pymt_meth   = i_head-zlsch.  "付款方式
* ls_header_in-pmnttrms   = i_head-zterm.  "付款条件
* ls_header_in-ref_1  = i_head-ihrez."你的参考 CRM 订单号
* ls_header_in-incoterms1  = i_head-inco1."贸易条款

CLEAR:ls_header_inx.
ls_header_inx-updateflag = lv_update."更新标识
ls_header_inx-sales_org   = abap_true ."销售组织
ls_header_inx-distr_chan  = abap_true."分销渠道
ls_header_inx-division    = abap_true."产品组
ls_header_inx-purch_no_c   = abap_true."客户参考
ls_header_inx-cust_grp3   = abap_true."订单变更原因
* ls_header_inx-created_by   = abap_true."制单工号
* ls_header_inx-sales_grp   = abap_true."销售组
* ls_header_inx-sales_off   = abap_true."销售办事处
*
* ls_header_inx-sd_doc_cat  = abap_true."SD 凭证类别
* ls_header_inx-doc_date    = abap_true."凭证日期 (接收/发送日期)
* ls_header_inx-price_date  = abap_true."定价日期和汇率
* ls_header_inx-exchg_rate  = abap_true."定价和统计直接引用的汇率
* ls_header_inx-dlvschduse  = abap_true.         "使用标识
* ls_header_inx-ship_type   = abap_true.  "装运类型
* ls_header_inx-s_proc_ind  = abap_true.  "特殊标识
* ls_header_inx-pymt_meth   = abap_true.  "付款方式
* ls_header_in-pmnttrms   = abap_true.  "付款条件
* ls_header_inx-ref_1  = abap_true."你的参考 CRM 订单号
* ls_header_inx-incoterms1  = abap_true."贸易条款


*  IF i_head-kunag IS NOT INITIAL.
lt_partners-partn_role = 'AG'."合作伙伴功能
lt_partners-partn_numb = '0001000000'.
APPEND lt_partners.
lt_partners-partn_role = 'WE'."合作伙伴功能
lt_partners-partn_numb = '0004000000'.
APPEND lt_partners.
*  ENDIF.


*  LOOP AT t_item.

CLEAR lt_items_in.
lt_items_in-itm_number = '10'."t_item-posnr."行项目
lt_items_in-material   = '000000160000000006'."t_item-matnr."物料
lt_items_in-plant      = '1011'."t_item-werks."工厂
lt_items_in-sales_unit = 'EA'."t_item-vrkme."单位
lt_items_in-tax_class1 = '1'."t_item-taxm1."物料税分类
*    lt_items_in-store_loc  = '1011'."t_item-lgort."库存地点
APPEND lt_items_in.

CLEAR lt_items_inx.
lt_items_inx-updateflag = lv_update."更新标识
lt_items_inx-itm_number = '10'.
lt_items_inx-material = abap_true.
lt_items_inx-plant = abap_true.
lt_items_inx-sales_unit = abap_true.
lt_items_inx-tax_class1 = abap_true.
*    lt_items_inx-store_loc = abap_true.
APPEND lt_items_inx.

*   schedules
CLEAR lt_schedules_in.
lt_schedules_in-itm_number = '10'."."行项目
lt_schedules_in-req_qty = '1'."t_item-kwmeng."以销售单位计的订单数量
lt_schedules_in-req_date = '20220908'."t_item-etdat."交货日期
APPEND lt_schedules_in.

CLEAR lt_schedules_inx.
lt_schedules_inx-updateflag = lv_update."更新标识
lt_schedules_inx-itm_number = '10'."t_item-posnr."行项目
lt_schedules_inx-req_qty = abap_true."以销售单位计的订单数量
lt_schedules_inx-req_date = abap_true."交货日期
APPEND lt_schedules_inx.

CLEAR:lt_conditions_in.
lt_conditions_in-itm_number = '10'."t_item-posnr.  "行项目
lt_conditions_in-cond_type  = 'ZP00'.  "定价条件
lt_conditions_in-cond_value = '10'."t_item-kzwi1."条件金额
lt_conditions_in-currency   = 'CNY'. "货币码
lt_conditions_in-cond_p_unt  = '1'.  "条件单位
APPEND lt_conditions_in.

CLEAR:lt_conditions_inx.
lt_conditions_inx-updateflag = lv_update."更新标识
lt_conditions_inx-itm_number = '10'."t_item-posnr."行项目
lt_conditions_inx-cond_type  = 'ZP00'.            "定价条件
lt_conditions_inx-cond_value = abap_true.
lt_conditions_inx-currency   = abap_true.
lt_conditions_inx-cond_p_unt  = abap_true.
APPEND lt_conditions_inx.
*  ENDLOOP.

ls_logic_switch = 'G'.

CALL FUNCTION 'BAPI_CONTRACT_CREATEFROMDATA'
  EXPORTING
*   SALESDOCUMENTIN         =
    contract_header_in      = ls_header_in
    contract_header_inx     = ls_header_inx
*   SENDER                  =
*   BINARY_RELATIONSHIPTYPE = ' '
*   INT_NUMBER_ASSIGNMENT   = ' '
*   BEHAVE_WHEN_ERROR       = ' '
    logic_switch            = ls_logic_switch
  IMPORTING
    salesdocument           = lv_vbeln
  TABLES
    return                  = lt_return
    contract_items_in       = lt_items_in
    contract_items_inx      = lt_items_inx
    contract_partners       = lt_partners
    contract_conditions_in  = lt_conditions_in
    contract_conditions_inx = lt_conditions_inx
    contract_cfgs_ref       = order_cfgs_ref
    contract_cfgs_inst      = order_cfgs_inst
    contract_cfgs_value     = order_cfgs_value
    partneraddresses        = lt_partneraddresses.

CLEAR:lv_check,lv_message.
LOOP AT lt_return WHERE type CA 'EAX'.
  lv_message = lv_message && lt_return-message.
  lv_check = 'E'.
ENDLOOP.

IF lv_check = 'E'.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = abap_true.
ENDIF.
"-----------------------------@斌将军-----------------------------