Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r37 -r38
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 37)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 38)
@@ -14,6 +14,7 @@
   private
     fInitialen: string;
     fLoginCode: string;
+    fHuidigePallet: string;
     fHuidigScherm: TForm;
     fLoginScherm: TForm;
     fHomeScherm: TForm;
@@ -105,6 +106,7 @@
         fHuidigScherm := fPalletScherm;
       end;
       if fHuidigScherm.ModalResult = mrNo then begin
+        fHuidigePallet := (fHuidigScherm as TfmPalletScherm).edtPallet.Text;
         fHuidigScherm := fBestaandePalletScherm;
       end;
       if fHuidigScherm.ModalResult = mrOk then begin
@@ -118,10 +120,20 @@
 
     //BestaandePalletScherm tonen
     if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
+      (fHuidigScherm as TfmBestaandePalletScherm).lblPalletCode.Caption := fHuidigePallet;
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end;
+      if fHuidigScherm.ModalResult = mrOk then begin
+        fHuidigScherm := fPalletScherm;
+      end;
+      if fHuidigScherm.ModalResult = mrOk then begin
+        ShowMessage('DnaCodeLeeg scherm');
+      end;
+      if fHuidigScherm.ModalResult = mrOk then begin
+        ShowMessage('DnaCodeGevuld scherm');
+      end;
       continue;
     end;