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