1 Тема от admin

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

Тема: Отправка документа группе юзеров

В переменную, а точнее в дальнейшем массив  picklist надо заполнить фио с коллекции документов.

    Set strukdb = session.GetDatabase(server, "promdoc\policy.nsf" , False )
    Set view = strukdb.GetView("StrukGroup")
    
    Print "11111111111111-"
    Dim picklist As  Variant
    
    Dim     doccol As NotesDocumentCollection
    Set    doccol = view.GetAllDocumentsByKey("Канцелярия")
    If  doccol.Count = 0 Then Exit Sub
    Print "doccol.Count  " doccol.Count 

    Redim picklist(doccol.Count - 1)
    
    Set ftdoc = doccol.GetFirstDocument()
    x=0
    While Not ftdoc Is Nothing        
        picklist(x) =  ftdoc.FIO(0)    
        x=x+1
        Set ftdoc =     doccol.GetNextDocument(ftdoc)
    Wend

     если использовать  GetNthDocument(x) - то Х >=1 (первый элемент в коллекции = 1, а не 0)

    For x = 1 To doccol.Count -1
        Set ftdoc =     doccol.GetNthDocument(x) 
        If ftdoc.HasItem(FIO) Then picklist(x) =  ftdoc.FIO(0)
    Next

Поделиться