Hallo alle zusammen,
ich habe ein problem mit dem Update meiner DBASE Datenbank.
Ich kann meine Daten über asinteger zwar ändern, sie aber mitdem Post - Befehl nicht zurückschreiben. Kann mir einer sagen was ich am Quellcode ändern??
Delphi-Quellcode:
datamodule1.Table1.Open;
datamodule1.Table1.First;
while not(eof(journaldatei)) do
Begin
init_rechnungszeile(rechnungszeile);
read(journaldatei,rechnungszeile);
if rechnungszeile.artikel.dispaartikel then
Begin
datamodule1.Table1.First;
gefunden := false;
repeat
datamodule1.table1.Next;
if datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer then
gefunden := true;
until (datamodule1.Table1.eof) or
(datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer);
if gefunden then
Begin
datamodule1.Table1.Edit;
datamodule1.Table1LAGERBEST.AsFloat := datamodule1.Table1LAGERBEST.AsFloat - rechnungszeile.anzahl;
datamodule1.Table1.Post;
end;
end;
end;
closefile(journaldatei);
datamodule1.Table1.Close;
[edit=Sharky]Code-Tags durch Delphi-Tags ersetzt. Das ist dann besser zu lesen. Mfg, Sharky[/edit]