Расчет тарифов

Процедура КнопкаСформироватьНажатие(Кнопка)

Если ЭтаФорма.Подразделение = Справочники.Подразделения.ПустаяСсылка() Тогда
Вопрос(«Для формирования отчета необходимо выбрать производственный участок!», РежимДиалогаВопрос.ОК);
Возврат;
КонецЕсли;

ТабДокумент = ЭтаФорма.ЭлементыФормы.ТД;
Макет = Отчеты.ОтчетРасчетаТарифовДок.ПолучитьМакет(«Макет»);

ТабДокумент.Очистить();

//Получение производительности
ЗапросПроизводительности = Новый Запрос();
ЗапросПроизводительности.Текст = «ВЫБРАТЬ
| ПроизводительностьПоУчасткамСрезПоследних.Номенклатура КАК Номенклатура,
| ПроизводительностьПоУчасткамСрезПоследних.ПроизводственныйУчасток КАК Подразделение,
| ПроизводительностьПоУчасткамСрезПоследних.Организация КАК Организация,
| ПроизводительностьПоУчасткамСрезПоследних.Производительность,
| ПроизводительностьПоУчасткамСрезПоследних.Период
|ИЗ
| РегистрСведений.ПроизводительностьПоУчасткам.СрезПоследних(&Период, ) КАК ПроизводительностьПоУчасткамСрезПоследних
|ГДЕ
| ПроизводительностьПоУчасткамСрезПоследних.ПроизводственныйУчасток = &Подразделение
| И ПроизводительностьПоУчасткамСрезПоследних.Организация = &Организация
|
|УПОРЯДОЧИТЬ ПО
| ПроизводственныйУчасток,
| Номенклатура,
| Организация»;

ЗапросПроизводительности.УстановитьПараметр(«Подразделение», ЭтаФорма.Подразделение);
ЗапросПроизводительности.УстановитьПараметр(«Организация», ЭтаФорма.Организация);
ЗапросПроизводительности.УстановитьПараметр(«Период», ЭтаФорма.ДатаОтчета);

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

ЗапросКатегорий = Новый Запрос();
ЗапросКатегорий.Текст = «ВЫБРАТЬ
| ДоговорнаяЗарплата.Категория КАК Категория,
| ДоговорнаяЗарплата.Сумма
|ИЗ
| РегистрСведений.ДоговорнаяЗарплата КАК ДоговорнаяЗарплата
|
|УПОРЯДОЧИТЬ ПО
| Категория»;

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

//Вывод шапки отчета
тШапкаОтчета = Макет.ПолучитьОбласть(«ШапкаОтчета|Данные»);
тШапкаОтчета.Параметры[«Подразделение»] = ЭтаФорма.Подразделение;

ТабДокумент.Вывести(тШапкаОтчета);

//Вывод шапки таблицы
тШапкаДанные = Макет.ПолучитьОбласть(«ШапкаТаблицы|Данные»);
ТабДокумент.Вывести(тШапкаДанные);
тШапкаКатегория = Макет.ПолучитьОбласть(«ШапкаТаблицы|Категория»);
Пока ВыборкаКатегорий.Следующий() Цикл
тШапкаКатегория.Параметры[«Категория»] = ВыборкаКатегорий.Категория;
ТабДокумент.Присоединить(тШапкаКатегория);
КонецЦикла;

//Формирование отчета
тСтрокаДанные = Макет.ПолучитьОбласть(«СтрокаТаблицы|Данные»);
тСтрокаКатегория = Макет.ПолучитьОбласть(«СтрокаТаблицы|Категория»);
Пока ВыборкаПроизводительности.Следующий() Цикл

//Вывод номенклатуры
тСтрокаДанные.Параметры[«Номенклатура»] = ВыборкаПроизводительности.Номенклатура;
ТабДокумент.Вывести(тСтрокаДанные);

//Проход по выборке категорий (для вывода тарифа по каждой категории)
ВыборкаКатегорий.Сбросить();
Пока ВыборкаКатегорий.Следующий() Цикл
тСтрокаКатегория.Параметры[«Сумма»] = Окр(ВыборкаКатегорий.Сумма / ВыборкаПроизводительности.Производительность, 2);
ТабДокумент.Присоединить(тСтрокаКатегория);
КонецЦикла;

КонецЦикла;
ТабДокумент.Показать();

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

Процедура ПриОткрытии()

Организация = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной(«глТекущийПользователь»), «ОсновнаяОрганизация»);
ДатаОтчета = ТекущаяДата();

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

Процедура ПодразделениеНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

СписокПодразделений = Новый СписокЗначений;

Запрос = Новый Запрос();
Запрос.Текст =
«ВЫБРАТЬ
| Подразделения.Ссылка КАК Ссылка
|ИЗ
| Справочник.Подразделения КАК Подразделения
|ГДЕ
| Подразделения.Родитель = &Родитель
|
|УПОРЯДОЧИТЬ ПО
| Подразделения.Наименование»;

ПРУчастки = Справочники.Подразделения.НайтиПоНаименованию(«Производственные участки»);
Если ПРУчастки = неопределено Тогда
ПРУчастки = Справочники.Подразделения.ПустаяСсылка();
КонецЕсли;

Запрос.УстановитьПараметр(«Родитель»,ПРУчастки);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл
//Сообщить(Выборка.Ссылка);
СписокПодразделений.Добавить(Выборка.Ссылка, Выборка.Ссылка.Наименование);
КонецЦикла;

ВыбранноеЗначение = ЭтаФорма.ВыбратьИзСписка(СписокПодразделений, Элемент);

Если ВыбранноеЗначение <> Неопределено Тогда
Элемент.Значение = ВыбранноеЗначение.Значение;
КонецЕсли;

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