Обмен Web-сервис

Функция Отправить()
	// Вставить содержимое обработчика.
	Запрос = Новый Запрос(	"ВЫБРАТЬ
	СотрудникиВебРасписания.Специализация.Код КАК ИД,
       |СотрудникиВебРасписания.Специализация.Наименование КАК Наименование
       |ИЗ
       |Справочник.Сотрудники.ВебРасписания КАК СотрудникиВебРасписания
       |ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Сотрудники КАК Сотрудники
       |ПО СотрудникиВебРасписания.Ссылка = Сотрудники.Ссылка
       |ГДЕ
       |	Сотрудники.ВывестиРасписанияВрача = ИСТИНА
       |
       |СГРУППИРОВАТЬ ПО
       |	СотрудникиВебРасписания.Специализация.Код,
       |	СотрудникиВебРасписания.Специализация.Наименование");
	ВыборкаСпециализация = Запрос.Выполнить().Выбрать();
	
	// получим типы из XDTO
	ТипXDTOКлассУслуг 		  = ФабрикаXDTO.Тип("ПакетXDTOMedML", "КлассификаторУслуг");
	ТипXDTOРезультатОперации  = ФабрикаXDTO.Тип("ПакетXDTOMedML", "Группа");
	ТипXDTOСвойства           = ФабрикаXDTO.Тип("ПакетXDTOMedML", "Группы");
	// создадим значение XDTO для свойства
	XDTOКлассУслуг = ФабрикаXDTO.Создать(ТипXDTOКлассУслуг);
	XDTOСвойства   = ФабрикаXDTO.Создать(ТипXDTOСвойства);
	
	Пока ВыборкаСпециализация.Следующий() Цикл 
		// создадим значение XDTO для результата
		XDTOПозиции = ФабрикаXDTO.Создать(ТипXDTOРезультатОперации);
		// заполним результат
		ЗаполнитьЗначенияСвойств(XDTOПозиции, ВыборкаСпециализация);
		// добавим результат в товары
		XDTOСвойства.Группа.Добавить(XDTOПозиции);	
	КонецЦикла; 
	
    Возврат XDTOСвойства;
    Возврат XDTOКлассУслуг;
	
	//=================================================
	
	ЗапросОрг = Новый Запрос("ВЫБРАТЬ
	                         |	Организации.Код КАК ИД
	                         |ИЗ
	                         |	Справочник.Организации КАК Организации
	                         |ГДЕ
	                         |	Организации.ПометкаУдаления = ЛОЖЬ");
	ВыборкаОрг = ЗапросОрг.Выполнить().Выбрать();						 
	
	ТипXDTOОрганизации 		  = ФабрикаXDTO.Тип("ПакетXDTOMedML", "Организации");
	ТипXDTOОрганизация  = ФабрикаXDTO.Тип("ПакетXDTOMedML", "Организация");
	// создадим значение XDTO для свойства
	XDTOОрганизации   = ФабрикаXDTO.Создать(ТипXDTOОрганизации);
	
	Пока ВыборкаОрг.Следующий() Цикл 
		
		// создадим значение XDTO для результата
		XDTOПозицииОрганизация = ФабрикаXDTO.Создать(ТипXDTOОрганизация);
		
		// заполним результат
		ЗаполнитьЗначенияСвойств(XDTOПозицииОрганизация, ВыборкаОрг);
		
		// добавим результат в товары
		XDTOОрганизации.Организация.Добавить(XDTOПозицииОрганизация);		
	КонецЦикла; 
	Возврат XDTOОрганизации;
КонецФункции