Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r84 -r86
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 84)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 86)
@@ -51,6 +51,7 @@
   Header: RequestHeader;
   fWaarschuwingModalResult: TModalResult;
 begin
+  Self.ModalResult := mrInfoLog;
   fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee');
 
   if fWaarschuwingModalResult = mrOk then begin
@@ -88,6 +89,7 @@
   Response: ZoekViaToeleveringResponse;
 begin
   inherited;
+  Self.ModalResult := mrInfoLog;
   ToonGescand := not(ToonGescand);
   Response := ToeleveringDataOphalen();
   VulGridMetToeleveringData(Response.DnaCodes);