Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r240 -r328
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 240)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 328)
@@ -2,6 +2,8 @@
   ActiveControl = edtDnaCode
   Caption = 'fmDnaCodeScherm'
   OnActivate = FormActivate
+  ExplicitWidth = 320
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 19
   object lblToeleveringData: TLabel [0]
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);