ЗапросСб = Новый Запрос;
ЗапросСб.Текст =
"ВЫБРАТЬ
| Бюджетирование.СтатьяОборотов КАК СтатьяОборотов,
| Бюджетирование.СуммаСценарий КАК Сумма,
| Бюджетирование.СчетДт КАК СчетДт,
| Бюджетирование.СчетКт КАК СчетКт,
| Бюджетирование.СтатьяОборотов.Родитель КАК Родитель1,
| Бюджетирование.СтатьяОборотов.Родитель.Родитель КАК Родитель2,
| Бюджетирование.СтатьяОборотов.Родитель.Родитель.Родитель КАК Родитель3
|ИЗ
| РегистрБухгалтерии.бит_Бюджетирование.ДвиженияССубконто(
| &НачалоПериода,
| &КонецПериода,
| Активность = ИСТИНА
| И СчетДт = &СчетДт
| И (СчетКт = &СчетКт1
| ИЛИ СчетКт = &СчетКт2
| ИЛИ СчетКт = &СчетКт3
| ИЛИ СчетКт = &СчетКт4
| ИЛИ СчетКт = &СчетКт5
| ИЛИ СчетКт = &СчетКт6)
| И (&Организация = ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка)
| ИЛИ Организация = &Организация)
| И (&СубконтоКт1 = ЗНАЧЕНИЕ(Справочник.Проекты.ПустаяСсылка)
| ИЛИ СубконтоКт1 = &СубконтоКт1),
| ,
| ) КАК Бюджетирование
|
|УПОРЯДОЧИТЬ ПО
| СтатьяОборотов,
| Сумма,
| СчетДт,
| СчетКт
|ИТОГИ
| СУММА(Сумма)
|ПО
| СтатьяОборотов";
ЗапросСб.УстановитьПараметр("СчетДт", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("90021"));
ЗапросСб.УстановитьПараметр("СчетКт1", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("43"));
ЗапросСб.УстановитьПараметр("СчетКт2", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("08341"));
ЗапросСб.УстановитьПараметр("СчетКт3", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("19341"));
ЗапросСб.УстановитьПараметр("СчетКт4", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("4101"));
ЗапросСб.УстановитьПараметр("СчетКт5", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("2033"));
ЗапросСб.УстановитьПараметр("СчетКт6", ПланыСчетов.бит_Бюджетирование.НайтиПоКоду("26"));
ЗапросСб.УстановитьПараметр("Организация", Организация);
ЗапросСб.УстановитьПараметр("СубконтоКт1", Проект);
ЗапросСб.УстановитьПараметр("НачалоПериода", НачалоПериода);
ЗапросСб.УстановитьПараметр("КонецПериода", КонецПериода);
РезультатСб = ЗапросСб.Выполнить();
ВыборкаСБ = РезультатСб.Выбрать();
ОбластьАдминистративная.Параметры.АдмРасх = 0;
Имя = "Административно-хозяйственные расходы";
Пока ВыборкаСБ.Следующий() Цикл
СтатьяОборотов = ВыборкаСБ.СтатьяОборотов;
Если ВыборкаСБ.Родитель1 = Справочники.бит_СтатьиОборотов.НайтиПоНаименованию(Имя)
Тогда ОбластьАдминистративная.Параметры.АдмРасх = ОбластьАдминистративная.Параметры.АдмРасх + ВыборкаСБ.Сумма;
ИначеЕсли ВыборкаСБ.Родитель2 = Справочники.бит_СтатьиОборотов.НайтиПоНаименованию(Имя)
Тогда ОбластьАдминистративная.Параметры.АдмРасх = ОбластьАдминистративная.Параметры.АдмРасх + ВыборкаСБ.Сумма;
ИначеЕсли ВыборкаСБ.Родитель3 = Справочники.бит_СтатьиОборотов.НайтиПоНаименованию(Имя)
Тогда ОбластьАдминистративная.Параметры.АдмРасх = ОбластьАдминистративная.Параметры.АдмРасх + ВыборкаСБ.Сумма;
КонецЕсли;
КонецЦикла;
{"contextData":{},"contextMarkers":[]}