Untitled

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

&НаКлиенте
Процедура Сформировать(Команда)
	СформироватьНаСервере();
КонецПроцедуры