Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r459 -r460
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 459)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 460)
@@ -93,6 +93,24 @@
   //relevante webmethod oproepen
 end;
 
+procedure TfrmDnaCodes.btnKlantEtiketClick(Sender: TObject);
+var
+  DnaCodesStringList: TStringList;
+  fKlantEtiketAfdrukkenResponse: KlantEtiketAfdrukkenResponse;
+begin
+  DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
+  fKlantEtiketAfdrukkenResponse := TAgent.Create(fmMain.UiContext).KlantEtiketAfdrukken(DnaCodesStringList);
+  try
+    if fKlantEtiketAfdrukkenResponse.Header.Status <> '200' then begin
+      ShowMessage(fKlantEtiketAfdrukkenResponse.Header.Omschrijving)
+    end else begin
+      ShowMessage('Etiketten afgedrukt')
+    end;
+  finally
+    fKlantEtiketAfdrukkenResponse.Free;
+  end;
+end;
+
 procedure TfrmDnaCodes.btnProboxetiketClick(Sender: TObject);
 var
   DnaCodesStringList: TStringList;
@@ -203,14 +221,6 @@
   end;
 end;
 
-procedure TfrmDnaCodes.btnKlantEtiketClick(Sender: TObject);
-var
-  DnaCodesStringList: TStringList;
-begin
-  DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
-  //relevante webmethod oproepen
-end;
-
 procedure TfrmDnaCodes.ZoekViaPallet();
 var
   fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r458 -r460
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 458)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 460)
@@ -32,12 +32,13 @@
     function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
-    function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse;
     function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
     function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse;
     function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
+    function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse;
+    function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
   end;
 
 implementation
@@ -441,6 +442,38 @@
   end;
 end;
 
+function TAgent.KlantEtiketAfdrukken(
+  DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
+var
+  Header: AfdrukService.RequestHeader;
+  fKlantEtiketAfdrukkenRequest: AfdrukService.KlantEtiketAfdrukkenRequest;
+  DnaCodesArray: AfdrukService.ArrayOfStringString;
+  ii: integer;
+begin
+   fKlantEtiketAfdrukkenRequest := AfdrukService.KlantEtiketAfdrukkenRequest.Create;
+  Header := AfdrukService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fKlantEtiketAfdrukkenRequest.Header := Header;
+
+    DnaCodesArray := AfdrukService.ArrayOfStringString.Create();
+    SetLength(DnaCodesArray, DnaCodesStringList.Count);
+
+    ii := 0;
+    while ii < DnaCodesStringList.Count do begin
+      DnaCodesArray[ii] := DnaCodesStringList[ii];
+      ii := ii + 1;
+    end;
+
+    fKlantEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
+
+    result := fAfdrukServiceSoap.KlantEtiketAfdrukken(fKlantEtiketAfdrukkenRequest);
+  finally
+    fKlantEtiketAfdrukkenRequest.Free;
+  end;
+end;
+
 function TAgent.BewerkKlantinstellingen(Actie, KlantId:string;
   IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
 var