Domino 9 und frühere Versionen > ND6: Entwicklung

Dokumentverknüpfung in ein Dokument einfügen

<< < (2/3) > >>

diwi:


--- Zitat von: Glombi am 22.11.10 - 10:28:01 ---Dann gehts nur mit Formelsprache.

Die relevanten Befehle sind @Command( [EditMakeDocLink] )  und @Command( [EditPaste] )

Andreas

--- Ende Zitat ---

Habe das das wie folgt versucht:
@Command([FileOpenDatabase];@ServerName:"testrun.nsf";"ALLStatus";@Text(TestRunNo);"0";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@Command([EditGotoField];"verknuepfung");
@Command([EditPaste]);
Das funktioniert aber leider nich ganz ... da er das @Command([EditGotoField];"verknuepfung") in der View der anderen DB auszuführen versucht und dem entsprechend einen Fehler bringt.  ???


--- Zitat von: Peter Klett am 22.11.10 - 10:28:17 ---Such mal hier im Forum. Bernhard (koehlerbv) hat hier mal was geschrieben, wie man einen Dateianhang mittels Profildokument sofort sichtbar einfügen kann, gleiches wird auch mit Links funktionieren

--- Ende Zitat ---

Hmm ... finde den Beitrag leider nicht.  :-:
Kannst du mir da bitte noch auf die Sprünge helfen?


Danke

Gruß

Dimitri

Peter Klett:
Hier ist das Thema mal angerissen. Falls Du damit nicht klar kommst, nochmal nachfragen

http://atnotes.de/index.php/topic,50061.msg321682.html#msg321682

diwi:
Sooo...

ich habe das jetzt so gelöst:

@For(n:=1; n<=@Elements(TestRunNo); n:=n+1;
@PostedCommand([FileOpenDatabase];@ServerName:"testrun.nsf";"ALLStatus";@Text(TestRunNo);"0";"1");
@PostedCommand([EditMakeDocLink]);
@PostedCommand([FileCloseWindow]);
@PostedCommand([EditGotoField];"verknuepfung");
@PostedCommand([EditInsertText]; @Text(TestRunNo[n]));
@PostedCommand([EditPaste]);
@PostedCommand([EditInsertText]; @NewLine))

Das scheint auch ganz gut zu funktionieren, bis auf eine Kleinigkeit und zwar:
Das @PostedCommand([EditInsertText]; @NewLine) wird scheinbar vor dem @PostedCommand([EditPaste]); ausgeführt. Zumindest kommt nach dem eingefügten Text zuerst ein Zeilenumbruch und dann erst die Verknüpfung.

Kann man das noch irgendwie unterbinden bzw. steuern?

Gruß

Dimitri

diwi:

--- Zitat von: diwi am 25.11.10 - 09:52:21 ---Sooo...

ich habe das jetzt so gelöst:

@For(n:=1; n<=@Elements(TestRunNo); n:=n+1;
@PostedCommand([FileOpenDatabase];@ServerName:"testrun.nsf";"ALLStatus";@Text(TestRunNo);"0";"1");
@PostedCommand([EditMakeDocLink]);
@PostedCommand([FileCloseWindow]);
@PostedCommand([EditGotoField];"verknuepfung");
@PostedCommand([EditInsertText]; @Text(TestRunNo[n]));
@PostedCommand([EditPaste]);
@PostedCommand([EditInsertText]; @NewLine))

Das scheint auch ganz gut zu funktionieren, bis auf eine Kleinigkeit und zwar:
Das @PostedCommand([EditInsertText]; @NewLine) wird scheinbar vor dem @PostedCommand([EditPaste]); ausgeführt. Zumindest kommt nach dem eingefügten Text zuerst ein Zeilenumbruch und dann erst die Verknüpfung.

Kann man das noch irgendwie unterbinden bzw. steuern?

Gruß

Dimitri


--- Ende Zitat ---

Da darauf bis jetzt niemand geantwortet hat gehe ich davon aus dass man das leider nicht beeinflussen kann. :(

Dann noch mal auf Script zurück ... habe das oben aufgeführte Script etwas abgeändert, was so aussieht:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace   
   Dim db1 As NotesDatabase
   Dim rtitem As NotesRichTextItem
   Dim doc As NotesDocument
   Dim currDoc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set db1 = New NotesDatabase(db.Server, "testrun.nsf")   
   Set currDoc = ws.CurrentDocument.Document
   Set rtitem = New NotesRichTextItem( currDoc, "verknuepfung" )
   
   Forall x In currDoc.GetItemValue("Ref")
      Set doc = db1.GetDocumentByUNID(x)
      Call rtitem.AppendText(doc.No(0))
      Call rtitem.AppendText("-")
      Call rtitem.AppendText(Cstr(doc.Version(0)))
      Call rtitem.AppendDocLink( doc, doc.No(0))
      Call rtitem.AddNewline(1)
   End Forall
   
   Call currDoc.Save(True, True)
   Call ws.CurrentDocument.Close(True)
   Call ws.EditDocument(True, currDoc, False)
End Sub

So weit so gut, nur gibt es da auch noch einen kleinen Malus. Und zwar kommt der Speichern Dialog wenn ich das Dokument schließe.  :(

Kann man den irgendwie unterdrücken oder ohne Useraktion mit "Nein" beantworten?

Gruß

Dimitri

klaussal:

--- Code: ---Kann man das noch irgendwie unterbinden bzw. steuern?

--- Ende Code ---

Du möchtest Dich mit dem Thema "Feld SaveOptions" bzw. mit "Tabelle der Felder zum Steuern von Mailoptionen" befassen.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete