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>