let vArray1 := [{}][null];
let vArrayObj1 := [];
let vObj1 := {};
let jahrArray := sort(unique((select Tabelle1).substr(Textnummer, 4, 0)));
let result := for j in jahrArray do
        let allNr := concat((select Tabelle1)[substr(Textnummer, 4, 0) = j].substr(Textnummer, 0, 4));
        let maxNr := max((select Tabelle1)[substr(Textnummer, 4, 0) = j].number(substr(Textnummer, 0, 4)));
        let minNr := min((select Tabelle1)[substr(Textnummer, 4, 0) = j].number(substr(Textnummer, 0, 4)));
        let reihe := for i in range(minNr, maxNr + 1) do
                text(i)
            end;
        concat(for i in reihe do
                if not contains(allNr, text(i)) then
                    vObj1 := {
                            value: i
                        };
                    vArrayObj1 := [vObj1];
                    vArray1 := array(vArray1, vArrayObj1)
                end
            end)
    end;
Text := item(vArray1, 0).value

Das Script prüft auf fehlende Seriennummern, wenn eine fehlt, wird die niedrigste Nummer in ein Textfeld geschrieben. (habe hier eine 4 stellige Zahl in einem Textfeld angenommen)

(Hatte Mirko   mal für mich geschrieben, danke dafür nochmal)

Mit max() prüfst du ja sowieso auf den höchsten Eintrag

Hi Rainer. Wenn Deine Seriennummer nur aus Zahlen besteht, dann könnte folgendes einfache Script funktionieren. Hierbei werden auch die Lücken getestet, falls eine manuelle Seriennummer nicht fortlaufend vergeben wurde. Mirko

let tab := (select Auftraege);
let all := range(1, max(tab.'Seriennummer lfd') + 1);
let existNr := tab.'Seriennummer lfd';
let newNo := for i in all do
        if not contains(existNr, i) then
            i
        end
    end;
let result := if cnt(newNo) > 0 then
        min(newNo)
    else
        max(tab.'Seriennummer lfd') + 1
    end;
'Seriennummer lfd' := res