Hallo liebe Ninox-Gemeinde,

ich habe ein Rechnungseingangsbuch erstellt, um eingehende Rechnungen zu vewalten. Um mir die Arbeit für immer wiederkehrende Rechnungen zu erleichtern, habe ich eine Vorlage erstellt, die ich  per Klick auf einen Button dupliziere:

let myMonat := Rechnungsmonat;
let Zaehler := 0;
let RechSum := 0;
let myRJ := Jahr;
let myRM := number(Monat);
let myRD := 1 + "." + myRM + "." + myRJ;
let myMont := if month(today()) = 1 then 12 else month(today()) - 1 end;
let myYear := if month(today()) = 1 then year(today()) - 1 else year(today()) end;
let y := year(today());
let myRgBetrag := last(select Zahlungsverpflichtung).Zahlungsverpflichtugnsbetrag;
let c := cnt(select RechnungsManagement where year('Erfasst am:') = y) + 1;
let c := cnt(select Buchen where year('Erfasst am:') = y) + 1;
let myChoise := dialog("Rechnungs- / Buchungslauf", "Welcher Lauf soll durchgeführt werden?", ["1. Rg.-Lauf", "2. B-Lauf", "3. Statistik", "4. Mon.-Lauf", "Abbruch"]);
if myChoise = "1. Rg.-Lauf" then
    let myChoise3 := dialog("Buchen", "Für welches Zeitintervall sollen die Buchungen durchgeführt werden?", ["monatlich", "Quartal", "halbjährlich", "jährlich", "Abbruch"]);
    switch myChoise3 do
    case "monatlich":
        for i in select RechnungsManagement where 'Rg-Nr.:' = "Abo" and Vertragsmanagement.Vertragsstatus = 2 and 'Rechnung Zahlungsintervall' = "monatlich" do
            let new := duplicate(i);
            new.('Rg.-Dat.:' := myRD);
            new.('Rg-Nr.:' := "Abo-Vorgang");
            new.('FS-ID' := " ");
            new.Zahllauf.Rechnungen.(festgeschrieben := 0);
            new.('Rechnung-ID:' := ('Erfasst am:' := today(); let y := year(today());let c := cnt(select RechnungsManagement where year('Erfasst am:') = y) + 1; 'Rechnung-ID' := "RE-" + y + "-" + format(c, "0000")));

            alert("Die monatlich fälligen Abo-Vorgänge wurden angelegt!")
            end
    case "Quartal":
        for i in select RechnungsManagement where 'Rg-Nr.:' = "Abo" and Sperrung = 0 and Vertragsmanagement.Vertragsstatus = 2 and 'Rechnung Zahlungsintervall' = "Quartal" do
            let new := duplicate(i);
            new.('Rg.-Dat.:' := myRD);
            new.('Rg-Nr.:' := "Abo-Vorgang");
            new.('Rechnung-ID:' := "RE-" + y + "-" + format(c, "0000"));
            alert("Die quartalsfälligen Abo-Vorgänge wurden angelegt!")
        end
    case "halbjährlich":

Das obige Skript zeigt zwei Entwicklungsstadien! Case "monatlich" ist ein neuerer Ansatz, bei dem ich versucht. habe die Berechnung der laufenden Nummer für die Rechnung-ID mit in die Schleife zu ziehen.

 new.('Rechnung-ID:' := ('Erfasst am:' := today(); let y := year(today());let c := cnt(select RechnungsManagement where year('Erfasst am:') = y) + 1; 'Rechnung-ID' := "RE-" + y + "-" + format(c, "0000")));

Ergebnis: Die Spalte bleibt leer, es wird also keine fortlaufende Nummer eingetragen.

Case "Quartal" zeigt den älteren Entwicklungsstand. Hier hatte ich bewußt Teile, die für die Berechnung der laufenden Nummer nötig sind, oben bei den Variablen abgelegt.

let y := year(today());

let c := cnt(select RechnungsManagement where year('Erfasst am:') = y) + 1;

die eigentliche Aufbereitung war dann innerhalb der Schleife

new.('Rechnung-ID:' := "RE-" + y + "-" + format(c, "0000"));

Ergebnis: Es wurde durch die duplicate-Anweisung die laufende Nummer aus der Vorlage gezogen.

Normaler weise liegt die Berechnung der Rechnung-ID im Trigger der RechnungsManagement Tabelle

'Erfasst am:' := today();
let y := year(today());
let c := cnt(select RechnungsManagement where year('Erfasst am:') = y) + 1;
'Rechnung-ID:' := "RE-" + y + "-" + format(c, "0000")

Hat einer von Euch eine Idee, wie ich trotz dem dublicate eines Datensatzes einige Tabellenspalten mit einer laufenden Nummer versorgen kann?

Vielen Dank

Michael