Domino 9 und frühere Versionen > ND6: Entwicklung

Dokumentverknüpfung

(1/2) > >>

heidiweber:
Hallo

ich habe ein Dokument A. Auf diesem Dokument befindet sich ein Button, der ein neues Dokument B öffnet. Auf dem Dokument B ist ein verstecktes Feld, in  dem sich die UniversalID befindet. Jetzt möchte ich im Dokument B einen Button erzeigen, der einen Link zum Dokument A (eben mit dieser UniversalID) enthält. Wie kann man sowas machen?

Vielen Dank
cu
Heidi

koehlerbv:
Einen Button (im Sinne, wie das von Notes begrifflich verwendet wird) kannst Du nicht mit Bordmitteln erzeugen, wohl aber einen DocumentLink.
Das einfachste Verfahren wäre NotesRichTextItem.AppendDocLink, welches Du beim Erstellen von Doc B ausführst.
Ist Doc B ein Antwortdokument, wird es ganz einfach: Du brauchst im Feld für den Link nur auf das Item $Ref verweisen.
Ansonsten: Mehr Input, mehr Output.

Bernhard

heidiweber:
Guten Morgen,

ich habe ein Dokument A. Auf diesem Dokument befindet sich ein Button, der ein neues Dokument B öffnet. Übergeben wird an Dokument B die UniversalID des Dokuments A. Jetzt befindet sich in B in einem versteckten Feld (AntragID) die UniversalID des Dokuments A.

Auf B befindet sich ein Button (der soll nicht erzeugt werden). Klickt man den, soll Dokument A geöffnet werden. Ich meine keinen "Zurück"-Button - sondern es soll sich ganz normal Dokument A öffnen.
 
Ich habe das z.B. so probiert:
@Command([OpenDocument];0;$AntragID)

Als Fehlermeldung kommt:
angegebener Befehl kann nicht ausgeführt werden.

Vielen Dank
cu
Heidi

klaussal:
Aus der Hilfe:


--- Zitat ---Verwendung
In einer Datenbank muss eine Ansicht geöffnet sein, die das Dokument enthält, das Sie öffnen möchten.
--- Ende Zitat ---

Axel:
Mach doch das Ganze mit Script.

Beispielcode für einen Button innerhalb der Maske für Dokument B:


--- Code: ---...
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docA As NotesDocument
Dim uidoc As NotesUIDocument
Dim uidocA As NotesUIDocument

Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

Set docA = db.GetDocumentByUNID(doc.FeldmitUNIDvonDokumentA(0))
If docA Is Nothing Then
  Messagebox "Dokument nicht gefunden"
Else
  Set uidocA = workspace.Editdocument(False, docA)
End If
...

--- Ende Code ---


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite