Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r258 -r301
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 258)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 301)
@@ -9,6 +9,9 @@
   TAgent = class
   private
     fUiContext: TUiContext;
+    fServer: string;
+    fGebruikerServiceSoap: GebruikerServiceSoap;
+    fDnaCodeServiceSoap: DnaCodeServiceSoap;
     function ComputerName: String;
     function WUserName: String;
   public
@@ -37,19 +40,24 @@
 { TAgent }
 
 constructor TAgent.Create(UiContext: TUiContext);
+var
+  fNamespace: string;
 begin
   fUiContext := UiContext;
+  fServer := UiContext.ServerName;
+  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;
   Aantal: integer): DnaCodeAfmeldenResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: DnaCodeAfmeldenRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := DnaCodeAfmeldenRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -61,7 +69,7 @@
     Request.PalletCode := PalletCode;
     Request.Aantal := Aantal;
 
-    Result := Service.DnaCodeAfmelden(Request);
+    Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request);
 
   finally
     Request.Free;
@@ -71,12 +79,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
@@ -86,7 +91,7 @@
     Header.ComputerNaam := FullName();
     Request.Header := Header;
 
-    Result := Service.GebruikerAanmelden(Request);
+    Result := fGebruikerServiceSoap.GebruikerAanmelden(Request);
 
   finally
     Request.Free;
@@ -95,12 +100,9 @@
 
 function TAgent.GebruikerAfmelden(): boolean;
 var
-  Service: GebruikerServiceSoap;
   Request: GebruikerAfmeldenRequest;
   Header: RequestHeader;
 begin
-  Service := GebruikerService.GetGebruikerServiceSoap();
-
   Request := GebruikerAfmeldenRequest.Create;
   Header := RequestHeader.Create;
   try
@@ -109,7 +111,7 @@
     Header.Initialen := fUiContext.Initialen;
     Request.Header := Header;
 
-    Service.GebruikerAfmelden(Request);
+    fGebruikerServiceSoap.GebruikerAfmelden(Request);
     Result := true;
   finally
     Request.Free;
@@ -118,33 +120,27 @@
 
 function TAgent.GeefVolgendeTbpCode: GeefVolgendeTbpCodeResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: GeefVolgendeTbpCodeRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := GeefVolgendeTbpCodeRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
     Request.Header := Header;
 
-    result := Service.GeefVolgendeTbpCode(Request);
+    result := fDnaCodeServiceSoap.GeefVolgendeTbpCode(Request);
   finally
     Request.Free;
   end;
 end;
 
 function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: HernoemPalletRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := HernoemPalletRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -155,20 +151,17 @@
     Request.NieuweCode := NieuweCode;
     Request.EnkelDezeDnaCode := EnkelDezeDnaCode;
 
-    result := Service.HernoemPallet(Request);
+    result := fDnaCodeServiceSoap.HernoemPallet(Request);
   finally
     Request.Free;
   end;
 end;
 
 function TAgent.IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: DirecteLeveringRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := DirecteLeveringRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -177,7 +170,7 @@
     Request.Header := Header;
     Request.Toelevering := Toelevering;
 
-    result := Service.IsDirecteLevering(Request);
+    result := fDnaCodeServiceSoap.IsDirecteLevering(Request);
   finally
     Request.Free;
   end;
@@ -186,12 +179,9 @@
 function TAgent.PalletBijwerken(Pallet: string; Status: DnaCodeStatus;
   IsDirecteLevering: boolean): PalletBijwerkenResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: PalletBijwerkenRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := PalletBijwerkenRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -202,7 +192,7 @@
     Request.Status := Status;
     Request.IsDirecteLevering := IsDirecteLevering;
 
-    result := Service.PalletBijwerken(Request);
+    result := fDnaCodeServiceSoap.PalletBijwerken(Request);
   finally
     Request.Free;
   end;
@@ -211,12 +201,9 @@
 function TAgent.ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus;
   IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: ToeleveringBijwerkenRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := ToeleveringBijwerkenRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -227,20 +214,17 @@
     Request.Status := Status;
     Request.IsDirecteLevering := IsDirecteLevering;
 
-    result := Service.ToeleveringBijwerken(Request);
+    result := fDnaCodeServiceSoap.ToeleveringBijwerken(Request);
   finally
     Request.Free;
   end;
 end;
 
 function TAgent.ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
 var
-  Service: DnaCodeServiceSoap;
   Request: ValideerPalletCodeRequest;
   Header: DnaCodeService.RequestHeader;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   Request := ValideerPalletCodeRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -249,20 +233,17 @@
     Request.Header := Header;
     Request.PalletCode := PalletCode;
 
-    result := Service.ValideerPalletCode(Request);
+    result := fDnaCodeServiceSoap.ValideerPalletCode(Request);
   finally
     Request.Free;
   end;
 end;
 
 function TAgent.ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
 var
-  Service: DnaCodeServiceSoap;
   Header: DnaCodeService.RequestHeader;
   fZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   fZoekViaDnaCodeRequest := ZoekViaDnaCodeRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -271,7 +252,7 @@
     fZoekViaDnaCodeRequest.Header := Header;
     fZoekViaDnaCodeRequest.DnaCode := DnaCode;
 
-    result := Service.ZoekViaDnaCode(fZoekViaDnaCodeRequest);
+    result := fDnaCodeServiceSoap.ZoekViaDnaCode(fZoekViaDnaCodeRequest);
   finally
     fZoekViaDnaCodeRequest.Free;
   end;
@@ -280,12 +261,9 @@
 function TAgent.ZoekViaPalletCode(
   PalletCode: string): ZoekViaPalletCodeResponse;
 var
-  Service: DnaCodeServiceSoap;
   Header: DnaCodeService.RequestHeader;
   fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -294,7 +272,7 @@
     fZoekViaPalletCodeRequest.Header := Header;
     fZoekViaPalletCodeRequest.PalletCode := PalletCode;
 
-    result := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
+    result := fDnaCodeServiceSoap.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
   finally
     fZoekViaPalletCodeRequest.Free;
   end;
@@ -303,12 +281,9 @@
 function TAgent.ZoekViaToelevering(
   Toelevering: string): ZoekViaToeleveringResponse;
 var
-  Service: DnaCodeServiceSoap;
   Header: DnaCodeService.RequestHeader;
   fZoekViaToeleveringRequest: ZoekViaToeleveringRequest;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   fZoekViaToeleveringRequest := ZoekViaToeleveringRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -317,22 +292,19 @@
     fZoekViaToeleveringRequest.Header := Header;
     fZoekViaToeleveringRequest.Toelevering := Toelevering;
 
-    result := Service.ZoekViaToelevering(fZoekViaToeleveringRequest);
+    result := fDnaCodeServiceSoap.ZoekViaToelevering(fZoekViaToeleveringRequest);
   finally
     fZoekViaToeleveringRequest.Free;
   end;
 end;
 
 function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
 var
-  Service: DnaCodeServiceSoap;
   Header: DnaCodeService.RequestHeader;
   fProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest;
   DnaCodesArray: ArrayOfStringString;
   ii: integer;
 begin
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
-
   fProboxEtiketAfdrukkenRequest := ProboxEtiketAfdrukkenRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
@@ -351,7 +323,7 @@
 
     fProboxEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray;
 
-    result := Service.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
+    result := fDnaCodeServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest);
   finally
     fProboxEtiketAfdrukkenRequest.Free;
   end;
Index: AAPClient/UI/UiContext.pas
===================================================================
diff -u -r247 -r301
--- AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 247)
+++ AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 301)
@@ -28,6 +28,7 @@
     fDesktopMode: boolean;
     fIsDirecteLeveringPopupGetoond: boolean;
     fIsWegwerpPalletPopupGetoond: boolean;
+    fServerName: string;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -39,6 +40,7 @@
     Property DesktopMode: boolean Read fDesktopMode Write fDesktopMode;
     Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
     Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
+    Property ServerName: string Read fServerName Write fServerName;
   end;
 
 implementation