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