'Set db = session.CurrentDatabase
'Set collection=db.AllDocuments
'Call collection.RemoveAllFromFolder( "SearchFolder")

dim view as notesview
Set db = session.CurrentDatabase
set view = db.getview("SearchFolder")
if view is nothing then ' на всяк случ
  print "not found design element", "SearchFolder"
  exit sub
endif
' очистить фолдер
call view.AllEntries.RemoveAllFromFolder( "SearchFolder" )

Sub Click(Source As Button)
Dim util As New Utils
Dim db As NotesDatabase
Dim dic As NotesDatabase
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim col As NotesDocumentCollection
Dim search As String
Dim i As Integer
Dim j As Integer
Dim view As NotesView


Set dic = util.dictionary
Set db = ses.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set view = db.GetView("ReportPRByReception")

Set doc = view.GetFirstDocument
While Not doc Is Nothing
' m - количество лиц, которые приняли
m=m+1
Set doc = view.GetNthDocument(m+1)
Wend

Redim AuthorRU(m) As String
Redim AuthorKZ(m) As String
Redim TitleRu(m) As String
Redim TitleKZ(m) As String
Redim sum(m) As Integer
Redim mas1(m) As Integer
Redim mas2(m) As Integer
Redim mas3(m) As Integer
Redim mas4(m) As Integer
Redim mas5(m) As Integer


For i = 1 To m
Set doc = view.GetNthDocument(i)
AuthorRu(i) = doc.DocumentAuthorNameRu(0)
AuthorKz(i) = doc.documentAuthorNameKz(0)
Next

Search = "Form = ""EstablishedPost"" "
Set col = dic.Search(Search,Nothing,0)

For i = 1 To col.Count
Set doc = col.GetNthDocument(i)
For j = 1 To m
If AuthorRu(j) = doc.EmployeeShortNameRU(0) Then
TitleRu(j) = doc.PostNameRU(0)
TitleKz(j) = doc.PostNemeKz(0)
End If
Next
Next

Search = "Form = ""PR"" & PRType = ""Word"" "
Set col = db.Search(Search,Nothing,0)
n=col.Count
'n - количество документов
For i = 1 To n
Set doc = col.GetNthDocument(i)
D = Cdat(doc.GetItemValue("DocumentInDate")(0))
D1 = Cdat(UIDoc.Document.GetItemValue("D1")(0))
D2 = Cdat(UIDoc.Document.GetItemValue("D2")(0))

If (D>=D1) And (D<=D2) Then
For j = 1 To m
If doc.GetItemValue("DocumentAuthorNameRu")(0) = AuthorRu(j) Then
sum(j) = sum(j) + 1
w=w+1
' вопрос решен положительно
If doc.EXECUTIONRESULTTEXTNAMERU(0) = "Удовлетворено" Then
mas1(j)=mas1(j)+1
w1=w1+1
End If
' Просьба не удовлетворена
If doc.EXECUTIONRESULTTEXTNAMERU(0) = "Отказано" Then
mas2(j)=mas2(j)+1
w2=w2+1
End If

' Направленно в подразделение гос. органа
If doc.EXECUTIONRESULTTEXTNAMERU(0) = "Направлено в другие государственные органы" Then
mas3(j)=mas3(j)+1
w3=w3+1
End If

' Дано разъяснение
If doc.EXECUTIONRESULTTEXTNAMERU(0) = "Разъяснены" Then
mas4(j)=mas4(j)+1
w4=w4+1
End If

' Направленно в другие орг.
If doc.EXECUTIONRESULTTEXTNAMERU(0) = "Направлено в другие организации" Then
mas5(j)=mas5(j)+1
w5=w5+1
End If

End If
Next
End If
Next


For i = 1 To m
Name1 = Name1+ Chr(13) + AuthorRu(i)
NameTitle1 = NameTitle1 + Chr(13) + TitleRu(i)
Itog = Itog + Chr(13) + Cstr(sum(i))
a1 = a1+Chr(13) + Cstr(mas1(i))
a2 = a2+Chr(13) + Cstr(mas2(i))
a3 = a3+Chr(13) + Cstr(mas3(i))
a4 = a4+Chr(13) + Cstr(mas4(i))
a5 = a5+Chr(13) + Cstr(mas5(i))
Next

Set Item = uidoc.Document.ReplaceItemValue("Name",Name1)
Set Item = uidoc.Document.ReplaceItemValue("NameTitle",NameTitle1)
Set Item = uidoc.Document.ReplaceItemValue("Itog",Itog)
Set Item = uidoc.Document.ReplaceItemValue("a1",a1)
Set Item = uidoc.Document.ReplaceItemValue("a2",a2)
Set Item = uidoc.Document.ReplaceItemValue("a3",a3)
Set Item = uidoc.Document.ReplaceItemValue("a4",a4)
Set Item = uidoc.Document.ReplaceItemValue("a5",a5)

Set Item = uidoc.Document.ReplaceItemValue("w",w)
Set Item = uidoc.Document.ReplaceItemValue("w1",w1)
Set Item = uidoc.Document.ReplaceItemValue("w2",w2)
Set Item = uidoc.Document.ReplaceItemValue("w3",w3)
Set Item = uidoc.Document.ReplaceItemValue("w4",w4)
Set Item = uidoc.Document.ReplaceItemValue("w5",w5)

uidoc.Refresh
End Sub