Index: PlanScan/Main.pas
===================================================================
diff -u -r271 -r272
--- PlanScan/Main.pas	(.../Main.pas)	(revision 271)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 272)
@@ -50,29 +50,42 @@
 {$R *.dfm}
 
 function TfmMain.BepaalGeselecteerdeDnaCodes: TStringList;
+var
+  DnaCodesStringList: TStringList;
+  RijTeller: integer;
 begin
-  //
+  DnaCodesStringList := TStringList.Create();
+  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);
+    end;
+  end;
+  result := DnaCodesStringList;
 end;
 
 procedure TfmMain.btnKlantEtiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
 begin
-  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
+  //relevante webmethod oproepen
 end;
 
 procedure TfmMain.btnMaatwerketiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
 begin
   DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
+  //relevante webmethod oproepen
 end;
 
 procedure TfmMain.btnProboxetiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
 begin
   DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
+  //relevante webmethod oproepen
 end;
 
 procedure TfmMain.btnZoekViaDnaCodeClick(Sender: TObject);