Интересно мнение по первому внешнему отчету

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

&НаКлиенте
Процедура Сформировать(Команда)
		//БЛОК ПРОВЕРКИ НА ЗАПОЛНЕНИЕ ПАРАМЕТРОВ ОТЧЕТА
	Если ДатаОтчета = Дата(1, 1, 1, 0, 0, 0) тогда
		ВызватьИсключение "Укажите дату формирования отчета!";
		Возврат;			
	КонецЕсли;
	
	Если ПустаяСтрока(Организация) тогда
		ВызватьИсключение "Выберите организацию!";
		Возврат;			
	КонецЕсли;
	
	Если ДатаПогашения = Дата(1, 1, 1, 0, 0, 0) тогда
		ВызватьИсключение "Укажите дату, до которой требуется погасить задолженность!";
		Возврат;			
	КонецЕсли;
	
	Если ТабВыбораЛС.Количество() <= 0 тогда
		ВызватьИсключение "Выберите хотя бы один лицевой счет!";
		Возврат;			
	КонецЕсли;
	
	СформироватьНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ДатаОтчета = ТекущаяДата();
	СрокПогашенияВДнях = 1;	 
КонецПроцедуры

&НаКлиенте
Процедура Информация(Команда)
	Сообщить("Формирование уведомлений о задолженности на заданную дату по выбранным ЛС"); 
КонецПроцедуры

&НаКлиенте
Процедура ПодборЛС(Команда)
	СтандартнаяОбработка = Ложь;
	ФормаПодбора = ПолучитьФорму("Справочник.КВП_ЛицевыеСчета.Форма.ФормаПодбора", Новый Структура("ВыборГруппИЭлементов", ИспользованиеГруппИЭлементов.Элементы), Элементы.ТабЛС);
	ФормаПодбора.ЗакрыватьПриВыборе = Ложь;
	ФормаПодбора.Открыть();
КонецПроцедуры

&НаКлиенте
Процедура ТабЛСОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
	Если ЗначениеЗаполнено(ВыбранноеЗначение)
		Тогда
		НоваяСтрока = ТабВыбораЛС.Добавить();
		НоваяСтрока.ЛицевойСчет = ВыбранноеЗначение;
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Очистить(Команда)
	ТабВыбораЛС.Очистить();
КонецПроцедуры