Сохранение печатной формы из 1с в xml

СпособВыплаты = Перечисления.СпособыВыплатыЗарплаты.ЧерезБанк;

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

	ЗаписьXML.ЗаписатьНачалоЭлемента("ЗачислениеЗарплаты");
	НомерСтроки = 0;
	
	Для Каждого Стр из Выборка Цикл
		НомерСтроки = НомерСтроки + 1;
		ЗаписьXML.ЗаписатьНачалоЭлемента("Сотрудник");
		
		Нпп=Строка(НомерСтроки);
		ЗаписьXML.ЗаписатьАтрибут("Нпп", Нпп);
		ЗаписьXML.ЗаписатьНачалоЭлемента("Фамилия");
		ЗаписьXML.ЗаписатьТекст(Стр.Фамилия);
		ЗаписьXML.ЗаписатьКонецЭлемента();//Фамилия
        ЗаписьXML.ЗаписатьНачалоЭлемента("Имя");
		ЗаписьXML.ЗаписатьТекст(Стр.Имя);
		ЗаписьXML.ЗаписатьКонецЭлемента();//Имя
		ЗаписьXML.ЗаписатьНачалоЭлемента("Отчество");
		ЗаписьXML.ЗаписатьТекст(Стр.Отчество);
		ЗаписьXML.ЗаписатьКонецЭлемента();//Отчество
		ЗаписьXML.ЗаписатьНачалоЭлемента("ОтделениеБанка");
		ЗаписьXML.ЗаписатьТекст("8635");
		ЗаписьXML.ЗаписатьКонецЭлемента();//ОтделениеБанка
		ЗаписьXML.ЗаписатьНачалоЭлемента("ФилиалОтделенияБанка");
		ЗаписьXML.ЗаписатьТекст("0");
		ЗаписьXML.ЗаписатьКонецЭлемента();//ФилиалОтделенияБанка
		ЗаписьXML.ЗаписатьНачалоЭлемента("ЛицевойСчет");
		ЗаписьXML.ЗаписатьТекст(Стр.НомерСчета);
		ЗаписьXML.ЗаписатьКонецЭлемента();//ЛицевойСчет
		ЗаписьXML.ЗаписатьНачалоЭлемента("Сумма");
		Сумма=Строка(Формат(Стр.Сумма, "ЧГ=0;ЧРД='.'"));               
		ЗаписьXML.ЗаписатьТекст(Сумма);
		ЗаписьXML.ЗаписатьКонецЭлемента();//Сумма
		ЗаписьXML.ЗаписатьКонецЭлемента();//Сотрудник
	КонецЦикла;
	ЗаписьXML.ЗаписатьКонецЭлемента();	//Зачисления
	ЗаписьXML.ЗаписатьНачалоЭлемента("ВидЗачисления");
	ЗаписьXML.ЗаписатьТекст("01");
	ЗаписьXML.ЗаписатьКонецЭлемента();//ВидЗачисления
	ЗаписьXML.ЗаписатьНачалоЭлемента("ПлатежноеПоручение");
	ЗаписьXML.ЗаписатьТекст(НомерПлатежки);
	ЗаписьXML.ЗаписатьКонецЭлемента();//ПлатежноеПоручение
    ЗаписьXML.ЗаписатьНачалоЭлемента("ДатаПлатежногоПоручения");
	ЗаписьXML.ЗаписатьТекст(ТекстДата);
	ЗаписьXML.ЗаписатьКонецЭлемента();//ДатаПлатежногоПоручения
    ЗаписьXML.ЗаписатьНачалоЭлемента("КонтрольныеСуммы");
	ЗаписьXML.ЗаписатьНачалоЭлемента("КоличествоЗаписей");
	КоличествоЗаписей=Нпп;
	ЗаписьXML.ЗаписатьТекст(КоличествоЗаписей);
	Сообщить("Количество записей "+КоличествоЗаписей);
	ЗаписьXML.ЗаписатьКонецЭлемента();//КоличествоЗаписей         
	ЗаписьXML.ЗаписатьНачалоЭлемента("СуммаИтого");
	Итого =Выборка.Итог("Сумма");
    СуммаИтого=Строка(Формат(Итого, "ЧГ=0;ЧРД='.'"));
	Сообщить("Сумма к выгрузке " + СуммаИтого);
	ЗаписьXML.ЗаписатьТекст(СуммаИтого);
	ЗаписьXML.ЗаписатьКонецЭлемента();//СуммаИтого
	ЗаписьXML.ЗаписатьКонецЭлемента();//КонтрольныеСуммы
	ЗаписьXML.ЗаписатьКонецЭлемента();//СчетаПК
	ЗаписьXML.Закрыть();