Index: APPS/TBXWeb/Utils/impl/UrlBuilder.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/Utils/impl/UrlBuilder.cls.xml	(revision 0)
+++ APPS/TBXWeb/Utils/impl/UrlBuilder.cls.xml	(revision 571)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.Utils.impl.UrlBuilder">
+<IncludeCode>PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="CreateHashedRef">
+<FormalSpec>KLNr:%String,VERW:%String,wsID:%Integer,sMode:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $L(KLNr) && ($$IsList^vhLib(KLNr)) {
+		Set Error=YY ; KLNr bevat geen geldige data. $LB(...) is niet correct.
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("KLNr bevat geen geldige data. $LB(...) is niet correct."))
+	}
+	If VERW="" {
+		Set Error=YY ; VERW is leeg. Dit is geen geldige waarde.
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("VERW is leeg. Dit is geen geldige waarde."))
+	}
+	If sMode="" {
+		Set Error=YY ; sMode is leeg. Dit is geen geldige waarde.
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("sMode is leeg. Dit is geen geldige waarde."))
+	}
+	
+	Quit $$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,sMode))
+]]></Implementation>
+</Method>
+
+<Method name="CreateHashedRefVoorAlleKlanten">
+<FormalSpec>VERW:%String,sMode:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$$$KLNrListAll
+	Set wsID=""
+	Quit ..CreateHashedRef(KLNr,VERW,wsID,sMode)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 571 refers to a dead (removed) revision in file `APPS/TBXWeb/TestUtils.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: cspBasis/Library.mac.rou
===================================================================
diff -u -r320 -r571
--- cspBasis/Library.mac.rou	(.../Library.mac.rou)	(revision 320)
+++ cspBasis/Library.mac.rou	(.../Library.mac.rou)	(revision 571)
@@ -83,7 +83,7 @@
  
 TBXDomainCVT(Domain)
  	if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.Library_TestDomeinenOmzetten") {
-	 	set TBXDomainCVT = ##class(APPS.TBXWeb.TestUtils).GeefDomeinNaam(Domain)
+	 	set TBXDomainCVT = ##class(APPS.TBXWeb.Utils.TestUtils).GeefDomeinNaam(Domain)
 	} else {
 		set TBXDomainCVT = $piece(Domain,":",1)
 	}
@@ -128,3 +128,4 @@
 	Else  If ($LG(FlgItem,1)="X")&&($L($LG(FlgItem,2))) Do
 	. X "Set Val="_$$$Replace($LI(FlgItem,2),"%v","Val")
 	Quit
+ 
\ No newline at end of file
FishEye: Tag 571 refers to a dead (removed) revision in file `APPS/TBXWeb/impl/UrlBuilder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TBXWeb/Utils/TestUtils.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/Utils/TestUtils.cls.xml	(revision 0)
+++ APPS/TBXWeb/Utils/TestUtils.cls.xml	(revision 571)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.Utils.TestUtils">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefDomeinNaam">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TestDomein:%String</FormalSpec>
+<ReturnType>APPS.TBXWeb.enu.DomeinNaam</ReturnType>
+<Implementation><![CDATA[
+	
+	set ReferentieDomeinNaam = ..GeefReferentieDomeinNaam(TestDomein)
+	
+	set DomeinNaam = ""
+
+	if ReferentieDomeinNaam = "tandem-box.com" {
+		set DomeinNaam = ##class(APPS.TBXWeb.enu.DomeinNaam).VanHoecke()
+	} elseif ReferentieDomeinNaam = "optima-tbx.fr" {
+		set DomeinNaam = ##class(APPS.TBXWeb.enu.DomeinNaam).Optima()
+	} elseif ReferentieDomeinNaam = "tandem-box.de" {
+		set DomeinNaam =  ##class(APPS.TBXWeb.enu.DomeinNaam).Hein()
+	} elseif ReferentieDomeinNaam = "du-pont.be" {
+		set DomeinNaam = ##class(APPS.TBXWeb.enu.DomeinNaam).Dupont()
+	} elseif ReferentieDomeinNaam = "destil.nl" {
+		set DomeinNaam = ##class(APPS.TBXWeb.enu.DomeinNaam).Destil()
+	} elseif ReferentieDomeinNaam = "hafele.tandem-box.com" {
+		set DomeinNaam = ##class(APPS.TBXWeb.enu.DomeinNaam).HafeleNL()
+	} elseif ReferentieDomeinNaam = "sfsunimarket.biz" {
+		set DomeinNaam = ##class(APPS.TBXWeb.enu.DomeinNaam).SFS()
+	} elseif ReferentieDomeinNaam = "meubelbeslagholland.nl" {
+		set DomeinNaam =  ##class(APPS.TBXWeb.enu.DomeinNaam).MBHolland()
+	} elseif ReferentieDomeinNaam = "hafele.be" {
+		set DomeinNaam =  ##class(APPS.TBXWeb.enu.DomeinNaam).HafeleBE()
+	} elseif ReferentieDomeinNaam = "kisch.nl" {
+		set DomeinNaam =  ##class(APPS.TBXWeb.enu.DomeinNaam).Kisch()
+	} elseif ReferentieDomeinNaam = "vanraemdonck.eu" {
+		set DomeinNaam =  ##class(APPS.TBXWeb.enu.DomeinNaam).VanRaemdonck()
+	} else {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(TestDomein_" kan niet geconverteerd worden")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)		
+	}	
+	
+	quit DomeinNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefReferentieDomeinNaam">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Domein:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Domein = $zconvert(Domein,"L")
+	
+	set ReferentieDomeinNaam = Domein
+	if '##class(TECH.StringUtils).StartsWith(Domein,"hafele") {
+		set AantalPieces = $length(Domein,".")
+		set ReferentieDomeinNaam = $piece($piece(Domein,".",2,AantalPieces),".local")
+	}
+	
+	quit ReferentieDomeinNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefTestDomeinNaam">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DomeinNaam:APPS.TBXWeb.enu.DomeinNaam</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set TestDomeinNaam = ""
+	if ( $length(DomeinNaam) ) && ( ##class(APPS.TBXWeb.enu.DomeinNaam).IsValidDT(DomeinNaam) ) {
+		set TestDomeinNaam = $zconvert($$$Server_"."_..GeefReferentieDomeinNaam(DomeinNaam),"L")_".local"
+	} else {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(DomeinNaam_" is ongeldig")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	quit TestDomeinNaam
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml
===================================================================
diff -u -r463 -r571
--- APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 463)
+++ APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 571)
@@ -314,7 +314,7 @@
 <Implementation><![CDATA[
 	set Server = ..WebServer()
   	if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.Library_TestDomeinenOmzetten") {
-	  	set Server = ##class(APPS.TBXWeb.TestUtils).GeefTestDomeinNaam(Server)
+	  	set Server = ##class(APPS.TBXWeb.Utils.TestUtils).GeefTestDomeinNaam(Server)
  	}
    	set URL = "http://"_Server_"/"_..WebPath()_"/"_"Main.csp?Taal="_..GetMailLanguage()_"&REF="_..GetHashedRef()
   	
Index: csp/vhisie/TBX/MailResult/tmpDev.mac.rou
===================================================================
diff -u -r320 -r571
--- csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 320)
+++ csp/vhisie/TBX/MailResult/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 571)
@@ -11,10 +11,10 @@
 	Set sComments=$$$Trim($G(%request.Data("COMMENTS",1),""))
 	
 	Set PageURL=%request.CgiEnvs("SERVER_NAME")
