Всем привет, Помогите пожалуйста с отчетом, не могу разобраться.

1. user2093275 14.03.25 07:59 Сейчас в теме
Всем привет, Помогите пожалуйста с отчетом, не могу разобраться.
ВЫБРАТЬ
	ЗаявкаНаРегистрациюГПСделки.Дата КАК Дата,
	ЗаявкаНаРегистрациюГПСделки.Номер КАК НомерЗаявки,
	ЗаявкаНаРегистрациюГПСделки.Контрагент КАК Контрагент,
	ЗаявкаНаРегистрациюГПСделки.ДоговорКонтрагента КАК ДоговорКонтрагента,
	ЗаявкаНаРегистрациюГПСделки.Контрагент.БИН КАК КонтрагентБИН,
	ЗаявкаНаРегистрациюГПСделки.НомерЗаказа КАК НомерЗаказа,
	ЗаявкаНаРегистрациюГПСделки.ОписаниеРасходаПлатежногоДокумента КАК ОписаниеРасходаПлатежногоДокумента,
	ЗаявкаНаРегистрациюГПСделки.СуммаДокумента КАК СуммаЗаявки,
	ЗаявкаНаРегистрациюГПСделки.Ссылка КАК Ссылка,
	ЗаявкаНаРегистрациюГПСделки.Организация КАК Организация,
	ЗаявкаНаРегистрациюГПСделки.ФКР.Код КАК ФКРКод,
	ЗаявкаНаРегистрациюГПСделки.Специфика КАК Специфика,
	ЗаявкаНаРегистрациюГПСделки.ИсточникФинансирования КАК ИсточникФинансирования,
	ЗаявкаНаРегистрациюГПСделки.КодПлатныхУслуг КАК КодПлатныхУслуг
ПОМЕСТИТЬ ВТ_Заявки
ИЗ
	Документ.ЗаявкаНаРегистрациюГПСделки КАК ЗаявкаНаРегистрациюГПСделки
ГДЕ
	ЗаявкаНаРегистрациюГПСделки.Организация = &Организация
	И ЗаявкаНаРегистрациюГПСделки.ПометкаУдаления <> ИСТИНА
	И ЗаявкаНаРегистрациюГПСделки.Проведен = ИСТИНА
	И ЗаявкаНаРегистрациюГПСделки.Дата МЕЖДУ &ДатаНач И &ДатаКон
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	СчетКОплате.СуммаДокумента КАК СуммаСчетКОплате,
	СчетКОплате.ДатаОплаты КАК ДатаОплаты,
	ВременнаяТаблица.Ссылка КАК Ссылка,
	СчетКОплате.Номер КАК НомерСчетКОплате,
	СчетКОплате.Организация КАК Организация,
	СчетКОплате.ФКР КАК ФКР,
	СчетКОплате.Специфика КАК Специфика
ПОМЕСТИТЬ ВТ_СчетКОплате
ИЗ
	ВТ_Заявки КАК ВременнаяТаблица
		ЛЕВОЕ СОЕДИНЕНИЕ Документ.СчетКОплате КАК СчетКОплате
		ПО (СчетКОплате.ДокументОснование = ВременнаяТаблица.Ссылка)
