Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r65 -r69
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 65)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 69)
@@ -64,7 +64,7 @@
       Request.Header := Header;
       Request.DnaCode := sgToeleveringData.Rows[sgToeleveringData.Row][0];
       Request.Aantal := -1;
-      Request.Toelevering := lblToelevering.Caption;
+      Request.Toelevering := UiContext.Toelevering;
       Request.PalletCode := sgToeleveringData.Rows[sgToeleveringData.Row][1];
 
       Response := Service.DnaCodeAfmelden(Request);
@@ -109,6 +109,7 @@
   btnLinksOnder.Action := actHome;
   btnCentraalOnder.Action := actOngedaanMaken;
   btnRechtsOnder.Action := actVolgende;
+  lblToelevering.Caption := UiContext.Toelevering;
   Response := ToeleveringDataOphalen();
   VulGridMetToeleveringData(Response.DnaCodes);
 end;
@@ -125,10 +126,10 @@
   Request := ZoekViaToeleveringRequest.Create;
   Header := RequestHeader.Create;
   try
-    Header.Initialen := lblGebruiker.Caption;
+    Header.Initialen := UiContext.Initialen;
     Header.ComputerNaam := ComputerName();
     Request.Header := Header;
-    Request.Toelevering := lblToelevering.Caption;
+    Request.Toelevering := UiContext.Toelevering;
 
     Response := Service.ZoekViaToelevering(Request);
     try