Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r322 -r323
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 322)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 323)
@@ -142,9 +142,9 @@
       ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
       imgDirecteLevering.Visible := true;
     end;
-    if UiContext.Modus = modusKAD then
-      RondKaderdeurDagAf()
-    else
+    //if UiContext.Modus = modusKAD then
+    //  RondKaderdeurDagAf()
+    //else
       ZetToeleveringStatus(DnaCodeStatus.InBuffer, BepaalDirecteLevering);
     if Self.ModalResult = mrPallet then begin
       ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen);
@@ -285,7 +285,8 @@
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
       Self.ModalResult := mrPallet;
     end else begin
-      ToonPopupScherm('Pallet '+UiContext.Pallet+' volledig verwerkt','OK','',19,-1,-1,clGreen);
+      if not (UiContext.Modus = modusKAD) then
+        ToonPopupScherm('Pallet '+UiContext.Pallet+' volledig verwerkt','OK','',19,-1,-1,clGreen);
       Self.ModalResult := mrPallet;
     end;
   finally
@@ -382,7 +383,7 @@
                                             Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeurenGescand]);
 
       end;
-
+      //ToonPopupScherm('Deze zijn nog niet compleet','Ok','','','','','',cdsRondKaderdeurDagAf);
     end else begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
     end;