Приветствую! Думаю все задавались вопросом как вывести в отчет элементы в соответствии с иерархией справочника, я этим вопросом мучился давно и вот разродился! смотрим, критикуем, копируем!

Функция ИнитТбУзла()   
     тбУзла = СоздатьОбъект("ТаблицаЗначений");   
     тбУзла.НоваяКолонка("родитель", "справочник.Товар");
     тбУзла.НоваяКолонка("Группа","справочник.Товар");
     тбУзла.НоваяКолонка("Уровень", "Число");
     тбУзла.НоваяКолонка("тбДети"); 
     Возврат тбУзла;
КонецФункции      


//=================================================================
Процедура ОбрТекУровень(знач текУровень, тбИсходная, тбБуферВходящий, тбБуферИсходящий, текСтрока, тбУзлаПустая);
     колСтрок = тбИсходная.КоличествоСтрок();
                           
     тбБуфер = СоздатьОбъект("ТаблицаЗначений");
     тбУзлаПустая.Выгрузить(тбБуфер);
     
    колСтрокБуфВход = тбБуферВходящий.КоличествоСтрок();
     
     Пока текСтрока <= колСтрок Цикл
           тбИсходная.ПолучитьСтрокуПоНомеру(текСтрока);   
           
           Если тбИсходная.Уровень <> текУровень Тогда Прервать КонецЕсли;
           текГруппа = тбИсходная.Группа;
           тбБуфер.НоваяСтрока();
           тбБуфер.родитель = тбИсходная.Родитель;
           тбБуфер.Группа       = текГруппа;
           тбБуфер.Уровень  = тбИсходная.Уровень;
           тбБуфер.тбДети = СоздатьОбъект("ТаблицаЗначений") ;
           тбУзлаПустая.Выгрузить(тбБуфер.тбДети);
           тбДетиБуфера = тбБуфер.тбДети;   
           
           счБуферВходящий = 0;
           Если тбБуферВходящий.НайтиЗначение(текГруппа, счБуферВходящий, "Родитель") > 0 Тогда
                 тбБуферВходящий.ПолучитьСтрокуПоНомеру(счБуферВходящий);
                 Пока счБуферВходящий <= колСтрокБуфВход Цикл
                       Если тбБуферВходящий.Родитель <> текГруппа Тогда Прервать КонецЕсли;
                    тбДетиБуфера.НоваяСтрока();
                       тбДетиБуфера.родитель = текГруппа;
                       тбДетиБуфера.Группа   = тбБуферВходящий.Группа;
                       тбДетиБуфера.Уровень  = тбБуферВходящий.Уровень;
                       тбДетиБуфера.тбДети   = тбБуферВходящий.тбДети;      
                       тбБуферВходящий.УдалитьСтроку();
                       колСтрокБуфВход = колСтрокБуфВход - 1;
                 КонецЦикла;
                 тбДетиБуфера.Сортировать("Группа");
           КонецЕсли;      
           текСтрока = текСтрока + 1;
     КонецЦикла;
     тбБуфер.Сортировать("родитель");
     
     тбБуферИсходящий = тбБуфер;
     
КонецПроцедуры


//*******************************************
Процедура Сформировать()                              
     
     RecordSet = СоздатьОбъект("ODBCRecordset");      
     текстСКЛ =  "
     |WITH Parts(ParentID, ID, goodsLevel) as
     |( 
     |    SELECT mainGoods.ParentID, mainGoods.ID, 0 goodsLevel
     |    FROM SC14 mainGoods
     |    WHERE mainGoods.ISFolder = 1 AND mainGoods.ParentID = $ПустойИД
     |    UNION ALL 
     |    SELECT childGoods.ParentID, childGoods.ID, goodsLevel + 1
     |    FROM SC14 childGoods
     |        INNER JOIN Parts p 
     |        ON childGoods.ParentID = p.ID AND childGoods.ISFolder = 1
     | ) 
     |SELECT ParentID [родитель $справочник.Товар], ID [Группа $справочник.Товар], goodsLevel Уровень
     |FROM Parts
     |ORDER BY goodsLevel DESC";
     
     
     тбРодителиИДети= RecordSet.ВыполнитьИнструкцию(текстСКЛ);
     тбРодителиИДети.НоваяКолонка("тбДети");
                  
     тбРодителиИДети.ПолучитьСтрокуПоНомеру(1);
     МаксУровень  =  тбРодителиИДети.Уровень;
     
     тбУзлаПустая = ИнитТбУзла();
     
     
     тбБуферВходящий = СоздатьОбъект("ТаблицаЗначений");
     тбУзлаПустая.Выгрузить(тбБуферВходящий);
     
     тбБуферИсходящий = СоздатьОбъект("ТаблицаЗначений");   
     тбУзлаПустая.Выгрузить(тбБуферИсходящий);
           
     текСтрока = 1;
     сч = МаксУровень;
     Пока сч > -1 Цикл                                                             
                       
           ОбрТекУровень(сч, тбРодителиИДети, тбБуферВходящий, тбБуферИсходящий, текСтрока, тбУзлаПустая);   
           тбБуферВходящий = тбБуферИсходящий;
           сч = сч - 1;
           
     КонецЦикла;
     
     тбПечать = СоздатьОбъект("ТаблицаЗначений");
     тбПечать.НоваяКолонка("Группа");
                 
     тбБуферИсходящий.Сортировать("Группа");
     
     ПечатьГрупп(тбБуферИсходящий,тбПечать);   
     
     //тбПечать.ВыбратьСтроку();
     
     
     
КонецПроцедуры

Хехе так рекурсию использую просто не выложил тут

s1.ISFOLDER||s1.DESCR - > не понял SQL конструкцию..куда копать?

Переделал твой запрос в MS SQL 'He is alive!':

WITH Parts(ParentID, ID, goodsLevel, ord) as
(      SELECT
           mainGoods.ParentID,
           mainGoods.ID, 0 goodsLevel,
           CAST((LTRIM(RTRIM(mainGoods.ISFOLDER)) + LTRIM(RTRIM(ISNULL(mainGoods.DESCR,'')))) as nvarchar(max)) ord
    FROM
           SC14 mainGoods
    WHERE
           mainGoods.ISFolder = 1 AND mainGoods.ParentID = '     0   '
    UNION ALL 
    SELECT
           childGoods.ParentID,
           childGoods.ID,
           goodsLevel + 1,
           (p.ord + LTRIM(RTRIM(childGoods.ISFOLDER)) + LTRIM(RTRIM(ISNULL(childGoods.DESCR,'')))) ord
    FROM SC14 childGoods
        INNER JOIN Parts p 
        ON childGoods.ParentID = p.ID AND childGoods.ISFolder = 1

) 
SELECT ParentID , ID, goodsLevel , ord
FROM Parts
ORDER BY ord

Не в SQL не дает сортировку внутри пробовал...тримы уберем...хотя вроде правильно все...оно ж с попы пробелы убирает чего должна сбиватся сортировка?

Djelf писал(а) 16. Мая 2017 :: 08:31:


Кажется я вообще ничего не понимаю в сортировке

Выше я привел пример запроса со склеиванием строк для сортировки дерева. http://www.1cpp.ru/forum/YaBB.pl?num=1494875208/1#1

Ну вот дошло, наконец, как до жирафа, как без склейки...

Склейка все таки лишнюю память кушает, да и запрос стал на ~30% быстрее.

	WITH cte(id,parentid,level,isfolder,isviewed,descr)
	AS (
		SELECT
			s1.ID, s1.PARENTID, 1, s1.ISFOLDER,1, s1.DESCR
		FROM Справочник_Номенклатура AS s1
		WHERE s1.PARENTID =  '     0   '

		UNION ALL
		SELECT
			s2.ID, s2.PARENTID, cte.LEVEL+1, s2.ISFOLDER, 0,s2.DESCR
		FROM Справочник_Номенклатура AS s2
	    INNER JOIN cte ON cte.ID=s2.PARENTID
		WHERE cte.ISFOLDER=1

		ORDER BY 3 DESC,4 ASC,6 ASC -- level,isfolder,descr
               
	)
--	INSERT INTO tree(parentid,id,level,isfolder,isviewed)
	SELECT
		cte.parentid [Родитель $Справочник.Номенклатура],
		cte.id  [Номенклатура $Справочник.Номенклатура],
		cte.level,
		cte.isfolder,
		cte.isviewed
	FROM cte
 

P.S. этот запрос для sqlite.