ЗначениеДиаграммыГанта.Очистить

Разбить сборку на два учебных интервала с часовым перерывом

Одно значение диаграммы содержит несколько полос. Суммарная длительность двух частей — четыре часа, календарный охват — пять.

Подготовка

1. В учебной базе создайте новую внешнюю обработку УчебнаяДиаграммаГанта с пустой управляемой основной формой.

2. Не добавляйте вручную реквизит УчебныйГрафик и поле ПолеГанта. В событиях формы свяжите ПриСозданииНаСервере с одноимённой процедурой.

3. Весь код вставьте на уровне модуля, сохраните EPF и откройте в тонком клиенте Windows. Каждый урок запускайте в отдельной копии формы.

4. Две вымышленные задачи 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";
    ПланСборки.Очистить();
    ДоОбеда = ПланСборки.Добавить();
    ДоОбеда.Начало = Дата(2026, 9, 14, 10);
    ДоОбеда.Конец = Дата(2026, 9, 14, 12);
    ДоОбеда.Текст = "Сборка до перерыва";
    ПослеОбеда = ПланСборки.Добавить();
    ПослеОбеда.Начало = Дата(2026, 9, 14, 13);
    ПослеОбеда.Конец = Дата(2026, 9, 14, 15);
    ПослеОбеда.Текст = "Сборка после перерыва";
    Проба = ПланСборки.Добавить();
    Проба.Начало = Дата(2026, 9, 14, 16);
    Проба.Конец = Дата(2026, 9, 14, 17);
    ПланСборки.Удалить(Проба);
    ПланСборки.Расшифровка = "training-assembly-split";
    ПланСборки.Цвет = Новый Цвет(80, 145, 210);
    ПланСборки.ЦветТекста = Новый Цвет(30, 45, 65);
    ПланСборки.ЦветФона = Новый Цвет(245, 250, 255);

    График.Обновление = Истина;
    ЭтаФорма.УчебныйГрафик = График;
    Поле = Элементы.Добавить("ПолеГанта", Тип("ПолеФормы"));
    Поле.Вид = ВидПоляФормы.ПолеДиаграммыГанта;
    Поле.ПутьКДанным = "УчебныйГрафик";
    Поле.РастягиватьПоГоризонтали = Истина;
    Поле.РастягиватьПоВертикали = Истина;

    КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
    КомандаДействия.Действие = "УчебноеДействие";
    КомандаДействия.Заголовок = "Проверить две части";
    КомандаДействия.Подсказка = "Действие только над данными учебной формы";
    КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
    Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
    Кнопка.ИмяКоманды = КомандаДействия.Имя;
    Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры

&НаКлиенте
Процедура УчебноеДействие(Команда)
    Сборка = УчебныйГрафик.УстановитьТочку("assemble");
    План = УчебныйГрафик.УстановитьСерию("plan");
    Значение = УчебныйГрафик.ПолучитьЗначение(Сборка, План);
    Итого = 0;
    Для Каждого Интервал Из Значение Цикл
        Итого = Итого + (Интервал.Конец - Интервал.Начало) / 3600;
    КонецЦикла;
    Сообщить(Значение.Количество() = 2);
    Сообщить(Итого = 4);
    Сообщить(Значение.Расшифровка = "training-assembly-split");
КонецПроцедуры

Разбор по шагам

1. Очищаем только значение пересечения Сборка × План новой диаграммы, не весь график.

2. Создаём части 10:00–12:00 и 13:00–15:00. Перерыв 12:00–13:00 не входит ни в одну полосу.

3. Временную пробу 16:00–17:00 удаляем по объекту интервала.

4. Значение само является коллекцией интервалов: его можно перебирать и получать Количество.

5. Суммируем длительность каждого интервала, не разность общего самого позднего конца и раннего начала.

Как проверить результат

1. На строке сборки две полосы с промежутком часа.

2. Три проверки Истина; сумма четырёх рабочих учебных часов.

3. План/факт подготовки остался прежним.

Ожидаемый результат

Понятно, почему одна задача может иметь несколько интервалов и как считать их длительность без перерыва.

На что обратить внимание

1. Очистить значения удаляет все его полосы: здесь это собственный учебный объект.

2. Перекрывающиеся интервалы при обычном суммировании дадут двойной счёт. В этом уроке части не пересекаются.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.