-
+ 
 	Set PageDomain=%request.CgiEnvs("SERVER_NAME")
 	if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.Library_TestDomeinenOmzetten") {
-		set PageDomain = ##class(APPS.TBXWeb.TestUtils).GeefDomeinNaam(PageDomain)
+		set PageDomain = ##class(APPS.TBXWeb.Utils.TestUtils).GeefDomeinNaam(PageDomain)
 	}
 	
 	Set ok = 0
@@ -24,7 +24,7 @@
 	. Set errmsg = "The wsID is not valid"
 	If $L(PageDomain)&&$L(WSOrd.WebDomain)&&(WSOrd.WebDomain'=PageDomain) Do  Quit
 	. Set errmsg = "The domain does not match the corresponding value in the order."
-
+ 
 	Set OrderbevEmail=$G(%request.Data("EMAILORDERBEVESTIGING",1))
 	Set LevTOms=$G(%request.Data("LEVERTIJD",1))
 	Set LevDatum=$G(%request.Data("LEVERTIJDID",1))
@@ -52,5 +52,5 @@
 		Set ok=1
 		Set WSOrd=""
 	}
-		Quit
-
+	Quit
+ 
\ No newline at end of file
Index: APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml	(revision 0)
+++ APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml	(revision 571)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.Utils.impl.LadeDesignControleur">
+<IncludeCode>PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="CreateHashedRef">
+<FormalSpec>KLNr:%String,VERW:%String,wsID:%Integer,sMode:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $L(KLNr) && ($$IsList^vhLib(KLNr)) {
+		Set Error=YY ; KLNr bevat geen geldige data. $LB(...) is niet correct.
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("KLNr bevat geen geldige data. $LB(...) is niet correct."))
+	}
+	If VERW="" {
+		Set Error=YY ; VERW is leeg. Dit is geen geldige waarde.
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("VERW is leeg. Dit is geen geldige waarde."))
+	}
+	If sMode="" {
+		Set Error=YY ; sMode is leeg. Dit is geen geldige waarde.
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("sMode is leeg. Dit is geen geldige waarde."))
+	}
+	
+	Quit $$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,sMode))
+]]></Implementation>
+</Method>
+
+<Method name="CreateHashedRefVoorAlleKlanten">
+<FormalSpec>VERW:%String,sMode:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$$$KLNrListAll
+	Set wsID=""
+	Quit ..CreateHashedRef(KLNr,VERW,wsID,sMode)
+]]></Implementation>
+</Method>
+</Class>
+</Export>