Doklink erzeugen klappt nicht!???ß

[masterste2000]

Hallo Zusammen,

ich erzeuge aus der einem Dokument in der Datenbank A ein neues Dokument in einer anderen Datenbank B. Das klappt auch!!!

Jetzt möchte ich gerne in dem Dokument in der Datenbank A ein DokLink erzeugen, welches auf das Dokument in der Datenbank B verlinkt.

Was jetzt nicht klappt ist, dass das Icon in dem Feld "VideoDatei" erzeugt wird, mit dem der Nutzer direkt zu dem Dokument in der Datenbank B gelangen kann.

uidoc / doc ist das Dokument in der Datenbank A
uidocVID / docVID ist das Dokument in der Datenbank B

VideoDatei ist das Feld im dem der DocLink eingefügt werden soll und vom Feldtyp "text"

dokID ist das Feld mit dem DocLink des Dokuments in der Datenbank B (hat den Vorgabewert "@DocumentUniqueID" )



Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" )

   Dim doc As NotesDocument
   Dim docVID As NotesDocument
   
   Call uidocVID.save
   
   Set docVID = uidocVID.document
   Set doc = uidoc.document   
   
   
   Call doc.ReplaceItemValue("VideoDatei",docVID.GetItemValue( "dokID" ))

   
   
End Sub

 

[Johnson]

Ich bin mir nicht 100%ig sicher, aber das, was du gemacht hast, geht glaube ich nur wenn sich das verlinkte Dokument in der gleichen Datenbank befindet.

Ist ja eigentlich auch logisch. Denn es fehlen die Informationen wo sich die Datenbank befindet, die das verlinkte Dokument beinhaltet. Also allein die Universal ID wird nicht ausreichen.

Du musst wohl oder übel einen richtigen DocLink erzeugen.
Oder du schreibst eine Notes-URL zu dem zu verlinkenden Dokument in ein Feld (z.B. VideoDateiURL) die du mit einem Hotspot und der Formel @URLOpen aufrufen kannst.

[ascabg]

Hallo,

Ein Dok-Link wird hier aus meiner Sicht nicht erzeugt.

Ich wuerde mir mal die Klasse NotesRichTextItem mit all seinen Methoden ansehen.


Andreas

[masterste2000]

Danke, wenn ich jetzt mal den Versuch mit notesrichtextitem starte,
bekomme ich folgende Fehlermeldung:

Couldn't get default View id for Database (Datenbank A) !!!??



Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" )

   Dim doc As NotesDocument
   Dim docVID As NotesDocument

     Set docVID = uidocVID.document
   Set doc = uidoc.document   
   Dim rt As NotesRichTextItem
   Set rt = New notesrichtextitem(docVID, "dokID")
   
   Call rt.AppendDocLink( doc, "" )
   
   
End Sub

[Axel]

...bekomme ich folgende Fehlermeldung:

Couldn't get default View id for Database (Datenbank A) !!!??

Die Fehlermeldung beinhaltet auch schon die Lösung.

... Couldn't get default view...

Du musst eine Ansicht in der Datenbank zur Default View (dt. Vorgabeansicht) machen.

Axel

[masterste2000]

Habe gerade eine Ansicht als Default gesetzt, hat aber auch nichts gebracht!

Ich möchte doch nur ein Doclink auf das neue Dokument in der Datenbank B in das Dokument der Datenbank A erzeugen!

Hat denn keiner ein Tip wo ich  mit Skript da ansetzen kann!!!


VIELEN DANK!!!!!!!


 

[ascabg]

Frage falsch gestellt.

In welcher DB hast Du die Standardansicht erstellt?
Was funktioniert jetzt immer noch nicht?


Andreas

[Axel]

Habe gerade eine Ansicht als Default gesetzt, hat aber auch nichts gebracht!

Was heisst das?

Axel

[masterste2000]

Ok, dann fang ich noch weiter vorne an.

Das Skript wird über ein Schaltfläche startet aus dem Dokument A gestartet.

Über das Skript wird in der anderen Datenbank B ein weiteres Dokument erzeugt.

Das erzeugte Dokument soll über das Dokument in der ersten Datenbank A, über ein Doclink geöffnet  werden.




P.S. Habe auf beiden Seiten (Datenbank A und B) eine Ansicht als default gesetzt!
       Jetzt wird der Fehler nicht mehr angezeigt, aber es wird auch nicht der Doklink in das Feld "VideoAblage" im Dokument der Datenbank A eingefügt!!??

[ascabg]

Zum einen das Feld "Videoablage" sehe ich nicht.
Mit Deinem Script wuerde er einen Dok-Link auf das aktuell geoeffnete Dokument im neu erstellten Dokument erzeugen.

Dieser wuerde in dem Feld "dokID" erstellt werden.

Wen nich Deinen Ausfuehrungen nun folge, so wie ich es verstehe, moechtest Du aber einen Dok-Link auf das neu erstellte Dokument im aktuellen Dokument erstellen.

Das funktioniert aber nur, wenn Du Dein neu erstelltes Dokument speicherst und dann den Dok-Link erstellst.

In dem Fall muesste die Schreibweise folgende sein:

Code

Set rt = New NotesRichTextItem(doc, "RTFeld")
Call rt.AppendDocLink(docVID, "Das ist der Link auf das neu erstellte Dokument")

Und die Standardansicht muss in der Db vorhanden sein, in der sich das Dokument befindet, auf welches der Dok-Link verweist.


Andreas

[masterste2000]

Vielen Dank Andreas.

Habe das Skript jetzt mal angepasst, doch es wird weiterhin in dem Feld "Videodatei" kein DocLink eingefügt!

Vieleicht habe ich ja was übersehen?!

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" ) 'Neues Dok in der DB B erstellen

   Dim doc As NotesDocument
   Dim docVID As NotesDocument
   
   Call uidocVID.save ' Speichern des Doks in der DB B
   
   Set docVID = uidocVID.document
   Set doc = uidoc.document   

   Dim rt As NotesRichTextItem
   Set rt = New notesrichtextitem(doc, "VideoDatei")
   
   Call rt.AppendDocLink( docVID, "Link auf das Videodokument in der DB B" )
   
End Sub

[DerAndre]

Nach Doc zu und auf auch nicht?

Wir hantieren mit einem RTF und das zeigt eigentlich erst nach dem schliessen und wieder öffnen seinen wahren Inhalt an.

[masterste2000]

 Hi Andre,

auch das Abspeichern des Dok's in der DB A hat nichts gebracht! 

Normalerweise sollte doch das Symbol für den DokLink im Feld "VideoDatei" vom Typ Text angezeigt.

Dieses wird, wie schon gesagt, auch nicht nach dem speichern angezeigt!

Hat das noch keiner Mal an einer anderen Stelle schon mal benutzt!

Ich hoffe es findet sich noch jemand mir evtl. mit seinem Skript unter die Arme greifen kann.

Gruß
Stephan

[ascabg]

Frage.

Das Feld "ViedeoDatei" ist in der Maske vorhanden?
Hat es wirklich den Feldtyp "Text"?

Wenn ja, dann kann Dein DokLink auch nicht funktionieren.

Mit Deinem Code erzeugts Du nur ein weiteres Feld mit dem Name "VideoDatei", welches in Deiner Maske dann aber nicht angezeigt wird. (auch nach dem Speichern des Dokumentes, dem anschliessenden Schliessen des Dokumentes und dem erneuten oeffnen des Dokumentes.

Code

   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   Dim rt As Variant

   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" ) 'Neues Dok in der DB B erstellen

   Dim doc As NotesDocument
   Dim docVID As NotesDocument
   
   Call uidocVID.save ' Speichern des Doks in der DB B
   
   Set docVID = uidocVID.document
   Set doc = uidoc.document   

   Set rt = doc.GetItemValue("VideoDatei")
   If Not rt Is Nothing Then
     Call rt.AppendDocLink(docVID, "Link zum Dok in Db B")
   End If

Andreas

[DerAndre]

Das Frontend brauch ein Feld vom Typ Richtext!

[masterste2000]

Danke!!!

Das Dokument im Backend wird gespeichert und hat auch den DokLink!!!! Vielen Dank 

Ziel sollte es aber sein, dass es im Frontend sichtbar / eingefügt wird!

Besteht jetzt noch die Möglichkeit das das Feld VideoDatei aus dem Backend in das Feld Videodatei des Frontend zu kopieren?


Gruß
Stephan

[ascabg]

Nein.

Du musst das Dokument aus dem Frontend speichern, schliessen und neu oeffnen.


Andreas

[DerAndre]

Ich würde mich nochmal eingehend mit Frontend und Backend beschäftigen.

Was Andreas geschrieben hat, ist auch hier im Forum vorhanden.

[Axel]

Du willst hier im Forum mal nach ReOpen suchen.

Axel

[Johnson]

Ein Dokument muss nicht unbedingt gespeichert werden, nur um ein RT-Item zu aktualisieren: s. hier
Ein einfaches Schließen und Öffnen reicht.