Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия Следующая версия справа и слева
отрывки:примеры_заполнения_сертификата [2018/08/14 12:50]
andrewu
отрывки:примеры_заполнения_сертификата [2018/08/14 13:17]
andrewu
Строка 138: Строка 138:
  Нов.Дата = Ссылка.Дата;​  Нов.Дата = Ссылка.Дата;​
 КонецЕсли;​ КонецЕсли;​
 +...
 +КонецПроцедуры
 +</1c>
 +
 +===== Артикул для сетей =====
 +<1c>
 +Процедура ДозаполнитьПоляВетСертификата1С(Ссылка,​ ОбъектСертификата) Экспорт
 +...
 +Запрос = Новый Запрос(
 + "​ВЫБРАТЬ
 + | НоменклатураКонтрагентов.АртикулНоменклатурыКонтрагента
 + |ИЗ
 + | РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
 + |ГДЕ
 + | НоменклатураКонтрагентов.Номенклатура = &​Номенклатура
 + | И НоменклатураКонтрагентов.Контрагент = &​Контрагент"​);​
 + Запрос.УстановитьПараметр("​Контрагент",​ Ссылка.Контрагент);​
 +Для Каждого Товар Из ОбъектСертификата.Товары Цикл
 + Запрос.УстановитьПараметр("​Номенклатура",​Товар.Номенклатура);​
 + Выбор = Запрос.Выполнить().Выбрать();​
 + Если Выбор.Следующий() Тогда
 + Товар.Артикул = Выбор.АртикулНоменклатурыКонтрагента;​
 + КонецЕсли;​
 +КонецЦикла;​
 ... ...
 КонецПроцедуры КонецПроцедуры