Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 05:01

Обмен между базами

Автор Новенькая, 18 авг 2014, 09:34

0 Пользователей и 1 гость просматривают эту тему.

Новенькая

Здравствуйте. Есть самописная конфигурация, написан обмен с ЗУП. Не могу понять почему не работает(( никакой ошибки не дает, Com соединение есть, завершается успешно, но ничего не переносится. Смотрела в журналах регистрации в обеих базах.
Вот код по кнопке:

МакетПравил=Обработки.ОбновитьСтруктуруКомпании.ПолучитьМакет("ВЗУП");
ИмяВременногоФайлаПравилОбмена =ПолучитьИмяВременногоФайла("xml");
    МакетПравил.Записать(ИмяВременногоФайлаПравилОбмена);
            МассивПараметров=Новый Массив;
            МассивПараметров.Добавить(СтрокаБаз.База);
            МассивПараметров.Добавить(ИмяВременногоФайлаПравилОбмена);
           
            Фон=ФоновыеЗадания.Выполнить("МодульСинхронизацииСервер.ОбновитьСтруктуруКомпанииВФоне",МассивПараметров);   
    Попытка
        УдалитьФайлы(ИмяВременногоФайлаПравилОбменаУФ);
        УдалитьФайлы(ИмяВременногоФайлаПравилОбмена);
    Исключение
    КонецПопытки;
Процедура ОбновитьСтруктуруКомпанииВФоне(База,ИмяВременногоФайлаПравилОбмена) Экспорт
    БазаОЛЕ=МодульОбмена.ИнитCOMConnector(База);//ИнитОЛЕ(База);   
    Если БазаОЛЕ=Неопределено Тогда
        Возврат;
    КонецЕсли;
   
    ФайлВыгрузки =ПолучитьИмяВременногоФайла("xml");
   
    ОбработкаОбмена = Обработки.УниверсальныйОбменДаннымиXML.Создать();       
    ОбработкаОбмена.ИмяФайлаПравилОбмена = ИмяВременногоФайлаПравилОбмена;
    ОбработкаОбмена.ИмяФайлаОбмена = ФайлВыгрузки;
    ОбработкаОбмена.РежимОбмена = "Выгрузка";
    ОбработкаОбмена.ЗагрузитьПравилаОбмена();
   
    ОбработкаОбмена.ВыводВОкноСообщенийИнформационныхСообщений = Ложь;
    ОбработкаОбмена.Параметры.Вставить("Организация", База.ВыбОрг);
       
    ОбработкаОбмена.ВыполнитьВыгрузку();
   
   
    ОбработкаОбмена = БазаОЛЕ.Обработки.УниверсальныйОбменДаннымиXML.Создать();   
    ОбработкаОбмена.ИмяФайлаОбмена = ФайлВыгрузки;
    ОбработкаОбмена.РежимОбмена = "Загрузка";
    ОбработкаОбмена.ОткрытьФайлЗагрузки();
    ОбработкаОбмена.ВыполнитьЗагрузку();
    Попытка
        УдалитьФайлы(ФайлВыгрузки);
    Исключение
    КонецПопытки;
   
КонецПроцедуры

Или сразу в правилах копать?

Новенькая

Попробовала напрямую в обработку "УниверсальныйОбменДаннымиXML" загрузить правила и сделала выгрузку, а в другой базе загрузила, все прошло чудесно...значит косяк не в правилах...не знаю куда еще копать

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск