*＆---------------- -------------------------------------------------- --- *

*＆报告ZPR_CREATE_BP
*＆-------------------------------------- ------------------------------- *
*＆
*＆-------- -------------------------------------------------- ----------- *
REPORT ZPR_CREATE_BP。
数据：wa_VAT_NUMBER类型CVIS_EI_VAT_NUMBERS，
wa_vat_t类型CVIS_EI_VAT_T，
wa_vat类型CVIS_EI_VAT，
wa_PHONE类型CVIS_EI_CVI > wa_ph_t类型CVIS_EI_PHONE_T，
wa_ph_ph类型CVIS_EI_CVI_FAX，
wa_fx_t类型CVIS_EI_FAX_T，
wa_fx_t类型CVIS_EI_FAX_T，
wa_fx_fX类型CVIS_EI_EI_PHONE_STR，
wa_fx_fx类型CVIS_EI_EI_PHONE_T wa_SMTP类型CVIS_EI_CVI_SMTP。

数据：wa_header类型cmds_ei_header，
wa_address类型bapiad1vl，
wa_addressx类型bapiad1vlx，
wa_comm类型CVIS_EI_CVI_COMM_tail_detail，银行dedebank， debank ，
wa_bank_t类型CVIS_EI_BANKDETAIL_T，
wa_bank类型CVIS_EI_BANKDETAIL_KEY，
wa_company_code_st类型cmds_ei _公司，结果wa_company_code型cmds_ei_cmd_company，结果，wa_functions_st型cmds_ei_functions，结果，wa_functions_t键入CMDS_EI_FUNCTIONS_T，结果，wa_functions键入cmds_ei_cmd_functions，结果，wa_central键入CMDS_EI_CMD_CENTRAL，结果，wa_central_dt键入CMDS_EI_CENTRAL_DATA，结果，wa_sales_data_st型cmds_ei_sales ，
wa_sales_data类型cmds_ei_cmd_sales，
wa_customer类型cmds_ei_extern，
wa_customers类型cmds_ei_main，
wa_correct类型cmds_ei_main，
wa_缺陷消息类型cmds_ei_mes_类型，visage，viss cage_visage，visage类型，
return_t类型bapiret2_t。

常量：c_update类型c值'M'，c_insert类型c值'I'。

开始选择。

wa_address -name ='名称类'。
wa_address-city ='柏林'。
wa_address-DISTRICT ='HERMSDORF'.wa_address-POSTL_COD2 ='12346'。
wa_address-PO_BOX ='23426' 。
wa_address-postl_cod1 ='99999'。
wa_address-TRANSPZONE ='D000010000'。
wa_address-street ='1400 9TH ST W'。< br> wa_address-STR_SUPPL1 ='柏林2'。
wa_address-ROOM_NO ='34'。
wa_address-country ='DE'。
wa_address-langu ='DE'。
wa_address-region = '11'。
wa_address-sort1 ='Cust_by_class'。

* wa_comm-PHONE ='12345'。
* wa_comm-FAX ='1234567891'。
* wa_comm-SMTP = 'email @ removed'。

* wa_ph_DATA-COUNTRY ='DE'。
* wa_ph_DATA-TELEPHONE ='123-456-891'。
wa_ph_ph-contact-task = c_insert。
>
wa_ph_ph-contact-data-country ='MX'。
wa_ph_ph-contact-data-TELEPHONE ='123-456-891'。
将wa_ph_ph附加到wa_ph_t。
wa_PHONE-phone = wa_ph_t。
wa_comm-PHONE = wa_phone。

* wa_fx_DATA-COUNTRY ='DE'。
* wa_fx_DATA-FAX ='1234567891'。
wa_fx_fx-contact-task = c_insert。< br> wa_fx_fx-contact-data-country ='MX'。
wa_fx_fx-contact-data-FAX ='123-456-891'。
将wa_fx_fx附加到wa_fx_t。
wa_FAX-FAX = wa_fx_t。
wa_comm-FAX = wa_FAX。

wa_sm_smtp-contact-task = c_insert。
wa_sm_smtp-contact-data-E_MAIL ='email @ removed'。
将wa_sm_smtp附加到wa_smtp_t。
wa_SMTP-smtp = wa_smtp_t。
wa_comm-SMTP = wa_SMTP。
*增值税注册。 否='DE126523143'。

*直接分配地址数据
wa_customer-central_data-address-TASK = c_insert。
wa_customer-central_data-address-postal-data = wa_address。
* wa_customer -central_data-address-postal-datax = wa_addressx。
wa_customer-central_data-address-COMMUNICATION = wa_comm。

