Всем доброго время суток...
Хотел бы задать вот какой вопрос.
Имеется лотусёвая база. В ней находится 8 агентов в основном главной их функцие является обработка и выборка документов. И имеется один вредный очень агент который при запуске его локально отрабатывает задания корректно. А если выложить базу на сервер при запуске этого агента выходит ошибка страшная такая на красном фоне:
Sorry an uncorrectable error has occurred
Lookuphandle:
null hander
и подвисает всё...
Просмотром в дебагере добился того что эта ошибка выскакивает в процессе иницилизации строчку я сейчас укажу в коде на какой именно...
В агенте ещё есть
Declarations:
ну и естественно SetData этот код я уже наверно кидать не буду т.к. практика показывает что до запуска SetData дело не доходит и всё обрывается на инициализации. Кто нибудь ответьте пожалуйста!!! Может возникали у кого нибудь идентичные проблемы? Разработка велась на 6.5 этой базы а сервер 5тый.
Хотел бы задать вот какой вопрос.
Имеется лотусёвая база. В ней находится 8 агентов в основном главной их функцие является обработка и выборка документов. И имеется один вредный очень агент который при запуске его локально отрабатывает задания корректно. А если выложить базу на сервер при запуске этого агента выходит ошибка страшная такая на красном фоне:
Sorry an uncorrectable error has occurred
Lookuphandle:
null hander
и подвисает всё...
Просмотром в дебагере добился того что эта ошибка выскакивает в процессе иницилизации строчку я сейчас укажу в коде на какой именно...
Код:
Sub Initialize
Set s = New NotesSession
Set db = s.CurrentDatabase
Set dv = db.GetView("ExportDataView")--------вот эта тоже вызывает подозрения
Set dCol = dv.AllEntries ------------------------вот на этой строчке!!!!
Set dEntry = dCol.GetFirstEntry
While Not(dEntry Is Nothing)
Set doc = dEntry.Document
If doc.Form(0) = "Issue_D" And Not doc.IsResponse And doc.PRRNumber_T(0) <> "" Then
Call SetData( doc )
End If
Set dEntry = dCol.GetNextEntry(dEntry)
Wend
End SubSub Initialize
End SubВ агенте ещё есть
Declarations:
Код:
Dim s As NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim resCol As NotesDocumentCollection
Dim doc As NotesDocument
Dim res As NotesDocument
Dim dv As NotesView
Dim dCol As NotesViewEntryCollection
Dim dEntry As NotesViewEntry
Dim v As NotesView
Dim vCol As NotesViewEntryCollection
Dim vEntry As NotesViewEntry
Dim isExist As Integerну и естественно SetData этот код я уже наверно кидать не буду т.к. практика показывает что до запуска SetData дело не доходит и всё обрывается на инициализации. Кто нибудь ответьте пожалуйста!!! Может возникали у кого нибудь идентичные проблемы? Разработка велась на 6.5 этой базы а сервер 5тый.
