Notes

Функция PostData()

ОтветСервера = Новый Структура();

Попытка

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

Исключение
ОтветСервера = Новый Структура("Ответ", ОписаниеОшибки());
Возврат ОбменДанными.Сериализовать(ОтветСервера);
КонецПопытки;

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

Функция GetData(GetData)

ОтветСервера = Новый Структура;
Если ЗначениеЗаполнено(GetData) Тогда
ПолученныеДанные = ОбменДанными.Десериализовать(GetData);
КонецЕсли;
Попытка
Доставка = Документы.Доставка.ПолучитьСсылку(ПолученныеДанные.Данные).ПолучитьОбъект();
Доставка.Доставлен = ИСТИНА;
Доставка.Записать(РежимЗаписиДокумента.Проведение);
ОтветСервера.Вставить("Ответ", "Данные успешно доставлены");
Возврат ОбменДанными.Сериализовать(ОтветСервера)
Исключение
ОтветСервера.Вставить("Ответ", ОписаниеОшибки());
Возврат ОбменДанными.Сериализовать(ОтветСервера)
КонецПопытки;


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


&НаСервере
Процедура ПроверитьНовыеНаСервере()
Попытка
//обращение к веб-сервису
Соединение = WSСсылки.Exchange.СоздатьWSПрокси("Exchange","Exchange","ExchangeSoap");
ОтветСервера = Соединение.PostData();

ОтветТЗ = Служебный.Десериализовать(ОтветСервера);

//создание документов
ЗапросОтветТЗ = Новый Запрос;
ЗапросОтветТЗ.Текст = "ВЫБРАТЬ
| ОтветТЗ.Товар КАК Товар,
| ОтветТЗ.Количество КАК Количество,
| ОтветТЗ.Номер КАК Номер,
| ОтветТЗ.Дата КАК Дата,
| ОтветТЗ.Клиент КАК Клиент,
| ОтветТЗ.АдресДоставки КАК АдресДоставки,
| ОтветТЗ.СуммаЗаказа КАК СуммаЗаказа,
| ОтветТЗ.УИД КАК УИД
|ПОМЕСТИТЬ ВТ
|ИЗ
| &ОтветТЗ КАК ОтветТЗ
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ.Товар КАК Товар,
| ВТ.Количество КАК Количество,
| ВТ.Номер КАК Номер,
| ВТ.Дата КАК Дата,
| ВТ.Клиент КАК Клиент,
| ВТ.АдресДоставки КАК АдресДоставки,
| ВТ.СуммаЗаказа КАК СуммаЗаказа,
| ВТ.УИД КАК УИД
|ИЗ
| ВТ КАК ВТ
|ИТОГИ ПО
| УИД";
ЗапросОтветТЗ.УстановитьПараметр("ОтветТЗ", ОтветТЗ.Ответ);
ВыборкаУИД = ЗапросОтветТЗ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаУИД.Следующий() Цикл

ДокДоставка = Документы.Доставка.ПолучитьСсылку(ВыборкаУИД.УИД);
Если ДокДоставка = Документы.Доставка.ПустаяСсылка() Или СтрНайти(Строка(ДокДоставка), "Объект не найден")>0 Тогда

НовДоставка = Документы.Доставка.СоздатьДокумент();
Ссылка = Документы.Доставка.ПолучитьСсылку(ВыборкаУИД.УИД);
НовДоставка.УстановитьСсылкуНового(Ссылка);


Выборка = ВыборкаУИД.Выбрать();
Пока Выборка.Следующий() Цикл

НовДоставка.Дата = Выборка.Дата;
НовДоставка.Клиент = Выборка.Клиент;
НовДоставка.АдресДоставки = Выборка.АдресДоставки;
НовДоставка.СуммаЗаказа = Выборка.СуммаЗаказа;
СтрТЧ = НовДоставка.Товары.Добавить();
СтрТЧ.Товар = Выборка.Товар;
СтрТЧ.Количество = Выборка.Количество;

КонецЦикла;
НовДоставка.Записать(РежимЗаписиДокумента.Запись);

КонецЕсли;

КонецЦикла;
Сообщить("Загружены новые документы");

Исключение

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

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