Процедура СохранитьВ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.ЗаписатьКонецЭлемента();