**直接分配帐户组
wa_customer-central_data-central-data-ktokd =' 0001'。
wa_customer-central_data-central-datax-ktokd ='X'。

wa_company_code_st-task = c_insert。
wa_company_code_st-data_key-bukrs ='1000'。
* wa_company_code_st -data-zuawa ='009'。
wa_company_code_st-data-akont ='0000140000'。
* wa_company_code_st-data-zwels ='ACDETY'。
wa_company_code_st-data-zterm ='ZB01'。< br> * wa_company_code_st-data-zgrup ='02'。
* wa_company_code_st-data-xausz ='2'。
* wa_company_code_st-data-xzver ='X'。

将wa_company_code_st附加到 wa_company_code-company。

wa_sales_data_st-task = c_insert。

wa_sales_data_st-data_key-vkorg ='100 0'。
wa_sales_data_st-data_key-vtweg ='10'。
wa_sales_data_st-data_key-spart ='10'。

wa_sales_data_st-data-kalks ='1'。
* wa_sales_data_st -data-PODKZ ='1'。
wa_sales_data_st-data-inco1 ='CIF'。
wa_sales_data_st-data-inco2 ='BERLIN'。
* wa_sales_data_st-data-antlf ='9'。< br> wa_sales_data_st-data-kzazu ='X'。
wa_sales_data_st-data-vsbed ='02'。
wa_sales_data_st-data-LPRIO ='02'。
wa_sales_data_st-data-VWERK ='1000' 。
wa_sales_data_st-data-waers ='EUR'。
* wa_sales_data_st-data-ktgrd ='01'。
wa_sales_data_st-data-zterm ='ZB01'。

* wa_sales_data_st- functions-functions-data_key-parvw ='SP'。
wa_functions_st-data_key-parvw ='SP'.wa_functions_st-data_key-parza ='000'。
将wa_functions_st附加到wa_functions_t。
< br> wa_functions_st-data_key-parvw ='BP'。
wa_functions_st-data_key-parza ='000'。
将wa_functions_st附加到wa_functions_t。

wa_functions_st-data_key-parvw ='PY'。< br> wa_functions_st-data_key-parza ='000'。
将wa_functions_st附加到wa_functions_t。

wa_functions_st-data_key-parvw ='SH'。
wa_functions_st-data_key-parza ='000'。

*将wa_functions_st附加到wa_functions_t。
附加 wa_functions_st到wa_functions-functions。

* wa_functions = wa_functions_t。

wa_sales_data_st-functions = wa_functions。

将wa_sales_data_st附加到wa_sales_data-sales
。 -task = c_insert。
* wa_bankdetail_st-DATA_KEY-BANKS ='DE'。
* wa_bankdetail_st-DATA_KEY-BANKL ='12412654'。
* wa_bankdetail_st-DATA_KEY-BANKN ='46575466'。
** wa_bankdetail_st-DATA-BKONT =
* wa_bankdetail_st-DATA-KOINH ='3456'。

*将wa_bankdetail_st附加到wa_bank_t。

* wa_bankdetail-BANKDETAILS = wa_bank_t。

* wa_vat_DATA_KEY-LAND1 ='DE'。
* wa_vat_data-STCEG ='DE126523123'。
wa_vat-task = c_insert。
wa_vat-DATA_KEY-LAND1 ='DE'。
wa_vat -data-STCEG ='DE126523123'。
将wa_vat附加到wa_vat_t。
wa_VAT_NUMBER-VAT_NUMBERS = wa_vat_t。

w a_central-data-ktokd ='0001'。
wa_central-data-STCEG ='DE126523123'。
wa_central_dt-central = wa_central。
wa_central_dt-VAT_NUMBER = wa_VAT_NUMBER。
* wa_central_dt- BANKDETAIL = wa_bankdetail。

* wa_customer-header-object_instance-kunnr ='77775'。
wa_customer-header-object_task = c_insert。
wa_customer-company_data = wa_company_code。
wa_customer-CENTRAL_DATA = wa_central_dt。
wa_customer-sales_data = wa_sales_data。

将wa_customer附加到wa_customers-customers。

呼叫方法cmd_ei_api => maintain_bapi
EXPORTING
is_master_data = wa_customers
ES_MASTER_DATA_CORRECT = wa_correct
ES_MESSAGE_CORRECT = wa_mes_correct
ES_MASTER_DATA_DEFECTIVE = wa_defective
ES_MESSAGE_DEFECTIVE = wa_mes_error。
如果wa_mes_error_is_error是初始的。/p>