1s Реестр для Лента в формате XML

	Результат = Запрос.Выполнить().Выбрать();
	//ВыборкаДетали = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	ИмяФайла = "reestr.xml";
	//ИмяФайла = "reestr-" + СокрЛП(ВыборкаДетали.Номер) + "-" + СокрЛП(День(ВыборкаДетали.Дата)) + "_" + СокрЛП(Месяц(ВыборкаДетали.Дата)) + "_" + СокрЛП(Год(ВыборкаДетали.Дата)) + ".xml";
	 ИмяФайла = ПутьКФайлу+"\"+ИмяФайла;
	ОбъектXML = Новый ЗаписьXML;
	ОбъектXML.ОткрытьФайл(ИмяФайла, "windows-1251");
	//ОбъектXML.ОткрытьФайл(ИмяФайла);
	ОбъектXML.ЗаписатьОбъявлениеXML();
	//ВыборкаДетали = Запрос(НачалоПериода, КонецПериода, Контрагент);
	НомерФайла = 1;
	ОбъектXML.ЗаписатьНачалоЭлемента("Reestr");
    Пока Результат.Следующий() Цикл
    	ОбъектXML.ЗаписатьНачалоЭлемента("Document");
		НомерСФ = Число(Сред(Результат.Номер, 4, 8));
		Если НомерСФ  10 Тогда
			Номерсф1 = Сред(Результат.Номер, 11, 1);
		ИначеЕсли НомерСФ  100 Тогда	
		    Номерсф1 = Сред(Результат.Номер, 10, 2);
		ИначеЕсли НомерСФ  1000 Тогда	
		    Номерсф1 = Сред(Результат.Номер, 9, 3);	
		ИначеЕсли НомерСФ  10000 Тогда	
		    Номерсф1 = Сред(Результат.Номер, 8, 4);	
		ИначеЕсли НомерСФ  100000 Тогда
			Номерсф1 = Сред(Результат.Номер, 7, 5);
		ИначеЕсли НомерСФ  1000000 Тогда
			Номерсф1 = Сред(Результат.Номер, 6, 6);
		ИначеЕсли НомерСФ  10000000 Тогда
			Номерсф1 = Сред(Результат.Номер, 5, 7);
		Иначе 
			Номерсф1 = Сред(Результат.Номер, 4, 8);
		КонецЕсли;	
	   	хмл_ЗаписатьЭлемент(ОбъектXML,"NumDoc", Номерсф1);
		хмл_ЗаписатьЭлемент(ОбъектXML,"DateDoc",СокрЛП(Результат.Дата));
		хмл_ЗаписатьЭлемент(ОбъектXML,"NumContract",Результат.Ссылка.ДокументОснование.ДоговорКонтрагента.Номер);
		хмл_ЗаписатьЭлемент(ОбъектXML,"DateContract",СокрЛП(Результат.Ссылка.ДокументОснование.ДоговорКонтрагента.Дата));
		ОбъектXML.ЗаписатьКонецЭлемента();
		//ОбъектXML.Закрыть();
		НомерФайла = НомерФайла + 1;
	КонецЦикла;
    ОбъектXML.ЗаписатьКонецЭлемента();	
	ОбъектXML.Закрыть();