Запрос. УстановитьПараметр("Оклад", ПланыВидовРасчета. ДополнительныеНачисления. Оклад);
Запрос. УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос. Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса. Выбрать();
Пока ВыборкаДетальныеЗаписи. Следующий() Цикл
Набор[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Результат = ВыборкаДетальныеЗаписи. Результат;
ТЧ[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Результат = ВыборкаДетальныеЗаписи. Результат;
КонецЦикла;
ИначеЕсли Стр. ВидРасчета = ПланыВидовРасчета. ДополнительныеНачисления. Премия Тогда
Набор. Записать(,Истина);
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
| ДополнительныеНачисленияБазаДополнительныеНачисления. НомерСтроки,
| ДополнительныеНачисленияБазаДополнительныеНачисления. РезультатБаза * ДополнительныеНачисленияБазаДополнительныеНачисления. Размер / 100 КАК Результат
|ИЗ
| РегистрРасчета. ДополнительныеНачисления. БазаДополнительныеНачисления(
| &Измерения,
| &Измерения,
| ,
| Регистратор = &Ссылка
| И ВидРасчета = &Премия) КАК ДополнительныеНачисленияБазаДополнительныеНачисления";
Измерения = Новый Массив;
Измерения. Добавить("Сотрудник");
Измерения. Добавить("Подразделение");
Запрос. УстановитьПараметр("Измерения", Измерения);
Запрос. УстановитьПараметр("Премия", ПланыВидовРасчета. ДополнительныеНачисления. Премия);
Запрос. УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос. Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса. Выбрать();
Пока ВыборкаДетальныеЗаписи. Следующий() Цикл
Набор[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Результат = ВыборкаДетальныеЗаписи. Результат;
ТЧ[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Результат = ВыборкаДетальныеЗаписи. Результат;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ДополнительныеНачисления
Движения. ДополнительныеНачисления. Записывать = Истина;
Выборка = СформироватьВыборкуДоп();
ЗаполнитьНабор(Движения. ДополнительныеНачисления, Выборка);
КонецПроцедуры
Модуль формы:
&НаСервере
Процедура РасчитатьНаСервере()
Док = РеквизитФормыВЗначение("Объект");
Док. РасчитатьЗП();
ЗначениеВДанныеФормы(Док, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Расчитать(Команда)
РасчитатьНаСервере();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНаСервере()
Запрос = Новый Запрос;
Запрос. Текст =
"ВЫБРАТЬ
| ПроцентПремииСрезПоследних. Процент
|ПОМЕСТИТЬ ВТ_Процент
|ИЗ
| РегистрСведений. ПроцентПремии. СрезПоследних(&Дата, ) КАК ПроцентПремииСрезПоследних
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| СведенияОСотрудникахСрезПоследних. Сотрудник,
| СведенияОСотрудникахСрезПоследних. Подразделение,
| СведенияОСотрудникахСрезПоследних. ГрафикРаботы,
| СведенияОСотрудникахСрезПоследних. Оклад
|ПОМЕСТИТЬ ВТ_Сведения
|ИЗ
| РегистрСведений. СведенияОСотрудниках. СрезПоследних(КОНЕЦПЕРИОДА(&Дата, МЕСЯЦ), ) КАК СведенияОСотрудникахСрезПоследних
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_Сведения. Сотрудник,
| ВТ_Сведения. Подразделение,
| ВТ_Сведения. ГрафикРаботы,
| ЗНАЧЕНИЕ(ПланВидовРасчета. ДополнительныеНачисления. Оклад) КАК ВидРасчета,
| ВТ_Сведения. Оклад КАК Размер
|ИЗ
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 |
