Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r499 -r500
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 499)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 500)
@@ -645,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;