ПроизвСебРеалПрод = Итого23НаЕд*КоличествоПродаж; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЕСТЬNULL(АдминЗатраты.Сумма92 / СебестоимостьРеализации.Сумма90, 0) КАК ПроцентАдминЗатрат |ИЗ | (ВЫБРАТЬ | СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт, 0)) КАК Сумма92 | ИЗ | РегистрБухгалтерии.Хозрасчетный.Обороты(&НачДата, &КонДата, , , , , , ) КАК ХозрасчетныйОбороты | ГДЕ | ХозрасчетныйОбороты.Счет = &Счет79 | И ХозрасчетныйОбороты.КорСчет = &КорСчет92) КАК АдминЗатраты, | (ВЫБРАТЬ | СУММА(ЕСТЬNULL(ХозрасчетныйОбороты.СуммаОборотДт, 0)) КАК Сумма90 | ИЗ | РегистрБухгалтерии.Хозрасчетный.Обороты(&НачДата, &КонДата, , , , , , ) КАК ХозрасчетныйОбороты | ГДЕ | ХозрасчетныйОбороты.Счет = &Счет79 | И ХозрасчетныйОбороты.КорСчет В(&КорСчет90)) КАК СебестоимостьРеализации"; Запрос.УстановитьПараметр("НачДата", Новый Граница(НачалоДня(ДатаНач), ВидГраницы.Включая)); Запрос.УстановитьПараметр("КонДата", Новый Граница(КонецДня(ДатаКон), ВидГраницы.Включая)); Запрос.УстановитьПараметр("Счет79", ПланыСчетов.Хозрасчетный.РезультатОперационнойДеятельности); Запрос.УстановитьПараметр("КорСчет92", ПланыСчетов.Хозрасчетный.АдминистративныеРасходы); Список90 = Новый СписокЗначений; Список90.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьРеализованнойГотовойПродукции); Список90.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьРеализованныхРаботИУслуг); Запрос.УстановитьПараметр("КорСчет90", Список90); Результат = Запрос.Выполнить().Выбрать(); ПроцентАдминЗатрат = Результат; СуммаАдминЗатрат = ПроизвСебРеалПрод*ПроцентАдминЗатрат; ОбластьСуммаАдминЗатрат.Параметры.СуммаАдминЗатрат = СуммаАдминЗатрат; ВывестиОбласть(ДокументРезультат, ОбластьСуммаАдминЗатрат, ОбластьСуммаАдминЗатратОкончание, 2, "Группа2", Ложь, "СуммаАдминЗатрат", Выборка);
ПроцентАдминЗатрат = Результат; СуммаАдминЗатрат = ПроизвСебРеалПрод*ПроцентАдминЗатрат;
Результат = Запрос.Выполнить().Выгрузить(); ПроцентАдминЗатрат = Результат[0].ПроцентАдминЗатрат; СуммаАдминЗатрат = ПроизвСебРеалПрод*ПроцентАдминЗатрат;