Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r662 -r666
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 662)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 666)
@@ -492,16 +492,23 @@
       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 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