Счет на оплату по коммуналке

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

	
	//Запрос.УстановитьПараметр("Услуга", Объект.Услуга);
	Запрос1.УстановитьПараметр("Контрагент", Объект.Контрагент);
	Запрос1.УстановитьПараметр("Период", Объект.Период.ДатаНачала);
	Запрос1.УстановитьПараметр("ПериодК", Объект.Период.ДатаОкончания); 
	
	//	Запрос5.УстановитьПараметр("Контрагент", Объект.Контрагент);
	//	Запрос5.УстановитьПараметр("Период", НачалоМесяца(Объект.Период));
	//	Запрос5.УстановитьПараметр("ПериодК", КонецМесяца(Объект.Период));
	
	//Запрос6.УстановитьПараметр("Контрагент", Объект.Контрагент);
	//Запрос6.УстановитьПараметр("Период", Объект.Период);
	//Запрос6.УстановитьПараметр("ПериодК", КонецМесяца(Объект.Период));
	
	//Запрос1.УстановитьПараметр("Услуга", Объект.Услуга);
	
	ДанныеОрганизации = Запрос1.Выполнить();
	ДанныеНачисления = ЗапросНач.Выполнить();
	//	ДанныеНачмсления2 = Запрос6.Выполнить();
	//	Результат = Запрос.Выполнить();
	//Результат2 = Запрос5.Выполнить();
	Если НЕ ДанныеНачисления.Пустой() Тогда  
		ТабличныйДокумент = Новый ТабличныйДокумент;
		
		ТабличныйДокумент.Очистить();
		
		ТабличныйДокумент.НачатьАвтогруппировкуСтрок();
		Организация = ДанныеОрганизации.Выбрать();
		Организация.Следующий();
		//Начисления = ДанныеНачисления.Выбрать();
		
		//	Начисления2 = ДанныеНачмсления2.Выбрать();
		ВыборкаКонтрагент = ДанныеНачисления.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		//ВыборкаКонтрагентОБЩ = Результат2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		Пока ВыборкаКонтрагент.Следующий() Цикл
			// ВыборкаКонтрагентОБЩ.Следующий();
			ОбластьЗаголовокОбщЭлектро = Макет3.ПолучитьОбласть("Заголовок");
			ОбластьЗаголовокОбщЭлектро.Параметры.Заполнить(Организация);
			ОбластьЗаголовокОбщЭлектро.Параметры.Период = Формат(Объект.Период,"ДФ='MMMM.yyyy'");
			
			ОбластьЗаголовокОбщЭлектро.Параметры.Контрагент = ВыборкаКонтрагент.Контрагент;
			ТабличныйДокумент.Вывести(ОбластьЗаголовокОбщЭлектро);
			ВыборкаДетальныеЗаписи = ВыборкаКонтрагент.Выбрать();
			
			//	ВыброкаДетальныеЗаписиОбщ = ВыборкаКонтрагентОБЩ.Выбрать(); 
			ОбластьШапкаОбщЭлектро = Макет3.ПолучитьОбласть("Шапка");
			ТабличныйДокумент.Вывести(ОбластьШапкаОбщЭлектро);
			НомерСтроки = 0;
			КонИтогоСумма = 0;
			КонИтого = 0;
			КонИтогоНДС = 0;
			КонИтогоНСП = 0;
			
			
			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
				// Начисления.Следующий();		 
				НомерСтроки = НомерСтроки + 1;
				ОбластьСтрокаОбщЭлектро = Макет3.ПолучитьОбласть("Строка");
				ОбластьСтрокаОбщЭлектро.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
				//ОбластьСтрокаОбщЭлектро.Параметры.НДС = Начисления.НДС;
				//ОбластьСтрокаОбщЭлектро.Параметры.НСП = Начисления.НСП;
				//ОбластьСтрокаОбщЭлектро.Параметры.ВсегоСУчетомНалогов = Начисления.ВсегоСУчетомНалогов;
				ОбластьСтрокаОбщЭлектро.Параметры.НомерСтроки = НомерСтроки;
				//ИтогоСумма = ИтогоСумма + ВыборкаДетальныеЗаписи.Всего;
				//Итого = Итого + Начисления.ВсегоСУчетомНалогов;
				//ИтогоНСП = ИтогоНСП + Начисления.НСП;
				//ИтогоНДС = ИтогоНДС + Начисления.НДС;
				
				//ОбластьСтрокаОбщЭлектро.Параметры.Заполнить(ВыброкаДетальныеЗаписиОбщ);
				// ИтогоСумма = ИтогоСумма + ВыброкаДетальныеЗаписиОбщ.Всего;
				КонИтогоСумма = КонИтогоСумма +  ВыборкаДетальныеЗаписи.Всего;
				КонИтого =  КонИтого + ВыборкаДетальныеЗаписи.ВсегоСУчетомНалогов;
				КонИтогоНДС = КонИтогоНДС + ВыборкаДетальныеЗаписи.НДС;
				КонИтогоНСП = КонИтогоНСП + ВыборкаДетальныеЗаписи.НСП;
				
				ТабличныйДокумент.Вывести(ОбластьСтрокаОбщЭлектро);
			КонецЦикла;
			
			НомерСтроки3 = 0;
			ИтогоСумма3 = 0;
			Итого3 = 0;
			ИтогоНСП3 = 0;
			ИтогоНДС3 = 0;
			НомерСтроки3 = НомерСтроки;
			
			
			ОбластьПодвалОбщЭлектро = Макет3.ПолучитьОбласть("Подвал");
			ОбластьПодвалОбщЭлектро.Параметры.Заполнить(Организация);
			ОбластьПодвалОбщЭлектро.Параметры.ИтогоСумма = Формат(КонИтогоСумма, "ЧДЦ='2'");
			ОбластьПодвалОбщЭлектро.Параметры.Итого = Формат(КонИтого, "ЧДЦ='2'");
			ОбластьПодвалОбщЭлектро.Параметры.ИтогоНДС = Формат(КонИтогоНДС , "ЧДЦ='2'");
			ОбластьПодвалОбщЭлектро.Параметры.ИтогоНСП = Формат(КонИтогоНСП , "ЧДЦ='2'");
			ОбластьПодвалОбщЭлектро.Параметры.Директор = Директор;
			ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
			ТабличныйДокумент.АвтоМасштаб = Истина;
			ТабличныйДокумент.Вывести(ОбластьПодвалОбщЭлектро);
			
			ОбластьОтрывОбщЭлектро = Макет3.ПолучитьОбласть("Отрыв");
			ТабличныйДокумент.Вывести(ОбластьОтрывОбщЭлектро);
			//ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			
		КонецЦикла;
		
		
	Иначе
		Сообщить("Данных за элетроэнергию не обнаружено!");
	КонецЕсли;