Letzte Rechnungsnummer um 1 hochzählen

[LOMBI]

Guten Abend,

benötige bitte Hilfe bei folgender Lösung:

Delphi-Quellcode:

TFormRechnungen.QueryRechnungenBeforeInsert(DataSet: TDataSet);
var
  letzte_nummer: Integer;
  QueryRNr: TQuery;
begin
  letzte_nummer := 0;
  QueryRNr := TQuery.Create(nil);
try
  QueryRNr.SQL.Clear;
  QueryRNr.DatabaseName := QueryRechnungen.DatabaseName;
  QueryRNr.SQL.Add('SELECT LAST(RNr) FROM Rechnungen');
  QueryRNr.Open;
  letzte_nummer : QueryRNr.Fields[0].AsInteger;
finally
  QueryRNr.Close;
  QueryRNr.Free;
  inc(letzte_nummer);  // Rechnungsnummer um 1 erhöhen
  EditRNr.Text := Format('%.10d',[letzte_nummer]);

Ich möchte gerne erreichen, dass die Hochzählung generell bei der
zuletzt eingetragenen oder geänderten Rechnungsnummer startet.
Wie bitte kriege ich das hin?

Gruß
Lombi

[Cyberbob]

Machs doch direjt über sql.

Ich hab in meiner SQL-Datenbank im Feld "gid" unter extras "auto_increment" stehen. Also wird bei jedem neuanlegen der wert um 1 erhöht.


Ich hoffe, ich konnte dir Helfen!

[marabu]

Hallo Lombi,

dir scheinen die von Paradox mitgebrachten AutoInc-Felder nicht zu gefallen. Getippt und nicht getestet:

Delphi-Quellcode:

function NextKey(tblName, fldName: String): Integer;
begin
  with TQuery.Create(nil) do
  begin
    DatabaseName := Global.DatabaseName;
    SQL.Text := Format('SELECT MAX(%s) FROM %s', [fldName, tblName]); 
    Open;
    Result := Succ(Fields[0].AsInteger);
    Close;
  end;
end;

procedure TFormRechnungen.QueryRechnungenBeforeInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('RNR').AsInteger := NextKey('RNR', 'Rechnungen');
end;

Gute Nacht

marabu

[hoika]

Hallo,

Guten Morgen,

da fehlt dann noch irgendwo ein +1.


Heiko

[sakura]

Zitat:

Zitat von hoika

da fehlt dann noch irgendwo ein +1.

Ist doch da

Delphi-Quellcode:

Succ(Fields[0].AsInteger);

Succ holt den Successor, also den Nachfolger (+1).

...:cat:...

[hoika]

Oh ;)

*Brille putz*

Stimmt ;)

Ein prinzipielles Problem ist baer:
Was passiert aber, wenn jetzt zwei Nutzer quasi gleichzeitig
eine Rechnung erstellen.

Dann würde die Nummer doppelt eingetragen.

Hier hilft dann nur ein unique index
oder man benutzt eine Extra-Tabelle mit dem Feld "LetzteRechnzungsNr",
auf die nur einer gleichzeitig Zugriff hat.

Das Feld könnte man auch verwenden, um z.B. am Ende des Jahres
den Wert zurückzustellen.


Heiko

[Peinhard]

Zitat:

Zitat von hoika

... oder man benutzt eine Extra-Tabelle mit dem Feld "LetzteRechnzungsNr",
auf die nur einer gleichzeitig Zugriff hat.

Rischtisch. 'Exclusiv' öffnen und die hochgezählte Nummer im gleichen 'Zugriffszug' auch gleich wieder eintragen. Für den Zugriff mehrere Versuche mit jeweils ein bisschen sleep() dazwischen.

[XChris]

Die "Lösung" hier ist schlecht. Warum keine Transaktion? So schreibt man doch ins Blaue ...

Außerdem sollte die Rechnungsnummer auch NIE dem Datenbank PK entsprechen.

Chris

[mschaefer]

Paradox hat keine Transaktionen! Spannend wird es auch noch wenn beim Ausdruck der Rechnung zufälllig der Drucker das Papier frist, Toner alle ist oder jemand die besagte Rechnungsnummer per Hand vergeben hat. Tja wie ihr seht bin ich Optimist.

//Grüße // Martin

[Peinhard]

Zitat:

Zitat von XChris

Die "Lösung" hier ist schlecht. Warum keine Transaktion? So schreibt man doch ins Blaue ...

Das exklusive Öffnen simuliert gewissermaßen eine Transaktion. Während des Auslesens des letzen Wertes, des Hochzählens und des anschließenden Wiedereintrags der hochgezählten Nummer kann niemand 'dazwischenfunken', die Konsistenz der Werte ist also sichergestellt.

Zitat:

Zitat von XChris

Außerdem sollte die Rechnungsnummer auch NIE dem Datenbank PK entsprechen.

Das hat aber auch niemand ernsthaft vorgeschlagen, gei odr?