поиск по двум кодам справочника

Процедура ПриОткрытии()
	НачПериода = НачалоМесяца(ТекущаяДата());
	КонПериода = ТекущаяДата();
	

КонецПроцедуры

Процедура ДействияФормыОтчетСформировать(Кнопка)
	ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
	Отчет(ТабДок);
КонецПроцедуры

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

|		И РеализацияТоваровУслуг.Дата МЕЖДУ &НачПериода И &КонПериода
|		И РеализацияТоваровУслуг.Проведен = ИСТИНА
|;

////////////////////////////////////////////////////////////­////////////////////
|	ВЫБРАТЬ
|		Продажи.ДокументПродажи.Контрагент КАК Контрагент,
|		Продажи.ДокументПродажи КАК ДокументПродажи,
|		ПриходныйКассовыйОрдер.Ссылка КАК ПКО,
|		Продажи.ДокументПродажи.СуммаДокумента КАК СуммаПродажи,
|		ПриходныйКассовыйОрдер.СуммаДокумента КАК СуммаПКО
|	ИЗ
|		Продажи КАК Продажи
|			ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
|				ПО Продажи.ДокументПродажи = ПриходныйКассовыйОрдер.ДокументОснование
|	ИТОГИ
|		СУММА(СуммаПродажи),
|		СУММА(СуммаПКО)
|	ПО
|		ОБЩИЕ,
|		Контрагент";

	Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
	Запрос.УстановитьПараметр("НачПериода", НачалоДня(НачПериода));	
	Запрос.УстановитьПараметр("ВидОплаты", ВидОплаты);
	

	Результат = Запрос.Выполнить();

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");  	
	ОбластьКонтрагентИерархия = Макет.ПолучитьОбласть("КонтрагентИерархия");
	ОбластьКонтрагент = Макет.ПолучитьОбласть("Контрагент");
	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
    ОбластьИтоги =  Макет.ПолучитьОбласть("Итог");

	ТабДок.Очистить();
	
	ОбластьЗаголовок.Параметры.Период = "Нач. период: " + Формат(НачПериода, "ДЛФ=D") + " Конеч. период: " + Формат(КонПериода,"ДЛФ=D") + Символы.НПП + ВидОплаты; 
	ОбластьЗаголовок.Параметры.ДатаВремяПечати ="Печать документа - " + ТекущаяДата();
	ТабДок.Вывести(ОбластьЗаголовок);
	
	ТабДок.Вывести(ОбластьШапкаТаблицы);
	ТабДок.НачатьАвтогруппировкуСтрок();	
	ВыборкаРезультат = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

	Пока ВыборкаРезультат.Следующий() Цикл 
  		ОбластьИтоги.Параметры.Заполнить(ВыборкаРезультат);
  		ТабДок.Вывести(ОбластьИтоги, ВыборкаРезультат.Уровень());
  		ВыборкаКонтрагент = ВыборкаРезультат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		
  		Пока ВыборкаКонтрагент.Следующий() Цикл
   			ОбластьКонтрагентИерархия.Параметры.Заполнить(ВыборкаКонтрагент);
   			ТабДок.Вывести(ОбластьКонтрагентИерархия, ВыборкаКонтрагент.Уровень());
   			ВыборкаДетали = ВыборкаКонтрагент.Выбрать();
			
   			Пока ВыборкаДетали.Следующий() Цикл
    			ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
    			ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
   			КонецЦикла;
  		КонецЦикла;
	КонецЦикла;
		         	
	
	ТабДок.ЗакончитьАвтогруппировкуСтрок();
		
	//ТабДок.Вывести(ОбластьПодвал);
КонецПроцедуры


Процедура ОплатаСегодняПриИзменении(Элемент)
	ВидОплаты = Справочники.ВидыОплатыТЧ.НайтиПоКоду("000000001");
	 Реализация = Ложь;
	  Двое = Ложь;

КонецПроцедуры

Процедура РеализацияПриИзменении(Элемент)
	ВидОплаты = Справочники.ВидыОплатыТЧ.НайтиПоКоду("000000002");
	ОплатаСегодня = Ложь;
	Двое = Ложь;

КонецПроцедуры