Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r117 -r580
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 117)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 580)
@@ -272,7 +272,7 @@
 	Merge arMtnDfl=..arDFL("MTN")
 
 	// Extra aanpassingen of controles 
-	Set:(arMtnDfl("DS")="") arMtnDfl("DS")=$S(..DCM="I":"WI", ..DCM="A":"WA", 1:"GS")
+	Set:(arMtnDfl("DS")="") arMtnDfl("DS")=$S(..DCM="I":"WI", ..DCM="A":"WA", 1:"WS")
 
 	// Op basis van arMtnDfl() een JS-function maken 
 	Set jsFunc=""
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r549 -r580
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 549)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 580)
@@ -27,6 +27,8 @@
 	Set sDomVERW=TBXContext.GeefDomeinVerwerker()
 	Set sDomKLNr=TBXContext.GeefDomeinKlantNummer()
 	
+	Set LadeDesignControleur=##class(APPS.TBXWeb.Utils.impl.LadeDesignControleur).%New(TBXContext)
+		
 	Set Taal="E"
 	Set DefaultTaal=TBXContext.GeefDefaultTaal()
 	Set blnNoAccess=TBXContext.IsOngeldigDomein()   ; ONBEKEND DOMEIN - NIET TOEGELATEN !!!
@@ -469,7 +471,7 @@
 	. Set blnDynaplugERR=0
 	
 	
-	Set IsDesignBeschikbaar=('$IsObject(WSOrd))||(WSOrd.IsLadeDesignBeschikbaar(.DS))
+	Set IsDesignBeschikbaar=('$IsObject(WSOrd))||(WSOrd.IsLadeDesignBeschikbaar(.DS,LadeDesignControleur))
 	Set blnOFFVervallen=($IsObject(WSOrd))&&(WSOrd.IsOfferteVervallen($H,.RedenVervallen))
 	If blnOFFVervallen Do  Quit:($G(blnQuit,0))
 	. // Als de "Recalc"-flag (via QueryString) op "1" staat, dan worden de prijzen van het WSOrd herberekend tijdens deze OnPreHTTP()
@@ -541,7 +543,7 @@
 	Quit:('$IsObject(WSOrd))
 	; Show Order Details
 	Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd)
-	Set IsDesignBeschikbaar=(WSOrd.IsLadeDesignBeschikbaar(.DS))
+	Set IsDesignBeschikbaar=(WSOrd.IsLadeDesignBeschikbaar(.DS,LadeDesignControleur))
 	
 	Do MShowVervaldagOFFText(TBXOrdersDto,Taal)
 	; Positie van de tekst t.o.v. de buttons
Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r578 -r580
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 578)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 580)
@@ -26,6 +26,8 @@
 	Kill %session.Data("QSDATA")
 	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
 	Set sDomVERW=TBXContext.GeefDomeinVerwerker()
+ 
+	Set LadeDesignControleur=##class(APPS.TBXWeb.Utils.impl.LadeDesignControleur).%New(TBXContext)
 	
 	Set blnVHEPN=(sDomVERW="VHEPN")
 	Set blnHEIN=(sDomVERW="HEIN")
Index: APPS/TBXWeb/OrderService.cls.xml
===================================================================
diff -u -r565 -r580
--- APPS/TBXWeb/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 565)
+++ APPS/TBXWeb/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 580)
@@ -95,22 +95,16 @@
 <FormalSpec>WebOrder:WS.TBX.OrderAbstract</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#define DollarHvan01Mei2014   "63308,0"
+
 	Set IsBestellingMogelijk=1
 
 	Set DesignCodeModes=WebOrder.GeefDesignCodeModes()
 	If ##class(TECH.ListUtils).Contains(DesignCodeModes,"S") {
-		Do ..ZetTBXContextVoorOrder(WebOrder)
-		If ..TBXContext.IsDomeinSFS() {
-			Set Design=""
-			Set WSLn=WebOrder.Lijnen.GetNext("")
-			If $IsObject(WSLn) {
-				Set Design=WSLn.ItemDS
-			}
-			Set IsBestellingMogelijk=(Design="WS")
-		}
-		Else {
-			Set IsBestellingMogelijk=0
-		}
+		Set LadeDesignControleur=WebOrder.GeefLadeDesignControleur()
+		Do LadeDesignControleur.ZetRefDatum($$$DollarHvan01Mei2014)
+
+		Set IsBestellingMogelijk=WebOrder.IsLadeDesignBeschikbaar("",LadeDesignControleur)
 	}
 	
 	Quit IsBestellingMogelijk