Index: APPS/TBXWeb/impl/UrlBuilder.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/impl/UrlBuilder.cls.xml	(revision 0)
+++ APPS/TBXWeb/impl/UrlBuilder.cls.xml	(revision 494)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.impl.UrlBuilder">
+<IncludeCode>PRGACNTs</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>1</ClassDefinitionError>
+
+<Method name="CreateHashedRef">
+<FormalSpec>KLNr:%String,VERW:%String,wsID:%Integer,sMode:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $$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>