Имя: Пароль:
1C
1С v8
Как вывести справочник в табличный документ группами
,
0 aptomilov
 
19.01.12
10:44
Привет всем у меня уже мозги расплавились, как все группы справочника  иерархически вывести в табличный документ с помощью команд  начатьгруппустрок, закончитьгруппустрок.

Начинать я начинаю Группу строк по уровню в справочнике а вот когда заканчивать вопрос??
1 Wobland
 
19.01.12
10:45
начинай в самом начале, заканчивай в самом конце. и кури второй параметр у Вывести()
2 aptomilov
 
19.01.12
10:51
чувство у меня такое что надо рекурсию делать что иерархическая выборка тут не помошник
3 Cube
 
19.01.12
10:54
А что, СКД уже не модно?
4 Cube
 
19.01.12
10:55
Если по сабжу, то ты же понимаешь где нужно начать группировку? Ну вот с этим и работай.
5 aptomilov
 
19.01.12
10:55
скд это кто
6 Cube
 
19.01.12
10:57
(5) Прикалываешься?)) СКД - система компановки данных. Это развитие построителя отчетов.
7 aptomilov
 
19.01.12
11:08
а так там ничего подходящего ка кто и не увидел
8 Wobland
 
19.01.12
11:09
(7) СКД - дрянь, забей на неё ;)
9 Cube
 
19.01.12
11:11
(8) :)
(7) Почитай книжку Хрусталевой - сразу увидишь, сколько там подходящего :)
10 aptomilov
 
19.01.12
11:13
обязательно парни обязательно , у меня сроки  горят подкиньте идею как быстренько вывести справочник в таб дакумент в таком же виде как он сам - в дереве
11 Wobland
 
19.01.12
11:14
(10) быстренько - только на СКД. лучше день потерять, потом за 5 минут долететь ;)
12 aptomilov
 
19.01.12
11:20
может кто подскажет я в ту сторону вобще мало разбирался
13 Cube
 
19.01.12
11:23
(12) Смотри (4).
14 aptomilov
 
19.01.12
11:28
я понимаю где начать не могу догнать по какому условию ее закончить ))
15 Wobland
 
19.01.12
11:30
аську что ль включи
16 Cube
 
19.01.12
11:32
(14) Если НЕ НоваяГруппаСправочника.ПринадлежитЭлементу(СтараяГруппаСправочника) Тогда
ЗакончитьГруппировкуСтрок();
СтараяГруппаСправочника = НоваяГруппаСправочника;
КонецЕсли;
17 aptomilov
 
19.01.12
11:37
5502514 это аська
18 Wobland
 
19.01.12
11:38
(17) тогда привратника выключи. он меня обругал математиком - это хорошо?
19 aptomilov
 
19.01.12
13:14
СпрДДС=Справочники.СтатьиДвиженияДенежныхСредств;
   ВыборкаДДС=СпрДДС.ВыбратьИерархически(,,,"Код");
   
   
   ПредидущаяяГруппа=0;
   УровеньГруппы=0;
   
   СтараяГруппаСправочника=СпрДДС.ПустаяСсылка();
   Пока ВыборкаДДС.Следующий() Цикл
       СсылкаСпрДДС=ВыборкаДДС.Ссылка;
       //Если не СсылкаСпрДДС.ЭтоГруппа  Тогда Продолжить;  КонецЕсли; // отсеим элементы
       
       
       ПредидущаяяГруппа=УровеньГруппы;
       УровеньГруппы=СсылкаСпрДДС.Уровень();
       
       СуммаГруппыПриход=0;
       СуммаГруппыРасход=0;
       Приход=1;
       Расход=1;

       ГруппуВывели=Ложь;
       ВыводимСтатью=Ложь;    
       
       Статья="";
       Если Не СсылкаСпрДДС.ЭтоГруппа Тогда
           
           Статья=СсылкаСпрДДС;
       КонецЕсли;
       
       Параметр="";
       
       //ТЗРезультат=ДанныеДляВывода(Параметр,ТЗ,Статья);
                       
       
       СтрокаГруппы=СокрЛП(СсылкаСпрДДС.Код)+" "+СокрЛП(СсылкаСпрДДС.Наименование);
       
       ОбластьГруппа0.Параметры.Приход=Приход;
       ОбластьГруппа0.Параметры.Расход=Расход;
       ОбластьГруппа0.Параметры.Группа=СтрокаГруппы;
       
       
               
       
       Если СсылкаСпрДДС.ЭтоГруппа Тогда
       
           ТабДок.Вывести(ОбластьГруппа0);
           ТабДок.НачатьГруппуСтрок("",Ложь);
           
                       
       Иначе    
           ТабДок.Вывести(ОбластьГруппа0);
           
       КонецЕсли;    
       
       
       Если  СсылкаСпрДДС.ЭтоГруппа Тогда
           
            НоваяГруппаСправочника=СсылкаСпрДДС;
       КонецЕсли;    
       
       
       
       
       Если НЕ НоваяГруппаСправочника.ПринадлежитЭлементу(СтараяГруппаСправочника) Тогда
           Попытка
           ТабДок.ЗакончитьГруппуСтрок();
       Исключение
           КонецПопытки;
           СтараяГруппаСправочника = НоваяГруппаСправочника;
       КонецЕсли;

       
   КонецЦикла;
20 aptomilov
 
19.01.12
13:15
вот такой вот код уже близок к истине но он вовремя не закрывает щас разбирась почему