// Проверяет необходимость выполнения перерасчета документа. 

Функция НеобходимостьПерерасчета(Регистратор) Экспорт



Запрос = Новый Запрос( "ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

|ИЗ

| (ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо КАК ФизЛицо

| ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.ПерерасчетОсновныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор



|



| ОБЪЕДИНИТЬ ВСЕ

|

| ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

| ИЗ

|РегистрРасчета.ДополнительныеНачисленияРегл.ПерерасчетДополнительныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор) КАК Перерасчет");



Запрос.УстановитьПараметр("Регистратор", Регистратор); Если Запрос.Выполнить().Пустой() Тогда

Возврат Ложь;



Иначе



Возврат Истина;

КонецЕсли;



КонецФункции // НеобходимостьПерерасчета   

 Процедура Перерассчитать(Физлица = Неопределено) Экспорт



// Перерасчет выполняется в транзакции. НачатьТранзакцию();

Если Не Расчеты.НеобходимостьПерерасчета(Ссылка) Тогда

Возврат; КонецЕсли;



// Считать движения документа по регистрам расчета. Движения.ОсновныеНачисленияРегл.Прочитать(); Движения.ДополнительныеНачисленияРегл.Прочитать();



// Перерасчет и перезапись движений по регистрам расчета.

Расчеты. ПерерассчитатьЗаписиРегистраРасчета("ОсновныеНачисленияРегл", Движения.ОсновныеНачисленияРегл, ОсновныеНачисления, Физлица);

Движения.ОсновныеНачисленияРегл.Записать(Истина, Истина);



Расчеты.ПерерассчитатьЗаписиРегистраРасчета("ДополнительныеНачисленияРегл", Движения.ДополнительныеНачисленияРегл, ДополнительныеНачисления, Физлица);

Движения.ДополнительныеНачисленияРегл.Записать(Истина, Истина);



// Записать измененные данные табличных частей документа. Записать();



// Удалить записи перерасчета, по которым выполнен перерасчет. Для Н = 1 По 2 Цикл

Если Н = 1 Тогда

НаборЗаписей = РегистрыРасчета.ОсновныеНачисленияРегл.

Перерасчеты.ПерерасчетОсновныхНачислений. СоздатьНаборЗаписей();

НаборЗаписей.Записать(); КонецЦикла;



// Перерасчет выполняется в транзакции. ЗафиксироватьТранзакцию();



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

 Процедура ПерерассчитатьНаборЗаписей(НаборЗаписей, Приоритет, ТабличнаяЧасть = Неопределено, ФизЛица = Неопределено)



Для каждого Запись из НаборЗаписей Цикл

Если Запись.ВидРасчета.Приоритет = Приоритет Тогда

Если НЕ ФизЛица.НайтиПоЗначению(Запись.Физлицо) = Неопределено Тогда



// Получить данные для расчета записи.

ДанныеДляРасчета = ПолучитьДанныеДляРасчета(Запись);



Иначе



НаборЗаписей = РегистрыРасчета.ДополнительныеНачисленияРегл.

Перерасчеты.ПерерасчетДополнительныхНачислений. СоздатьНаборЗаписей();



// Вызвать процедуру расчета записи. РассчитатьЗапись(Запись, ДанныеДляРасчета);



КонецЕсли;

НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = Ссылка; Если Физлица <> НеОпределено Тогда

НаборЗаписей.Прочитать(); СтрокиКУдалению = Новый Массив;



Для Каждого СтрокаПерерасчета из НаборЗаписей Цикл

Если Физлица.НайтиПоЗначению( СтрокаПерерасчета.Физлицо) <> НеОпределено Тогда СтрокиКУдалению.Добавить(СтрокаПерерасчета);

КонецЕсли; КонецЦикла;



Для Каждого Строка Из СтрокиКУдалению Цикл

НаборЗаписей.Удалить(Строка); КонецЦикла;

КонецЕсли;

// Вернуть результат расчета в табличную часть документа. Если Не ТабличнаяЧасть = Неопределено Тогда

СтрокаТабличнойЧасти = ТабличнаяЧасть.Получить(Запись.НомерСтроки-1);

СтрокаТабличнойЧасти.Результат = Запись.Результат; КонецЕсли;

КонецЕсли; КонецЕсли;

КонецЦикла;



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



Процедура ПерерассчитатьЗаписиРегистраРасчета(ИмяРегистра,

НаборЗаписей, ТабличнаяЧасть = Неопределено, Физлица = Неопределено) Экспорт



Регистратор = НаборЗаписей.Отбор.Регистратор.Значение;



// Запрос по приоритетам видов расчета

// только записей заданных сотрудников.



Запрос = Новый Запрос; Запрос.Текст = "

|ВЫБРАТЬ РАЗЛИЧНЫЕ

| " + ИмяРегистра + ".ВидРасчета.Приоритет КАК Приоритет

|ИЗ

| РегистрРасчета." + ИмяРегистра + " КАК " + ИмяРегистра + "

|ГДЕ

| ФизЛицо В (&СписокФизлиц) И Регистратор = &Регистратор

|УПОРЯДОЧИТЬ ПО

| Приоритет

|ИТОГИ ПО

| " + ИмяРегистра + ".ВидРасчета.Приоритет";



Запрос.УстановитьПараметр("СписокФизлиц", Физлица); Запрос.УстановитьПараметр("Регистратор", Регистратор);



ВыборкаПриоритетов = Запрос.Выполнить().

Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



// Для каждого значения приоритета выполняется расчет записей. Пока ВыборкаПриоритетов.Следующий() Цикл

ПерерассчитатьНаборЗаписей(НаборЗаписей, ВыборкаПриоритетов.Приоритет, ТабличнаяЧасть, Физлица);



// Записать набор в регистр для расчета записей следующего

// приоритета, фактический период действия не пересчитывается. НаборЗаписей.Записать(Истина, Истина);

КонецЦикла;



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

 //Формирование записей перерасчета



Процедура СформироватьЗаписиПерерасчета()



// Запрос по записям регистра расчета. Запрос = Новый Запрос("

|ВЫБРАТЬ РАЗЛИЧНЫЕ

| СдельнаяВыработка.ФизЛицо,

| СдельнаяВыработка.Организация,

| ОсновныеНачисленияРегл.Регистратор,

| ОсновныеНачисленияРегл.ВидРасчета

|ИЗ

| РегистрНакопления.СдельнаяВыработка КАК СдельнаяВыработка

| ЛЕВОЕ СОЕДИНЕНИЕ

| РегистрРасчета.ОсновныеНачисленияРегл КАК ОсновныеНачисленияРегл

| ПО СдельнаяВыработка.ФизЛицо = ОсновныеНачисленияРегл.ФизЛицо

| И СдельнаяВыработка.Организация = ОсновныеНачисленияРегл.Организация

| И (СдельнаяВыработка.Период МЕЖДУ

| ОсновныеНачисленияРегл.ПериодДействияНачало

| И ОсновныеНачисленияРегл.ПериодДействияКонец)

|ГДЕ

| ОсновныеНачисленияРегл.ВидРасчета = &ВидРасчета

| И СдельнаяВыработка.Регистратор = &Регистратор

|ИТОГИ ПО

| Регистратор");



Запрос.УстановитьПараметр("ВидРасчета", ПланыВидовРасчета.ОсновныеНачисления.Сдельный);

Запрос.УстановитьПараметр("Регистратор", Ссылка);



ВыборкаДокументов = Запрос.Выполнить().

Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



// Получение объекта ПерерасчетМенеджер.

Перерасчет = РегистрыРасчета.ОсновныеНачисленияРегл.

Перерасчеты.ПерерасчетОсновныхНачислений;



Пока ВыборкаДокументов.Следующий() Цикл



// Создание набора записей.

НаборЗаписей = Перерасчет.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = ВыборкаДокументов.Регистратор;



Выборка = ВыборкаДокументов.Выбрать();

// Создание записей перерасчета. Пока Выборка.Следующий() Цикл

Запись = НаборЗаписей.Добавить(); Запись.ВидРасчета = Выборка.ВидРасчета; Запись.Организация = Выборка.Организация; Запись.ФизЛицо = Выборка.ФизЛицо;

КонецЦикла;



// Запись в таблицу без замещения. НаборЗаписей.Записать(Ложь);



КонецЦикла;



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

 Процедура РассчитатьНаборЗаписей(НаборЗаписей, Приоритет, ТабличнаяЧасть = Неопределено)

Иначе



СтруктураДанных.Вставить("ОтработаноВремени", 0); СтруктураДанных.Вставить("НормаВремени", 0);



Для каждого Запись из НаборЗаписей Цикл

Если Запись.ВидРасчета.Приоритет = Приоритет Тогда



// Получить данные для расчета записи.

ДанныеДляРасчета = ПолучитьДанныеДляРасчета(Запись);



// Вызвать процедуру расчета записи. РассчитатьЗапись(Запись, ДанныеДляРасчета);



// Возвратить результат расчета в табличную часть документа. Если Не ТабличнаяЧасть = Неопределено Тогда

СтрокаТабличнойЧасти = ТабличнаяЧасть.Получить(Запись.НомерСтроки-1); СтрокаТабличнойЧасти.Результат = Запись.Результат;

КонецЕсли; КонецЕсли;

КонецЦикла;



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

 Функция ПолучитьДанныеДляРасчета(Запись)



СпособРасчета = Запись.ВидРасчета.СпособРасчета; СтруктураДанных = Новый Структура;

Если СпособРасчета = Перечисления.СпособыРасчета.ПоМесячнойСтавке Тогда



// Получить данные графика.



Запрос = Новый Запрос("

|ВЫБРАТЬ

| ДанныеГрафика.ЗначениеФактическийПериодДействия КАК ГрафикФакт,

| ДанныеГрафика.ЗначениеПериодДействия КАК ГрафикНорма

|ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.ДанныеГрафика(

| Регистратор = &Регистратор

| И НомерСтроки = &НомерСтроки)

КАК ДанныеГрафика");



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

Выборка = Запрос.Выполнить().Выбрать();



Если Выборка.Следующий() Тогда

СтруктураДанных.Вставить("ОтработаноВремени", Выборка.ГрафикФакт);

СтруктураДанных.Вставить("НормаВремени", Выборка.ГрафикНорма);



КонецЕсли;



ИначеЕсли



СпособРасчета = Перечисления.СпособыРасчета.ПроцентомОтБазы Тогда



Запрос = Новый Запрос("

|ВЫБРАТЬ

| База.РезультатБаза

|ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.БазаОсновныеНачисленияРегл(

| &Измерения, &Измерения, ,

| Регистратор = &Регистратор

| И НомерСтроки = &НомерСтроки) КАК База");



Измерения = Новый Массив(2); Измерения[0] = "ФизЛицо"; Измерения[1] = "Организация";



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



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



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



Выборка = Запрос.Выполнить().Выбрать();



Если Выборка.Следующий() Тогда

СтруктураДанных.Вставить("База", Выборка.РезультатБаза);



Иначе



СтруктураДанных.Вставить("База", 0);



КонецЕсли;



ИначеЕсли СпособРасчета = Перечисления.СпособыРасчета.ПоСдельнойВыработке Тогда



// Получить данные регистра накопления

// фактическая выработка за период действия записи.



Запрос = Новый Запрос("



|ВЫБРАТЬ

| СУММА(СдельнаяВыработкаОбороты.ВыработкаОборот) КАК ВыработкаОборот

|ИЗ

| РегистрНакопления.СдельнаяВыработка.Обороты(

| &ДатаНачало, &ДатаКонец, ,

| Организация = &Организация И ФизЛицо = &ФизЛицо)

| КАК СдельнаяВыработкаОбороты");



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

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

Запрос.УстановитьПараметр("ФизЛицо", Запись.ФизЛицо); Запрос.УстановитьПараметр("Организация", Запись.Организация);

Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда

СтруктураДанных.Вставить("Выработка", Выборка.ВыработкаОборот);

Иначе

СтруктураДанных.Вставить("Выработка", 0); КонецЕсли;



КонецЕсли;



Возврат СтруктураДанных;



КонецФункции // ПолучитьДанныеДляРасчета   

 Процедура РассчитатьЗапись(Запись, ДанныеДляРасчета) СпособРасчета = Запись.ВидРасчета.СпособРасчета;

Если СпособРасчета = Перечисления.СпособыРасчета.ПоМесячнойСтавке Тогда

Если Не ДанныеДляРасчета.НормаВремени = 0 Тогда

Результат = Запись.Размер * ДанныеДляРасчета.ОтработаноВремени / ДанныеДляРасчета.НормаВремени;

Иначе

Результат = 0; КонецЕсли;



ИначеЕсли

СпособРасчета = Перечисления.СпособыРасчета.ПроцентомОтБазы Тогда

Результат = Запись.Размер * ДанныеДляРасчета.База / 100;



ИначеЕсли

СпособРасчета = Перечисления.СпособыРасчета.ФиксированнойСуммой Тогда

Результат = Запись.Размер;



ИначеЕсли

СпособРасчета = Перечисления.СпособыРасчета.ПоСдельнойВыработке Тогда

Результат = ДанныеДляРасчета.Выработка; КонецЕсли;



Запись.Результат = Результат * ?(Запись.Сторно, -1, 1);



КонецПроцедуры // Рассчитать запись   

 Процедура РассчитатьОсновныеНачисления() Экспорт



// Расчет записей выполняется в транзакции. 

НачатьТранзакцию();



// Создать набор записей регистра расчета

НаборОсновныеНачисления = РегистрыРасчета.ОсновныеНачисленияРегл.

СоздатьНаборЗаписей(); НаборОсновныеНачисления.Отбор.Регистратор.Значение = Ссылка; ВыборкаОсновныеНачисления = ОбщегоНазначения.

СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ОсновныеНачисления").Выбрать();

Пока ВыборкаОсновныеНачисления.Следующий() Цикл

ДобавитьСтрокуОсновныхНачислений(ВыборкаОсновныеНачисления, НаборОсновныеНачисления);

КонецЦикла;



// Расчет записей набора.

// ...



ЗафиксироватьТранзакцию();



КонецПроцедуры // РассчитатьОсновныеНачисления   

 //Формирование записей регистра расчета



// Процедура добавляет запись в регистр основных начислений.

Процедура ДобавитьСтрокуОсновныхНачислений(ДанныеСтроки, НаборЗаписей)



Движение = НаборЗаписей.Добавить();



// Предопределенные поля. 

Движение.ПериодРегистрации = ПериодРегистрации; 

Движение.ПериодДействияНачало = ДанныеСтроки.ДатаНачало; 

Движение.ПериодДействияКонец = ДанныеСтроки.ДатаКонец; 

Движение.ВидРасчета = ДанныеСтроки.ВидРасчета; 

Движение.Сторно = ДанныеСтроки.Сторно;



// Измерения.

Движение.ФизЛицо = ДанныеСтроки.ФизЛицо; Движение.Организация= Организация;



// Ресурсы.

Движение.Результат = ДанныеСтроки.Результат;



// Реквизиты.

Движение.ГрафикРаботы = ДанныеСтроки.ФизЛицо.ГрафикРаботы; 

Движение.Размер = ДанныеСтроки.Размер;

Движение.ВидУчетаВремени = ДанныеСтроки.ВидРасчета.ВидУчетаВремени; 

Движение.Подразделение = ДанныеСтроки.Подразделение; 

Движение.СтатьяЗатрат = ДанныеСтроки.ВидРасчета.СтатьяЗатрат;



КонецПроцедуры // ДобавитьСтрокуОсновныхНачислений



// Обработка проведения.

Процедура ОбработкаПроведения(Отказ)



Движения.ОсновныеНачисленияРегл.Записывать = Истина; Движения.ДополнительныеНачисленияРегл.Записывать = Истина;



// Сформировать запрос по табличной части при помощи функции общего модуля. ВыборкаОсновныеНачисления = ОбщегоНазначения.

СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ОсновныеНачисления").Выбрать();



// По каждой строке табличной части сформировать запись в регистр. Пока ВыборкаОсновныеНачисления.Следующий() Цикл

ДобавитьСтрокуОсновныхНачислений(ВыборкаОсновныеНачисления, Движения.ОсновныеНачисленияРегл);

настройка алгоритмов расчета



КонецЦикла;



// Запись дополнительных начислений в регистр.

ВыборкаДополнительныеНачисления = ОбщегоНазначения.

СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ДополнительныеНачисления").Выбрать();



Пока ВыборкаДополнительныеНачисления.Следующий() Цикл



ДобавитьСтрокуДополнительныхНачислений(ВыборкаДополнительныеНачисления, Движения.ДополнительныеНачисленияРегл);



КонецЦикла;



КонецПроцедуры // ОбработкаПроведения   

 Запрос = Новый Запрос; Запрос.Текст = "

|ВЫБРАТЬ

| База.ПериодРегистрацииРазрез КАК ПериодРегистрацииРазрез,

| База.ВидРасчетаРазрез,

| СУММА(База.РезультатБаза) КАК РезультатБаза

|ИЗ

| РегистрРасчета.ДополнительныеНачисленияРегл.

БазаОсновныеНачисленияРегл(

| &Измерения,

| &Измерения,

| &Разрезы,

| Регистратор = &Регистратор И НомерСтроки = &НомерСтроки) КАК База

|

|СГРУППИРОВАТЬ ПО

| База.ПериодРегистрацииРазрез,

| База.ВидРасчетаРазрез

|ИТОГИ

| СУММА(РезультатБаза)

| ПО

| ОБЩИЕ,

| ПериодРегистрацииРазрез";



// Сформировать массив измерений основного и базового регистров

// (названия измерений совпадают, поэтому используется один массив). 

Измерения = Новый Массив(2);

Измерения[0] = "ФизЛицо";

Измерения[1] = "Организация";



// Сформировать массив разрезов.

Разрезы = Новый Массив(2); 

Разрезы[0] = "ПериодРегистрации"; 

Разрезы[1] = "ВидРасчета";



// Передать параметры в запрос. Запрос.УстановитьПараметр("Измерения", Измерения); Запрос.УстановитьПараметр("Разрезы", Разрезы);



// Запрос строится по конкретной записи документа

// с номером ТекущийНомерСтроки. 

Запрос.УстановитьПараметр("Регистратор", Ссылка); 

Запрос.УстановитьПараметр("НомерСтроки", ВыбранныйНомерСтроки);



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

 // Получить набор записей текущего документа.

НаборЗаписей = РегистрыРасчета.ОсновныеНачисленияРегл.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Регистратор.Установить(Ссылка, Истина); НаборЗаписей.Прочитать();



// Получить таблицу сторно-записей для набора записей текущего документа. ТаблицаСторно = НаборЗаписей.ПолучитьДополнение();



// Сформировать сторно-записи в регистре расчета

Для Каждого СтрокаСторно из ТаблицаСторно Цикл

Запись = Движения.ОсновныеНачисленияРегл.Добавить(); Запись.ВидРасчета = СтрокаСторно.ВидРасчета; Запись.ПериодРегистрации = СтрокаСторно.ПериодРегистрацииСторно;

Запись.ПериодДействияНачало = СтрокаСторно.ПериодДействияНачалоСторно; Запись.ПериодДействияКонец = СтрокаСторно.ПериодДействияКонецСторно;



// Заполнить измерения и реквизиты записи

// ...



Запись.Сторно = Истина; КонецЦикла