Question

我尝试向客户添加联系人，如下所示：

   WHILE (LoopCount <> 0) DO
   BEGIN
       KlantContact.GET(FirstContact);
       KlantContact.VALIDATE(KlantContact."Company No.", BussinesContactName."Contact No.");     //'44241';
       KlantContact.MODIFY;
       MESSAGE(KlantContact.Name);
       LoopCount := LoopCount - 1;
       FirstContact := INCSTR(FirstContact);    
   END;

但问题是联系人没有与客户联系。

Answer 1

您必须使用“联系业务关系”表将它们链接在一起。只需检查表结构。

否则，如果您设置了总线。营销设置资产净值中的关系代码将在后台为客户，供应商和银行账户创建新的联系人。

Answer 2

如果您查看客户表的OnInsert触发器，则可以看到调用方法UpdateContFromCust.OnInsert(Rec);。在此方法中新建一个联系总线。插入关系。

来自方法InsertNewContact（Codeunit 5056），其中Cont为联系人，RMSetup为Marketing Setup

 WITH ContBusRel DO BEGIN
      INIT;
      "Contact No." := Cont."No.";
      "Business Relation Code" := RMSetup."Bus. Rel. Code for Customers";
      "Link to Table" := "Link to Table"::Customer;
      "No." := Cust."No.";
      INSERT(TRUE);
    END;

如何向客户添加联系人

2 个答案: