DocumentVersionLocked – проверить, заблокирована ли версия документа другим пользователем (открытие версии документа на редактирование)

Синтаксис:

function DocumentVersionLocked(
 VersionID: Integer;
 out UserName: WideString): WordBool;

Параметры:

Возвращаемое значение:

True, если версия документа заблокирована, иначе False.

Описание:

Функция проверяет, заблокирована ли указанная версия документа. Если версия заблокирована, то в параметре UserName возвращается имя пользователя, который заблокировал версию документа. Если версия не заблокирована, то параметр UserName содержит пустую строку.

Если документ не найден в системе DIRECTUM, то функция выдает сообщение об ошибке и возвращает значение True.

Пример:

' Проверить, заблокирована ли карточка документа.
Dim UserName As String
DocInfoXML = IntLib.GetEDocumentInfo(ActiveDocument.FullName)
Set XMLFile = CreateObject("MSXML.DOMDocument")
Call XMLFile.loadXML(DocInfoXML)
VersionID = XMLFile.selectSingleNode("CurrentVersionID").Text
If IntLib.DocumentVersionLocked(VersionID, UserName) Then
MsgBox "Версия документа заблокирована пользователем" & UserName
Else
MsgBox "Версия документа никем не заблокирована"
End If