Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r609 -r610
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 609)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 610)
@@ -7,12 +7,6 @@
   SelectService, OptiServerService, UI_Data,
   Vcl.Dialogs, Soap.InvokeRegistry;
 
-// Resource strings are stored as resources and linked into the executable or
-// library so that they can be modified without recompiling the program.
-resourcestring
-  SELECT_SERVER_URL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.Select.CLS';
-  OPTI_SERVER_URL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.CLS';
-
 type
   TZoekMethode = (KortTekst, IdentificatieNr, LeveranciersRef, Tekst);
 
@@ -59,7 +53,7 @@
     procedure RegistreerMislukteVerpakkingMetaQuery(ProductVerpakkingMetaContext: TProductVerpakkingMetaContext;
       pxStatusObj: OptiServerService.pxStatus);
   public
-    Constructor Create();
+    constructor Create(SelectServerUrl: string; OptiServerUrl: string);
     // UI
     procedure LaadUIInstellingen(UserContext: TUserContext; UiInstellingenContext: TUiInstellingenContext);
     // Product
@@ -89,10 +83,12 @@
 
 uses StrUtils, Xml.XMLIntf, Xml.XMLDoc;
 
-constructor TProductsAgent.Create();
+constructor TProductsAgent.Create(SelectServerUrl: string; OptiServerUrl: string);
 begin
-  FSelectServerSoap := SelectService.GetProdSelectServerSoap(false, SELECT_SERVER_URL, nil);
-  FOptiBoxServerSoap := OptiServerService.GetOptiBoxServerSoap(false, OPTI_SERVER_URL, nil);
+  inherited Create();
+
+  FSelectServerSoap := SelectService.GetProdSelectServerSoap(false, SelectServerUrl, nil);
+  FOptiBoxServerSoap := OptiServerService.GetOptiBoxServerSoap(false, OptiServerUrl, nil);
 end;
 
 // https://stackoverflow.com/questions/30156172/how-to-concatenate-array-of-string-elements-into-a-string/46523477