Люди добрые, помогите! Подскажите, как сделать такой отчет. Нужно вывести, сколько материалов нужно закупить для определенного количества товаров. У каждой готовой продукции есть своя спецификация, но в позициях это спецификации есть номенклатура тоже со своей спецификацией,  и так до 4го уровня может быть. т.е. есть торт, в него входит украшения и болванки, в болванку сырье и полуфабрикаты и т.д. нужно вывести указав торт все материалы для изготовления этого торта, пробежавшись по всем спецификациям. всю голову сломала...

если речь про УПП, то смотреть обработку "конструктор спецификаций"

(1) + Общий модуль РазузлованиеНоменклатуры.РазузловатьНоменклатуру()

в УПП есть документ "Формирование потребности" формирует на основе плана с учетом остатков на складе. можно взять за основу.

не УПП, бухгалтерия 2.0

БледноЗолотистый, в бух нет такого модуля

(5) тады тащи из УПП, но придется повозиться

(5) Тогда для тебя у меня печальные новости...
Придётся осваивать циклы и рекурсию

Banned, спасибо)))

выбрать запросом 1 уровень. поместить в вт1
выбрать запросом 2 уровень, включающий в себя номенклатуру из вт1. поместить в вт2
.... до 4 уровня.
профит!

(8) Пишешь функцию ПолучитьДеревоМатериалов() - которая будет получать таблицу всех материалов исходной спецификации с указанием спецификаций полуфабрикатов. Идешь циклом по таблице - если нет спецификации в строке- добавляешь в дерево с вычислением количества, если есть спецификация - вызываешь ПолучитьДеревоМатериалов() для этой спецификации. Полученное дерево подцепляешь к тому что формируется в родительском вызове функции.
В конце получаешь дерево всех ингридентов, неважно какой вложенности. Выгружаешь дерево в таблицу и сворачиваешь. Профит!

Код лень писать, но если задача неподъемная - то поможем.

Smallrat, спасибо! чуть позже начну, попробую

ща напишу сек, не бугай

Ладно, раз уж взялся - напишу примерно (это код из практически такой же задачи)


ДеревоМатериалов = ПолучитьДеревоМатериалов(Спецификация, Количество);

Функция ПолучитьДеревоМатериалов(Спецификация, Количество = 1)
    
    ДеревоМатериалов= Новый ДеревоЗначений;
    ДеревоМатериалов.Колонки.Добавить("Номенклатура");
    ДеревоМатериалов.Колонки.Добавить("Количество");
    ДеревоМатериалов.Колонки.Добавить("ЭтоПолуфабрикат");
    Если Не ЗначениеЗаполнено(Спецификация) Тогда
        Возврат ДеревоМатериалов;
    КонецЕсли;
    
    СтрРодительДеревоМатериалов = ДеревоМатериалов.Строки.Добавить();
    СтрРодительДеревоМатериалов .Номенклатура            =Спецификация.Владелец;
    СтрРодительДеревоМатериалов .Количество            = Количество;
    СтрРодительДеревоМатериалов .ЭтоПолуфабрикат                = Истина;
    
    ЗапросМатериалы = Новый Запрос;
    
    ЗапросМатериалы .Параметры.Вставить("Спецификация",Спецификация);
    
    ЗапросМатериалы .Текст =
    "тут запрос получающий материалы спецификации. к материалу, если есть, надо выбрать спецификацию";
    
    Выборка = ЗапросМатериалы .Выполнить().Выбрать();
    
    Пока Выборка.Следующий() Цикл
        Если Не ЗначениеЗаполнено(Выборка.Спецификация) Тогда
            СтрДеревоМатериалов = СтрРодительДеревоМатериалов .Строки.Добавить();
            СтрДеревоМатериалов .Номенклатура            = Выборка.Номенклатура;
            СтрДеревоМатериалов .Количество            = Выборка.Количество* СтрРодительДеревоМатериалов .Количество;
            
            СтрДеревоМатериалов .ЭтоПолуфабрикат                = Ложь;
        Иначе
            ДеревоМатериаловПодчиненное = ПолучитьДеревоМатериалов(Выборка.Спецификация, Выборка.Количество * СтрРодительДеревоМатериалов.Количество);
            СоединитьДеревьяЗначений(СтрРодительДеревоМатериалов, ДеревоМатериаловПодчиненное );
        КонецЕсли;
    КонецЦикла;
    
    Возврат ДеревоМатериалов;
    
КонецФункции

Процедура СоединитьДеревьяЗначений(Дерево1, Дерево2)
    Для каждого СтрДерево2 Из Дерево2.Строки Цикл
        СтрДерево1 = Дерево1.Строки.Добавить();
        ЗаполнитьЗначенияСвойств(СтрДерево1, СтрДерево2);
        Если СтрДерево2.Строки.Количество() <> 0 Тогда
            СоединитьДеревьяЗначений(СтрДерево1, СтрДерево2)    
        КонецЕсли;
        
    КонецЦикла;
КонецПроцедуры



а, забыл, в конце:


    ТаблицаМатериалов = Новый ТаблицаЗначений;
    ТаблицаМатериалов .Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
    ТаблицаМатериалов .Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));


        СтрокиДереваМатериалов = ДеревоМатериалов.Строки.НайтиСтроки(Новый Структура("ЭтоПолуфабрикат", Ложь), Истина);
    КонецЕсли;
    
    Для каждого СтрДеревоМатериалов Из СтрокиДереваМатериалов Цикл
        СтрТаблицаМатериалов = ТаблицаМатериалов.Добавить();
        ЗаполнитьЗначенияСвойств(СтрТаблицаМатериалов , СтрДеревоМатериалов );
    КонецЦикла;
    
    ТаблицаМатериалов.Свернуть("Номенклатура", "Количество");


КонецЕсли; в середине лишнее

Smallrat, СПАСИБО!!!

(14) взяли и все испортил.. мог бы и фотку сначала затребовать

(17) статистика по возрастным группам и процентном соотношении красавиц приводит к выводу, что шанс получить мотивирующую фотографию сравним с шансом получить демотивирующую)))

как-то так:
http://savepic.org/6538405.jpg

(18) о как загнул-то :)

John83, Smallrat, вам фото выслать?)))))

John83, Smallrat, в личной карточке все)))

(22) ну вот - совсем другое дело, будем считать, что Smallrat не зря старался :)

ну теперь только запрос осталось написать ))))