Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r504 -r505
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 504)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 505)
@@ -112,6 +112,11 @@
 procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
+  if UiContext.Modus = modusVhoss then begin
+    UiContext.Pallet := '';
+    UiContext.Toelevering := '';
+    UiContext.BatchId := '';
+  end;
   PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
@@ -132,6 +137,8 @@
       if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
         PalletBijwerken(DnaCodeStatus.InBuffer,false);
         UiContext.Pallet := '';
+        UiContext.Toelevering := '';
+        UiContext.BatchId := '';
         Self.ModalResult := mrPallet;
       end else begin
         if (ToonPopupScherm('Vhoss nog niet volledig.'+#13#10+'Toch verwerken?','Ja','Annuleren',14,6,7) = mrYes) then begin
@@ -478,9 +485,6 @@
           if not (fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
             fAantalGescand := fAantalGescand + 1;
 
-          if fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes[fDnaCodeTeller].DnaCode = UiContext.LaatsteDnaCode then
-            UiContext.Toelevering := fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes[fDnaCodeTeller].Toelevering;
-
           fDnaCodeTeller := fDnaCodeTeller + 1;
         end;