Vlad7131 писал(а) 22. Октября 2012 :: 08:52:

А в чем проблема то?

//ТЗ - ИндексированнаяТаблица с колонками "Товар, Склад, Остаток"
ТЗ.ДобавитьИндекс("_инд","*Товар, *Склад");
вТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.Выгрузить(вТЗ);
вТЗ.Свернуть("Склад","");
вТЗ.Сортировать("Склад");
тТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.Выгрузить(тТЗ);
тТЗ.Свернуть("Товар","");
тТЗ.Сортировать("Товар");
Таб.ВывестиСекцию("Шапка|Товар");
Для Сч=1 по вТЗ.КоличествоСтрок() Цикл
     //Выводим шапку складов
     Таб.ВывестиСекцию("Шапка|Склад");
КонецЦикла
_сз=СоздатьОбъект("СписокЗначений");
тТЗ.ВыбратьСтроки();
Пока тТЗ.ПолучитьСтроку()=1 Цикл
     Таб.ВывестиСекцию("Строка|Товар");
     Для Сч=1 по вТЗ.КоличествоСтрок() Цикл
	    //Выводим строчку складов
	    _сз.УдалитьВсе();
	    _сз.ДобавитьЗначение(тТЗ.Товар);
	    _сз.ДобавитьЗначение(вТЗ.ПолучитьЗначение(Сч,"Склад"));
	    НайденнаяСтрока=ТЗ.НайтиСтроку("_инд",_сз);
	    Если НайденнаяСтрока=0 Тогда
		   выхОстаток=0;
	    Иначе
		   выхОстаток=ТЗ.ПолучитьЗначение(НайденнаяСтрока,"Остаток");
	    КонецЕсли
	    Таб.ВывестиСекцию("Строка|Склад");
     КонецЦикла
КонецЦикла 

Vlad7131 писал(а) 17. Октября 2012 :: 10:24:


Вот такой код:

ТекстЗапроса = "
	|SELECT ОстаткиТоваровОстатки.Товар [Товар $Справочник.Номенклатура]
	|	, ОстаткиТоваровОстатки.Склад [Склад $Справочник.МестаХранения]
	|	, ОстаткиТоваровОстатки.ОстатокТовараОстаток
	|FROM $РегистрОстатки.ОстаткиТоваров(,,
	|		(Фирма = :ВыбФирма),
	|		(Товар, Склад),) AS ОстаткиТоваровОстатки
	|TOTALS Sum(ОстатокТовараОстаток)
	|BY ALL
	|	, [Товар $Справочник.Номенклатура]
	|	, [Склад $Справочник.МестаХранения]
	|";
ПостроительЗапроса = СоздатьОбъект("ПостроительЗапроса");
ПостроительЗапроса.Текст = ТекстЗапроса;
ПостроительЗапроса.Параметры.Установить("ВыбФирма", ВыбФирма);
ПостроительЗапроса.Группировки.Добавить("[Товар]");
ПостроительЗапроса.Группировки.Добавить("[Склад]");
ПостроительЗапроса.Выполнить();
Выборка = ПостроительЗапроса.Результат();
Пока Выборка.Группировка("Товар") = 1 Цикл
	Пока Выборка.Группировка("Склад") = 1 Цикл
		Сообщить("Товар: " + Выборка.Товар + ", склад: " + Выборка.Склад + ", остаток: " + Выборка.СуммаОстатокТовараОстаток);
	КонецЦикла;
КонецЦикла;
 

выводит в окне сообщений Цитата:




Если чё, используются разработки 1 и 2.

---

