Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r287 -r295
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 287)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 295)
@@ -9,10 +9,12 @@
   TAgent = class
   private
     fUiContext: TUiContext;
+    fServer: string;
+    fGebruikerServiceSoap: GebruikerServiceSoap;
     function ComputerName: String;
     function WUserName: String;
   public
-    Constructor Create(UiContext: TUiContext); overload;
+    Constructor Create(UiContext: TUiContext; Server: string = 'tve-w10'); overload;
     function FullName: String;
     function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse;
     function GebruikerAfmelden(Initialen, LoginCode: string): boolean;
@@ -37,9 +39,11 @@
 
 { TAgent }
 
-constructor TAgent.Create(UiContext: TUiContext);
+constructor TAgent.Create(UiContext: TUiContext; Server: string = 'tve-w10');
 begin
   fUiContext := UiContext;
+  fServer := Server;
+  fGebruikerServiceSoap := GebruikerService.GetGebruikerServiceSoap(false,'http://'+fServer+':57772/csp/dev1/WS.Halux.AAP.GebruikerService.cls',nil);
 end;
 
 function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;
@@ -72,12 +76,9 @@
 function TAgent.GebruikerAanmelden(Initialen,
   LoginCode: string): GebruikerAanmeldenResponse;
 var
-  Service: GebruikerServiceSoap;
   Request: GebruikerAanmeldenRequest;
   Header: RequestHeader;
 begin
-  Service := GebruikerService.GetGebruikerServiceSoap();
-
   Request := GebruikerAanmeldenRequest.Create;
   Header := RequestHeader.Create;
   try
@@ -87,7 +88,7 @@
     Header.ComputerNaam := FullName();
     Request.Header := Header;
 
-    Result := Service.GebruikerAanmelden(Request);
+    Result := fGebruikerServiceSoap.GebruikerAanmelden(Request);
 
   finally
     Request.Free;
@@ -96,12 +97,9 @@
 
 function TAgent.GebruikerAfmelden(Initialen, LoginCode: string): boolean;
 var
-  Service: GebruikerServiceSoap;
   Request: GebruikerAfmeldenRequest;
   Header: RequestHeader;
 begin
-  Service := GebruikerService.GetGebruikerServiceSoap();
-
   Request := GebruikerAfmeldenRequest.Create;
   Header := RequestHeader.Create;
   try
@@ -116,7 +114,7 @@
     Header.Initialen := fUiContext.Initialen;
     Request.Header := Header;
 
-    Service.GebruikerAfmelden(Request);
+    fGebruikerServiceSoap.GebruikerAfmelden(Request);
     Result := true;
   finally
     Request.Free;
@@ -125,12 +123,9 @@
 
 function TAgent.ZoekAlleGebruikers: ZoekGebruikersResponse;
 var
-  Service: GebruikerServiceSoap;
   Request: ZoekGebruikersRequest;
   Header: RequestHeader;
 begin
-  Service := GebruikerService.GetGebruikerServiceSoap();
-
   Request := ZoekGebruikersRequest.Create;
   Header := RequestHeader.Create;
   try
@@ -140,7 +135,7 @@
     Header.ComputerNaam := FullName();
     Request.Header := Header;
 
-    Result := Service.ZoekGebruikers(Request);
+    Result := fGebruikerServiceSoap.ZoekGebruikers(Request);
 
   finally
     Request.Free;