Universal-ID als Link-Symbol anzeigen

[TMC]

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

[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

[ata]

... mit @Command([Compose] ; ... ) kannst du den Link übernehmen, ansonsten bleibt dir mit Richtextfeldern zu arbeiten...

ata

[TMC]

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

[ata]

... 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

[TMC]

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

[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

[g202e]

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.  

[TMC]

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

[TMC]

Kommando zurück !

Klappt doch  

Hatte nicht das richtige RT-Feld angegeben

Jedenfalls merci nochmal!

bye,
TMC