$DesignerVersion
Lotus Notes
Es passiert immer wieder mal, dass man mit verschiedenen Lotus Notes Versionen herumspielt.
Wenn man nun eine Anwendung in einer bestimmten Version z.B. 7.0 ausliefern muß, dann nervt es schon, wenn der Designer immer wieder meckert, dass man mit einer zu kleinen Version arbeitet!
Kategorie Es passiert immer wieder mal, dass man mit verschiedenen Lotus Notes Versionen herumspielt.
Wenn man nun eine Anwendung in einer bestimmten Version z.B. 7.0 ausliefern muß, dann nervt es schon, wenn der Designer immer wieder meckert, dass man mit einer zu kleinen Version arbeitet!
Mit folgendem kleinem Script kann dem ein Ende bereitet werden ->
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim ChangeCount As Integer
Dim i As Integer
Dim id As String
Dim ni As notesitem
Dim x As Integer
Set db=session.CurrentDatabase
For i%=1 To 5000
id = Hex$ (i%)
If Len ( id ) <> 8 Then
id = String$ ( 8-Len(id), "0" ) & id
End If
Set doc=db.GetDocumentByID( id )
If Not (doc Is Nothing) Then
If doc.HasItem ("$DesignerVersion") Then
Set ni = doc.getfirstitem("$Title")
Call doc.RemoveItem ( "$DesignerVersion")
Call doc.save ( True, True )
End If
End If
Next i
Gruß JJR