Untitled
plain_text
a month ago
2.5 kB
0
Indexable
Never
&НаСервере Процедура СформироватьНаСервере() Диаграмма.Очистить(); Диаграмма.Обновление = Ложь; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ОсновныеНачисленияФактическийПериодДействия.ВидРасчета КАК ВидРасчета, | ОсновныеНачисленияФактическийПериодДействия.ПериодДействияНачало КАК Начало, | ОсновныеНачисленияФактическийПериодДействия.ПериодДействияКонец КАК Конец, | ОсновныеНачисленияФактическийПериодДействия.Сотрудник КАК Сотрудник |ИЗ | РегистрРасчета.ОсновныеНачисления.ФактическийПериодДействия КАК ОсновныеНачисленияФактическийПериодДействия |ГДЕ | ОсновныеНачисленияФактическийПериодДействия.ПериодДействия МЕЖДУ &НачалоПериод И &КонецПериода"; Запрос.УстановитьПараметр("КонецПериода", Период.ДатаОкончания); Запрос.УстановитьПараметр("НачалоПериод", Период.ДатаНачала); РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); Пока Выборка.Следующий() Цикл Точка = Диаграмма.УстановитьТочку(Выборка.Сотрудник); Серия = Диаграмма.УстановитьСерию(Выборка.ВидРасчета); Значение = Диаграмма.ПолучитьЗначение(Точка, Серия); Интервал = Значение.Добавить(); Интервал.Начало = Выборка.Начало; Интервал.Конец = Выборка.Конец; КонецЦикла; Диаграмма.Обновление = Истина; КонецПроцедуры &НаКлиенте Процедура Сформировать(Команда) СформироватьНаСервере(); КонецПроцедуры