Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r1697 -r2193
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 1697)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2193)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.CSP.CSPApplicatie">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -159,9 +160,38 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>cspFile:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $system.CSP.GetFileName(cspFile)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerVolledigeURL">
+<Description>
+Geeft de volledige url terug :  http://server/csp-dir/csp-naam?querystringparams 
+vertrekkende van de gegeven cspKlasseNaam. 
+De QueryStringParameterLijst is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CspClassName:%String,QueryStringParameterLijst:%ListOfDataTypes=""</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	If $$$Not(##class(%CacheFileBridge.Project).DerivesFrom(CspClassName,"%CSP.Page")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De klasse "_CspClassName_" is geen CSP-klasse"))
+	}
 
-	quit $system.CSP.GetFileName(cspFile)
+	Set Server=$$$LCase($$$Server)
+	Set CspClassURL=##class(TECH.ClassUtils).GetClassParameterValue(CspClassName,"CSPURL")
+	
+	Set QueryString=""
+	If $IsObject(QueryStringParameterLijst) {
+		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterLijst)
+		While ParamsIterator.HasNext() {
+			Set KeyValuePair=ParamsIterator.Next()
+			Set QueryString=QueryString_$S($L(QueryString):"&",1:"")_KeyValuePair
+			;Set mdQueryString($P(KeyValuePair,"=",1))=$P(KeyValuePair,"=",2)
+		}
+	}
+	
+	Set URL=##class(TECH.Files).AppendFile("http://"_Server, CspClassURL)_"?"_QueryString   ; Built-in versie van Caché werkt niet : ##class(%CSP.Page).Link(CspBasisURL, .mdQueryString, 0) 
+	Quit URL
 ]]></Implementation>
 </Method>
 </Class>