Добавить в отчет отбор по условию "ВСписке"

Процедура КнопкаСформироватьНажатие(Кнопка)
	
	ТабДок = ЭлементыФормы.ТабДок;
	ТабДок.Очистить();
	ТабДок.АвтоМасштаб = Истина;
	ТабДок.ТолькоПросмотр = Истина;
	
	Макет = ПолучитьМакет("Макет");
	Шапка = макет.ПолучитьОбласть("Шапка");
	СтрокаМОЛ = ?(НеПоказыватьДокументы,макет.ПолучитьОбласть("СтрокаМОЛБез"),макет.ПолучитьОбласть("СтрокаМОЛ"));
	СтрокаДокумент = Макет.ПолучитьОбласть("СтрокаДокумент");
	Итог = макет.ПолучитьОбласть("Итог");
	ТекстОрганизация = "";
	Если ЗначениеЗаполнено(Организация) Тогда
		ТекстОрганизация = Организация;
	КонецЕсли;
	ТекстПериод = "";
	Если (НачалоПериода>Дата(1,1,1)) И (КонецПериода>Дата(1,1,1)) Тогда
		ТекстПериод = " за период с "+Формат(НачалоПериода, "ДФ=dd.MM.yyyy")+" по "+Формат(КонецПериода, "ДФ=dd.MM.yyyy"); 	
	КонецЕсли;
	Шапка.Параметры.Организация = ТекстОрганизация;
	Шапка.Параметры.Период = ТекстПериод;
	ТабДок.Вывести(Шапка);	
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|	ХозрасчетныйОстаткиИОбороты.Организация КАК Организация,
	|	ХозрасчетныйОстаткиИОбороты.Субконто1 КАК МОЛ,
	|	СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстаток) КАК НачальныйОстаток,
	|	СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотДт) КАК Приход,
	|	СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотКт) КАК Расход,
	|	СУММА(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстаток) КАК КонечныйОстаток
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
	|			&НачалоПериода,
	|			&КонецПериода,
	|			,
	|			,
	|			Счет.Родитель = &Счет71,
	|			,
	|			ВЫБОР
	|					КОГДА &ОтборОрганизация
	|						ТОГДА Организация = &Организация
	|					ИНАЧЕ ИСТИНА
	|				КОНЕЦ
	|				И ВЫБОР
	|					КОГДА &ОтборМОЛ
	|						ТОГДА Субконто1 В ИЕРАРХИИ (&МОЛ)
	|					ИНАЧЕ ИСТИНА
	|				КОНЕЦ) КАК ХозрасчетныйОстаткиИОбороты";
	Если ТолькоОстатки Тогда
		Запрос.Текст = Запрос.Текст + "
		|ГДЕ
		|	ЕСТЬNULL(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстаток, 0) <> 0";	
	КонецЕСли;
	Запрос.Текст = Запрос.Текст + "
	|
	|СГРУППИРОВАТЬ ПО
	|	ХозрасчетныйОстаткиИОбороты.Организация,
	|	ХозрасчетныйОстаткиИОбороты.Субконто1
	|
	|УПОРЯДОЧИТЬ ПО
	|	ХозрасчетныйОстаткиИОбороты.Субконто1.Наименование";
	Граница = Новый Граница(КонецДня(КонецПериода),ВидГраницы.Включая);
	Запрос.УстановитьПараметр("НачалоПериода",НачалоПериода);
	Запрос.УстановитьПараметр("КонецПериода",Граница);
	Запрос.УстановитьПараметр("ОтборОрганизация", ЗначениеЗаполнено(Организация));
	Запрос.УстановитьПараметр("Организация", Организация);
	Запрос.УстановитьПараметр("ОтборМОЛ",ЗначениеЗаполнено(ПодотчетноеЛицо));
	Запрос.УстановитьПараметр("МОЛ", ПодотчетноеЛицо);
	Запрос.УстановитьПараметр("Счет71", ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицами_);
	
	
	ВыборкаМОЛ = Запрос.Выполнить().Выбрать();
	НачальныйОстатокИтог=0;
	КонечныйОстатокИтог=0;
	ПриходИтог=0;
	РасходИтог=0;
	Пока ВыборкаМОЛ.Следующий() Цикл
		СтрокаМол.Параметры.Заполнить(ВыборкаМОЛ);
		Если НеПоказыватьДокументы Тогда
			Если (ВыборкаМОЛ.КонечныйОстаток < 0) И (ОтрицательноеКрасным) Тогда
				СтрокаМол.Области.КонОст1.ЦветФона = Новый Цвет(255,0,0);
			Иначе
				СтрокаМол.Области.КонОст1.ЦветФона = Новый Цвет(255,255,255);	
			КонецЕсли;
		Иначе
			Если (ВыборкаМОЛ.КонечныйОстаток < 0) И (ОтрицательноеКрасным) Тогда
				СтрокаМол.Области.КонОст.ЦветФона = Новый Цвет(255,0,0);
			Иначе
				СтрокаМол.Области.КонОст.ЦветФона = Новый Цвет(255,255,255);	
			КонецЕсли;
		КонецЕсли;
		
		ТабДок.Вывести(СтрокаМОЛ);
		Если НЕ НеПоказыватьДокументы Тогда
			ЗапросДокумент = Новый Запрос;
			ЗапросДокумент.Текст = "ВЫБРАТЬ
			|	ХозрасчетныйОбороты.Регистратор КАК Документ,
			|	СУММА(ХозрасчетныйОбороты.СуммаОборотДт) КАК Приход,
			|	СУММА(ХозрасчетныйОбороты.СуммаОборотКт) КАК Расход
			|ИЗ
			|	РегистрБухгалтерии.Хозрасчетный.Обороты(
			|			&НачалоПериода,
			|			&КонецПериода,
			|			Авто,
			|			Счет.Родитель = &Счет71,
			|			,
			|			Субконто1 = &МОЛ
			|				И Организация = &Организация,
			|			,
			|			) КАК ХозрасчетныйОбороты
			|
			|СГРУППИРОВАТЬ ПО
			|	ХозрасчетныйОбороты.Регистратор
			|
			|УПОРЯДОЧИТЬ ПО
			|	ХозрасчетныйОбороты.Регистратор.Дата";
			ЗапросДокумент.УстановитьПараметр("НачалоПериода",НачалоПериода);
			ЗапросДокумент.УстановитьПараметр("КонецПериода", Граница);
			ЗапросДокумент.УстановитьПараметр("МОЛ",ВыборкаМОЛ.МОЛ);
			ЗапросДокумент.УстановитьПараметр("Организация",ВыборкаМОЛ.Организация);
			ЗапросДокумент.УстановитьПараметр("Счет71", ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицами_);
			ВыборкаДокумент = ЗапросДокумент.Выполнить().Выбрать();
			
			Номер = 1;
			Пока ВыборкаДокумент.Следующий() Цикл
				СтрокаДокумент.Параметры.Заполнить(ВыборкаДокумент);
				СтрокаДокумент.Параметры.Номер = Номер;
				ТабДок.Вывести(СтрокаДокумент);
				Номер = Номер +1;
			КонецЦикла;
		КонецЕсли;
		НачальныйОстатокИтог=НачальныйОстатокИтог+ВыборкаМОЛ.НачальныйОстаток;
		КонечныйОстатокИтог=КонечныйОстатокИтог+ВыборкаМОЛ.КонечныйОстаток;
		ПриходИтог=ПриходИтог+ВыборкаМОЛ.Приход;
		РасходИтог=РасходИтог+ВыборкаМОЛ.Расход;
	КонецЦикла;
	Итог.Параметры.НачальныйОстаток = НачальныйОстатокИтог;
	Итог.Параметры.КонечныйОстаток = КонечныйОстатокИтог;
	Итог.Параметры.Приход = ПриходИтог;
	Итог.Параметры.Расход = РасходИтог;
	ТабДок.Вывести(Итог);
КонецПроцедуры

Процедура КнопкаНастройкаПериодаНажатие(Элемент)
	ТиповыеОтчеты.НастроитьПериод(НастройкаПериода, НачалоПериода, КонецПериода);	
КонецПроцедуры

Процедура НачалоПериодаПриИзменении(Элемент)
	
КонецПроцедуры

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