JohnyDeath писал(а) 18. Ноября 2008 :: 10:59:

Я это делаю не в запросе

Цитата:


я думаю дело не в "неправильности 1С++", а в том что не так как мне надо, а причина возможно в том что я сам неправильно использую метод "Группировать"

Вот наглядный результат выполнения процедуры

Процедура ПоказатьИТЗПотомки(ИТЗИсточник)
ИТЗИсточник.ВыбратьСтроки();
Пока ИТЗИсточник.ПолучитьСтроку()=1 Цикл
Если ИТЗИсточник.НомерКолонки("тзПотомки")>0 Тогда
ИТЗИсточник.Показать();
Если Вопрос("Прервать?",4)=6  Тогда
    Возврат;
КонецЕсли;
ПоказатьИТЗПотомки(ИТЗИсточник.тзПотомки);
КонецЕсли;
КонецЦикла;
КонецПроцедуры	   

ИТЗ1


ИТЗ2


ИТЗ3


ИТЗ4


а мне нужно чтобы в ИТЗ2 были не группы
"Шампанское"
"Коньяк"

а значения группы первого уровня по местам хранения
"Алкоголь"-"Магазин № 8"
"Алкоголь"-"Магазин № 26"
"Алкоголь"-"Магазин № 19"

fez писал(а) 18. Ноября 2008 :: 12:07:

+1

ЗЫ Но не забывай, что Группировать может использовать спец.колонки для родителей и уровня для увеличения производительности. Подробности в доке.

ADirks писал(а) 18. Ноября 2008 :: 12:12:

+1
Ага, я также хотел предложить твой редактор.
Кстати, сколько ему лет уже ?

Цитата:


всё же мне нужны группы всех уровней, возможно я непонятно это в (0) объяснил, то есть мне нужно видеть значения показателей в группировке "Группа каждого уровня"-"Место хранения" и "Элемент"-"Место хранения". Возможно получится если поменять индексы местами
ИТЗ.Группировать("ИндМестоХранения: МестоХранения; ИндНоменклатура: &Номенклатура","КоличествоПродаж,Выручка");

если в результате добьюсь того чего хотел - отпишусь.

Мне нужно получить таблицу следующего вида

"Гр1Уровня Алкоголь"-"Маг№6" 1000
"Гр1Уровня Алкоголь"-"Маг№8" 500
"Гр1Уровня Алкоголь"-"Маг№10" 200

     "Гр2Уровня Вино"-"Маг№6" 200
     "Гр2Уровня Вино"-"Маг№8" 100
     "Гр2Уровня Вино"-"Маг№10" 300

       "элемент Вино"-"Маг№6" 5
       "элемент Вино"-"Маг№8" 3
       "элемент Вино"-"Маг№10" 6

     "Гр2Уровня Коньяк"-"Маг№6" 50
     "Гр2Уровня Коньяк"-"Маг№8" 30
     "Гр2Уровня Коньяк"-"Маг№10" 20

"Гр1Уровня Продукты"-"Маг№6" 1000
"Гр1Уровня Продукты"-"Маг№8" 500
"Гр1Уровня Продукты"-"Маг№10" 200

и т.д.

artbear писал(а) 18. Ноября 2008 :: 13:19:


Ага, только  где то ADirks  писал что лучше его не использовать 
http://www.1cpp.ru/forum/YaBB.pl?num=1202201945/3

artbear писал(а) 19. Ноября 2008 :: 04:30:

Да уж... Когда надо итоги по всей иерархии справочника, то мозг реально начинает плавиться.
Что касается скорости. Нарыл вот в закромах такой тестик

Процедура Скорость_Группировать()
	ИмяСправочника = "Контрагенты";
	ИТ = СоздатьОбъект("ИндексированнаяТаблица");
	РС = СоздатьОбъект("ODBCRecordSet");
	ТекстЗапроса = "
	|SELECT
	|	ID [Эл $Справочник.Номенклатура],
	|	ParentID [Эл_Родитель $Справочник.Номенклатура],
	|	2 Сумма
	|FROM
	|	$Справочник."+ИмяСправочника+"
	|WHERE IsFolder= 2
	|";
	РС.ВыполнитьИнструкцию(ТекстЗапроса, ИТ);

	КоличествоСтрок = ИТ.КоличествоСтрок();
	Старт = _GetPerformanceCounter();
	ИТ.Группировать("Эл: &Эл", "Сумма");
	Стоп = _GetPerformanceCounter();
	Сообщить(""+ КоличествоСтрок+" - "+ (Стоп-Старт));
	//РедакторТЗ(ИТ);
КонецПроцедуры

Процедура Скорость_Перебором()
	ИмяСправочника = "Контрагенты";

	РС = СоздатьОбъект("ODBCRecordSet");
	ТекстЗапроса = "
	|SELECT
	|	ID Эл,
	|	ParentID Родитель,
	|	1 Сумма
	|FROM
	|	$Справочник."+ИмяСправочника+"
	|WHERE IsFolder = 2
	|";
	итЭлементы = СоздатьОбъект("ИндексированнаяТаблица");
	РС.ВыполнитьИнструкцию(ТекстЗапроса, итЭлементы);


	КоличествоСтрок = итЭлементы.КоличествоСтрок();
	Старт = _GetPerformanceCounter();

	ТекстЗапроса = "
	|SELECT
	|	ID Группа,
	|	ParentID Родитель,
	|	0 Сумма
	|FROM
	|	$Справочник."+ИмяСправочника+"
	|WHERE IsFolder = 1
	|";
	итГруппы = СоздатьОбъект("ИндексированнаяТаблица");
	РС.ВыполнитьИнструкцию(ТекстЗапроса, итГруппы);
	итГруппы.ДобавитьИндекс("Группа", "Группа");

	итЭлементы.ВыбратьСтроки();
	Пока итЭлементы.ПолучитьСтроку() = 1 Цикл
		Сумма = итЭлементы.Сумма;
		Группа = итЭлементы.Родитель;
		Пока итГруппы.НайтиСтроку("Группа", Группа, 0, 1) > 0 Цикл
			итГруппы.Сумма = итГруппы.Сумма + Сумма;
			Группа = итГруппы.Родитель;
		КонецЦикла;
	КонецЦикла;
	Стоп = _GetPerformanceCounter();
	Сообщить(""+ КоличествоСтрок+" - "+ (Стоп-Старт));

	//РедакторТЗ(итГруппы);
КонецПроцедуры
 

Он конечно немножечко специфический, но результат уж больно показателен:
ИТ::Группировать: 8477 - 11560
вариант 2: 8477 - 373

О, а ещё вариантец для любознательных

Функция ПечатьСотрудников(Т, итСотрудники, идРуководитель, Уровень=0, МаксУровень=-1)
	ИмяИндекса = "Руководитель"+Уровень;
	Если Уровень > МаксУровень Тогда
		МаксУровень = Уровень;
		итСотрудники.ДобавитьИндекс(ИмяИндекса, "идРуководитель");
	КонецЕсли;

	стрПрефикс = ПовторитьСтроку("   ", Уровень);
	итСотрудники.УстановитьФильтр(идРуководитель, идРуководитель, ИмяИндекса);

	фЕстьПотомки = 0;

	итСотрудники.ВыбратьСтроки(ИмяИндекса);
	Пока итСотрудники.ПолучитьСтроку(ИмяИндекса) = 1 Цикл
		облСтрока_Показатель.Расшифровка(итСотрудники.расшСотрудник, 1);
		облСтрока_Показатель.Текст = стрПрефикс + итСотрудники.Сотрудник;
		облСтрока_Должность.Текст = итСотрудники.Должность;

		Т.ВывестиСекцию(секцияСтрока);
		нСтрока = Т.ВысотаТаблицы();

		_фЕстьПотомки = ПечатьСотрудников(Т, итСотрудники, итСотрудники.идСотрудник, Уровень+1, МаксУровень);

		ФорматСтроки(Т, нСтрока, Уровень, _фЕстьПотомки);
		фЕстьПотомки = 1;
	КонецЦикла;

	Возврат фЕстьПотомки;
КонецФункции
 

Иерархия строится вообще по произвольным полям