Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2016, 21:30   #1
Svyatoslav359
Пользователь
 
Регистрация: 05.06.2015
Сообщений: 24
По умолчанию Выборка и выгрузка всех документов из одной базы в другую - 1С

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

Код:
Функция ВыгрузитьИзБазы(Код_Устройства, ВидДанных)
    
    
    ДанныеДляВыгрузки=Новый Структура("Дело", Новый Массив) ;
    Выборка=Вычислить(ВидДанных+".Выбрать()");
    
    Пока Выборка.Следующий() Цикл
        
ОбъектДляВыгрузки=Выборка.Ссылка.ПолучитьОбъект();//  объект для преобразования xml
 
Описание=Новый ЗаписьXML;   //создаваемая запись в xml
Описание.УстановитьСтроку(); // вывод в строку
СериализаторXDTO.ЗаписатьXML(Описание,ОбъектДляВыгрузки);  //Перевод в XML
ОписаниеЗаявки=Описание.Закрыть();     //искомая строка с xml описание
 
    ДанныеДляВыгрузки.Дело.Добавить(ОписаниеЗаявки);    // добавляю в структуру
    Возврат Новый ХранилищеЗначения(ДанныеДляВыгрузки, Новый СжатиеДанных(9))   //возврат значение "дАННЫЕ для выгрузки", помещенного в хранилище значения с коэф. сжатия=9.
    КонецЦикла;
 
КонецФункции

Тут я в форме вызываю все "добро" в форме документа "Заявки".(Из Общего модуля - "Данные" - там реализовывал код выгрузки документов(Заявки)) (Моб. база)
Код:
&НаКлиенте
Процедура ЗапросЗаявки(Команда)
    
    
    Данные.ПолучитьДело("Дело")
КонецПроцедуры
Здесь уже идёт вызов заявки из вебсервиса(ОбменДанными). (Моб. база)

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевод из одной базы дбгрид в другую Маша1993 Помощь студентам 5 28.04.2013 10:07
копирование таблиц из одной базы в другую mdiesel PHP 0 02.03.2012 19:02
Перенос данных из одной базы в другую Brother Abbat Помощь студентам 1 03.11.2011 17:10
копирование таблицы из одной базы в другую chib_sv SQL, базы данных 7 20.08.2010 07:46
Копирование таблиц из одной базы в другую KuH БД в Delphi 7 27.09.2007 15:18