0

Daten von einer Tabelle in eine andere Tabelle kopieren

Ich versuche schon seit einiger Zeit aus eine Tabelle mit Stammdaten per Button in eine Tabelle die monatlich mit den selben Daten jedoch angepassten Beträgen sowie Monat und Jahr erstellen!

let j := toInteger(input("Bitte Jahr eingeben:", "YYYY"));
let m := toInteger(input("Bitte Monat eingeben (1-12):", "MM"));

let daten := select Haushaltsbuch where Jahr = j and Monat = m;

for d in daten do

let existiert := select Fixkostenlfd 
                     where Jahr = d.Jahr 
                     and Monat = d.Monat 
                     and Buchungstag = d.Buchungstag 
                     and Betrag = d.Betrag 
                     and Buchungstext = d.Buchungstext;

    if count(existiert) = 0 then
        create Fixkostenlfd with {
            Jahr: d.Jahr,
            Monat: d.Monat,
            Buchungstag: d.Buchungstag,
            Betrag: d.Betrag,
            Buchungstext: d.Buchungstext
        }
    end
end

alert("Übertragung abgeschlossen!");

wo habe ich hier etwas falsch gemacht bzw. bin ich mit den Script komplett falsch! Danke im Voraus.

1 Antwort

null
    • Gronau_Ludwig
    • vor 8 Tagen
    • Gemeldet - anzeigen

    Danke, habe es selber geschafft 🙂

    Das ist daß Ergebnis!

    let j := this.Jahr;
    let m := this.Monat;
    if j = null or m = null then
        alert("Bitte Jahr und Monat eintragen!")
    else
        let daten := (select FixkostenMon where Jahr = j and Monat = m);
        alert("Gefundene Datensätze: " + text(count(daten)));
        let neu := 0;
        for d in daten do
            let duplikat := (select Ausgaben
                    where Jahr = d.Jahr and Monat = d.Monat and Buchungstag = d.Buchungstag and
                            Betrag = d.Betrag and
                        Buchungstext = d.Buchungstext and
                    Kostenstelle = d.Kostenstelle);
            if count(duplikat) = 0 then
                let r := (create Ausgaben);
                r.(Buchungstag := d.Buchungstag);
                r.(Betrag := d.Betrag);
                r.(Buchungstext := d.Buchungstext);
                r.(Kostenstelle := d.Kostenstelle);
                neu := neu + 1
            end
        end;
        alert("Übertragung abgeschlossen. Neu erstellt: " + text(neu))
    end
     

Anmelden, um zu antworten

Content aside

  • vor 8 TagenZuletzt aktiv
  • 1Antworten
  • 39Ansichten
  • 2 Folge bereits