Domino 9 und frühere Versionen > Entwicklung

Universal-ID als Link-Symbol anzeigen

(1/2) > >>

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,


--- Zitat ---ansonsten bleibt dir mit Richtextfeldern zu arbeiten...

--- Ende Zitat ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite