DocLink per LS anhängen (Quelle ist jedoch andere DB)?

Hier musst du über ein RichTextFeld in dem Dokument arbeiten.
Das Objekt NotesRichTextItem hat eine Eigenschaft AppendDocLink und erwartet als Parameter das Dokument auf den der Link erstellt werden soll.
Sieh mal in der Script Hilfe unter AppendDocLink des NotesRichTextItems nach.

n'Abend!

Versuch's mal mit folgendem Script:

Zitat

Dim session As NotesSession

Dim dieseDB As New NotesDatabase("server", "DB.nsf")
Dim viewDieseDB As NotesView
Dim docDieseDB As NotesDocument
Dim itemDieseDB As NotesItem
Dim itemDieseDBDoclink As NotesItem
Set viewDieseDB = dbDieseDB.GetView("irgendeineView")
Set docDieseDB = viewDieseDB.GetFirstDocument
Dim itemDieseDBText As String

Dim dieAndereDB As New NotesDatabase("server", "andereDB.nsf")
Dim viewDieAndereDB As NotesView
Dim docDieAndereDB As NotesDocument
Dim itemDieAndereDB As NotesItem
Set viewDieAndereDB = dbAndereDB.GetView("eineAndereView")
Set docDieAndereDB = viewDieAndere.GetFirstDocument
Dim itemDieAndereDBText As String

While Not(docDieseDB Is Nothing)
itemDieseDB = docDieseDB.GetFirstItem("irgendeinFeld")
itemDieseDBText = itemDieseDB.Text

While Not(docDieAndereDB Is Nothing)
itemDieAndereDB = docDieAndereDB.GetFirstItem("irgendeinAnderesFeld")
itemDieAndereDBText = itemDieAndereDB.Text

if itemDieseDBText = itemDieAndereDBText Then
Set itemDieseDBDocLink = docDieseDB.CreateRichtextItem("NameDesRichtextItems")
Call itemDieseDBDoclink.AppendDocLink(docDieAndereDB, "Kommentar - OPTIONAL", "Hotspottext - OPTIONAL!"
Call docDieseDB.Save(True, True)
End If

Set docDieAndereDB = viewDieAndereDB.GetNextDocument(docDieAndereDB)
Wend

Set docDieseDB = viewDieseDB.GetNextDocument(docDieseDB)

Wend

Alles anzeigen

Was macht das Ding: es schnappt sich das erste Dokument einer angegebenen View der DB, in die die Doclinks reinsollen und liest das Feld mit der Nummer aus. Dann springt es in die andere DB, schnappt sich das erste Dokument einer angegebenen View und liest dort das Feld aus. Wenn die Feldwerte übereinstimmen, erstellt es den Link, ansonsten wird das nächste Dokument der anderen DB angepiekt. Wenn es alle Docs der anderen DB durchhat, wird in der eigenen DB das nächste Dokument genommen, das Feld ausgelesen, in die andere DB gesprungen usw. usf.

Ich hab's nicht am lebenden Objekt ausprobiert, in Ermangelung entsprechender DBs; hab's nur mal schnell mit Bleistift und Papier geschrieben (ihr wisst schon: die altmodische, analoge Art, die man benutzte, als es noch keine Rechenknechte gab )...

Ich geh mal schwer davon aus, das wird nicht auf Anhieb funzen wird, ist das erste Mal, dass ich "auf dem Trockenen" progge... Aber jetzt haste schon mal einen Start...

Kannst ja Bescheid geben, was draus wurde und wo ich Fehler drin hatte.

greetz
RW

Zitat

Ich kriege noch ne Fehlermeldung beim
Call itemDieseDBDocLink.AppendDocLink(docDieAndereDB)
und zwar beim Speichern des Script

"Initialize 32: Not a member: APPENDDOCLINK!"
--

Da ist eine Variable verkehrt deklariert:

Dim itemDieseDBDoclink As NotesItem
sollt werden zu
Dim itemDieseDBDoclink As NotesRichTextItem

Dann schau Dir mal die Hilfe dazu an. Es sollte mich wundern, wenn es unter 6.5 nicht mehr gehen sollte. Bis Version 6 war es auf jeden Fall noch mit drin ...

Zitat

Inserts a doclink in a rich text item.
Defined in
NotesRichTextItem
Syntax
Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ] )
Parameters
linkTo
NotesDatabase, NotesView, or NotesDocument. The database, view, or document to which you want to link.
comment$
String. The text that appears when a user presses and holds the mouse pointer over the doclink.
HotSpotText$
Hinweis This parameter is new with Release 5.
Optional. String. If supplied, the HotSpotText appears in the rich text item as boxed text which can be clicked on with the mouse to follow the doclink. In this case, no other token appears in the text.

Alles anzeigen

Moijns!

lodsnods hat natürlich Recht, hätte ich eigentlich gleich drauf kommen können!

Ich merk schon, bin zu sehr von modernen IDEs abhängig. Aber so eine Befehlsvervollständigung ist aber auch was praktisches...

Und ich hab das echt auf dem Papier gemacht. Mach ich eigentlich fast immer so. Jedenfalls bei den meist gebrauchten Befehlen. Alle weiß ich auch nicht, aber bei sowas mach ich imemr einen Grobentwurf auf Papier. Da kann ich besser dran rumschmieren, etwas hinzukritzeln, wegstreichen, etc. Ist ne alte Marotte, so komm ich am Besten klar... Hat mich auch nur ne halbe Schachtel Zichten, 3 Bier und ne 3/4 Stunde Zeit gekostet. Wenn man allerdings auf Bier/h runterrechnet, würde das diesen Flüchtigkeitsfehler erklären

greetz
RW

Zitat

"Variant does not contain an Object"

was sagt der debugger dazu? An welcher Stelle bekomsmt du den Fehler?

Er findet entweder eine DB nicht (Dim dieseDB As New NotesDatabase("server", "DB.nsf") ist irgendwie nie "Nothing", auch wenn es die DB nicht gibt) oder eine Ansicht. Die Ansichten wurden ja nicht gecheckt (if view is nothing then ...).

Zitat

lodsnods schrieb:
Er findet entweder eine DB nicht (Dim dieseDB As New NotesDatabase("server", "DB.nsf") ist irgendwie nie "Nothing",

Ja, gut, ich hoffe mal, er hat die entsprechenden Angaben angepasst. Aus der Fehlermeldung ist ja zu schließen, dass er die Variablennamen beibehalten hat. Das ist soweit nicht weiter tragisch, aber der Rest möchte schon angepasst sein...

Zitat

auch wenn es die DB nicht gibt) oder eine Ansicht. Die Ansichten wurden ja nicht gecheckt (if view is nothing then ...).

stimmt, Fehlerbehandlung habe ich ganz bewusst nicht eingebaut. Dazu hatte ich keine Lust mehr, mir darum Gedanken zu machen. My bad!

Mal sehn, ob ich heute noch Zeit und Lust habe, das Teil zu überarbeiten. Kann ich aber nicht verpsrechen...

greetz
RW

... und ich finde echt super, wie Du uns hilfst :lol:.
Berichtest von einer Fehlermeldung und verschweigst uns diese :lol:

Da kann ich doch nur mals ins "Blaue" schießen und sagen, bau mal folgendes sinngemäß ein

Zitat

if docDieseDB.hasitem("KundenNr_Link") then
Set itemDieseDBDocLink = docDieseDB.GetFirstItem("KundenNr_Link")
else
Set itemDieseDBDocLink = docDieseDB.CreateRichtextItem("KundenNr_Link")
endif

Alles anzeigen