Hallo zusammen,

ich habe eine Ansicht Routenplaner aus der hier Daten von der Tabelle Turnusdaten heran gezogen werden dann über API sortiert und die Routentermine zurückgeschrieben werden in Turnusdaten.

Beim zurückschreiben der Daten in die Turnusdatentabelle soll nun auch gleich in der Tabelle Aufträge ein "Auftrag"  generiert werden der wiederum mit dem Aktuellen Datensatz der Turnusdaten verknüpf wird.

ALLE 3 Tabellen sind eigenständig und keine Untertabellen

Aktuell mache ich den Auftrag über einen Botton in der Turnusdaten Tabelle aber es soll jetzt automatisch beim erstellen des Termines über den Routenplaner schon geschrieben werden:

Hier der Auszug aus dem Routenplanung in dem die Daten über API zurück geschrieben werden in die Turnusdaten:

let res := do as server
            http("GET", targetUrl, Header, null)
        end;
    let ReNr := 0;
    let Tournummer := MRtid;
    for i in res.result.tour.waypoints do
        ReNr := ReNr + 1;
        let vn := i.uid;
        let adressExistent := (select Turnusdaten where Nr = vn);
        if adressExistent then
            adressExistent.adressExistent.('Längengrad' := i.coordinate.lon);
            adressExistent.(Breitengrad := i.coordinate.lat);
            adressExistent.('Multirout Termin' := i.times.ankunft_kunde);
            adressExistent.(tid := Tournummer);
            adressExistent.(Zeit_vor_Ort := time(i.times.duration_of_stay) * 60000);
            adressExistent.('Zeit Wegstrecke' := time(i.driving_time) * 1000);
            AbfahtrtszeitTest := AbfahtrtszeitTest + time(adressExistent.'Zeit Wegstrecke');
            AbfahtrtszeitTest := AbfahtrtszeitTest + time(adressExistent.Zeit_vor_Ort);
            adressExistent.(Reihenfolge := ReNr);
            adressExistent.(Wegstrecke := i.distance);
            adressExistent.(arrival := i.times.arrival);
            adressExistent.('Multirout Termin' := i.times.arrival);
            adressExistent.(departure := i.times.departure);
            adressExistent.(Routenplanung := false)

       "// Hier jetzt den Auftrag erstellen zu dem aktuellen adressExistent//"

        end
    end;

hier jetzt der Code für das erzeugen des Auftrages, der über den Button in der Turnusdaten Tabelle ausgelöst wird. Dies müsste jetzt oben integriert werden:

let my := this;
my.(Beauftragung := 1);
my.('Auftrag angelegt' := 1);
let new := (create 'Aufträge');
new.(Turnusdaten := my);
new.(Vorname := my.AO_Vorname);
new.(Nachname := my.AO_Nachname);
new.('Straße' := my.AO_Strasse);
if not my.AO_Hauszusatz then
    new.(Hausnummer := my.AO_Hausnummer)
else
    new.(Hausnummer := my.AO_Hausnummer + " / " + my.AO_Hauszusatz)
end;
new.(PLZ := my.AO_PLZ);
new.(Ort := my.AO_Ort);
new.(Rohrnetzbezirk := my.AO_Bezirk);
new.(Breitengrad := my.Breitengrad);
new.('Längengrad' := my.'Längengrad');
new.('Zähler' := my.'Zählernummer');
new.('Zählerplatz' := my.'Zählerplatz');
new.('Zählerplatz' := my.'Zählerplatz');
new.('Info zum Auftrag:' := my.Info);

Gruß

Andreas