Аня, сорри, позаимствую на день <З
от души
Проекты
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
Для примера в информационной базе заведена организация ООО «Проекты», в которую 01.07.2024 принято двое сотрудников на должность «Мастер» (оклад 50 000 руб.) и один сотрудник на должность «Младший мастер» (оклад 40 000 руб.): у каждого начисление «Оплата по окладу (по часам)», полная ставка, пятидневка.
В условии сказано, что размер премии зависит от степени сложности проекта и роли работника в нём. Следовательно, первичные данные, которые необходимо занести для работы на проектах, это:
1) перечисление «РольРаботника» со значениями: «Руководитель», «Исполнитель»;
2) перечисление «СтепеньВажностиПроекта» со значениями: «Обычный», «Важный», «ОченьВажный»;
3) справочник «Проекты»: на форме элемента справочника указывается само наименование проекта, а также его степень важности (реквизит справочника – ссылка на перечисление «СтепеньВажностиПроекта»;
4) регистр сведений «ПроцентДоплатыЗаУчастиеВПроекте»: непериодический (в условии задачи не указано, что процент доплаты может меняться со временем) и независимый. Изменениями в данном регистре являются указанные выше перечисления «РольРаботника» и «СтепеньВажностиПроекта», а ресурс – «ПроцентДоплаты» (неотрицательное целое число)
5) начисление «Доплата за участие в проекте»,
6) показатель «Процент доплаты за участие в проекте».
В информационную базу занесены данные регистра «ПроцентДоплатыЗаУчастиеВПроекте» по таблице, указанной в задании, а также в справочник проектов добавлены три проекта «Проект № 1» (обычный), «Проект № 2» (важный) и «Проект № 3» (очень важный).
Приступаем к реализации учёта участия работников в проектах.
1) Создан документ «ФормированиеРабочейГруппыПроекта». По условию задачи этот документ необходим для регистрации периодов привлечения работников к работам по проектам. На форме документа пользователем в шапке выбирается организация, проект, ниже автоматически заполняются начисление "Доплата за участие в проекте" и показатель "Процент доплаты за участие в проекте", а в табличной части пользователем выбирается участник проекта, дата начала и дата окончания участия в проекте, а также роль участника. Прототип созданного документа – типовой документ «Назначение планового начисления». Данный документ формирует движения в типовых регистрах «Плановые начисления» (в нём указывается период начисления «Доплата за участие в проекте» для начисления зарплаты) и «Значения периодических показателей расчета зарплаты (для сотрудников)» (в нём фиксируется значение показателя «Процент доплаты за участие в проекте» в зависимости от проекта (его важность указывается в карточке объекта справочника) и роли участника (указывается в табличной части документа). Требование контроля участия работника лишь в одном проекте контролируется функцией в созданном общем модуле. ......
2) Создан документ «ИсключениеИзРабочейГруппыПроекта». .....
3) Создан документ «ОценкаРаботПоПроекту». ......
Отчёт......
В условии сказано, что размер премии зависит от степени сложности проекта и роли работника в нём. Следовательно, первичные данные, которые необходимо занести для работы на проектах, это:
1) перечисление «РольРаботника» со значениями: «Руководитель», «Исполнитель»;
2) перечисление «СтепеньВажностиПроекта» со значениями: «Обычный», «Важный», «ОченьВажный»;
3) справочник «Проекты»: на форме элемента справочника указывается само наименование проекта, а также его степень важности (реквизит справочника – ссылка на перечисление «СтепеньВажностиПроекта»;
4) регистр сведений «ПроцентДоплатыЗаУчастиеВПроекте»: непериодический (в условии задачи не указано, что процент доплаты может меняться со временем) и независимый. Изменениями в данном регистре являются указанные выше перечисления «РольРаботника» и «СтепеньВажностиПроекта», а ресурс – «ПроцентДоплаты» (неотрицательное целое число)
5) начисление «Доплата за участие в проекте»,
6) показатель «Процент доплаты за участие в проекте».
В информационную базу занесены данные регистра «ПроцентДоплатыЗаУчастиеВПроекте» по таблице, указанной в задании, а также в справочник проектов добавлены три проекта «Проект № 1» (обычный), «Проект № 2» (важный) и «Проект № 3» (очень важный).
Приступаем к реализации учёта участия работников в проектах.
1) Создан документ «ФормированиеРабочейГруппыПроекта». По условию задачи этот документ необходим для регистрации периодов привлечения работников к работам по проектам. На форме документа пользователем в шапке выбирается организация, проект, ниже автоматически заполняются начисление "Доплата за участие в проекте" и показатель "Процент доплаты за участие в проекте", а в табличной части пользователем выбирается участник проекта, дата начала и дата окончания участия в проекте, а также роль участника. Прототип созданного документа – типовой документ «Назначение планового начисления». Данный документ формирует движения в типовых регистрах «Плановые начисления» (в нём указывается период начисления «Доплата за участие в проекте» для начисления зарплаты) и «Значения периодических показателей расчета зарплаты (для сотрудников)» (в нём фиксируется значение показателя «Процент доплаты за участие в проекте» в зависимости от проекта (его важность указывается в карточке объекта справочника) и роли участника (указывается в табличной части документа). Требование контроля участия работника лишь в одном проекте контролируется функцией в созданном общем модуле. ......
2) Создан документ «ИсключениеИзРабочейГруппыПроекта». .....
3) Создан документ «ОценкаРаботПоПроекту». ......
Отчёт......
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ДанныеДляПроведения = ПолучитьДанныеДляПроведения();
СтруктураПлановыхНачислений = Новый Структура;
СтруктураПлановыхНачислений.Вставить("ДанныеОПлановыхНачислениях", ДанныеДляПроведения.ПлановыеНачисления);
СтруктураПлановыхНачислений.Вставить("ЗначенияПоказателей", ДанныеДляПроведения.ЗначенияПоказателей);
РасчетЗарплаты.СформироватьДвиженияПлановыхНачислений(ЭтотОбъект, Движения, СтруктураПлановыхНачислений);
// регистр ПривлечениеРаботниковКПроектам
Движения.ПривлечениеРаботниковКПроектам.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
//ДеньУчастияВПроекте = ТекСтрокаСотрудники.ДатаНачала;
//Пока Истина Цикл
Движение = Движения.ПривлечениеРаботниковКПроектам.Добавить();
Движение.Период = ТекСтрокаСотрудники.ДатаНачала;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
//Движение.ДатаУчастия = ДеньУчастияВПроекте;
Движение.Проект = Проект;
Движение.РольРаботника = ТекСтрокаСотрудники.РольРаботника;
Движение.ДействуетДо = ТекСтрокаСотрудники.ДатаОкончания;
Движение.Действует = Истина;
// Если ДеньУчастияВПроекте = ТекСтрокаСотрудники.ДатаОкончания Тогда
// Прервать;
//КонецЕсли;
//ДеньУчастияВПроекте = ДеньУчастияВПроекте + 86400;
//КонецЦикла;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
// Получает данные для формирования движений.
// Возвращает Структуру с полями.
// ПлановыеНачисления - данные, необходимые для формирования истории плановых начислений.
// (см. РасчетЗарплатыРасширенный.СформироватьДвиженияПлановыхНачислений)
// ЗначенияПоказателей (см. там же).
//
Функция ПолучитьДанныеДляПроведения()
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
| ФормированиеРабочейГруппыПроектаСотрудники.ДатаНачала КАК ДатаСобытия,
| ДОБАВИТЬКДАТЕ(ФормированиеРабочейГруппыПроектаСотрудники.ДатаОкончания, ДЕНЬ, 1) КАК ДействуетДо,
| ФормированиеРабочейГруппыПроектаСотрудники.Сотрудник КАК Сотрудник,
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка.Начисление КАК Начисление,
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка КАК ДокументОснование,
| ИСТИНА КАК Используется,
| ЛОЖЬ КАК ИспользуетсяПоОкончании,
| 0 КАК Размер,
| ФормированиеРабочейГруппыПроектаСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо,
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка.Организация КАК ГоловнаяОрганизация,
| ""Утвердить"" КАК Действие
|ИЗ
| Документ.ФормированиеРабочейГруппыПроекта.Сотрудники КАК ФормированиеРабочейГруппыПроектаСотрудники
|ГДЕ
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка = &Ссылка
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка.Организация КАК Организация,
| ФормированиеРабочейГруппыПроектаСотрудники.Сотрудник КАК Сотрудник,
| ФормированиеРабочейГруппыПроектаСотрудники.ДатаНачала КАК ДатаСобытия,
| ДОБАВИТЬКДАТЕ(ФормированиеРабочейГруппыПроектаСотрудники.ДатаОкончания, ДЕНЬ, 1) КАК ДействуетДо,
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка КАК ДокументОснование,
| ""Утвердить"" КАК Действие,
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка.Показатель КАК Показатель,
| ЕСТЬNULL(ПроцентДоплатыЗаУчастиеВПроекте.ПроцентДоплаты, 0) КАК Значение,
| ФормированиеРабочейГруппыПроектаСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо
|ИЗ
| Документ.ФормированиеРабочейГруппыПроекта.Сотрудники КАК ФормированиеРабочейГруппыПроектаСотрудники
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПроцентДоплатыЗаУчастиеВПроекте КАК ПроцентДоплатыЗаУчастиеВПроекте
| ПО ФормированиеРабочейГруппыПроектаСотрудники.РольРаботника = ПроцентДоплатыЗаУчастиеВПроекте.РольРаботника
| И ФормированиеРабочейГруппыПроектаСотрудники.Ссылка.Проект.СтепеньВажности = ПроцентДоплатыЗаУчастиеВПроекте.СтепеньВажностиПроекта
|ГДЕ
| ФормированиеРабочейГруппыПроектаСотрудники.Ссылка = &Ссылка";
РезультатыЗапроса = Запрос.ВыполнитьПакет();
ДанныеДляПроведения = Новый Структура;
// Первый набор данных для проведения - таблица для формирования плановых начислений.
ПлановыеНачисления = РезультатыЗапроса[0].Выгрузить();
ДанныеДляПроведения.Вставить("ПлановыеНачисления", ПлановыеНачисления);
// Второй набор данных для проведения - таблица для формирования значений показателей.
ЗначенияПоказателей = РезультатыЗапроса[1].Выгрузить();
ДанныеДляПроведения.Вставить("ЗначенияПоказателей", ЗначенияПоказателей);
Возврат ДанныеДляПроведения;
КонецФункции
Процедура ПриКопировании(ОбъектКопирования)
Сотрудники.Очистить();
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
// При создании документа автоматически заполняется показатель и начисление. Для удобства.
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда
Объект.Показатель = Справочники.ПоказателиРасчетаЗарплаты.НайтиПоНаименованию("Процент доплаты за участие в проекте");
Объект.Начисление = ПланыВидовРасчета.Начисления.НайтиПоНаименованию("Доплата за участие в проекте");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиСотрудникПриИзменении(Элемент)
ДанныеПоСтроке = Элементы.Сотрудники.ТекущиеДанные;
ОчиститьСообщения();
ДанныеПоСтроке.ДатаНачала = "";
ДанныеПоСтроке.ДатаОкончания = "";
ДанныеПоСтроке.РольРаботника = "";
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиДатаНачалаПриИзменении(Элемент)
ДанныеПоСтроке = Элементы.Сотрудники.ТекущиеДанные;
ОчиститьСообщения();
ДанныеПоСтроке.ДатаОкончания = "";
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиДатаОкончанияПриИзменении(Элемент)
ДанныеПоСтроке = Элементы.Сотрудники.ТекущиеДанные;
ОчиститьСообщения();
Если ЗначениеЗаполнено(ДанныеПоСтроке.Сотрудник) И ЗначениеЗаполнено(ДанныеПоСтроке.ДатаНачала) И ЗначениеЗаполнено(ДанныеПоСтроке.ДатаОкончания) Тогда
ПроверкаДатИУчастия(ДанныеПоСтроке.ДатаНачала, ДанныеПоСтроке.Сотрудник, ДанныеПоСтроке.ДатаОкончания);
КонецЕсли;
Если ЗначениеЗаполнено(ДанныеПоСтроке.ДатаНачала) И ЗначениеЗаполнено(ДанныеПоСтроке.ДатаОкончания) И ДанныеПоСтроке.ДатаНачала > ДанныеПоСтроке.ДатаОкончания Тогда
ДанныеПоСтроке.ДатаОкончания = "";
КонецЕсли;
КонецПроцедуры
//Проверка на то, чтобы дата окночания была больше даты начала. Проверка на участие в проектах (функция в общем модуле ЭКЗ_ДляПроектов.
&НаСервере
Процедура ПроверкаДатИУчастия(ДатаНачала, Сотрудник, ДатаОкончания)
Проект = ЭКЗ_ДляПроектов.ПроверкаЗаполнения(ДатаНачала, Сотрудник, ДатаОкончания);
Если Не Проект = Неопределено Тогда
ОбщегоНазначения.СообщитьПользователю("В эти даты сотрудник работает в проекте.");
КонецЕсли;
Если ДатаНачала > ДатаОкончания Тогда
ОбщегоНазначения.СообщитьПользователю("Дата окончания участия в проекте не может быть меньше даты начала.");
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда
Объект.Показатель = Справочники.ПоказателиРасчетаЗарплаты.НайтиПоНаименованию("Процент доплаты за участие в проекте");
Объект.Начисление = ПланыВидовРасчета.Начисления.НайтиПоНаименованию("Доплата за участие в проекте");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиСотрудникПриИзменении(Элемент)
ДанныеПоСтроке = Элементы.Сотрудники.ТекущиеДанные;
ОчиститьСообщения();
ДанныеПоСтроке.ДатаНачала = "";
ДанныеПоСтроке.ДатаОкончания = "";
ДанныеПоСтроке.РольРаботника = "";
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиДатаНачалаПриИзменении(Элемент)
ДанныеПоСтроке = Элементы.Сотрудники.ТекущиеДанные;
ОчиститьСообщения();
ДанныеПоСтроке.ДатаОкончания = "";
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиДатаОкончанияПриИзменении(Элемент)
ДанныеПоСтроке = Элементы.Сотрудники.ТекущиеДанные;
ОчиститьСообщения();
Если ЗначениеЗаполнено(ДанныеПоСтроке.Сотрудник) И ЗначениеЗаполнено(ДанныеПоСтроке.ДатаНачала) И ЗначениеЗаполнено(ДанныеПоСтроке.ДатаОкончания) Тогда
ПроверкаДатИУчастия(ДанныеПоСтроке.ДатаНачала, ДанныеПоСтроке.Сотрудник, ДанныеПоСтроке.ДатаОкончания);
КонецЕсли;
Если ЗначениеЗаполнено(ДанныеПоСтроке.ДатаНачала) И ЗначениеЗаполнено(ДанныеПоСтроке.ДатаОкончания) И ДанныеПоСтроке.ДатаНачала > ДанныеПоСтроке.ДатаОкончания Тогда
ДанныеПоСтроке.ДатаОкончания = "";
КонецЕсли;
КонецПроцедуры
//Проверка на то, чтобы дата окночания была больше даты начала. Проверка на участие в проектах (функция в общем модуле ЭКЗ_ДляПроектов.
&НаСервере
Процедура ПроверкаДатИУчастия(ДатаНачала, Сотрудник, ДатаОкончания)
Проект = ЭКЗ_ДляПроектов.ПроверкаЗаполнения(ДатаНачала, Сотрудник, ДатаОкончания);
Если Не Проект = Неопределено Тогда
ОбщегоНазначения.СообщитьПользователю("В эти даты сотрудник работает в проекте.");
КонецЕсли;
Если ДатаНачала > ДатаОкончания Тогда
ОбщегоНазначения.СообщитьПользователю("Дата окончания участия в проекте не может быть меньше даты начала.");
КонецЕсли;
КонецПроцедуры
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ДанныеДляПроведения = ПолучитьДанныеДляПроведения();
//ЗарплатаКадрыРасширенный.УстановитьВремяРегистрацииДокумента(Движения, ДанныеДляПроведения.СотрудникиДаты, Ссылка);
СтруктураПлановыхНачислений = Новый Структура;
СтруктураПлановыхНачислений.Вставить("ДанныеОПлановыхНачислениях", ДанныеДляПроведения.ПлановыеНачисления);
//СтруктураПлановыхНачислений.Вставить("ЗначенияПоказателей", ДанныеДляПроведения.ЗначенияПоказателей);
РасчетЗарплаты.СформироватьДвиженияПлановыхНачислений(ЭтотОбъект, Движения, СтруктураПлановыхНачислений);
// регистр ПривлечениеРаботниковКПроектам
Движения.ПривлечениеРаботниковКПроектам.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ПривлечениеРаботниковКПроектам.Добавить();
Движение.Период = ТекСтрокаСотрудники.ДатаИсключения;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Проект = Проект;
Движение.РольРаботника = ТекСтрокаСотрудники.Роль;
//Движение.ДействуетДо = ТекСтрокаСотрудники.ДатаИсключения;
Движение.ДействуетДо = ПолучитьДатуДо(ТекСтрокаСотрудники.Сотрудник, Проект, ТекСтрокаСотрудники.ДатаИсключения);
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
// Получает данные для формирования движений.
// Возвращает Структуру с полями.
// ПлановыеНачисления - данные, необходимые для формирования истории плановых начислений.
// (см. РасчетЗарплатыРасширенный.СформироватьДвиженияПлановыхНачислений)
// ЗначенияПоказателей (см. там же).
//
Функция ПолучитьДанныеДляПроведения()
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
| ИсключениеИзРабочейГруппыПроектаСотрудники.ДатаИсключения КАК ДатаСобытия,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Сотрудник КАК Сотрудник,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка.Начисление КАК Начисление,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка КАК ДокументОснование,
| ЛОЖЬ КАК Используется,
| 0 КАК Размер,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка.Организация КАК ГоловнаяОрганизация,
| ДАТАВРЕМЯ(1, 1, 1) КАК ДействуетДо
|ИЗ
| Документ.ИсключениеИзРабочейГруппыПроекта.Сотрудники КАК ИсключениеИзРабочейГруппыПроектаСотрудники
|ГДЕ
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка = &Ссылка";
РезультатыЗапроса = Запрос.ВыполнитьПакет();
ДанныеДляПроведения = Новый Структура;
// Таблица для формирования плановых начислений.
ДанныеДляПроведения.Вставить("ПлановыеНачисления", РезультатыЗапроса[0].Выгрузить());
Возврат ДанныеДляПроведения;
КонецФункции
Функция ПолучитьДатуДо(Сотрудник, Проект, Дата)
ДатаДо = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПривлечениеРаботниковКПроектамСрезПоследних.ДействуетДо КАК ДействуетДо
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам.СрезПоследних(
| &ДатаИсключения,
| Сотрудник = &Сотрудник
| И Проект = &Проект
| И Действует) КАК ПривлечениеРаботниковКПроектамСрезПоследних";
Запрос.УстановитьПараметр("ДатаИсключения", Дата);
Запрос.УстановитьПараметр("Проект", Проект);
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ДАтаДо = ВыборкаДетальныеЗаписи.ДействуетДо
КонецЦикла;
Возврат ДатаДо
КонецФункции
Процедура ПриКопировании(ОбъектКопирования)
Сотрудники.Очистить();
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ДанныеДляПроведения = ПолучитьДанныеДляПроведения();
//ЗарплатаКадрыРасширенный.УстановитьВремяРегистрацииДокумента(Движения, ДанныеДляПроведения.СотрудникиДаты, Ссылка);
СтруктураПлановыхНачислений = Новый Структура;
СтруктураПлановыхНачислений.Вставить("ДанныеОПлановыхНачислениях", ДанныеДляПроведения.ПлановыеНачисления);
//СтруктураПлановыхНачислений.Вставить("ЗначенияПоказателей", ДанныеДляПроведения.ЗначенияПоказателей);
РасчетЗарплаты.СформироватьДвиженияПлановыхНачислений(ЭтотОбъект, Движения, СтруктураПлановыхНачислений);
// регистр ПривлечениеРаботниковКПроектам
Движения.ПривлечениеРаботниковКПроектам.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ПривлечениеРаботниковКПроектам.Добавить();
Движение.Период = ТекСтрокаСотрудники.ДатаИсключения;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Проект = Проект;
Движение.РольРаботника = ТекСтрокаСотрудники.Роль;
//Движение.ДействуетДо = ТекСтрокаСотрудники.ДатаИсключения;
Движение.ДействуетДо = ПолучитьДатуДо(ТекСтрокаСотрудники.Сотрудник, Проект, ТекСтрокаСотрудники.ДатаИсключения);
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
// Получает данные для формирования движений.
// Возвращает Структуру с полями.
// ПлановыеНачисления - данные, необходимые для формирования истории плановых начислений.
// (см. РасчетЗарплатыРасширенный.СформироватьДвиженияПлановыхНачислений)
// ЗначенияПоказателей (см. там же).
//
Функция ПолучитьДанныеДляПроведения()
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
| ИсключениеИзРабочейГруппыПроектаСотрудники.ДатаИсключения КАК ДатаСобытия,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Сотрудник КАК Сотрудник,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка.Начисление КАК Начисление,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка КАК ДокументОснование,
| ЛОЖЬ КАК Используется,
| 0 КАК Размер,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо,
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка.Организация КАК ГоловнаяОрганизация,
| ДАТАВРЕМЯ(1, 1, 1) КАК ДействуетДо
|ИЗ
| Документ.ИсключениеИзРабочейГруппыПроекта.Сотрудники КАК ИсключениеИзРабочейГруппыПроектаСотрудники
|ГДЕ
| ИсключениеИзРабочейГруппыПроектаСотрудники.Ссылка = &Ссылка";
РезультатыЗапроса = Запрос.ВыполнитьПакет();
ДанныеДляПроведения = Новый Структура;
// Таблица для формирования плановых начислений.
ДанныеДляПроведения.Вставить("ПлановыеНачисления", РезультатыЗапроса[0].Выгрузить());
Возврат ДанныеДляПроведения;
КонецФункции
Функция ПолучитьДатуДо(Сотрудник, Проект, Дата)
ДатаДо = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПривлечениеРаботниковКПроектамСрезПоследних.ДействуетДо КАК ДействуетДо
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам.СрезПоследних(
| &ДатаИсключения,
| Сотрудник = &Сотрудник
| И Проект = &Проект
| И Действует) КАК ПривлечениеРаботниковКПроектамСрезПоследних";
Запрос.УстановитьПараметр("ДатаИсключения", Дата);
Запрос.УстановитьПараметр("Проект", Проект);
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ДАтаДо = ВыборкаДетальныеЗаписи.ДействуетДо
КонецЦикла;
Возврат ДатаДо
КонецФункции
Процедура ПриКопировании(ОбъектКопирования)
Сотрудники.Очистить();
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
// При создании документа автоматически заполняется показатель и начисление. Для удобства.
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда
Объект.Начисление = ПланыВидовРасчета.Начисления.НайтиПоНаименованию("Доплата за участие в проекте");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиСотрудникПриИзменении(Элемент)
ДанныеСтроки = Элементы.Сотрудники.ТекущиеДанные;
ДанныеСтроки.Роль = "";
ДанныеСтроки.ДатаИсключения = "";
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнениеРолиСотрудника(Сотрудник, Проект, ДатаИсключения)
РольСотрудника = ЭКЗ_ДляПроектов.ПроверкаПриУдалении(Объект.Проект, Сотрудник, ДатаИсключения);
Если РольСотрудника = Неопределено Тогда
Сотрудники = "";
Роль = "";
ОбщегоНазначенияКлиент.СообщитьПользователю(СтрШаблон("Сотрудник %1 не прикреплен к проекту %2 на дату %3", Сотрудник, Проект, ДатаИсключения));
ДатаИсключения = "";
Иначе
Роль = РольСотрудника;
ДанныеСтроки = Элементы.Сотрудники.ТекущиеДанные;
ДанныеСтроки.Роль = РольСотрудника;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиДатаИсключенияПриИзменении(Элемент)
ДанныеСтроки = Элементы.Сотрудники.ТекущиеДанные;
Если ЗначениеЗаполнено(ДанныеСтроки.Сотрудник) Тогда
ЗаполнениеРолиСотрудника(ДанныеСтроки.Сотрудник, Объект.Проект, ДанныеСтроки.ДатаИсключения)
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда
Объект.Начисление = ПланыВидовРасчета.Начисления.НайтиПоНаименованию("Доплата за участие в проекте");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиСотрудникПриИзменении(Элемент)
ДанныеСтроки = Элементы.Сотрудники.ТекущиеДанные;
ДанныеСтроки.Роль = "";
ДанныеСтроки.ДатаИсключения = "";
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнениеРолиСотрудника(Сотрудник, Проект, ДатаИсключения)
РольСотрудника = ЭКЗ_ДляПроектов.ПроверкаПриУдалении(Объект.Проект, Сотрудник, ДатаИсключения);
Если РольСотрудника = Неопределено Тогда
Сотрудники = "";
Роль = "";
ОбщегоНазначенияКлиент.СообщитьПользователю(СтрШаблон("Сотрудник %1 не прикреплен к проекту %2 на дату %3", Сотрудник, Проект, ДатаИсключения));
ДатаИсключения = "";
Иначе
Роль = РольСотрудника;
ДанныеСтроки = Элементы.Сотрудники.ТекущиеДанные;
ДанныеСтроки.Роль = РольСотрудника;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиДатаИсключенияПриИзменении(Элемент)
ДанныеСтроки = Элементы.Сотрудники.ТекущиеДанные;
Если ЗначениеЗаполнено(ДанныеСтроки.Сотрудник) Тогда
ЗаполнениеРолиСотрудника(ДанныеСтроки.Сотрудник, Объект.Проект, ДанныеСтроки.ДатаИсключения)
КонецЕсли;
КонецПроцедуры
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ)
ЗначенияПоказателей = Новый ТаблицаЗначений;
ЗначенияПоказателей.Колонки.Добавить("ПериодДействия", Новый ОписаниеТипов("Дата"));
ЗначенияПоказателей.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));
ЗначенияПоказателей.Колонки.Добавить("Показатель", Новый ОписаниеТипов("СправочникСсылка.ПоказателиРасчетаЗарплаты"));
ЗначенияПоказателей.Колонки.Добавить("Значение", Новый ОписаниеТипов("Число"));
Для каждого Сотрудник Из Исполнители Цикл
НоваяСтрока = ЗначенияПоказателей.Добавить();
НоваяСтрока.ПериодДействия = НачалоМесяца(Месяц);
НоваяСтрока.Сотрудник = Сотрудник.Сотрудник;
НоваяСтрока.Показатель = Показатель;
НоваяСтрока.Значение = Сотрудник.Коэффициент;
КонецЦикла;
Для каждого Сотрудник Из Руководители Цикл
НоваяСтрока = ЗначенияПоказателей.Добавить();
НоваяСтрока.ПериодДействия = НачалоМесяца(Месяц);
НоваяСтрока.Сотрудник = Сотрудник.Сотрудник;
НоваяСтрока.Показатель = Показатель;
НоваяСтрока.Значение = Сотрудник.Коэффициент;
КонецЦикла;
РасчетЗарплатыРасширенный.ЗарегистрироватьЗначенияРазовыхПоказателейСотрудников(Движения, Организация, ЗначенияПоказателей);
КонецПроцедуры
Процедура ПриКопировании(ОбъектКопирования)
Исполнители.Очистить();
Руководители.Очистить();
ОценкаИсполнителей = ИСТИНА;
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если ОценкаИсполнителей = ИСТИНА Тогда
Руководители.Очистить()
Иначе Исполнители.Очистить()
КонецЕсли;
//Если Не Проект.Пустая()
//Тогда Проект = Справочники.Проекты.ПустаяСсылка()
//КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ)
ЗначенияПоказателей = Новый ТаблицаЗначений;
ЗначенияПоказателей.Колонки.Добавить("ПериодДействия", Новый ОписаниеТипов("Дата"));
ЗначенияПоказателей.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));
ЗначенияПоказателей.Колонки.Добавить("Показатель", Новый ОписаниеТипов("СправочникСсылка.ПоказателиРасчетаЗарплаты"));
ЗначенияПоказателей.Колонки.Добавить("Значение", Новый ОписаниеТипов("Число"));
Для каждого Сотрудник Из Исполнители Цикл
НоваяСтрока = ЗначенияПоказателей.Добавить();
НоваяСтрока.ПериодДействия = НачалоМесяца(Месяц);
НоваяСтрока.Сотрудник = Сотрудник.Сотрудник;
НоваяСтрока.Показатель = Показатель;
НоваяСтрока.Значение = Сотрудник.Коэффициент;
КонецЦикла;
Для каждого Сотрудник Из Руководители Цикл
НоваяСтрока = ЗначенияПоказателей.Добавить();
НоваяСтрока.ПериодДействия = НачалоМесяца(Месяц);
НоваяСтрока.Сотрудник = Сотрудник.Сотрудник;
НоваяСтрока.Показатель = Показатель;
НоваяСтрока.Значение = Сотрудник.Коэффициент;
КонецЦикла;
РасчетЗарплатыРасширенный.ЗарегистрироватьЗначенияРазовыхПоказателейСотрудников(Движения, Организация, ЗначенияПоказателей);
КонецПроцедуры
Процедура ПриКопировании(ОбъектКопирования)
Исполнители.Очистить();
Руководители.Очистить();
ОценкаИсполнителей = ИСТИНА;
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если ОценкаИсполнителей = ИСТИНА Тогда
Руководители.Очистить()
Иначе Исполнители.Очистить()
КонецЕсли;
//Если Не Проект.Пустая()
//Тогда Проект = Справочники.Проекты.ПустаяСсылка()
//КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
// При создании документа автоматически заполняется показатель и начисление. Для удобства.
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда
Объект.Показатель = Справочники.ПоказателиРасчетаЗарплаты.НайтиПоНаименованию("Коэффициент участия");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если Параметры.Ключ.Пустая()
Тогда Объект.ОценкаИсполнителей = ИСТИНА
КонецЕсли;
УстановитьВидимость()
КонецПроцедуры
&НаКлиенте
Процедура ОценкаИсполнителейПриИзменении(Элемент)
УстановитьВидимость();
КонецПроцедуры
&НаКлиенте
Процедура УстановитьВидимость()
Если Объект.ОценкаИсполнителей = ИСТИНА
Тогда Элементы.Исполнители.Видимость = ИСТИНА;
Элементы.Руководители.Видимость = ЛОЖЬ;
Элементы.Проект.Видимость = ИСТИНА;
Иначе Элементы.Исполнители.Видимость = ЛОЖЬ;
Элементы.Руководители.Видимость = ИСТИНА;
//Элементы.Проект = Справочники.Проекты.ПустаяСсылка();
Элементы.Проект.Видимость = ЛОЖЬ;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьДаннымиПроекта(Команда)
ПолучитьДанныеПроектов();
КонецПроцедуры
Процедура ПолучитьДанныеПроектов()
Если Объект.ОценкаИсполнителей = ИСТИНА
Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник,
| ИСТИНА КАК Руководитель
|ПОМЕСТИТЬ ВТ_Руководители
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
|ГДЕ
| МЕСЯЦ(ПривлечениеРаботниковКПроектам.ДействуетДо) = &МесяцУчастия
| И ПривлечениеРаботниковКПроектам.РольРаботника = &РольРуководителя
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
| ЛЕВОЕ СОЕДИНЕНИЕ ВТ_Руководители КАК ВТ_Руководители
| ПО ПривлечениеРаботниковКПроектам.Сотрудник = ВТ_Руководители.Сотрудник
|ГДЕ
| ПривлечениеРаботниковКПроектам.Проект = &Проект
| И ПривлечениеРаботниковКПроектам.РольРаботника = &РольРаботника
| И МЕСЯЦ(ПривлечениеРаботниковКПроектам.ДействуетДо) = &МесяцУчастия
| И ВТ_Руководители.Руководитель ЕСТЬ NULL";
Запрос.УстановитьПараметр("МесяцУчастия", Месяц(Объект.Месяц));
Запрос.УстановитьПараметр("Проект", Объект.Проект);
Запрос.УстановитьПараметр("РольРуководителя", Перечисления.РольРаботника.Руководитель);
Запрос.УстановитьПараметр("РольРаботника", Перечисления.РольРаботника.Исполнитель);
РезультатЗапроса = Запрос.Выполнить();
Объект.Исполнители.Загрузить(РезультатЗапроса.Выгрузить());
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
|ГДЕ
| ПривлечениеРаботниковКПроектам.РольРаботника = &РольРаботника
| И МЕСЯЦ(ПривлечениеРаботниковКПроектам.ДействуетДо) = &МесяцУчастия";
Запрос.УстановитьПараметр("МесяцУчастия", Месяц(Объект.Месяц));
Запрос.УстановитьПараметр("РольРаботника", Перечисления.РольРаботника.Руководитель);
РезультатЗапроса = Запрос.Выполнить();
Объект.Руководители.Загрузить(РезультатЗапроса.Выгрузить());
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиОценкаСрокаРаботПриИзменении(Элемент)
Стр = Элементы.Исполнители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиОценкаКачестваРаботПриИзменении(Элемент)
Стр = Элементы.Исполнители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Процедура РуководителиОценкаСрокаРаботПриИзменении(Элемент)
Стр = Элементы.Руководители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Процедура РуководителиОценкаКачестваРаботПриИзменении(Элемент)
Стр = Элементы.Руководители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Функция ПересчитатьКоэффициент(ОценкаСрокаРабот, ОценкаКачестваРабот)
Возврат ОценкаСрокаРабот * ОценкаКачестваРабот;
КонецФункции
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда
Объект.Показатель = Справочники.ПоказателиРасчетаЗарплаты.НайтиПоНаименованию("Коэффициент участия");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если Параметры.Ключ.Пустая()
Тогда Объект.ОценкаИсполнителей = ИСТИНА
КонецЕсли;
УстановитьВидимость()
КонецПроцедуры
&НаКлиенте
Процедура ОценкаИсполнителейПриИзменении(Элемент)
УстановитьВидимость();
КонецПроцедуры
&НаКлиенте
Процедура УстановитьВидимость()
Если Объект.ОценкаИсполнителей = ИСТИНА
Тогда Элементы.Исполнители.Видимость = ИСТИНА;
Элементы.Руководители.Видимость = ЛОЖЬ;
Элементы.Проект.Видимость = ИСТИНА;
Иначе Элементы.Исполнители.Видимость = ЛОЖЬ;
Элементы.Руководители.Видимость = ИСТИНА;
//Элементы.Проект = Справочники.Проекты.ПустаяСсылка();
Элементы.Проект.Видимость = ЛОЖЬ;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьДаннымиПроекта(Команда)
ПолучитьДанныеПроектов();
КонецПроцедуры
Процедура ПолучитьДанныеПроектов()
Если Объект.ОценкаИсполнителей = ИСТИНА
Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник,
| ИСТИНА КАК Руководитель
|ПОМЕСТИТЬ ВТ_Руководители
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
|ГДЕ
| МЕСЯЦ(ПривлечениеРаботниковКПроектам.ДействуетДо) = &МесяцУчастия
| И ПривлечениеРаботниковКПроектам.РольРаботника = &РольРуководителя
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
| ЛЕВОЕ СОЕДИНЕНИЕ ВТ_Руководители КАК ВТ_Руководители
| ПО ПривлечениеРаботниковКПроектам.Сотрудник = ВТ_Руководители.Сотрудник
|ГДЕ
| ПривлечениеРаботниковКПроектам.Проект = &Проект
| И ПривлечениеРаботниковКПроектам.РольРаботника = &РольРаботника
| И МЕСЯЦ(ПривлечениеРаботниковКПроектам.ДействуетДо) = &МесяцУчастия
| И ВТ_Руководители.Руководитель ЕСТЬ NULL";
Запрос.УстановитьПараметр("МесяцУчастия", Месяц(Объект.Месяц));
Запрос.УстановитьПараметр("Проект", Объект.Проект);
Запрос.УстановитьПараметр("РольРуководителя", Перечисления.РольРаботника.Руководитель);
Запрос.УстановитьПараметр("РольРаботника", Перечисления.РольРаботника.Исполнитель);
РезультатЗапроса = Запрос.Выполнить();
Объект.Исполнители.Загрузить(РезультатЗапроса.Выгрузить());
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
|ГДЕ
| ПривлечениеРаботниковКПроектам.РольРаботника = &РольРаботника
| И МЕСЯЦ(ПривлечениеРаботниковКПроектам.ДействуетДо) = &МесяцУчастия";
Запрос.УстановитьПараметр("МесяцУчастия", Месяц(Объект.Месяц));
Запрос.УстановитьПараметр("РольРаботника", Перечисления.РольРаботника.Руководитель);
РезультатЗапроса = Запрос.Выполнить();
Объект.Руководители.Загрузить(РезультатЗапроса.Выгрузить());
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиОценкаСрокаРаботПриИзменении(Элемент)
Стр = Элементы.Исполнители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиОценкаКачестваРаботПриИзменении(Элемент)
Стр = Элементы.Исполнители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Процедура РуководителиОценкаСрокаРаботПриИзменении(Элемент)
Стр = Элементы.Руководители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Процедура РуководителиОценкаКачестваРаботПриИзменении(Элемент)
Стр = Элементы.Руководители.ТекущиеДанные;
Стр.Коэффициент = ПересчитатьКоэффициент(Стр.ОценкаСрокаРабот, Стр.ОценкаКачестваРабот);
КонецПроцедуры
&НаКлиенте
Функция ПересчитатьКоэффициент(ОценкаСрокаРабот, ОценкаКачестваРабот)
Возврат ОценкаСрокаРабот * ОценкаКачестваРабот;
КонецФункции
Непериодический, Независимый
В пределах дня, Подчинение регистратору
Функция ПроверкаПриУдалении(Проект, Сотрудник, Дата) Экспорт
Роль = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПривлечениеРаботниковКПроектамСрезПоследних.РольРаботника КАК РольРаботника
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам.СрезПоследних(
| &ДатаОткрепления,
| Сотрудник = &Сотрудник
| И Проект = &Проект И ДействуетДо >= &ДатаОткрепления) КАК ПривлечениеРаботниковКПроектамСрезПоследних
|ГДЕ
| ПривлечениеРаботниковКПроектамСрезПоследних.Действует";
Запрос.УстановитьПараметр("ДатаОткрепления", Дата);
Запрос.УстановитьПараметр("Проект", Проект);
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
Роль = ВыборкаДетальныеЗаписи.РольРаботника;
КонецЕсли;
Возврат Роль
КонецФункции
Функция ПроверкаЗаполнения(ДатаНачала, Сотрудник, ДатаОкончания) Экспорт
Проект = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПривлечениеРаботниковКПроектамСрезПоследних.Сотрудник КАК Сотрудник,
| ПривлечениеРаботниковКПроектамСрезПоследних.ДействуетДо КАК ДействуетДо,
| ПривлечениеРаботниковКПроектамСрезПоследних.Действует КАК Действует,
| ПривлечениеРаботниковКПроектамСрезПоследних.Период КАК Период,
| ПривлечениеРаботниковКПроектамСрезПоследних.Проект КАК Проект
|ПОМЕСТИТЬ вТ_ПоследнийПроект
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам.СрезПоследних(
| &ДатаОкончания,
| Действует
| И Сотрудник = &Сотрудник) КАК ПривлечениеРаботниковКПроектамСрезПоследних
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| вТ_ПоследнийПроект.Сотрудник КАК Сотрудник,
| вТ_ПоследнийПроект.Проект КАК ПредыдПроект,
| ЕСТЬNULL(ПривлечениеРаботниковКПроектам.Период, ДАТАВРЕМЯ(1, 1, 1)) КАК ОкПредыдПроекта,
| вТ_ПоследнийПроект.Период КАК НачПредыдПроекта
|ПОМЕСТИТЬ ВТ_ПредварительнаяОк
|ИЗ
| вТ_ПоследнийПроект КАК вТ_ПоследнийПроект
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
| ПО (вТ_ПоследнийПроект.Сотрудник = ПривлечениеРаботниковКПроектам.Сотрудник)
| И (ПривлечениеРаботниковКПроектам.Проект = вТ_ПоследнийПроект.Проект)
| И (вТ_ПоследнийПроект.ДействуетДо = ПривлечениеРаботниковКПроектам.ДействуетДо)
|ГДЕ
| НЕ ПривлечениеРаботниковКПроектам.Действует
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| вТ_ПоследнийПроект.Сотрудник КАК Сотрудник,
| вТ_ПоследнийПроект.Период КАК ДатаНачала,
| вТ_ПоследнийПроект.Проект КАК Проект,
| ЕСТЬNULL(ВТ_ПредварительнаяОк.ОкПредыдПроекта, вТ_ПоследнийПроект.ДействуетДо) КАК ДатаОКончания
|ИЗ
| вТ_ПоследнийПроект КАК вТ_ПоследнийПроект
| ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ПредварительнаяОк КАК ВТ_ПредварительнаяОк
| ПО (вТ_ПоследнийПроект.Сотрудник = ВТ_ПредварительнаяОк.Сотрудник
| И вТ_ПоследнийПроект.Проект = ВТ_ПредварительнаяОк.ПредыдПроект)";
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
ВыборкаДетальные = Запрос.Выполнить().Выбрать();
Если ВыборкаДетальные.Следующий() тогда
Если ДатаНачала <= ВыборкаДетальные.ДатаНачала Тогда
Если ДАтаОкончания >= ВыборкаДетальные.ДатаНачала Тогда
Проект = ВыборкаДетальные.Проект ;
КонецЕсли;
ИначеЕсли ДатаНачала > ВыборкаДетальные.ДатаНачала Тогда
Если ДатаНачала <= ВыборкаДетальные.ДатаОКончания Тогда
Проект = ВыборкаДетальные.Проект ;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат Проект;
КонецФункции
Роль = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПривлечениеРаботниковКПроектамСрезПоследних.РольРаботника КАК РольРаботника
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам.СрезПоследних(
| &ДатаОткрепления,
| Сотрудник = &Сотрудник
| И Проект = &Проект И ДействуетДо >= &ДатаОткрепления) КАК ПривлечениеРаботниковКПроектамСрезПоследних
|ГДЕ
| ПривлечениеРаботниковКПроектамСрезПоследних.Действует";
Запрос.УстановитьПараметр("ДатаОткрепления", Дата);
Запрос.УстановитьПараметр("Проект", Проект);
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
Роль = ВыборкаДетальныеЗаписи.РольРаботника;
КонецЕсли;
Возврат Роль
КонецФункции
Функция ПроверкаЗаполнения(ДатаНачала, Сотрудник, ДатаОкончания) Экспорт
Проект = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПривлечениеРаботниковКПроектамСрезПоследних.Сотрудник КАК Сотрудник,
| ПривлечениеРаботниковКПроектамСрезПоследних.ДействуетДо КАК ДействуетДо,
| ПривлечениеРаботниковКПроектамСрезПоследних.Действует КАК Действует,
| ПривлечениеРаботниковКПроектамСрезПоследних.Период КАК Период,
| ПривлечениеРаботниковКПроектамСрезПоследних.Проект КАК Проект
|ПОМЕСТИТЬ вТ_ПоследнийПроект
|ИЗ
| РегистрСведений.ПривлечениеРаботниковКПроектам.СрезПоследних(
| &ДатаОкончания,
| Действует
| И Сотрудник = &Сотрудник) КАК ПривлечениеРаботниковКПроектамСрезПоследних
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| вТ_ПоследнийПроект.Сотрудник КАК Сотрудник,
| вТ_ПоследнийПроект.Проект КАК ПредыдПроект,
| ЕСТЬNULL(ПривлечениеРаботниковКПроектам.Период, ДАТАВРЕМЯ(1, 1, 1)) КАК ОкПредыдПроекта,
| вТ_ПоследнийПроект.Период КАК НачПредыдПроекта
|ПОМЕСТИТЬ ВТ_ПредварительнаяОк
|ИЗ
| вТ_ПоследнийПроект КАК вТ_ПоследнийПроект
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
| ПО (вТ_ПоследнийПроект.Сотрудник = ПривлечениеРаботниковКПроектам.Сотрудник)
| И (ПривлечениеРаботниковКПроектам.Проект = вТ_ПоследнийПроект.Проект)
| И (вТ_ПоследнийПроект.ДействуетДо = ПривлечениеРаботниковКПроектам.ДействуетДо)
|ГДЕ
| НЕ ПривлечениеРаботниковКПроектам.Действует
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| вТ_ПоследнийПроект.Сотрудник КАК Сотрудник,
| вТ_ПоследнийПроект.Период КАК ДатаНачала,
| вТ_ПоследнийПроект.Проект КАК Проект,
| ЕСТЬNULL(ВТ_ПредварительнаяОк.ОкПредыдПроекта, вТ_ПоследнийПроект.ДействуетДо) КАК ДатаОКончания
|ИЗ
| вТ_ПоследнийПроект КАК вТ_ПоследнийПроект
| ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ПредварительнаяОк КАК ВТ_ПредварительнаяОк
| ПО (вТ_ПоследнийПроект.Сотрудник = ВТ_ПредварительнаяОк.Сотрудник
| И вТ_ПоследнийПроект.Проект = ВТ_ПредварительнаяОк.ПредыдПроект)";
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);
Запрос.УстановитьПараметр("Сотрудник", Сотрудник);
ВыборкаДетальные = Запрос.Выполнить().Выбрать();
Если ВыборкаДетальные.Следующий() тогда
Если ДатаНачала <= ВыборкаДетальные.ДатаНачала Тогда
Если ДАтаОкончания >= ВыборкаДетальные.ДатаНачала Тогда
Проект = ВыборкаДетальные.Проект ;
КонецЕсли;
ИначеЕсли ДатаНачала > ВыборкаДетальные.ДатаНачала Тогда
Если ДатаНачала <= ВыборкаДетальные.ДатаОКончания Тогда
Проект = ВыборкаДетальные.Проект ;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат Проект;
КонецФункции
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
ЗарплатаКадрыОбщиеНаборыДанных.ЗаполнитьОбщиеИсточникиДанныхОтчета(ЭтотОбъект);
КонецПроцедуры
ВЫБРАТЬ
ПривлечениеРаботниковКПроектам.Период КАК Период,
ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник,
ПривлечениеРаботниковКПроектам.Проект КАК Проект,
ПривлечениеРаботниковКПроектам.РольРаботника КАК РольРаботника
ПОМЕСТИТЬ ВТ_Проекты
ИЗ
РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
ГДЕ
ПривлечениеРаботниковКПроектам.Период МЕЖДУ &ДатаНачала И &ДатаОкончания
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
НАЧАЛОПЕРИОДА(ВТ_Проекты.Период, МЕСЯЦ) КАК Период,
ВТ_Проекты.Сотрудник КАК Сотрудник
ПОМЕСТИТЬ ВТ_Сотрудники
ИЗ
ВТ_Проекты КАК ВТ_Проекты
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
ДАТАВРЕМЯ(1, 1, 1) КАК Период,
ЗНАЧЕНИЕ(Справочник.Сотрудники.ПустаяСсылка) КАК Сотрудник,
ЗНАЧЕНИЕ(Справочник.Должности.ПустаяСсылка) КАК Должность,
ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка) КАК Организация,
ЗНАЧЕНИЕ(Справочник.ПодразделенияОрганизаций.ПустаяСсылка) КАК Подразделение
ПОМЕСТИТЬ Представления_СрезПоследних_КадроваяИсторияСотрудников
ИЗ
ВТ_Сотрудники КАК ВТ_Сотрудники
ГДЕ
"ТолькоРазрешенные" = ИСТИНА
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ВТ_Проекты.Период КАК Период,
ЕСТЬNULL(Представления_СрезПоследних_КадроваяИсторияСотрудников.Организация, ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка)) КАК Организация,
ЕСТЬNULL(Представления_СрезПоследних_КадроваяИсторияСотрудников.Подразделение, ЗНАЧЕНИЕ(Справочник.ПодразделенияОрганизаций.ПустаяСсылка)) КАК Подразделение,
ВТ_Проекты.Сотрудник КАК Сотрудник,
ЕСТЬNULL(Представления_СрезПоследних_КадроваяИсторияСотрудников.Должность, ЗНАЧЕНИЕ(Справочник.Должности.ПустаяСсылка)) КАК Должность,
ВТ_Проекты.Проект КАК Проект,
ВТ_Проекты.РольРаботника КАК РольРаботника,
ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты.СуммаОборот, 0) КАК НачисленоПоОкладу,
ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты1.СуммаОборот, 0) КАК НачисленоПремии,
ЕСТЬNULL(ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Значение, 0) КАК ПроцентДоплаты,
ЕСТЬNULL(ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Значение, 0) КАК КоэффициентОценки
ИЗ
ВТ_Проекты КАК ВТ_Проекты
ЛЕВОЕ СОЕДИНЕНИЕ Представления_СрезПоследних_КадроваяИсторияСотрудников КАК Представления_СрезПоследних_КадроваяИсторияСотрудников
ПО ВТ_Проекты.Период = Представления_СрезПоследних_КадроваяИсторияСотрудников.Период
И ВТ_Проекты.Сотрудник = Представления_СрезПоследних_КадроваяИсторияСотрудников.Сотрудник
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.НачисленияУдержанияПоСотрудникам.Обороты(
{(&ДатаНачала)},
{(&ДатаОкончания)},
Месяц,
Сотрудник В
(ВЫБРАТЬ
ВТ_Проекты.Сотрудник КАК Сотрудник
ИЗ
ВТ_Проекты КАК ВТ_Проекты)
И НачислениеУдержание = &НачислениеПоОкладу) КАК НачисленияУдержанияПоСотрудникамОбороты
ПО ВТ_Проекты.Период = НачисленияУдержанияПоСотрудникамОбороты.Период
И ВТ_Проекты.Сотрудник = НачисленияУдержанияПоСотрудникамОбороты.Сотрудник
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.НачисленияУдержанияПоСотрудникам.Обороты(
{(&ДатаНачала)},
{(&ДатаОкончания)},
Месяц,
Сотрудник В
(ВЫБРАТЬ
ВТ_Проекты.Сотрудник КАК Сотрудник
ИЗ
ВТ_Проекты КАК ВТ_Проекты)
И НачислениеУдержание = &ДоплатаПремия) КАК НачисленияУдержанияПоСотрудникамОбороты1
ПО ВТ_Проекты.Период = НачисленияУдержанияПоСотрудникамОбороты1.Период
И ВТ_Проекты.Сотрудник = НачисленияУдержанияПоСотрудникамОбороты1.Сотрудник
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников КАК ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников
ПО (ВТ_Проекты.Период = НАЧАЛОПЕРИОДА(ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Период, МЕСЯЦ))
И (ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Показатель = &ПроцентДоплаты)
И ВТ_Проекты.Сотрудник = ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Сотрудник
И (ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Показатель = &ПроцентДоплаты)
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников КАК ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников
ПО ВТ_Проекты.Сотрудник = ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Сотрудник
И (ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Показатель = &КоэффициентОценки)
И ВТ_Проекты.Период = ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.ПериодДействия
И (ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Показатель = &КоэффициентОценки)
ПривлечениеРаботниковКПроектам.Период КАК Период,
ПривлечениеРаботниковКПроектам.Сотрудник КАК Сотрудник,
ПривлечениеРаботниковКПроектам.Проект КАК Проект,
ПривлечениеРаботниковКПроектам.РольРаботника КАК РольРаботника
ПОМЕСТИТЬ ВТ_Проекты
ИЗ
РегистрСведений.ПривлечениеРаботниковКПроектам КАК ПривлечениеРаботниковКПроектам
ГДЕ
ПривлечениеРаботниковКПроектам.Период МЕЖДУ &ДатаНачала И &ДатаОкончания
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
НАЧАЛОПЕРИОДА(ВТ_Проекты.Период, МЕСЯЦ) КАК Период,
ВТ_Проекты.Сотрудник КАК Сотрудник
ПОМЕСТИТЬ ВТ_Сотрудники
ИЗ
ВТ_Проекты КАК ВТ_Проекты
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ РАЗРЕШЕННЫЕ
ДАТАВРЕМЯ(1, 1, 1) КАК Период,
ЗНАЧЕНИЕ(Справочник.Сотрудники.ПустаяСсылка) КАК Сотрудник,
ЗНАЧЕНИЕ(Справочник.Должности.ПустаяСсылка) КАК Должность,
ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка) КАК Организация,
ЗНАЧЕНИЕ(Справочник.ПодразделенияОрганизаций.ПустаяСсылка) КАК Подразделение
ПОМЕСТИТЬ Представления_СрезПоследних_КадроваяИсторияСотрудников
ИЗ
ВТ_Сотрудники КАК ВТ_Сотрудники
ГДЕ
"ТолькоРазрешенные" = ИСТИНА
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ВТ_Проекты.Период КАК Период,
ЕСТЬNULL(Представления_СрезПоследних_КадроваяИсторияСотрудников.Организация, ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка)) КАК Организация,
ЕСТЬNULL(Представления_СрезПоследних_КадроваяИсторияСотрудников.Подразделение, ЗНАЧЕНИЕ(Справочник.ПодразделенияОрганизаций.ПустаяСсылка)) КАК Подразделение,
ВТ_Проекты.Сотрудник КАК Сотрудник,
ЕСТЬNULL(Представления_СрезПоследних_КадроваяИсторияСотрудников.Должность, ЗНАЧЕНИЕ(Справочник.Должности.ПустаяСсылка)) КАК Должность,
ВТ_Проекты.Проект КАК Проект,
ВТ_Проекты.РольРаботника КАК РольРаботника,
ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты.СуммаОборот, 0) КАК НачисленоПоОкладу,
ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты1.СуммаОборот, 0) КАК НачисленоПремии,
ЕСТЬNULL(ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Значение, 0) КАК ПроцентДоплаты,
ЕСТЬNULL(ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Значение, 0) КАК КоэффициентОценки
ИЗ
ВТ_Проекты КАК ВТ_Проекты
ЛЕВОЕ СОЕДИНЕНИЕ Представления_СрезПоследних_КадроваяИсторияСотрудников КАК Представления_СрезПоследних_КадроваяИсторияСотрудников
ПО ВТ_Проекты.Период = Представления_СрезПоследних_КадроваяИсторияСотрудников.Период
И ВТ_Проекты.Сотрудник = Представления_СрезПоследних_КадроваяИсторияСотрудников.Сотрудник
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.НачисленияУдержанияПоСотрудникам.Обороты(
{(&ДатаНачала)},
{(&ДатаОкончания)},
Месяц,
Сотрудник В
(ВЫБРАТЬ
ВТ_Проекты.Сотрудник КАК Сотрудник
ИЗ
ВТ_Проекты КАК ВТ_Проекты)
И НачислениеУдержание = &НачислениеПоОкладу) КАК НачисленияУдержанияПоСотрудникамОбороты
ПО ВТ_Проекты.Период = НачисленияУдержанияПоСотрудникамОбороты.Период
И ВТ_Проекты.Сотрудник = НачисленияУдержанияПоСотрудникамОбороты.Сотрудник
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.НачисленияУдержанияПоСотрудникам.Обороты(
{(&ДатаНачала)},
{(&ДатаОкончания)},
Месяц,
Сотрудник В
(ВЫБРАТЬ
ВТ_Проекты.Сотрудник КАК Сотрудник
ИЗ
ВТ_Проекты КАК ВТ_Проекты)
И НачислениеУдержание = &ДоплатаПремия) КАК НачисленияУдержанияПоСотрудникамОбороты1
ПО ВТ_Проекты.Период = НачисленияУдержанияПоСотрудникамОбороты1.Период
И ВТ_Проекты.Сотрудник = НачисленияУдержанияПоСотрудникамОбороты1.Сотрудник
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников КАК ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников
ПО (ВТ_Проекты.Период = НАЧАЛОПЕРИОДА(ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Период, МЕСЯЦ))
И (ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Показатель = &ПроцентДоплаты)
И ВТ_Проекты.Сотрудник = ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Сотрудник
И (ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.Показатель = &ПроцентДоплаты)
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников КАК ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников
ПО ВТ_Проекты.Сотрудник = ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Сотрудник
И (ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Показатель = &КоэффициентОценки)
И ВТ_Проекты.Период = ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.ПериодДействия
И (ЗначенияРазовыхПоказателейРасчетаЗарплатыСотрудников.Показатель = &КоэффициентОценки)
- ВАЖНО! В отчёте не тянется данные подразделения, организации и должности. Сначала думала, что дело в ВТ "Представления_СрезПоследних_КадроваяИсторияСотрудников".. хотя в старой ДТ - всё ок.. вроде проверяла - всё то же самое... скрин выше. И он 2 раза выводит один и тот же период. Скорее всего, что-то с датами регистров, которые мы меняли.
- В модуле объекта или в модуле формы ОценкаРаботПоПроекту нужно ещё прописать очистку проекта. У меня не вышло (пробовала: справочник.проекты.пустая ссылка, не определено, очистить, "" - хз).
- Оценка работ по проекту - оцениваются в общем. Если один сотрудник в двух проектах за месяц - будет ошибка. Может хоть уведомление прописать о том, что пересмотрите оценку там-то там-то?.... хз.
- На самом деле подразделения лучше вообще нигде не указывать, потому что у нас, вроде как, нигде оно вообще не фигурирует. Хотя, вроде как, есть в запросах. Хз - проверить
- Проверка заполнения в оценке коэффициента. Сейчас может быть >1 - так не должно быть.
- Хз насколько нужен реквизит "Месяц" в оценке - но может быть в запросах - проверять
- Проверить корректность начислений (зп, ндфл, взносы)
курить
спать
кофе
отпуск
диабло
Дети
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
....................
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ);
СформироватьДвиженияПодтвержденныеРасходы();
СформироватьДвиженияПриходЗаработанныеЛимиты();
СформироватьДвиженияРасходЗаработанныеЛимиты();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ)
ЗначенияПоказателей = Новый ТаблицаЗначений;
ЗначенияПоказателей.Колонки.Добавить("ПериодДействия", Новый ОписаниеТипов("Дата"));
ЗначенияПоказателей.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));
ЗначенияПоказателей.Колонки.Добавить("Показатель", Новый ОписаниеТипов("СправочникСсылка.ПоказателиРасчетаЗарплаты"));
ЗначенияПоказателей.Колонки.Добавить("Значение", Новый ОписаниеТипов("Число"));
Для каждого Сотрудник Из Сотрудники Цикл
НоваяСтрока = ЗначенияПоказателей.Добавить();
НоваяСтрока.ПериодДействия = НачалоМесяца(Дата);
НоваяСтрока.Сотрудник = Сотрудник.Сотрудник;
НоваяСтрока.Показатель = Показатель;
НоваяСтрока.Значение = Сотрудник.ФактическиВозмещенныеРасходы;
КонецЦикла;
РасчетЗарплатыРасширенный.ЗарегистрироватьЗначенияРазовыхПоказателейСотрудников(Движения, Организация, ЗначенияПоказателей);
КонецПроцедуры
Процедура СформироватьДвиженияПодтвержденныеРасходы()
//Регистр ПодтвержденныеРасходы
Движения.ПодтвержденныеРасходы.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ПодтвержденныеРасходы.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.ПодтвержденныйРасход = ТекСтрокаСотрудники.ПодтвержденныеРасходы;
КонецЦикла;
КонецПроцедуры
Процедура СформироватьДвиженияПриходЗаработанныеЛимиты()
//Регистр ЗаработанныеЛимиты (приход)
Движения.ЗаработанныеЛимиты.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ЗаработанныеЛимиты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Год = Год(Дата);
Движение.СуммаЛимита = ТекСтрокаСотрудники.ЗаработанныйЛимит;
КонецЦикла;
КонецПроцедуры
Процедура СформироватьДвиженияРасходЗаработанныеЛимиты()
//Регистр ЗаработанныеЛимиты (расход)
Движения.ЗаработанныеЛимиты.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ЗаработанныеЛимиты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Год = Год(Дата);
Движение.СуммаЛимита = ТекСтрокаСотрудники.ФактическиВозмещенныеРасходы;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ);
СформироватьДвиженияПодтвержденныеРасходы();
СформироватьДвиженияПриходЗаработанныеЛимиты();
СформироватьДвиженияРасходЗаработанныеЛимиты();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ЗаписатьЗначенияПоказателейРасчетаЗарплаты(Движения, Отказ)
ЗначенияПоказателей = Новый ТаблицаЗначений;
ЗначенияПоказателей.Колонки.Добавить("ПериодДействия", Новый ОписаниеТипов("Дата"));
ЗначенияПоказателей.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));
ЗначенияПоказателей.Колонки.Добавить("Показатель", Новый ОписаниеТипов("СправочникСсылка.ПоказателиРасчетаЗарплаты"));
ЗначенияПоказателей.Колонки.Добавить("Значение", Новый ОписаниеТипов("Число"));
Для каждого Сотрудник Из Сотрудники Цикл
НоваяСтрока = ЗначенияПоказателей.Добавить();
НоваяСтрока.ПериодДействия = НачалоМесяца(Дата);
НоваяСтрока.Сотрудник = Сотрудник.Сотрудник;
НоваяСтрока.Показатель = Показатель;
НоваяСтрока.Значение = Сотрудник.ФактическиВозмещенныеРасходы;
КонецЦикла;
РасчетЗарплатыРасширенный.ЗарегистрироватьЗначенияРазовыхПоказателейСотрудников(Движения, Организация, ЗначенияПоказателей);
КонецПроцедуры
Процедура СформироватьДвиженияПодтвержденныеРасходы()
//Регистр ПодтвержденныеРасходы
Движения.ПодтвержденныеРасходы.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ПодтвержденныеРасходы.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.ПодтвержденныйРасход = ТекСтрокаСотрудники.ПодтвержденныеРасходы;
КонецЦикла;
КонецПроцедуры
Процедура СформироватьДвиженияПриходЗаработанныеЛимиты()
//Регистр ЗаработанныеЛимиты (приход)
Движения.ЗаработанныеЛимиты.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ЗаработанныеЛимиты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Год = Год(Дата);
Движение.СуммаЛимита = ТекСтрокаСотрудники.ЗаработанныйЛимит;
КонецЦикла;
КонецПроцедуры
Процедура СформироватьДвиженияРасходЗаработанныеЛимиты()
//Регистр ЗаработанныеЛимиты (расход)
Движения.ЗаработанныеЛимиты.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ЗаработанныеЛимиты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Год = Год(Дата);
Движение.СуммаЛимита = ТекСтрокаСотрудники.ФактическиВозмещенныеРасходы;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
&НаКлиенте
Процедура Заполнить(Команда)
ЗаполнитьНаСервере();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНаСервере()
//используем общие модули:
//- "УчетРабочегоВремениРасширенный"
//- "КадровыйУчет"
//1) получаем параметры
МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
ПараметрыПолучения = КадровыйУчет.ПараметрыПолученияСотрудниковОрганизацийПоСпискуФизическихЛиц();
ПараметрыПолучения.Организация = Объект.Организация;
ПараметрыПолучения.Подразделение = Объект.Подразделение;
ПараметрыПолучения.КадровыеДанные = "Сотрудник, Должность, КоличествоДетей, ТарифнаяСтавка";
ПараметрыПолучения.НачалоПериода = НачалоМесяца(Объект.Дата);
ПараметрыПолучения.ОкончаниеПериода = КонецМесяца(Объект.Дата);
//2) загоняем полученные параметры сюда и получаем "ВТСотрудники"
КадровыйУчет.СоздатьВТСотрудникиОрганизации(МенеджерВременныхТаблиц, Истина, ПараметрыПолучения, "ВТСотрудникиОрганизации");
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
Запрос.Текст =
"ВЫБРАТЬ
| ВТСотрудникиОрганизации.Сотрудник КАК Сотрудник,
| ВТСотрудникиОрганизации.Должность КАК Должность,
| ВТСотрудникиОрганизации.КоличествоДетей КАК КоличествоДетей,
| &Месяц КАК Месяц,
| &ДатаНачала КАК ДатаНачала,
| &ДатаОкончания КАК ДатаОкончания,
| &ДатаАктуальности КАК ДатаАктуальности,
| ЕСТЬNULL(ЛимитВозмещенияРасходов.СуммаВозмещенияСоцРасходов, 0) * ВТСотрудникиОрганизации.КоличествоДетей КАК ПлановыйЛимит
|ПОМЕСТИТЬ ВТСотрудники
|ИЗ
| ВТСотрудникиОрганизации КАК ВТСотрудникиОрганизации
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЛимитВозмещенияРасходов КАК ЛимитВозмещенияРасходов
| ПО ВТСотрудникиОрганизации.Должность = ЛимитВозмещенияРасходов.Должность
|ГДЕ
| ВТСотрудникиОрганизации.КоличествоДетей <> 0";
Запрос.УстановитьПараметр("ДатаАктуальности", КонецМесяца(Объект.Дата));
Запрос.УстановитьПараметр("ДатаНачала", НачалоМесяца(Объект.Дата));
Запрос.УстановитьПараметр("ДатаОкончания", КонецМесяца(Объект.Дата));
Запрос.УстановитьПараметр("Месяц", Месяц(Объект.Дата));
Запрос.Выполнить();
//3) получаем параметры по этим "ВТСотрудники" и обрабатываем их
ПараметрыПолучения = УчетРабочегоВремениРасширенный.ПараметрыДляЗапросВТДанныеУчетаВремениИСостоянийСотрудников();
//Параметры.Вставить("ИмяВТСотрудники", "ВТСотрудники");
//Параметры.Вставить("ИмяВТРезультат", "ВТДанныеУчета");
ПараметрыПолучения.ДатаНачала = НачалоМесяца(Объект.Дата);
ПараметрыПолучения.ДатаОкончания = КонецМесяца(Объект.Дата);
ПараметрыПолучения.МесяцДатаНачала = НачалоМесяца(Объект.Дата);
ПараметрыПолучения.МесяцДатаОкончания = КонецМесяца(Объект.Дата);
ПараметрыПолучения.ДатаАктуальности = КонецМесяца(Объект.Дата);
ПараметрыПолучения.Организация = Объект.Организация;
ПараметрыПолучения.Подразделение = Объект.Подразделение;
//4) загоняем их сюда и получаем "ВТДанныеУчета"
УчетРабочегоВремениРасширенный.СоздатьВТДанныеУчетаВремениИСостоянийСотрудников(МенеджерВременныхТаблиц, Истина, ПараметрыПолучения);
Запрос.Текст =
"ВЫБРАТЬ
| ВТДанныеУчетаВремениИСостоянийСотрудников.Сотрудник КАК Сотрудник,
| СУММА(ВТДанныеУчетаВремениИСостоянийСотрудников.Дни) КАК Дни
|ПОМЕСТИТЬ ВТДнейОтпуска
|ИЗ
| ВТДанныеУчетаВремениИСостоянийСотрудников КАК ВТДанныеУчетаВремениИСостоянийСотрудников
|ГДЕ
| ВТДанныеУчетаВремениИСостоянийСотрудников.ВидУчетаВремени В (&ВидУчетаВремени)
|
|СГРУППИРОВАТЬ ПО
| ВТДанныеУчетаВремениИСостоянийСотрудников.Сотрудник
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТСотрудники.Сотрудник КАК Сотрудник,
| ВТСотрудники.КоличествоДетей КАК КоличествоДетей,
| ВТСотрудники.ПлановыйЛимит КАК ПлановыйЛимит,
| (&КалендарныхДней - ЕСТЬNULL(ВТДнейОтпуска.Дни, 0)) / &КалендарныхДней КАК Коэффициент,
| (&КалендарныхДней - ЕСТЬNULL(ВТДнейОтпуска.Дни, 0)) / &КалендарныхДней * ВТСотрудники.ПлановыйЛимит КАК ЗаработанныйЛимит,
| ЕСТЬNULL(ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаНачальныйОстаток, 0) КАК ОстатокЛимитаНаНачало
|ИЗ
| ВТСотрудники КАК ВТСотрудники
| ЛЕВОЕ СОЕДИНЕНИЕ ВТДнейОтпуска КАК ВТДнейОтпуска
| ПО ВТСотрудники.Сотрудник = ВТДнейОтпуска.Сотрудник
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаработанныеЛимиты.ОстаткиИОбороты(&НачалоПериода, &КонецПериода, , , Год = ГОД(&НачалоПериода)) КАК ЗаработанныеЛимитыОстаткиИОбороты
| ПО ВТСотрудники.Сотрудник = ЗаработанныеЛимитыОстаткиИОбороты.Сотрудник";
СозданныйМассивОтпусков = Новый Массив();
СозданныйМассивОтпусков.Добавить(Справочники.ВидыИспользованияРабочегоВремени.НеоплачиваемыйОтпускПоРазрешениюРаботодателя);
СозданныйМассивОтпусков.Добавить(Справочники.ВидыИспользованияРабочегоВремени.НеоплачиваемыйОтпускПоЗаконодательству);
//ВидУчетаВремени = Справочники.ВидыИспользованияРабочегоВремени.НеоплачиваемыйОтпускПоРазрешениюРаботодателя;
Запрос.УстановитьПараметр("ВидУчетаВремени", СозданныйМассивОтпусков);
Запрос.УстановитьПараметр("КалендарныхДней", День(КонецМесяца(Объект.Дата)));
Запрос.УстановитьПараметр("НачалоПериода", НачалоМесяца(Объект.Дата));
Запрос.УстановитьПараметр("КонецПериода", КонецМесяца(Объект.Дата));
Объект.Сотрудники.Загрузить(Запрос.Выполнить().Выгрузить());
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиОстатокЛимитаНаНачалоПриИзменении(Элемент)
//Если Месяц(Объект.Дата) = 1 Тогда
// Объект.Сотрудники.ОстатокЛимитаНаНачало = "0"
//КонецЕсли;
Стр = Элементы.Сотрудники.ТекущиеДанные;
Если Стр.ПодтвержденныеРасходы > (Стр.ОстатокЛимитаНаНачало + Стр.ЗаработанныйЛимит) Тогда
Стр.ФактическиВозмещенныеРасходы = (Стр.ОстатокЛимитаНаНачало + Стр.ЗаработанныйЛимит);
Иначе Стр.ФактическиВозмещенныеРасходы = Стр.ПодтвержденныеРасходы;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиЗаработанныйЛимитПриИзменении(Элемент)
Стр = Элементы.Сотрудники.ТекущиеДанные;
Если Стр.ПодтвержденныеРасходы > (Стр.ОстатокЛимитаНаНачало + Стр.ЗаработанныйЛимит) Тогда
Стр.ФактическиВозмещенныеРасходы = (Стр.ОстатокЛимитаНаНачало + Стр.ЗаработанныйЛимит);
Иначе Стр.ФактическиВозмещенныеРасходы = Стр.ПодтвержденныеРасходы;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СотрудникиПодтвержденныеРасходыПриИзменении(Элемент)
Стр = Элементы.Сотрудники.ТекущиеДанные;
Если Стр.ПодтвержденныеРасходы > (Стр.ОстатокЛимитаНаНачало + Стр.ЗаработанныйЛимит) Тогда
Стр.ФактическиВозмещенныеРасходы = (Стр.ОстатокЛимитаНаНачало + Стр.ЗаработанныйЛимит);
Иначе Стр.ФактическиВозмещенныеРасходы = Стр.ПодтвержденныеРасходы;
КонецЕсли;
КонецПроцедуры
Обороты
Остатки
Непериодический, Независимый
ВЫБРАТЬ
ЗаработанныеЛимитыОстаткиИОбороты.Сотрудник КАК Работник,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаНачальныйОстаток КАК ОстатокЛимитаНаНачалоПериода,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаКонечныйОстаток КАК ОстатокЛимитаНаКонецПериода,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаПриход КАК ЗаработаноЛимитаЗаПериод,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаРасход КАК ФактическиВозмещенныеРасходы,
ЕСТЬNULL(ПодтвержденныеРасходыОбороты.ПодтвержденныйРасходОборот, 0) КАК ПодтвержденныеРасходы,
ЗаработанныеЛимитыОстаткиИОбороты.Период КАК Период,
ЗаработанныеЛимитыОстаткиИОбороты.Год КАК Год
ИЗ
РегистрНакопления.ЗаработанныеЛимиты.ОстаткиИОбороты(, , Месяц, , ) КАК ЗаработанныеЛимитыОстаткиИОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПодтвержденныеРасходы.Обороты(, , Месяц, ) КАК ПодтвержденныеРасходыОбороты
ПО ЗаработанныеЛимитыОстаткиИОбороты.Сотрудник = ПодтвержденныеРасходыОбороты.Сотрудник
И ЗаработанныеЛимитыОстаткиИОбороты.Период = ПодтвержденныеРасходыОбороты.Период
ГДЕ
ЗаработанныеЛимитыОстаткиИОбороты.Год = ГОД(ЗаработанныеЛимитыОстаткиИОбороты.Период)
ЗаработанныеЛимитыОстаткиИОбороты.Сотрудник КАК Работник,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаНачальныйОстаток КАК ОстатокЛимитаНаНачалоПериода,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаКонечныйОстаток КАК ОстатокЛимитаНаКонецПериода,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаПриход КАК ЗаработаноЛимитаЗаПериод,
ЗаработанныеЛимитыОстаткиИОбороты.СуммаЛимитаРасход КАК ФактическиВозмещенныеРасходы,
ЕСТЬNULL(ПодтвержденныеРасходыОбороты.ПодтвержденныйРасходОборот, 0) КАК ПодтвержденныеРасходы,
ЗаработанныеЛимитыОстаткиИОбороты.Период КАК Период,
ЗаработанныеЛимитыОстаткиИОбороты.Год КАК Год
ИЗ
РегистрНакопления.ЗаработанныеЛимиты.ОстаткиИОбороты(, , Месяц, , ) КАК ЗаработанныеЛимитыОстаткиИОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПодтвержденныеРасходы.Обороты(, , Месяц, ) КАК ПодтвержденныеРасходыОбороты
ПО ЗаработанныеЛимитыОстаткиИОбороты.Сотрудник = ПодтвержденныеРасходыОбороты.Сотрудник
И ЗаработанныеЛимитыОстаткиИОбороты.Период = ПодтвержденныеРасходыОбороты.Период
ГДЕ
ЗаработанныеЛимитыОстаткиИОбороты.Год = ГОД(ЗаработанныеЛимитыОстаткиИОбороты.Период)
- вообще не помню на чём там остановились.. ты, вроде, делала в итоге как-то умнее обнуление остатка на начала лимита неизрасходованного.. но у меня нет этой базы, поэтому пока только так(
курить
спать
кофе
отпуск
диабло
Воздух
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
Для примера в информационной базе заведена организация ООО «Открытый воздух», в которую 01.07.2024 принято трое сотрудников на разные должности, в соответствии с условием задачи. на должность «Мастер» (оклад 50 000 руб.) и один сотрудник на должность «Младший мастер» (оклад 40 000 руб.): у каждого начисление «Оплата по окладу (по часам)», полная ставка, пятидневка. В организации ведётся история изменений штатного расписания.
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ДанныеДляПроведения = ПолучитьДанныеДляПроведения();
СтруктураПлановыхНачислений = Новый Структура;
СтруктураПлановыхНачислений.Вставить("ДанныеОПлановыхНачислениях", ДанныеДляПроведения.ПлановыеНачисления);
СтруктураПлановыхНачислений.Вставить("ЗначенияПоказателей", ДанныеДляПроведения.ЗначенияПоказателей);
РасчетЗарплаты.СформироватьДвиженияПлановыхНачислений(ЭтотОбъект, Движения, СтруктураПлановыхНачислений);
// регистр ЗапланированоДнейРаботыНаОткрытомВоздухе
// лучше вызвать не отсюда, а поместить в новую функцию в область СлужебныеПроцедурыИФункци
Движения.ЗапланированоДнейРаботыНаОткрытомВоздухе.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ЗапланированоДнейРаботыНаОткрытомВоздухе.Добавить();
Движение.Период = ТекСтрокаСотрудники.ДатаНазначения;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.ДнейЗапланировано = 1;
КонецЦикла;
КонецПроцедуры
//Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
//
// ИндексСтроки = 0;
// Для каждого СтрокаСотрудника Из Сотрудники Цикл
//
// Если ЗначениеЗаполнено(СтрокаСотрудника.ДатаОкончания)
// И СтрокаСотрудника.ДатаОкончания < СтрокаСотрудника.ДатаНазначения Тогда
//
// ОбщегоНазначения.СообщитьПользователю(
// НСтр("ru='Дата окончания должна быть больше даты изменения'"),
// Ссылка,
// "Сотрудники[" + ИндексСтроки + "].ДатаОкончания",
// "Объект",
// Отказ)
//
// КонецЕсли;
//
// ИндексСтроки = ИндексСтроки + 1;
//
// КонецЦикла;
//
// Документы.ИзменениеПлановыхНачислений.ПроверитьПересечениеПериодовДействия(
// ЭтотОбъект, "Сотрудники", "Сотрудник", "ДатаНазначения", "ДатаОкончания", Отказ);
//
//КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
// Получает данные для формирования движений.
// Возвращает Структуру с полями.
// ПлановыеНачисления - данные, необходимые для формирования истории плановых начислений.
// (см. РасчетЗарплатыРасширенный.СформироватьДвиженияПлановыхНачислений)
// ЗначенияПоказателей (см. там же).
//
Функция ПолучитьДанныеДляПроведения()
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст =
"ВЫБРАТЬ
| ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаНазначения КАК ДатаСобытия,
| ДОБАВИТЬКДАТЕ(ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаОкончания, ДЕНЬ, 1) КАК ДействуетДо,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник КАК Сотрудник,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Начисление КАК Начисление,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка КАК ДокументОснование,
| ИСТИНА КАК Используется,
| ЛОЖЬ КАК ИспользуетсяПоОкончании,
| 0 КАК Размер,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Организация КАК ГоловнаяОрганизация
|ИЗ
| Документ.ГрафикРаботНаОткрытомВоздухе.Сотрудники КАК ГрафикРаботНаОткрытомВоздухеСотрудники
|ГДЕ
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка = &Ссылка
| И ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы <> 9999
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Организация КАК Организация,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник КАК Сотрудник,
| ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаНазначения КАК ДатаСобытия,
| ДОБАВИТЬКДАТЕ(ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаОкончания, ДЕНЬ, 1) КАК ДействуетДо,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка КАК ДокументОснование,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Показатель КАК Показатель,
| ЕСТЬNULL(ПроцентДоплатыОтТемпературы.ПроцентДоплаты, 0) КАК Значение,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо
|ИЗ
| Документ.ГрафикРаботНаОткрытомВоздухе.Сотрудники КАК ГрафикРаботНаОткрытомВоздухеСотрудники
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПроцентДоплатыОтТемпературы КАК ПроцентДоплатыОтТемпературы
| ПО ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы >= ПроцентДоплатыОтТемпературы.ТемператураОт
| И ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы < ПроцентДоплатыОтТемпературы.ТемператураДо
|ГДЕ
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка = &Ссылка
| И ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы <> 9999";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатыЗапроса = Запрос.ВыполнитьПакет();
ДанныеДляПроведения = Новый Структура;
// Первый набор данных для проведения - таблица для формирования плановых начислений.
ПлановыеНачисления = РезультатыЗапроса[0].Выгрузить();
ДанныеДляПроведения.Вставить("ПлановыеНачисления", ПлановыеНачисления);
// Второй набор данных для проведения - таблица для формирования значений показателей.
ЗначенияПоказателей = РезультатыЗапроса[1].Выгрузить();
ДанныеДляПроведения.Вставить("ЗначенияПоказателей", ЗначенияПоказателей);
Возврат ДанныеДляПроведения;
КонецФункции
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Проведение документа
ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);
ДанныеДляПроведения = ПолучитьДанныеДляПроведения();
СтруктураПлановыхНачислений = Новый Структура;
СтруктураПлановыхНачислений.Вставить("ДанныеОПлановыхНачислениях", ДанныеДляПроведения.ПлановыеНачисления);
СтруктураПлановыхНачислений.Вставить("ЗначенияПоказателей", ДанныеДляПроведения.ЗначенияПоказателей);
РасчетЗарплаты.СформироватьДвиженияПлановыхНачислений(ЭтотОбъект, Движения, СтруктураПлановыхНачислений);
// регистр ЗапланированоДнейРаботыНаОткрытомВоздухе
// лучше вызвать не отсюда, а поместить в новую функцию в область СлужебныеПроцедурыИФункци
Движения.ЗапланированоДнейРаботыНаОткрытомВоздухе.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.ЗапланированоДнейРаботыНаОткрытомВоздухе.Добавить();
Движение.Период = ТекСтрокаСотрудники.ДатаНазначения;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.ДнейЗапланировано = 1;
КонецЦикла;
КонецПроцедуры
//Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
//
// ИндексСтроки = 0;
// Для каждого СтрокаСотрудника Из Сотрудники Цикл
//
// Если ЗначениеЗаполнено(СтрокаСотрудника.ДатаОкончания)
// И СтрокаСотрудника.ДатаОкончания < СтрокаСотрудника.ДатаНазначения Тогда
//
// ОбщегоНазначения.СообщитьПользователю(
// НСтр("ru='Дата окончания должна быть больше даты изменения'"),
// Ссылка,
// "Сотрудники[" + ИндексСтроки + "].ДатаОкончания",
// "Объект",
// Отказ)
//
// КонецЕсли;
//
// ИндексСтроки = ИндексСтроки + 1;
//
// КонецЦикла;
//
// Документы.ИзменениеПлановыхНачислений.ПроверитьПересечениеПериодовДействия(
// ЭтотОбъект, "Сотрудники", "Сотрудник", "ДатаНазначения", "ДатаОкончания", Отказ);
//
//КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
// Получает данные для формирования движений.
// Возвращает Структуру с полями.
// ПлановыеНачисления - данные, необходимые для формирования истории плановых начислений.
// (см. РасчетЗарплатыРасширенный.СформироватьДвиженияПлановыхНачислений)
// ЗначенияПоказателей (см. там же).
//
Функция ПолучитьДанныеДляПроведения()
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст =
"ВЫБРАТЬ
| ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаНазначения КАК ДатаСобытия,
| ДОБАВИТЬКДАТЕ(ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаОкончания, ДЕНЬ, 1) КАК ДействуетДо,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник КАК Сотрудник,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Начисление КАК Начисление,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка КАК ДокументОснование,
| ИСТИНА КАК Используется,
| ЛОЖЬ КАК ИспользуетсяПоОкончании,
| 0 КАК Размер,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Организация КАК ГоловнаяОрганизация
|ИЗ
| Документ.ГрафикРаботНаОткрытомВоздухе.Сотрудники КАК ГрафикРаботНаОткрытомВоздухеСотрудники
|ГДЕ
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка = &Ссылка
| И ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы <> 9999
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Организация КАК Организация,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник КАК Сотрудник,
| ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаНазначения КАК ДатаСобытия,
| ДОБАВИТЬКДАТЕ(ГрафикРаботНаОткрытомВоздухеСотрудники.ДатаОкончания, ДЕНЬ, 1) КАК ДействуетДо,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка КАК ДокументОснование,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка.Показатель КАК Показатель,
| ЕСТЬNULL(ПроцентДоплатыОтТемпературы.ПроцентДоплаты, 0) КАК Значение,
| ГрафикРаботНаОткрытомВоздухеСотрудники.Сотрудник.ФизическоеЛицо КАК ФизическоеЛицо
|ИЗ
| Документ.ГрафикРаботНаОткрытомВоздухе.Сотрудники КАК ГрафикРаботНаОткрытомВоздухеСотрудники
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПроцентДоплатыОтТемпературы КАК ПроцентДоплатыОтТемпературы
| ПО ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы >= ПроцентДоплатыОтТемпературы.ТемператураОт
| И ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы < ПроцентДоплатыОтТемпературы.ТемператураДо
|ГДЕ
| ГрафикРаботНаОткрытомВоздухеСотрудники.Ссылка = &Ссылка
| И ГрафикРаботНаОткрытомВоздухеСотрудники.ЗначениеТемпературы <> 9999";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатыЗапроса = Запрос.ВыполнитьПакет();
ДанныеДляПроведения = Новый Структура;
// Первый набор данных для проведения - таблица для формирования плановых начислений.
ПлановыеНачисления = РезультатыЗапроса[0].Выгрузить();
ДанныеДляПроведения.Вставить("ПлановыеНачисления", ПлановыеНачисления);
// Второй набор данных для проведения - таблица для формирования значений показателей.
ЗначенияПоказателей = РезультатыЗапроса[1].Выгрузить();
ДанныеДляПроведения.Вставить("ЗначенияПоказателей", ЗначенияПоказателей);
Возврат ДанныеДляПроведения;
КонецФункции
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
&НаКлиенте
Процедура Заполнить(Команда)
// Вариант синтаксиса: С диалогом выбора файла
ОписаниеОповещенияОЗавершении = Новый ОписаниеОповещения("ВыполнитьПослеОкончания", ЭтотОбъект);
ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов;
ПараметрыДиалога.Заголовок = "Выберите файл прибора |*txt";
ПараметрыДиалога.МножественныйВыбор = Ложь;
ПараметрыДиалога.Фильтр = "Текстовый документ|*.txt";
НачатьПомещениеФайлаНаСервер(ОписаниеОповещенияОЗавершении,,,,ПараметрыДиалога);
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьПослеОкончания (ОписаниеПомещенногоФайла, ДополнительныеПараметры) Экспорт
Если ОписаниеПомещенногоФайла <> Неопределено Тогда
Адрес = ОписаниеПомещенногоФайла.Адрес;
ПоместитьВоВременноеХранилище(Адрес);
ОбработатьНаСервере(Адрес);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ОбработатьНаСервере (Адрес)
ДвоичныеДанные = ПолучитьИзВременногоХранилища(Адрес);
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("txt");
ДвоичныеДанные.Записать(ИмяВременногоФайла);
ЧтениеТекста = Новый ЧтениеТекста;
ЧтениеТекста.Открыть(ИмяВременногоФайла);
СтрИзФайла = ЧтениеТекста.ПрочитатьСтроку();
//2024.07.01;-10
ТЗ = Новый ТаблицаЗначений;
//есть общий модуль "ОбщегоНазначения" - там есть описания типов ("ОписаниеТипаДата" и "ОписаниеТипаЧисло").
ТЗ.Колонки.Добавить("ДатаНазначения", ОбщегоНазначения.ОписаниеТипаДата(ЧастиДаты.Дата));
ТЗ.Колонки.Добавить("ЗначениеТемпературы", ОбщегоНазначения.ОписаниеТипаЧисло(15,2));
Пока СтрИзФайла <> Неопределено Цикл
СтрТЗ = ТЗ.Добавить();
МассивСтрок = СтрРазделить(СтрИзФайла, ";");
//есть общий модуль "СтроковыеФункцииКлиентСервер" - там написано как преобразовать строку в число и стоку в дату.
СтрТЗ.ДатаНазначения = СтроковыеФункцииКлиентСервер.СтрокаВДату(МассивСтрок[0],ЧастиДаты.Дата);
СтрТЗ.ЗначениеТемпературы = СтроковыеФункцииКлиентСервер.СтрокаВЧисло(МассивСтрок[1]);
СтрИзФайла = ЧтениеТекста.ПрочитатьСтроку();
КонецЦикла;
ЧтениеТекста.Закрыть();
УдалитьФайлы(ИмяВременногоФайла);
//в итоге мы получили таблицу. и у нас есть табличная часть в документе. создаём запрос
// в запросе поля не из документа.ссылка, а из временной таблицы (т.к. если документ не записан, но никакие данные не получим
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Сотрудники.Сотрудник КАК Сотрудник,
| Сотрудники.ДатаНазначения КАК ДатаНазначения,
| Сотрудники.ДатаОкончания КАК ДатаОкончания
|ПОМЕСТИТЬ ВТСотрудники
|ИЗ
| &Сотрудники КАК Сотрудники
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ТЗ.ДатаНазначения КАК ДатаНазначения,
| ТЗ.ЗначениеТемпературы КАК ЗначениеТемпературы
|ПОМЕСТИТЬ ВТЗначенияТемпературы
|ИЗ
| &ТЗ КАК ТЗ
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТСотрудники.Сотрудник КАК Сотрудник,
| ВТСотрудники.ДатаНазначения КАК ДатаНазначения,
| ВТСотрудники.ДатаОкончания КАК ДатаОкончания,
| ЕСТЬNULL(ВТЗначенияТемпературы.ЗначениеТемпературы, 9999) КАК ЗначениеТемпературы
|ИЗ
| ВТСотрудники КАК ВТСотрудники
| ЛЕВОЕ СОЕДИНЕНИЕ ВТЗначенияТемпературы КАК ВТЗначенияТемпературы
| ПО ВТСотрудники.ДатаНазначения = ВТЗначенияТемпературы.ДатаНазначения";
// момент с сотрудниками - нам нужен тип "таблица значений"
Запрос.УстановитьПараметр("Сотрудники", Объект.Сотрудники.Выгрузить());
Запрос.УстановитьПараметр("ТЗ", ТЗ);
Объект.Сотрудники.Загрузить(Запрос.Выполнить().Выгрузить());
КонецПроцедуры
Обороты
Непериодический, Независимый
ВЫБРАТЬ
ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Сотрудник КАК Сотрудник,
ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Период КАК Период,
ЕСТЬNULL(ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.ДнейЗапланированоОборот, 0) КАК ЗапланированоДнейРаботНаОткрытомВоздухе,
ЕСТЬNULL(ОтработанноеВремяПоСотрудникамОбороты.ОплаченоДнейОборот, 0) КАК ФактическиОтработаноДнейНаОткрытомВоздухе,
ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты.СуммаОборот, 0) КАК НачисленоДоплаты,
ВЫБОР
КОГДА ЕСТЬNULL(ОтработанноеВремяПоСотрудникамОбороты.ОплаченоДнейОборот, 0) <> 0
ТОГДА ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты.СуммаОборот, 0) / ЕСТЬNULL(ОтработанноеВремяПоСотрудникамОбороты.ОплаченоДнейОборот, 0)
ИНАЧЕ 0
КОНЕЦ КАК СреднийРазмерДоплатыЗаОдинРабочийДень
ИЗ
РегистрНакопления.ЗапланированоДнейРаботыНаОткрытомВоздухе.Обороты(, , Месяц, ) КАК ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОтработанноеВремяПоСотрудникам.Обороты(, , Месяц, Начисление = &НачислениеНаОткрытомВоздухе) КАК ОтработанноеВремяПоСотрудникамОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.НачисленияУдержанияПоСотрудникам.Обороты(, , Месяц, НачислениеУдержание = &НачислениеНаОткрытомВоздухе) КАК НачисленияУдержанияПоСотрудникамОбороты
ПО ОтработанноеВремяПоСотрудникамОбороты.Сотрудник = НачисленияУдержанияПоСотрудникамОбороты.Сотрудник
И ОтработанноеВремяПоСотрудникамОбороты.Период = НачисленияУдержанияПоСотрудникамОбороты.Период
ПО ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Сотрудник = ОтработанноеВремяПоСотрудникамОбороты.Сотрудник
И ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Период = ОтработанноеВремяПоСотрудникамОбороты.Период
ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Сотрудник КАК Сотрудник,
ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Период КАК Период,
ЕСТЬNULL(ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.ДнейЗапланированоОборот, 0) КАК ЗапланированоДнейРаботНаОткрытомВоздухе,
ЕСТЬNULL(ОтработанноеВремяПоСотрудникамОбороты.ОплаченоДнейОборот, 0) КАК ФактическиОтработаноДнейНаОткрытомВоздухе,
ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты.СуммаОборот, 0) КАК НачисленоДоплаты,
ВЫБОР
КОГДА ЕСТЬNULL(ОтработанноеВремяПоСотрудникамОбороты.ОплаченоДнейОборот, 0) <> 0
ТОГДА ЕСТЬNULL(НачисленияУдержанияПоСотрудникамОбороты.СуммаОборот, 0) / ЕСТЬNULL(ОтработанноеВремяПоСотрудникамОбороты.ОплаченоДнейОборот, 0)
ИНАЧЕ 0
КОНЕЦ КАК СреднийРазмерДоплатыЗаОдинРабочийДень
ИЗ
РегистрНакопления.ЗапланированоДнейРаботыНаОткрытомВоздухе.Обороты(, , Месяц, ) КАК ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОтработанноеВремяПоСотрудникам.Обороты(, , Месяц, Начисление = &НачислениеНаОткрытомВоздухе) КАК ОтработанноеВремяПоСотрудникамОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.НачисленияУдержанияПоСотрудникам.Обороты(, , Месяц, НачислениеУдержание = &НачислениеНаОткрытомВоздухе) КАК НачисленияУдержанияПоСотрудникамОбороты
ПО ОтработанноеВремяПоСотрудникамОбороты.Сотрудник = НачисленияУдержанияПоСотрудникамОбороты.Сотрудник
И ОтработанноеВремяПоСотрудникамОбороты.Период = НачисленияУдержанияПоСотрудникамОбороты.Период
ПО ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Сотрудник = ОтработанноеВремяПоСотрудникамОбороты.Сотрудник
И ЗапланированоДнейРаботыНаОткрытомВоздухеОбороты.Период = ОтработанноеВремяПоСотрудникамОбороты.Период
2024.07.01;-20
2024.07.02;-10
2024.07.03;20
2024.07.04;-70
2024.07.05;70
2024.07.02;-10
2024.07.03;20
2024.07.04;-70
2024.07.05;70
- Не ведётся сохранение истории? Как решение - тупо задублировать документ существующий, оставить его и его регистр для плана. и точно такой же, но с кнопкой - для факта.
- ВАЖНО: На экзамене была другая форма отчёта
курить
спать
кофе
отпуск
диабло
Внешний отчёт
Хранилище: ХранилищеВариантовОтчетов
#Область РегистрацияВнешнейОбработки
Функция СведенияОВнешнейОбработке() Экспорт
МетаданныеОбработки = ЭтотОбъект.Метаданные();
ИмяОтчета = МетаданныеОбработки.Имя;
Синоним = МетаданныеОбработки.Синоним;
НаименованиеОтчета = ?(ЗначениеЗаполнено(Синоним), Синоним, ИмяОтчета);
Комментарий = МетаданныеОбработки.Комментарий;
ВерсияОбработки = ПолучитьВерсиюОбработки();
ВидВнешнегоОтчетаОбработки = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительныйОтчет();
ИспользованиеКоманды = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
МассивНазначений = Новый Массив;
РегистрационныеДанные = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке(СтандартныеПодсистемыСервер.ВерсияБиблиотеки());
РегистрационныеДанные.Вид = ВидВнешнегоОтчетаОбработки;
РегистрационныеДанные.Назначение = МассивНазначений;
РегистрационныеДанные.Наименование = НаименованиеОтчета;
РегистрационныеДанные.Версия = ВерсияОбработки;
РегистрационныеДанные.БезопасныйРежим = Истина;
РегистрационныеДанные.Информация = СтрШаблон("%1 %2", ВидВнешнегоОтчетаОбработки, Синоним);
// Добавим команду
ИмяКоманды = ИмяОтчета;
ПредставлениеКоманды = НаименованиеОтчета;
Команда = РегистрационныеДанные.Команды.Добавить();
Команда.Идентификатор = ИмяКоманды;
Команда.Представление = ПредставлениеКоманды;
Команда.Использование = ИспользованиеКоманды;
Команда.ПоказыватьОповещение = Истина;
Возврат РегистрационныеДанные;
КонецФункции
Функция ПолучитьВерсиюОбработки() Экспорт
Возврат "3.1";
КонецФункции
Функция ПолучитьИмяОбработки() Экспорт
Возврат Метаданные().Представление();
КонецФункции
#КонецОбласти //РегистрацияВнешнейОбработки
