Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
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
Или еще вариант создай представление с единственным столбцом @if(@isavailable($conflict);"Есть";"Нет")
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)
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.