Вывод времени в диаграмме ганта - 1С - Ответ 6240174

@Александра2014 · 28.05.2014, 17:46 **[ТС]**

1C

Процедура Диаграмма()
    Если ВремяНачала<>Дата(1,1,1) И ВремяКонца<>Дата(1,1,1) И ВремяНачала<ВремяКонца  Тогда
    
    Запрос=Новый Запрос;
    Запрос.Текст= "ВЫБРАТЬ
    |   ИнформацияОДорожке.ВремяНачала,
    |   ИнформацияОДорожке.ВремяКонца,
    |   ИнформацияОДорожке.Бронь,
    |   ИнформацияОДорожке.Дорожка.Ссылка как Дорожка
    |ИЗ
    |   РегистрСведений.ИнформацияОДорожке КАК ИнформацияОДорожке";
    ВыборкаРезультата = Запрос.Выполнить().Выбрать(); 
    Диаграмма = ЭлементыФормы.ДиаграммаГанта;
    Диаграмма.АвтоОпределениеПолногоИнтервала = Ложь; 
    Диаграмма.Очистить();
         // Установить заголовок диаграммы. 
        Диаграмма.ОбластьЗаголовка.Текст = "Занятость Дорожек"; 
        ВремяНач = ЭлементыФормы.ВремяНачала.Значение;
    ВремяКон = ЭлементыФормы.ВремяКонца.Значение;
    Диаграмма.УстановитьПолныйИнтервал(ВремяНач ,ВремяКон);
    
    Если Диаграмма.ОбластьПостроения.ШкалаВремени.Элементы.Количество() = 1 Тогда   
       Диаграмма.ОбластьПостроения.ШкалаВремени.Элементы.Добавить().Единица=ТипЕдиницыШкалыВремени.Час;
    КонецЕсли;
//здесь определяем границы временного интервала, на случай, если работает несколько дорожек.
    Запрос=Новый Запрос;
   Запрос.Текст= "ВЫБРАТЬ
                  | МИНИМУМ(ИнформацияОДорожке.ВремяНачала) КАК ВремяНачала,
                  | МАКСИМУМ(ИнформацияОДорожке.ВремяКонца) КАК ВремяКонца
                  |ИЗ
                  | РегистрСведений.ИнформацияОДорожке КАК ИнформацияОДорожке                  
                  |ГДЕ
                  | ИнформацияОДорожке.ВремяНачала >= &ВремяНач
                  | И ИнформацияОДорожке.ВремяКонца <= &ВремяКон";
                  Запрос.УстановитьПараметр("ВремяНач", ЭлементыФормы.ВремяНачала.Значение);
                  Запрос.УстановитьПараметр("ВремяКон", ЭлементыФормы.ВремяКонца.Значение);
   ВыборкаВремяРаботы = Запрос.Выполнить().Выбрать(); 
    Если ВыборкаВремяРаботы.Следующий() И ВыборкаВремяРаботы.ВремяНачала <> Null И ВыборкаВремяРаботы.ВремяКонца <> Null Тогда
        ВремяНач = ВыборкаВремяРаботы.ВремяНачала;
        ВремяКон = ВыборкаВремяРаботы.ВремяКонца;
    КонецЕсли;
    Диаграмма.УстановитьПолныйИнтервал(ВремяНач,ВремяКон);
    СерияЗанят = Диаграмма.УстановитьСерию("Занят");
    СерияБронь = Диаграмма.УстановитьСерию("Бронь");
        Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    | Дорожки.Ссылка Как Имя,
    | Дорожки.Порядок
    |ИЗ
    | Перечисление.Дорожки КАК Дорожки";
    
    
    Рег=Запрос.Выполнить().Выбрать();
    
    
    
    Пока Рег.Следующий() Цикл 
        
        Точка=Диаграмма.УстановитьТочку(Рег.Имя);
        
        Пока ВыборкаРезультата.Следующий() Цикл 
                        
            
            Если ВыборкаРезультата.Дорожка=Рег.Имя Тогда     
                
                Если ВыборкаРезультата.Бронь=Ложь Тогда 
                    СерияЗанят.Цвет =WebЦвета.Синий;
                    
                    Значение = Диаграмма.ПолучитьЗначение(Точка, СерияЗанят);
                    Интервал = Значение.Добавить();
                    Интервал.Текст = "занят";
                    
                    Интервал.Начало=ВыборкаРезультата.ВремяНачала;
                    Интервал.Конец=ВыборкаРезультата.ВремяКонца;
                    Интервал.Цвет = WebЦвета.Синий;
                Иначе 
                    СерияБронь.Цвет =WebЦвета.Красный;
                    
                    Значение = Диаграмма.ПолучитьЗначение(Точка, СерияБронь);
                    Интервал = Значение.Добавить();
                    Интервал.Текст = "бронь";   
                    
                    
                    Интервал.Начало=ВыборкаРезультата.ВремяНачала;
                    Интервал.Конец=ВыборкаРезультата.ВремяКонца;
                    Интервал.Цвет = WebЦвета.Красный;
 
                КонецЕсли;
            КонецЕсли;
            
        КонецЦикла;
        
        ВыборкаРезультата.Сбросить();
        
    КонецЦикла;
    
     КонецЕсли;
    
 
 КонецПроцедуры
 
 Процедура ВремяНачалаПриИзменении(Элемент)
     Диаграмма();
 КонецПроцедуры

