Заполнение колонки существующего документа
Добрый день!
Есть документ, в тем существующая табличная часть. Туда прикрутил кнопку, чтоб появлялась колонка. При появлении колонки надо ее заполнить значениями (связь по номенклатуре) в строке.
В запросе получаю ТЗ, с Номенклатурой и нужными значениями. Далее
Код не верный, потому что заполняет колонку последним значением из ТЗ.
Что не так делаю?
Есть документ, в тем существующая табличная часть. Туда прикрутил кнопку, чтоб появлялась колонка. При появлении колонки надо ее заполнить значениями (связь по номенклатуре) в строке.
В запросе получаю ТЗ, с Номенклатурой и нужными значениями. Далее
Выборка = РезультатЗапроса.Выбрать();
Если Выборка.Количество()>0 Тогда
Пока Выборка.Следующий() Цикл
Для каждого Строка ИЗ Объект.Запасы Цикл
ЗаполнитьЗначенияСвойств(Строка,Выборка);
КонецЦикла;
КонецЦикла;
КонецЕсли;
ПоказатьКод не верный, потому что заполняет колонку последним значением из ТЗ.
Что не так делаю?
По теме из базы знаний
- Заполнение ПоступлениеТоваровУслуг по внешнему документу в формате XLS (УТ 11)
- Программное добавление кнопок копирования табличных частей во все документы с минимальными изменениями конфигурации (или вообще без изменения)
- Заполнение табличной части документов из файла Excel (для 1С 7.7 бухгалтерский учет, ред. 4.5)
- Автоматизация заполнения статей затрат по зарплате в системе 1С:ERP
- Автоматическая обработка документов по банку при загрузке банковской выписки в 1С
Найденные решения
Вопрос закрыт. Рабочий код:
Если Выборка.Количество()>0 Тогда
Док=Объект.Ссылка.ПолучитьОбъект();
Пока Выборка.Следующий() Цикл
Док=Объект.Ссылка.ПолучитьОбъект();
ТЧ = Объект.Запасы;
Отбор=Новый Структура;
Отбор.Вставить("Номенклатура",Выборка.Номенклатура);
Стр = ТЧ.НайтиСтроки(Отбор);
Если Стр.Количество()<>0 Тогда
Стр[0].ОстатокНаСкладе=Выборка.ОстатокНаСкладе;
Док.Записать();
КонецЕсли;
КонецЦикла;
КонецЕсли;
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Вопрос закрыт. Рабочий код:
Если Выборка.Количество()>0 Тогда
Док=Объект.Ссылка.ПолучитьОбъект();
Пока Выборка.Следующий() Цикл
Док=Объект.Ссылка.ПолучитьОбъект();
ТЧ = Объект.Запасы;
Отбор=Новый Структура;
Отбор.Вставить("Номенклатура",Выборка.Номенклатура);
Стр = ТЧ.НайтиСтроки(Отбор);
Если Стр.Количество()<>0 Тогда
Стр[0].ОстатокНаСкладе=Выборка.ОстатокНаСкладе;
Док.Записать();
КонецЕсли;
КонецЦикла;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот