如何给客户添加联系人

How to add contacts to customer

我尝试向客户添加联系人,如下所示:

   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;

但问题是联系人未与客户建立联系。

您必须使用联系业务关系 table 才能 link 他们在一起。只需检查 table 结构。

否则,如果你设置了Bus。营销设置 NAV 中的关系代码将在后台为客户、供应商和银行帐户创建一个新联系人。

如果您查看客户 Table 的 OnInsert 触发器,您可以看到调用了方法 UpdateContFromCust.OnInsert(Rec);。在这个方法中,一个新的联系总线。关系被插入。

来自方法 InsertNewContact(代码单元 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;