Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r68 -r69
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 68)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 69)
@@ -69,7 +69,7 @@
     Request.Header := Header;
     Request.DnaCode := edtDnaCode.Text;
     Request.Aantal := 1;
-    Request.Toelevering := lblToelevering.Caption;
+    Request.Toelevering := UiContext.Toelevering;
     Request.PalletCode := UiContext.Pallet;
 
     Response := Service.DnaCodeAfmelden(Request);
@@ -78,7 +78,8 @@
         Self.ModalResult := mrRetry;
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
       end else begin
-        lblToelevering.Caption := Response.DnaCodes[0].Toelevering;
+        UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
+        lblToelevering.Caption := UiContext.Toelevering;
         lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
         lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
         if Response.DnaCodes[0].IsGlsDirect then begin
@@ -109,7 +110,7 @@
 
 function TfmDnaCodeScherm.GeefToelevering: String;
 begin
-  result := lblToelevering.Caption;
+  result := UiContext.Toelevering;
 end;
 
 end.