Hallo zusammen,
ich möchte eine Feldberechnung durchführen, die mir sagt, wieviel Tage zwischen der Erstellung (DOM1a) und des aktuellen Datum (dtnow) liegen.
Leider klappt das nur, wenn DOM1a befüllt ist. Sobald ein Eintrag fehlt, steigt das Script aus.
Wo liegt mein Fehler?
Gruß Willi
On Error GoTo errHandler
Dim strTitle As String
Dim strError As String
Dim strServer As String
Dim strDatabase As String
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc2 As NotesDateTime
Set db = session.CurrentDatabase
strTitle=db.Title
Dim intCount1 As Integer
Dim intCount2 As Integer
Dim searchFormula As String
searchFormula$ = {Form = "MGrund" & Ebene1 = "Lotus Notes" & !( }
searchFormula$ = searchFormula & {(Status2 = "EIN") |(Status2 = "CALL") | (fertig_B1="LÖSCH") }
searchFormula$ = searchFormula & { |(Ges_N2=1 & Ges_N3=1) |(Ges_N2=2 & Ges_N3=2) | (Ges_N2=3 & Ges_N3=3) }
searchFormula$ = searchFormula & { |(Ges_N2=4 & Ges_N3=4) |(Ges_N2=5 & Ges_N3=5) }
searchFormula$ = searchFormula & { )}
Set collection = db.Search(searchFormula$, Nothing,0)
'Hier meldet der Agent 4288 - Property must be of type Date
Set doc = collection.GetFirstDocument()
Do While Not(doc Is Nothing)
Dim dtDOM1a As NotesDateTime
Dim dtNow As NotesDateTime
Dim intDifference As Double
Set dtNow = New NotesDateTime( Now() )
Set dtDOM1a = New NotesDateTime( "" )
dtDOM1a.LSLocalTime = doc.DOM1a(0)
intDifference = dtNow.TimeDifference(dtDOM1a )
intDifference = intDifference /(86400)
doc.FIELDVIEW49 = intDifference
If intDifference > 30 Then
doc.FIELDVIEW50 = 92
Else
doc.FIELDVIEW50 = 83
End If
Call doc.Save( False, True )
intCount1=intCount1+1
Set doc = collection.GetNextDocument(doc)
Loop
strError = "Aktualisierung ausgewählte Datensätze" +Chr(13)+Chr(10)
strError = strError + "=========================================="+Chr(13)+Chr(10)
strError = strError + "Datensätze Teil 1 aktualisiert: "+Trim(Str(intCount1)) + Chr(13)+Chr(10)
strError = strError + "Datensätze Teil 2 aktualisiert: "+Trim(Str(intCount2)) + Chr(13)+Chr(10)
WriteAgentLog (strError)
OutOfHere:
Exit Sub
errHandler:
strError = strError + "Fehler [Zeile " + Trim$ (Str$ (Erl())) + "] " + Trim$ (Str$ (Err)) + " - " + Error$
WriteAgentLog (strError)
Resume OutOfHere
End Sub
