Изменить реквизит Справочника Номенклатура из документа
Как из приходной накладной изменить реквизит справочника номенклатура например Поставщик
&НаСервере
Процедура Поставщик(Команда)
СтрКонтрагент=Объект.Контрагент;
Для Каждого СтрокаТабличнойЧасти Из Объект.Запасы Цикл
КодН =СтрокаТабличнойЧасти.Номенклатура.Код;
ОбъектНоменклатура=Справочники.Номенклатура.НайтиПоКоду(КодН).ПолучитьОбъект();
ОбъектНоменклатура.Поставщик=СтрКонтрагент;
ОбъектНоменклатура.Записать();
КонецЦикла;
КонецПроцедуры
Не выполняется код.
&НаСервере
Процедура Поставщик(Команда)
СтрКонтрагент=Объект.Контрагент;
Для Каждого СтрокаТабличнойЧасти Из Объект.Запасы Цикл
КодН =СтрокаТабличнойЧасти.Номенклатура.Код;
ОбъектНоменклатура=Справочники.Номенклатура.НайтиПоКоду(КодН).ПолучитьОбъект();
ОбъектНоменклатура.Поставщик=СтрКонтрагент;
ОбъектНоменклатура.Записать();
КонецЦикла;
КонецПроцедуры
Не выполняется код.
По теме из базы знаний
- Удобная загрузка номенклатуры, картинок, прайсов и накладных из Excel (xls) и dbf-файлов для 1с 8.1/8.2 (обычные формы)
- Контроль заполнения "алкогольных" реквизитов справочника Номенклатура
- Изучаем 1С Предприятие 8.3 на примере построения простой конфигурации (или как "айтишник" 1С осваивал). Часть 1.
- Загрузка номенклатуры в справочник и документ из файла Excel и CSV, обновление цен и реквизитов (адаптируется под разные конфигурации 1С: 7.7)
- Универсальный редактор табличных частей документов РеСольДо
Найденные решения
&НаСервере
Процедура Поставщик(Команда)
СтрКонтрагент=Объект.Контрагент;
Для Каждого СтрокаТабличнойЧасти Из Объект.Запасы Цикл
НоменклатураОбъект =СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();
НоменклатураОбъект .Поставщик=СтрКонтрагент.Ссылка;
НоменклатураОбъект .Записать();
КонецЦикла;
КонецПроцедуры
Должно сработать.
Процедура Поставщик(Команда)
СтрКонтрагент=Объект.Контрагент;
Для Каждого СтрокаТабличнойЧасти Из Объект.Запасы Цикл
НоменклатураОбъект =СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();
НоменклатураОбъект .Поставщик=СтрКонтрагент.Ссылка;
НоменклатураОбъект .Записать();
КонецЦикла;
КонецПроцедуры
Должно сработать.
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
&НаСервере
Процедура Поставщик(Команда)
СтрКонтрагент=Объект.Контрагент;
Для Каждого СтрокаТабличнойЧасти Из Объект.Запасы Цикл
НоменклатураОбъект =СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();
НоменклатураОбъект .Поставщик=СтрКонтрагент.Ссылка;
НоменклатураОбъект .Записать();
КонецЦикла;
КонецПроцедуры
Должно сработать.
Процедура Поставщик(Команда)
СтрКонтрагент=Объект.Контрагент;
Для Каждого СтрокаТабличнойЧасти Из Объект.Запасы Цикл
НоменклатураОбъект =СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();
НоменклатураОбъект .Поставщик=СтрКонтрагент.Ссылка;
НоменклатураОбъект .Записать();
КонецЦикла;
КонецПроцедуры
Должно сработать.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот