Проблема подключения COM объекта

[Владимир Максимов]

Цитата:

Сообщение от vikuss2006

Результат опыта с Эксель
1) запустила только один экземпляр файла, использующего ком библиотеку.

А как именно происходит использование Com в Excel? Это макрос? Можете привести здесь его код?

PS: Кстати, на какой команде в Axapta обращения к COM возникает ошибка?

[vikuss2006]

вот скрипт
Sub test()
' Поправьте эти значения, указав логин, пароль, пароль к секретному ключу и путь к секретному ключу пользователя
Login = Range("Login").Value '"ALGOL1"
pwd1 = Range("Pwd_1").Value '"900"
pwd2 = Range("Pwd_2").Value '"900"
pathToKey = Range("Path").Value '"c:\Keys\ALGOL1_"

Dim o As iFOBSDocIntegrator.DocOperation
Set o = New iFOBSDocIntegrator.DocOperation
If (o Is Nothing) Then
MsgBox "Ошибка! iFOBSDocIntegrator.dll не зарегистрирована в системе."
GoTo Exit1
End If
MsgBox "Проверка параметров Login."
s = o.Login(Login, pwd1, pwd2, pathToKey)
If s <> "" Then
MsgBox "Ошибка! Неправильно определены данные"
GoTo Exit1
End If
MsgBox "Получение списка архивных документов за период"
Call testGetDocInfoList(o)
MsgBox "Получение списка документов, ожидающих первой подписи"
Call testGetDocList(o, DOC_WAIT_SIGN1)
MsgBox "Получение списка документов, ожидающих второй подписи"
Call testGetDocList(o, DOC_WAIT_SIGN2)
MsgBox "Получение списка документов, ожидающих третьей подписи"
Call testGetDocList(o, DOC_WAIT_AUTH)
MsgBox "Получение списка всех введенных документов за период"
Call testGetDocList(o, DOC_ALL_DOCUMENTS)
Exit1:
Set o = Nothing
End Sub

Аксапта вылетает при получении списка через опеределенное время, при очередном запуске job

[terraByteG]

Цитата:

Сообщение от vikuss2006

вот скрипт
Sub test()
' Поправьте эти значения, указав логин, пароль, пароль к секретному ключу и путь к секретному ключу пользователя

bla-bla-bla
Dim o As iFOBSDocIntegrator.DocOperation
bla-bla-bla
s = o.Login(Login, pwd1, pwd2, pathToKey)
--

Это скрипт от разработчиков? Теперь понятно, почему в библиотеке не предусмотрен метод завершения.

*добавлено:
Как отработает вот такой скрипт?

Sub test()
' Поправьте эти значения, указав логин, пароль, пароль к секретному ключу и путь к секретному ключу пользователя
Login = Range("Login").Value '"ALGOL1"
pwd1 = Range("Pwd_1").Value '"900"
pwd2 = Range("Pwd_2").Value '"900"
pathToKey = Range("Path").Value '"c:\Keys\ALGOL1_"

Dim o As iFOBSDocIntegrator.DocOperation
Set o = New iFOBSDocIntegrator.DocOperation
If (o Is Nothing) Then
MsgBox "Ошибка! iFOBSDocIntegrator.dll не зарегистрирована в системе."
GoTo Exit1
End If
MsgBox "Проверка параметров Login."
s = o.Login(Login, pwd1, pwd2, pathToKey)
If s <> "" Then
MsgBox "Ошибка! Неправильно определены данные"
GoTo Exit1
End If
MsgBox "Получение списка архивных документов за период"
Call testGetDocInfoList(o)
Exit1:
Set o = Nothing
End Sub

И меня одного смущает тот момент, что разработчики проверяют работоспособность скриптом, когда им говорят о COM вызове? Что включено в метод getDocInfoList и куда уходят параметры при вызове метода ТС?
Все это оставляет ощущения быдлоразработчиков (отмахнулись, мол скрипт наш работает, а остальное Ваши проблемы)...

[vikuss2006]

Цитата:

Сообщение от terraByteG

Это скрипт от разработчиков? Теперь понятно, почему в библиотеке не предусмотрен метод завершения.

Мне не понятно, можете пожалуйста объяснить

[terraByteG]

Цитата:

Сообщение от vikuss2006

Мне не понятно, можете пожалуйста объяснить

Имя переменных. Конечно это придирки, но отдавать это клиентам, не желая потратить 2 секунды и придерживаться правил хорошего тона, чтобы не стыдно было. А то сделали на отъе***
Это мое ИМХО. Предположу, что даже не задумывались, для возможности удобного и безошибочного использования клиентами их библиотеки, положить в нее не только вход, но и выход. На все ответят скриптом...
Когда писал свою выгрузку из Аксапты в Эксель, вторым что я сделал после инициализации документа - метод CloseDocument().