Точки — задачи, серии — План/Факт, значение — их пересечение, интервалы — полосы времени. Полная форма показывает эти четыре разных сущности.
Где и как запускать
Модуль новой управляемой формы учебной внешней обработки. Код содержит готовые процедуры с директивами; вставляйте на уровне модуля, не внутрь другого обработчика. Каждую задачу запускайте в отдельной копии формы.
Подготовка
В учебной базе создайте новую внешнюю обработку УчебнаяДиаграммаГанта с пустой управляемой основной формой.
Не добавляйте вручную реквизит УчебныйГрафик и поле ПолеГанта. В событиях формы свяжите ПриСозданииНаСервере с одноимённой процедурой.
Весь код вставьте на уровне модуля, сохраните EPF и откройте в тонком клиенте Windows. Каждый урок запускайте в отдельной копии формы.
Две вымышленные задачи 14–16 сентября 2026 года создаются только в памяти. Рабочие заказы, расписания и печать не используются.
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Новые = Новый Массив;
Новые.Добавить(Новый РеквизитФормы("УчебныйГрафик", Новый ОписаниеТипов("ДиаграммаГанта")));
ЭтаФорма.ИзменитьРеквизиты(Новые);
График = Новый ДиаграммаГанта;
График.Обновление = Ложь;
График.АвтоОпределениеПолногоИнтервала = Ложь;
График.УстановитьПолныйИнтервал(Дата(2026, 9, 14, 9), Дата(2026, 9, 16, 18));
График.АвтоУстановкаТекстаСерий = Ложь;
График.АвтоУстановкаТекстаТочек = Ложь;
График.ОтображатьПустыеЗначения = Ложь;
График.ОтображениеТекстаИнтервала = ОтображениеТекстаИнтервалаДиаграммыГанта.Отображать;
График.ПрозрачныйФон = Ложь;
График.ЦветФона = Новый Цвет(255, 255, 255);
График.Окантовка = Истина;
План = График.УстановитьСерию("plan");
План.Текст = "Учебный план";
План.Цвет = Новый Цвет(80, 145, 210);
План.ПриоритетЦвета = Истина;
Факт = График.УстановитьСерию("actual");
Факт.Текст = "Учебный факт";
Факт.Цвет = Новый Цвет(95, 165, 95);
Факт.ПриоритетЦвета = Истина;
Подготовка = График.УстановитьТочку("prepare");
Подготовка.Текст = "Подготовка учебного комплекта";
Сборка = График.УстановитьТочку("assemble");
Сборка.Текст = "Сборка учебного комплекта";
ПланПодготовки = График.ПолучитьЗначение(Подготовка, План);
ПланПодготовки.Текст = "План подготовки";
ПланПодготовки.Редактирование = Ложь;
Первый = ПланПодготовки.Добавить();
Первый.Начало = Дата(2026, 9, 14, 9);
Первый.Конец = Дата(2026, 9, 14, 12);
Первый.Текст = "Подготовка: 3 часа";
Первый.Расшифровка = "training-prepare-plan";
ПланСборки = График.ПолучитьЗначение(Сборка, План);
ПланСборки.Текст = "План сборки";
ПланСборки.Редактирование = Ложь;
Второй = ПланСборки.Добавить();
Второй.Начало = Дата(2026, 9, 14, 13);
Второй.Конец = Дата(2026, 9, 15, 11);
Второй.Текст = "Сборка учебного комплекта";
Второй.Расшифровка = "training-assemble-plan";
ФактПодготовки = График.ПолучитьЗначение(Подготовка, Факт);
ФактПодготовки.Редактирование = Ложь;
Фактический = ФактПодготовки.Добавить();
Фактический.Начало = Дата(2026, 9, 14, 9);
Фактический.Конец = Дата(2026, 9, 14, 13);
Фактический.Текст = "Учебный факт: 4 часа";
Заголовок = График.ОбластьЗаголовка;
Заголовок.Текст = "Учебный план и факт — 14–16.09.2026";
Область = График.ОбластьПостроения;
Область.Заголовок = "Учебные задачи";
Область.ОтображатьТекстТочек = ОтображениеВДиаграммеГанта.Отображать;
Шкала = Область.ШкалаВремени;
Пока Шкала.Элементы.Количество() > 0 Цикл
Шкала.Элементы.Удалить(Шкала.Элементы.Получить(0));
КонецЦикла;
Дни = Шкала.Элементы.Добавить();
Дни.Единица = ТипЕдиницыШкалыВремени.День;
Дни.Кратность = 1;
Дни.Формат = "ДФ=dd.MM";
График.Обновление = Истина;
ЭтаФорма.УчебныйГрафик = График;
Поле = Элементы.Добавить("ПолеГанта", Тип("ПолеФормы"));
Поле.Вид = ВидПоляФормы.ПолеДиаграммыГанта;
Поле.ПутьКДанным = "УчебныйГрафик";
Поле.РастягиватьПоГоризонтали = Истина;
Поле.РастягиватьПоВертикали = Истина;
КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
КомандаДействия.Действие = "УчебноеДействие";
КомандаДействия.Заголовок = "Сравнить подготовку";
КомандаДействия.Подсказка = "Действие только над данными учебной формы";
КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
Кнопка.ИмяКоманды = КомандаДействия.Имя;
Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры
&НаКлиенте
Процедура УчебноеДействие(Команда)
График = УчебныйГрафик;
Подготовка = График.УстановитьТочку("prepare");
План = График.УстановитьСерию("plan");
Факт = График.УстановитьСерию("actual");
Плановое = График.ПолучитьЗначение(Подготовка, План);
Фактическое = График.ПолучитьЗначение(Подготовка, Факт);
ПлановыеЧасы = 0;
Для Каждого Интервал Из Плановое Цикл
ПлановыеЧасы = ПлановыеЧасы + (Интервал.Конец - Интервал.Начало) / 3600;
Сообщить(График.НайтиИнтервалПоИдентификатору(Интервал.Идентификатор) = Интервал);
Сообщить(Интервал.Значение = Плановое);
КонецЦикла;
ФактическиеЧасы = 0;
Для Каждого Интервал Из Фактическое Цикл
ФактическиеЧасы = ФактическиеЧасы + (Интервал.Конец - Интервал.Начало) / 3600;
КонецЦикла;
Сообщить(ПлановыеЧасы = 3);
Сообщить(ФактическиеЧасы = 4);
Сообщить(ФактическиеЧасы - ПлановыеЧасы = 1);
Сообщить(График.НайтиЗначениеПоИдентификатору(Плановое.Идентификатор) = Плановое);
Сообщить(Плановое.Точка = Подготовка);
Сообщить(Плановое.Серия = План);
Сообщить(График.НачалоПолногоИнтервала = Дата(2026, 9, 14, 9));
Сообщить(График.КонецПолногоИнтервала = Дата(2026, 9, 16, 18));
КонецПроцедуры
Разбор по шагам
УстановитьТочку и УстановитьСерию создают либо находят сущность по Значение. Повторный вызов для известного ключа не должен добавлять дубль.
ПолучитьЗначение получает пересечение точки и серии; Добавить у значения создаёт полосу времени.
В примере подготовка в плане 09:00–12:00, в факте 09:00–13:00. Разность дат делим на 3600.
Идентификаторы значения и интервала имеют разные типы и разные методы поиска.
Полный интервал установлен методом, его свойства доступны для чтения. Обновление включаем после заполнения графика.
Интервал сборки проходит через ночь: это непрерывный календарный диапазон, не расчёт рабочих часов по сменам.
Как проверить результат
Видны две задачи, синие плановые полосы и зелёный факт подготовки.
Кнопка выдаёт десять Истина: план 3 часа, факт 4, отклонение 1 и проверки связей/границ.
Нажмите повторно: новых задач и серий не добавилось.
Ожидаемый результат
Показана реальная план-факт задача с проверкой дат и идентификаторов всех уровней диаграммы.
На что обратить внимание
ИдентификаторИнтервалаДиаграммыГанта и ИдентификаторЗначенияДиаграммыГанта нельзя взаимозаменять.
Полоса сборки не исключает ночи/выходные. Для рабочих часов нужен отдельный календарь.
Все даты вымышлены и фиксированы; текущий день компьютера не используется.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.