Здравствуйте. Я плохо знаю русский. Извините за этого. Я еще новичок в 1С программирование. Есть ТЧ с данными и есть ТЗ пустой. Написал код что заполнился ТЗ. Заполняется но есть ошибка. Ошибка показано картинке. Как исправится с этим ? Что бы не повторился товар.
Спасибо всем за ранее.
Спасибо всем за ранее.
Функция ЗаполнитьТЗ(Ссылка)
// Для номер строки
НомерСтрок = Товары.Количество();
Для Строка = 1 ПО НомерСтрок Цикл
Ст = ТЗ.Добавить();
// Для заполнение ТЗ
Стр = ЭлементыФормы.Товары.ТекущиеДанные;
Ст.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Стр.Номенклатура);
Ст.Количество = Стр.Количество;
Ст.ЕдиницаИзмерения = Стр.ЕдиницаИзмерения;
Ст.Коэффициент = Стр.Коэффициент;
Ст.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Ст.ХарактеристикаНоменклатуры = Стр.ХарактеристикаНоменклатуры;
Ст.СерияНоменклатуры = Стр.СерияНоменклатуры;
Ст.Качество = Стр.Качество;
НомерСтрок = НомерСтрок - 1;
КонецЦикла;
КонецФункции ПоказатьПрикрепленные файлы:
По теме из базы знаний
- ТЗ на разработку отчета (рекомендации и шаблон)
- Интеграция 1С с маркетплейсами Ozon, Wildberries, ЯндексМаркет для УТ10.3, КА 1.1, УПП 1.3
- Признаки и причины неуспешных внедрений 1С: ERP
- 1С:Аналитика: архитектура и примеры внедрений BI-решений для пользователей 1С
- Старт в 1С: Практика и Кейсы. Часть 1
Найденные решения
Нужно так написать
Функция ЗаполнитьТЗ(Ссылка)
Для СтрокаТабличнойЧасти Из Товары Цикл
Ст = ТЗ.Добавить();
// Для заполнение ТЗ
Ст.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Ст.Количество = СтрокаТабличнойЧасти.Количество;
Ст.ЕдиницаИзмерения = СтрокаТабличнойЧасти.ЕдиницаИзмерения;
Ст.Коэффициент = СтрокаТабличнойЧасти.Коэффициент;
Ст.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Ст.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Ст.СерияНоменклатуры = СтрокаТабличнойЧасти.СерияНоменклатуры;
Ст.Качество = СтрокаТабличнойЧасти.Качество;
КонецЦикла;
КонецФункции
Функция ЗаполнитьТЗ(Ссылка)
Для СтрокаТабличнойЧасти Из Товары Цикл
Ст = ТЗ.Добавить();
// Для заполнение ТЗ
Ст.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Ст.Количество = СтрокаТабличнойЧасти.Количество;
Ст.ЕдиницаИзмерения = СтрокаТабличнойЧасти.ЕдиницаИзмерения;
Ст.Коэффициент = СтрокаТабличнойЧасти.Коэффициент;
Ст.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Ст.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Ст.СерияНоменклатуры = СтрокаТабличнойЧасти.СерияНоменклатуры;
Ст.Качество = СтрокаТабличнойЧасти.Качество;
КонецЦикла;
КонецФункции
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2)Полный код
Функция СоздатьТЗ()
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Номенклатура",,,);
ТЗ.Колонки.Добавить("Количество",,,);
ТЗ.Колонки.Добавить("ЕдиницаИзмерения",,,);
ТЗ.Колонки.Добавить("Коэффициент",,,);
ТЗ.Колонки.Добавить("СтавкаНДС",,,);
ТЗ.Колонки.Добавить("ХарактеристикаНоменклатуры",,,);
ТЗ.Колонки.Добавить("СерияНоменклатуры",,,);
ТЗ.Колонки.Добавить("Качество",,,);
ТЗ.Колонки.Добавить("Цена",,,);
ТЗ.Колонки.Добавить("Сумма",,,);
ТЗ.Колонки.Добавить("СуммаБезСкидок",,,);
КонецФункции
Функция ЗаполнитьТЗ(Ссылка)
// Для номер строки
НомерСтрок = Товары.Количество();
Для Строка = 1 ПО НомерСтрок Цикл
Ст = ТЗ.Добавить();
// Для заполнение ТЗ
Стр = ЭлементыФормы.Товары.ТекущиеДанные;
Ст.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Стр.Номенклатура);
Ст.Количество = Стр.Количество;
Ст.ЕдиницаИзмерения = Стр.ЕдиницаИзмерения;
Ст.Коэффициент = Стр.Коэффициент;
Ст.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Ст.ХарактеристикаНоменклатуры = Стр.ХарактеристикаНоменклатуры;
Ст.СерияНоменклатуры = Стр.СерияНоменклатуры;
Ст.Качество = Стр.Качество;
НомерСтрок = НомерСтрок - 1;
КонецЦикла;
КонецФункции
Процедура ДействияФормыРеализацияТоваровУслуг(Кнопка)
СоздатьТЗ();
Док = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
Сл = ЭтотОбъект.Ссылка;
Док.Контрагент = Сл.Контрагент;
Док.Дата = ТекущаяДата();
Док.Организация = Сл.Организация;
Док.Склад = Сл.Склад;
ЗаполнитьТЗ(Док.Ссылка);
Док.Товары.Загрузить(ТЗ);
ОсновнаяФормаДок = Док.ПолучитьФорму();
ОсновнаяФормаДок.Открыть();
КонецПроцедуры
Показать
Нужно так написать
Функция ЗаполнитьТЗ(Ссылка)
Для СтрокаТабличнойЧасти Из Товары Цикл
Ст = ТЗ.Добавить();
// Для заполнение ТЗ
Ст.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Ст.Количество = СтрокаТабличнойЧасти.Количество;
Ст.ЕдиницаИзмерения = СтрокаТабличнойЧасти.ЕдиницаИзмерения;
Ст.Коэффициент = СтрокаТабличнойЧасти.Коэффициент;
Ст.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Ст.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Ст.СерияНоменклатуры = СтрокаТабличнойЧасти.СерияНоменклатуры;
Ст.Качество = СтрокаТабличнойЧасти.Качество;
КонецЦикла;
КонецФункции
Функция ЗаполнитьТЗ(Ссылка)
Для СтрокаТабличнойЧасти Из Товары Цикл
Ст = ТЗ.Добавить();
// Для заполнение ТЗ
Ст.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Ст.Количество = СтрокаТабличнойЧасти.Количество;
Ст.ЕдиницаИзмерения = СтрокаТабличнойЧасти.ЕдиницаИзмерения;
Ст.Коэффициент = СтрокаТабличнойЧасти.Коэффициент;
Ст.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Ст.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Ст.СерияНоменклатуры = СтрокаТабличнойЧасти.СерияНоменклатуры;
Ст.Качество = СтрокаТабличнойЧасти.Качество;
КонецЦикла;
КонецФункции
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот