Отладчик запроса 1С 8.3 (управляемые формы)

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

СГРУППИРОВАТЬ ПО
	ПоступлениеНаРасчетныйСчет.Ссылка,
	ПоступлениеНаРасчетныйСчет.Дата,
	ПоступлениеНаРасчетныйСчет.Контрагент,
	ПоступлениеНаРасчетныйСчетРасшифровкаПлатежа.СчетНаОплату
;

////////////////////////////////////////////////////////////­////////////////////

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_ПоступленияНаСчет.ПоступлениеНаСчет КАК ПоступлениеНаСчет,
	ВТ_ПоступленияНаСчет.Дата КАК Дата,
	ВТ_ПоступленияНаСчет.СуммаВзаиморасчетов КАК СуммаВзаиморасчетов,
	ВТ_ПоступленияНаСчет.Контрагент КАК Контрагент,
	ВТ_ПоступленияНаСчет.СчетНаОплату КАК СчетНаОплату,
	СчетНаОплатуПокупателю.СуммаДокумента КАК СуммаСчета
ПОМЕСТИТЬ ВТ_ТаблицаОплаченныхСчетов
ИЗ
	ВТ_ПоступленияНаСчет КАК ВТ_ПоступленияНаСчет
		ЛЕВОЕ СОЕДИНЕНИЕ Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
		ПО ВТ_ПоступленияНаСчет.СчетНаОплату = СчетНаОплатуПокупателю.Ссылка
;

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

СГРУППИРОВАТЬ ПО
	РеализацияТоваровУслуг.Ссылка,
	РеализацияТоваровУслуг.СчетНаОплатуПокупателю,
	РеализацияТоваровУслуг.Исполнитель,
	РеализацияТоваровУслугУслуги.Номенклатура,
	РеализацияТоваровУслугУслуги.Содержание,
	РеализацияТоваровУслугУслуги.Количество,
	РеализацияТоваровУслугУслуги.Сумма

ИНДЕКСИРОВАТЬ ПО
	РеализацияУслуг,
	СчетНаОплатуПокупателю
;

////////////////////////////////////////////////////////////­/////////////////////

ВЫБРАТЬ
	ПриходныйКассовыйОрдер.Ссылка КАК ПоступлениеНаличных,
	ПриходныйКассовыйОрдер.Дата КАК Дата,
	СУММА(ПриходныйКассовыйОрдерРасшифровкаПлатежа.СуммаВзаиморасчетов) КАК СуммаВзаиморасчетов,
	ПриходныйКассовыйОрдер.Контрагент КАК Контрагент,
	ПриходныйКассовыйОрдерРасшифровкаПлатежа.СчетНаОплату.ДоговорКонтрагента КАК ДоговорКонтрагента,
	ПриходныйКассовыйОрдерРасшифровкаПлатежа.СчетНаОплату КАК СчетНаОплату
ПОМЕСТИТЬ ВТ_ПКО
ИЗ
	Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ПриходныйКассовыйОрдер.РасшифровкаПлатежа КАК ПриходныйКассовыйОрдерРасшифровкаПлатежа
		ПО (ПриходныйКассовыйОрдер.Ссылка = ПриходныйКассовыйОрдерРасшифровкаПлатежа.Ссылка)
ГДЕ
	ПриходныйКассовыйОрдер.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	И ПриходныйКассовыйОрдер.Проведен = ИСТИНА
	И ПриходныйКассовыйОрдер.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийПКО.ОплатаПокупателя)
	И ПриходныйКассовыйОрдер.Организация = &Организация

СГРУППИРОВАТЬ ПО
	ПриходныйКассовыйОрдер.Ссылка,
	ПриходныйКассовыйОрдер.Дата,
	ПриходныйКассовыйОрдер.Контрагент,
	ПриходныйКассовыйОрдерРасшифровкаПлатежа.СчетНаОплату,
	ПриходныйКассовыйОрдерРасшифровкаПлатежа.СчетНаОплату.ДоговорКонтрагента
;

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

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

СГРУППИРОВАТЬ ПО
	КорректировкаДолга.Ссылка,
	КорректировкаДолга.Дата,
	КорректировкаДолгаДебиторскаяЗадолженность.Сделка,
	КорректировкаДолга.КонтрагентДебитор,
	КорректировкаДолгаДебиторскаяЗадолженность.Сделка.ДоговорКонтрагента,
	КорректировкаДолгаДебиторскаяЗадолженность.Сделка.СчетНаОплатуПокупателю,
	КорректировкаДолгаДебиторскаяЗадолженность.Сделка.Исполнитель
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_ОплатаПоКорректировкам.ПоступлениеНаСчет КАК ПоступлениеНаСчет,
	ВТ_ОплатаПоКорректировкам.Дата КАК Дата,
	ВТ_ОплатаПоКорректировкам.Реализация КАК Реализация,
	ВТ_ОплатаПоКорректировкам.СуммаВзаиморасчетов КАК СуммаВзаиморасчетов,
	ВТ_ОплатаПоКорректировкам.Контрагент КАК Контрагент,
	ВТ_ОплатаПоКорректировкам.ДоговорКонтрагента КАК ДоговорКонтрагента,
	ВТ_ОплатаПоКорректировкам.СчетНаОплату КАК СчетНаОплату,
	ВТ_ОплатаПоКорректировкам.Исполнитель КАК Исполнитель
ПОМЕСТИТЬ ВТ_ПоКорректировкамГотовая
ИЗ
	ВТ_ОплатаПоКорректировкам КАК ВТ_ОплатаПоКорректировкам
ГДЕ
	НЕ ВТ_ОплатаПоКорректировкам.Исполнитель = ""
;

////////////////////////////////////////////////////////////­////////////////////



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

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

ОБЪЕДИНИТЬ ВСЕ

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

&НаКлиенте
Процедура УдалитьПолеИзЗапроса(Команда)
	
	ИмяТекКолонки = Элементы.РезультатЗапросатз.ТекущийЭлемент.Заголовок;
	
	Если ИмяТекКолонки=Неопределено Тогда 
		
		Сообщить("Колонка для удаления не определена"); 
		
	Иначе
		МассивСтрок = СтрРазделить(ТекстЗапроса,Символы.ПС); //Запрос->Массив строк по символу переноса
		ИндексыМассиваНаУдаление = Новый Массив; // для обхода и удаления
		
		// Удаляю поля с конца,т.к возможны пакеты
		ИндексПоследнего = МассивСтрок.ВГраница();
		
		Для Индекс = -ИндексПоследнего По 0 Цикл 
			
			ТекСтрока = МассивСтрок[-Индекс];
			// Т.к имя колонки = имени поля в запросе, проверяю окончание запроса на имя колонки
			Если СтрЗаканчиваетсяНа(ТекСтрока,ИмяТекКолонки+",") Тогда
				
				ИндексыМассиваНаУдаление.Добавить(-Индекс); // Запомниаю индекс удаления
			ИначеЕсли СтрЗаканчиваетсяНа(ТекСтрока,ИмяТекКолонки) Тогда
				// Последнее поле запроса нужно убрать запятую в предИдущей строке
				
				ТекЗнчСтр = МассивСтрок[-Индекс-1]; 
				МассивСтрок[-Индекс-1] = СтрЗаменить(ТекЗнчСтр,",","");
				
				ИндексыМассиваНаУдаление.Добавить(-Индекс);
			КонецЕсли; 
			
		КонецЦикла; 
		
		// по индексам удалим строки 
		Для каждого Элемента из ИндексыМассиваНаУдаление Цикл 
			
			МассивСтрок.Удалить(Элемента); 
			
		КонецЦикла;
		
		ТекстЗапроса = СтрСоединить(МассивСтрок,Символы.ПС);// соберем обратно текст запроса из нового массива
	КонецЕсли;
	
КонецПроцедуры