// Отбор на форме

&НаКлиенте

....

ФМ=Новый ФиксированнаяСтруктура("КлючСвязи",Элементы.ДанныеБезКоррекции.ТекущиеДанные.КлючСвязи);

Элементы.СписокПодразделений.ОтборСтрок=ФМ;   

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

Функция ПолучитьЗаписиСогласноОтбору(ТабличноеПолеИсточник)



ОтборСтрок = ТабличноеПолеИсточник.ОтборСтрок;

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

ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличноеПолеИсточник.Значение); 

Для Каждого ЭлементОтбора Из ОтборСтрок Цикл     

Если ЭлементОтбора.Использование Тогда

НовыйОтбор = ПостроительЗапроса.Отбор.Добавить(ЭлементОтбора.Имя);        

НовыйОтбор.Использование = Истина;         

НовыйОтбор.ВидСравнения = ЭлементОтбора.ВидСравнения;       

НовыйОтбор.ЗначениеС = ЭлементОтбора.ЗначениеС;        

НовыйОтбор.ЗначениеПо = ЭлементОтбора.ЗначениеПо;        

НовыйОтбор.Значение = ЭлементОтбора.Значение;     

КонецЕсли;

КонецЦикла;





Таблица = ПостроительЗапроса.Результат.Выгрузить();

МассивСтрок = Новый Массив;

Для Каждого Стр ИЗ Таблица Цикл

СтруктураПоиска = Новый Структура;

Для Каждого Колонка Из Таблица.Колонки Цикл

СтруктураПоиска.Вставить(Колонка.Имя, Стр[Колонка.Имя]);

КонецЦикла;

НайденыеСтроки = ТабличноеПолеИсточник.Значение.НайтиСтроки(СтруктураПоиска);

Если НайденыеСтроки.Количество() > 0 Тогда

МассивСтрок.Добавить(НайденыеСтроки[0]);

КонецЕсли;

КонецЦикла;



Возврат МассивСтрок;



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

 ПараметрыОтбора = Новый Структура;

	ПараметрыОтбора.Вставить("ДокСсылка", ДанныеПоШК.Объект);

	НайденныеСтроки = ПакетДокументов.НайтиСтроки(ПараметрыОтбора);



// Подробнее

СтруктураОтбора = Новый Структура("ВидДокумента, Контрагент", ПФ, ?(Контр = Неопределено, Справочники.Контрагенты.ПустаяСсылка(), Контр));

ПакетДокументов 		 = ЗадачаОбъект.ПакетДокументов;

МассивСтрок				 = ПакетДокументов.НайтиСтроки(СтруктураОтбора);

Если МассивСтрок.Количество() Тогда

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

		СтрокаМассива.ДобавленоПользователем = Истина;

		СтрокаМассива.Пользователь           = ПараметрыСеанса.ТекущийПользователь;

		СтрокаМассива.ДатаВремя				 = ТекущаяДата();

	КонецЦикла;

КонецЕсли;



//или

ТЧ = ПромежуточнаяНакладная.Выгрузить();

		ТЧ.Свернуть("СхемаПродажи");

		СтрокаСПустойСП = ТЧ.НайтиСтроки(Новый Структура("СхемаПродажи", Справочники.СхемыПродаж.ПустаяСсылка()));

		

		Если ТЧ.Количество() - СтрокаСПустойСП.Количество() > 1 Тогда

			Если Вопрос("Сбросить все схемы в строках?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда

				НесколькоСхем = Истина;

				Возврат;

			КонецЕсли;

		КонецЕсли;

		

		Для каждого СтрокаПН из ПромежуточнаяНакладная Цикл

			Если СтрокаПН.Номенклатура.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Услуга Тогда

				СтрокаПН.СхемаПродажи = СхемаПродажи;

			КонецЕсли;

	КонецЦикла;   

 &НаСервере

Процедура ЗафиксироватьВыполнениеНаСервере()

    

    ЗадачаОбъект = Задача.Ссылка.ПолучитьОбъект();

    

    ЗадачаОбъект.ВыполнитьЗадачу();

    

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

 ТекстВопроса = "Задача будет завершена. Продолжить?";

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

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

		ВыполнитьЗадачуИнтерактивно();

		ЗаписатьВФорме();

		

                // условие для БП Поручение

		Если ТипЗнч(БизнесПроцесс) = Тип("БизнесПроцессСсылка.CRM_Поручение")

		 И (ТочкаМаршрута.Имя = "Контроль")Тогда

			БизнесПроцессЗадачи = ЗадачаОбъект.БизнесПроцесс.ПолучитьОбъект();

			БизнесПроцессЗадачи.КачествоВыполнения = ЭлементыФормы.Оценка.Значение;

			БизнесПроцессЗадачи.Записать();

	 	КонецЕсли;

		Закрыть();

	КонецЕсли;

   

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

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

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

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

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

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

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

	КонецЕсли;	

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

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

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

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

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

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

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

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

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

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

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

		КонецЕсли;

	КонецЦикла;

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

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

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

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

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

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

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

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

	ИмяФайла = Каталог +?(Прав(Каталог, 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.Закрыть();

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

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

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