|
Обмен | ☑ | ||
---|---|---|---|---|
0
an_str
15.08.14
✎
16:02
|
Есть самописная конфигурация, написан обмен с ЗУП. Не могу понять почему не работает(( никакой ошибки не дает, Com соединение есть, завершается успешно, но ничего не переносится.
Вот код по кнопке: МакетПравил=Обработки.ОбновитьСтруктуруКомпании.ПолучитьМакет("ВЗУП"); ИмяВременногоФайлаПравилОбмена =ПолучитьИмяВременногоФайла("xml"); МакетПравил.Записать(ИмяВременногоФайлаПравилОбмена); МассивПараметров=Новый Массив; МассивПараметров.Добавить(СтрокаБаз.База); МассивПараметров.Добавить(ИмяВременногоФайлаПравилОбменаУФ); МассивПараметров.Добавить(ИмяВременногоФайлаПравилОбмена); Фон=ФоновыеЗадания.Выполнить("МодульСинхронизацииСервер.ОбновитьСтруктуруКомпанииВФоне",МассивПараметров); Попытка УдалитьФайлы(ИмяВременногоФайлаПравилОбменаУФ); УдалитьФайлы(ИмяВременногоФайлаПравилОбмена); Исключение КонецПопытки; Процедура ОбновитьСтруктуруКомпанииВФоне(База,ИмяВременногоФайлаПравилОбменаУФ,ИмяВременногоФайлаПравилОбмена) Экспорт БазаОЛЕ=МодульОбмена.ИнитCOMConnector(База);//ИнитОЛЕ(База); Если БазаОЛЕ=Неопределено Тогда Возврат; КонецЕсли; ФайлВыгрузки =ПолучитьИмяВременногоФайла("xml"); ОбработкаОбмена = Обработки.УниверсальныйОбменДаннымиXML.Создать(); ОбработкаОбмена.ИмяФайлаПравилОбмена = ИмяВременногоФайлаПравилОбмена; ОбработкаОбмена.ИмяФайлаОбмена = ФайлВыгрузки; ОбработкаОбмена.РежимОбмена = "Выгрузка"; ОбработкаОбмена.ЗагрузитьПравилаОбмена(); ОбработкаОбмена.ВыводВОкноСообщенийИнформационныхСообщений = Ложь; ОбработкаОбмена.Параметры.Вставить("Организация", База.ВыбОрг); ОбработкаОбмена.ВыполнитьВыгрузку(); ОбработкаОбмена = БазаОЛЕ.Обработки.УниверсальныйОбменДаннымиXML.Создать(); ОбработкаОбмена.ИмяФайлаОбмена = ФайлВыгрузки; ОбработкаОбмена.РежимОбмена = "Загрузка"; ОбработкаОбмена.ОткрытьФайлЗагрузки(); ОбработкаОбмена.ВыполнитьЗагрузку(); Попытка УдалитьФайлы(ФайлВыгрузки); Исключение КонецПопытки; КонецПроцедуры Или сразу в правилах копать? |
|||
1
IKSparrow
15.08.14
✎
16:03
|
Журнал регистрации посмотреть, не?
В обеих базах. |
|||
2
an_str
15.08.14
✎
16:07
|
конечно ...в журнале Фоновое задание запуск, успешное завершение....Никаких ошибок ничего, завершение где-то через 5 сек после начала
|
|||
3
an_str
15.08.14
✎
16:08
|
Правила:
<ПравилаОбмена> <ВерсияФормата РежимСовместимости="РежимСовместимостиСБСП20">2.01</ВерсияФормата> <Ид>6f86f0c5-abfa-44ca-aec7-ae82ddd0bbd8 </Ид> <Наименование>Перенос подразделений компании (УФ-ЗУП)</Наименование> <ДатаВремяСоздания>2014-05-28T12:10:39</ДатаВремяСоздания> <Источник ВерсияПлатформы="8.0" ВерсияКонфигурации="3.23" СинонимКонфигурации="Управление финансами">УправлениеФинансами</Источник> <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="2.5.80.2" СинонимКонфигурации="Зарплата и Управление Персоналом, редакция 2.5">ЗарплатаИУправлениеПерсоналом</Приемник> <ПередВыгрузкойДанных>Данные = Новый Структура("Организация"); Данные.Организация = Новый СписокЗначений; Данные.Организация.Добавить(Параметры.Организация); Если ЗначениеЗаполнено(Параметры.Организация.ГоловнаяОрганизация) Тогда Данные.Организация.Добавить(Параметры.Организация.ГоловнаяОрганизация); КонецЕсли </ПередВыгрузкойДанных> <Параметры/> <Обработки/> <ПравилаКонвертацииОбъектов> <Группа> <Код>Справочники</Код> <Наименование>Справочники</Наименование> <Порядок>50</Порядок> <Правило> <Код>Подразделения</Код> <Наименование>Справочник: Подразделения компании</Наименование> <Порядок>50</Порядок> <СинхронизироватьПоИдентификатору>true</СинхронизироватьПоИдентификатору> <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true</ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли> <Источник>СправочникСсылка.ПодразделенияКомпании</Источник> <Приемник>СправочникСсылка.Подразделения</Приемник> <Свойства> <Свойство> <Код>1</Код> <Наименование>АнглийскоеНазвание --> АнглийскоеНазвание</Наименование> <Порядок>50</Порядок> <Источник Имя="АнглийскоеНазвание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="АнглийскоеНазвание" Вид="Реквизит" Тип="Строка"/> </Свойство> <Свойство Поиск="true"> <Код>2</Код> <Наименование>Код --> Код</Наименование> <Порядок>100</Порядок> <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> </Свойство> <Свойство> <Код>3</Код> <Наименование>Наименование --> Наименование</Наименование> <Порядок>150</Порядок> <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> </Свойство> <Свойство> <Код>4</Код> <Наименование>ПометкаУдаления --> ПометкаУдаления</Наименование> <Порядок>200</Порядок> <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> </Свойство> <Свойство Поиск="true"> <Код>5</Код> <Наименование>Родитель --> Родитель</Наименование> <Порядок>250</Порядок> <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ПодразделенияКомпании"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Подразделения"/> </Свойство> <Свойство> <Код>6</Код> <Наименование>Наименование --> НаименованиеПолное</Наименование> <Порядок>300</Порядок> <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> </Свойство> </Свойства> <Значения/> </Правило> </Группа> </ПравилаКонвертацииОбъектов> <ПравилаВыгрузкиДанных> <Группа Отключить="false"> <Код>Справочники</Код> <Наименование>Справочники</Наименование> <Порядок>50</Порядок> <Правило Отключить="false"> <Код>ПодразделенияКомпании</Код> <Наименование>ПодразделенияКомпании</Наименование> <Порядок>50</Порядок> <КодПравилаКонвертации>Подразделения </КодПравилаКонвертации> <СпособОтбораДанных>ПроизвольныйАлгоритм</СпособОтбораДанных> <ОбъектВыборки>СправочникСсылка.ПодразделенияКомпании</ОбъектВыборки> <ПередОбработкойПравила>Запросы.ПодразделенияКомпании.УстановитьПараметр("Организация", Данные.Организация); ВыборкаДанных = Запросы.ПодразделенияКомпании.Выполнить().Выгрузить(); Для Каждого ТекДанные ИЗ ВыборкаДанных Цикл ВыгрузитьПоПравилу(ТекДанные.Ссылка,,ТекДанные.Ссылка,,"Подразделения",,,); КонецЦикла; </ПередОбработкойПравила> </Правило> </Группа> </ПравилаВыгрузкиДанных> <ПравилаОчисткиДанных/> <Алгоритмы/> <Запросы> <Запрос Имя="ПодразделенияКомпании" ИспользуетсяПриЗагрузке="false"> <Текст>ВЫБРАТЬ * ИЗ Справочник.ПодразделенияКомпании КАК ПодразделенияКомпании ГДЕ ПодразделенияКомпании.Организации.Организация В(&Организация)</Текст> </Запрос> </Запросы> </ПравилаОбмена> |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |