Index: AAPClient/UI/InfoLogScherm.pas =================================================================== diff -u -r235 -r240 --- AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 235) +++ AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 240) @@ -46,7 +46,7 @@ implementation uses - Agent, CommonFunctions; + Agent, CommonFunctions, ProScanMain; {$R *.dfm} @@ -63,7 +63,7 @@ procedure TfmInfoLogScherm.actTerugExecute(Sender: TObject); begin inherited; - Self.ModalResult := mrDnaCode; + (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode); end; procedure TfmInfoLogScherm.actOngedaanMakenExecute(Sender: TObject); @@ -86,6 +86,7 @@ Response.Free; end; end; + (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult); end; procedure TfmInfoLogScherm.btnEerstClick(Sender: TObject);