Mirko 

let chars := "ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789";
let result := "";
for i in range(0, 7) do
    let rand := substr(chars, floor(random() * 35), 1);
    result := result + rand
end;
if cnt((select TABELLE)[Textfeld = result]) < 1 then
    Textfeld := result
end
 

Dein Code lief erst nicht, dann habe ich das rot markierte intuitiv entfernt und "zack">Ziffern Buchstaben ohne Doppel in der Zukunft. Wer einen Fehler entdeckt, bitte eine Nachricht, Ich gehe das morgen nochmal durch. Regeneration ist auch ein Programm das laufen muss.

Großen Dank an Mirko  für diesen schönen Code!

T. Bartzsch Vielen Dank. Ich muss einfach mehr üben. Ich suche noch nach eindeutige nicht veränderbare Nummern in Serie. Bzw. K-Nr. R-Nr. die nicht mehr gelöscht oder verändert werden dürfen. Darüber hinaus suche nach einer Lösung die solche Codes z.B.  7K74B97 ebenfalls nicht doppelt vorkommen.

Josef Koenig said:
0 und den Buchstaben O

 Eindeutig! Bei kleinen Bildschirmen ist die Lesbarkeit deutlich eingeschränkt. Also das "o" wie auch das "O" als auch die "0" nicht verwenden. 

T. Bartzsch Das habe ich in der Reference gefunden

let DatFilter := yearmonth(today());
let LetzteNr := last((select RECHNUNGEN where yearmonth(RECHDATUM) = DatFilter).RECHNR);
let LaufNr := number(substr(LetzteNr, 9, 3)) + 1;
let DatWert := format(today(), "YYYYMM");
RECHNR := "RE" + DatWert + "-" + format(LaufNr, "000");
RECHDATUM := today()

Allerdings kann ich im Beispiel Datensätze löschen und duplizieren, dass wiederum zu Irritationen führt. Irgendwie das Feld schützen, eine einmalig vergebene Nummer bleibt im Datensatz erhalten und somit der Datensatz nicht löschbar, eventuell in einer Tabelle abgelegt. Eine Routine, die auch einen unbedarften Anwender keine Ds löscht, dupliziert oder sonst wie manipulieren lässt,

T. Bartzsch Irgendwie habe ich das Gefühl, am "offenen Herzen" zu operieren. Die ausgegebenen Vorlagen wie z.B. Angebot und Rechnung (sehr schön) sind "open" und lassen die  Löschung und das duplizieren  von Rechnungen samt R-Nr. zu. Wenn man da nicht aufpasst, ist es für eine ordentliche Buchführung nicht verwendbar. Auch in den div.Beispielen in der Ninox-Referenz-Db  kann man das beobachten.

Vielen Dank für deine Vorschläge. Das wird jetzt eine Übung. Ich komme aus einer Gegend da spricht man so: "FT-"&ZeichenRechts(Jahreszahl(Re_Datum1); 2) &  FT_A_Nummer_Serie u.s.w.. und nun suche ich die Übersetzungen für meine bisher angewandte Sprachen. In den Referenzen ist nichts zu finden, auch nicht im Forum. Eine Tabelle mit "Unberührbaren" vielleicht?> nehme diese Nummer u.s.w. Datensätze werden nicht gelöscht sondern in ein Archiv gespeichert bzw. der Nachweis was mit dem Datensatz passiert ist. Step by Step...

>>Bei eindeutiger, nicht löschbarer Nummerierung kann man über solche random-Formeln mit Duplikatsabfrage und in den Feldeinstellungen "Schreibbar wenn..." = false ... arbeite<<

Leider nichts gefunden.

Das mit der internen Nummer ist klar und ist die "Basis" der erzeugten Ds, die wird nie doppelt und verschwindet höchstens. Ich suche nach einer Formel die eindeutig  Nummern vergibt, die nicht gelöscht oder dupliziert werden dürfen. Also geboren, lebt, darf nicht "geklont" werden und verschwindet im einsehbaren Nirvana und dann ist es .

T. Bartzsch Funktionsüberblick habe ich gesehen. Neu für mich sind Konsole und Button/trigger in der Anwendung. Ich gehe nach und nach das Manual durch.

...Natürlich kann man einen Button erstellen, welcher einen Datensatz aus einer Tabelle löscht und vorher die vergebene Nummer in eine Tabelle schreibt, damit diese nie wieder vergeben wird. Diese Tabelle müsste dann allerdings bei der Vergabe einer neuen Nummer mit abgefragt werden....

Eine Schutzfunktion die eine versehentliche Bedienung verhindert.

Es wäre hilfreich wenn ich das Symbol des Papierkorbs und der "Klon"taste verbergen könnte.Es ist schon sehr nah beieinander (Space).

Auch eine  Rückfrage, fände ich nicht schlecht. Bevor Du eine "lösch/klon"-Orgie durchziehst: "Möchtest du wirklich die Grundlagen einer ordentlichen Buchführung "ad absurdum" führen? Ich bin erstaunt, dass mich das so aufhält. 

Da es keinen Sinn macht zu lamentieren, wie das in meiner bisherigen Sprache gelaufen ist, suche und probiere ich weiter und bedanke mich recht herzlich für die angebotenen Hilfen und Unterstützung.  Werde mich auch an den Support noch melden, eventuell schaue ich mal in der Sprechstunde vorbei (Mier ghets nich gud, ich Baruch undbingt codeschnippsel) .  

T. Bartzsch 

Das könnte es sein:

let myYear := year(today());
let myRN := max((select Rechnungen where year('Datum der Rechnungsstellung') = myYear).substr('ID-Nr', 8));
'ID-Nr' := "RE-" + myYear + "-" + format(number(myRN) + 1, "0000");
'Datum der Rechnungsstellung' := today()

Gefunden in der Referenz (total übersehen) > 003_DE_Rechnungen_19-04.  

Das stand da auch: Automatische Rechnungsnummer - Pro Jahr werden die Rechnungsnummern automatisch eindeutig und aufsteigend vergeben. In den Tabelleneigenschaften wird der Trigger "Bei neuem Datensatz" genutzt um dies auszuführen.

Maurice yep, Danke. Auch dieser Post ist hilfreich. So langsam wird es eingekreist, die "kleinen" Probleme.