Agent и параметры его

%REM
*********************************************
Agent test\NDCFile
Created Mar 30, 2015
Description: Comments for Agent
%END REM
Option Public
Option Declare
Use "Files.LS2J"
Sub Initialize
On Error GoTo ErrH
Dim NDCfile As New NDCFile, path As String
Dim NDC As NotesDocumentCollection
Set NDC=SelectedDocsUI
Set NDCfile.Collection(Path)=NDC
NDCfile.Add(path)
NDCfile.Compress(path &{.zip})
NDCfile.Decompress(path &{.zip})
Set NDC=NDCfile.Collection(path)
Dim doc As NotesDocument
Set doc=NDC.Getfirstdocument()
Print {first unid:} doc.Universalid
Kill path &{.zip}
Print {path:} path
Quit:
Exit Sub
ErrH:
Error Err, RaiseError
End Sub

Function AgentWNDC(db As NotesDatabase, agentName As String, NDC As NotesDocumentCollection)
On Error Goto ErrH
Dim docproc As NotesDocument
Dim NDCfile As New NDCFile, path As String
Set NDC=SelectedDocsUI
получаем файл с коллекцией unid
Set NDCfile.Collection(Path)=NDC
NDCfile.Add(path)
path=path &{.zip}
NDCfile.Compress(path)
Dim agent As NotesAgent
Set agent=db.GetAgent(agentName)
Set docproc=db.CreateDocument
Call docproc.ReplaceItemValue({form},{Log})
Dim rtItem As NotesRichTextItem
Set rtItem=docproc.CreateRichTextItem({body})
прекрепляем файл к документу, для агента
Call rtItem.EmbedObject(EMBED_ATTACHMENT,{}, path)
Call docproc.ComputeWithForm(False,False)
Call docproc.Save(True,False)
Call agent.Run(docproc.NoteID)
в docproc прописывается STATUS_FLD с результатом обработки
Set AgentWNDC=docproc
Quit:
Exit Function
ErrH:
Error 1024, RaiseError
Resume Quit
End Function

%REM
*********************************************
Class NDCFile
Description: получить коллекцию документов
по списку UNID из файла
или записать в Файл
%END REM
Class NDCFile As FilesObj
Private NDC As NotesDocumentCollection
Private db As NotesDatabase
Private ses As NotesSession
Private arrFiles As Variant
Private path As String
Private tmp As TempFolderManager
%REM
*--------------------------------------------
Sub New
Description: Comments for Sub
%END REM
Sub New()
Dim routineName As String
routineName="New"
On Error GoTo ErrH
your code here
Set me.ses=New NotesSession
Set me.db=me.ses.Currentdatabase
Quit:
Exit Sub
ErrH:
Error Err, RaiseError
Resume Quit
End Sub
%REM
*--------------------------------------------
Property Get Collection
Description: path is directory
%END REM
Property Get Collection(path As String) As NotesDocumentCollection
Dim routineName As String
routineName="Collection"
On Error GoTo ErrH
your code here
Set NDC=db.CreateDocumentCollection()
me.path=path
me.arrFiles=Me.Files(me.path)
If DataType(me.arrFiles)=V_STRING Then
Me.NDCFromFile(CStr(me.arrFiles))
Else
ForAll f In me.arrFiles
Me.NDCFromFile(CStr(f))
End ForAll
End If
Set Collection=NDC
Quit:
Exit Property
ErrH:
Error Err, RaiseError
Resume Quit
End Property
%REM
*--------------------------------------------
Function NDCFromStream
Description: Comments for Function
%END REM
Private Sub NDCFromFile(fname As String)
Dim stream As NotesStream
Set stream=ses.Createstream()
Dim routineName As String
routineName="NDCFromStream"
On Error GoTo ErrH
your code here
If stream.Open(fname) Then
Dim unid As String
Do
unid=stream.Readtext(STMREAD_LINE, EOL_PLATFORM)
Dim doc As NotesDocument
Set doc=GetDocumentByUNIDSilent(me.db, unid)
If Not doc Is Nothyng Then Call NDC.Adddocument(doc)
Loop Until stream.Iseos
End If
Quit:
Exit Sub
ErrH:
Error Err, RaiseError
Resume Quit
End Sub
%REM
*--------------------------------------------
Property Set Collection
Description: path is full path to file
%END REM
Property Set Collection(path As String) As NotesDocumentCollection
Dim routineName As String
routineName="Collection"
On Error GoTo ErrH
your code here
Dim doc As NotesDocument, stream As NotesStream
Set doc=Me.Collection.Getfirstdocument()
Set stream=ses.Createstream()
Set tmp=New TempFolderManager
me.path=tmp.NewFilename({txt}, true)
path=me.path
Call stream.Open(me.path)
Do While Not doc Is Nothyng
Call stream.Writetext(doc.Universalid, EOL_PLATFORM)
Set doc=Me.Collection.Getnextdocument(doc)
Loop
Set NDC=Collection
Quit:
Exit Property
ErrH:
Error Err, RaiseError
Resume Quit
End Property
End Class

Set tmp=New TempFolderManager
me.path=tmp.NewFilename({txt}, true)

 Set ZipClass = jSession.GetClass("org.files.ZipUtil")
sep=ZipClass.sep