Имя: Пароль:
1C
1С v8
Не сворачивается по уровням Табличный документ
0 web_profiler
 
21.05.13
10:59
Получаю из макета диаграмму, вывожу ее на форму в табличный документ и пытаюсь свернуть

   ЭлементыФормы.Результат.Очистить();
   макет=ПолучитьМакет("Макет");
   ТабДокумент = ЭлементыФормы.Результат;

   ТабДокумент.ЗакончитьАвтогруппировкуСтрок();
   УровеньГруппировки = 1; //содержит индекс, с нуля
   ТабДокумент.ПоказатьУровеньГруппировокСтрок(УровеньГруппировки);


   ОбластьЗаголовок = Макет.ПолучитьОбласть("Графичек");
     Диаграмма=ОбластьЗаголовок.Рисунки.D1.Объект;  

не сворачивается в уровень. Подскажите, пожалуйста,что к чему я не так делаю
1 web_profiler
 
21.05.13
11:15
мож поскажет кто?
2 web_profiler
 
21.05.13
11:16
пробывал также перед выводом

ТабДокумент.Вывести(<Таблица>, <Уровень>, <Имя группы>, <Открыта>)
3 web_profiler
 
21.05.13
11:23
мда...
4 web_profiler
 
21.05.13
12:16
подскажите, как эту ерунду в уровень свернуть!!!

   ЭлементыФормы.Результат.Очистить();
   макет=ПолучитьМакет("Макет");
   ТабДокумент = ЭлементыФормы.Результат;

   ОбластьЗаголовок = Макет.ПолучитьОбласть("Графичек");
     Диаграмма=ОбластьЗаголовок.Рисунки.D1.Объект;  

     Диаграмма.СерииВСтроках=ложь;

 
   Диаграмма.Обновление = Ложь;
   
   Диаграмма.ОтображатьЗаголовок = Ложь;
 
   Запрос1 = Новый Запрос;
   Запрос1.Текст =
       "ВЫБРАТЬ
       |    Контрагенты.Ссылка
       |ИЗ
       |    Справочник.Контрагенты КАК Контрагенты
       |ГДЕ
       |    Контрагенты.ЭтоГруппа = ЛОЖЬ
       |    И Контрагенты.ПометкаУдаления = ЛОЖЬ";

   Результат1 = Запрос1.Выполнить();

   ВыборкаДетальныеЗаписи = Результат1.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   Диаграмма.Очистить();

      //создадим ТЗ для построения Диаграммы
      ТЗДиаграммы = ПолучитьТаблицуДиаграммы(ВыборкаДетальныеЗаписи.Ссылка);
     
      Для Каждого ТекСтр из ТЗДиаграммы цикл
         
       // Получить серию, точку и значение для них
       ТекущаяСерия = Диаграмма.УстановитьСерию(ТекСтр.Контрагент);
       ТекущаяСерия.Текст = ТекСтр.Контрагент.Наименование;
       ТекущаяТочка = Диаграмма.УстановитьТочку(ТекСтр.Точка);
       ТекущаяТочка.Текст = Строка(Формат(ТекСтр.Точка, "ДФ=dd.MM.yy"));
       Диаграмма.УстановитьЗначение(ТекущаяТочка, ТекущаяСерия, ТекСтр.Ресурс,Строка(Формат(ТекСтр.Точка, "ДФ=dd.MM.yy")), ТекСтр.Ресурс) ;
   КонецЦикла;
   
   
   Диаграмма.Обновление = Истина;
   
   
  ТабДокумент.Вывести(ОбластьЗаголовок);
 
  ТабДокумент.Защита = Ложь;
  ТабДокумент.ТолькоПросмотр = Истина;
  ТабДокумент.Показать();
   

КонецЦикла;
5 web_profiler
 
21.05.13
12:19
че за игнорирование темы, хоть пошлите меня куда нибудь?