Имя: Пароль:
1C
1C 7.7
v7: вопрос по ёкселю
0 monsterZE
 
03.04.13
13:31
это нормально, что сабж не отрисовывает закрывающий "хвостик" =) открытой группы, если последняя подгруппа в ней не открыта?
т.е.
-группа1
|элемент1
|элемент2
|+подгруппа1

--

открываем подгруппу1
-группа1
|элемент1
|элемент2
| -подгруппа1
|_|_элемент3
1 Злопчинский
 
03.04.13
13:39
Элемент3 входит в подгруппу1
подгруппа1 свернута - элемент3 - не показывается.
.
что не так?
2 monsterZE
 
03.04.13
13:41
ты не понял.. я не пикассо =)
открытые группы начинаются с
_
|
и заканяиваются
|_
у меня получается, что пока последняя подгруппа не открыта
первая отрисовывается как
|
а не как
|_
3 Злопчинский
 
03.04.13
13:43
ты не пикассо, а я не энштейн. картинку живую лучше положи.
.
группировки чем строил? сам писал или "переход за 2 минуты"?
4 monsterZE
 
03.04.13
13:48
5 monsterZE
 
03.04.13
13:51
подобие прайс-листа..
две таблички, в одной элементы, в другой группы этих элементов
по группам - вывожу элементы
добавляю группировку
если у текущий группы есть родитель, обновляются "окончания" всех родителей в цепочке
6 monsterZE
 
03.04.13
13:54
если сохранить в ексель - там сразу отображается как надо
7 monsterZE
 
03.04.13
13:59
так выглядит таблица группировок
http://imageshack.us/photo/my-images/407/44000690.jpg/
8 Злопчинский
 
03.04.13
14:06
кинь ИСХОДНЫЙ несгруппированный МОКСЕЛЬ такого отчета на почту [email protected]
9 monsterZE
 
03.04.13
14:09
(8) отправил
10 monsterZE
 
03.04.13
14:14
вот так оно формируется:
   Пока ТабГрупТоваров.ПолучитьСтроку()=1 Цикл

       ИмяСекции = ТабГрупТоваров.Сам.Наименование;
       Таб.ВывестиСекцию("Секция");                
       
       Секции.НоваяСтрока();
       Секции.Код         = ТабГрупТоваров.Сам.Код;
       Секции.РодительКод = ТабГрупТоваров.РодительКод;
       Секции.Начало      = Таб.ВысотаТаблицы()+1;
       
       ВыделеннаяГруппа.Очистить();    
       ВеделитьГруппу(ВыделеннаяГруппа,ТабГрупТоваров.ПолныйКод);
       
       ВыделеннаяГруппа.ВыбратьСтроки();
       Пока ВыделеннаяГруппа.ПолучитьСтроку()=1 Цикл
           Таб.ВывестиСекцию("Строка");                                                  
       КонецЦикла;
       
       ВысотаПослеВставки = Таб.ВысотаТаблицы();
       Секции.Окончание   = ВысотаПослеВставки;
       
       текРодитель = ТабГрупТоваров.РодительКод;
       Пока текРодитель<>-1 Цикл
           стр = ПолучитьПустоеЗначение();
           Если Секции.НайтиЗначение(текРодитель,стр,"Код")=1 Тогда
               Секции.УстановитьЗначение(стр,"Окончание",ВысотаПослеВставки);
               текРодитель = Секции.ПолучитьЗначение(стр,"РодительКод");
           Иначе
               текРодитель = -1;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
11 Злопчинский
 
03.04.13
14:41
А если попробовать регуляризовать прайс добавивм после 1.1 для микроволновок группу типа 1.1.0..?
12 monsterZE
 
03.04.13
14:46
(11) да это я тебе со старого прайса скинул (правда не пойму зачем) в том, который ковыряю нет этой индексации.
руками делаю тоже самое - правильно отрисовывает

   ГруппыСтрок = СоздатьОбъект ("ТаблицаЗначений");
   ГруппыСтрок.НоваяКолонка ("Начало");
   ГруппыСтрок.НоваяКолонка ("Окончание");

   НачалоГруппы    = 3;
   ОкончаниеГруппы = 7;
   ГруппыСтрок.НоваяСтрока ();
   ГруппыСтрок.Начало    = НачалоГруппы;
   ГруппыСтрок.Окончание = ОкончаниеГруппы;

   НачалоГруппы    = 6;
   ОкончаниеГруппы = 7;
   ГруппыСтрок.НоваяСтрока ();
   ГруппыСтрок.Начало    = НачалоГруппы;
   ГруппыСтрок.Окончание = ОкончаниеГруппы;
   
   НачалоГруппы    = 9;
   ОкончаниеГруппы = 13;
   ГруппыСтрок.НоваяСтрока ();
   ГруппыСтрок.Начало    = НачалоГруппы;
   ГруппыСтрок.Окончание = ОкончаниеГруппы;
   
   НачалоГруппы    = 12;
   ОкончаниеГруппы = 13;
   ГруппыСтрок.НоваяСтрока ();
   ГруппыСтрок.Начало    = НачалоГруппы;
   ГруппыСтрок.Окончание = ОкончаниеГруппы;

версия 1.1.27.0, рамер 4,93мб
13 monsterZE
 
03.04.13
14:49
14 monsterZE
 
03.04.13
16:32
мухах блеать.. оказывается конец палки не прорисовывается в свернутом виде, если это последняя строчка в таблице.. добавляем пустых строчек и вуаля. =\
15 monsterZE
 
03.04.13
16:34
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс