Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r363 -r437
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 363)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 437)
@@ -1,13 +1,13 @@
 object frmDnaCodes: TfrmDnaCodes
   Left = 0
   Top = 0
-  Width = 765
+  Width = 826
   Height = 480
   TabOrder = 0
   object dbgDnaCodes: TDBGrid
     Left = 0
     Top = 73
-    Width = 638
+    Width = 699
     Height = 407
     Align = alClient
     DataSource = dsDnaCodes
@@ -69,14 +69,15 @@
       end>
   end
   object pnlActies: TPanel
-    Left = 638
+    Left = 699
     Top = 73
     Width = 127
     Height = 407
     Align = alRight
     BevelEdges = []
     BevelOuter = bvNone
     TabOrder = 1
+    ExplicitLeft = 638
     object imgPrinter: TImage
       Left = 0
       Top = 0
@@ -282,12 +283,13 @@
   object pnlZoekKnoppen: TPanel
     Left = 0
     Top = 0
-    Width = 765
+    Width = 826
     Height = 73
     Align = alTop
     BevelEdges = []
     BevelOuter = bvNone
     TabOrder = 2
+    ExplicitWidth = 765
     object lblDnaCode: TLabel
       Left = 8
       Top = 12
@@ -366,8 +368,21 @@
       Font.Style = []
       ParentFont = False
     end
+    object lblBatch: TLabel
+      Left = 578
+      Top = 12
+      Width = 31
+      Height = 16
+      Caption = 'Batch'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
     object btnZoeken: TButton
-      Left = 655
+      Left = 699
       Top = 25
       Width = 75
       Height = 25
@@ -423,6 +438,14 @@
       TabOrder = 6
       OnEnter = edtToeleveringEnter
     end
+    object edtBatch: TEdit
+      Left = 578
+      Top = 34
+      Width = 89
+      Height = 21
+      TabOrder = 7
+      OnEnter = edtToeleveringEnter
+    end
   end
   object dsDnaCodes: TDataSource
     Left = 32