[Yoja]

Добрый день!
1С 8.2 УНФ
Создаю программно приходную накладную
Документы прихода создаються, товаром заполняються, все хорошо (рисунок 1)
Но когда смотришь отчет:
Ведомость по запасам (рисунок 2) - поле количество пустое. Как исправить, или где копать?
Ведомость по складу (рисунок 3) - вообще почему то пусто. Как исправить, или где копать?

КОД

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

Рисунок 1



Рисунок 2



Рисунок 3

[python]

Копать - в сторону единицы измерения. Заполнения данного реквизита я не вижу в коде.

[Yoja]

Реально, добавил строчку.

Тв.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(СтрТаб.ЕдиницаИзмерения);

Ток еще не разобрался чем отличаются:
Справочники.КлассификаторЕдиницИзмерения
Справочники.ЕдиницыИзмерения

Спасибо.

[python]

Справочники.ЕдиницыИзмерения - этот нужен, по идее (конфу не видел) - подчинен номенклатуре.

[Vofka]

Классификатор - это штука, кг, м и т.п. А единица измерения может быть тонна (кг с коэффициентом 100), упаковка (шт с коэффициентом 6) и т.п. Но просто часто они совпадают.

[Ardi]

В демо базах УНФ Справочник.ЕдиницыИзмерения не используется.


В константах также есть возможноть отключить отображение единиц измерения в документах вообще.

Сообщение отредактировал Ardi - 22.06.12, 10:31

[Yoja]

Всем спасибо, тема закрыта