Index: VerpakkingsDefinitie/WS/Agent.pas
===================================================================
diff -u -r546 -r548
--- VerpakkingsDefinitie/WS/Agent.pas	(.../Agent.pas)	(revision 546)
+++ VerpakkingsDefinitie/WS/Agent.pas	(.../Agent.pas)	(revision 548)
@@ -1,42 +1,45 @@
 unit Agent;
 
 interface
+
 uses UserServerService;
+
 type
-TAgent = class
+  TAgent = class
   private
     fServer: String;
     fUserServerSoap: UserServerSoap;
   public
     Constructor Create(); overload;
-    function GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
-end;
+    function GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string) : PxStatus;
+  end;
+
 implementation
 
 constructor TAgent.Create();
 var
   fNamespace: string;
+  fUserServer: string;
 begin
   fServer := 'cachedevut2010';
-  fNameSpace := 'dev1';
+  fNamespace := 'dev1';
   if fServer = 'cache01' then
-    fNameSpace := 'admin1';
-  fUserServerSoap := UserServerService.GetUserServerSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
-  end;
+    fNamespace := 'admin1';
+  //fUserServer := 'http://' + fServer + ':57772/csp/' + fNamespace + '/WS.Halux.AAP.GebruikerService.cls';
+  fUserServer :=  'http://cacheaccept2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls';
+  fUserServerSoap := UserServerService.GetUserServerSoap(false, fUserServer, nil);
+end;
 
-function TAgent.GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
+function TAgent.GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string) : PxStatus;
 var
-  Request : PxStatus;
-  LogInObject :  PxLogin;
-  fTest : string;
+  fLogInObject: PxLogin;
+  fResponse: PxStatus;
 begin
-  Request := PxStatus.Create;
-  LogInObject := PxLogin.Create;
-  try
-    Result := fUserServerSoap.LogIn('vhintra', Gebruikersnaam, Wachtwoord, '1', LogInObject );
-    fTest := 'hoi'
-  finally
-
-  end;
+  fLogInObject := PxLogin.Create;
+  // By REF ingevuld wanneer pxStatus geen fout bevat
+  //                        LogIn(Application, GebruikersNaam, WachtWoord, Domein, pxLogIn) -> pxStatus
+  fResponse := fUserServerSoap.LogIn('vhintra', Gebruikersnaam, Wachtwoord, '1', fLogInObject);
+  Result := fResponse
 end;
+
 end.