Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r334 -r376
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 334)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 376)
@@ -74,14 +74,11 @@
     finally
       fZoekViaPalletCodeResponse.Free;
     end
-  end else if UiContext.Modus = modusKAD then begin
-    Self.ModalResult := mrDnaCode;
-
-
     //popups resetten
     UiContext.IsDirecteLeveringPopupGetoond := false;
     UiContext.IsWegwerpPalletPopupGetoond := false;
-
+  end else if (UiContext.Modus = modusKAD) then begin
+    Self.ModalResult := mrDnaCode;
   end else begin
     Self.ModalResult := mrPallet;
   end;