Domino 9 und frühere Versionen > ND8: Entwicklung

[solved] Copy Embedded Objektes aus RTF Feld aus DB in akt. Dok ohne Ed. Rechte

<< < (2/2)

MiPa:
Ich habe das ganze nun gelöst. Alle Inhalte bis auf das Body Feld vor dem Kopieren geschützt und dann mit Formelsprache umgesetzt:

Einfach aber es funktioniert wie gewünscht

Michael

--- Code: ---@Command( [EditGotoField] ; "Body" );
cAus := "Auswahl";
cAusTxt := "Bitte wählen Sie eine Vorlage aus";
cServer := @ServerName;
cDBName := "vorlagen2.nsf";
TBaustein := @PickList([Custom] : [Single] ; cServer : cDBName ; "($All)" ; cAus ; cAusTxt ; 4);
TBListe := @Trim(TBaustein);
@Command( [FileOpenDatabase]; cServer : cDBName; "($All2)";TBListe);
@PostedCommand([EditDocument]; "0");
@PostedCommand([EditCopy]);
@PostedCommand([FileCloseWindow]);
@PostedCommand([FileCloseWindow]);
@PostedCommand([EditPaste])

--- Ende Code ---

Peter Klett:
Danke für die Rückmeldung. Wichtig in einem Forum ist m.E. nicht nur, dass man selbst eine Lösung erhält, sondern auch, dass man diese (oder den Ansatz dazu) auch anderen Forumsteilnehmern zur Verfügung stellt.

Um den Ansatz mit der separaten Anzeigemaske zu realisieren, hätte es nur ein paar kleiner Änderungen in Deinem Script gebraucht. Hier der relevante Auszug:

Set templateDoc = dc.getFirstDocument
templateDoc.Form = "NameDerAnzeigemaske"   
Print "Gewählte Vorlage: "+templateDoc.subject(0)
   
Set currentUIDoc = ws.CurrentDocument
   
Set uidoc = ws.EditDocument(TrueFalse, templateDoc)
Call uidoc.GotoField("Body")
Call uidoc.SelectAll
uidoc.document.saveOptions = "0"
Call uidoc.Copy
Call uidoc.close
   
Call currentUIDoc.GotoField("Body")
Call currentUIDoc.Paste

Navigation

[0] Themen-Index

[*] Vorherige Sete