« Alle Programme wieder da | Main| Download von einem Textfile, welches on-the-fly erzeugt wird... »

$DesignerVersion

0
Category

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

Post A Comment

:-D:-o:-p:-x:-(:-):-\:angry::cool::cry::emb::grin::huh::laugh::lips::rolleyes:;-)

Amazon


Impressum

Firmenname: Peanuts-Soft
Straße Nummer: Biinger Strasse 8
PLZ Ort: 55263 Wackernheim
Telefon: +491772134526
E-Mail: joerg.reck @ peanuts-soft.de
Disclaimer: Peanuts-Soft übernimmt keine Garantie dafür, dass die auf dieser Website bereitgestellten Informationen vollständig, richtig und stets aktuell sind. Dies gilt auch für alle Links, auf die verwiesen wird. Peanuts-Soft ist für die Inhalte, auf die per Link verwiesen wird, nicht verantwortlich. Peanuts-Soft haftet nicht für konkrete, mittelbare und unmittelbare Schäden oder Schäden, die durch fehlende Nutzungsmöglichkeiten, Datenverluste oder entgangene Gewinne – sei es aufgrund der Nichteinhaltung vertraglicher Verpflichtungen, durch Fahrlässigkeit oder eine andere unerlaubte Handlung – im Zusammenhang mit der Nutzung von Dokumenten oder Informationen bzw. der Erbringung von Dienstleistungen entstehen, die auf dieser Web Site zugänglich sind.
Datenschutz: Inhalt und Gestaltung der Internetseiten sind urheberrechtlich geschützt. Eine Vervielfältigung der Seiten oder deren Inhalte bedarf der vorherigen schriftlichen Zustimmung von Peanuts-Soft.


Locations of visitors to this page

Powered By

Domino BlogSphere
Version 3.0.2