Index: ProScan/UI/InfoLogScherm.pas =================================================================== diff -u -r669 -r681 --- ProScan/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 669) +++ ProScan/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 681) @@ -64,8 +64,12 @@ procedure TfmInfoLogScherm.actTerugExecute(Sender: TObject); begin inherited; + Self.ModalResult := mrDnaCode; + if UiContext.VanuitOnderdelen then + Self.ModalResult := mrDnaCodeVoorOnderdelen; + PostMessage(Self.Handle,WM_Close,0,0); - (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode); + (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult); end; procedure TfmInfoLogScherm.actOngedaanMakenExecute(Sender: TObject);