O
Set view = db.GetView("conflict")
If view.IsConflict Then
Messagebox "Присутствуют конфликтные документы"
For a = 1 To dc.Count
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
' If doc.IsResponse Then
If doc.HasItem("$Conflict") Then
Messagebox "конфликтный документ"
Call doc.Remove(True)
' End If
End If
Set doc = dc.GetNextDocument(doc)
Wend
Print ("Просматривается документ: "& Cstr(a) & " из: " &Cstr(dc.Count))
Next
Else
Messagebox "Конфликтные документы отсутствуют"
End If
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("conflict")
Set vc = view.GetAllEntriesByKey("есть")
Call vc.FTSearch("есть", 10)
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab