Index: ProScan/WS/Agent.pas
===================================================================
diff -u -r451 -r466
--- ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 451)
+++ ProScan/WS/Agent.pas	(.../Agent.pas)	(revision 466)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  DnaCodeService, GebruikerService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
+  DnaCodeService, GebruikerService, AfdrukService, System.SysUtils, Vcl.Forms, UiContext, System.Classes;
 
 type
   TAgent = class
@@ -12,6 +12,7 @@
     fServer: string;
     fGebruikerServiceSoap: GebruikerServiceSoap;
     fDnaCodeServiceSoap: DnaCodeServiceSoap;
+    fAfdrukServiceSoap: AfdrukServiceSoap;
     function ComputerName: String;
     function WUserName: String;
   public
@@ -53,7 +54,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;
@@ -85,11 +87,11 @@
 function TAgent.GebruikerAanmelden(Initialen,
   LoginCode: string): GebruikerAanmeldenResponse;
 var
-  Request: GebruikerAanmeldenRequest;
-  Header: RequestHeader;
+  Request: GebruikerService.GebruikerAanmeldenRequest;
+  Header: GebruikerService.RequestHeader;
 begin
   Request := GebruikerAanmeldenRequest.Create;
-  Header := RequestHeader.Create;
+  Header := GebruikerService.RequestHeader.Create;
   try
     Request.Initialen := Initialen;
     Request.LoginCode := LoginCode;
@@ -106,11 +108,11 @@
 
 function TAgent.GebruikerAfmelden(): boolean;
 var
-  Request: GebruikerAfmeldenRequest;
-  Header: RequestHeader;
+  Request: GebruikerService.GebruikerAfmeldenRequest;
+  Header: GebruikerService.RequestHeader;
 begin
   Request := GebruikerAfmeldenRequest.Create;
-  Header := RequestHeader.Create;
+  Header := GebruikerService.RequestHeader.Create;
   try
     Request.Initialen := fUiContext.Initialen;
     Request.LoginCode := fUiContext.LoginCode;
@@ -347,13 +349,13 @@
 
 function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
 var
-  Header: DnaCodeService.RequestHeader;
+  Header: AfdrukService.RequestHeader;
   fProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest;
   DnaCodesArray: ArrayOfStringString;
   ii: integer;
 begin
   fProboxEtiketAfdrukkenRequest := ProboxEtiketAfdrukkenRequest.Create;
-  Header := DnaCodeService.RequestHeader.Create;
+  Header := AfdrukService.RequestHeader.Create;
   try
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
@@ -370,7 +372,7 @@
 
     fProboxEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
 
-    result := fDnaCodeServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
+    result := fAfdrukServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
   finally
     fProboxEtiketAfdrukkenRequest.Free;
   end;