Как добавить контакты клиента

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

Чтобы связать их, вы должны использовать таблицу Contact Business Relation. Просто проверьте структуру таблицы.

В противном случае, если вы настроили шину. Коды отношений в NAP маркетинговой установки создадут новый контакт в фоновом режиме для клиентов, поставщиков и банковских счетов.

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;