Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r40 -r41
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 40)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 41)
@@ -9,6 +9,15 @@
 
 type
   TfmDnaCodeScherm = class(TfmDrieKnoppenScherm)
+    lblToelevering: TLabel;
+    lblScancode: TLabel;
+    edtDnaCode: TEdit;
+    lblPalletCode: TLabel;
+    lblLaatstGescand: TLabel;
+    lblLaatstGescandData: TLabel;
+    lblAantalGescand: TLabel;
+    lblTotaalAantal: TLabel;
+    lblSlash: TLabel;
     procedure FormShow(Sender: TObject);
   private
     { Private declarations }
@@ -28,8 +37,8 @@
   btnLinksOnder.Action := actPallet;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;
-  //edtPallet.Text := '';
-  //ActiveControl := edtPallet;
+  edtDnaCode.Text := '';
+  ActiveControl := edtDnaCode;
 
   inherited;
 end;