Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r62 -r63
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 62)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 63)
@@ -49,32 +49,37 @@
   Request: DnaCodeAfmeldenRequest;
   Response: DnaCodeAfmeldenResponse;
   Header: RequestHeader;
+  fWaarschuwingModalResult: TModalResult;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-  // request opbouwen
-  Request := DnaCodeAfmeldenRequest.Create;
-  Header := RequestHeader.Create;
-  try
-    Header.Initialen := lblGebruiker.Caption;
-    Header.ComputerNaam := ComputerName();
-    Request.Header := Header;
-    Request.DnaCode := sgToeleveringData.Rows[sgToeleveringData.Row][0];
-    Request.Aantal := -1;
-    Request.Toelevering := lblToelevering.Caption;
-    Request.PalletCode := sgToeleveringData.Rows[sgToeleveringData.Row][1];
+  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee');
 
-    Response := Service.DnaCodeAfmelden(Request);
+  if fWaarschuwingModalResult = mrOk then begin
+    Service := DnaCodeService.GetDnaCodeServiceSoap();
+    // request opbouwen
+    Request := DnaCodeAfmeldenRequest.Create;
+    Header := RequestHeader.Create;
     try
-      if Response.Header.Status <> '200' then begin
-        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
-      end else begin
-        VulGridMetToeleveringData(Response.DnaCodes);
+      Header.Initialen := lblGebruiker.Caption;
+      Header.ComputerNaam := ComputerName();
+      Request.Header := Header;
+      Request.DnaCode := sgToeleveringData.Rows[sgToeleveringData.Row][0];
+      Request.Aantal := -1;
+      Request.Toelevering := lblToelevering.Caption;
+      Request.PalletCode := sgToeleveringData.Rows[sgToeleveringData.Row][1];
+
+      Response := Service.DnaCodeAfmelden(Request);
+      try
+        if Response.Header.Status <> '200' then begin
+          ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
+        end else begin
+          VulGridMetToeleveringData(Response.DnaCodes);
+        end;
+      finally
+        Response.Free;
       end;
     finally
-      Response.Free;
+      Request.Free;
     end;
-  finally
-    Request.Free;
   end;
 end;