Для Каждого СтрокаРезультата Из РезультатТаблица Цикл

   //алгоритм обработки строки результата - начало

ДокОбъект = СтрокаРезультата.Ссылка.ПолучитьОбъект();

Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));

            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;

            НаборЗаписей.Отбор.Регистратор.Установить(ДокОбъект.Ссылка);            

        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;

        Попытка

            НаборЗаписей.Записать();

        Исключение

            Сообщить(ОписаниеОшибки());

        КонецПопытки;

    КонецЦикла;



	ДокОбъект.Проведен = Ложь;

	//ДокОбъект.ОбменДанными.Загрузка = Истина;

	ДокОбъект.Записать(режимзаписидокумента.запись);



   //алгоритм обработки строки результата - конец

КонецЦикла;   

 Процедура УдалитьДвиженияДокумента(Документ)



    ДокОбъект = Документ.ПолучитьОбъект();



    Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));



            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;



            НаборЗаписей.Отбор.Регистратор.Установить(ДокОбъект.Ссылка);            



        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;



        Попытка

            НаборЗаписей.Записать();

        Исключение

            Сообщить(ОписаниеОшибки());

        КонецПопытки;

    КонецЦикла;



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

 // Добавляет одну запись в регистр сведений по переданным значениям структуры

//

// Параметры:

//  СтруктураЗаписи - Структура - структура, по значениям которой необходимо создать набор записей и заполнить этот набор

//  ИмяРегистра     - Строка - имя регистра сведений, в который необходимо добавить запись

// 

Процедура ДобавитьЗаписьВРегистрСведений(СтруктураЗаписи, Знач ИмяРегистра, Загрузка = Ложь) Экспорт

	

	НаборЗаписей = СоздатьНаборЗаписейРегистраСведений(СтруктураЗаписи, ИмяРегистра);

	

	// добавляем только одну запись в новый набор записей

	НоваяЗапись = НаборЗаписей.Добавить();

	

	// заполняем значения свойств записи из переданной структуры

	ЗаполнитьЗначенияСвойств(НоваяЗапись, СтруктураЗаписи);

	

	НаборЗаписей.ОбменДанными.Загрузка = Загрузка;

	

	// записываем набор записей

	НаборЗаписей.Записать();

	

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





// Обновляет запись в регистр сведений по переданным значениям структуры

//

// Параметры:

//  СтруктураЗаписи - Структура - структура, по значениям которой необходимо создать менеджер записи и обновить запись

//  ИмяРегистра     - Строка - имя регистра сведений, в котором необходимо обновить запись

// 

Процедура ОбновитьЗаписьВРегистрСведений(СтруктураЗаписи, Знач ИмяРегистра) Экспорт

	

	МетаданныеРегистра = Метаданные.РегистрыСведений[ИмяРегистра];

	

	// создаем менеджер записи регистра

	МенеджерЗаписи = РегистрыСведений[ИмяРегистра].СоздатьМенеджерЗаписи();

	

	// устанавливаем отбор по измерениям регистра

	Для Каждого Измерение ИЗ МетаданныеРегистра.Измерения Цикл

		

		// если задано значение в структуре, то отбор устанавливаем

		Если СтруктураЗаписи.Свойство(Измерение.Имя) Тогда

			

			МенеджерЗаписи[Измерение.Имя] = СтруктураЗаписи[Измерение.Имя];

			

		КонецЕсли;

		

	КонецЦикла;

	

	// считываем запись из базы данных

	МенеджерЗаписи.Прочитать();

	

	// заполняем значения свойств записи из переданной структуры

	ЗаполнитьЗначенияСвойств(МенеджерЗаписи, СтруктураЗаписи);

	

	// записываем менеджер записи

	МенеджерЗаписи.Записать();

	

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





// Удаляет набор записей в регистре по переданным значениям структуры

//

// Параметры:

//  СтруктураЗаписи - Структура - структура, по значениям которой необходимо удалить набор записей

//  ИмяРегистра     - Строка - имя регистра сведений, в котором необходимо удалить набор записей

// 

Процедура УдалитьНаборЗаписейВРегистреСведений(СтруктураЗаписи, ИмяРегистра, Загрузка = Ложь) Экспорт

	

	НаборЗаписей = СоздатьНаборЗаписейРегистраСведений(СтруктураЗаписи, ИмяРегистра);

	

	НаборЗаписей.ОбменДанными.Загрузка = Загрузка;

	

	// записываем набор записей

	НаборЗаписей.Записать();

	

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



// Создает набор записей регистра сведений по переданным значениям структуры. Добавляет одну запись в набор

//

// Параметры:

//  СтруктураЗаписи - Структура - структура по значениям которой необходимо создать набор записей и заполнить этот набор

//  ИмяРегистра     - Строка - имя регистра сведений

// 

Функция СоздатьНаборЗаписейРегистраСведений(СтруктураЗаписи, ИмяРегистра) Экспорт

	

	МетаданныеРегистра = Метаданные.РегистрыСведений[ИмяРегистра];

	

	// создаем набор записей регистра

	НаборЗаписей = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();

	

	// устанавливаем отбор по измерениям регистра

	Для Каждого Измерение ИЗ МетаданныеРегистра.Измерения Цикл

		

		// если задано значение в структуре, то отбор устанавливаем

		Если СтруктураЗаписи.Свойство(Измерение.Имя) Тогда

			

			НаборЗаписей.Отбор[Измерение.Имя].Установить(СтруктураЗаписи[Измерение.Имя]);

			

		КонецЕсли;

		

	КонецЦикла;

	

	Возврат НаборЗаписей;

КонецФункции

   

 &НаКлиенте

Процедура ПолучитьСообщений(Команда)

	

	ПутьСохранения = "D:\temp";

	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	

	//Профиль.АдресСервераPOP3 = "re05.hc.ru";

	//Профиль.ПортPOP3 = "995";

	//Профиль.Пользователь = "robot@site.ru";

	//Профиль.Пароль = "11223344";

	Профиль.АутентификацияPOP3 = Ложь;

	Профиль.АутентификацияSMTP = Ложь;



	

	// IMAP

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.АдресСервераIMAP = "re05.hc.ru";

	Профиль.ПортIMAP = "993"; 	

	Профиль.ПользовательIMAP = "robot@site.ru";

	Профиль.ПарольIMAP = "11223344";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP=Ложь;

	

	Почта = Новый ИнтернетПочта;

	

	Сообщ = Новый СообщениеПользователю();

	

	Попытка

		Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP); //ПротоколИнтернетПочты.POP3

		// Получаем все сообщения из почтового ящика

		МассивСообщений = Новый Массив;

		МассивСообщений = Почта.Выбрать(Ложь);

	Исключение

		// Ошибка при подключении к серверу или при приеме сообщения обмена

		Сообщ.Текст = " - Ошибка при подключении или приеме" + ОписаниеОшибки();

		Сообщ.Сообщить();

		Возврат;

	КонецПопытки;

	

	// Массив будет содержать сообщения, которые в последствии будут удалены с сервера 

	МассивСообщенийОбмена = Новый Массив;

	

	Если МассивСообщений.Количество() = 0 Тогда

		// Сообщений в почтовом ящике нет

		Сообщ.Текст = "Сообщений в почтовом ящике нет.";

		Сообщ.Сообщить();

		Возврат;

	КонецЕсли;

	

	ИмяФайлаСообщения = "";

	Для Индекс = 0 По МассивСообщений.Количество() - 1 Цикл  		

		// Отбираем только сообщения, которые содержат файлы прайсы, остальное спам 

		ЧастьТемы = "Price list";

		Если Лев(МассивСообщений[Индекс].Тема, СтрДлина(ЧастьТемы)) = ЧастьТемы Тогда

			Попытка

				// Записываем файл 

				МассивСообщений[Индекс].Вложения[0].Данные.Записать(ПутьСохранения+"\"+МассивСообщений[Индекс].Вложения[0].ИмяФайла);

				Сообщ.Текст = "Принят файл: " + МассивСообщений[Индекс].Вложения[0].ИмяФайла + " с адреса " + Профиль.Пользователь;

				Сообщ.Сообщить(); 				

			Исключение

				Сообщ.Текст = "Похоже нет файла в письме  ";

				Сообщ.Сообщить(); 				

			КонецПопытки;

		Иначе

			Почта.УдалитьСообщения(МассивСообщений[Индекс]);			

		КонецЕсли;

	КонецЦикла;

	

	Сообщ.Текст = "Сообщения получены!";

	Сообщ.Сообщить();

	Почта.Отключиться(); 

	

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

   

 // В качестве параметра передается ссылка на узел, для которого должна произойти очистка таблиц регистрации изменений:

Процедура ПолноеУдалениеРегистрацииДанныхПоУзлу(Узел) Экспорт

Сообщение = Новый СообщениеПользователю();

Сообщение.Текст = "Удаление регистрации всех данных для узла " + Узел;

Сообщение.Сообщить();

ПланыОбмена.УдалитьРегистрациюИзменений(Узел);  

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

 Процедура ПередЗаписью(Отказ)

Узел=ПланыОбмена.УдаленныеСклады.НайтиПоКоду("Оптовый");

Объект.ОбменДанными.Получатели.Удалить(Узел);

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

 Процедура ВключитьРегистрацию(ОбменДанными, Склад) Экспорт 

//Получение узлов для конкретного склада 

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

  |   УдаленныеСклады.Ссылка

  |ИЗ

  |   ПланОбмена.УдаленныеСклады КАК УдаленныеСклады

  |

  |ГДЕ

  |   (УдаленныеСклады.Склад = &Склад ИЛИ

  |   УдаленныеСклады.Склад = &ПустойСклад) И

  |   УдаленныеСклады.Ссылка <> &ЭтотУзел";

 

Запрос.УстановитьПараметр("Склад", Склад);  

Запрос.УстановитьПараметр("ПустойСклад", 

Справочники.Склады.ПустаяСсылка());  

Запрос.УстановитьПараметр("ЭтотУзел", 

ПланыОбмена.УдаленныеСклады.ЭтотУзел());  

Выборка = Запрос.Выполнить().Выбрать();

 

// Регистрация изменений для выбранных узлов

Пока Выборка.Следующий() Цикл

ОбменДанными.Получатели.Добавить(Выборка.Ссылка);

КонецЦикла; 

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

 Функция СоздатьФайлСхемы()



    ФайлСхемы = Новый Файл(КаталогВременныхФайлов() + "schema.xsd");

    Если ФайлСхемы.Существует() Тогда

        УдалитьФайлы(ФайлСхемы.ПолноеИмя);

    КонецЕсли;



    Ссылка = ПолучитьМакет("schema_xsd");

    Ссылка.Записать(ФайлСхемы.ПолноеИмя);



    Возврат ФайлСхемы.ПолноеИмя;



КонецФункции



Функция ВыгрузитьДокументы()



    ФайлыXSD = Новый Массив();

    ФайлыXSD.Добавить(СоздатьФайлСхемы());

    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);



    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    Пока Выборка.Следующий() Цикл



        Документ = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "Документ"));

        Документ.ID = Строка(Док.УникальныйИдентификатор());

        Документ.ВидДокумента = Док.Метаданные().Имя;

        Документ.Дата = Док.Дата;

        Документ.Номер = Док.Номер;

        Документ.Статус = ?(Док.Проведен, "Проведен", ?(Док.ПометкаУдаления, "ПометкаУдаления", "НеПроведен"));

        Документ.Комментарий = Док.Комментарий;



    КонецЦикла



    ПараметрыЗаписиXML = Новый ПараметрыЗаписиXML("UTF-8", "1.0", Ложь);



    МойXML = Новый ЗаписьXML;

    МойXML.ОткрытьФайл(ИмяФайла, ПараметрыЗаписиXML);

    МойXML.ЗаписатьОбъявлениеXML();

    Фабрика.ЗаписатьXML(МойXML, ФайлОбмена);

    МойXML.Закрыть();



    ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Создан файл обмена " + ИмяФайла);



КонецФункции



Процедура ЗагрузитьДокументы()



    ФайлыXSD = Новый Массив();

    ФайлыXSD.Добавить(СоздатьФайлСхемы());

    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);



    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    ОбменXML = Новый ЧтениеXML;

    ОбменXML.ОткрытьФайл(ИмяФайла);

    ФайлОбмена = Фабрика.ПрочитатьXML(ОбменXML, Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    Для Каждого Документ Из ФайлОбмена.Документ Цикл



        ОбработкаПрерыванияПользователя();



        Если Документ.ВидДокумента = "ПоступлениеТоваров" И

             ЗначениеЗаполнено(Поставщик) И

             Документ.Контрагент.ИНН  Поставщик.ИНН Тогда



        КонецЕсли;



    КонецЦикла



    ФайлОбмена = "";

    ОбменXML.Закрыть();

    УдалитьФайлы(ИмяФайла);



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

 Определение = Новый WSОпределения(Server, User, Pass);



Прокси = Новый WSПрокси(Определение, "http://www.anton.fly7.ru", "Obmen", "ObmenSoap");

Прокси.Пользователь = User;

Прокси.Пароль = Pass;



Тип = Прокси.ФабрикаXDTO.Тип("http://www.anton.fly7.ru", "ФайлОбмена");

ФайлОбмена = Прокси.ФабрикаXDTO.Создать(Тип);



Файл = Новый Файл(КаталогВременныхФайлов() + "dat.dbf"); i=1;

Пока Файл.Существует() Цикл



    Файл = Новый Файл(КаталогВременныхФайлов() + "dat" + i + ".dbf");

    i=i+1;



КонецЦикла;



ДБ = Новый XBase;

ЗаполнитьПоляДБ(ДБ, ТабСвойств);

ДБ.СоздатьФайл(Файл.ПолноеИмя);

ДБ.АвтоСохранение = Истина;



            ДБ.Добавить();

            ДБ.Artik    = Номенклатура.Артикул;

            ДБ.Name     = Строка(Номенклатура);

            ДБ.NomGrup  = Строка(Номенклатура.ТипНоменклатуры);

            ДБ.VidNom   = Строка(Номенклатура.ВидНоменклатуры);

            ДБ.Group    = ПолучитьГруппу(Номенклатура);

            ДБ.Strana   = "";

            ДБ.Pol      = "";



ДБ.Записать();

ДБ.ЗакрытьФайл();



ФайлДвоичныеДанные = Новый ДвоичныеДанные(Файл.ПолноеИмя);

ФайлаХранилищеЗначения = Новый ХранилищеЗначения(ФайлДвоичныеДанные, Новый СжатиеДанных(9));



ФайлОбмена.ТипФайла = 1;

ФайлОбмена.ИмяФайла = "data_" + СокрЛП(СсылкаНаОбъект.Номер) + ".dbf";

ФайлОбмена.Данные = ФайлаХранилищеЗначения.Получить();



УдалитьФайлы(Файл.ПолноеИмя);



Результат = Прокси.LoadDocs(ФайлОбмена);



Если ЗначениеЗаполнено(Результат) Тогда

    ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат);

КонецЕсли;   

 Обработка = Обработки.УниверсальныйОбменДаннымиXML.Создать();

 Обработка.РежимОбмена = "Выгрузка";

 Обработка.ВыводВОкноСообщенийИнформационныхСообщений = Истина;

При необходимости можно задать период выгрузки (как пример):

 Обработка.ДатаНачала  = ТекущаяДата();

 Обработка.ДатаОкончания   = ТекущаяДата();



 Обработка.ИмяФайлаПравилОбмена = "D:\ПравилаОбменаДанными.xml";

 Источник = ЭтотОбъект.Ссылка;

 ИмяФайла = Строка(ТипЗнч(Источник)) + " " + Строка(Источник.Номер);

 Обработка.ИмяФайлаОбмена = "D:\E\"+ Источник +".xml"; 

 Обработка.ЗагрузитьПравилаОбмена(); 

Основные параметры мы определили, теперь надо настроить отбор, если в этом нет необходимости то просто запускаете выгрузку:

Обработка.ВыполнитьВыгрузку();   

 ВременнаяТаблицаПравил = Обработка.ТаблицаПравилВыгрузки.Скопировать();

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[1].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[2].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;   

  Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

    Наименование = СтрокаУровня2.Имя;

    Если Наименование = "ПеремещениеТоваров00001" Тогда

        СтрокаУровня2.Включить = 1;

    Иначе

        СтрокаУровня2.Включить = 0;

    КонецЕсли;

 КонецЦикла;

 Обработка.ТаблицаПравилВыгрузки = ВременнаяТаблицаПравил.Скопировать();   

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

  Наименование = СтрокаУровня2.Имя;

  Если Наименование = "ПеремещениеТоваров00001" Тогда

  ТекущееПВД = СтрокаУровня2;



     Построитель = Новый ПостроительОтчета;

     Если ТекущееПВД.ИмяОбъектаДляЗапроса <> Неопределено Тогда



         Построитель.Текст =

         "ВЫБРАТЬ Разрешенные _.* ИЗ " + ТекущееПВД.ИмяОбъектаДляЗапроса + " КАК _

          |

          |

          |{ГДЕ _.Ссылка.* КАК " + СтрЗаменить(ТекущееПВД.ИмяОбъектаДляЗапроса, ".", "_") + "}";

     КонецЕсли;



     Отбор = Построитель.Отбор;



     Если Отбор.Найти("Документ_ПеремещениеТоваров") = Неопределено Тогда

        Отбор.Добавить("Документ_ПеремещениеТоваров");

     КонецЕсли;



     Массив = Новый Массив;

     Массив.Добавить(Тип("ДокументСсылка.ПеремещениеТоваров"));

     ОписаниеТиповС = Новый ОписаниеТипов(Массив, , );



     Отбор["Документ_ПеремещениеТоваров"].Использование = Истина;

     Отбор["Документ_ПеремещениеТоваров"].Значение = ЭтотОбъект.Ссылка;

     Отбор["Документ_ПеремещениеТоваров"].ВидСравнения = ВидСравнения.Равно;



     ДоступностьПостроителя = Истина;

     Если Построитель.Отбор.Количество() > 0 Тогда

         ТекущееПВД.НастройкиПостроителя = Построитель.ПолучитьНастройки();

         ТекущееПВД.ИспользоватьОтбор    = ИСТИНА;

     КонецЕсли;

  КонецЕсли;

КонецЦикла;   

    Обработка.АрхивироватьФайл = Истина;

  Обработка.ВыполнитьВыгрузку();   

  МассивФайлов = НайтиФайлы("D:\E\", "*.zip");

Для Каждого Стм Из МассивФайлов Цикл

ТекстВопроса = "Загрузить - " + Стм.ПолноеИмя;

Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Да);

    Если Ответ = КодВозвратаДиалога.Да Тогда

        Обработка  = Обработки.УниверсальныйОбменДаннымиXML.Создать();

        Обработка.ИмяФайлаОбмена = Стм.ПолноеИмя;

        Обработка.РежимОбмена    = "Загрузка";

        Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

        Обработка.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

        Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;

        Обработка.ВыполнитьЗагрузку();

        УдалитьФайлы(Стм.ПолноеИмя);

    КонецЕсли;

КонецЦикла;   

  Обработка.АрхивироватьФайл = Истина;   

 Процедура ПередЗаписью(Отказ)

	РегистрацияВНовыйУзел = ЭтоНовый();

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

 Процедура ПриЗаписи(Отказ)

	Если РегистрацияВНовыйУзел Тогда

		// Регистрация изменений всех данных для узла

		ПланыОбмена.ЗарегистрироватьИзменения(Ссылка);  

	КонецЕсли;	

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

 Процедура ОбменСФилиалами() Экспорт

	ВыборкаУзлов = ПланыОбмена.Филиалы.Выбрать();

	Пока ВыборкаУзлов.Следующий() Цикл

		// Произвести обмен данными со всеми узлами, кроме текущего (ЭтотУзел)

		Если ВыборкаУзлов.Ссылка <> ПланыОбмена.Филиалы.ЭтотУзел() Тогда

			УзелОбъект = ВыборкаУзлов.ПолучитьОбъект();

			// Получить сообщение

			УзелОбъект.ПрочитатьСообщениеСИзменениями();

			// Сформировать сообщение

			УзелОбъект.ЗаписатьСообщениеСИзменениями();

		КонецЕсли;

	КонецЦикла;

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

 Процедура КнопкаВыполнитьНажатие(Элемент)

	ОбменСФилиалами();

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

 Процедура ЗаписатьСообщениеСИзменениями() Экспорт

	Сообщить("-------- Выгрузка в узел " + Строка(ЭтотОбъект) + " ---------");

	Каталог = КаталогВременныхФайлов();

	 // Сформировать имя временного файла

	ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\","", "\") + "Message" 

					+ СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код) + "_" + 

					СокрЛП(Ссылка.Код) + ".xml";

	// Создать объект записи XML

	// *** Запись XML-документов

	ЗаписьXML = Новый ЗаписьXML;

	ЗаписьXML.ОткрытьФайл(ИмяФайла);

	ЗаписьXML.ЗаписатьОбъявлениеXML();

	// *** Инфраструктура сообщений

	ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();

	ЗаписьСообщения.НачатьЗапись(ЗаписьXML, Ссылка);

	Сообщить("Номер сообщения: " + ЗаписьСообщения.НомерСообщения);

	// Получить выборку измененных данных

	// *** Механизм регистрации изменений

	ВыборкаИзменений =ПланыОбмена.ВыбратьИзменения(ЗаписьСообщения.Получатель, 

											ЗаписьСообщения.НомерСообщения);

	Пока ВыборкаИзменений.Следующий() Цикл

		// Записать данные в сообщение

		// *** XML-сериализация

		ЗаписатьXML(ЗаписьXML, ВыборкаИзменений.Получить());

	КонецЦикла;

	ЗаписьСообщения.ЗакончитьЗапись();

	ЗаписьXML.Закрыть();

	Сообщить("-------- Конец выгрузки------------");

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

 Процедура ПрочитатьСообщениеСИзменениями() Экспорт

	Каталог = КаталогВременныхФайлов();

	// Сформировать имя файла

	ИмяФайла = Каталог +?(Прав(Каталог, 1) = "\", "", "\") + "Message" 

					+ СокрЛП(Ссылка.Код) + "_" + 

					СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код) + ".xml";

	Файл = Новый Файл(ИмяФайла);

	Если Не Файл.Существует() Тогда

		Возврат;

	КонецЕсли;

	// *** Чтение документов XML	

	// Попытаться открыть файл

	ЧтениеXML = Новый ЧтениеXML;

	Попытка 

		ЧтениеXML.ОткрытьФайл(ИмяФайла);

	Исключение 

		Сообщить("Невозможно открыть файл обмена данными.");

		Возврат;

	КонецПопытки;

	Сообщить("-------- Загрузка из " + Строка(ЭтотОбъект) + "------------");

	Сообщить(" - Считывается файл " + ИмяФайла);

	// Загрузить из найденного файла

	// *** Инфраструктура сообщений

	ЧтениеСообщения = ПланыОбмена.СоздатьЧтениеСообщения();

	// Читать заголовок сообщения обмена данными - файла XML

	ЧтениеСообщения.НачатьЧтение(ЧтениеXML);

	// Сообщение предназначено не для этого узла

	Если ЧтениеСообщения.Отправитель <> Ссылка Тогда

		ВызватьИсключение "Неверный узел";

	КонецЕсли;

	// Удаляем регистрацию изменений

	// для узла отправителя сообщения

	// *** Служба регистрации изменений

	ПланыОбмена.УдалитьРегистрациюИзменений(ЧтениеСообщения.Отправитель,ЧтениеСообщения.НомерПринятого);

	// Читаем данные из сообщения

	// *** XML-сериализация

	Пока ВозможностьЧтенияXML(ЧтениеXML) Цикл

		// Читаем очередное значение

		Данные = ПрочитатьXML(ЧтениеXML);	

		// Записать полученные данные

		Данные.ОбменДанными.Отправитель = ЧтениеСообщения.Отправитель;

		Данные.ОбменДанными.Загрузка = Истина;

		Данные.Записать();

	КонецЦикла;

	ЧтениеСообщения.ЗакончитьЧтение();

	ЧтениеXML.Закрыть();

	УдалитьФайлы(ИмяФайла);

	Сообщить("-------- Конец загрузки------------");

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

 

Функция УдалитьНедопустимыеСимволыXML(Стр)



    Позиция = НайтиНедопустимыеСимволыXML(Стр, , );



	Пока Позиция <> 0 Цикл

		Стр = Лев(Стр, Позиция-1) + Сред(Стр, Позиция+1);

		Позиция = НайтиНедопустимыеСимволыXML(Стр, , );

	КонецЦикла; 



	Возврат Стр;



КонецФункции //УдалитьНедопустимыеСимволыXML()