Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r437 -r458
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 437)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 458)
@@ -3,7 +3,8 @@
 interface
 
 uses
-  DnaCodeService, GebruikerService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
+  AfdrukService, DnaCodeService, GebruikerService, System.SysUtils, Vcl.Forms,
+  UiContext, System.Classes;
 
 type
   TAgent = class
@@ -12,6 +13,7 @@
     fServer: string;
     fGebruikerServiceSoap: GebruikerServiceSoap;
     fDnaCodeServiceSoap: DnaCodeServiceSoap;
+    fAfdrukServiceSoap: AfdrukServiceSoap;
     function ComputerName: String;
     function WUserName: String;
   public
@@ -30,7 +32,7 @@
     function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
-    function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
+    function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse;
     function ZoekViaKlantnummer(Klantnummer: string): ZoekViaKlantnummerResponse;
     function ZoekViaLadecode(Ladecode: string): ZoekViaLadecodeResponse;
     function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse;
@@ -55,7 +57,8 @@
   if fServer = 'cache01' then
     fNameSpace := 'admin1';
   fGebruikerServiceSoap := GebruikerService.GetGebruikerServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
-  fDnaCodeServiceSoap := DnaCodeService.GetDnaCodeServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.DnaCodeService.cls',nil)
+  fDnaCodeServiceSoap := DnaCodeService.GetDnaCodeServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.DnaCodeService.cls',nil);
+  fAfdrukServiceSoap := AfdrukService.GetAfdrukServiceSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.AfdrukService.cls',nil);
 end;
 
 function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
@@ -407,21 +410,21 @@
   end;
 end;
 
-function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
+function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse;
 var
-  Header: DnaCodeService.RequestHeader;
-  fProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest;
-  DnaCodesArray: ArrayOfStringString;
+  Header: AfdrukService.RequestHeader;
+  fProboxEtiketAfdrukkenRequest: AfdrukService.ProboxEtiketAfdrukkenRequest;
+  DnaCodesArray: AfdrukService.ArrayOfStringString;
   ii: integer;
 begin
-  fProboxEtiketAfdrukkenRequest := ProboxEtiketAfdrukkenRequest.Create;
-  Header := DnaCodeService.RequestHeader.Create;
+  fProboxEtiketAfdrukkenRequest := AfdrukService.ProboxEtiketAfdrukkenRequest.Create;
+  Header := AfdrukService.RequestHeader.Create;
   try
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
     fProboxEtiketAfdrukkenRequest.Header := Header;
 
-    DnaCodesArray := ArrayOfStringString.Create();
+    DnaCodesArray := AfdrukService.ArrayOfStringString.Create();
     SetLength(DnaCodesArray, DnaCodesStringList.Count);
 
     ii := 0;
@@ -432,7 +435,7 @@
 
     fProboxEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
 
-    result := fDnaCodeServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
+    result := fAfdrukServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
   finally
     fProboxEtiketAfdrukkenRequest.Free;
   end;