ГДЕ
	СчетКОплате.Организация = &Организация
	И СчетКОплате.ПометкаУдаления <> ИСТИНА
	И СчетКОплате.Проведен = ИСТИНА
	И СчетКОплате.ДатаОплаты МЕЖДУ &ДатаНач И &ДатаКон
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_Заявки.Дата КАК Дата,
	ВТ_Заявки.НомерЗаявки КАК НомерЗаявки,
	ВТ_Заявки.Контрагент КАК Контрагент,
	ВТ_Заявки.ДоговорКонтрагента КАК ДоговорКонтрагента,
	ВТ_Заявки.КонтрагентБИН КАК КонтрагентБИН,
	ВТ_Заявки.НомерЗаказа КАК НомерЗаказа,
	ВТ_Заявки.ОписаниеРасходаПлатежногоДокумента КАК ОписаниеРасходаПлатежногоДокумента,
	ВТ_Заявки.СуммаЗаявки КАК СуммаЗаявки,  
	ВТ_Заявки.Ссылка КАК Ссылка,
	ВТ_Заявки.Организация КАК Организация,
	ВТ_Заявки.ФКРКод КАК Программа,
	ВТ_Заявки.Специфика КАК Специфика,
	ВТ_Заявки.ИсточникФинансирования КАК ИсточникФинансирования,
	ВТ_Заявки.КодПлатныхУслуг КАК КодПлатныхУслуг,
	ЕСТЬNULL(ВТ_СчетКОплате.НомерСчетКОплате, 0) КАК НомерСчетКОплате,
	ЕСТЬNULL(ВТ_СчетКОплате.ДатаОплаты, 0) КАК ДатаОплаты,
	ЕСТЬNULL(ВТ_СчетКОплате.СуммаСчетКОплате, 0) КАК СуммаСчетКОплате,
	ВТ_Заявки.СуммаЗаявки - ЕСТЬNULL(ВТ_СчетКОплате.СуммаСчетКОплате, 0) КАК ОстатокЗаявки
ПОМЕСТИТЬ ВТ_Детали
ИЗ
	ВТ_Заявки КАК ВТ_Заявки
		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_СчетКОплате КАК ВТ_СчетКОплате
		ПО ВТ_Заявки.Ссылка = ВТ_СчетКОплате.Ссылка
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_Детали.Программа КАК Программа,
	ВТ_Детали.Специфика КАК Специфика,
	СУММА(ВТ_Детали.СуммаЗаявки) КАК ИтогоПоСпецифике
ПОМЕСТИТЬ ВТ_ИтогиСпецифика
ИЗ
	ВТ_Детали КАК ВТ_Детали

СГРУППИРОВАТЬ ПО
	ВТ_Детали.Программа,
	ВТ_Детали.Специфика
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_Детали.Программа КАК Программа,
	СУММА(ВТ_Детали.СуммаЗаявки) КАК ИтогоПоПрограмме
ПОМЕСТИТЬ ВТ_ИтогиПрограмма
ИЗ
	ВТ_Детали КАК ВТ_Детали

СГРУППИРОВАТЬ ПО
	ВТ_Детали.Программа
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_Детали.Программа КАК Программа,
	ВТ_Детали.Специфика КАК Специфика,
	ВТ_Детали.Дата КАК Дата,
	ВТ_Детали.НомерЗаявки КАК НомерЗаявки,
	ВТ_Детали.ДоговорКонтрагента КАК ДоговорКонтрагента,
	ВТ_Детали.КонтрагентБИН КАК КонтрагентБИН,
	ВТ_Детали.Контрагент КАК Контрагент,
	ВТ_Детали.НомерЗаказа КАК НомерЗаказа,
	ВТ_Детали.ОписаниеРасходаПлатежногоДокумента КАК ОписаниеРасходаПлатежногоДокумента,
	ВТ_Детали.СуммаЗаявки КАК СуммаЗаявки, 
	ВТ_Детали.Ссылка КАК Ссылка,
	ВТ_Детали.Организация КАК Организация,
	ВТ_Детали.ИсточникФинансирования КАК ИсточникФинансирования,
	ВТ_Детали.КодПлатныхУслуг КАК КодПлатныхУслуг,
	ВТ_Детали.НомерСчетКОплате КАК НомерСчетКОплате,
	ВТ_Детали.ДатаОплаты КАК ДатаОплаты,
	ВТ_Детали.СуммаСчетКОплате КАК СуммаСчетКОплате,
	ВТ_Детали.ОстатокЗаявки КАК ОстатокЗаявки,
	ВТ_ИтогиСпецифика.ИтогоПоСпецифике КАК ИтогоПоСпецифике,
	ВТ_ИтогиПрограмма.ИтогоПоПрограмме КАК ИтогоПоПрограмме
ИЗ
	ВТ_Детали КАК ВТ_Детали
		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ИтогиСпецифика КАК ВТ_ИтогиСпецифика
		ПО ВТ_Детали.Программа = ВТ_ИтогиСпецифика.Программа
			И ВТ_Детали.Специфика = ВТ_ИтогиСпецифика.Специфика
		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ИтогиПрограмма КАК ВТ_ИтогиПрограмма
		ПО ВТ_Детали.Программа = ВТ_ИтогиПрограмма.Программа
