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