Нестандартный график работы сотрудника

 Процедура Отчет(ТабДок, ДГ, Сотрудник) Экспорт

	Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	СостояниеРаботниковОрганизаций.Период КАК Период,

	|	СостояниеРаботниковОрганизаций.Сотрудник КАК Сотрудник,

	|	СостояниеРаботниковОрганизаций.Состояние КАК Состояние,

	|	СостояниеРаботниковОрганизаций.ПериодЗавершения КАК ПериодЗавершения

	|ИЗ

	|	РегистрСведений.СостояниеРаботниковОрганизаций КАК СостояниеРаботниковОрганизаций

	|ГДЕ

	|	СостояниеРаботниковОрганизаций.Сотрудник = &Сотрудник

	|	И СостояниеРаботниковОрганизаций.Период МЕЖДУ &НачПериод И &КонПериод";



	Запрос.УстановитьПараметр("Сотрудник", Сотрудник); 

	Запрос.УстановитьПараметр("НачПериод", НачПериода); 

	Запрос.УстановитьПараметр("КонПериод", КонПериода); 

	Результат = Запрос.Выполнить().Выгрузить();        

	

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

	ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

	ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

    // Таб Док очистим и выведем заголовок

	ТабДок.Очистить();

	ТабДок.Вывести(ОбластьЗаголовок);

	

	// Установить заголовок диаграммы. 

	ДГ.ОбластьЗаголовка.Текст = "График Состояния"; 

	// Интервал будем определять самостоятельно. 

	ДГ.АвтоОпределениеПолногоИнтервала = Ложь; 

	// Установить интервал. С ПЕРВОГО ПЕРЕИОДА ПО ПОСЛЕДНИЙ

	ДГ.УстановитьПолныйИнтервал(Результат[0].Период, Результат[Результат.Количество()-1].Период); 

	// Добавим Сотрудника

	ТочкаС = ДГ.УстановитьТочку(Сотрудник); 

	

	ТабДок.Вывести(ОбластьШапкаТаблицы);

	Для Каждого Стр Из Результат Цикл 

		//Вывод в ТабДокумент

		ОбластьДетальныхЗаписей.Параметры.Заполнить(Стр);

		ТабДок.Вывести(ОбластьДетальныхЗаписей);



		//Вывод в Диаграмму 

		//Добавим серии СОСТОЯНИЕ

		СерияСост = ДГ.УстановитьСерию(Стр.Состояние); 

		// Получить значение диаграммы - Состояние Сотрудника. 

		Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияСост); 		

		// В значении определить новый интервал. 

		Интервал = Значение.Добавить(); 

		Интервал.Текст = Стр.Состояние; //НазваниеСостояния		

		// Определить границы интервала. 

		Интервал.Начало = Стр.Период; 

		Интервал.Конец = Стр.ПериодЗавершения; 

	КонецЦикла;

КонецПроцедуры