der Titel oder Alias würde auch funktionieren. Aber wie kann ich diesen mit @Funktionen oder Befehlen ermitteln?
Der Code soll aus der Symbolleiste heraus auf alle Datenbanken laufen.
Danke und Gruß
Dirk
der Titel oder Alias würde auch funktionieren. Aber wie kann ich diesen mit @Funktionen oder Befehlen ermitteln?
Der Code soll aus der Symbolleiste heraus auf alle Datenbanken laufen.
Danke und Gruß
Dirk
In einem Button in der Toolbar funktioniert das mit @ViewTitle anstelle der 0
Hier noch die Version um dein Problem mit der View zu erledigen
Beachte aber das diese Variante des Kopierens nur funktioniert, wenn es auch möglich ist eine Mail zu erstellen.
Also wenn der User im Netz ist oder wenn nicht eine lokale Replik hat.
@Command([EditMakeDocLink]);
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@Command([EditGotoField]; "Subject");
@Command([EditPaste]);
elements := @Explode(Subject; "<");
replica := @Left(@Right(elements[3] ; "REPLICA ");">");
view := @Left(@Right(elements[4] ; "VIEW ");">");
docid := @Left(@Right(elements[5] ; "NOTE ");">");
server := @Right(elements[6] ; "HINT>");
uri := "notes://" + server + "/" + replica + "/" + view + "/" + docid;
@Command([EditGotoField]; "Subject");
@Command([EditSelectAll]);
@Command([EditInsertText];uri);
@Command([EditSelectAll]);
@Command([EditCopy]);
@SetField("MailSaveOptions";@DeleteField);
@SetField("SaveOptions";"0");
@SetField("MailOptions";"0");
@Command([FileCloseWindow])
Alles anzeigen
super - habe noch die Formatierung der IDs und des Servernamen angepasst.
tr := "/";
@Command([EditMakeDocLink]);
@Command([MailComposeMemo]);
@UpdateFormulaContext;
@Command([EditGotoField]; "Subject");
@Command([EditPaste]);
elements := @Explode(Subject; "<");
replica := @ReplaceSubstring(@Left(@Right(elements[3] ; "REPLICA ");">");":";"");
view := @ReplaceSubstring(@Left(@Right(elements[4] ; "VIEW ");">");":" : "-": "ON" : "OF" ; "");
docid := @ReplaceSubstring(@Left(@Right(elements[5] ; "NOTE ");">");":" : "-" : "ON" : "OF" ; "");
server := @Name([CN];@Right(elements[6] ; "HINT>"));
uri := "notes:" + tr + tr + server + tr + replica + tr + view + tr + docid;
@Command([EditGotoField]; "Subject");
@Command([EditSelectAll]);
@Command([EditInsertText];uri);
@Command([EditSelectAll]);
@Command([EditCopy]);
@SetField("MailSaveOptions";@DeleteField);
@SetField("SaveOptions";"0");
@SetField("MailOptions";"0");
@Command([FileCloseWindow])
Alles anzeigen
@edit
Fehler in der View- und Doc-ID behoben
Zeilen:
view := @ReplaceSubstring(@Left(@Right(elements[4] ; "VIEW ");">");":" : "-": "ON" : "OF" ; "");
docid := @ReplaceSubstring(@Left(@Right(elements[5] ; "NOTE ");">");":" : "-" : "ON" : "OF" ; "");