W
wowa
Добрый день, что делать, если в строке Call argdoccol.stampall("deleted","1") ошибка: Notes erorr: Document has been deleted
Код:
Function checkColConflicts(argdoccol As NotesDocumentCollection) As NotesDocumentCollection
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As notesdocument
Set db = session.currentdatabase
If argdoccol Is Nothing Then
Set checkcolConflicts = db.search("test",Nothing,0)
Exit Function
End If
If argdoccol.count = 0 Then
Set checkColConflicts = argdoccol
Exit Function
Else
Set doc = argdoccol.getfirstdocument
While Not doc Is Nothing
If doc.hasitem("$Conflict") Then
Call argdoccol.stampall("deleted","1") ' Notes erorr: Document has been deleted
Set checkcolConflicts = db.search("test",Nothing,0)
Exit Function
End If
Set doc = argdoccol.getnextdocument(doc)
Wend
Set checkcolConflicts = argdoccol
End If
End Function