Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 03:43

Планировщик проблема с пересечением баров

Автор snoop82, 24 окт 2017, 18:41

0 Пользователей и 1 гость просматривают эту тему.

snoop82

Всем доброго времени суток.
Ни кто не сталкивался с такой ситуацией, когда один бар визуально не влазит между двумя другими и смещается в низ
хотя между ними есть зазоры (в моем примере 2 минуты)
и в то же время имеется Бар который пересекается с соседними и нормально влазит в одну строчку
в моем примере бар "Б" влесть был не должен
а бар "Г" должен. А получилось наоборот.

Во вложении скрин и обработка.
Спасибо.

код из обработки:

        ДатаНачалаПланирования = Дата("20171006");
   ДатаКонцаПланирования = Дата("20171012235959");
   
   Планировщик.ШкалаВремени.Элементы[1].Видимость = Ложь;
   
   Планировщик.ТекущиеПериодыОтображения.Очистить();
   Планировщик.ТекущиеПериодыОтображения.Добавить(ДатаНачалаПланирования, ДатаКонцаПланирования);
   Планировщик.НачалоПериодаОтображения = Дата("20171006");
   Планировщик.КонецПериодаОтображения = Дата("20171012235959");
   
   ИзмерениеТС = Планировщик.Измерения.Добавить("Измерение1");
   
   НовыйТС = ИзмерениеТС.Элементы.Добавить(1);
   НовыйТС.Текст = "текст";
   
   СоответствиеЗначений = Новый Соответствие;
   СоответствиеЗначений.Вставить("Измерение1",   1);
   
   НовыйЭлемент = Планировщик.Элементы.Добавить(Дата("20171006000000"), Дата("201710061501"));
   НовыйЭлемент.ЗначенияИзмерений  = Новый ФиксированноеСоответствие(СоответствиеЗначений);
   НовыйЭлемент.Текст = "А";

   НовыйЭлемент = Планировщик.Элементы.Добавить(Дата("201710061459"), Дата("201710061801"));
   НовыйЭлемент.ЗначенияИзмерений  = Новый ФиксированноеСоответствие(СоответствиеЗначений);
   НовыйЭлемент.Текст = "Б";

   НовыйЭлемент = Планировщик.Элементы.Добавить(Дата("201710061759"), Дата("201710070759"));
   НовыйЭлемент.ЗначенияИзмерений  = Новый ФиксированноеСоответствие(СоответствиеЗначений);
   НовыйЭлемент.Текст = "В";
   
   НовыйЭлемент = Планировщик.Элементы.Добавить(Дата("201710070801"), Дата("201710071059"));
   НовыйЭлемент.ЗначенияИзмерений  = Новый ФиксированноеСоответствие(СоответствиеЗначений);
   НовыйЭлемент.Текст = "Г";

   НовыйЭлемент = Планировщик.Элементы.Добавить(Дата("201710071101"), Дата("201710080859"));
   НовыйЭлемент.ЗначенияИзмерений  = Новый ФиксированноеСоответствие(СоответствиеЗначений);
   НовыйЭлемент.Текст = "Д";

snoop82

Забыл еще добавить
если к примеру уменьшить окончание шкалы времени к примеру на 09.10.2017, то все влазит.
но это важно.
шкала времени настраивается пользователем и может быть какой угодно
в этом собственно и проблема что при определенных границах шкалы времени все слетает.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск