Оперативный учет (стр. 8 )

                       |                                        ИЗ

                       |                                                ВТ КАК ВТ)) КАК ПродажиОбороты

                       |                ПО ВТ. Бригада = ПродажиОбороты. Бригада";

                       

                       Запрос. УстановитьПараметр("КонКвартала", КонецКвартала(ДобавитьМесяц(Ссылка. Дата,-3)));

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

                       Запрос. УстановитьПараметр("НачКвартала", НачалоКвартала(ДобавитьМесяц(Ссылка. Дата, -3)));

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

                       

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

                       

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

                       

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

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

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

                               

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

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

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

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

       

                       КонецЦикла;

                                               

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

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

                       

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

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

                       "ВЫБРАТЬ

                       |        МАКСИМУМ(ЕСТЬNULL(ДНБазаДН. РезультатБаза, 0) * ДНБазаДН. Процент / 100) КАК Результат,

                       |        КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ДНБазаДН. СотрудникРазрез) КАК СотрудникРазрез,

                       |        ДНБазаДН. НомерСтроки,

                       |        ДНБазаДН. Процент

                       |ИЗ

                       |        РегистрРасчета. ДН. БазаДН(

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

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

                       |                        &Разрез,

                       |                        Регистратор = &Ссылка

                       |                                И ВидРасчета = &Премия) КАК ДНБазаДН

                       |

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

                       |        ДНБазаДН. НомерСтроки,

                       |        ДНБазаДН. Процент";

                       

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

                       Измерения. Вставить(0, "Бригада");

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

                       Разрез. Вставить(0, "Сотрудник");

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

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

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

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

                       

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

                       

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

                       

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

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

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

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

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

                       КонецЦикла;

                       

               КонецЕсли;

       КонецЦикла;

       

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

Процедура Расчитать() Экспорт

       

       Если Проведен Тогда

               Записать(РежимЗаписиДокумента. ОтменаПроведения);

       Иначе

               Записать();

       КонецЕсли;

       

       НаборОсн = Движения. ОН;

       НаборДоп = Движения. ДН;