Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r41 -r42
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 41)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 42)
@@ -20,6 +20,7 @@
     fHomeScherm: TForm;
     fPalletScherm: TForm;
     fBestaandePalletScherm: TForm;
+    fDnaCodeScherm: TForm;
     procedure HuidigeGebruikerAfmelden;
   public
   end;
@@ -31,7 +32,7 @@
 
 uses
   LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
-  BestaandePalletscherm;
+  BestaandePalletscherm, DnaCodeScherm;
 
 {$R *.dfm}
 
@@ -51,6 +52,7 @@
   fHomeScherm := TfmHomeScherm.Create(Self);
   fPalletScherm := TfmPalletScherm.Create(Self);
   fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self);
+  fDnaCodeScherm := TfmDnaCodeScherm.Create(Self);
   fHuidigScherm := fLoginScherm;
 
   Self.Show;
@@ -110,7 +112,7 @@
         fHuidigScherm := fBestaandePalletScherm;
       end
       else if fHuidigScherm.ModalResult = mrOk then begin
-        ShowMessage('DnaCodeLeeg scherm');
+        fHuidigScherm := fDnaCodeScherm;
       end
       else if fHuidigScherm.ModalResult = mrAbort then begin
         ShowMessage('DnaCodeGevuld scherm');
@@ -132,11 +134,18 @@
         ShowMessage('DnaCodeGevuld scherm');
       end
       else if fHuidigScherm.ModalResult = mrCancel then begin
-        ShowMessage('DnaCodeLeeg scherm');
+        fHuidigScherm := fDnaCodeScherm;
       end;
       continue;
     end;
 
+    //DnaCodeScherm tonen
+    if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
+      (fHuidigScherm as TfmDnaCodeScherm).lblPalletCode.Caption := fHuidigePallet;
+      fModalResult := fHuidigScherm.ShowModal;
+      continue;
+    end;
+
   end;
 
   Self.Close;