Не сворачивается по уровням Табличный документ
☑
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
че за игнорирование темы, хоть пошлите меня куда нибудь?
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой