Добрый день!
1С 8.2 УНФ
Создаю программно приходную накладную
Документы прихода создаються, товаром заполняються, все хорошо (рисунок 1)
Но когда смотришь отчет:
Ведомость по запасам (рисунок 2) - поле количество пустое. Как исправить, или где копать?
Ведомость по складу (рисунок 3) - вообще почему то пусто. Как исправить, или где копать?
КОД
Процедура ДокПриходнаяНакладная()
Для Каждого СтрокаТаб из ТЗПриходныеНакладные Цикл
Док = Документы.ПриходнаяНакладная.СоздатьДокумент();
Док.Номер = СтрокаТаб.Номер;
Док.Дата = СтрокаТаб.Дата;
Док.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(СтрокаТаб.Контрагент);
Док.ВидОперации = Перечисления.ВидыОперацийПриходнаяНакладная.ПоступлениеОтПоставщика;
Док.СтруктурнаяЕдиница = Справочники.СтруктурныеЕдиницы.НайтиПоНаименованию(СтрокаТаб.Склад).Ссылка;
Док.Договор = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию(СтрокаТаб.ДоговорКонтрагента);
Для Каждого СтрТаб из ТЗПриходныеНакладныеТовар Цикл
Если СтрокаТаб.Ссылка = СтрТаб.Ссылка Тогда
Тв = Док.Запасы.Добавить();
Тв.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(СтрТаб.КодТовара);
Тв.Количество = СтрТаб.Количество;
Тв.Цена = СтрТаб.Цена;
Тв.СтавкаНДС = Справочники.СтавкиНДС.НайтиПоНаименованию(СтрТаб.СтавкаНДС);
Тв.Сумма = СтрТаб.Сумма;
Тв.СуммаНДС = СтрТаб.СуммаНДС;
Тв.Всего = СтрТаб.Сумма;
КонецЕсли;
КонецЦикла;
Док.НалогообложениеНДС = Перечисления.ТипыНалогообложенияНДС.ОблагаетсяНДС;
Док.Курс = "9.0";
Док.Кратность = "1.0";
Док.ВалютаДокумента = Справочники.Валюты.НайтиПоНаименованию(СтрокаТаб.ВалютаДокумента);
Док.СуммаДокумента = СтрокаТаб.СуммаДокумента;
Док.СуммаВключаетНДС = СтрокаТаб.СуммаВключаетНДС;
Док.Организация = Справочники.Организации.НайтиПоНаименованию("Наша фирма");
Если СтрокаТаб.Проведен = Истина Тогда
Док.Записать(РежимЗаписиДокумента.Проведение);
Иначе
Док.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Рисунок 1
Рисунок 2
Рисунок 3