Или вот так, если нужна таблица значений:

	ТекстЗапроса = "
		|SELECT ОстаткиТоваровОстатки.Товар [Товар $Справочник.Номенклатура]
		|	, ОстаткиТоваровОстатки.Склад [Склад $Справочник.МестаХранения]
		|	, ОстаткиТоваровОстатки.ОстатокТовараОстаток
		|FROM $РегистрОстатки.ОстаткиТоваров(,,
		|		(Фирма = :ВыбФирма),
		|		(Товар, Склад),) AS ОстаткиТоваровОстатки
		|TOTALS Sum(ОстатокТовараОстаток)
		|BY [Товар $Справочник.Номенклатура]
		|	, [Склад $Справочник.МестаХранения]
		|";
	Консоль = СоздатьОбъект("AddIn.qryConsole");
	Консоль.УстановитьТекстовыйПараметр("ВыбФирма", ВыбФирма);
	ФайлКуба = Консоль.СоздатьКуб(ТекстЗапроса);
	СводныйЗапрос = СоздатьОбъект("СводныйЗапрос");
	СводныйЗапрос.Открыть(ФайлКуба);
	тз = СводныйЗапрос.Выгрузить(, "[Товар], [Склад]");
 

Vlad7131 писал(а) 22. Октября 2012 :: 08:15:



Курить в сторону класса ИтогиПоГруппировкам.
Там есть метода разворота по горизонтали - там это все реализовано.

Если в примитиве на пальцах, то делается очень просто: из выборки выгружается колонка с нужными данными и сворачивается.
Этот Свернутый список показателей - и есть "все вошедшие в запрос".
Если отсортируешь этот список + правильно отсортируешь таблицу данных - то легко сможешь шагая по данным определять, сколько пустых ячеек тебе нужно вывести до следующего значащего значения (или действовать даже более правильно - ячейки выводить всегда пустыми, а значения уже писать вычисляя адрес нужной ячейки).

---

не помню, есть ли он здесь в репозитории (скорее всего есть в сводной конфе с классами)
Потому линк на "создателя" - http://rikcenter.ru/download/RiK_Sums.rar

Всем привет!
Решил пойти по пути подсказанном Salimbek-ом и Satans Claws:

Отчет работает, решил усложнить, дабавить разворот по группам справочника Номенклатура.
Для этого вместо таблицы значений с товаром (у него тТЗ) использовал индексированную таблицу, сгруппировав ее:
ИТ.Группировать("Товар:&Тов", "Остаток",0);                        //????
а эта строка была выше, до группировать:
ИТ.ДобавитьИндекс("_инд","*Тов, *Склад");                        //????

и выводя в рекурсивной процедуре:

Процедура ВывестиГруппировку(ИТ,Таб)
     ...................................
     ИТ.ВыбратьСтроки();
     Пока ИТ.ПолучитьСтроку()=1 цикл  
           Таб.ВывестиСекцию("Строка|Товар");
           Для Сч=1 по СклТЗ.КоличествоСтрок() Цикл
                   //Выводим строчку складов
                     _сз.УдалитьВсе();
                     _сз.ДобавитьЗначение(ТовТЗ.Тов);
                     _сз.ДобавитьЗначение(СклТЗ.ПолучитьЗначение(Сч,"Склад"));
                 НайденнаяСтрока=ИТ.НайтиСтроку("_инд",_сз);            //????
                     Если НайденнаяСтрока=0 Тогда
                         выхОстаток=0;
                     Иначе
                         выхОстаток=ИТ.ПолучитьЗначение(НайденнаяСтрока,"Остаток");
                     КонецЕсли;
                 Таб.ПрисоединитьСекцию("Строка|Склад");
     ...................................
Ошибка:      Индекс с именем _инд не найден ! Что не так? Куда делся индекс.
Может надо было как то по другому группировать?

ИТ.НайтиСтроку(_сз, "_инд");

Синтаксис: НайтиСтроку(Индекс, Ключ, [чНайтиПоследнюю = 0], [чСпозиционироваться = 0])
Параметры:
Индекс - тип: Строка, Число. Идентификатор или номер индекса.

Хорошо, не ищет по этому индексу:
ИТ.ДобавитьИндекс("_инд","*Тов, *Склад");
А какой идентификатор или номер индекса здесь:
ИТ.Группировать("Товар:&Тов;Склад:Склад", "Остаток",0);
В списке значений _сз товар и склад.
Что подставить в ИТ.НайтиСтроку("_инд",_сз) вместо "_инд"?

Каким образом?
НайденнаяСтрока=ИТ.НайтиСтроку("Товар,Склад",_сз);
{C:\DB.ADM\PV\ОСТАТКИТОВАРОВ6.ERT(103)}: Индекс с именем Товар,Склад не найден !