Рассчитать оклад по фактическому периоду и исходным данным

ЗаписьРегистра.Результат = (ЗаписьРегистра.ИсходныеДанные /ВыборкаРезультата.Норма) * ВыборкаРезультата.Факт;

Сообщить(" Выполнен расчет" + ЗаписьРегистра.Регистратор + " - " + ЗаписьРегистра.ВидРасчета + " ― " + ЗаписьРегистра.Сотрудник);

КонецЕсли;

КонецЕсли;

КонецЦикла;

 

// Рассчитать вторичные записи

ИначеЕсли ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Премия Тогда

КонецЕсли;

 

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

 

Для каждой записи из набора записей регистра расчета мы получаем номер строки и по этому номеру ищем соответствующую запись в выборке из результата запроса. Если в результате запроса есть запись с таким номером строки, мы рассчитываем результат записи регистра расчета.

Добавим текст запроса во вторую ветку условия Если … с той лишь разницей, что теперь мы будем получать значения базы, используя виртуальную таблицу регистра расчета РегистрРасчета.Начисления.БазаНачисления (листинг 17.6).

 

Листинг 17.6 Добавление текста запроса во вторую ветку условия

Процедура РасчитатьНачисления(НаборЗаписейРегистра, ТребуемыйВидРасчета, СписокСотрудников) Экспорт

 

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

 

// Рассчитать первичные записи

Если ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Оклад Тогда

…

// Рассчитать вторичные записи

ИначеЕсли ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Премия Тогда

 

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

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

Quot; ВЫБРАТЬ

| НачисленияБазаНачисления.РезультатБаза КАК База,

НачисленияБазаНачисления.НомерСтроки КАК НомерСтроки

ИЗ

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

| & ИзмеренияОсновного,

| & ИзмеренияБазового,,

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

| ВидРасчета = & ВидРасчета И

| Сотрудник В (& СписокСотрудников)) КАК НачисленияБазаНачисления";

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

Измер[0] = " Сотрудник";

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

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

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

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

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

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

КонецЕсли;

 

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

 

В параметрах виртуальной таблицы запроса мы кроме привычных для нас регистратора, вида расчета и списка сотрудников задаем еще измерения основного и базового регистров. В нашем случае это будет один и тот же регистр, а нужное нам измерение ― Сотрудник.

В заключение осталось добавить во второе условие Если … обход набора записей регистра расчета и вычисление результата вторичных записей (листинг 17.7).

 

Листинг 17.7 Добавление обхода набора записей регистра и вычисления результата вторичных записей

Процедура РасчитатьНачисления(НаборЗаписейРегистра, ТребуемыйВидРасчета, СписокСотрудников) Экспорт

 

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

 

// Рассчитать первичные записи

Если ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Оклад Тогда

 

…

 

// Рассчитать вторичные записи

ИначеЕсли ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Премия Тогда

 

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

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

" ВЫБРАТЬ

| НачисленияБазаНачисления.РезультатБаза КАК База,

| НачисленияБазаНачисления.НомерСтроки КАК НомерСтроки

|ИЗ

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

| & ИзмеренияОсновного,

| & ИзмеренияБазового,,

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

| ВидРасчета = & ВидРасчета И

| Сотрудник В (& СписокСотрудников)) КАК НачисленияБазаНачисления";

 

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

Измер[0] = " Сотрудник";

 

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

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

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

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

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

 

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