8.х Диаграмма Ганта

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Антон Малов, 10 апр 2008.

  1. TopicStarter Overlay
    Антон Малов
    Offline

    Антон Малов

    Регистрация:
    4 апр 2008
    Сообщения:
    23
    Симпатии:
    0
    Баллы:
    1
    Помогите, пожалуйста.
    Расскажите как построить диаграмму ганта.
  2. рамиль
    Offline

    рамиль Опытный в 1С

    Регистрация:
    12 мар 2006
    Сообщения:
    595
    Симпатии:
    0
    Баллы:
    26
    Код:
    перем ЦветСерии;
    Диаграмма = ЭлементыФормы.ДиаграммаГанта;
    Диаграмма.Очистить();
    Диаграмма.АвтоОпределениеПолногоИнтервала = Истина;
    Запрос=Новый Запрос;
    Запрос.Текст="ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
    |	ДанныеСостоянияБилбордов.Период,
    |	ДанныеСостоянияБилбордов.Билборд,
    |	ДанныеСостоянияБилбордов.Состояние,
    |	ДанныеСостоянияБилбордов.ДатаОкончания
    |ИЗ
    |	РегистрСведений.ДанныеСостоянияБилбордов КАК ДанныеСостоянияБилбордов
    |
    |СГРУППИРОВАТЬ ПО
    |	ДанныеСостоянияБилбордов.Билборд,
    |	ДанныеСостоянияБилбордов.Период,
    |	ДанныеСостоянияБилбордов.Состояние,
    |	ДанныеСостоянияБилбордов.ДатаОкончания";	
    Выборка=Запрос.Выполнить().Выбрать();  
    ЦветЧерный = Новый Цвет(0, 0, 0); // черный
    КрасныйЦвет= Новый Цвет(255,0,0);
    СинийЦвет=Новый Цвет (0,0,255);   
    Точка=диаграмма.Точки.Добавить();
    Серия=Диаграмма.Серии.Добавить();
    
    
    Пока Выборка.Следующий() Цикл 
    
    
    //Диаграмма.УстановитьСерию("Серия");
    ЗначениеПериод = Диаграмма.ПолучитьЗначение(Точка, Серия);
    
    Интервал = ЗначениеПериод.Добавить();
    Интервал.Начало = Выборка.Период;
    Интервал.Конец  = Выборка.ДатаОкончания;
    Если Выборка.Состояние=Перечисления.СостояниеБилборда.Арендован Тогда
    ЦветСерии=СинийЦвет;
    ИначеЕсли  Выборка.Состояние=Перечисления.СостояниеБилборда.Зарезервирован Тогда
    ЦветСерии=КрасныйЦвет;
    <span style='cursor: pointer; color:red' Onclick="window.open('http://www.1c-pro.ru/wiki/index.php/иначеесли')">					ИначеЕсли	</span> Выборка.Состояние=Перечисления.СостояниеБилборда.Свободен Тогда
    ЦветСерии=ЦветЧерный;
    КонецЕсли;
    
    
    
    Интервал.цвет=ЦветСерии;
    КонецЦикла;
    
  3. Kutuzov
    Offline

    Kutuzov

    Регистрация:
    15 июн 2010
    Сообщения:
    10
    Симпатии:
    0
    Баллы:
    1
    http://help1c.com/faq/view/372.html Вот тебе сайт там код на построение примера диаграммы Ганта.
    Думаю, что разберешься что к чему относиться

Поделиться этой страницей