Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём неправильно. Необходимо обновить браузер или попробовать использовать другой.
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.