SD 客户主数据创建、修改：CVI_EI_INBOUND_MAIN/CL_MD_BP_MAINTAIN=＞MAINTAIN

已于 2024-04-24 15:53:43 修改
阅读量1.4k 收藏 4
点赞数
CC 4.0 BY-SA版权
分类专栏： BAPI 文章标签： 开发语言 程序人生
于 2023-08-29 16:56:19 首次发布
by_Jshi
本文链接：https://blog.youkuaiyun.com/JZYDDFZJ/article/details/132565399 
*&---------------------------------------------------------------------*
*& Form FRM_CREAT_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> <FS_TAB>
*&---------------------------------------------------------------------*
FORM frm_creat_data
  USING    ps_tab    TYPE gy_tab
  CHANGING ps_return TYPE zssd18_rsp.

  CONSTANTS:c_parvw1 TYPE parvw VALUE 'SP', " 售达方
            c_parvw2 TYPE parvw VALUE 'BP', " 收票方
            c_parvw3 TYPE parvw VALUE 'PY', " 付款方
            c_parvw5 TYPE parvw VALUE 'SH'. " 送达方

* 根据伙伴GUID取出客户编号
  DATA:lt_partnerguid_list TYPE bu_partner_guid_t,
       ls_partnerguid_list TYPE bu_partner_guid.
  DATA:lt_customer_list TYPE cvis_cust_link_t,
       ls_customer_list TYPE cvi_cust_link.

  DATA:ls_data   TYPE  cvis_ei_extern,
       lt_data   TYPE  cvis_ei_extern_t,
       lt_return TYPE  bapiretm,
       ls_return TYPE  bapireti,
       ls_msg    TYPE  bapiretc.

  DATA:ls_partner  TYPE bus_ei_extern,
       ls_customer TYPE cmds_ei_extern.
  DATA:ls_header       TYPE cmds_ei_header,
       ls_central_data TYPE cmds_ei_central_data,
       ls_company_data TYPE cmds_ei_cmd_company,
       ls_sales_data   TYPE cmds_ei_cmd_sales.
  DATA:lt_roles         TYPE bus_ei_bupa_roles_t,
       ls_roles         TYPE bus_ei_bupa_roles,
       lt_ident_numbers TYPE bus_ei_bupa_identification_t,
       ls_ident_numbers TYPE bus_ei_bupa_identification,
       lt_addresses     TYPE bus_ei_bupa_address_t,
       ls_addresses     TYPE bus_ei_bupa_address,
       lt_phone         TYPE bus_ei_bupa_telephone_t,
       ls_phone         TYPE bus_ei_bupa_telephone,
       lt_fax           TYPE bus_ei_bupa_fax_t,
       ls_fax           TYPE bus_ei_bupa_fax,
       lt_smtp          TYPE bus_ei_bupa_smtp_t,
       ls_smtp          TYPE bus_ei_bupa_smtp,
       ls_remarks       TYPE bus_ei_bupa_comrem,
       lt_remarks       TYPE bus_ei_bupa_comrem_t,
       lt_company       TYPE cmds_ei_company_t,
       ls_company       TYPE cmds_ei_company,
       lt_sales         TYPE cmds_ei_sales_t,
       ls_sales         TYPE cmds_ei_sales,
       lt_functions     TYPE cmds_ei_functions_t,
       ls_functions     TYPE cmds_ei_functions,
       ls_central       TYPE cmds_ei_cmd_central,
       lt_tax_ind       TYPE cmds_ei_tax_ind_t,
       ls_tax_ind       TYPE cmds_ei_tax_ind,
       lt_remarks_a     TYPE bus_ei_bupa_addressremark_t,
       ls_remarks_a     TYPE bus_ei_bupa_addressremark,
       lt_banks         TYPE bus_ei_bupa_bankdetail_t,
       ls_banks         TYPE bus_ei_bupa_bankdetail.

  DATA:lv_msg TYPE string.
  DATA:lv_msg1 TYPE string.
  DATA:lv_bpartnerguid TYPE bu_partner_guid_bapi.

  DATA:lt_return_tax TYPE TABLE OF bapiret2 WITH HEADER LINE,
       lt_return_frg TYPE TABLE OF bapiret2 WITH HEADER LINE.

  DATA:lt_return_ukmbp TYPE ukm_t_monitor_return .

  CLEAR:ls_central_data,ls_company_data,ls_sales_data,ls_partner,ls_customer.
  CLEAR:ls_partnerguid_list,lt_partnerguid_list,lt_customer_list,ls_customer_list,lt_data,ls_data,lv_bpartnerguid,
        lt_return,lv_msg,lt_tax_ind,ls_tax_ind,ls_central,ls_company,lt_company,ls_sales,lt_sales,ls_functions,lt_functions.

  ls_partner-header-object_task = ps_tab-zczlx.            " I-新增   U-修改   C-当前状态    D-删除
  CASE ps_tab-zczlx.
    WHEN 'I'.
*     创建伙伴GUID
      TRY .
          lv_bpartnerguid = cl_uuid_factory=>create_system_uuid( )->create_uuid_x16( ).
        CATCH cx_uuid_error.
*   返回消息
      ENDTRY.
      ls_partner-header-object_instance-bpartnerguid = lv_bpartnerguid.
      ls_partner-central_data-common-data-bp_control-category = 2.                       " 业务伙伴类别
    WHEN 'U'.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = ps_tab-partner
        IMPORTING
          output = ps_tab-partner.
      ls_header-object_task = 'U'.
      ls_partner-header-object_instance-bpartner = ps_tab-partner .         " 客户号
      SELECT SINGLE partner_guid
               FROM but000
             WHERE partner = @ps_tab-partner
              INTO @DATA(lv_bpartnerguid_u).
      ls_partner-header-object_instance-bpartnerguid = lv_bpartnerguid_u.
    WHEN OTHERS.
  ENDCASE.
* 账户组
  ls_partner-central_data-common-data-bp_control-grouping         = ps_tab-bu_group.
* 名称1
  ls_partner-central_data-common-data-bp_organization-name1       = ps_tab-name_org1.
  ls_partner-central_data-common-datax-bp_organization-name1      = COND #( WHEN ls_partner-central_data-common-data-bp_organization-name1 IS NOT INITIAL THEN abap_true ).
* 搜索项
  ls_partner-central_data-common-data-bp_centraldata-searchterm1  = ps_tab-bu_sort1.
  ls_partner-central_data-common-datax-bp_centraldata-searchterm1 = COND #( WHEN ls_partner-central_data-common-data-bp_centraldata-searchterm1 IS NOT INITIAL THEN abap_true ).
