Hallo Michael,

wie genau funktioniert denn die Wiedervorlage? Du füllst einzelne Felder aus einem Musterdatensatz per Befehl aus? Kannst Du nicht einfach den Musterdatensatz kopieren per Befehl? So mache ich das z.B. in unserem Schulungsmodul. Dort habe ich eine art Übersichtsdaschboard und ein Dynamisches Auswahlfeld in dem ich die Vorlage auswählen kann. Per Button wird dann der Vorlagedatensatz kopiert, geöffnet und Umbenannt und die Verknüfungen zu z.B. den Mitarbeitern der Abteilung bleibt bestehen. bzw. der kopiert auch die verknüpften Datensätze in der Untertabelle und Verknüpft diese mit dem Datensatz. Oder verstehe ich dich falsch?

lg

Hallo Michael,

ich habe mir hier 2 extra Tabellen erstellt. Eine als "Zwischenspeicher" für Terminvorlagen die andere ist die Tabelle für die sofortige sendung und bearbeitung. Basieren tut das ganze über sichtbarkeitsregelungen nach rollen. (Empfängerauswahl) In der Tabelle wiedervorlagen ist dann der eigentliche Datensatz um den es geht wieder sichtbar. Verknüpfung Anzeigen als Eingebettet.

erstellen der vorlage:

if dialog("Wiedervorlage senden für den" + " " + 'Sendedatum wählen' + " " + "?", "bitte mit Ja bestätigen um Vorlage zu senden", ["Ja", "Nein"]) = "Ja" then
let me := this;
let dat := now();
let user := userName();
let text := 'Vorlagentext eingeben';
let KV := 'KV-Nr.';
let Nam := Name;
let Vor := Vorname;
let rol := 'Text für Rollen';
let send := 'Sendedatum wählen';
let myR := (create 'Zwischenspeicher Wiedervorlagen');
myR.('Vorlage vom' := dat);
myR.('gesendet von' := user);
myR.('zu KV' := KV + " / " + Nam + " / " + Vor);
myR.(Vorlagentext := text);
myR.('Aufträge' := me);
myR.('Text für Rollen' := rol);
myR.(Sendedatum := send);
'Vorlagentext eingeben' := null;
'Empfänger auswählen' := null;
'Empfänger wählen' := null;
'Empfänger' := null;
'Bitte Empfänger wählen' := null;
Sendeart := null;
'Sendedatum wählen' := null;
closeRecord()
else
'Vorlagentext eingeben' := null;
'Empfänger auswählen' := null;
'Empfänger wählen' := null;
'Empfänger' := null;
'Bitte Empfänger wählen' := null;
Sendeart := null;
'Sendedatum wählen' := null;
closeRecord()
end

Terminvorlage senden aus "Zwischenspeicher" (Globale funktion bei öffnen)

let myR := (select 'Zwischenspeicher Wiedervorlagen');
myR[Sendedatum = today()].(
let me := this;
let aus := 'Aufträge';
let dat := now();
let user := 'gesendet von';
let text := Vorlagentext;
let KV := 'Aufträge'.'KV-Nr.';
let Nam := 'Aufträge'.Name;
let Vor := 'Aufträge'.Vorname;
let rol := 'Text für Rollen';
let myR := (create Wiedervorlagen);
myR.('Vorlage vom' := dat);
myR.('gesendet von' := user);
myR.('zu KV' := KV + " / " + Nam + " / " + Vor);
myR.(Vorlagentext := text);
myR.('Aufträge' := aus);
myR.('Text für Rollen' := rol);
let myB := (create Historie);
myB.('Änderungsdatum' := dat);
myB.(Benutzer := user);
myB.('Aktion oder Info text eingeben' := text);
myB.('Aufträge' := aus);
delete me
)

Anzeige für benutzer das eine neue Vorlage vorhanden ist:

function getWarning(MESSAGE : text) do
let myCSS := "bll {
border-radius: 0.2em;
padding: 0.2em;
animation-name: animation_blink;
animation-timing-function: ease-in;
animation-duration: 2s;
animation-iteration-count: 20;
animation-fill-mode: both;
}
@keyframes animation_blink {
0% {
background-color: yellow;
}
50% {
background-color: red;
}
100% {
background-color: yellow;
}
}";
let myHTML := "<p><bll>" + MESSAGE + "</bll></p>";
html("<style>" + myCSS + "</style>" + myHTML)
end;
for i in select Wiedervorlagen where gelesen = false and ['Text für Rollen' = userRole() or userHasRole("admin")] do
i.getWarning("** Neue Wiedervorlage erhalten ** ")
end

So sollte eigentlich immer auch der verknüpfte satz in der Untertabelle angesprochen werden, da sich ja alles auf verknüpungen bezieht