1С 8.x : Заполним диаграмму Ганта данными

 ДГ = ЭлементыФормы.ДГ; 



// Установить заголовок диаграммы. 

ДГ.ОбластьЗаголовка.Текст = "График дежурств"; 



// Интервал будем определять самостоятельно. 

ДГ.АвтоОпределениеПолногоИнтервала = Ложь; 



// Установить интервал. 

ДГ.УстановитьПолныйИнтервал(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата())); 



// В диаграмме будет две точки - сотрудники Петров и Сидоров... 

ТочкаП = ДГ.УстановитьТочку("Петров"); 

ТочкаС = ДГ.УстановитьТочку("Сидоров"); 



// и две серии - дежурство на вахте и дежурство в центральном офисе. 

СерияНаВахте = ДГ.УстановитьСерию("На вахте"); 

СерияВЦентре = ДГ.УстановитьСерию("В центральном офисе"); 



// Задать цвета серий, отличные от цвета по умолчанию. 

СерияНаВахте.Цвет = WebЦвета.Синий; 

СерияВЦентре.Цвет = WebЦвета.СветлоЖелтый; 

ПервыйДень = НачалоМесяца(ТекущаяДата()); 



// Получить значение диаграммы - дежурство Петрова на вахте. 

Значение = ДГ.ПолучитьЗначение(ТочкаП, СерияНаВахте); 



// В значении определить новый интервал. 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает на вахте"; 



// Определить границы интервала. 

Интервал.Начало = ПервыйДень; 

Интервал.Конец = ПервыйДень + 10 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Петрова в центральном офисе. 

Значение = ДГ.ПолучитьЗначение(ТочкаП, СерияВЦентре); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает в центральном офисе"; 

Интервал.Начало = ПервыйДень + 14 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 24 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Сидорова на вахте. 

Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияНаВахте); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает на вахте"; 

Интервал.Начало = ПервыйДень + 5 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 15 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Сидорова в центральном офисе. 

Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияВЦентре); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает в центральном офисе"; 

Интервал.Начало = ПервыйДень + 21 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 25 * 24 * 60 * 60;