* 称谓
  ls_partner-central_data-common-data-bp_centraldata-title_key    = ps_tab-title.
  ls_partner-central_data-common-datax-bp_centraldata-title_key   = COND #( WHEN ls_partner-central_data-common-data-bp_centraldata-title_key   IS NOT INITIAL THEN abap_true ).

  CLEAR:lt_roles.
  ls_roles-task = ps_tab-zczlx.
  ls_roles-data_key = 'FLCU01'.     "角色
  APPEND ls_roles TO lt_roles.

  ls_roles-task = ps_tab-zczlx.
  ls_roles-data_key = 'FLCU00'.     "角色
  APPEND ls_roles TO lt_roles.
  ls_partner-central_data-role-roles = lt_roles.

  CLEAR:ls_addresses,lt_addresses.
  ls_addresses-data-postal-data-street       = ps_tab-stras.  " 街道
  ls_addresses-data-postal-data-city         = ps_tab-ort01.  " 城市
  ls_addresses-data-postal-data-district     = ps_tab-city2.  " 区域
  ls_addresses-data-postal-data-postl_cod1   = ps_tab-pstlz.  " 邮政编码
  ls_addresses-data-postal-data-country      = ps_tab-land1.  " 国家代码
  ls_addresses-data-postal-data-region       = ps_tab-regio.  " 地区代码
  ls_addresses-data-postal-data-c_o_name     = ps_tab-name_co." 代收人
  IF ps_tab-zczlx = 'U'.
    ls_addresses-task = '5'.
    ls_addresses-data-postal-data-validfromdate   = sy-datum.
    ls_addresses-data-postal-datax-validfromdate  = 'X'.
    ls_addresses-data-postal-data-validtodate     = '99991231'.
    ls_addresses-data-postal-datax-validtodate    = 'X'.
  ELSEIF ps_tab-zczlx = 'I'.
    ls_addresses-task = ps_tab-zczlx.
  ENDIF.
  CALL FUNCTION 'CONVERSION_EXIT_ISOLA_INPUT'
    EXPORTING
      input            = ps_tab-spras
    IMPORTING
      output           = ls_addresses-data-postal-data-languiso " 语言
    EXCEPTIONS
      unknown_language = 1.
  ls_addresses-data-postal-data-langu        = ls_addresses-data-postal-data-languiso." 语言
  ls_addresses-data-postal-datax-street      = COND #( WHEN ls_addresses-data-postal-data-street      IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-city        = COND #( WHEN ls_addresses-data-postal-data-city        IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-district    = COND #( WHEN ls_addresses-data-postal-data-district    IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-postl_cod1  = COND #( WHEN ls_addresses-data-postal-data-postl_cod1  IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-country     = COND #( WHEN ls_addresses-data-postal-data-country     IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-region      = COND #( WHEN ls_addresses-data-postal-data-region      IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-c_o_name    = COND #( WHEN ls_addresses-data-postal-data-c_o_name    IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-langu_iso   = COND #( WHEN ls_addresses-data-postal-data-languiso    IS NOT INITIAL THEN abap_true ).
  ls_addresses-data-postal-datax-langu       = COND #( WHEN ls_addresses-data-postal-data-langu       IS NOT INITIAL THEN abap_true ).

  CLEAR:ls_phone,lt_phone.
  IF ps_tab-zczlx = 'I'.
    ls_phone-contact-task = ps_tab-zczlx.
  ELSE.
    ls_phone-contact-task = '2'.
  ENDIF.
  ls_phone-contact-task             = ps_tab-zczlx.
  ls_phone-contact-data-telephone   = ps_tab-tel_number2.  " 开票电话
  ls_phone-contact-data-country     = ps_tab-land1.
  ls_phone-contact-data-r_3_user    = '1'.
  ls_phone-contact-data-consnumber  = '001'.
  ls_phone-contact-data-std_no      = 'X'.
  ls_phone-contact-datax-telephone  = COND #( WHEN ls_phone-contact-data-telephone IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-country    = COND #( WHEN ls_phone-contact-data-country   IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-r_3_user   = COND #( WHEN ls_phone-contact-data-r_3_user  IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-consnumber = COND #( WHEN ls_phone-contact-data-consnumber IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-std_no     = COND #( WHEN ls_phone-contact-data-consnumber IS NOT INITIAL THEN abap_true ).
  APPEND ls_phone TO lt_phone.

  CLEAR:ls_phone.
  IF ps_tab-zczlx = 'I'.
    ls_phone-contact-task = ps_tab-zczlx.
  ELSE.
    ls_phone-contact-task = '2'.
  ENDIF.
  ls_phone-contact-data-telephone  = ps_tab-tel_number.  " 移动电话
  ls_phone-contact-data-country    = ps_tab-land1.
  ls_phone-contact-data-r_3_user   = '3'.
  ls_phone-contact-data-consnumber = '002'.
  ls_phone-contact-datax-telephone = COND #( WHEN ls_phone-contact-data-telephone IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-country   = COND #( WHEN ls_phone-contact-data-country   IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-r_3_user  = COND #( WHEN ls_phone-contact-data-r_3_user  IS NOT INITIAL THEN abap_true ).
  ls_phone-contact-datax-consnumber = COND #( WHEN ls_phone-contact-data-consnumber IS NOT INITIAL THEN abap_true ).
  APPEND ls_phone TO lt_phone.

  ls_addresses-data-communication-phone-phone = lt_phone.

  CLEAR:ls_smtp,lt_smtp.
  IF ps_tab-zczlx = 'I'.
    ls_smtp-contact-task = ps_tab-zczlx.
  ELSE.
    ls_smtp-contact-task = '2'.
  ENDIF.
  ls_smtp-contact-data-e_mail      = ps_tab-email. " 邮件
  ls_smtp-contact-data-consnumber  = '001'.        " 序号
  ls_smtp-contact-data-std_no      = 'X'.
  ls_smtp-contact-data-home_flag   = 'X'.
  ls_smtp-contact-datax-e_mail     = COND #( WHEN ls_smtp-contact-data-e_mail     IS NOT INITIAL THEN abap_true ).
  ls_smtp-contact-datax-consnumber = COND #( WHEN ls_smtp-contact-data-consnumber IS NOT INITIAL THEN abap_true ).
  ls_smtp-contact-datax-std_no     = COND #( WHEN ls_smtp-contact-data-std_no     IS NOT INITIAL THEN abap_true ).
  ls_smtp-contact-datax-home_flag  = COND #( WHEN ls_smtp-contact-data-home_flag  IS NOT INITIAL THEN abap_true ).
  APPEND ls_smtp TO lt_smtp.
  ls_addresses-data-communication-smtp-smtp = lt_smtp.

*--传真
  CLEAR:ls_fax.
  REFRESH lt_fax.
  IF ps_tab-zczlx = 'I'.
    ls_fax-contact-task      = ps_tab-zczlx.
  ELSE.
    ls_fax-contact-task = '2'.
  ENDIF.
  ls_fax-contact-data-fax  = ps_tab-fax_number .
  ls_fax-contact-datax-fax = COND #( WHEN ls_fax-contact-data-fax IS NOT INITIAL THEN abap_true ).
  APPEND ls_fax TO lt_fax .
  ls_addresses-data-communication-fax-fax = lt_fax.

  APPEND ls_addresses TO lt_addresses.
  ls_partner-central_data-address-addresses = lt_addresses.


*客户数据表头**********************************************
  ls_header-object_task = ps_tab-zczlx.
  ls_customer-header    = ls_header.
*中心数据**************************************************
  ls_central-data-kukla   = ps_tab-kukla."客户分类
  ls_central-datax-kukla  = COND #( WHEN ls_central-data-kukla IS NOT INITIAL THEN abap_true ).
  ls_central_data-central = ls_central.

* 客户销售的出发票
  ls_tax_ind-task           = ps_tab-zczlx.
  ls_tax_ind-data_key-aland = 'CN'.
  ls_tax_ind-data_key-tatyp = 'MWST'.
  ls_tax_ind-data-taxkd     = ps_tab-taxkd.
  ls_tax_ind-datax-taxkd = COND #( WHEN ls_tax_ind-data-taxkd IS NOT INITIAL THEN abap_true ).
  APPEND ls_tax_ind TO lt_tax_ind.
  ls_central_data-tax_ind-tax_ind = lt_tax_ind.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = ps_tab-vbund
    IMPORTING
      output = ps_tab-vbund.
  ls_customer-central_data = ls_central_data.
  ls_customer-central_data-central-data-vbund  = ps_tab-vbund.
  ls_customer-central_data-central-datax-vbund = COND #( WHEN ls_customer-central_data-central-data-vbund IS NOT INITIAL THEN abap_true ).

*公司代码数据************************************************
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'   " 统驭科目补零
    EXPORTING
      input  = ps_tab-hkont
    IMPORTING
      output = ps_tab-hkont.
  ls_company-task           = ps_tab-zczlx.
  ls_company-data_key-bukrs = ps_tab-bukrs. " 公司代码
  ls_company-data-akont     = ps_tab-hkont. " 统驭科目
  ls_company-data-zterm     = ps_tab-zterm. " 付款条款
  ls_company-datax-akont    = COND #( WHEN ls_company-data-akont IS NOT INITIAL THEN abap_true ).
  ls_company-datax-zterm    = COND #( WHEN ls_company-data-zterm IS NOT INITIAL THEN abap_true ).
  APPEND ls_company TO lt_company.
  ls_company_data-company   = lt_company.
  ls_company_data-current_state = 'X'.
  ls_customer-company_data = ls_company_data.

******销售数据****************************************************
  ls_sales-task           = ps_tab-zczlx.
  ls_sales-data_key-vkorg = ps_tab-vkorg.
  ls_sales-data_key-vtweg = ps_tab-vtweg.
  ls_sales-data_key-spart = ps_tab-spart.

  ls_sales-data-vkbur = ps_tab-vkbur.
  ls_sales-data-vkgrp = ps_tab-vkgrp.
  ls_sales-data-waers = ps_tab-waers.
  ls_sales-data-kalks = ps_tab-kalks.
  ls_sales-data-vwerk = ps_tab-werks.
  ls_sales-data-vsbed = ps_tab-vsbed.
  ls_sales-data-inco1 = ps_tab-inco1.
  ls_sales-data-inco2 = ps_tab-inco2.
* ls_sales-data-zterm = ps_tab-zterm.
  ls_sales-data-ktgrd = ps_tab-ktgrd.
  ls_sales-data-kdgrp = ps_tab-kdgrp.
  ls_sales-data-zterm = ps_tab-zterm.

  ls_sales-datax-vkbur = COND #( WHEN ls_sales-data-vkbur IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-vkgrp = COND #( WHEN ls_sales-data-vkgrp IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-waers = COND #( WHEN ls_sales-data-waers IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-kalks = COND #( WHEN ls_sales-data-kalks IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-vwerk = COND #( WHEN ls_sales-data-vwerk IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-vsbed = COND #( WHEN ls_sales-data-vsbed IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-inco1 = COND #( WHEN ls_sales-data-inco1 IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-inco2 = COND #( WHEN ls_sales-data-inco2 IS NOT INITIAL THEN abap_true ).
* ls_sales-datax-zterm = COND #( WHEN ls_sales-data-zterm IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-ktgrd = COND #( WHEN ls_sales-data-ktgrd IS NOT INITIAL THEN abap_true ).
  ls_sales-datax-zterm = COND #( WHEN ls_sales-data-zterm IS NOT INITIAL THEN abap_true ).

*  function伙伴功能
  ls_functions-task = ps_tab-zczlx..
  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
    EXPORTING
      input  = c_parvw1  "售达方
    IMPORTING
      output = ls_functions-data_key-parvw.
  APPEND ls_functions TO lt_functions.

  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
    EXPORTING
      input  = c_parvw2 "收票方
    IMPORTING
      output = ls_functions-data_key-parvw.
  APPEND ls_functions TO lt_functions.

  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
    EXPORTING
      input  = c_parvw5 "送达方
    IMPORTING
      output = ls_functions-data_key-parvw.
  APPEND ls_functions TO lt_functions.

  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
    EXPORTING
      input  = c_parvw3 "付款方
    IMPORTING
      output = ls_functions-data_key-parvw.
  APPEND ls_functions TO lt_functions.

  ls_sales-functions-functions = lt_functions.
  APPEND ls_sales TO lt_sales.
  ls_sales_data-sales = lt_sales.
  ls_customer-sales_data = ls_sales_data.

****银行数据****************************************************
  IF ps_tab-zczlx = 'U'.
    ls_banks-task      =  '2'.
    ls_banks-data_key      =  '0001'.
  ELSE.
    ls_banks-task      = ps_tab-zczlx.
  ENDIF.
  ls_banks-data-bank_key         =  ps_tab-bankl.    "银行代码
  ls_banks-datax-bank_key        = COND #( WHEN ls_banks-data-bank_key IS NOT INITIAL THEN abap_true ).
  ls_banks-data-bankaccountname  =  ps_tab-banka.    "开户行
  ls_banks-datax-bankaccountname = COND #( WHEN ls_banks-data-bankaccountname IS NOT INITIAL THEN abap_true ).
  ls_banks-data-bank_acct        =  ps_tab-bankn.    "账号
  ls_banks-datax-bank_acct       = COND #( WHEN ls_banks-data-bank_acct IS NOT INITIAL THEN abap_true ).
  ls_banks-data-bank_ctry        =  ps_tab-banks.     "银行国家代码
  ls_banks-datax-bank_ctry       = COND #( WHEN ls_banks-data-bank_ctry IS NOT INITIAL THEN abap_true ).
  ls_banks-data-accountholder    =  ps_tab-koinh.     "银行户主
  ls_banks-datax-accountholder   = COND #( WHEN ls_banks-data-accountholder IS NOT INITIAL THEN abap_true ).
  APPEND ls_banks TO lt_banks.
  ls_partner-central_data-bankdetail-bankdetails = lt_banks.

  ls_data-partner  = ls_partner.
  ls_data-customer = ls_customer.
  APPEND ls_data TO lt_data.

