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

维护BP客商数据新增公司代码

最新推荐文章于 2025-03-20 09:33:31 发布

王小磊

最新推荐文章于 2025-03-20 09:33:31 发布

阅读量4.7k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： BP-客商

本文链接：https://blog.youkuaiyun.com/wangjolly/article/details/90781927

BP-客商专栏收录该内容

7 篇文章

订阅专栏

本文详细介绍了在ABAP环境中如何通过编程实现新增公司代码3007至BP客商数据的过程。具体步骤包括设置核心代码段，使用SELECT SINGLE从but000表中获取GUID，以及将公司代码信息附加到BP数据结构中。此操作适用于客户和供应商数据的修改。

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

公司代码如下页面

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

核心代码段

  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.