使用 ABAP 代码打印出 SAP CRM 系统里所有维护了 Sales Area 的 business partner id-阿里云开发者社区

使用 ABAP 代码打印出 SAP CRM 系统里所有维护了 Sales Area 的 business partner id

2024-04-07 21

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： 使用 ABAP 代码打印出 SAP CRM 系统里所有维护了 Sales Area 的 business partner id

源代码如下：

REPORT zorg_list_partner_who_has_sale.
DATA: lt_link TYPE STANDARD TABLE OF crmm_but_lnk0011,
      lt_bp   TYPE STANDARD TABLE OF but000.
SELECT * INTO TABLE lt_link FROM crmm_but_lnk0011.
SELECT * INTO TABLE lt_bp FROM but000 FOR ALL ENTRIES IN lt_link WHERE
    partner_guid = lt_link-partner_guid.
LOOP AT lt_link ASSIGNING FIELD-SYMBOL(<link>).
  READ TABLE lt_bp ASSIGNING FIELD-SYMBOL(<bp>) WITH KEY partner_guid = <link>-partner_guid.
  CHECK sy-subrc = 0.
  WRITE: / 'Org:',  <link>-sales_org COLOR COL_NEGATIVE, ' area: ' , <link>-sales_area COLOR COL_GROUP,
  ' BP:', <bp>-name_first, ', ', <bp>-name_last, ' bp id: ' , <bp>-partner.
ENDLOOP.

这段代码是一个 SAP ABAP 报告程序，主要功能是从 SAP CRM 和 SAP ERP 中提取有销售数据的业务伙伴信息，并展示这些业务伙伴的组织、销售区域和姓名信息。接下来，我会逐步解释代码的各个部分以及它们的作用。

报告程序声明

REPORT zorg_list_partner_who_has_sale.

这行代码声明了一个自定义的报告程序 zorg_list_partner_who_has_sale。在 SAP 系统中，所有自定义对象的名称通常以 Z 或 Y 开头，这是一种约定俗成的做法，以区别于 SAP 标准提供的对象。

数据声明

DATA: lt_link TYPE STANDARD TABLE OF crmm_but_lnk0011,
      lt_bp   TYPE STANDARD TABLE OF but000.

这里声明了两个内表 lt_link 和 lt_bp。lt_link 用于存储从 crmm_but_lnk0011 表中提取的记录，这个表通常用于存储 CRM 系统中业务伙伴和其他对象之间的链接信息。lt_bp 用于存储从 but000 表中提取的记录，but000 是一个包含业务伙伴基本信息的表。

数据提取

SELECT * INTO TABLE lt_link FROM crmm_but_lnk0011.
SELECT * INTO TABLE lt_bp FROM but000 FOR ALL ENTRIES IN lt_link WHERE
    partner_guid = lt_link-partner_guid.

这两个 SELECT 语句分别从 crmm_but_lnk0011 和 but000 表中提取数据。第二个 SELECT 语句使用了 FOR ALL ENTRIES IN 语法，这意味着它会为 lt_link 表中的每条记录查找匹配的 but000 记录，条件是两者的 partner_guid 必须相等。

数据展示

LOOP AT lt_link ASSIGNING FIELD-SYMBOL(<link>).
  READ TABLE lt_bp ASSIGNING FIELD-SYMBOL(<bp>) WITH KEY partner_guid = <link>-partner_guid.
  CHECK sy-subrc = 0.
  WRITE: / 'Org:',  <link>-sales_org COLOR COL_NEGATIVE, ' area: ' , <link>-sales_area COLOR COL_GROUP,
  ' BP:', <bp>-name_first, ', ', <bp>-name_last, ' bp id: ' , <bp>-partner.
ENDLOOP.

这段代码通过一个循环遍历 lt_link 表中的每条记录。对于每条记录，它尝试在 lt_bp 表中找到具有相同 partner_guid 的业务伙伴记录。如果找到了，它会使用 WRITE 语句输出业务伙伴的销售组织 (sales_org)、销售区域 (sales_area) 和姓名信息 (name_first, name_last)，以及业务伙伴 ID (partner)。