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