Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r460 -r483
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 460)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 483)
@@ -39,6 +39,7 @@
     function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse;
     function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
+    function ProductEtiketAfdrukken(DnaCodesStringList: TStringList): ProductEtiketAfdrukkenResponse;
   end;
 
 implementation
@@ -442,6 +443,38 @@
   end;
 end;
 
+function TAgent.ProductEtiketAfdrukken(
+  DnaCodesStringList: TStringList): ProductEtiketAfdrukkenResponse;
+var
+  Header: AfdrukService.RequestHeader;
+  fProductEtiketAfdrukkenRequest: AfdrukService.ProductEtiketAfdrukkenRequest;
+  DnaCodesArray: AfdrukService.ArrayOfStringString;
+  ii: integer;
+begin
+  fProductEtiketAfdrukkenRequest := AfdrukService.ProductEtiketAfdrukkenRequest.Create;
+  Header := AfdrukService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fProductEtiketAfdrukkenRequest.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;
+
+    fProductEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
+
+    result := fAfdrukServiceSoap.ProductEtiketAfdrukken(fProductEtiketAfdrukkenRequest);
+  finally
+    fProductEtiketAfdrukkenRequest.Free;
+  end;
+end;
+
 function TAgent.KlantEtiketAfdrukken(
   DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse;
 var
@@ -450,7 +483,7 @@
   DnaCodesArray: AfdrukService.ArrayOfStringString;
   ii: integer;
 begin
-   fKlantEtiketAfdrukkenRequest := AfdrukService.KlantEtiketAfdrukkenRequest.Create;
+  fKlantEtiketAfdrukkenRequest := AfdrukService.KlantEtiketAfdrukkenRequest.Create;
   Header := AfdrukService.RequestHeader.Create;
   try
     Header.Initialen := fUiContext.Initialen;