Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r381 -r382
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 381)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 382)
@@ -77,7 +77,7 @@
     //popups resetten
     UiContext.IsDirecteLeveringPopupGetoond := false;
     UiContext.IsWegwerpPalletPopupGetoond := false;
-    UiContext.InternVhossId = '';
+    UiContext.InternVhossId := '';
   end else if (UiContext.Modus = modusKAD) then begin
     Self.ModalResult := mrDnaCode;
   end else begin
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r378 -r382
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 378)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 382)
@@ -256,6 +256,7 @@
     case strtoint(List[0]) of
        200:  begin
                UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
+               UiContext.InternVhossId := Response.InterneVhossKastId;
                lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                if not (UiContext.Modus = modusKAD) then