Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r43 -r47
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 43)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 47)
@@ -112,6 +112,7 @@
         fHuidigScherm := fBestaandePalletScherm;
       end
       else if fHuidigScherm.ModalResult = mrOk then begin
+        fHuidigePallet := (fHuidigScherm as TfmPalletScherm).edtPallet.Text;
         fHuidigScherm := fDnaCodeScherm;
       end
       else if fHuidigScherm.ModalResult = mrAbort then begin