Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r437 -r459
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 437)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 459)
@@ -5,7 +5,7 @@
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
   Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
-  Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, DnaCodeService, Agent, Data.DB,
+  Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, AfdrukService, DnaCodeService, Agent, Data.DB,
   Datasnap.DBClient, UiContext, typinfo, Vcl.Imaging.pngimage;
 
 type
@@ -96,7 +96,7 @@
 procedure TfrmDnaCodes.btnProboxetiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
-  fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
+  fProboxAfdrukkenResponse: AfdrukService.ProboxEtiketAfdrukkenResponse;
 begin
   DnaCodesStringList := GeefAlleDnaCodesUitGrid();
   fProboxAfdrukkenResponse := TAgent.Create(fmMain.UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
@@ -318,7 +318,7 @@
   if dbgDnaCodes.SelectedRows.Count > 0 then begin
     for rijteller := 0 to dbgDnaCodes.SelectedRows.Count - 1 do begin
       dbgDnaCodes.DataSource.DataSet.GotoBookmark(Pointer(dbgDnaCodes.SelectedRows.Items[rijteller]));
-      DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('cdsDnaCodesDnaCode').AsString);
+      DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('DnaCode').AsString);
     end;
   end;
   result := DnaCodesStringList;
@@ -331,7 +331,7 @@
   DnaCodesStringList := TStringList.Create();
   dbgDnaCodes.DataSource.DataSet.First;
   while not dbgDnaCodes.DataSource.DataSet.Eof do begin
-    DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('cdsDnaCodesDnaCode').AsString);
+    DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('DnaCode').AsString);
     dbgDnaCodes.DataSource.DataSet.Next;
   end;
   result := DnaCodesStringList;