Во-первых, база данных, которая позволяет использовать хранимые формы в документах, не имеет строчной буквы «f» в элементах $ Flags заметки ICON. Вы можете получить доступ к значку не в базе данных, используя
Const NOTE_CLASS_ICON% = &H0010 '*** icon note
Const SPECIAL_ID_NOTE& = &HFFFF0000 ' use in combination w/NOTE_CLASS when calling NSFDbGetSpecialNoteID
Dim iconNoteId&
Dim icondoc As NotesDocument
iconNoteId = SPECIAL_ID_NOTE + NOTE_CLASS_ICON
Set icondoc = db.Getdocumentbyid(iconNoteId)
If InStr(icondoc.Getitemvalue("$Flags")(0), "f") > 0 Then
Print "Database DOES NOT support shared forms"
Else
Print "Database supports shared forms"
End If
У вторых форм, которые поддерживают или хранятся в документах, есть флаг в элементе $ Info, который указывает на это. Этот элемент представляет собой форматированный текст, и его нелегко просмотреть в среде IDE. Однако, используя версию файла DXL через синхронизированный проект диска Oon (ODP), вы можете просмотреть его с помощью XML или текстового редактора. Похоже, что шестой символ - это либо «I» для обычных форм, либо «G» для форм, которые хранятся вместе с документами.
До сих пор я не создавал никакого кода для фактического тестирования форм или создания отчетов по ним, потому что отключение возможности на уровне БД устраняет проблемы безопасности, вызванные сохраненными формами.
person
Newbs
schedule
16.08.2017