Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r28 -r54
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 28)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 54)
@@ -159,9 +159,37 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>cspFile:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
+<Implementation><![CDATA[	quit $system.CSP.GetFileName(cspFile)
+]]></Implementation>
+</Method>
 
-	quit $system.CSP.GetFileName(cspFile)
+<Method name="GenereerVolledigeURL">
+<Description>
+Geeft de volledige url terug :  http://server/csp-dir/csp-naam?querystringparams 
+vertrekkende van de gegeven CspClassName. 
+De QueryStringParameterList is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CspClassName:%String,QueryStringParameterList:%ListOfDataTypes=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If '(##class(TECH.ClassUtils).ClassDerivesFrom(CspClassName,"%CSP.Page")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De klasse "_CspClassName_" is geen CSP-klasse"))
+	}
+	
+	Set Server=$zconvert($zu(110),"L")
+	Set CspClassURL=##class(TECH.ClassUtils).GetClassParameterValue(CspClassName,"CSPURL")
+	
+	Set QueryString=""
+	If $IsObject(QueryStringParameterList) {
+		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterList)
+		While ParamsIterator.HasNext() {
+			Set KeyValuePair=ParamsIterator.Next()
+			Set QueryString=QueryString_$S($L(QueryString):"&",1:"")_KeyValuePair
+		}
+	}
+	
+	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>