Index: APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml
===================================================================
diff -u -r571 -r579
--- APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml	(.../LadeDesignControleur.cls.xml)	(revision 571)
+++ APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml	(.../LadeDesignControleur.cls.xml)	(revision 579)
@@ -1,37 +1,78 @@
 <?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>
+<Super>TECH.RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="CreateHashedRef">
-<FormalSpec>KLNr:%String,VERW:%String,wsID:%Integer,sMode:%String</FormalSpec>
+<Property name="TBXContext">
+<Type>APPS.TBXWeb.TBXContext</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RefDatum">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TBXContext:APPS.TBXWeb.TBXContext</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
 <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."))
+	Set ..TBXContext = TBXContext
+	Set ..RefDatum = $H+15
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefRefDatum">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..RefDatum
+]]></Implementation>
+</Method>
+
+<Method name="ZetRefDatum">
+<FormalSpec>RefDatum:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Set ..RefDatum = RefDatum
+]]></Implementation>
+</Method>
+
+<Method name="BestaatTBDesign">
+<FormalSpec>TBDesignID:%String</FormalSpec>
+<Implementation><![CDATA[	Quit (##class(Prod.GAMeta.BT.TBDesign).%ExistsId(TBDesignID))
+]]></Implementation>
+</Method>
+
+<Method name="IsTBXplusBeschikbaar">
+<Implementation><![CDATA[
+	Set ToonKnop = 0
+	If (..TBXContext.IsDesignWitPlusBeschikbaar(..GeefRefDatum())) || (..TBXContext.IsDesignGrijsPlusBeschikbaar(..GeefRefDatum())) {
+		Set ToonKnop = 1
 	}
-	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))
+	Quit ToonKnop
 ]]></Implementation>
 </Method>
 
-<Method name="CreateHashedRefVoorAlleKlanten">
-<FormalSpec>VERW:%String,sMode:%String</FormalSpec>
+<Method name="IsDesignCommercieelBeschikbaar">
+<FormalSpec>TBDesignID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set KLNr=$$$KLNrListAll
-	Set wsID=""
-	Quit ..CreateHashedRef(KLNr,VERW,wsID,sMode)
+	Set IsBeschikbaar = 1
+	
+	// Bij gebrek aan enumeratie en de enuVerwerker(), hier een simpele If-Else implementatie. 
+	If TBDesignID="GS" {
+		Set IsBeschikbaar=..TBXContext.IsDesignGrijsPlusBeschikbaar(..GeefRefDatum())
+	}
+	ElseIf TBDesignID="WS" {
+		Set IsBeschikbaar=..TBXContext.IsDesignWitPlusBeschikbaar(..GeefRefDatum())
+	}
+	ElseIf TBDesignID?1(1"AS",1"IS") {
+		Set IsBeschikbaar=0
+	}
+	
+	Quit IsBeschikbaar
 ]]></Implementation>
 </Method>
 </Class>