ЗУП 8.1 Релиз 2.5.12.1 Связь между базами

"Подскажите, плз., 1) почему при соединении баз с помощью Automation Server все выполняется и зависает, не отключается в конце; с помощью COM-соединения все нормально? 2) справочники обрабатываются без проблем, к перечислению обращаюсь точно так же - почему не выбирается?<br>Перебрасываю физ.лиц из ЗУП в Бух. Обе 8.1. "

1) Возможно как то не правильно используете технологию OLE.<br>2) Чем COM-соединение не устраивает?

Я во всем разобралась кроме зависания. Использовала COM-соединение. Просто хотелось бы узнать причину зависания.

Что бы узнать причину необходимо увидеть, что Вы там за код написали.

"Процедура КнопкаВыполнитьНажатие(Кнопка)<br>#Если Клиент Тогда<br>V81 = Новый COMОбъект("V81.Application");<br>Путь = "D:\ЗУП_2003\"; <br> Попытка <br> Состояние ("Выполняется подключение к информационной базе...");<br> РезультатПодключения = V81.Connect("File=""""" + Путь + <br> """""; Usr=""""Adm"""";Pwd=555");<br> Сообщить("База 8.1 подключена"); <br> Исключение <br> Сообщить (ОписаниеОшибки());<br> Предупреждение("Не удалось подключиться");<br> КонецПопытки; <br>СпрСотр = V81.Справочники.СотрудникиОрганизаций;<br>Выборка = СпрСотр.Выбрать(); <br>Пока Выборка.Следующий() Цикл<br> КодСотра = Выборка.Код;<br> НайденнаяСсылка = Справочники.СотрудникиОрганизаций.НайтиПоКоду(КодСотра);<br> Если НайденнаяСсылка = Справочники.СотрудникиОрганизаций.ПустаяСсылка() Тогда<br> НовыйЭлемент = Справочники.СотрудникиОрганизаций.СоздатьЭлемент();<br> НовыйЭлемент.Наименование = Выборка.Наименование;<br> НовыйЭлемент.Организация = Справочники.Организации.НайтиПоКоду("000000001");<br> НовыйЭлемент.Физлицо = Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(Выборка.Наименование));<br> КодФЛ = НовыйЭлемент.Физлицо.Код;<br> Если НовыйЭлемент.Физлицо.Пустая() Тогда<br> НовоеФЛ = Справочники.ФизическиеЛица.СоздатьЭлемент();<br> НовоеФЛ.Наименование = Выборка.Наименование;<br> СпрФЛ = V81.Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(Выборка.Наименование));<br> НовоеФЛ.Код = СпрФЛ.Код; <br> КодФЛ = НовоеФЛ.Код; <br> НовоеФЛ.Записать();<br> НовыйЭлемент.Физлицо = Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(Выборка.Наименование));<br> КонецЕсли; <br> НовыйЭлемент.Актуальность=Истина;<br> НовыйЭлемент.Код = "0"+КодФЛ; <br> Сообщить ("Принимаю сотрудника " + Выборка.Наименование);<br> НовыйЭлемент.Записать();<br> Конецесли; <br>ОбработкаПрерыванияПользователя(); <br>КонецЦикла; <br>#КонецЕсли<br>КонецПроцедуры<br>"

1) Инструкции препроцессора не имеют смысла в модуле формы.<br>2) Поиск по наименованию производится без флага на точное соответствие.<br>3) "По старинке" переменную "V81" можно приравнять к "Неопределено".<br>4) Если это разовый перенос, то рациональнее было перекинуть данные через файл XML (это уже так от себя).

Спасибо за советы. Это не разовый, а регулярный перенос, все гораздо длиннее, я укоротила для отправки сюда.

Тогда подключайтесь базе через "COMConnector" и не мучайте приложение.

Спасибо, так и сделала, теперь не буду сомневаться