具有外部ID的业务伙伴创建S4/HANA

2020-08-20 18:57发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嘿! 我正在使用方法cl_...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


嘿!

我正在使用方法cl_md_bp_maintain => validate_single和cl_md_bp_maintain => maintain创建业务伙伴。

此代码有效:

数据is_address TYPE bapiaddr1。
   DATA is_noc_partner_data TYPE bapiparnr。
   数据rv_bu_partner类型bu_partner。

   is_address-name ='Harry Hirsch'。
   is_address-name_2 ='Vertrieb'。
   is_address-city ='汉诺威'。
   is_address-postl_cod1 ='30855'。
   is_address-street ='Otto-Waalkes-Platz'。
   is_address-street_no ='2'。
   is_address-country ='DE'。
   is_address-langu ='D'。
   is_address-sort1 ='HARRYHIRSCH'。
   is_address-sort2 ='HIRSCHHARRY'。
   is_address-xpcpt ='X'。  "标准地址

   尝试。
       数据(guid)= cl_system_uuid => create_uuid_x16_static()。
     捕获cx_uuid_error。
       返回。
   ENDTRY。

   数据(lx_data)=值cvis_ei_extern(
     partner-header-object_task ='I'
     partner-header-object ='BUS1006'"业务合作伙伴
     partner-header-object_instance = VALUE#(
       bpartner =''"使用guid进行创建
       bpartnerguid =吉德
       Identificationcategory ='ZCUST'
       Identificationnumber ='EXTID01234')

       partner-central_data-common = VALUE#(
         数据= VALUE#(
           bp_control = VALUE#(
                               category ='2'"组织
                               grouping ='SHIP')"船到
           bp_organization = VALUE#(
                               name1 = is_address-name
                               name2 = is_address-name_2
                               name3 = is_address-name_3
                               name4 = is_address-name_4)
           bp_centraldata = VALUE#(
                               searchterm1 = is_address-sort1
                               searchterm2 = is_address-sort2
                               title_key ='0003'"公司
                               partnertype ='0020')))"运送至
       partner-central_data-role-roles = VALUE#((
         data_key ='FLCU01'
         数据=值#(角色类别='FLCU01')))
       partner-central_data-address = VALUE#(
         current_state ='C'
         time_dependent = abap_false
         地址= VALUE#((
            任务='我'
            data_key-operation ='I'
            当前有效= abap_true
            数据= VALUE#(
              邮递= VALUE#(数据= VALUE#(基本通信#(is_address)standardaddress ='X'))备注= VALUE#(current_state ='C'备注= VALUE#(
                          (任务='I'
                            数据= VALUE#(
                                     langu ='D'
                                     adr_notes ='Testharry'))))
              addr_usage-current_state ='C'
              addr_usage-addr_usages = VALUE#(
                (任务='I'
                  current_valid ='X'
                  data_key-addresstype ='XXDEFAULT'"'FIRMA'"'0003'"公司地址
                  数据标准= abap_true)
                (任务='I'
                  current_valid ='X'
                  data_key-addresstype ='FIRMA'" 0003""公司地址
                  数据标准= abap_true)))))
              customer-header-object_instance-kunnr =空间
              customer-header-object_task ='I'
              sure_create-create_customer = abap_true
              customer-sales_data-sales = VALUE#((
                任务='我'
                data_key-vkorg ='1000'
                data_key-vtweg ='10'
                data_key-spart ='10'
                data-lprio ='2'"交付优先级
                data-vsbed ='01'"运输条件
                data-antlf ='9'"每个项目允许的最大零件交付数量
                ))。

   cl_md_bp_maintain => validate_single(
     出口
       i_data = lx_data
       iv_test_run_mode =''
     输入
       et_return_map = DATA(lt_return_map))。
   如果不是line_exists(lt_return_map [type ='E'])。
     设置更新任务本地。
     cl_md_bp_maintain =>维护(
       出口
         i_data = VALUE#(((lx_data))
         i_test_run =空间
       输入
         e_return = DATA(ls_return))。
     调用功能" BAPI_TRANSACTION_COMMIT"。

     从内存ID" BUP_MEMORY_PARTNER"导入lv_partner到rv_bu_partner。
     消息| {rv_bu_partner}已创建| 输入" I"。
   万一。
 

此代码创建业务伙伴。

除外:将不会创建外部ID。 我不知道,为什么不呢?

标识类别ZCUST存在。 没有错误或警告。

您是否有任何线索或示例代码可用来创建外部标识?

提前谢谢!

单独的一组外部ID与此代码兼容

通话功能'BAPI_IDENTIFICATION_ADD'
       出口
         businesspartner = rv_bu_partner
         Identificationcategory ='ZCUST'
         识别号='ABC11'
         标识= ls_identification
       桌子
         return = lt_return。
     调用功能'BAPI_TRANSACTION_COMMIT'。

在一个系统中,但在另一系统中则没有...:(

(29.8 kB)