Set item3 = curdoc.GetFirstItem( "addreaders" )        ' добавление руководителя подразделения из структуры  в поле addauthors    
        If strukdoc.shef(0) <>"" Then 
            Call item3.AppendToTextList(strukdoc.shef(0))
            
            Set strukdoc=view.GetDocumentByKey(strukdoc.shef(0)) '  найти док начальника
            If Not( strukdoc Is Nothing) Then
                Print    "начальник::" strukdoc.FIO(0)
                If strukdoc.position(0) = "Начальник отдела" Then ' если нач - начальник отдела
                    Print  "Начальник упр: "                 strukdoc.shef(0) 
                    Set item = curdoc.GetFirstItem( "addreaders" )
                    Call item.AppendToTextList( strukdoc.shef(0)  )    ' то дать   нач упр -  доступ на чтение
                End If
            End If    
        End If