Wie sehen die Statements aus, mit denen die Datasets gefüllt werden?
Für die Rechnung:
Delphi-Quellcode:
if InsertAtBegin then
begin
Rechnungen.First;
Rechnungen.Insert;
end
else
Rechnungen.Append;
Rechnungen.FieldByName('RgNr').asString := GetNewRgNr;
Rechnungen.FieldByName('KdNr').asString := Kunden.FieldByName('KdNr').asString;
Rechnungen.FieldByName('Datum').asDateTime := Date;
...usw für alle Felder
Dann kann der Nutzer noch Daten über DBEdits/Grid ergänzen und drückt dann einen Button mit:
Rechnungen.Post;
Für die Notiz:
Delphi-Quellcode:
Notizen.Insert;
Notizen.FieldByName('NotizNr').asString := GetNewNotizNr;
Notizen.FieldByName('RgNr').asString := Rechnungen.FieldByName('RgNr').asString;
Notizen.FieldByName('Notiz').asString := 'ABC';
Notizen.Post;
GetNewXXXXNr fragen einfach einen Generator ab.