Ik ben een Delphi7 project aan het herschrijven in Embarcadero 10.4 en dat gaat aardig, maar ik stuit op een probleem
bij het opslaan van een gewijzigde record.
Ik gebruik Sysbase met de componenten van FireDac en de FDConnection staat in mijn DataModule en dat gaat prima totdat ik een veld wijzig en doe dan het volgende.
Code:
procedure TFrame_Boekingen.SaveRecord;
var
s1 :string;
begin
if ( FDQuery_Boekingen.State in [dsEdit,dsInsert] ) and ( IsErIetsGewijzigd ) then
begin
try
FDQuery_Boekingen.FieldByName(BOEKINGEN_LAATSTEWIJZIGING').AsDateTime := Now;
s1 := FDQuery_Boekingen.FieldByName('BOEKINGEN_OMSCHRIJVING').AsString; <------------------ ik zie hier (met F8) dat het veld is gewijzigd
FDQuery_Boekingen.Post;
bIsErIetsGewijzigd := false;
DData.FDConnection_FinanPro.Commit;
except
DData.FDConnection_FinanPro.Rollback;
end;
end;
end;
Ik zie in CodeSite en bij de s1 dat fieldbyname is gewijzigd en met F8 (step over) zie ik dat de FDQuery_Boekingen.POST word uitgevoerd en dat gaat zonder fouten goed.
als ik dan het frame afsluit en later weer terug kom om de boeking te zoeken zie ik dat het record niet is aangepast.
Bij een Insert of Append gaat het prima maar bij een Edit en Post niet, ik zie het even niet
Bookmarks