Процедура СохранитьВXMLСписокСотрудников();
 Запрос = Новый Запрос;
 Запрос.Текст = 
"ВЫБРАТЬ
|	РаботникиОрганизацийСрезПоследних.Сотрудник,
|	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код КАК кодфиз,
|	РаботникиОрганизацийСрезПоследних.Сотрудник.Должность КАК должн,
|	ВЫБОР
|		КОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения >= &Период
|			ТОГДА СостояниеРаботниковОрганизацийСрезПоследних.Состояние
|		ИНАЧЕ ""Работает""
|	КОНЕЦ КАК Состояние,
|	ВЫБОР
|		КОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения >= &Период
|			ТОГДА СостояниеРаботниковОрганизацийСрезПоследних.ПериодЗавершения
|		ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|	КОНЕЦ КАК КонецФазы
|ИЗ
|	РегистрСведений.РаботникиОрганизаций.СрезПоследних(&Период, ) КАК РаботникиОрганизацийСрезПоследних
|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостояниеРаботниковОрганизаций.СрезПоследних(&Период, ) КАК СостояниеРаботниковОрганизацийСрезПоследних
|		ПО РаботникиОрганизацийСрезПоследних.Сотрудник = СостояниеРаботниковОрганизацийСрезПоследних.Сотрудник
|ГДЕ
|	РаботникиОрганизацийСрезПоследних.ЗанимаемыхСтавок <> 0";
 
  Запрос.УстановитьПараметр("Период", Период);
 
  Результат = Запрос.Выполнить().Выбрать();  
  ЗаписьXML = Новый ЗаписьXML;
  ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\employees.xml","UTF-8");
  ЗаписьXML.ЗаписатьОбъявлениеXML();
 
  ЗаписьXML.ЗаписатьНачалоЭлемента("export");
  пока  Результат.Следующий() цикл
   	 ЗаписьXML.ЗаписатьНачалоЭлемента("employees");
	 ЗаписьXML.ЗаписатьБезОбработки("<faza>"+СокрЛП(Результат.Состояние)+"</faza>");
	 ЗаписьXML.ЗаписатьБезОбработки("<fio>"+СокрЛП(Результат.Сотрудник)+"</fio>");
	 ЗаписьXML.ЗаписатьБезОбработки("<code>"+СокрЛП(Результат.кодфиз)+"</code>");
	 ЗаписьXML.ЗаписатьБезОбработки("<enddate>"+СокрЛП(Результат.КонецФазы)+"</enddate>");
	 ЗаписьXML.ЗаписатьБезОбработки("<post>"+СокрЛП(Результат.должн)+"</post>");
	 ЗаписьXML.ЗаписатьКонецЭлемента();
 
  конеццикла;
  ЗаписьXML.ЗаписатьКонецЭлемента();