DBASE Datenbunk aktualisieren

[MarkusB]

Moin conny drexler!

1. Ist das, die richtige Syntax???
datamodule1.Table1LAGERBEST.AsFloat Oder sollte es so sein:

datamodule1.Table1.FieldByName('LAGERBEST').AsFloat 2.Für bessere Lesbarkeit, benutze die "with" Anweisung:
z.B. statt:

Delphi-Quellcode:

DataModule1.Table1.First;
DataModule1.Table1.Next;
DataModule1.Table1.Edit;
DataModule1.Table1.FieldByName('VORNAME').AsString := 'John';
DataModule1.Table1.Post;

schreib:

Delphi-Quellcode:

with DataModule1.Table1 do
begin
  First;
  Next;
  Edit;
       
  FieldByName('VORNAME').AsString := 'John';
  Post;        
end;

3. Falls der gesuchte Artikel im ersten Record deiner Table1 ist, dann findest du ihn nicht!
Weil:

Delphi-Quellcode:

...
datamodule1.Table1.First;        <- hier wird auf den ersten Record in der Table1 positioniert
gefunden := false;
          
while (not(datamodule1.Table1.Eof)) or
(datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer) do
Begin
  datamodule1.table1.Next;      <- hier wird der erste Record übersprungen ohne ihn zu prüfen                                            <- und "gefunden" bleibt "false"
  if datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer then
  gefunden := true;
end;       
...

4. Die Abbruchbedingung „datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer“ in der while-Schleife hat keinen Sinn. Die „while“-Schleife wird für jeden in der Table1 gefundenen Record gemacht. Und das unabhängig von Artikelnummern, weil wenn einen Record gefunden wird, ist „not EOF“ true.

Also „while not datamodule1.Table1.Eof“ ist auf dieser Stelle vollkommen ausreichend.

5. Brauchst du die Variable "gefunden" auf einer anderen Stelle in deinem Programm? Wenn nicht, dann ist sie ueberflussig:

Und statt:

Delphi-Quellcode:

Begin
  datamodule1.Table1.First;
  gefunden := false;
  while (not(datamodule1.Table1.Eof)) or
  (datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer) do
  Begin
    datamodule1.table1.Next;
    if datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer then
      gefunden := true;
    end;
    if gefunden then
    Begin
      datamodule1.Table1.Edit;
      datamodule1.Table1LAGERBEST.AsFloat := datamodule1.Table1LAGERBEST.AsFloat - rechnungszeile.anzahl;
              datamodule1.Table1.Post;
    end;
  end;
end;

Kannst du so schreiben:

Delphi-Quellcode:

Begin
datamodule1.Table1.First;
          
while (not(datamodule1.Table1.Eof)) or
(datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer) do
Begin
  datamodule1.table1.Next;
                
  if datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer then
  begin
    datamodule1.Table1.Edit;
    datamodule1.Table1LAGERBEST.AsFloat := datamodule1.Table1LAGERBEST.AsFloat - rechnungszeile.anzahl;
    datamodule1.Table1.Post;
  end;  
end;

6. An deiner Stelle würde ich den Ratschlägen von marabu und Union folgen.

Viele Grüße
Markus