Set db = ss.CurrentDatabase
Set agent = ss.CurrentAgent
Set doc =db.GetDocumentByID(agent.ParameterDocID)
Set dnew = db.CreateDocument
Forall it In doc.Items
If Lcase$(it.Name) Like {tm_*} Then
Call it.CopyItemToDocument(dnew,it.Name)
End Select
End If
End ForAll
ProcessName$ = "IWF.1.New"
Call StartWF(ProcessName$,dnew)
Function StartWF(UNIC As String,sdoc As NotesDocument) As Boolean
Dim ESubject As String
Dim EBody As String
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim cdoc As NotesDocument
Dim doc As NotesDocument
Dim view As NotesView
On Error GoTo er
If sdoc Is Nothing Then
Set db = s.CurrentDatabase
Set doc = db.CreateDocument
Else
Set db = sdoc.Parentdatabase
Set doc =sdoc
End If
Set view = db.GetView({Configurations})
Set cdoc = view.GetDocumentByKey(UNIC)
Dim un As New NotesName(s.UserName)
Dim aDbMail As Variant
aDbMail = Evaluate({@MailDbName},doc)
If Not doc.HasItem({Form}) Then Call doc.ReplaceItemValue({Form},{MainDoc})
Call CopyWFFields(cdoc.UniversalID,doc)
Call doc.ReplaceItemValue({WFCurrentApprover},s.UserName)
Call doc.ComputeWithForm(True,False)
Call doc.ReplaceItemValue({Form},{MainDoc})
If LockDocument(doc) Then Call w.EditDocument(True,doc)
StartWF = True
Exit Function
er:
StartWF = False
EBody = Error$ & { #строка: } & Erl & { #UNIC: } & UNIC
Resume en
En:
End Function
Function LockDocument(doc As NotesDocument) As Boolean
If doc Is Nothing Then Exit Function
If doc.IsNewNote Then Exit Function -- здесь ошибка
End Function
