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;