GetEDocumentInfo – получить информацию о документе
Contents
Синтаксис:
function GetEDocumentInfo(
FullDocumentName: WideString): WideString;
Параметры:
FullDocumentName – имя файла активного документа, с указанием полного пути.
Возвращаемое значение:
Строка, содержащая информацию о документе.
Описание:
Функция возвращает строку в формате XML со значениями некоторых реквизитов документа. Если указанный документ не является документом DIRECTUM, то функция возвращает пустую строку.
Функция возвращает значения реквизитов самого документа и открытой версии. Узлы XML-документа:
| • | CurrentVersionSigned – признак того, что версия документа подписана; |
| • | DateModified – дата последней модификации файла документа; |
| • | EncodeType – тип шифрования документа; |
| • | Extension – расширение файла документа; |
| • | ExportedWithLock – признак того, что документ был экспортирован с блокировкой; |
| • | HasBoundDocuments – наличие связанных документов; |
| • | ID – ИД документа; |
| • | OpenMode – режим открытия документа: просмотр или редактирование; |
| • | ShowNamesOfEmptyRequisitesInEDocsText – признак отображения в полях документа названий реквизитов вместо их значений для незаполненных реквизитов; |
| • | Version – номер версии документа; |
| • | VersionsCount – количество версий документа; |
| • | UserCanModify – признак того, что текущий пользователь имеет права на изменение документа; |
| • | UserCanManage – признак того, что текущий пользователь может изменять права доступа на документ. |
Функция возвращает значения реквизитов в формате:
<DocumentInfo>
<!—- Реквизиты документа. -->
<Name1>Value1</Name1>
…
</DocumentInfo>
Рекомендуется использовать данную функцию, чтобы отобразить пользователю список подписей документа и отчет по подписям.
Пример:
' Отобразить список подписей документа, если документ подписан.
Set XML = CreateObject("MSXML.DOMDocument")
Call XML.loadXML(IntLib.GetEDocumentInfo(ActiveDocument.Name))
DocSigned = XML.getElementsByTagName( _
"CurrentVersionSigned").nextNode.nodeValue
If DocSigned = "Yes" Then
Call MsgBox(IntLib.GetEDocumentInfo(ActiveDocument.Name))
End If
| © Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |