Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r516 -r579
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 516)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 579)
@@ -425,7 +425,7 @@
 		Set IsVervallen = 0
 		Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).IsGeenOfferte()
 	}
-	ElseIf $$$Not(..IsLadeDesignBeschikbaar()) {
+	ElseIf $$$Not(..IsLadeDesignBeschikbaar("",..GeefLadeDesignControleur())) {
 		Set IsVervallen = 1
 		Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).DesignNietBeschikbaar()
 	}
@@ -456,8 +456,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeDesignControleur">
+<ReturnType>APPS.TBXWeb.Utils.impl.LadeDesignControleur</ReturnType>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(..WebDomain,"")
+	Quit ##class(APPS.TBXWeb.Utils.impl.LadeDesignControleur).%New(TBXContext)
+]]></Implementation>
+</Method>
+
 <Method name="IsLadeDesignBeschikbaar">
-<FormalSpec><![CDATA[&DS:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[&DS:%String="",LadeDesignControleur:APPS.TBXWeb.Utils.impl.LadeDesignControleur]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set IsBeschikbaar=1
@@ -468,9 +476,12 @@
 		}
 	}
 	If $L(DS) {
-		If $$$Not(##class(Prod.GAMeta.BT.TBDesign).%ExistsId(DS)) {
+		If $$$Not(LadeDesignControleur.BestaatTBDesign(DS)) {
 			Set IsBeschikbaar=0
 		}
+		ElseIf $$$Not(LadeDesignControleur.IsDesignCommercieelBeschikbaar(DS)) {
+			Set IsBeschikbaar=0
+		}
 	}
 	Quit IsBeschikbaar
 ]]></Implementation>
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r567 -r579
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 567)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 579)
@@ -792,6 +792,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDesignGrijsPlusBeschikbaar">
+<FormalSpec>RefDatum:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#define DollarHvan01Mei2014   63308
+
+	Set DatumNietMeerBeschikbaar=$$$DollarHvan01Mei2014
+	Quit (+RefDatum<DatumNietMeerBeschikbaar)
+]]></Implementation>
+</Method>
+
+<Method name="IsDesignWitPlusBeschikbaar">
+<FormalSpec>RefDatum:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#define DollarHvan01Mei2014   63308
+	#define DollarHvan31Dec2014   63552
+
+	Set DatumNietMeerBeschikbaar=$$$DollarHvan01Mei2014
+	If ..DomeinVerwerker?1(1"SFS") {
+		Set DatumNietMeerBeschikbaar=$$$DollarHvan31Dec2014
+	}
+	Quit (+RefDatum<DatumNietMeerBeschikbaar)
+]]></Implementation>
+</Method>
+
 <Method name="ToonKlantrefProdBijIngaveMaten">
 <FormalSpec>KLNr</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml	(revision 579)
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.TBXWeb.Utils.impl.LadeDesignControleur">
+<Description>
+Oproepen via 
+	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.Utils.impl.LadeDesignControleur") </Description>
+<IncludeCode>APPS.TBXWeb</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="DollarHvan01Mei2014">
+<Type>%Integer</Type>
+<Default>63308,0</Default>
+</Parameter>
+
+<Parameter name="DollarHvan31Dec2014">
+<Type>%Integer</Type>
+<Default>63552,0</Default>
+</Parameter>
+
+<Method name="TestVHEPNDesignGSBeschikbaar">
+<Implementation><![CDATA[
+	Set DesignID="GS"
+	Set WebDomain=$$$TBoxWebDomeinVHEPN
+	Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain)
+	
+	Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1)
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfasering,1)
+	
+	Set DatumNaUitfasering = ..#DollarHvan01Mei2014
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfasering,0)
+]]></Implementation>
+</Method>
+
+<Method name="TestVHEPNDesignWSBeschikbaar">
+<Implementation><![CDATA[
+	Set DesignID="WS"
+	Set WebDomain=$$$TBoxWebDomeinVHEPN
+	Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain)
+
+	Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1)
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfasering,1)
+
+	Set DatumNaUitfasering = ..#DollarHvan01Mei2014
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfasering,0)
+]]></Implementation>
+</Method>
+
+<Method name="TestSFSDesignGSBeschikbaar">
+<Implementation><![CDATA[
+	Set DesignID="GS"
+	Set WebDomain=$$$TBoxWebDomeinSFS
+	Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain)
+	
+	Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1)
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfasering,1)
+
+	Set DatumNaUitfasering = ..#DollarHvan01Mei2014
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfasering,0)
+]]></Implementation>
+</Method>
+
+<Method name="TestSFSDesignWSBeschikbaar">
+<Implementation><![CDATA[
+	Set DesignID="WS"
+	Set WebDomain=$$$TBoxWebDomeinSFS
+	Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain)
+
+	Set DatumUitfaseringGS = (..#DollarHvan01Mei2014)
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumUitfaseringGS,1)
+
+	Set DatumVoorUitfaseringWS = (..#DollarHvan31Dec2014 - 1)
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfaseringWS,1)
+
+	Set DatumNaUitfaseringWS = ..#DollarHvan31Dec2014
+	Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfaseringWS,0)
+]]></Implementation>
+</Method>
+
+<Method name="AssertDesignBeschikbaar">
+<FormalSpec>LadeDesignControleur:APPS.TBXWeb.Utils.impl.LadeDesignControleur,DesignID:%String,RefDatum:%String,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do LadeDesignControleur.ZetRefDatum(RefDatum)
+	Do $$$AssertEquals(LadeDesignControleur.IsDesignCommercieelBeschikbaar(DesignID),VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestVHEPNIsTBXplusBeschikbaar">
+<Implementation><![CDATA[
+	Set WebDomain=$$$TBoxWebDomeinVHEPN
+	Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain)
+
+	Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1)
+	Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumVoorUitfasering,1)
+
+	Set DatumNaUitfasering = ..#DollarHvan01Mei2014
+	Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumNaUitfasering,0)
+]]></Implementation>
+</Method>
+
+<Method name="TestSFSIsTBXplusBeschikbaar">
+<Implementation><![CDATA[
+	Set WebDomain=$$$TBoxWebDomeinSFS
+	Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain)
+
+	Set DatumUitfaseringGS = (..#DollarHvan01Mei2014)
+	Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumUitfaseringGS,1)
+
+	Set DatumVoorUitfaseringWS = (..#DollarHvan31Dec2014 - 1)
+	Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumVoorUitfaseringWS,1)
+
+	Set DatumNaUitfaseringWS = ..#DollarHvan31Dec2014
+	Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumNaUitfaseringWS,0)
+]]></Implementation>
+</Method>
+
+<Method name="AssertIsTBXplusBeschikbaar">
+<FormalSpec>LadeDesignControleur:APPS.TBXWeb.Utils.impl.LadeDesignControleur,RefDatum:%String,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do LadeDesignControleur.ZetRefDatum(RefDatum)
+	Do $$$AssertEquals(LadeDesignControleur.IsTBXplusBeschikbaar(),VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+// Methods ter voorbereiding van de testen
+// ======= === ============= === == ====== 
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefLadeDesignControleur">
+<FormalSpec>WebDomain:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TBXWeb.Utils.impl.LadeDesignControleur</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.TBXWeb.Utils.impl.LadeDesignControleur).%New(..GeefTBXContext(WebDomain))
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBXContext">
+<FormalSpec>WebDomain:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TBXWeb.TBXContext</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.TBXWeb.TBXContext).%New(WebDomain,"")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/TBX/OrderCopy.cls.xml
===================================================================
diff -u -r320 -r579
--- WS/TBX/OrderCopy.cls.xml	(.../OrderCopy.cls.xml)	(revision 320)
+++ WS/TBX/OrderCopy.cls.xml	(.../OrderCopy.cls.xml)	(revision 579)
@@ -699,76 +699,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsOfferteVervallen">
-<Description>
-Optionele parameter RefDatum in $H-formaat meegeven. 
-Indien niet opgegeven, dan wordt $H als waarde genomen.  Dit is in de meeste gevallen de juiste waarde om IsVervallen te testen. </Description>
-<FormalSpec><![CDATA[RefDatum:%String=$H,&VervalReden:APPS.TBXWeb.enu.RedenOfferteVervallen]]></FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If (RefDatum'?5N0.1(1","1.5N)) ;$$$ThrowError($$$errGeneralError,"Ongeldige datum gespecifieerd (moet $H-formaat zijn)")
-	Set AantalDagenGeldig=30
-	Set VervalReden = ""
-	
-	Set IsVervallen = 0
-	If (..BonType'="OFF")
-	{
-		// Dit is geen offerte, kan dus niet vervallen zijn 
-		Set IsVervallen = 0
-		Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).IsGeenOfferte()
-	}
-	ElseIf $$$Not(..IsLadeDesignBeschikbaar()) {
-		Set IsVervallen = 1
-		Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).DesignNietBeschikbaar()
-	}
-	ElseIf (..ZijnErNieuweActies(RefDatum))
-	{
-		// Er zijn nieuwe acties, het huidige order vervalt dus zeker omdat er een betere prijs mogelijk is
-		Set IsVervallen = 1
-		Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).NieuweActie()
-	}
-	Else
-	{	
-		Set IsVervallen=(..DagenVervallen(RefDatum,AantalDagenGeldig)>0)
-		If (IsVervallen)
-		{
-			Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).DuurOfferteVerstreken()
-		}
-		Else
-		{
-			If (..ActieCodesList.Count() > 0) Set IsVervallen = IsVervallen || ('..ZijnActiesNogGeldig(RefDatum))
-			If (IsVervallen)
-			{
-				Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).ActieVervallen()
-			}
-		}
-	}
-
-	Quit IsVervallen
-]]></Implementation>
-</Method>
-
-<Method name="IsLadeDesignBeschikbaar">
-<FormalSpec><![CDATA[&DS:%String=""]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set IsBeschikbaar=1
-	If DS="" {
-		Set WSLn=..Lijnen.GetNext("")
-		If $IsObject(WSLn) {
-			Set DS=WSLn.ItemDS
-		}
-	}
-	If $L(DS) {
-		If $$$Not(##class(Prod.GAMeta.BT.TBDesign).%ExistsId(DS)) {
-			Set IsBeschikbaar=0
-		}
-		; Else  verdere verfijningen mogelijk 
-	}
-	Quit IsBeschikbaar
-]]></Implementation>
-</Method>
-
 <Method name="ZijnErNieuweActies">
 <FormalSpec>RefDatum:%String=$H</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
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>