*  CALL FUNCTION 'CVI_EI_INBOUND_MAIN'
*    EXPORTING
*      i_data   = lt_data
*    IMPORTING
*      e_return = lt_return.
  cl_md_bp_maintain=>maintain(
        EXPORTING
          i_data   = lt_data
        IMPORTING
          e_return = lt_return ).
  CLEAR lv_msg.
  LOOP AT lt_return INTO ls_return.
    LOOP AT ls_return-object_msg INTO ls_msg WHERE type = 'E' OR type = 'A'.
      CONCATENATE lv_msg ls_msg-message INTO lv_msg.
    ENDLOOP.
  ENDLOOP.

  IF lv_msg IS INITIAL.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = abap_true.
*  根据伙伴GUID取出客户编号
    ls_partnerguid_list = ls_partner-header-object_instance-bpartnerguid.
    APPEND ls_partnerguid_list TO lt_partnerguid_list.
    lt_customer_list = cvi_mapper=>get_instance( )->get_assigned_customers_for_bps(
                                              i_partner_guids = lt_partnerguid_list ).
    IF lt_customer_list IS NOT INITIAL.
      READ TABLE lt_customer_list INTO ls_customer_list INDEX 1 .
      IF sy-subrc EQ 0.
        ps_return-is_result  = 'S'.
        ps_return-is_message = |客户{ ls_customer_list-customer }创建成功！|.
      ENDIF.
    ELSE.
      "可能创建成功了BP，但未创建成功customer
      DATA : ls_cvis_error TYPE cvis_error.

      ls_cvis_error = cvi_mapper=>get_instance( )->undo_assignments(
                                              i_for_partners = lt_partnerguid_list ).
      ps_return-is_result    = 'E'.
      ps_return-is_message   = |客户创建出错，客户部分数据出错，请检查是否是BP伙伴功能问题!|.
    ENDIF.

  ELSE.
    ps_return-is_result  = 'E'.
    ps_return-is_message = lv_msg.
  ENDIF.
  IF ps_tab-zczlx = 'I'.
    ps_return-kunnr      = ls_customer_list-customer.
    ps_tab-partner       = ls_customer_list-customer.
  ELSEIF ps_tab-zczlx = 'U'.
    ps_return-kunnr      = ps_tab-partner.
  ENDIF.
  ps_return-name_org1  = ps_tab-name_org1.
*-------------------------------------------------------------------------------*
  "客户创建成功后开始维护税号等数据
  DATA :lt_taxr TYPE TABLE OF bapiret2 WITH HEADER LINE.
  DATA :lv_taxmsg TYPE char100.
  DATA: iv_taxtype   TYPE  bapibus1006tax-taxtype,
        iv_taxnumber TYPE  bapibus1006tax-taxnumber.
  iv_taxtype = 'CN0'.
  iv_taxnumber =  ps_tab-stceg.
  IF ps_tab-zczlx = 'I'.
    CALL FUNCTION 'BAPI_BUPA_TAX_ADD'
      EXPORTING
        businesspartner = ps_tab-partner
        taxtype         = iv_taxtype
        taxnumber       = iv_taxnumber
      TABLES
        return          = lt_taxr.
  ELSE.
    CALL FUNCTION 'BAPI_BUPA_TAX_CHANGE'
      EXPORTING
        businesspartner = ps_tab-partner
        taxtype         = iv_taxtype
        taxnumber       = iv_taxnumber
      TABLES
        return          = lt_taxr.
  ENDIF.


  LOOP AT lt_taxr WHERE type = 'E' OR type = 'A'.
    CONCATENATE lv_taxmsg lt_taxr-message INTO lv_taxmsg.
  ENDLOOP.

  IF lv_taxmsg IS INITIAL .
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = abap_true.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
    ps_return-is_result    = 'E'.
    ps_return-is_message = |{ ps_return-is_message }但是税号相关数据创建失败!|.
  ENDIF.

ENDFORM.

【SD】客户主数据批导CVI_EI_INBOUND_MAIN
日天有道的博客
05-28 5754
源代码 1主函数部分，根据接口传入的标识，判断 FUNCTIONZZSD_CUSTOMER_CREATE.*"----------------------------------------------------------------------*"*"本地接口：*"IMPORTING*"VALUE(I_RLTGR)TYPEBU_RLGROUPDEFAULT'ZC...
SAP B/P 初步研究(二)
BIRDMAN
11-08 1671
     从开发人员角度来看，B/P客户创建可以试用两种方法，第一种是使用BAPI FUNCTION，第二种是使用BAPI CALL METHOD。 个人更倾向于使用METHOD，因为METHOD方法只需要填充一个嵌套结构就可以实现B/P所有业务视图的填充，而BAPI FUNCTION在创建完客户后，需要调用很多其它的BAPI去扩展业务视图，代码量比较大。现在贴出两种实现方法。 CALL ...
ABAP BP维护客户cl_md_bp_maintain=＞maintain
谁的博客来着？
09-07 5962
下面是封装好的form示例。ps_head结构如下。
BP API: cl_md_bp_maintain
qq_40672979的博客
11-14 659
SAP ABAP BP API
SAP ABAP 使用cl_md_bp_maintain=＞maintain更新BP税号CN0的数据，更新结果都会变成CN5类型问题处理
SAP ABAP开发技能记录分享
12-14 808
查询NOTES：2865204 - Mapping Business Partner Tax Number Categories to customer/vendor Tax Number fields。SAP ABAP 使用cl_md_bp_maintain=>maintain更新BP税号CN0的数据，更新结果都会变成CN5类型，CN1类型一切正常。提到中国税号类型由CN1变成CN0，再次转成CN5，中国税号类型推荐使用CN5。
SAP BP主数据维护BAPI CVI_EI_INBOUND_MAIN
DeveloperMrMeng的博客
06-21 5686
近期有创建BP供应商主数据的需求，想起上次写这个批导还是2018年，当时的我面对这个BAPI还是抗拒的，因为算是相对来说比较复杂的一类BAPI了，当时网上各种搜索，缝缝补补，勉强实现了当时的功能，后来再也没碰到过这个批导的需求，直到最近，于是乎想偷懒，再次从网上找一些参考代码拿过来改一改，不过发现搜到的代码都不太能满足我的需求，或多或少都有一些问题，于是静下心来，自己从头开始写了一次调用函数。SAP已不推荐使用，已经成为过时函数，虽然还可以使用，但是风险需要自行承担。SAP推荐使用的函数模块。
cl_md_bp_maintain维护金融BP的权限
hexi99999的博客
12-13 380
金融BP维护产品类型权限
ABAP BP-批量创建供应商采购视图.txt
10-20
ABAP BP-批量创建供应商采购视图,采用方法类的形式批量创建BP中供应商的采购视图,程序可直接修改参数后调用
S4 BP客户批导
z_x_xing_的博客
05-10 5060
业务场景和目的 批量创建S4 BP客户 考虑使用CVI_EI_INBOUND_MAIN。 本文重点讨论的业务场景：使用用户上传的EXCLE文件批量创建客户，节省时间操作时间。 开发申请要求：给出前台（TCODE：BP）创建客户相关数据，批量创建客户。 前台操作，根据界面底部的消息提示一步一步输入BP客户的相关数据。 相关BAPI 2.1 CVI_EI_INBOUND_...
BP 创建/修改 供应商和客户
qq_40223617的博客
08-31 1810
BP 创建/修改 供应商和客户
ABAP 客户主数据批导 CVI_EI_INBOUND_MAIN
'尤其是十月的风'的博客
12-03 4197
使用BAPI批导客户主数据 BAPI: CVI_EI_INBOUND_MAIN 场景: 上传EXCEL文件，程序读出EXCEL文件并显示在ALV上，点击按钮即可批量导入客户主数据。 打上更新标识的数据，即为更新而不是创建 注意点： 客户角色FLCU00、FLCU01 FUNCTIONS伙伴功能的覆盖 REPORT: zsdb002. *----------------------------------------------------------------------* * 表声明 *-------
SAP ABAP S4 BP 客户供应商导入SAP推荐方法CL_MD_BP_MAINTAIN notes:2417298
SAP小趴菜
09-30 2746
Symptom You want to create Business Partner with Customer and Supplier roles in the same system or want to integrate data with various other landscapes. Other Terms CL_MD_BP_MAINTAIN, API for Business Partner, IDOCs, BP SOA Service, S/4 HANA Reason and
SAP cl_md_bp_maintain=＞maintain 银行代码长度超出
weixin_42510881的博客
03-25 480
cl_md_bp_maintain=>maintain维护BP提示供应商“创建失败银行代码 314308799999 的长度超过 06 个字符”
ABAP 创建BP类CL_MD_BP_MAINTAIN中独立地址与标准地址结构
qq_34448315的博客
02-22 1136
用户有个需求，需要从CRM系统中创建BP时候多增加一个邮箱，BP中使用了标准地址的邮箱，未使用独立地址的邮箱，方案决定现在需要使用独立地址的邮箱。2.标准地址在PARTNER-CENTRAL_DATA-ADDRESS-ADDRESSES-DATA-COMMUNICATION下。1.独立地址在PARTNER-CENTRAL_DATA-COMMUNICATION下。
ABAP - 使用cl_md_bp_maintain创建Vendor的BP
m0_74015269的博客
03-14 1228
ABAP - BP - Create Vendor
CVI_EI_INBOUND_MAIN
u013883924的博客
12-06 3900
CVI_EI_INBOUND_MAIN DATA: i_data                                           TYPE cvis_ei_extern_t,       e_return                                             TYPE bapiretm,       wa_data
SAP 客户主数据批导 CVI_EI_INBOUND_MAIN
我的心是烈日簇拥的花，在你的眼里找到了家
11-03 2929
导语：分享一个客户主数据批导的程序，调用函数CVI_EI_INBOUND_MAIN导入到BP中，内表前部分字段是EXCEL模板，直接贴代码了，就不做解释了，懒。 *&---------------------------------------------------------------------* *& Report ZSDR041 *&---------------------------------------------------------------------*
SAP BP cl_md_bp_maintain=＞validate_single 报 条目 9040 不存在T001内－请检查输入付款方式 U 没有为国家/地区 定义KNB1-ZWELS
GAVIN
11-23 525
cl_md_bp_maintain=>validate_single 报 条目 9040 不存在T001内－请检查输入付款方式 U 没有为国家/地区 定义KNB1-ZWELS
创建客户主数据 CVI_EI_INBOUND_MAIN
only_oy的博客
03-25 466
【代码】创建客户主数据 CVI_EI_INBOUND_MAIN。
SAP 供应商CVI_EI_INBOUND_MAIN
最新发布
03-08
### SAP Supplier CVI_EI_INBOUND_MAIN Configuration and Processing In SAP systems, particularly within versions of SAP S/4HANA On Premise starting from release 1709 FPS2 and SAP S/4HANA Cloud Editions beginning with version 1805, the symptom related to `RFC_CVI_EI_INBOUND_MAIN` indicates that this function is no longer supported[^1]. This implies any configurations or processes relying on `RFC_CVI_EI_INBOUND_MAIN` should transition towards alternative methods. For maintaining business partner master data in SAP environments, BAPI `CVI_EI_INBOUND_MAIN` was previously utilized; however, it has been marked as obsolete by SAP. Despite still being functional, its usage poses risks which users must evaluate independently[^2]. #### Alternative Approaches for Handling Supplier Data Given the deprecation status of `CVI_EI_INBOUND_MAIN`, organizations are advised to explore newer APIs provided by SAP for managing supplier information: - **Business Partner Services (BPS)**: Utilize OData services available through Business Technology Platform (BTP). These services offer modern interfaces compatible with both cloud and on-premise deployments. - ** Fiori Apps**: Implement standard Fiori applications designed specifically for handling procurement activities including vendor management tasks such as creating new vendors or updating existing ones without directly invoking deprecated RFC calls. ```python # Example Python code snippet using requests library to interact with an OData service endpoint import requests url = 'https://your-sap-system/sap/opu/odata/sap/API_BUSINESS_PARTNER/A_BusinessPartner' headers = {'Authorization': 'Basic your_base64_encoded_credentials'} response = requests.get(url=url, headers=headers) if response.status_code == 200: print('Successfully retrieved business partners') else: print(f'Failed to retrieve data {response.text}') ``` #### Transition Considerations When transitioning away from `CVI_EI_INBOUND_MAIN`, consider conducting a thorough impact analysis covering all areas where this interface might have been used internally or externally. Ensure proper documentation exists detailing how these changes affect current workflows and train relevant staff accordingly.
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值