Index: AAPClient/UI/UiContext.pas
===================================================================
diff -u -r94 -r163
--- AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 94)
+++ AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 163)
@@ -3,13 +3,14 @@
 interface
 
 const
-  mrLogin           = 101;
-  mrHome            = 102;
-  mrPallet          = 103;
-  mrBestaandePallet = 104;
-  mrDnaCode         = 105;
-  mrInfoLog         = 106;
-  mrHernoemPallet   = 107;
+  mrLogin               = 101;
+  mrHome                = 102;
+  mrPallet              = 103;
+  mrBestaandePallet     = 104;
+  mrDnaCode             = 105;
+  mrInfoLog             = 106;
+  mrHernoemPallet       = 107;
+  mrDnaCodeReedsGescand = 108;
 
 type
   TUiContext = class
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;