Hi,
ich habe nun das Script bei den Datenbankscript eingefügt.
Nun möchte ich ja keine Anzeige mir ausgeben , sondern ja auf das letzte Replikdatum
reagieren.
Hierzu habe ich folgendes Script eingebaut bei "Postopen":
Sub Postopen(Source As Notesuidatabase)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim weekDateTime As NotesDateTime
Dim modifiedDateTime As NotesDateTime
Dim sList() As String
Dim nCt%, nReturn%
Dim sRepTime$
Dim lEntries&
Set db=session.GetDatabase("", "serviceinfobase.nsf")
Set weekDateTime = New NotesDateTime( "Today" )
sRepTime$=Space(MAXALPHATIMEDATE + 1)
Call weekDateTime.AdjustDay( -7 ) ' set to one week ago
modifiedDateTime.LSLocalTime = sRepTime$
If weekDateTime.TimeDifference( modifiedDateTime ) > 0 Then
Msgbox "Reminder: please make a replcation from the database"
Call db.Open( "", "" )
Else
Call db.Open("", "serviceinfobase.nsf")
End If
End Sub
Hierzu habe ich einige Fragen:
- Wie komme ich nun an die letzte Replikzeit??
- Wie kann ich nun damit verhindern das die Datenbank geöffnet wird??
Gruss JÖrg