Настроить плоские полосы, подписи значений и рамку графика

Учебные задачи

Явно задаём вид интервала, расположение текста значения и рамку всей диаграммы. Не полагаемся на вид по умолчанию, зависящий от режима совместимости.

Где и как запускать

Модуль новой управляемой формы учебной внешней обработки. Код содержит готовые процедуры с директивами; вставляйте на уровне модуля, не внутрь другого обработчика. Каждую задачу запускайте в отдельной копии формы.

Подготовка

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

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

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

  4. Две вымышленные задачи 14–16 сентября 2026 года создаются только в памяти. Рабочие заказы, расписания и печать не используются.

  5. Это полная управляемая форма, не код общего модуля. Вставьте один урок целиком и назначьте обработчик ПриСозданииНаСервере в событиях новой формы.

  6. Данные создаются заново при открытии формы: подготовка в плане 09:00–12:00, в факте 09:00–13:00. Это 3 и 4 календарных часа, отклонение 1 час.

  7. Размеры и начальные настройки элемента задаются на сервере при создании. Кнопка учебной команды проверяет состояние на клиенте; никакие рабочие расписания не изменяются.

  8. График как значение и ПолеГанта как элемент формы — разные объекты. Масштаб данных настраивается у графика, размеры и текущее выделение — у поля.

  9. Запуск и внешний вид в 1С не проверялись. Автоматические проверки исходников не заменяют открытие EPF и ручной осмотр в вашем клиенте.

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Новые = Новый Массив;
    Новые.Добавить(Новый РеквизитФормы("УчебныйГрафик", Новый ОписаниеТипов("ДиаграммаГанта")));
    ЭтаФорма.ИзменитьРеквизиты(Новые);
    График = Новый ДиаграммаГанта;
    График.Обновление = Ложь;
    График.АвтоОпределениеПолногоИнтервала = Ложь;
    График.УстановитьПолныйИнтервал(Дата(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";
    График.ОтображениеИнтервала = ОтображениеИнтервалаДиаграммыГанта.Плоский;
    График.ОтображениеТекстаЗначения = ОтображениеТекстаЗначенияДиаграммыГанта.Право;
    График.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
    График.ЦветРамки = Новый Цвет(80, 105, 130);

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


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

&НаКлиенте
Процедура УчебноеДействие(Команда)
    График = УчебныйГрафик;
    Сообщить(График.ОтображениеИнтервала = ОтображениеИнтервалаДиаграммыГанта.Плоский);
    Сообщить(График.ОтображениеТекстаЗначения = ОтображениеТекстаЗначенияДиаграммыГанта.Право);
    Сообщить(ТипЗнч(График.Рамка) = Тип("Рамка"));
    Сообщить(График.ЦветРамки = Новый Цвет(80, 105, 130));
    Подготовка = График.УстановитьТочку("prepare");
    План = График.УстановитьСерию("plan");
    Плановое = График.ПолучитьЗначение(Подготовка, План);
    Сообщить(Плановое.Текст = "План подготовки");
    Сообщить(Плановое.Количество() = 1);
КонецПроцедуры

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

  1. Плоский — режим отображения интервалов, а не флаг растягивания или масштаб шкалы.

  2. Право задаёт расположение текста значения. У значения текст План подготовки, а у его интервала — Подготовка: 3 часа; это разные подписи.

  3. Конструктору Рамка передаём тип рамки и толщину. ЦветРамки относится ко всей диаграмме, не к отдельной полосе.

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

  5. Визуально сравниваем плановую синюю полосу с фактической зелёной: настройки подписи не меняют даты.

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

  1. Ожидаются шесть сообщений Истина; у плановой подготовки один интервал и текст значения План подготовки.

  2. Осмотрите плоские полосы, подписи справа и рамку. Для сравнения смените только Плоский на Градиент и откройте учебную форму заново.

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

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

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

  1. В установленной справке значение по умолчанию вида интервала различается для совместимости 8.3.22 и более новых режимов.

  2. Текст значения и текст интервала не взаимозаменяемы; при тесном расположении подписи могут накладываться.

  3. Сравнение типов рамки не доказывает её фактический вид в конкретной теме клиента.

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

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.