PosNummern in Rechnungsdaten

[LOMBI]

Tabelle: Rechnungsdaten
Feld: PosNr (n)umerisch


Hallo,

die Rechnungsdaten (Artikel) werden in einem DBGrid angezeigt. Jeder Artikel erhält eine fortlaufende PosNr

1.0 Artikel1
2.0 Artikel2
3.0 Artikel3
...

Delphi-Quellcode:

TFRechnungen.QueryRechnungsdatenAfterInsert(DataSet. TDataSet);                      
begin             //PosNr hochzählen
  with DataSet do
    if QueryRechnungsdaten.FieldByName('PosNr').IsNull then
      QueryRechnungsdaten.FieldByName('PosNr').AsInteger := 
      NextKey('PosNr', 'Rechnungsdaten');
    end;

Problem:

Mit dem ersten Artikel in einer neuen Rechnung muß die PosNr wieder bei 1.0 starten.

Wie bitte erreiche ich das?

Gruß
Lombi

[mkinzler]

Was steckt hinter NextKey?
Ggf mußt du diese Funktion anpassen.

[LOMBI]

Delphi-Quellcode:

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

Gruß
Lombi

[mkinzler]

SQL-Code:

SELECT MAX(PosNr) FROM RechPos where RechPos.RechNr = RechNr;

[LOMBI]

Hallo mkinzler,

danke für den Code, aber damit erhalte ich leider keine Veränderung.
Die PosNr wird in einer neuen Rechnung einfach weiter hochgezählt und
fängt nicht wieder bei PosNr. 1.0 für den ersten angelegten Artikel an.
Grüße
Lombi

[mkinzler]

Zitat:

Die PosNr wird in einer neuen Rechnung einfach weiter hochgezählt

Das dürfte aber nicht sein. Bei einer neuen Rechnungsnummer müßte die Abfrage NULL zurückliefern, da ja keine Datensätze da sind, über die er eine Summierung durchführen könnte.

Poste mal dei Metadaten der Tabelle.

[LOMBI]

Rechnungsdaten-Tabelle:

RechnungsNr I(nteger)
PosNr N(umerisch)
ArtNr A(lphanumerisch)
ArtBez A(lphanumerisch)
ArtBez2 A(lphanumerisch)
Datum D(ate)
Anzahl N(umerisch)
EinzelPreis N(umerisch)
GesamtPreis N(umerisch)
MwSt N(umerisch)
Rabatt N(umerisch)

QueryRechnungsdaten
DataSource: DataSourceRechnungen
SQL.Text : SELECT * FROM Rechnungen WHERE RechnungsNr= :RechnungsNr;

[mkinzler]

Setze mal für RechnungsNr eine nicht vorhandene ein. Was bekommst du als Ergebnis der Max()-Funktion?

[LOMBI]

Ungültiger Feldname.

Ich habe zusätzlich eine Query auf die Form gelegt:

Name: QueryPosNr
DataSource: DataSourceRechnungsdaten
SQL.Text: SELECT MAX(PosNr)
FROM Rechnungsdaten
WHERE Rechnungsdaten.RechnungsNr = RechnungsNr;

[mkinzler]

SQL-Code:

SELECT MAX(PosNr)
FROM Rechnungsdaten
WHERE Rechnungsdaten.RechnungsNr = 999999;