Naja, ein Versuch wars wert, die Kopfsteuerung. leider hat es keine Änderung nach sich gezogen. Das Update funktioniert immer noch nicht. Die Werte werden zwar geändert, aber nicht in die Datenbank geschrieben. Ich habe mal den geänderten Quellcode beigefügt. vielleicht hat jemand noch ein Idee.
Delphi-Quellcode:
assignfile(journaldatei,konfig.stammverzeichnis + '\' + konfig.arbeitsverzeichnis + '\' + journaldateiname);
reset(journaldatei);
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;
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;
closefile(journaldatei);
datamodule1.Table1.Close;
[edit=Sharky]Auch hier die Delphi-Tags gesetzt. Mfg, Sharky[/edit]