Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r822 -r846
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 822)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 846)
@@ -823,6 +823,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WijzigExcludeAlleLijnen">
+<Description>
+Exclude wijzigen: bvb. voor herrekenen van vervallen offerte, dan alle lijnen herrekenen.</Description>
+<FormalSpec>NewValue:%Boolean,BewaarOrderNaWijzigen:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	Set LijnIterator = ##class(TECH.ListIterator).%New(..Lijnen)
+	While LijnIterator.HasNext() {
+		Set WSLijn = LijnIterator.Next() 
+		Set WSLijn.Exclude = NewValue
+	}
+	If BewaarOrderNaWijzigen {
+		Set scSave = ..%Save()
+		If $$$ISERR(scSave) s y=xx
+	}
+]]></Implementation>
+</Method>
+
 <Method name="SetHoofding">
 <FormalSpec>CommReferentie:%String,LeverDatum:%String,Opmerking:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: cspBasis/GAProdTBox/tmpDev.mac.rou
===================================================================
diff -u -r735 -r846
--- cspBasis/GAProdTBox/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 735)
+++ cspBasis/GAProdTBox/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 846)
@@ -218,6 +218,7 @@
 	}
  
 	Do orcSetURLValues
+	Do WSOrd.WijzigExcludeAlleLijnen(0,$$$True)   ; Reset WSLijn.Exclude op 0 (en bewaar WSOrd) 
 	Set PreCalcID=WSOrd.%Id()
 	Do orcRecalcWS   ; Sets lbResult to:   OK = $LB(1,"")  ;  ERROR = $LB("","ErrorMsg" or sc)
 	  ;s lbResult=$LB("","TEST")