Проверка прав доступа на документ у текущего пользователя

Постановка задачи

Необходимо проверить, есть ли у текущего пользователя права на документ с указанным ИД.

Программный код

Search = Searches.Load('EDOCUMENT_SEARCH')

SearchCriteria = Search.SearchCriteria

ID = SearchCriteria.Add('ИД')

ID.SetCompleteValue(DocID)

Contents = Search.Execute

if Contents.Count = 1

  MessageBox(INFORMATION_CAPTION; "Документ найден")

else

  MessageBox(ATTENTION_CAPTION; "Документ не найден или нет прав")

endif