S4 HANA BP 新增客商公司代码数据

阳光穿透心脏的1/2处 2022-01-22 00:43 271阅读 0赞

维护BP客商数据，需求: 新增公司代码3007

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70][]

公司代码如下页面

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1][]

实现如下效果，完成新增3007

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2][]

核心代码段

DATA: ps_bpdata TYPE cvis_ei_extern,
            ls_company   TYPE cmds_ei_company.
    
    
      ps_bpdata-partner-header-object_task = 'M'.
    
      SELECT SINGLE partner_guid
        INTO @DATA(lv_guid)
        FROM but000
       WHERE partner = @lv_kunnr.
      IF sy-subrc = 0.
      ENDIF.
      ps_bpdata-partner-header-object_instance-bpartnerguid = lv_guid.
      ps_bpdata-partner-header-object_instance-bpartner = lv_kunnr.
    
      ps_bpdata-customer-header-object_instance-kunnr = lv_kunnr.
      ps_bpdata-customer-header-object_task = 'U'.
    
      "表示修改 客户 数据
      ps_bpdata-customer-header-object_instance-kunnr = lv_kunnr.
      ps_bpdata-customer-header-object_task = 'U'.
    
    *   公司代码层级只作扩展
      ls_company-task        = 'I'.
      ls_company-data-akont  = cn_akont_kunnr.
      ls_company-datax-akont = 'X'.
    
      ls_company-data_key-bukrs = '3007'.
      ls_company-data-sperr  = xblck.
      ls_company-datax-sperr = 'X' .
      ls_company-data-loevm  = loevm.
      ls_company-datax-loevm = 'X' .
    
      APPEND ls_company TO ps_bpdata-customer-company_data-company.
      CLEAR ls_company.

供应商类似

ps\_bpdata-customer-header-object\_instance-kunnr = lv\_kunnr.  
  ps\_bpdata-customer-header-object\_task = 'U'.

替换为

ps\_bpdata-vendor-header-object\_instance-lifnr = lv\_kunnr.  
  ps\_bpdata-vendor-header-object\_task = 'U'.

APPEND ls\_company TO ps\_bpdata-customer-company\_data-company.

替换为

APPEND ls\_company TO ps\_bpdata-vendor-company\_data-company.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70]: /images/20220122/356f93af91a2444291ccaf508541a9ef.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1]: /images/20220122/9370e3b2972c443fa7c7b543665f466b.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2]: /images/20220122/6a10a42857904a589899e0a3c7168453.png