Имя: Пароль:
1C
 
Обмен
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</Код>
                        <Наименование>АнглийскоеНазвание --&gt; АнглийскоеНазвание</Наименование>
                        <Порядок>50</Порядок>
                        <Источник Имя="АнглийскоеНазвание" Вид="Реквизит" Тип="Строка"/>
                        <Приемник Имя="АнглийскоеНазвание" Вид="Реквизит" Тип="Строка"/>
                    </Свойство>
                    <Свойство Поиск="true">
                        <Код>2</Код>
                        <Наименование>Код --&gt; Код</Наименование>
                        <Порядок>100</Порядок>
                        <Источник Имя="Код" Вид="Свойство" Тип="Строка"/>
                        <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/>
                    </Свойство>
                    <Свойство>
                        <Код>3</Код>
                        <Наименование>Наименование --&gt; Наименование</Наименование>
                        <Порядок>150</Порядок>
                        <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/>
                        <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/>
                    </Свойство>
                    <Свойство>
                        <Код>4</Код>
                        <Наименование>ПометкаУдаления --&gt; ПометкаУдаления</Наименование>
                        <Порядок>200</Порядок>
                        <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/>
                        <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/>
                    </Свойство>
                    <Свойство Поиск="true">
                        <Код>5</Код>
                        <Наименование>Родитель --&gt; Родитель</Наименование>
                        <Порядок>250</Порядок>
                        <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ПодразделенияКомпании"/>
                        <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Подразделения"/>
                    </Свойство>
                    <Свойство>
                        <Код>6</Код>
                        <Наименование>Наименование --&gt; НаименованиеПолное</Наименование>
                        <Порядок>300</Порядок>
                        <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/>
                        <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/>
                    </Свойство>
                </Свойства>
                <Значения/>
            </Правило>
        </Группа>
    </ПравилаКонвертацииОбъектов>
    <ПравилаВыгрузкиДанных>
        <Группа Отключить="false">
            <Код>Справочники</Код>
            <Наименование>Справочники</Наименование>
            <Порядок>50</Порядок>
            <Правило Отключить="false">
                <Код>ПодразделенияКомпании</Код>
                <Наименование>ПодразделенияКомпании</Наименование>
                <Порядок>50</Порядок>
                <КодПравилаКонвертации>Подразделения                                     </КодПравилаКонвертации>
                <СпособОтбораДанных>ПроизвольныйАлгоритм</СпособОтбораДанных>
                <ОбъектВыборки>СправочникСсылка.ПодразделенияКомпании</ОбъектВыборки>
                <ПередОбработкойПравила>Запросы.ПодразделенияКомпании.УстановитьПараметр("Организация",                    Данные.Организация);
ВыборкаДанных = Запросы.ПодразделенияКомпании.Выполнить().Выгрузить();



Для Каждого ТекДанные ИЗ ВыборкаДанных Цикл
ВыгрузитьПоПравилу(ТекДанные.Ссылка,,ТекДанные.Ссылка,,"Подразделения",,,);
КонецЦикла;


</ПередОбработкойПравила>
            </Правило>
        </Группа>
    </ПравилаВыгрузкиДанных>
    <ПравилаОчисткиДанных/>
    <Алгоритмы/>
    <Запросы>
        <Запрос Имя="ПодразделенияКомпании" ИспользуетсяПриЗагрузке="false">
            <Текст>ВЫБРАТЬ  *

    ИЗ
    Справочник.ПодразделенияКомпании КАК ПодразделенияКомпании
ГДЕ
    ПодразделенияКомпании.Организации.Организация В(&amp;Организация)</Текст>
        </Запрос>
    </Запросы>
</ПравилаОбмена>