Index: ProScan/ProScanMain.pas
===================================================================
diff -u -r679 -r681
--- ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 679)
+++ ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 681)
@@ -29,7 +29,7 @@
 implementation
 
 uses
-  OnderdelenScherm, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
+  OnderdelenScherm, DnaCodeSchermVoorOnderdelen, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
   BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm,
   DimmerForm, DnaCodeReedsGescandScherm, Agent;
 
@@ -106,15 +106,16 @@
   end else begin
     fHuidigScherm.Free;
     case mr of
-      mrLogin               : fHuidigScherm := TfmLoginScherm2.Create(pnlMain);
-      mrHome                : fHuidigScherm := TfmHomeScherm.Create(pnlMain);
-      mrPallet              : fHuidigScherm := TfmPalletScherm.Create(pnlMain);
-      mrHernoemPallet       : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain);
-      mrBestaandePallet     : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain);
-      mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain);
-      mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain);
-      mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain);
-      mrOnderdelen          : fHuidigScherm := TfmOnderdelenScherm.Create(pnlMain);
+      mrLogin                 : fHuidigScherm := TfmLoginScherm2.Create(pnlMain);
+      mrHome                  : fHuidigScherm := TfmHomeScherm.Create(pnlMain);
+      mrPallet                : fHuidigScherm := TfmPalletScherm.Create(pnlMain);
+      mrHernoemPallet         : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain);
+      mrBestaandePallet       : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain);
+      mrDnaCode               : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain);
+      mrInfoLog               : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain);
+      mrDnaCodeReedsGescand   : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain);
+      mrOnderdelen            : fHuidigScherm := TfmOnderdelenScherm.Create(pnlMain);
+      mrDnaCodeVoorOnderdelen : fHuidigScherm := TfmDnaCodeSchermVoorOnderdelen.Create(pnlMain);
     end;
 
     fHuidigScherm.Parent := pnlMain;