A
afest
Мне в скрипте нужно узнать текущую обрабатываемую форму. Вьюха, с которой берутся доки с селектом по двум формам. Часть выборки работает зашибись, но два момента ну никак! Давненько делал это, но уже забыл. В хэлпе шось не совсем то, что нужно нашел... Да и проблемки семейные - жена на операции... В общем голова не шибко варит... помогите пожалуйста!!!
вот скрипт:
на моменте происходит проблема с разницей форм (в дебагере смотрел)
и вот тут перед этим надо сделать проверку на форму...
вот скрипт:
Код:
Sub Click(Source As Button)
Dim xlFilename As String
xlFilename ="c:\f3.xls"
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView, transferview As NotesView
Dim doc As NotesDocument, transferdoc As NotesDocument
Dim i As Integer
Dim dc As NotesDocumentCollection
Dim CountDoc As Integer
Dim CountDoc1 As Integer
Dim CountDoc2 As Integer
Dim CountDoc3 As Integer
Dim CountDoc4 As Integer
Dim j As Integer
Dim aritem As NotesItem
Dim row As Integer
Dim Excel As Variant
Dim xlWorkbook As Variant
Dim xlSheet As Variant
Dim xlCells As Variant
Set db = session.CurrentDatabase
'// инициализация OLE-объекта
Set Excel = CreateObject("excel.application")
Excel.Visible = True
Print "Открыт файл " & xlFilename & "..."
Excel.Workbooks.Open xlFilename '// открытие файла Excel
Set xlWorkbook = Excel.ActiveWorkbook
Set xlSheet = xlWorkbook.ActiveSheet
Set xlCells = xlSheet.Cells
row = 2
Print "Starting export..."
Set view = db.GetView("dvig_workers")
Set doc = view.GetFirstDocument
CountDoc = 0 'принято работников всего
CountDoc1 = 0 'выбыло работников всего
CountDoc2 = 0 'из них в связи с сокращением
CountDoc3 = 0 'по собственному желанию
CountDoc4 = 0 'численность работников на конец отчетного периода
formName = "kadry"
While Not doc Is Nothing
On Error Resume Next
If doc.f1_69(0)<>"" Then
CountDoc1=CountDoc1+1
End If
'If formName = db.Forms Then
'End If
Set aritem=doc.f1_70_1(0)
If aritem.Contains("сокращению штата") Then
CountDoc2=CountDoc2+1
End If
If aritem.Contains("собственному желанию") Then
CountDoc3=CountDoc3+1
End If
Set doc = view.GetNextDocument(doc)
Wend
Set view = db.GetView("dvig_workers1")
CountDoc4 = view.EntryCount
Set view = db.GetView("dvig_workers2")
CountDoc = view.EntryCount
xlCells(row, 1).value= CountDoc
xlCells(row, 2).value=CountDoc1
xlCells(row, 3).value=CountDoc2
xlCells(row, 4).value=CountDoc3
xlCells(row, 5).value=CountDoc4
End Sub
на моменте происходит проблема с разницей форм (в дебагере смотрел)
Код:
If aritem.Contains("сокращению штата") Then
CountDoc2=CountDoc2+1
End If
If aritem.Contains("собственному желанию") Then
CountDoc3=CountDoc3+1
End If
и вот тут перед этим надо сделать проверку на форму...