Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r684 -r687
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 684)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 687)
@@ -160,8 +160,10 @@
       end else begin
         Self.ModalResult := mrDnaCode;
       end;
-    end else
+    end else begin
+      UiContext.Pallet := '';
       Self.ModalResult := mrPallet;
+    end;
   finally
     ZetAfrondActieStatus(true);
     PostMessage(Self.Handle,WM_Close,0,0);
@@ -429,7 +431,7 @@
       fTbpCode := fGeefVolgendeTbpCodeResponse.VolgendeTbpCode;
       UiContext.Toelevering := '';
     end;
-  ZetPalletContext(fTbpCode);
+    ZetPalletContext(fTbpCode);
   finally
     fGeefVolgendeTbpCodeResponse.Free;
   end;