Добавление товара в РеализациюТоваровУслуг Бухгалтерия 8.3 учебная(демо)
Вопрос новичка, прошу строго не судить.
В обработке програмно не добавляется товар в существующую РеализациюТоваровУслуг Бухгалтерия 8.3 учебная (демо).
Ошибок не возникает. Отладчиком прошелся.
Заранее благодарю.
Строка.Документ - это ссылка на реализацию в табличной части обработки
Объект.Номенклатура - это Ссылка.Справочник.Номенклатура
&НаКлиенте
Процедура ДобавитьТовар(Команда)
КоличествоСтрок = Объект.СписокДокументов.Количество();
Если КоличествоСтрок <> 0 Тогда
Для каждого Строка Из Объект.СписокДокументов Цикл
Если Строка.ДобавитьТовар = Истина Тогда
ДобавитьТоварНаСервере(Строка.Документ, Объект.Номенклатура);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ДобавитьТоварНаСервере(Документ, Номенклатура)
ИзменяемыйДокумент = Документ.ПолучитьОбъект();
НоваяСтрока = ИзменяемыйДокумент.Товары.Добавить();
НоваяСтрока.Номенклатура = Номенклатура;
НоваяСтрока.Количество = 1;
НоваяСтрока.Цена = 100000;
НоваяСтрока.Сумма = НоваяСтрока.Количество * НоваяСтрока.Цена;
ИзменяемыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
КонецПроцедуры
В обработке програмно не добавляется товар в существующую РеализациюТоваровУслуг Бухгалтерия 8.3 учебная (демо).
Ошибок не возникает. Отладчиком прошелся.
Заранее благодарю.
Строка.Документ - это ссылка на реализацию в табличной части обработки
Объект.Номенклатура - это Ссылка.Справочник.Номенклатура
&НаКлиенте
Процедура ДобавитьТовар(Команда)
КоличествоСтрок = Объект.СписокДокументов.Количество();
Если КоличествоСтрок <> 0 Тогда
Для каждого Строка Из Объект.СписокДокументов Цикл
Если Строка.ДобавитьТовар = Истина Тогда
ДобавитьТоварНаСервере(Строка.Документ, Объект.Номенклатура);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ДобавитьТоварНаСервере(Документ, Номенклатура)
ИзменяемыйДокумент = Документ.ПолучитьОбъект();
НоваяСтрока = ИзменяемыйДокумент.Товары.Добавить();
НоваяСтрока.Номенклатура = Номенклатура;
НоваяСтрока.Количество = 1;
НоваяСтрока.Цена = 100000;
НоваяСтрока.Сумма = НоваяСтрока.Количество * НоваяСтрока.Цена;
ИзменяемыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
КонецПроцедуры
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2) Проверил все, типы совпадают. 1 строка номенклатуры в табличной части . Интерактивно добавляется еще товары. Отладчиком проверил, табличная часть заполняется но не записывается. Пробовал Записать(), Записать(РежимЗаписиДокумента.Проведение). Не записывается...(
(4) берем документ, интерактивно добавляем строку - простым запросом или в отладчике смотрим, какие реквизиты строки ТЧ заполнились
берем свой код и сверяем, что заполнили сами, и что заполнилось при интерактивном вводе
добавляем заполнение отсутствующих реквизитов
можно еще вынести Записать() в попытку, где в исключении вывести сообщение об ошибке
должно все сработать
берем свой код и сверяем, что заполнили сами, и что заполнилось при интерактивном вводе
добавляем заполнение отсутствующих реквизитов
можно еще вынести Записать() в попытку, где в исключении вывести сообщение об ошибке
должно все сработать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот