Имя: Пароль:
1C
1С v8
Диаграмма Ганта
0 1С_Дурик
 
19.01.12
18:55
Приветствую. Подскажите как сделать подпись, как на рисунке, рядом со шкалой.Спасибо
http://v8.1c.ru/overview/images/PlTabDoc7_1.PNG
1 1С_Дурик
 
19.01.12
18:57
Делаю так, не получается
Диаграмма = ЭлементыФормы.ДиаграммаГанта1;
ТекущаяСерия    = Диаграмма.УстановитьСерию(РезультатЗапроса.ВидРасчета);
ТекущаяТочка    = Диаграмма.УстановитьТочку(РезультатЗапроса.Сотрудник);
ТекущееЗначение = Диаграмма.ПолучитьЗначение(ТекущаяТочка, ТекущаяСерия);
Интервал = ТекущееЗначение.Добавить();
Интервал.Текст ="Бррр";
2 zladenuw
 
19.01.12
19:01
интервал.Значение.Текст = ...,  если просто Интервал.Текст  то при наведении на интервал он будет отображаться
3 1С_Дурик
 
19.01.12
19:12
Не получается http://i31.fastpic.ru/big/2012/0119/bc/735d534f74b1ecbe1de133d328ef25bc.jpg
Подсказка работает, а рядом не выводит


Диаграмма = ЭлементыФормы.ДиаграммаГанта1;
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ПериодДействияНачало",Дата(2005,12,1));
   Запрос.УстановитьПараметр("ПериодДействияКонец",Дата(2006,1,31));

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

   Диаграмма.Очистить();
   
   Пока РезультатЗапроса.Следующий() Цикл
       ТекущаяСерия    = Диаграмма.УстановитьСерию(РезультатЗапроса.ВидРасчета);
       ТекущаяТочка    = Диаграмма.УстановитьТочку(РезультатЗапроса.Сотрудник);
       ТекущееЗначение = Диаграмма.ПолучитьЗначение(ТекущаяТочка, ТекущаяСерия);
       
       ТекущийИнтервал = ТекущееЗначение.Добавить();
       ТекущийИнтервал.Значение.Текст="Брр";
       ТекущийИнтервал.Текст = "Работает";
       ТекущийИнтервал.Начало = РезультатЗапроса.ПериодДействияНачало;
       ТекущийИнтервал.Конец  = РезультатЗапроса.ПериодДействияКонец;
       ТекущийИнтервал.Расшифровка = РезультатЗапроса.Регистратор;
       
   КонецЦикла;
   
   Диаграмма.Обновление = Истина;
4 ChAlex
 
19.01.12
19:18
(3)Должно еще быть Диаграмма.ОтображениеТекстаЗначения=Истина
5 Asmody
 
19.01.12
19:19
Диаграмма.ОтображениеТекстаЗначения=ОтображениеТекстаЗначенияДиаграммыГанта.Право;
6 ChAlex
 
19.01.12
19:20
Да и еще, отображается только в том случае, если место справа от ленты имеется. и притом только после последнего интервала
7 ChAlex
 
19.01.12
19:21
(5) сорри - действительно право.
8 ChAlex
 
19.01.12
19:22
А вообще - 1С диаграмма ганта - убогость страшная, сам мучаюсь - местами перешел на просто таблицы, хотя тоже не фонтан
9 1С_Дурик
 
19.01.12
19:24
Спасибо большое.Помогло.