Выборка и выгрузка всех документов из одной базы в другую - 1С

[Святослав Балашов]

Здравствуйте, делаю моб. приложение на 1С:Предприятие 8.3 . Хочу выгрузить документы из одной базы(ПК) в другую базу(моб. прил)
Но при выгрузке документов почему то выгружается только один документ, который самый ближайший по дате(например 25 ноября).
Выгружает один документ(ближайший по дате) - нужно все документы выгружать независимо ближайший, не ближайший, а именно все. Как быть? Помогите. Вот мой код:
Операция "ВыгрузитьИзБазы" в вебсервисе "обменДанными" ( база ПК)

Код Выделить Развернуть


Функция ВыгрузитьИзБазы(Код_Устройства, ВидДанных)
   
   
    ДанныеДляВыгрузки=Новый Структура("Дело", Новый Массив) ;
    Выборка=Вычислить(ВидДанных+".Выбрать()");
   
    Пока Выборка.Следующий() Цикл
       
ОбъектДляВыгрузки=Выборка.Ссылка.ПолучитьОбъект();//  объект для преобразования xml

Описание=Новый ЗаписьXML;   //создаваемая запись в xml
Описание.УстановитьСтроку(); // вывод в строку
СериализаторXDTO.ЗаписатьXML(Описание,ОбъектДляВыгрузки);  //Перевод в XML
ОписаниеЗаявки=Описание.Закрыть();     //искомая строка с xml описание

    ДанныеДляВыгрузки.Дело.Добавить(ОписаниеЗаявки);    // добавляю в структуру
    Возврат Новый ХранилищеЗначения(ДанныеДляВыгрузки, Новый СжатиеДанных(9))   //возврат значение "дАННЫЕ для выгрузки", помещенного в хранилище значения с коэф. сжатия=9.
    КонецЦикла;

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





Тут я в форме вызываю "все" "Документы" в форме документа "Заявки".(Из Общего модуля - "Данные" - там реализовывал код выгрузки документов(Заявки)) (Моб. база)

Код Выделить Развернуть


&НаКлиенте
Процедура ЗапросЗаявки(Команда)
   
   
    Данные.ПолучитьДело("Дело")
КонецПроцедуры


Здесь уже идёт вызов заявки из вебсервиса(ОбменДанными), реализовывал в общем модуле "Данные". (Моб. база)

Код Выделить Развернуть


Процедура ПолучитьДело(Знач Получаем) Экспорт
    Если Получаем="Дело" Тогда
        ПолучитьЗаявки()
        КонецЕсли    ;
    КонецПроцедуры
   
    Процедура ПолучитьЗаявки()
    Перем ВебСервис ;
    Сервис.Подключить(ВебСервис, "ОбменДанными");
       
Дело=ВебСервис.ВыгрузитьИзБазы(Константы.КодМобильногоУстройства.Получить(),"Документы.Заявки");
          ЗагрузитьЗаявки(Дело);
       
      КонецПроцедуры
     
       
Процедура ЗагрузитьЗаявки(ПакетСДанными)
         ДанныеДляВыгрузки=ПакетСДанными.Получить();
         
Для каждого ОписаниеЗаявки из ДанныеДляВыгрузки.Дело Цикл
             
        Описание=Новый ЧтениеXML;
        Описание.УстановитьСтроку(ОписаниеЗаявки);
        НовыйОбъект=СериализаторXDTO.ПрочитатьXML(Описание);
        НовыйОбъект.Записать()
         
    КонецЦикла;
   
КонецПроцедуры