Hallo zusammen,
bräuchte mal kurz Eure Hilfe.
Bei folgender Schleife wird der erste und letzte Datensatz leider nicht kopiert und ich weiß wirklich nicht warum. Könnt Ihr helfen?
Der Code ist:
Delphi-Quellcode:
Ausgaben.First;
while not Ausgaben.Eof do
begin
Kassenbuch.Append;
Kassenbuch.Edit;
Kassenbuch.FieldbyName('datum').asVariant := Ausgaben.FieldbyName('datum').asVariant;
Kassenbuch.FieldbyName('zurgnr').asInteger := Ausgaben.FieldbyName('zurgnr').asInteger;
Kassenbuch.FieldbyName('betrag').asVariant := Ausgaben.FieldbyName('betrag').asVariant * -1;
Kassenbuch.FieldbyName('betreff').asString := Ausgaben.FieldbyName('vermerk').asString;
Ausgaben.Next
end;
Kassenbuch.Post;