Перем СоответствиеГрафикНорма;
СоответствиеГрафикНорма = Новый Соответствие;
// Функция возвращает норму времени в часах на указанный день по указанному сотруднику
Функция ПолучитьНормуВремениПоДню(Сотрудник, Период, НомерДня)
Попытка
ПериодРегистрации = Период;
ГрафикСотрудника = СоответствиеСотрудникГрафик.Получить(Сотрудник);
Если ГрафикСотрудника = Неопределено Тогда
// Графика по этому сотруднику еще нет, нужно получить
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
Запрос.УстановитьПараметр("ПериодРегистрации", ПериодРегистрации);
ТекстЗапроса = "ВЫБРАТЬ
| ДатаТабеля
|
|ПОМЕСТИТЬ ВТДатыТабеля
| ИЗ (
| ВЫБРАТЬ
| ДАТАВРЕМЯ(" + Формат(Год(ПериодРегистрации), "ЧГ=4") + ", " + Месяц(ПериодРегистрации) + " , 1) КАК ДатаТабеля
| ";
Для ИндексДня = 2 По День(КонецМесяца(ПериодРегистрации)) Цикл
ТекстЗапроса = ТекстЗапроса +
"ОБЪЕДИНИТЬ ВСЕ
|ВЫБРАТЬ
| ДАТАВРЕМЯ(" + Формат(Год(ПериодРегистрации), "ЧГ=4")+ ", " + Месяц(ПериодРегистрации) + " ," + ИндексДня + ")
| ";
КонецЦикла;
ТекстЗапроса = ТекстЗапроса + ") КАК ДатыТабеля";
Запрос.Текст = ТекстЗапроса;
Запрос.Выполнить();
Запрос.Текст = "ВЫБРАТЬ
| РаботникиОрганизаций.Период,
| РаботникиОрганизаций.Сотрудник,
| РаботникиОрганизаций.ГрафикРаботы
|ПОМЕСТИТЬ ВТРаботникиОрганизаций
|ИЗ
| РегистрСведений.РаботникиОрганизаций КАК РаботникиОрганизаций
|ГДЕ РаботникиОрганизаций.Сотрудник = &Сотрудник
| И РаботникиОрганизаций.Период > &ПериодРегистрации
| И РаботникиОрганизаций.Период <= КонецПериода(&ПериодРегистрации, МЕСЯЦ)
| И РаботникиОрганизаций.ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| РаботникиОрганизацийСрезПоследних.Период,
| РаботникиОрганизацийСрезПоследних.Сотрудник,
| РаботникиОрганизацийСрезПоследних.ГрафикРаботы
|ИЗ
| РегистрСведений.РаботникиОрганизаций.СрезПоследних(&ПериодРегистрации, Сотрудник = &Сотрудник) КАК РаботникиОрганизацийСрезПоследних
|ГДЕ
| РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)";
Запрос.Выполнить();
Запрос.Текст = "ВЫБРАТЬ
| ДатыИзмененияГрафика.ДатаТабеля,
| ДатыИзмененияГрафика.Сотрудник,
| ДатыИзмененияГрафика.Период,
| РаботникиОрганизаций.ГрафикРаботы
|ПОМЕСТИТЬ ВТДатыСотрудникГрафик
|ИЗ
| (ВЫБРАТЬ
| ВТДатыТабеля.ДатаТабеля КАК ДатаТабеля,
| ВТРаботникиОрганизаций.Сотрудник КАК Сотрудник,
| МАКСИМУМ(ВТРаботникиОрганизаций.Период) КАК Период
| ИЗ
| ВТДатыТабеля КАК ВТДатыТабеля
| ЛЕВОЕ СОЕДИНЕНИЕ ВТРаботникиОрганизаций КАК ВТРаботникиОрганизаций
| ПО (ВТРаботникиОрганизаций.Период <= ВТДатыТабеля.ДатаТабеля)
|
| СГРУППИРОВАТЬ ПО
| ВТДатыТабеля.ДатаТабеля,
| ВТРаботникиОрганизаций.Сотрудник) КАК ДатыИзмененияГрафика
| ЛЕВОЕ СОЕДИНЕНИЕ ВТРаботникиОрганизаций КАК РаботникиОрганизаций
| ПО (РаботникиОрганизаций.Период = ДатыИзмененияГрафика.Период)
| И (РаботникиОрганизаций.Сотрудник = ДатыИзмененияГрафика.Сотрудник)";
Запрос.Выполнить();
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| ГрафикиРаботы.ГрафикРаботы,
| ГрафикиРаботы.Дата,
| ГрафикиРаботы.ОсновноеЗначение
|ПОМЕСТИТЬ ВТГрафикиРаботы
|ИЗ
| ВТРаботникиОрганизаций КАК РаботникиОрганизаций
|ЛЕВОЕ СОЕДИНЕНИЕ
| РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ГрафикиРаботы
|ПО
| (ГрафикиРаботы.ГрафикРаботы = РаботникиОрганизаций.ГрафикРаботы
| ИЛИ ГрафикиРаботы.ГрафикРаботы = РаботникиОрганизаций.Сотрудник)
| И ГрафикиРаботы.Месяц = &ПериодРегистрации
| И ГрафикиРаботы.План
| И ГрафикиРаботы.ВидУчетаВремени = ЗНАЧЕНИЕ(Перечисление.ВидыУчетаВремени.ПоЧасам)";
Запрос.Выполнить();
Запрос.Текст = "ВЫБРАТЬ
| ЕСТЬNULL(ИндивидуальныйГрафик.ГрафикРаботы, ОбщийГрафик.ГрафикРаботы) КАК ГрафикРаботы,
| ДЕНЬ(ДатыТабеля.ДатаТабеля) КАК НомерДня,
| ЕСТЬNULL(ИндивидуальныйГрафик.ОсновноеЗначение, ОбщийГрафик.ОсновноеЗначение) КАК НормаЧасов
|
|ИЗ
| ВТДатыСотрудникГрафик КАК ДатыТабеля
|
| ЛЕВОЕ СОЕДИНЕНИЕ
| РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ИндивидуальныйГрафик
|ПО
| ИндивидуальныйГрафик.ГрафикРаботы = ДатыТабеля.Сотрудник
| И ИндивидуальныйГрафик.Дата = ДатыТабеля.ДатаТабеля
| И ИндивидуальныйГрафик.Месяц = &ПериодРегистрации
| И ИндивидуальныйГрафик.ВидУчетаВремени = Значение(Перечисление.ВидыУчетаВремени.ПоЧасам)
| И ИндивидуальныйГрафик.План
|
|ЛЕВОЕ СОЕДИНЕНИЕ
| РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ОбщийГрафик
|ПО
| ОбщийГрафик.ГрафикРаботы = ДатыТабеля.ГрафикРаботы
| И ОбщийГрафик.Дата = ДатыТабеля.ДатаТабеля
| И ОбщийГрафик.Месяц = &ПериодРегистрации
| И ОбщийГрафик.ВидУчетаВремени = Значение(Перечисление.ВидыУчетаВремени.ПоЧасам)
| И ОбщийГрафик.План
| УПОРЯДОЧИТЬ ПО ГрафикРаботы, НомерДня, НормаЧасов";
РезультатЗапроса = Запрос.Выполнить();
МассивНормыДней = РезультатЗапроса.Выгрузить().ВыгрузитьКолонку("НормаЧасов");
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();
ГрафикРаботы = Выборка.ГрафикРаботы;
СоответствиеСотрудникГрафик.Вставить(Сотрудник, ГрафикРаботы);
СоответствиеГрафикНорма.Вставить(ГрафикРаботы, МассивНормыДней);
Возврат МассивНормыДней[НомерДня-1];
Иначе
МассивДней = СоответствиеГрафикНорма.Получить(ГрафикСотрудника);
Возврат МассивДней[НомерДня-1];
КонецЕсли;
Исключение
//номер дня неверный, (29,31...)
Возврат 0;
КонецПопытки;
Возврат 0;
КонецФункции // ПолучитьНормуВремениПоДню()
|
