Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r42 -r43
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 42)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 43)
@@ -143,6 +143,15 @@
     if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
       (fHuidigScherm as TfmDnaCodeScherm).lblPalletCode.Caption := fHuidigePallet;
       fModalResult := fHuidigScherm.ShowModal;
+      if fHuidigScherm.ModalResult = mrYes then begin
+        fHuidigScherm := fHomeScherm;
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
+        fHuidigScherm := fPalletScherm;
+      end
+      else if fHuidigScherm.ModalResult = mrNone then begin
+        fHuidigScherm := fDnaCodeScherm;
+      end;
       continue;
     end;