Domino 9 und frühere Versionen > ND7: Entwicklung

appenddoclink in einem NotesUiDocument möglich ????

(1/2) > >>

Scotty67:
Zunächst einmal ein herzliches Hallo an die bestehende Community. :)
Ein deutschsparchig geführtes Forum mit geballtem Content - das gefällt mir ! Hier bleib ich  :D

Vielleicht kann mir jemand bei dieser Problemstellung helfen.

Ich öffene ein Dokument aus einer Datenbank und möchte über einen Button ein neues Dokument anlegen (anderer Formulartyp)...und jetzt kommt's - ich möchte in dieses neu erzeugte Dokument den DocLink von dem zuvor-geöffeneten Dokument übernehmen und dieses Link im neuen Dokument hinterlegen - so dass  man jederzeit auf dieses "Basis-Dokument" zurückkehren kann. Ich meine eine simple Sache - aber ich bin jetzt schon total verzweifelt - kostet mich schon fast 2 Tage - ich check's einfach nicht.


Hier der Action Button Code der das neue Dokument erzeugt. Ich hab schon alles propiert puncto AppendDocLink daher erspare ich euch mein vermurkstes Coding. Also hier einfach nur die Ausgangssituation für das neue Dokument im dem der Link abgelegt werden soll. Am neuen Form ist ein RichTextField namens "DcLink" hinterlegt.

Ich bin eher Admin als Designer - tu mir einfach ein wenig schwer mit dem programmieren - aber es bleibt mir nichts erspart.. :P

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim uinewdoc As  NotesUIDocument
   Dim doc As NotesDocument
   Set uidoc = workspace.CurrentDocument
   
   
   Call workspace.EditDocument( True )
   Set uinewdoc = workspace.ComposeDocument( "", "", "SMDoing" )
   
.....

LG/Hannes

ascabg:
Hallo und Willkommen,

Kleine Frage.
Wo befindet sich der Button? (in einer Ansicht oder im Dokument)


--- Code: ---Dim uiws As New NotesUIWorkspace
Dim uidocCur As NotesUIDocument
Dim uidocNew As NotesUIDocument
Dim docCur As NotesDocument
Dim docNew As NotesDocument
Dim rtLink As NotesRichTextItem

Set uidocCur = uiws.CurrentDocument
Set docCur = uidocCur.Document

Set docNew = New NotesDocument(docCur.ParentDatabase)
docNew.Form = "Dein Maskenname"

Set rtLink = New NotesRichTextItem(docNew, "DcLink")
Call rtLink.AppendDocLink(docCur, "Link zur Source", "")

Set uidocNew = uiws.EditDocument(True, docNew)

--- Ende Code ---

Beispiel ist ohne Fehlerbehandlung und unter der Voraussetzung, dass der Button sich im Dokument bzw. in der ActionBar des aktuellen Dokumentes befindet.

Andreas

Scotty67:
Hallo Andreas !

Danke fürs Willkommen !  :D
Der Action-Bar-Button wird sichtbar sobald man das Dokument öffnet.
Hab in einm Schnellverfahren deine Code in einen neuen ABB(action-bar-button) übernommen.
den docNew.Form Namen hinterlegt.

Das Dokument wird erzeugt - aber im RT-Field "DcLink" kommt nix an - kein Doclink zu sehen.
Was mache ich noch falsch ? Sind an dieses RT-Field bestimmte Anforderungen gestellt ?

LG/Hannes

DerAndre:
Hi Hannes.

Such bitte mal nach AppdDocLink, nimm Dir eine große Tasse Kaffee oder Tee einen Kuchen Deiner Wahl und amüsier Dich mit den Threads zum Thema RTI.
Als kleiner Tipp, such auch noch nach 'reopen'.
Um es mit Bernhards Worten zu sagen, ein Problem seit Notes 4.6

TRO:
aus den hintersten Winkeln meines Gedächtnisses und völlig ungetestet:

In der Maske für den neuen Formulartyp ein sichtbares Text-Feld vom Typ ComputedWhenComposed einbauen. Formel dafür: @InheritedDocumentID. Die Maske muss natürlich auch das Häkchen bei "Felder übernehmen Werte ...." gesetzt haben.


hth

Thomas

Navigation

[0] Themen-Index

[#] Nächste Seite