Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r325 -r328
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 325)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 328)
@@ -138,9 +138,11 @@
   if UiContext.Toelevering = '' then
     exit;
 
-  if UiContext.Modus = modusKAD then
-    RondKaderdeurDagAf()
-  else begin
+  if UiContext.Modus = modusKAD then begin
+    RondKaderdeurDagAf();
+    UiContext.Toelevering := '';
+    UiContext.Pallet := '';
+  end else begin
     if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
       if BepaalDirecteLevering then begin
         ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);