0
Melcor
12.12.13
✎
08:20
|
Доброго утра. 1С 8.2 КА 1.1 Подскажите, возможно ли из запроса по остаткам номенклатуры получить данные с иерархией. Пытался делать вот так, но что-то не работает.
Процедура ВыводитьРекурсивно(ВыборкаДетальныеЗаписи)
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
сообщить(строка(ВыборкаДетальныеЗаписи.Склад)+" - "+строка(ВыборкаДетальныеЗаписи.Номенклатура));
ВыводитьРекурсивно(ВыборкаДетальныеЗаписи.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией));
КонецЦикла;
КонецПроцедуры
Процедура НаПечать(Результат) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварыНаСкладахОстатки.Склад,
| ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
| ТоварыНаСкладахОстатки.КоличествоОстаток КАК КоличествоОстаток
|ИЗ
| РегистрНакопления.ТоварыНаСкладах.Остатки(&ВыбДата) КАК ТоварыНаСкладахОстатки
|ГДЕ
| ТоварыНаСкладахОстатки.Склад = &ВыбСклад
|
|Упорядочить по
| Номенклатура
|ИТОГИ
| СУММА(КоличествоОстаток) По
| Номенклатура ИЕРАРХИЯ";
Запрос.УстановитьПараметр("ВыбДата", ВыбДата);
Запрос.УстановитьПараметр("ВыбСклад", ВыбСклад);
Рез = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Рез.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
ВыводитьРекурсивно(ВыборкаДетальныеЗаписи);
КонецПроцедуры
|
|