1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Доступ на чтение документа начальнику отдела и управления

Этот код добавляет в поле типа ридер "addreaders" - начальника отдела и управления из структуры организации.

        

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

Поделиться