Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r655 -r662
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 655)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 662)
@@ -385,7 +385,7 @@
       Font.Style = []
       ParentFont = False
     end
-    object Label1: TLabel
+    object lblLPN: TLabel
       Left = 160
       Top = 12
       Width = 21
@@ -398,8 +398,21 @@
       Font.Style = []
       ParentFont = False
     end
+    object lblStatus: TLabel
+      Left = 616
+      Top = 12
+      Width = 36
+      Height = 16
+      Caption = 'Status'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
     object btnZoeken: TButton
-      Left = 640
+      Left = 699
       Top = 25
       Width = 115
       Height = 25
@@ -479,6 +492,15 @@
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
+    object edtStatus: TEdit
+      Left = 616
+      Top = 34
+      Width = 70
+      Height = 21
+      TabOrder = 9
+      OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
+    end
   end
   object dsDnaCodes: TDataSource
     Left = 32
Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r655 -r662
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 655)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 662)
@@ -33,8 +33,10 @@
     lblLadeCode: TLabel;
     edtBatch: TEdit;
     lblBatch: TLabel;
-    Label1: TLabel;
+    lblLPN: TLabel;
     edtLPN: TEdit;
+    edtStatus: TEdit;
+    lblStatus: TLabel;
     procedure ZoekViaDnaCode();
     procedure ZoekViaPallet();
     procedure ZoekViaToelevering();
Index: PlanScan/Main.dfm
===================================================================
diff -u -r544 -r662
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 544)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 662)
@@ -209,6 +209,10 @@
           inherited pnlZoekKnoppen: TPanel
             Width = 903
             ExplicitWidth = 903
+            inherited btnZoeken: TButton
+              Left = 712
+              ExplicitLeft = 712
+            end
           end
         end
       end
Index: PlanScan/PlanScan.identcache
===================================================================
diff -u -r655 -r662
Binary files differ