BAPI函数：cmd_ei_api=>maintain_bapi
事物代码：XD01/XD02
客户主数据创建、修改、拓展功能开发
数据结构定义：
基本视图信息
公司代码信息结构：
销售视图信息结构:
客户主数据税分类信息结构：
代码参考
详细代码样例参考：
FUNCTION zsd_customer_maintain.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" REFERENCE(IS_GENERAL) TYPE ZSGENERAL OPTIONAL
*" EXPORTING
*" REFERENCE(KUNNR) TYPE KUNNR
*" TABLES
*" IT_COMPANY_DATA STRUCTURE ZSCOMPANY_DATA OPTIONAL
*" IT_SALES_DATA STRUCTURE ZSSALES_DATA OPTIONAL
*" IT_TAX_DATA STRUCTURE ZSTAX_DATA OPTIONAL
*" ET_RETURN STRUCTURE BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------
DATA: is_master_data TYPE cmds_ei_main,
es_error TYPE cvis_message,
ls_messages TYPE bapiret2,
ls_return TYPE bapiret2,
ls_company_data TYPE zscompany_data,
ls_company TYPE cmds_ei_company,
ls_customers TYPE cmds_ei_extern,
ls_sales_data TYPE zssales_data,
ls_sales TYPE cmds_ei_sales,
ls_tax_data TYPE zstax_data,
ls_tax TYPE cmds_ei_tax_ind,
ls_banks TYPE cvis_ei_cvi_bankdetail,
lv_kunnr TYPE knvk-kunnr,
lt_knvk TYPE TABLE OF knvk,
ls_knvk TYPE knvk,
ls_adr6 TYPE adr6,
lv_name TYPE string,
ls_contact TYPE cmds_ei_contacts,
gs_error TYPE cvis_message,
ls_phone TYPE cvis_ei_phone_str,
ls_smtp TYPE cvis_ei_smtp_str,
ls_functions TYPE cmds_ei_functions,
es_master_data_correct TYPE cmds_ei_main,
es_message_correct TYPE cvis_message,
ls_customrers TYPE cmds_ei_extern,
es_master_data_defective TYPE cmds_ei_main,
es_message_defective TYPE cvis_message.
*--------------------------------------------------------------------*
* 基本视图信息
*--------------------------------------------------------------------*
ls_customers-header-object_task = 'M'.
CLEAR: lv_kunnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = is_general-kunnr
IMPORTING
output = lv_kunnr.
IF lv_kunnr IS NOT INITIAL.
ls_customers-header-object_instance-kunnr = lv_kunnr.
ENDIF.
IF is_general-ktokd IS NOT INITIAL.
ls_customers-central_data-central-data-ktokd = is_general-ktokd. "客户帐户组
ls_customers-central_data-central-datax-ktokd = 'X'.
ENDIF.
IF is_general-stcd5 IS NOT INITIAL.
ls_customers-central_data-central-data-stcd5 = is_general-stcd5. "税号 5
ls_customers-central_data-central-datax-stcd5 = 'X'.
ENDIF.
IF is_general-title IS NOT INITIAL.
ls_customers-central_data-address-postal-data-title = is_general-title. "称谓默认公司：0003
ls_customers-central_data-address-postal-datax-title = 'X'.
ENDIF.
IF is_general-name IS NOT INITIAL.
ls_customers-central_data-address-postal-data-name = is_general-name. "名称 1
ls_customers-central_data-address-postal-datax-name = 'X'.
ENDIF.
IF is_general-name_2 IS NOT INITIAL.
ls_customers-central_data-address-postal-data-name_2 = is_general-name_2. "名称 2
ls_customers-central_data-address-postal-datax-name_2 = 'X'.
ENDIF.
IF is_general-name_3 IS NOT INITIAL.
ls_customers-central_data-address-postal-data-name_3 = is_general-name_3. "名称 3
ls_customers-central_data-address-postal-datax-name_3 = 'X'.
ENDIF.
IF is_general-name_4 IS NOT INITIAL.
ls_customers-central_data-address-postal-data-name_4 = is_general-name_4. "名称 4
ls_customers-central_data-address-postal-datax-name_4 = 'X'.
ENDIF.
IF is_general-sort1 IS NOT INITIAL.
ls_customers-central_data-address-postal-data-sort1 = is_general-sort1. "检索项1
ls_customers-central_data-address-postal-datax-sort1 = 'X'.
ENDIF.
IF is_general-sort2 IS NOT INITIAL.
ls_customers-central_data-address-postal-data-sort2 = is_general-sort2. "检索项2
ls_customers-central_data-address-postal-datax-sort2 = 'X'.
ENDIF.
IF is_general-street IS NOT INITIAL.
ls_customers-central_data-address-postal-data-street = is_general-street. "街道
ls_customers-central_data-address-postal-datax-street = 'X'.
ENDIF.
IF is_general-country IS NOT INITIAL.
ls_customers-central_data-address-postal-data-country = is_general-country. "国家键值
ls_customers-central_data-address-postal-datax-country = 'X'.
IF is_general-country = 'CN'.
ls_customers-central_data-address-postal-data-langu = '1'. "语言代码
ELSE.
ls_customers-central_data-address-postal-data-langu = 'E'. "语言代码
ENDIF.
ls_customers-central_data-address-postal-datax-langu = 'X'.
ENDIF.
IF ls_customers-central_data-address IS NOT INITIAL.
ls_customers-central_data-address-task = 'M'.
ENDIF.
IF is_general-banks IS NOT INITIAL.
ls_banks-data_key-banks = is_general-banks. "银行国家代码
ENDIF.
IF is_general-bankl IS NOT INITIAL.
ls_banks-data_key-bankl = is_general-bankl. "银行编号
ENDIF.
IF is_general-bankn IS NOT INITIAL.
ls_banks-data_key-bankn = is_general-bankn. "银行帐户号码
ENDIF.
IF is_general-bvtyp IS NOT INITIAL.
ls_banks-data-bvtyp = is_general-bvtyp. "合作银行类型
ls_banks-datax-bvtyp = 'X'.
ENDIF.
IF is_general-bkref IS NOT INITIAL.
ls_banks-data-bkref = is_general-bkref. "银行帐户的参考规定
ls_banks-datax-bkref = 'X'.
ENDIF.
IF is_general-koinh IS NOT INITIAL.
ls_banks-data-koinh = is_general-koinh. "帐户持有人姓名
ls_banks-datax-koinh = 'X'.
ENDIF.
IF ls_banks IS NOT INITIAL.
ls_banks-task = 'M'.
APPEND ls_banks TO ls_customers-central_data-bankdetail-bankdetails[].
CLEAR: ls_banks.
ENDIF.
"检查联系人是否有创建，如果有的话，就进行修改，如果没有，则新建
SELECT * INTO TABLE lt_knvk
FROM knvk
WHERE kunnr = lv_kunnr.
LOOP AT lt_knvk INTO ls_knvk.
CLEAR: lv_name.
CONCATENATE ls_knvk-name1 ls_knvk-namev INTO lv_name.
IF lv_name = is_general-name_c.
ls_contact-task = 'U'.
ls_contact-data_key-parnr = ls_knvk-parnr.
EXIT.
ELSE.
ls_contact-task = 'M'.
ENDIF.
ENDLOOP.
IF ls_contact-task = 'M'.
cmd_ei_api=>get_contact_number( IMPORTING ev_parnr = ls_contact-data_key-parnr
es_error = gs_error ).
ENDIF.
IF is_general-telephone IS NOT INITIAL.
ls_phone-contact-data-telephone = is_general-telephone.
ls_phone-contact-datax-telephone = 'X'.
ENDIF.
IF is_general-extension IS NOT INITIAL.
ls_phone-contact-data-extension = is_general-extension.
ls_phone-contact-datax-extension = 'X'.
ENDIF.
IF is_general-tel_no IS NOT INITIAL.
ls_phone-contact-data-tel_no = is_general-tel_no.
ls_phone-contact-datax-tel_no = 'X'.
ENDIF.
IF ls_phone IS NOT INITIAL.
ls_phone-contact-task = 'M'.
APPEND ls_phone TO ls_contact-address_type_1-communication-phone-phone[].
CLEAR: ls_phone.
ENDIF.
IF is_general-e_mail IS NOT INITIAL.
READ TABLE lt_knvk INTO ls_knvk WITH KEY parnr = ls_contact-data_key-parnr.
IF sy-subrc = 0.
SELECT SINGLE * INTO ls_adr6
FROM adr6
WHERE persnumber = ls_knvk-prsnr.
IF ls_adr6-smtp_addr IS INITIAL.
ls_smtp-contact-task = 'I'.
ELSE.
ls_smtp-contact-task = 'U'.
ENDIF.
ENDIF.
ls_smtp-contact-data-e_mail = is_general-e_mail.
ls_smtp-contact-datax-e_mail = 'X'.
APPEND ls_smtp TO ls_contact-address_type_1-communication-smtp-smtp[].
APPEND ls_smtp TO ls_contact-address_type_3-communication-smtp-smtp[].
CLEAR: ls_smtp.
ENDIF.
IF is_general-postl_cod1 IS NOT INITIAL.
ls_contact-address_type_1-postal-data-postl_cod1 = is_general-postl_cod1.
ls_contact-address_type_1-postal-datax-postl_cod1 = 'X'.
ls_contact-address_type_2-postal-data-postl_cod1 = is_general-postl_cod1.
ls_contact-address_type_2-postal-datax-postl_cod1 = 'X'.
ENDIF.
IF is_general-country IS NOT INITIAL.
ls_contact-address_type_1-postal-data-country = is_general-country.
ls_contact-address_type_1-postal-datax-country = 'X'.
ls_contact-address_type_2-postal-data-country = is_general-country.
ls_contact-address_type_2-postal-datax-country = 'X'.
ENDIF.
IF is_general-name_c IS NOT INITIAL.
ls_contact-address_type_1-postal-data-name = is_general-name_c.
ls_contact-address_type_1-postal-datax-name = 'X'.
ls_contact-address_type_3-postal-data-fullname = is_general-name_c.
ls_contact-address_type_3-postal-data-firstname = is_general-name_c.
ls_contact-address_type_3-postal-data-lastname = is_general-name_c.
ls_contact-address_type_3-postal-datax-fullname = 'X'.
ls_contact-address_type_3-postal-datax-firstname = 'X'.
ls_contact-address_type_3-postal-datax-lastname = 'X'.
ENDIF.
IF ls_contact IS NOT INITIAL.
ls_contact-address_type_1-task = 'M'.
ls_contact-address_type_2-task = 'M'.
ls_contact-address_type_3-task = 'M'.
APPEND ls_contact TO ls_customers-central_data-contact-contacts[].
CLEAR: ls_contact.
ENDIF.
"紧急联系人
LOOP AT lt_knvk INTO ls_knvk.
CLEAR: lv_name.
CONCATENATE ls_knvk-name1 ls_knvk-namev INTO lv_name.
IF lv_name = is_general-name_jj.
ls_contact-task = 'U'.
ls_contact-data_key-parnr = ls_knvk-parnr.
EXIT.
ELSE.
ls_contact-task = 'M'.
ENDIF.
ENDLOOP.
IF ls_contact-task = 'M'.
cmd_ei_api=>get_contact_number( IMPORTING ev_parnr = ls_contact-data_key-parnr
es_error = gs_error ).
ENDIF.
IF is_general-telephone_jj IS NOT INITIAL.
ls_phone-contact-data-telephone = is_general-telephone_jj.
ls_phone-contact-datax-telephone = 'X'.
ENDIF.
IF is_general-extension_jj IS NOT INITIAL.
ls_phone-contact-data-extension = is_general-extension_jj.
ls_phone-contact-datax-extension = 'X'.
ENDIF.
IF is_general-tel_no_jj IS NOT INITIAL.
ls_phone-contact-data-tel_no = is_general-tel_no_jj.
ls_phone-contact-datax-tel_no = 'X'.
ENDIF.
IF ls_phone IS NOT INITIAL.
ls_phone-contact-task = 'M'.
APPEND ls_phone TO ls_contact-address_type_1-communication-phone-phone[].
CLEAR: ls_phone.
ENDIF.
IF is_general-e_mail_jj IS NOT INITIAL.
READ TABLE lt_knvk INTO ls_knvk WITH KEY parnr = ls_contact-data_key-parnr.
IF sy-subrc = 0.
SELECT SINGLE * INTO ls_adr6
FROM adr6
WHERE persnumber = ls_knvk-prsnr.
IF ls_adr6-smtp_addr IS INITIAL.
ls_smtp-contact-task = 'I'.
ELSE.
ls_smtp-contact-task = 'U'.
ENDIF.
ENDIF.
ls_smtp-contact-data-e_mail = is_general-e_mail_jj.
ls_smtp-contact-datax-e_mail = 'X'.
APPEND ls_smtp TO ls_contact-address_type_1-communication-smtp-smtp[].
APPEND ls_smtp TO ls_contact-address_type_3-communication-smtp-smtp[].
CLEAR: ls_smtp.
ENDIF.
IF is_general-postl_cod1_jj IS NOT INITIAL.
ls_contact-address_type_1-postal-data-postl_cod1 = is_general-postl_cod1_jj.
ls_contact-address_type_1-postal-datax-postl_cod1 = 'X'.
ls_contact-address_type_2-postal-data-postl_cod1 = is_general-postl_cod1_jj.
ls_contact-address_type_2-postal-datax-postl_cod1 = 'X'.
ENDIF.
IF is_general-country IS NOT INITIAL.
ls_contact-address_type_1-postal-data-country = is_general-country.
ls_contact-address_type_1-postal-datax-country = 'X'.
ls_contact-address_type_2-postal-data-country = is_general-country.
ls_contact-address_type_2-postal-datax-country = 'X'.
ENDIF.
IF is_general-name_jj IS NOT INITIAL.
ls_contact-address_type_1-postal-data-name = is_general-name_jj.
ls_contact-address_type_1-postal-datax-name = 'X'.
ls_contact-address_type_3-postal-data-fullname = is_general-name_jj.
ls_contact-address_type_3-postal-data-firstname = is_general-name_jj.
ls_contact-address_type_3-postal-data-lastname = is_general-name_jj.
ls_contact-address_type_3-postal-datax-fullname = 'X'.
ls_contact-address_type_3-postal-datax-firstname = 'X'.
ls_contact-address_type_3-postal-datax-lastname = 'X'.
ENDIF.
IF ls_contact IS NOT INITIAL.
ls_contact-address_type_1-task = 'M'.
ls_contact-address_type_2-task = 'M'.
ls_contact-address_type_3-task = 'M'.
APPEND ls_contact TO ls_customers-central_data-contact-contacts[].
CLEAR: ls_contact.
ENDIF.
" 税分类
LOOP AT it_tax_data INTO ls_tax_data.
ls_tax-task = 'M'.
ls_tax-data_key-aland = ls_tax_data-aland. "发货国(由该国家发货)
ls_tax-data_key-tatyp = ls_tax_data-tatyp. "税类别(营业税，联邦营业税，...)
ls_tax-data-taxkd = ls_tax_data-taxkd. "客户税分类
ls_tax-datax-taxkd = 'X'.
APPEND ls_tax TO ls_customers-central_data-tax_ind-tax_ind[].
CLEAR: ls_tax, ls_tax_data.
ENDLOOP.
*--------------------------------------------------------------------*
* 销售视图信息
*--------------------------------------------------------------------*
LOOP AT it_sales_data INTO ls_sales_data.
ls_sales-task = 'M'.
ls_sales-data_key-vkorg = ls_sales_data-vkorg. "销售组织
ls_sales-data_key-vtweg = ls_sales_data-vtweg. "分销渠道
ls_sales-data_key-spart = ls_sales_data-spart. "产品组
ls_sales-data-bzirk = ls_sales_data-bzirk."销售地区
ls_sales-data-vkgrp = ls_sales_data-vkgrp. "销售组
ls_sales-data-vkbur = ls_sales_data-vkbur. "销售部门
ls_sales-data-awahr = ls_sales_data-awahr."该项目的订单可能性
ls_sales-data-kdgrp = ls_sales_data-kdgrp. "客户组
ls_sales-data-waers = ls_sales_data-waers. "货币
ls_sales-data-kalks = ls_sales_data-kalks."定价过程分配到该客户
ls_sales-data-zterm = ls_sales_data-zterm. "付款条件代码
ls_sales-data-mrnkz = ls_sales_data-mrnkz. "人工发票维护
ls_sales-data-bokre = ls_sales_data-bokre. "标识：客户将接受回扣
ls_sales-data-prfre = ls_sales_data-prfre. "定价标识相关
ls_sales-data-ktgrd = ls_sales_data-ktgrd. "客户组的帐户分配
ls_sales-data-inco1 = ls_sales_data-inco1. "国际贸易条款 (部分1)
ls_sales-data-inco2 = ls_sales_data-inco2. "国际贸易条件(部分2)
ls_sales-data-kzazu = 'X'. "订单组合标识
ls_functions-task = 'M'.
ls_functions-data_key-parvw = 'AG'.
IF lv_kunnr IS NOT INITIAL.
ls_functions-data-partner = lv_kunnr.
ls_functions-datax-partner = 'X'.
ENDIF.
APPEND ls_functions TO ls_sales-functions-functions[].
CLEAR: ls_functions.
ls_functions-task = 'M'.
ls_functions-data_key-parvw = 'RE'.
IF lv_kunnr IS NOT INITIAL.
ls_functions-data-partner = lv_kunnr.
ls_functions-datax-partner = 'X'.
ENDIF.
APPEND ls_functions TO ls_sales-functions-functions[].
CLEAR: ls_functions.
ls_functions-task = 'M'.
ls_functions-data_key-parvw = 'RG'.
IF lv_kunnr IS NOT INITIAL.
ls_functions-data-partner = lv_kunnr.
ls_functions-datax-partner = 'X'.
ENDIF.
APPEND ls_functions TO ls_sales-functions-functions[].
CLEAR: ls_functions.
ls_functions-task = 'M'.
ls_functions-data_key-parvw = 'WE'.
IF lv_kunnr IS NOT INITIAL.
ls_functions-data-partner = lv_kunnr.
ls_functions-datax-partner = 'X'.
ENDIF.
APPEND ls_functions TO ls_sales-functions-functions[].
CLEAR: ls_functions.
ls_sales-datax-bzirk = 'X'.
ls_sales-datax-vkgrp = 'X'.
ls_sales-datax-vkbur = 'X'.
ls_sales-datax-awahr = 'X'.
ls_sales-datax-kdgrp = 'X'.
ls_sales-datax-waers = 'X'.
ls_sales-datax-kalks = 'X'.
ls_sales-datax-zterm = 'X'.
ls_sales-datax-mrnkz = 'X'.
ls_sales-datax-bokre = 'X'.
ls_sales-datax-prfre = 'X'.
ls_sales-datax-ktgrd = 'X'.
ls_sales-datax-inco1 = 'X'.
ls_sales-datax-inco2 = 'X'.
ls_sales-datax-kzazu = 'X'.
APPEND ls_sales TO ls_customers-sales_data-sales[].
CLEAR: ls_sales, ls_sales_data.
ENDLOOP.
*--------------------------------------------------------------------*
* 公司代码视图信息
*--------------------------------------------------------------------*
LOOP AT it_company_data INTO ls_company_data.
ls_company-task = 'M'.
ls_company-data_key-bukrs = ls_company_data-bukrs. "公司代码
ls_company-data-akont = ls_company_data-akont. "统驭科目
ls_company-datax-akont = 'X'.
APPEND ls_company TO ls_customers-company_data-company[].
CLEAR: ls_company, ls_company_data.
ENDLOOP.
APPEND ls_customers TO is_master_data-customers[].
* CALL METHOD cmd_ei_api=>maintain
* EXPORTING
* iv_test_run = space
* is_master_data = is_master_data
* IMPORTING
* es_error = es_error.
CALL METHOD cmd_ei_api=>maintain_bapi
EXPORTING
* iv_test_run = SPACE
* iv_collect_messages = SPACE
is_master_data = is_master_data
IMPORTING
es_master_data_correct = es_master_data_correct
es_message_correct = es_message_correct
es_master_data_defective = es_master_data_defective
es_message_defective = es_message_defective.
READ TABLE es_master_data_correct-customers[] INTO ls_customrers INDEX 1.
IF sy-subrc <> 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
* RETURN =
.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
* IMPORTING
* RETURN =
.
* READ TABLE es_master_data_correct-customers[] INTO ls_customrers INDEX 1.
kunnr = ls_customrers-header-object_instance-kunnr.
ENDIF.
LOOP AT es_error-messages INTO ls_messages.
MOVE-CORRESPONDING ls_messages TO ls_return.
APPEND ls_return TO et_return.
CLEAR: ls_return, ls_messages.
ENDLOOP.
LOOP AT es_message_defective-messages INTO ls_messages..
MOVE-CORRESPONDING ls_messages TO ls_return.
APPEND ls_return TO et_return.
CLEAR: ls_return, ls_messages.
ENDLOOP.
ENDFUNCTION.
