Помогите правильно составить код. Задача сделать 4 уровня дерево. 1. Что бы быстро создавалась. 2. Отображались только группы. Делаю так, ерудна получается. ((

ТЗ_Реквизиты = СоздатьОбъект("ТаблицаЗначений");
     ТЗ_Реквизиты1 = СоздатьОбъект("ТаблицаЗначений");
     
    ТабДерево1.НоваяКолонка("СледУровень");
     ТабДерево1.НоваяКолонка("Пиктограмма");
     ТабДерево1.НоваяКолонка("Дерево");
     
     

     ТЗ_Реквизиты.НоваяКолонка("СледУровень");
     ТЗ_Реквизиты.НоваяКолонка("Пиктограмма");
     ТЗ_Реквизиты.НоваяКолонка("Дерево");
     

     ТЗ_Реквизиты1.НоваяКолонка("СледУровень");
     ТЗ_Реквизиты1.НоваяКолонка("Пиктограмма");
     ТЗ_Реквизиты1.НоваяКолонка("Дерево");
     
СпНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
СпНоменклатура.ВыбратьЭлементы();
Пока СпНоменклатура.ПолучитьЭлемент() = 1 Цикл
     Если СпНоменклатура.ЭтоГруппа() = 1 Тогда
     Если СпНоменклатура.Уровень() = 1 Тогда
     Если (СокрЛП(СпНоменклатура.Наименование) = "Диски и дискеты") или (СокрЛП(СпНоменклатура.Наименование) = "Упаковка") Тогда
                 
           
     ТабДерево1.НоваяСтрока();
     ПолучитьЭлементыУровня2(СпНоменклатура.Код);
                                   ТабДерево1.СледУровень=ТЗ_Реквизиты;
                                   ТабДерево1.Дерево=СпНоменклатура.Наименование;
                                   ТабДерево1.Пиктограмма = 1;
     КонецЕсли;                        
КонецЕсли            
КонецЕсли      
КонецЦикла;





Процедура ПолучитьЭлементыУровня3(Код)
     ТЗ_Реквизиты1.УдалитьСтроки();
           СпНоменклатураРод = СоздатьОбъект("Справочник.Номенклатура");
           СпНоменклатураРод.НайтиПоКоду(Код);
     СпНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
      //СпНоменклатура.ИспользоватьРодителя(СпНоменклатураРод.ТекущийЭлемент());
     СпНоменклатура.ВыбратьЭлементы();
     Пока СпНоменклатура.ПолучитьЭлемент()=1 Цикл
Если СпНоменклатура.ПринадлежитГруппе(СпНоменклатура.ТекущийЭлемент()) = 1 Тогда;
Если СпНоменклатура.ЭтоГруппа() = 1 тогда
           ТЗ_Реквизиты1.НоваяСтрока();
     ТЗ_Реквизиты1.СледУровень=0;
     ТЗ_Реквизиты1.Дерево=СпНоменклатура.Наименование;
     ТЗ_Реквизиты1.Пиктограмма = 1;      
     КонецЕсли;      
                 
           КонецЕсли;      
           
     КонецЦикла;
     
     
КонецПроцедуры // ПолучитьЭлементыУровня2



Процедура ПолучитьЭлементыУровня2(Код)
     ТЗ_Реквизиты.УдалитьСтроки();
           СпНоменклатураРод = СоздатьОбъект("Справочник.Номенклатура");
           СпНоменклатураРод.НайтиПоКоду(Код);
     СпНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
     //СпНоменклатура.ИспользоватьРодителя(СпНоменклатураРод.ТекущийЭлемент());
     СпНоменклатура.ВыбратьЭлементы();
     Пока СпНоменклатура.ПолучитьЭлемент()=1 Цикл
           Если СпНоменклатура.ЭтоГруппа() = 1 тогда
Если СпНоменклатура.ПринадлежитГруппе(СпНоменклатура.ТекущийЭлемент()) = 1 Тогда;

           ТЗ_Реквизиты.НоваяСтрока();
           ПолучитьЭлементыУровня3(СпНоменклатура.Код);
           Если ТЗ_Реквизиты1.КоличествоСтрок() > 0 Тогда
     ТЗ_Реквизиты.СледУровень=ТЗ_Реквизиты1;
Иначе
           ТЗ_Реквизиты.СледУровень = 0;
КонецЕсли;
     ТЗ_Реквизиты.Дерево=СпНоменклатура.Наименование;
     ТЗ_Реквизиты.Пиктограмма = 1;      
     КонецЕсли;      
                 
           КонецЕсли;      
           
     КонецЦикла;
     
     
КонецПроцедуры // ПолучитьЭлементыУровня2

http://www.1cpp.ru/forum/YaBB.pl?num=1197218664/7#7
здесь я когда то выкладывал код, правда там не толко группы, но и элементы.