Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r498 -r500
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 498)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 500)
@@ -177,6 +177,7 @@
     UiContext.Pallet := '';
   end else if (UiContext.Modus = modusVHOSS) then begin
     RondAfVhossBatch();
+    UiContext.Toelevering := '';
     UiContext.Pallet := '';
   end else begin
     fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
@@ -644,12 +645,15 @@
                                             ]);
       end;
       if System.Length(Response.VhossKastenMetAantallen) > 0 then begin
-        if System.Length(Response.VhossKastenMetAantallen) = 1 then
+        if System.Length(Response.VhossKastenMetAantallen) = 1 then begin
           ToonPopupScherm('Onvolledige Vhosskast','OK','',0,-1,-1,$001717CD,cdsRondAfVhossBatch)
-        else
+        end else begin
           ToonPopupScherm('Onvolledige Vhosskasten','OK','',0,-1,-1,$001717CD,cdsRondAfVhossBatch)
-      end else
+        end;
+      end else begin
         ToonPopupScherm('Batch afgerond','OK','',19,-1,-1,clGreen);
+      end;
+      UiContext.BatchId := '';
     end else begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
     end;