Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r67 -r68
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 67)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 68)
@@ -92,6 +92,7 @@
     if fHuidigScherm.ClassType = TfmHomeScherm then begin
       (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
       fModalResult := fHuidigScherm.ShowModal;
+      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fPalletScherm;
       end
@@ -109,18 +110,17 @@
     if fHuidigScherm.ClassType = TfmPalletScherm then begin
       (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
       fModalResult := fHuidigScherm.ShowModal;
+      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end
       else if fHuidigScherm.ModalResult = mrRetry then begin
         fHuidigScherm := fPalletScherm;
       end
       else if fHuidigScherm.ModalResult = mrNo then begin
-        fHuidigePallet := (fHuidigScherm as TfmPalletScherm).edtPallet.Text;
         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
@@ -132,8 +132,8 @@
     //BestaandePalletScherm tonen
     if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
       (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      (fHuidigScherm as TfmBestaandePalletScherm).lblPalletCode.Caption := fHuidigePallet;
       fModalResult := fHuidigScherm.ShowModal;
+      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end
@@ -152,8 +152,8 @@
     //DnaCodeScherm tonen
     if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
       (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      (fHuidigScherm as TfmDnaCodeScherm).lblPalletCode.Caption := fHuidigePallet;
       fModalResult := fHuidigScherm.ShowModal;
+      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       fHuidigeToelevering := (fHuidigScherm as TfmDnaCodeScherm).GeefToelevering();
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;