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

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

               "ВЫБРАТЬ

               |        НачислениеЗарплатыДополнительныеНачисления. ВидРасчета,

               |        НачислениеЗарплатыДополнительныеНачисления. Ссылка. Дата КАК ПериодРегистрации,

               |        НАЧАЛОПЕРИОДА(НачислениеЗарплатыДополнительныеНачисления. Ссылка. Дата, МЕСЯЦ) КАК БазовыйПериодНачало,

               |        КОНЕЦПЕРИОДА(НачислениеЗарплатыДополнительныеНачисления. Ссылка. Дата, МЕСЯЦ) КАК БазовыйПериодКонец,

               |        НачислениеЗарплатыДополнительныеНачисления. Сотрудник,

               |        НачислениеЗарплатыДополнительныеНачисления. Результат,

               |        НачислениеЗарплатыДополнительныеНачисления. Подразделение,

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

               |ИЗ

               |        Документ. НачислениеЗарплаты. ДополнительныеНачисления КАК НачислениеЗарплатыДополнительныеНачисления

НЕ нашли? Не то? Что вы ищете?

               |ГДЕ

               |        НачислениеЗарплатыДополнительныеНачисления. Ссылка = &Ссылка

               |

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

               |        НачислениеЗарплатыДополнительныеНачисления. НомерСтроки";

       

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

       

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

       

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

       

       Возврат ВыборкаДетальныеЗаписи

       

КонецФункции

Процедура ЗаполнитьНабор(Набор, Выборка)

       

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

               НовСтр = Набор. Добавить();

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

       КонецЦикла;

       

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

Процедура РасчитатьНабор(Набор, ТЧ)

       Набор. Записать();

       

       ТЗ = ТЧ. Выгрузить();

       ТЗ. Свернуть("ВидРасчета");

       

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

               

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

                       

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

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

                       "ВЫБРАТЬ

                       |        ОсновныеНачисленияДанныеГрафика. НомерСтроки,

                       |        ОсновныеНачисленияДанныеГрафика. Размер,

                       |        ВЫБОР

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

                       |                        ТОГДА 0

                       |                ИНАЧЕ ОсновныеНачисленияДанныеГрафика. Размер / ОсновныеНачисленияДанныеГрафика. ЗначениеПериодДействия * ОсновныеНачисленияДанныеГрафика. ЗначениеФактическийПериодДействия

                       |        КОНЕЦ КАК Результат

                       |ИЗ

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

                       |                        ВидРасчета = &Оклад

                       |                                И Регистратор = &Ссылка) КАК ОсновныеНачисленияДанныеГрафика";

                       

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

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

                       

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

                       

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

                       

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

                               Набор[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Размер = ВыборкаДетальныеЗаписи. Размер;

                               ТЧ[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Размер = ВыборкаДетальныеЗаписи. Размер;

                               

                               Набор[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Результат = ВыборкаДетальныеЗаписи. Результат;

                               ТЧ[ВыборкаДетальныеЗаписи. НомерСтроки - 1].Результат = ВыборкаДетальныеЗаписи. Результат;

                       КонецЦикла;

                       

               ИначеЕсли Стр. ВидРасчета = ПланыВидовРасчета. ДополнительныеНачисления. Премия Тогда

                       

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

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

                       "ВЫБРАТЬ

                       |        ДополнительныеНачисленияБазаОсновныеНачисления. НомерСтроки,

                       |        ДополнительныеНачисленияБазаОсновныеНачисления. Размер,

                       |        ДополнительныеНачисленияБазаОсновныеНачисления. РезультатБаза * ДополнительныеНачисленияБазаОсновныеНачисления. Размер / 100 КАК Результат

                       |ИЗ

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

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

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

                       |                        ,

                       |                        ВидРасчета = &Премия

Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10