УПОРЯДОЧИТЬ ПО ВТ_Детали.Программа, ВТ_Детали.Специфика, ВТ_Детали.Дата
ИТОГИ по  
	ИтогоПоСпецифике,
	ИтогоПоПрограмме 

ВыборкаПрограмма = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	Пока ВыборкаПрограмма.Следующий() Цикл
		ОбластьПрограммы.Параметры.Программа = ВыборкаПрограмма.Программа;
		ТабличныйДокумент.Вывести(ОбластьПрограммы);
		
		ВыборкаСпецифика = ВыборкаПрограмма.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		Пока ВыборкаСпецифика.Следующий() Цикл
			ОбластьСпецифика.Параметры.Специфика = ВыборкаСпецифика.Специфика;
			ТабличныйДокумент.Вывести(ОбластьСпецифика);
			
			ВыборкаЗаявка = ВыборкаСпецифика.Выбрать();
			Пока ВыборкаЗаявка.Следующий() Цикл
				ОбластьДетальныхЗаписей.Параметры.Дата = ВыборкаЗаявка.Дата;
				ОбластьДетальныхЗаписей.Параметры.НомерЗаявки = ВыборкаЗаявка.НомерЗаявки;
				ОбластьДетальныхЗаписей.Параметры.ДоговорКонтрагента = ВыборкаЗаявка.ДоговорКонтрагента;
				ОбластьДетальныхЗаписей.Параметры.КонтрагентБИН = ВыборкаЗаявка.КонтрагентБИН;
				ОбластьДетальныхЗаписей.Параметры.Контрагент = ВыборкаЗаявка.Контрагент;
				ОбластьДетальныхЗаписей.Параметры.НомерЗаказа = ВыборкаЗаявка.НомерЗаказа;
				ОбластьДетальныхЗаписей.Параметры.ОписаниеРасходаПлатежногоДокумента = ВыборкаЗаявка.ОписаниеРасходаПлатежногоДокумента;
				ОбластьДетальныхЗаписей.Параметры.СуммаЗаявки = ВыборкаЗаявка.СуммаЗаявки; 
				ОбластьДетальныхЗаписей.Параметры.НомерСчетКОплате = ВыборкаЗаявка.НомерСчетКОплате;
				ОбластьДетальныхЗаписей.Параметры.ДатаОплаты = ВыборкаЗаявка.ДатаОплаты;
				ОбластьДетальныхЗаписей.Параметры.СуммаСчетКОплате = ВыборкаЗаявка.СуммаСчетКОплате;
				ОбластьДетальныхЗаписей.Параметры.ОстатокЗаявки = ВыборкаЗаявка.ОстатокЗаявки;
				ТабличныйДокумент.Вывести(ОбластьДетальныхЗаписей);   
			КонецЦикла;
			
			ОбластьИтогСпецифика.Параметры.Специфика = ВыборкаСпецифика.Специфика;
			ОбластьИтогСпецифика.Параметры.ИтогоПоСпецифике = ВыборкаСпецифика.ИтогоПоСпецифике;
			ТабличныйДокумент.Вывести(ОбластьИтогСпецифика);
		КонецЦикла;
		
		ОбластьИтогПрограмма.Параметры.Программа = ВыборкаПрограмма.Программа;
		ОбластьИтогПрограмма.Параметры.ИтогоПоПрограмме = ВыборкаПрограмма.ИтогоПоПрограмме;
		ТабличныйДокумент.Вывести(ОбластьИтогПрограмма);
	КонецЦикла;
Показать
Прикрепленные файлы:
Найденные решения
2. RustamZz 14.03.25 08:14 Сейчас в теме
(1) Надо итоги по заявкам делать, а потом детальные.
user2093275; +1 Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. RustamZz 14.03.25 08:14 Сейчас в теме
(1) Надо итоги по заявкам делать, а потом детальные.
user2093275; +1 Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот