Доступ только пользователю

if Not Source.Document.GetItemValue("status")(0) ="" Then

Mode=source.EditMode
        
        If Not source.IsNewDoc Then
            tmp=Evaluate(|@Contains(ShAuthor; @Name([CN];@UserName))|)
            If tmp(0)=0 Then
                
                source.EditMode=False
            Else
                source.EditMode=Mode
            End If
            
        End If

If Not Source.Document.ParentDatabase.Parent.UserName = Source.Document.GetItemValue("uname_1")(0)  Then

If not source.IsNewDoc then
tmp=evaluate(|@IsMember("[Buh]";@UserRoles)|)
if not tmp(0)=0 then
Это значит, чтопользователь бухгалтер
source.editMode=Mode
end if
end if

tmp=Evaluate(|@IsMember("[BuH]";@UserRoles)|)
        If Not tmp(0)=0 Then
            ExistSign = False
        End If

If Source.Document.GetItemValue("status")(0) ="" Then
Выясняем, что статус не проставлен
            If Source.Document.ParentDatabase.Parent.UserName = Source.Document.GetItemValue("uname_1")(0)  Then
Выясняем, что user является автором           
                ExistSign = False
            End If
            tmp=Evaluate(|@IsMember("[BuH]";@UserRoles)|)
            If Not tmp(0)=0 Then
Выясняем, что это бухгалтер.
                ExistSign = False
            End If
        End If

 Field Status:=@Deletefield;