Amgr после запуска агента продолжает целиком сжирать ядро

Тема в разделе "Lotus - Программирование", создана пользователем dread, 13 май 2011.

Статус темы:
Закрыта.
  1. dread

    dread Гость

    Здравствуйте, есть агент, кот запускается и нормально отрабатывает, но
    после завершения его работы amgr продолжает целиком сжирать ядро
    другие агенты не запущены в это время.
    Код (Text):
    Option Public
    Option Declare
    UseLSX "*lsxlc"

    Const lc_userName = "domino"
    Const lc_password = "domino"
    Const lc_table = "outbound_tbl"
    Const lc_server = "domino"

    Dim connect As LCConnection
    Dim count As Long
    Sub Initialize()
    On Error GoTo erh
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim formula As String
    Dim pw As String


    Set db = s.CurrentDatabase
    Print "Поиск документов "       
    Set col = db.Ftsearch("[ManualAssigment] = 1", 0)  
    'инициализация SQL
    Call Initialize_SQL()      
    Set doc = col.Getfirstdocument()
    Print "Старт обработки документов "    

    While Not(doc Is nothing)
    count = count + 1
    'запуск скрипта
    Call ExecSQL(doc.UniversalID,_
    doc.GetItemValue("ManagerEdit")(0))
    'следующий должник
    If UCase(doc.GetItemValue("ManagerEdit")(0))="[OUTBOUND]" Then
    Call doc.ReplaceItemValue("ManualAssigment","")
    Call doc.ReplaceItemValue("PersonalWorkCount","")
    Call doc.ReplaceItemValue("PersonalWork","")
    Else
    pw = CStr(doc.Getitemvalue("PersonalWork")(0))
    If pw <> "" Then
    Call doc.ReplaceItemValue("ManualAssigment","")
    Else
    Call doc.ReplaceItemValue("ManualAssigment","2")
    End If

    End If
    Call doc.ReplaceItemValue("RedialFlag","")
    Call doc.ReplaceItemValue("RedialMaxdate","")
    Call doc.Save(True,False)
    Set doc = col.Getnextdocument(doc)
    Wend
    'connect.Disconnect
    Print "Обработка документов завершена обработано" , count    
    Exit Sub
    'Call col.Stampall("ManualAssigment","2")  
    'end
    erh:   
    Print Error, Erl
    End
    End Sub

    Sub ExecSQL (id As String, Manager As String)
    On Error GoTo erh
    Dim fldLst As LCFieldList
    Dim sql As String

    Set fldLst = New LCFieldList
    SQL = {select update_outbound_role('}+ID +{','} + Manager +{' ) }
    'Print SQL
    Call connect.Execute(SQL, fldLst)

    Exit Sub
    erh:   
    Print "ExecSQL", Error, Erl,
    End
    End Sub
    Sub Initialize_SQL 

    Print "Установка связи с ODBC"
    On Error GoTo erh
    Set connect = New LCConnection("odbc2")
    connect.server = lc_server
    connect.Userid = lc_userName
    connect.Password = lc_password
    connect.Metadata = lc_table

    connect.Connect
    connect.MapbyName = True

    Print "Установка связи с ODBC copmlete" 

    Exit Sub
    erh:   
    Print "Initialize_SQL", Error, Erl
    end
    End Sub
    использую 8.5.2FP2
     
  2. Kizarek86

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    если энто раскоментить тоже утечка?

    Думаю стоит эту переменную убивать как ненужна становиться.
     
  3. dread

    dread Гость

    да

    проверю, спасибо
     
Загрузка...
Похожие Темы - Amgr после запуска
  1. deeeman
    Ответов:
    4
    Просмотров:
    2.204
  2. yerke
    Ответов:
    4
    Просмотров:
    2.008
  3. akat
    Ответов:
    0
    Просмотров:
    1.274
  4. wertep
    Ответов:
    2
    Просмотров:
    3.475
  5. ToxaRat
    Ответов:
    23
    Просмотров:
    7.100
Статус темы:
Закрыта.

Поделиться этой страницей