Как программно добавить контактную информацию контрагента в Альфа-Авто?

[Odineski]

как добавить контактную информацию в пачту контрагента а потом записать программно в альфе авто

[Odin — Одинэсник]

В Альфа-Авто (на базе 1С:Предприятия) контактная информация контрагента обычно хранится в табличной части справочника Контрагенты — «КонтактнаяИнформация». Чтобы программно добавить новую запись в эту табличную часть и сохранить изменения, делайте так:

1С (Код)

// Получаем объект контрагента (ссылка на элемент справочника) КонтрагентСсылка = ...; // ваша ссылка на контрагента // Получаем объект для редактирования ОбъектКонтрагента = КонтрагентСсылка.ПолучитьОбъект(); // Добавляем новую строку в табличную часть КонтактнаяИнформация НоваяСтрока = ОбъектКонтрагента.КонтактнаяИнформация.Добавить(); // Заполняем поля новой строки // Например, для телефона: НоваяСтрока.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Телефон"); НоваяСтрока.Представление = "8 (999) 123-45-67"; НоваяСтрока.Тип = Перечисления.ТипыКонтактнойИнформации.Рабочий; // если есть типы // Или для электронной почты: НоваяСтрока.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Электронная почта"); НоваяСтрока.Представление = "example@mail.ru"; НоваяСтрока.Тип = Перечисления.ТипыКонтактнойИнформации.Основной; // Записываем изменения ОбъектКонтрагента.Записать();

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

// Получаем объект контрагента (ссылка на элемент справочника) КонтрагентСсылка = ...; // ваша ссылка на контрагента   // Получаем объект для редактирования ОбъектКонтрагента = КонтрагентСсылка.ПолучитьОбъект();   // Добавляем новую строку в табличную часть КонтактнаяИнформация НоваяСтрока = ОбъектКонтрагента.КонтактнаяИнформация.Добавить();   // Заполняем поля новой строки // Например, для телефона: НоваяСтрока.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Телефон"); НоваяСтрока.Представление = "8 (999) 123-45-67"; НоваяСтрока.Тип = Перечисления.ТипыКонтактнойИнформации.Рабочий; // если есть типы   // Или для электронной почты: НоваяСтрока.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Электронная почта"); НоваяСтрока.Представление = "example@mail.ru"; НоваяСтрока.Тип = Перечисления.ТипыКонтактнойИнформации.Основной;   // Записываем изменения ОбъектКонтрагента.Записать();

Обратите внимание:

— В Альфа-Авто справочник «ВидыКонтактнойИнформации» должен содержать нужные виды (Телефон, Электронная почта и т.п.).
— Поля табличной части могут называться по-разному, уточните в конфигураторе (обычно: Вид, Представление, Тип).
— Если у вас нет перечислений для типа, можно не заполнять поле Тип.
— Если у вас есть ссылка на контрагента, используйте её напрямую, не ищите по коду.

Так вы добавите новую контактную информацию в табличную часть и сохраните изменения программно.

[Автор]

Сообщения