Ich habe eine View "Versionen" die jede Menge Dokumente beinhaltet die alle über die Felder "VersionVon", "VersionBis" und "AlleKompatiblenVersionen"verfügen. z.B. steht im "VersionVon" Feld '1.2' drin im "VersionBis" Feld '2.5', die "AlleKompatiblenVersionen" Felder sind noch alle leer. Und um genau die geht es.

In dieses Feld sollen nämlich automatisch alle Versionen zwischen dem "VersionVon" Wert und dem "VersionBis" Wert hineingeschrieben werden. Da die Werte jedoch nicht durchgehend sind, also nicht 1.1, 1.2, 1.3 sondern durchaus auch mal eine Version 1.36b auftauchen kann sind alle möglichen Versionen im "AlleVersionen" Feld des Profildokumts "ProfileDoc" abgespeichert.

Deshalb soll der Agent nachdem er den ersten Wert des "VersionVon" Feldes eingelesen hat nach diesem Wert im "AlleVersionen" Feld des Profildokuments suchen und sich nach finden dessen die Position im Feld merken. Danach soll dann der Wert des "VersionBis" Feldes eingelesen werden und ebenfalls nach dessen Position im "Alle Versionen" Feld gesucht werden. Jetzt hat der Rechner ja die beiden Positionen und soll jetzt alle Werte zwischen diesen beiden Positionen auslesen und in das "AlleKompatiblenVersionen" Feld eintragen.

So stell ich mir zumindest in der Theorie vor das das funktionieren könnte. Deshalb die Frage an die Experten, ist es möglich, und wenn ja wie programmiere ich das, vor allem zu den Positionsbestimmungen innerhalb eines Feldes und dem Vergleich von diesen habe ich nämlich noch nichts gefunden.

So hier ist mal mein bisheriger Quellcode. Er kompiliert zwar, läuft aber noch nicht richtig, sprich er tägt die Werte nicht in das "AlleKompatiblenVersionen" Feld ein. Könnt ihr mir vielleicht sagen wo in meinem Quellcode der Fehler steckt.



Sub Initialize
   
   Dim workspace As NotesUIWorkspace
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim doc_coll As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim document As NotesDocument
   Dim view As NotesView
   Dim item1 As NotesItem
   Dim item2 As NotesItem
   Dim Eintrag As NotesItem
   Dim MoeglicheVersionen As Variant
   Dim Position1 As String
   Dim Position2 As String
   Dim Ergebnis As String
   Dim KompatibleVersionen As Variant

   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set doc_coll = db.AllDocuments
   
   Set view = db.GetView("Versionen")
   Set document = view.GetFirstDocument
                  
   While Not (document Is Nothing)
      Set item1 = document.GetFirstItem("VersionVon")
      Set item2 = document.GetFirstItem("VersionBis")
   Wend
   
   Set doc = db.GetProfileDocument("ProfileDoc")
   Set MoeglicheVersionen = doc.getItemValue("AlleVersionen")
   
   Position1 = Arraygetindex(MoeglicheVersionen, item1)
   Position2 = Arraygetindex(MoeglicheVersionen, item2)
   
   For KompatibleVersionen = Position1 To Position2
      Ergebnis = MoeglicheVersionen(KompatibleVersionen)
      Set Eintrag = document.ReplaceItemValue("AlleKompatiblenVersionen","Ergebnis")
   Next
   
End Sub

Einmal diesen, und zum anderen: Wo wird denn die Änderung des Dokumentes gespeichert ?

Bernhard

Erstmal danke für eure ganzen Antworten.

Stimmt, so kann das mit der While-Schleife natürlich nicht funktionieren. Ich habe den Code jetzt nochmal überarbeitet, das Ergebnis steht nicht mehr in "", der Fehler bei Arraygetindex wurde behoben, die Änderungen der Dokumente werden jetzt gespeichert und die While-Schleife wurde ebenfalls korrigiert.

So sieht der Code momentan aus:

Sub Initialize
   
   Dim workspace As NotesUIWorkspace
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim doc_coll As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim document As NotesDocument
   Dim view As NotesView
   Dim item1 As NotesItem
   Dim item2 As NotesItem
   Dim Eintrag As NotesItem
   Dim MoeglicheVersionen As Variant
   Dim Position1 As String
   Dim Position2 As String
   Dim Ergebnis As String
   Dim KompatibleVersionen As Variant

   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set doc_coll = db.AllDocuments
   
   Set view = db.GetView("Versionen")
   Set document = view.GetFirstDocument
                 
   While Not (document Is Nothing)
      Set item1 = document.GetFirstItem("VersionVon")
      Set item2 = document.GetFirstItem("VersionBis")
   
   Set doc = db.GetProfileDocument("ProfileDoc")
   Set MoeglicheVersionen = doc.getItemValue("AlleVersionen")
   
   Position1 = Arraygetindex(MoeglicheVersionen, item1.values(0))
   Position2 = Arraygetindex(MoeglicheVersionen, item2.values(0))
   
   For KompatibleVersionen = Position1 To Position2
      Ergebnis = MoeglicheVersionen(KompatibleVersionen)
      Set Eintrag = document.ReplaceItemValue("AlleKompatiblenVersionen",Ergebnis)
      Call document.Save( True, True )
   Next

   Set document = view.GetNextDocument(document)

Wend
   
End Sub



Jetzt erhalte ich noch eine Fehlermeldung "Type mismatch"

Position1 = Arraygetindex(MoeglicheVersionen, item1.values(0))
Position2 = Arraygetindex(MoeglicheVersionen, item2.values(0))

Genau an dieser Stelle bekomme ich immer die Fehlermeldung "Invalid use of null"...kann mir einer sagen woran das liegt und wie ich das beheben kann?

Position1 = Arraygetindex(MoeglicheVersionen, item1.values(0))
Position2 = Arraygetindex(MoeglicheVersionen, item2.values(0))

Genau an dieser Stelle bekomme ich immer die Fehlermeldung "Invalid use of null"...kann mir einer sagen woran das liegt und wie ich das beheben kann?

wenn das gesuchte Element nicht im Array vorhanden ist , liefert die Funktion Null zurück

deswegen musst du das Ergbnis in einen Variant schreiben und diesen vor Verwendung auf Null prüfen

dim vaPosition as Variant
vaPosition = Arraygetindex(MoeglicheVersionen, item1.values(0))
if not Isnull(vaPosition) Then
   'Sachen mit der Position machen
End if