1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

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

    dread Гость

    Репутация:
    0
    Здравствуйте, есть агент, кот запускается и нормально отрабатывает, но
    после завершения его работы amgr продолжает целиком сжирать ядро
    другие агенты не запущены в это время.
    Код:
    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 Well-Known Member
    Lotus team

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

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

    dread Гость

    Репутация:
    0
    да

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

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