Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r53 -r68
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 53)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 68)
@@ -64,13 +64,13 @@
   Request := DnaCodeAfmeldenRequest.Create;
   Header := RequestHeader.Create;
   try
-    Header.Initialen := lblGebruiker.Caption;
+    Header.Initialen := UiContext.Initialen;
     Header.ComputerNaam := ComputerName();
     Request.Header := Header;
     Request.DnaCode := edtDnaCode.Text;
     Request.Aantal := 1;
     Request.Toelevering := lblToelevering.Caption;
-    Request.PalletCode := lblPalletCode.Caption;
+    Request.PalletCode := UiContext.Pallet;
 
     Response := Service.DnaCodeAfmelden(Request);
     try
@@ -103,7 +103,7 @@
   btnRechtsOnder.Action := actVolgende;
   edtDnaCode.Text := '';
   ActiveControl := edtDnaCode;
-
+  lblPalletCode.Caption := UiContext.Pallet;
   inherited;
 end;