Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r362 -r363
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 362)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 363)
@@ -60,6 +60,12 @@
         FieldName = 'cdsDnaCodesInitialen'
         Title.Caption = 'Initialen'
         Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'cdsDnaCodesLadecode'
+        Title.Caption = 'Ladecode'
+        Visible = True
       end>
   end
   object pnlActies: TPanel
@@ -71,9 +77,6 @@
     BevelEdges = []
     BevelOuter = bvNone
     TabOrder = 1
-    ExplicitLeft = 513
-    ExplicitTop = 41
-    ExplicitHeight = 439
     object imgPrinter: TImage
       Left = 0
       Top = 0
@@ -421,64 +424,7 @@
       OnEnter = edtToeleveringEnter
     end
   end
-  object cdsDnaCodes: TClientDataSet
-    Active = True
-    Aggregates = <>
-    FieldDefs = <
-      item
-        Name = 'cdsDnaCodesDnaCode'
-        DataType = ftString
-        Size = 10
-      end
-      item
-        Name = 'cdsDnaCodesPallet'
-        DataType = ftString
-        Size = 10
-      end
-      item
-        Name = 'cdsDnaCodesToelevering'
-        DataType = ftString
-        Size = 10
-      end
-      item
-        Name = 'cdsDnaCodesStatus'
-        DataType = ftString
-        Size = 10
-      end
-      item
-        Name = 'cdsDnaCodesBatch'
-        DataType = ftString
-        Size = 6
-      end
-      item
-        Name = 'cdsDnaCodesScantijdstip'
-        DataType = ftString
-        Size = 20
-      end
-      item
-        Name = 'cdsDnaCodesInitialen'
-        DataType = ftString
-        Size = 3
-      end>
-    IndexDefs = <>
-    Params = <>
-    StoreDefs = True
-    Left = 32
-    Top = 240
-    Data = {
-      320100009619E0BD010000001800000007000000000003000000320112636473
-      446E61436F646573446E61436F64650100490000000100055749445448020002
-      000A0011636473446E61436F64657350616C6C65740100490000000100055749
-      445448020002000A0016636473446E61436F646573546F656C65766572696E67
-      0100490000000100055749445448020002000A0011636473446E61436F646573
-      5374617475730100490000000100055749445448020002000A0010636473446E
-      61436F6465734261746368010049000000010005574944544802000200060017
-      636473446E61436F6465735363616E74696A6473746970010049000000010005
-      574944544802000200140014636473446E61436F646573496E697469616C656E
-      01004900000001000557494454480200020003000000}
-  end
   object dsDnaCodes: TDataSource
-    DataSet = cdsDnaCodes
     Left = 32
     Top = 192
   end