Paste1C
  • API
  • О проекте
  • Контакты
  • Регистрация
  • Вход
ЗапросСб = Новый Запрос;
	ЗапросСб.Текст =  
	"ВЫБРАТЬ
|	Бюджетирование.СтатьяОборотов КАК СтатьяОборотов,
|	Бюджетирование.СуммаСценарий КАК Сумма,
|	Бюджетирование.СчетДт КАК СчетДт,
|	Бюджетирование.СчетКт КАК СчетКт,
|	Бюджетирование.СтатьяОборотов.Родитель КАК Родитель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":[]}

Публикация кода

Размещая информацию на сайте, Вы подтверждаете согласие со всеми пунктами Пользовательского соглашения

Замечание к коду:

  • Загрузить конфигурацию
    • ERP 2.4
    • Управление торговлей 10.3
    • Управление торговлей 11.4
    • Бухгалтерия 2.0
    • Бухгалтерия 3.0
    • ЗУП 3.1
    • Розница 2.3
    • УНФ 1.6
    • БСП 3.1
  • Тема
    • Светлая
    • Светлая c подсветкой запросов
    • Темная
    • Темная с подсветкой запросов
  • Режим запроса
  • Поделиться
Код:

© Александр Шкураев 2025