N
nayke
DeleteCol объявлена в Declare агента. пробовал объявлять в секции inicialize и передавать в процедуру
Sub DeleteFromCol( Col As NotesDocumentCollection, ADoc As NotesDocument)
в итоге не один документ из коллекции не удаляется все с ошибкой - документ не является документом из данной коллекции. Как обойти идеи есть просто не хочется нагромождать может так кто что подскажет..
p.s. doc, передаваемый в DeleteFromCol имеет форму A или B и находится в CurrentDB, т.е. в коллекции есть полюбому
Sub DeleteFromCol( Col As NotesDocumentCollection, ADoc As NotesDocument)
Код:
Set DeleteCol=CurrentDB.Search({((Form="A")|(Form="B"))},Nothing,0
Set NoDeleteCol=CurrentDB.Search(Filter,Nothing,0)
'Filter - запрос возвращающий документы формы С(ответа на А) либо формы В
While NoDeleteCol.Count>0
Set doc=NoDeleteCol.GetFirstDocument
Call NoDeleteCol.DeleteDocument(doc)
If doc.form(0) = "C" Then Set doc=CurrentDB.GetDocumentByUNID(doc.~$REF(0))
Call DeleteFromCol(doc)
Wend
Sub DeleteFromCol(ADoc As NotesDocument)
On Error Goto lbExit
Call DeleteCol.DeleteDocument(ADoc)
Exit Sub
lbExit:
Exit Sub
End Sub
в итоге не один документ из коллекции не удаляется все с ошибкой - документ не является документом из данной коллекции. Как обойти идеи есть просто не хочется нагромождать может так кто что подскажет..
p.s. doc, передаваемый в DeleteFromCol имеет форму A или B и находится в CurrentDB, т.е. в коллекции есть полюбому