PosNummern in Rechnungsdaten

[Jelly]

Michael,

Du bist dir aber schon bewusst, dass zwischen deinem Ermitteln der neuen ID im AfterInsert Event bis zum Post des Records eine Weile vergehen kann. Wer garantiert dir denn ,dass genau in der Zeit nicht ein anderer User einen Datensatz eingefügt hat... DEINE ID wird nämlich erst beim Post vom Server vergeben, und nicht nach dem Aufruf von Dataset.Insert...

[hoika]

Hallo,

mkinzler,
dein SQL-Text ist falsch !

SQL-Code:

SQL.Text := 'SELECT MAX(Pos) FROM Rechnungsdaten WHERE
               Rechnungsdaten.RechnungsNr = RechNr';

Es muss heissen

entweder

SQL-Code:

SQL.Text := 'SELECT MAX(Pos) FROM Rechnungsdaten WHERE
               Rechnungsdaten.RechnungsNr = '+IntToStr(RechNr);

oder

SQL-Code:

SQL.Text := 'SELECT MAX(Pos) FROM Rechnungsdaten WHERE
               Rechnungsdaten.RechnungsNr = :RechNr';
ParamByName('RechNr').AsInteger:= rechNr;

Heiko

[Michael Habbe]

Hi Tom.

Zitat von Jelly:

Michael,

Du bist dir aber schon bewusst, dass zwischen deinem Ermitteln der neuen ID im AfterInsert Event bis zum Post des Records eine Weile vergehen kann. Wer garantiert dir denn ,dass genau in der Zeit nicht ein anderer User einen Datensatz eingefügt hat... DEINE ID wird nämlich erst beim Post vom Server vergeben, und nicht nach dem Aufruf von Dataset.Insert...

Bei mir wird insgesamt anders vorgegangen. Da werden nicht einzelne Positionen einer Rechnungsnummer zugeordnet, sondern einer Vorgangsnummer. Da aber jeder Vorgang nur von einem Anwender bearbeitet werden darf, passt das schon. Die Rechnungsnummer wird erst beim Druck der Rechnung geholt.
Aber generell hast Du schon recht. Das ist ein Problem von vielen in einer Mehrbenutzeranwendung.

[mkinzler]

Zitat:

mkinzler,
dein SQL-Text ist falsch !

Einfach schneller getippt als gedacht.

[LOMBI]

Guten Abend,

ich bekomme das mit den Positionsnummern einfach nicht hin:

Delphi-Quellcode:

function GetPosNr(fldName, tblName: String): Integer;
var
  QueryRechnungsdaten:TQuery;
begin
  with TQuery.Create(nil) do
    begin
      DatabaseName := Rechnungen.DatabaseName;
      SQL.Text := Format('SELECT MAX(%s) FROM %s WHERE
                  Rechnungsdaten.RechnungsNr= :RechnungsNr', 
                  [fldName, tblName]);              
      ParamByName('RechnungsNr') := RechnungsNr;
      Open;
      Result := succ(Fields[0].AsInteger;
      Close;
    end;
  end;

procedure FRechnungen.QueryRechnungsdatenAfterInsert(DataSet: TDataSet);
begin
  with DataSet do
    begin
      if FieldByName('PosNr').IsNull then
        FieldByName('PosNr').AsInteger := GetPosNr('PosNr',
        Rechnungsdaten');
        QueryRechnungsdaten['RechnungsNr'] :=
        QueryRechnungen['RechnungsNr']
        ...
       end;

Fehlermeldung: "Undefinierter Bezeichner 'RechnungsNr'"

Delphi-Quellcode:

SQL.Text := Format('SELECT MAX(%s) FROM %s WHERE
                  Rechnungsdaten.RechnungsNr= :RechnungsNr', 
      //":RechnungsNr" stammt aus Tabelle Rechnungen und ist vom Typ
          I(nteger)!

Wer hilft mir bitte nochmals?

Grüße
Lombi

[uwewo]

Hi,

habe mir jetzt nicht komplett alles durchgelesen, also Sorry wenn ich etwas wiederhole.
Beim erstellen einer neuen Rechnung, sind sehr wahrscheinlich noch keine Daten in Deinem DBGrid.
Was hindert Dich daran, beim anlegen eines neuen Datensatzes den Wert der PosNr. auf die Anzahl(+1) der gezeigten Datensätze im Grid zu setzen.

z.B. bei AfterInsert oder BeforePost

[marabu]

Hallo Lombi,

du brauchst beide Generatoren - NextKey() ermittelt die nächste laufende Nummer und NextSubkey() macht das für einen sogenannten compound key (zusammengesetzter Schlüssel) - in deinem Fall Rechnungsdaten(RechNr, PosNr). Hier nochmal ausführlich, was dir Markus bereits am Anfang geschrieben hatte:

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;
end;

function NextSubKey (
  keyValue: Integer;  // RechNr Wert
  fldName,            // RechNr Feldname
  subName,            // PosNr FeldName
  tblName: String     // Tabellenname
): Integer;
begin
  with TQuery.Create do
  begin
    DatabaseName := QueryRechnungen.DatabaseName;
    SQL.Text := Format('SELECT MAX(%s) FROM %s WHERE %s = %d', [subName, tblName, fldName, keyValue]);
    Open;
    Result := Succ(Fields[0].AsInteger);
    Close;
  end;
end;

Der Ansatz von Uwe führt zwar auch zum richtigen Ergebnis, aber die Vermischung von Datenmodell und GUI ist dabei nicht so schön.

Gute Nacht

marabu

[LOMBI]

Herzlichen Dank, auch für Eure Geduld mit einem Greenhorn in Sachen Progr.

@minzler
function PosNr(fldName, tblName: //String; RechNr: Integer//): Integer; Entschuldigung, hatte in dieser Zeile eine wesentliche Änderung übersehen!

Gruß
Lombi