Ein Dokument finden und einen Wert hinterlegen

[Klafu]

Guten Morgen zusammen,

ich hab eine kleine Bitte:
Ich hab zwei Dokumente in denen das Feld "A" steht, das den selben Inhalt hat. Da sich der Inhalt von Feld "A" aber ändern kann und die Dokumente aufeinander basieren, möchte ich eine Beziehung zwischen den beiden Dokumenten herstellen. Dazu würde ich ein Feld "B" (mit dem Inhalt @Unique) aus dem einen Dokument ins andere übernehmen wollen.

Da ich hierbei nichts falsch machen will - sprich: es sollten keine Fehler auftreten und keine Werte in ein falsches Dokument geschrieben werden - dachte ich, ihr könnt mir Tipps geben, ob mein Code passt und wo ich noch Fehler unterbinden kann - also, nur um auf Nummer sicher zu gehn.

Zu jedem Dokument kann es nur ein einziges, passendes "Partnerdokument" geben.

Code

Dim session As NotesSession
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim db As NotesDatabase
Dim view As NotesView
Dim view2 As NotesView
Dim speicher As Boolean
Dim Askme As Variant
Dim i As integer

Sub Initialize()
	Set session = New NotesSession
	Set db = session.CurrentDatabase
	Set view = db.Getview("Personenuebersicht")
	Set view2 = db.GetView("vUsername")
	Set doc = view.Getfirstdocument()
	i = 1
	Do While Not doc Is nothing
		If doc.form(0) = "Person" then
			Set doc2 = view2.getdocumentbykey(doc.txtUsername)
			If Not doc2 Is Nothing then
				If doc2.form(0) = "mUserName" Then			
					doc2.UserNameID = doc.ID
					speicher = doc2.Save(True, False )
					Print i
					i= i+1
				Else
					Print "Kein passendes Dokument gefunden"
				End if
			End If
		End If
		Set doc = view.Getnextdocument(doc)
	Loop
End Sub

Chris

[Peter Klett]

Do While Not doc Is nothing
   If doc.form(0) = "Person" then
      Set doc2 = view2.getdocumentbykey(doc.txtUsername (0), True) 'exakte Suche
      If Not doc2 Is Nothing then
         If doc2.form(0) = "mUserName" Then 'die Ansicht darf keine anderen Dokumente zurückgeben
            doc2.UserNameID = doc.ID
            speicher = doc2.Save(True, False )
            Print i
            i= i+1
         Else
            Print "Kein passendes Dokument gefunden"
         End if
      End If
   End If
   Set doc = view.Getnextdocument(doc)
Loop

Du hast nicht abgefangen, dass es evtl. schon mehrere passende Dokumente geben könnte. War aber auch nicht die Aufgabe (?). Ich gehe auch davon aus, dass der Agent nachträglich einmal laufen soll und zukünftig das ID-Feld bei Dokumenterstellung gesetzt wird.

Mit @Unique meintest Du sicherliche @DocumentUniqueID

[Klafu]

Du hast nicht abgefangen, dass es evtl. schon mehrere passende Dokumente geben könnte. War aber auch nicht die Aufgabe (?).

Mir ging es dabei eher darum, dass Der Wert von Feld "A" aus Dokument 1 nicht in mehrere Dokumente gesetzt wird sondern immer aus dem aktuellen Dok frisch geladen wird.

Ich gehe auch davon aus, dass der Agent nachträglich einmal laufen soll und zukünftig das ID-Feld bei Dokumenterstellung gesetzt wird.

Richtig. Der Agent läuft einmalig im Nachhinein um das Feld zu setzen.

Mit @Unique meintest Du sicherliche @DocumentUniqueID

Die Frage irritiert mich nun ein wenig.
@Unique: Text. A random, unique text value.
@DocumentUniqueID: The universal ID, which uniquely identifies a document across all replicas of a database

Die DocumentUniqueID wäre wohl die zuverlässigere Variante, oder?

Chris

[Peter Klett]

@Unique ist keine Eigenschaft, sondern ein Befehl.

@Unique ("A" : "A" : "B" : "B") => "A" : "B" => Entfernen doppelter Einträge

