Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r481 -r483
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 481)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 483)
@@ -90,9 +90,19 @@
 procedure TfrmDnaCodes.btnProductetiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
+  fProductEtiketAfdrukkenResponse: ProductEtiketAfdrukkenResponse;
 begin
-  DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
-  //relevante webmethod oproepen
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
+  fProductEtiketAfdrukkenResponse := TAgent.Create(fmMain.UiContext).ProductEtiketAfdrukken(DnaCodesStringList);
+  try
+    if fProductEtiketAfdrukkenResponse.Header.Status <> '200' then begin
+      ShowMessage(fProductEtiketAfdrukkenResponse.Header.Omschrijving)
+    end else begin
+      ShowMessage('Etiketten afgedrukt')
+    end;
+  finally
+    fProductEtiketAfdrukkenResponse.Free;
+  end;
 end;
 
 procedure TfrmDnaCodes.btnKlantEtiketClick(Sender: TObject);