Index: PlanScan/Main.pas
===================================================================
diff -u -r264 -r265
--- PlanScan/Main.pas	(.../Main.pas)	(revision 264)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 265)
@@ -57,13 +57,6 @@
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
 
-      cdsDnaCodes.FieldDefs.Add('DnaCode',ftString,10);
-      cdsDnaCodes.FieldDefs.Add('Pallet',ftString,10);
-      cdsDnaCodes.FieldDefs.Add('Toelevering',ftString,10);
-      cdsDnaCodes.FieldDefs.Add('Status',ftString,10);
-      cdsDnaCodes.FieldDefs.Add('Batch',ftString,10);
-      cdsDnaCodes.FieldDefs.Add('Tijdstip',ftString,20);
-      cdsDnaCodes.FieldDefs.Add('Initialen',ftString,3);
       cdsDnaCodes.CreateDataSet;
 
       ii := 0;
Index: PlanScan/Main.dfm
===================================================================
diff -u -r264 -r265
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 264)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 265)
@@ -106,7 +106,45 @@
   end
   object cdsDnaCodes: TClientDataSet
     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 = 64
     Top = 184
   end
Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r259 -r265
--- PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 259)
+++ PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 265)
@@ -6,18 +6,18 @@
 
 uses
   Vcl.Forms,
-  Main in 'Main.pas' {Form2},
+  Main in 'Main.pas' {fmMain},
   Agent in 'WS\Agent.pas',
-  DnaCodeService in 'WS\DnaCodeService.pas',
   GebruikerService in 'WS\GebruikerService.pas',
   UiContext in 'UI\UiContext.pas',
-  Images in 'UI\Images.pas';
+  Images in 'UI\Images.pas',
+  DnaCodeService in 'WS\DnaCodeService.pas';
 
 {$R *.res}
 
 begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
-  Application.CreateForm(TForm2, Form2);
+  Application.CreateForm(TfmMain, fmMain);
   Application.Run;
 end.
Index: PlanScan/PlanScan.dproj
===================================================================
diff -u -r259 -r265
--- PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 259)
+++ PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 265)
@@ -83,14 +83,14 @@
 				<MainSource>MainSource</MainSource>
 			</DelphiCompile>
 			<DCCReference Include="Main.pas">
-				<Form>Form2</Form>
+				<Form>fmMain</Form>
 				<FormType>dfm</FormType>
 			</DCCReference>
 			<DCCReference Include="WS\Agent.pas"/>
-			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<DCCReference Include="WS\GebruikerService.pas"/>
 			<DCCReference Include="UI\UiContext.pas"/>
 			<DCCReference Include="UI\Images.pas"/>
+			<DCCReference Include="WS\DnaCodeService.pas"/>
 			<None Include="WS\__history"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r259 -r265
--- PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 259)
+++ PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 265)
@@ -13,12 +13,21 @@
     <Transaction>2020/02/17 11:13:01.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas=</Transaction>
     <Transaction>2020/02/17 11:14:30.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas</Transaction>
     <Transaction>2020/02/17 11:16:33.742,=E:\svn\Delphi\PlanScan\UI\Images.pas</Transaction>
+    <Transaction>2020/02/18 08:16:12.093,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 08:21:57.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/02/18 08:22:15.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 08:32:28.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/02/18 08:32:46.480,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 08:33:00.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 11:21:59.209,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 11:22:27.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/02/18 11:22:42.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
   </Transactions>  <ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="WS"/>
     <File Path="WS\Agent.pas"/>
-    <File Path="WS\DnaCodeService.pas"/>
     <File Path="WS\GebruikerService.pas"/>
     <File Path="WS\__history"/>
+    <File Path="WS\DnaCodeService.pas"/>
     <File Path="Main.pas"/>
     <File Path="Main.dfm"/>
     <File Path="UI"/>