@DocumentUniqueID ist die eindeutige ID des Dokuments (in Script NotesDocument.UniversalID)

[Peter Klett]

Interessant, @Unique ohne Parameter kannte ich noch nicht, das gibt einen angeblich eindeutigen String zurück (da hattest Du natürlich Recht, ich bekenne mich zu meiner Unwissenheit). Bei mir PKLT-xxxxx, wobei ich vermute, das xxxxx eine verschlüsselte Uhrzeit ist. PKLT ist wohl aus meinem Usernamen gerechnet.

Wie die die Eindeutigkeit des PKLT herstellen wollen, ist mir fraglich. Angenommen, eine Datenbank wird über mehrere Domänen repliziert, in einer anderen Domäne gibt es einen Paul Klatt, der bekommt vielleicht auch PKLT, und zufällig mit dem erstelle ich gleichzeitig solch ein Dokument. Ok, sehr unwahrscheinlich, aber der Teufel ist ein Eichhorn ...

Ich würde auf jeden Fall über @DocumentUniqueID gehen, hat auch noch den Vorteil, dass Du über die ID direkt auf das Dokument zugreifen kannst (Set doc = db.GetDocumentByUnid (...)).

EDIT: Hier der Test: Ein Agent @Prompt ([OK]; @Unique; @Unique) auf zwei separaten Maschinen mit zwei unterschiedlichen Usern, aber ähnlichem Namen, einmal Peter Klett/Kundendomäne und einmal Peter Klett/EigeneDomäne, zeitgleich gestartet. Resultat: Eindeutig nicht eindeutig!

[marschul]

EDIT: Hier der Test: Ein Agent @Prompt ([OK]; @Unique; @Unique) auf zwei separaten Maschinen mit zwei unterschiedlichen Usern, aber ähnlichem Namen, einmal Peter Klett/Kundendomäne und einmal Peter Klett/EigeneDomäne, zeitgleich gestartet. Resultat: Eindeutig nicht eindeutig!

Man, hast Du Zeit
Aber solche Dinge locken mich auch immer denn das mit dem @Unique ohne Parameter kannte ich auch nicht - Ergebnis: MSCE-8R5JQL (hat nix mit Microsoft zu tun, sondern scheint Deinen Verdacht mit der Ableitung aus dem Namen - Marco Schultze - zu bestätigen; was, wenn der Nachname nur 2 Buchstaben hat ).

[koehlerbv]

Um noch ein Messer in die Brust von @Unique zu rammen: Schreibe ein Agentileinchen, dass Dir in einer Schleife 1.000 Dokumente erzeugt und mit @Unique etwas erzeugt. Dann zähle die Duplikate 

@Unique macht ein "unique" für Arme ...

Bernhard

PS: Zweibuchstabige Nachnamen werden automatisch aufgefüllt. Aber das ist ja eigentlich auch schon völlig wurscht ...

[cebolina]

Zum Thema @Unique hier ein interessanter Artikel zum Thema "Fortlaufende Nummern" (u.A. wird eine Option mit @Unique erläutert)
http://www-10.lotus.com/ldd/ddwiki.nsf/dx/sequential-numbering.htm

Gruß
Stefan

[Klafu]

Hallo,
ich werde mir wohl sehr schwer tun in allen Dokumenten den Wert von @Unique durch eine eindeutigere Funktion zu ersetzten. Vorallem, da einige Beziehungen zwischen den Dokumenten auf Basis des @unique-Wertes gemacht sind und ein paar nicht.
Das Beste wird wohl sein, wenn ich alles ersteinmal auf einen gemeinsamen Nenner (in dem Fall würd ich dann mit @Unique weiter machen) und alle Bezihungen richtig knüpfen.
Danach dürfte es bei Bedarf (und da es wohl wichtig ist:)) auch leichter sein das @Unique zu entfernen (alà suchen und ersetzen)

P.s. @Unique wird auch in der !!Help!! Datenbank genutzt. Das hat wohl zu der Entscheidung die Funktion zu nutzen, auch noch bestärkt

Chris