Процедура AI_CRM_ПередачаСтатусаЗаказов() Экспорт

	Попытка

		ВрПуть = КаталогВременныхФайлов();
		ПутьКаталогИнтеграции = ВрПуть+"BPMStatus\";
		КаталогИнтеграции = Новый Файл(ПутьКаталогИнтеграции);
		Если Не КаталогИнтеграции.Существует() Тогда

			СоздатьКаталог(ПутьКаталогИнтеграции);

		КонецЕсли;

		ФайлXML = Новый ЗаписьТекста(ПутьКаталогИнтеграции+СтрЗаменить(СтрЗаменить(СтрЗаменить(Строка(ТекущаяДата()),":","_"),".","_")," ","")+".xml",КодировкаТекста.UTF8);

		НЗ = РегистрыСведений.AI_BPM_ИзмененныеЗаказы.СоздатьНаборЗаписей();
		//НЗ.Отбор.Период.ЗначениеС = НачалоГода(ТекущаяДата());
		//НЗ.Отбор.Период.Значение = ТекущаяДата();
		//НЗ.Отбор.Период.использование = Истина;
		//НЗ.Отбор.Период.ВидСравнения = ВидСравнения.Меньше;
		НЗ.Прочитать();


		Для Каждого Запись Из НЗ Цикл

			СтатусДок = Запись.Статус;
			Если СтатусДок = "Проведен" Тогда
				Статус = "Передан в обработку";
			ИначеЕсли СтатусДок = "Распроведен" Тогда
				Статус = "Отправлен в 1С";
			ИначеЕсли СтатусДок = "Отменен" Тогда
				Статус = "Отменен";
			ИначеЕсли СтатусДок = "Оплачен" Тогда
				Статус = "Оплачен";
			ИначеЕсли СтатусДок = "Отгружен" Тогда
				Статус = "Отгружен со склада";
			Иначе
				Продолжить;
			КонецЕсли;

			Док = Запись.Документ;
			Хран = Запись.Параметры;
			Параметры = Хран.Получить();
			СтрокаПараметров = "";
			Если СтатусДок = "Оплачен"  Тогда

				СтрокаПараметров = " paymentDate='"+Параметры.ДатаОплаты+"' paymentAmount='"+Параметры.СуммаОплаты+"' ";

			КонецЕсли;
			Если СтатусДок = "Отгружен"  Тогда

				СтрокаПараметров = " shipDate='"+Параметры.ДатаОтгрузки+"'";

			КонецЕсли;
			xmlstring = "<status document='"+Док.napId+"' status='"+Статус+"'"+СтрокаПараметров+"/>";
			ФайлXML.ЗаписатьСтроку(xmlstring);

		КонецЦикла;

		ФайлXML.Закрыть();
		ЗаписьЖурналаРегистрации("ИмяФайла",УровеньЖурналаРегистрации.Информация,,, ПутьКаталогИнтеграции+СтрЗаменить(СтрЗаменить(СтрЗаменить(Строка(ТекущаяДата()),":","_"),".","_")," ","")+".xml");

		НЗ.Очистить();
		НЗ.Записать(Истина);
		ОтправитьСменуСтатусаВBPM(Неопределено,"ОтправкаПакетаИзменений", Неопределено);

	  Исключение
		ТекстОшибки = ОписаниеОшибки();
		ОбщегоНазначения.СообщитьОбОшибке(ТекстОшибки);
		ЗаписьЖурналаРегистрации("ПроведениеЗаказа",УровеньЖурналаРегистрации.Ошибка,,,ТекстОшибки,);
	КонецПопытки;


КонецПроцедуры