Вернуться к обсуждению:
Вывод времени в диаграмме ганта 1С

Следующий ответ

Другие темы раздела
1С Получение данных из регистра Мне необходимо что бы данные из ресурса регистра сведений автоматически переносились в один из столбцов табличной части документа, можно ли такое сделать. Если можно подскажите как. https://www.cyberforum.ru/ 1c-custom/ thread1185656.html	1С Как в 1С 8.1 учебная версия Конфигурирование сделать запрет проведения документа с пустыми незаполненными поля Как в 1С 8.1 учебная версия Конфигурирование сделать запрет проведения документа с пустыми незаполненными полями?
1С Отчет из иерархического стравочника Доброго времени суток. Возникла проблема при создании отчета. Данные из иерархического справочника(иерархия элементов), нужно вывести в отчет согласно иерархии, например, ЦИК ИКСРФ_1 ТИК_1 УИК_1 УИК_2 ТИК_2 УИК_3 УИК_4 https://www.cyberforum.ru/ 1c-custom/ thread1184902.html	1С Отчет по регионам Вывести отчет... В отчете есть два типа адреса Регионы и Минск..как вывести список по Минску и Регионам.. Пример: Тз = Новый ТаблицаЗначений; Тз.Колонки.Добавить("Менеджер"); Тз.Колонки.Добавить("Бренды"); Тз.Колонки.Добавить("ТипАдреса"); Тз.Колонки.Добавить("КолВо"); Тз.Колонки.Добавить("Сумма"); https://www.cyberforum.ru/ 1c-custom/ thread1184812.html
1С Преобразовать строку в часы Необходимо в формуле преобразовать строку в часы, почему то не выходит, что делать подскажите ВремяБезДатыНачало=ЭлементыФормы.ВремяНачала.Значение-НачалоДня(ЭлементыФормы.ВремяНачала.Значение); ВремяБезДатыКонца=ЭлементыФормы.ВремяКонца.Значение-НачалоДня(ЭлементыФормы.ВремяКонца.Значение); ...	1С Автоматическое заполнение документа из регистра сведений Здравствуйте. Проблема с заполнением документа. В нем много полей в ТЧ, но по заданию в ручную забивается толькоо поле Оборудование, а остальные должны автоматически. Это документ Сопроводитель на заказ для типографии. Все данные в разных регистрах сведений, но получается вернуть только то значение, которое зависит от поля Оборудование. Поле услуга, формат, КоличествоЛистов заполняются сами на... https://www.cyberforum.ru/ 1c-custom/ thread1184300.html
1С Ошибка при выполнении https://www.cyberforum.ru/ 1c-custom/ thread1184179.html Новичок в изучении 1С Ошибка: {ОбщийМодуль.РаботаСоСправочниками.Модуль(6)}: Ошибка при вызове метода контекста (ПолучитьПоследнее): Недопустимое значение параметра (параметр номер '2') ЗначенияРесурсов=РегистрыСведений.ЦеныНаУслуги.ПолучитьПоследнее(АктуальнаяДата,Отбор); по причине: Недопустимое значение параметра (параметр номер '2') Сама функция: Функция...	1С Как сделать не большую программу (типа встроенного калькулятора) Добрый день! Нуждаюсь в вашей помощи. Хочу написать программу типо встроенного калькулятора , но что бы считала проценты накрутки от суммы. То есть вводишь число , а она выдает цену. Допустим до 1000 50 % , 1000 - 2000 45%. Я думаю это делается с помощью if else. Вот только не соображу как.
1С 1С 8.1 Конфигурирование Как достать данные из Табличной части справочника? Доброго дня!!! Подскажите пожалуйста!!! У меня Существует справочник Преподаватели и в табличной части представлены предметы, по которым преподает препод их может быть несколько! Мне необходимо в Документ УстановлениеОценок в реквизите Предмет выбрать какой один предмет из этой табличной части. Возможно ли это сделать? https://www.cyberforum.ru/ 1c-custom/ thread1183418.html	1С Получение из регистра сведений Подсккажите как из регистра сведений получить предпоследнюю и последнюю записи https://www.cyberforum.ru/ 1c-custom/ thread1183328.html
1С Регламентированный отчет Декларация по ЕНВД Нужно сделать следующее Изменяем справочник контрагентов (добавляем реквизиты): 1. Налоговая инспекция (создать справочник с кодом (строка 4 символа) и наименованием (строка 100 символов)) 2. ОКТМО (строка 8 символов) 3. КодПД (код предпринимательской деятельности) - (Строка 2 символа) 4. ДатаПостановкиНаУчет (Дата) 5. ДатаСнятияСУчета (Дата) Изменяем регламентированный отчет...	1С Трудности при получении данных В справочнике ВидМатериала находятся реквизиты Наименование, ПлотностьСырья и т.д. Процедура РасчетВеса данные по Диаметру и Длине трубы получает, а по Виду материала ничего не выдает. Как я понял, это из-за того, что у этого справочника несколько реквизитов. Каким образом можно получить эти данные в данном случае? Заранее спасибо https://www.cyberforum.ru/ 1c-custom/ thread1183044.html

	28.05.2014, 17:46