Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r164 -r167
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 164)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 167)
@@ -144,6 +144,7 @@
     Header.ComputerNaam := FullName();
     Request.Header := Header;
     Request.DnaCode := edtDnaCode.Text;
+    UiContext.LaatsteDnaCode := edtDnaCode.Text;
     Request.Aantal := 1;
     Request.Toelevering := UiContext.Toelevering;
     Request.PalletCode := UiContext.Pallet;