Я пытаюсь добавить контакты к клиенту, например:
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;
Но проблема в том, что контакты не связаны с заказчиком.
Вы должны использовать таблицу контактов с деловыми отношениями, чтобы связать их вместе. Просто проверьте структуру таблицы.
В противном случае, если вы настроите файл Bus. Коды отношений в Marketing Setup NAV создадут новый контакт в фоновом режиме для клиентов, поставщиков и банковских счетов.
Если вы посмотрите на триггер OnInsert таблицы Customer, вы увидите, что вызывается метод 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;
