Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r667 -r672
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 667)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 672)
@@ -72,12 +72,6 @@
         FieldName = 'cdsDnaCodesParentDnaCode'
         Title.Caption = 'ParentCode'
         Visible = True
-      end
-      item
-        Expanded = False
-        FieldName = 'cdsDnaCodesLpnCode'
-        Title.Caption = 'LPN code'
-        Visible = True
       end>
   end
   object pnlActies: TPanel
@@ -300,6 +294,8 @@
     BevelEdges = []
     BevelOuter = bvNone
     TabOrder = 2
+    ExplicitLeft = 64
+    ExplicitTop = 3
     object lblDnaCode: TLabel
       Left = 8
       Top = 12
@@ -327,7 +323,7 @@
       ParentFont = False
     end
     object lblToelevering: TLabel
-      Left = 236
+      Left = 160
       Top = 12
       Width = 67
       Height = 16
@@ -340,7 +336,7 @@
       ParentFont = False
     end
     object lblKlantNummer: TLabel
-      Left = 312
+      Left = 236
       Top = 12
       Width = 41
       Height = 16
@@ -353,7 +349,7 @@
       ParentFont = False
     end
     object lblOrderNummer: TLabel
-      Left = 388
+      Left = 312
       Top = 12
       Width = 46
       Height = 16
@@ -366,7 +362,7 @@
       ParentFont = False
     end
     object lblLadeCode: TLabel
-      Left = 464
+      Left = 388
       Top = 12
       Width = 54
       Height = 16
@@ -379,7 +375,7 @@
       ParentFont = False
     end
     object lblBatch: TLabel
-      Left = 540
+      Left = 464
       Top = 12
       Width = 31
       Height = 16
@@ -391,34 +387,8 @@
       Font.Style = []
       ParentFont = False
     end
-    object lblLPN: TLabel
-      Left = 160
-      Top = 12
-      Width = 21
-      Height = 16
-      Caption = 'LPN'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -13
-      Font.Name = 'Tahoma'
-      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 = 699
+      Left = 643
       Top = 25
       Width = 115
       Height = 25
@@ -445,7 +415,7 @@
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtToelevering: TEdit
-      Left = 236
+      Left = 160
       Top = 34
       Width = 70
       Height = 21
@@ -454,7 +424,7 @@
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtKlantNummer: TEdit
-      Left = 312
+      Left = 236
       Top = 34
       Width = 70
       Height = 21
@@ -463,7 +433,7 @@
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtOrderNummer: TEdit
-      Left = 388
+      Left = 312
       Top = 34
       Width = 70
       Height = 21
@@ -472,7 +442,7 @@
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtLadeCode: TEdit
-      Left = 464
+      Left = 388
       Top = 34
       Width = 70
       Height = 21
@@ -481,40 +451,15 @@
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtBatch: TEdit
-      Left = 540
+      Left = 464
       Top = 34
       Width = 70
       Height = 21
       TabOrder = 7
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
-    object edtLPN: TEdit
-      Left = 160
-      Top = 34
-      Width = 70
-      Height = 21
-      TabOrder = 8
-      OnEnter = edtToeleveringEnter
-      OnKeyUp = edtDnaCodeKeyUp
-    end
   end
-  object combStatus: TComboBox
-    Left = 616
-    Top = 34
-    Width = 77
-    Height = 21
-    TabOrder = 3
-    Text = '------'
-    Items.Strings = (
-      '------'
-      'Nieuw'
-      'Gescand'
-      'Ongedaan'
-      'OnHold'
-      'InBuffer'
-      'InBatch')
-  end
   object dsDnaCodes: TDataSource
     Left = 32
     Top = 192