Index: APPS/TBXWeb/OrderService.cls.xml
===================================================================
diff -u -r413 -r565
--- APPS/TBXWeb/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 413)
+++ APPS/TBXWeb/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 565)
@@ -91,6 +91,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsBestellingMogelijkNa01Mei2014">
+<FormalSpec>WebOrder:WS.TBX.OrderAbstract</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	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
+		}
+	}
+	
+	Quit IsBestellingMogelijk
+]]></Implementation>
+</Method>
+
 <Method name="KopieerBasisGegevensNaarWGO">
 <FormalSpec>WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order</FormalSpec>
 <Private>1</Private>
Index: APPS/TBXWeb/dto/TBXOrderLijst.cls.xml
===================================================================
diff -u -r320 -r565
--- APPS/TBXWeb/dto/TBXOrderLijst.cls.xml	(.../TBXOrderLijst.cls.xml)	(revision 320)
+++ APPS/TBXWeb/dto/TBXOrderLijst.cls.xml	(.../TBXOrderLijst.cls.xml)	(revision 565)
@@ -74,7 +74,15 @@
 	Set Melding=""
 	Set TBXOrder=..Orders.GetAt(1)
 	If $IsObject(TBXOrder)&&(TBXOrder.ExtraTekst["VVOFF-") {
-		Set Vervaldatum=$$$TextBetween(TBXOrder.ExtraTekst,"VVOFF-",";")
+		
+		Set OrderService = ##class(APPS.TBXWeb.OrderService).%New()
+		If ($$$Not(OrderService.IsBestellingMogelijkNa01Mei2014(TBXOrder))) {
+			Set Vervaldatum="30-04-2014 !!!"
+		}	
+		Else {
+			Set Vervaldatum=$$$TextBetween(TBXOrder.ExtraTekst,"VVOFF-",";")
+		}
+		
 		If (TBXOrder.BevatActies()) {
 		;	  --> indien we Vervaldatum correct kunnnen berekenen, dan : 
 		;	Set OfferteGeldigheidTekst=$$$Replace(..GeefVertaling("OfferteGeldigheidTekst_ofTotEindeActie",Taal,"O",OutputFormaat),"::VervalDatum",Vervaldatum)   ; "Deze offerte is 30 dagen geldig of tot einde actie, tot" ...