Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: TMC am 08.09.03 - 18:51:03
-
Hi,
ich kopiere ein Doc und setze in ein Textfeld die UniversalID:
Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Dim unid As String
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
'erstelle Kopie des Docs
Set newdoc = doc.CopyToDatabase( db )
'hole UNID aus altem Doc
unid = doc.UniversalID
'setze UNID des alten Docs in neues Doc
newdoc.IDapproved = unid
Call newdoc.save(False, False)
End Sub
Wenn ich nun die Kopie öffne, erscheint die ID als Text, ich hätte aber gerne ein gelbes Link-Symbol.
Wie mach ich das?
Gruss
TMC
-
** Nachtrag **
Hab auch schon "Berechnet beim Anzeigen", als RTF, etc. getestet, leider ohne Erfolg :-(
Afaik mit Formelsprache ist es ja umgekehrt: ein @DocumentUniversalID zeigt per Default immer den Link an, nur ein @Text(..) die ID als Text.
TMC
-
... mit @Command([Compose] ; ... ) kannst du den Link übernehmen, ansonsten bleibt dir mit Richtextfeldern zu arbeiten...
ata
-
Hi Ata,
ansonsten bleibt dir mit Richtextfeldern zu arbeiten...
Und wie mach ich das im RTF?
Wie gesagt, ich hab da ein Textfeld und darin steht die 32stellige ID.
Und die möchte ich im als Link anzeigen, aber ich weiss nicht wie.....
Gerne auch ein Workaround (Hotspot o-ä.), muss nicht unbedingt das gelbe Icon sein :-)
TMC
-
... schau mal unter NotesEmbeddedObject und NotesRichTextItem in der Hilfe - dort findest im Beispiel den kompletten Code zum erstelllen von DocLinks anhand einer DocUNID - wenn du nicht weiterkommst, dann melde dich nochmal...
ata
-
Ok danke. Schau ich mir an.
Ich hatte halt auf einen @TextToLink oder so gehofft :-)
Na ja, jetzt bin ich mir jedenfalls sicher, dass es so einfach nicht geht und ich einen Workaround brauche..
cu,
TMC
-
Hi again,
leider bekomme ich die Fehlermeldung "Couldn't get default view id for database..."
(...)
'setze UNID des alten Docs in Feld "IDapproved" im neuen Doc
newdoc.IDapproved = unid
Dim rtitem As NotesRichTextitem
Set rtitem = New NotesRichTextItem( newdoc, "DocLinkApproved" )
Dim linkdoctest As NotesDocument
Set linkdoctest = db.GetDocumentByUNID(unid)
Call rtitem.AppendDocLink(linkdoctest,"Link zur Mutter")
Hab schon diverses getestet: die "unid", die ja als String definitiv vorhanden ist, direkt reinschreiben in AppendDocLink ist auch nicht zulässig.....
TMC
-
Die Fehlermeldung ist "ein wenig" missverständlich.
Man will dir mitteilen, dass in deiner DB keine Ansicht als "default beim ersten Öffnen der Datenbank" eingestellt ist. Dies ist für manche Funktionen einfach erforderlich.
Also:Open a view design element and select "Default when database is first opened" from the Info tab of the view properties dialog. ;D
-
OK, danke schonmal !
Jetzt ist die Fehlermeldung weg :)
Nur mein RT-Feld bleibt leer >:(
Egal ob ich es berechnet oder bearbeitbar mache.....
Ich teste jetzt nochmal weiter....
TMC
-
Kommando zurück !
Klappt doch ;D
Hatte nicht das richtige RT-Feld angegeben :o
Jedenfalls merci nochmal!
bye,
TMC