Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r296 -r297
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 296)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 297)
@@ -41,11 +41,16 @@
 { TAgent }
 
 constructor TAgent.Create(UiContext: TUiContext; Server: string = 'tve-w10');
+var
+  fNamespace: string;
 begin
   fUiContext := UiContext;
   fServer := Server;
-  fGebruikerServiceSoap := GebruikerService.GetGebruikerServiceSoap(false,'http://'+fServer+':57772/csp/dev1/WS.Halux.AAP.GebruikerService.cls',nil);
-  fDnaCodeServiceSoap := DnaCodeService.GetDnaCodeServiceSoap(false,'http://'+fServer+':57772/csp/dev1/WS.Halux.AAP.DnaCodeService.cls',nil)
+  fNameSpace := 'dev1';
+  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)
 end;
 
 function TAgent.DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string;