Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r450 -r451
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 450)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 451)
@@ -176,6 +176,7 @@
       if Self.ModalResult = mrPallet then begin
         ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen);
         UiContext.Toelevering := '';
+        UiContext.BatchId := '';
         DrukProboxEtiketAfIndienNodig;
       end;
     end else begin
@@ -186,6 +187,7 @@
         if fWaarschuwingModalResult = mrNo then begin
           ZetToeleveringStatus(DnaCodeStatus.InBuffer, fIsDirecteLevering);
           UiContext.Toelevering := '';
+          UiContext.BatchId := '';
           Self.ModalResult := mrPallet;
         end else begin
           Self.ModalResult := mrDnaCode;
@@ -303,7 +305,7 @@
     case strtoint(List[0]) of
        200:  begin
                UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
-               UiContext.InternVhossId := Response.InterneVhossKastId;
+               UiContext.BatchId := Response.BatchId;
                lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                ZetInfoIcoontjeZichtbaar;