|
вот скрипт
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
|