Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r135 -r163
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 135)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 163)
@@ -20,6 +20,7 @@
     fDnaCodeScherm: TForm;
     fInfoLogScherm: TForm;
     fHernoemPalletScherm: TForm;
+    fDnaCodeReedsGescandScherm: TForm;
     procedure HuidigeGebruikerAfmelden;
   public
   end;
@@ -32,7 +33,7 @@
 uses
   LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
   BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm,
-  DimmerForm;
+  DimmerForm, DnaCodeReedsGescandScherm;
 
 {$R *.dfm}
 
@@ -48,13 +49,14 @@
     fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
 
     case fHuidigScherm.ModalResult of
-      mrLogin           : fHuidigScherm := fLoginScherm2;
-      mrHome            : fHuidigScherm := fHomeScherm;
-      mrPallet          : fHuidigScherm := fPalletScherm;
-      mrHernoemPallet   : fHuidigScherm := fHernoemPalletScherm;
-      mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm;
-      mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
-      mrInfoLog         : fHuidigScherm := fInfoLogScherm;
+      mrLogin               : fHuidigScherm := fLoginScherm2;
+      mrHome                : fHuidigScherm := fHomeScherm;
+      mrPallet              : fHuidigScherm := fPalletScherm;
+      mrHernoemPallet       : fHuidigScherm := fHernoemPalletScherm;
+      mrBestaandePallet     : fHuidigScherm := fBestaandePalletScherm;
+      mrDnaCode             : fHuidigScherm := fDnaCodeScherm;
+      mrInfoLog             : fHuidigScherm := fInfoLogScherm;
+      mrDnaCodeReedsGescand : fHuidigScherm := fDnaCodeReedsGescandScherm;
     end;
   end;