Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r365 -r415
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 365)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 415)
@@ -863,6 +863,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatGlasOfInschuifElement">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BevatGlasOfInschuifElement = 0
+	Set LijnIterator = ##class(TECH.ListIterator).%New(..Lijnen)
+	While LijnIterator.HasNext() {
+		If LijnIterator.Next().LadeBevatGlasOfInschuifElement() {
+			Set BevatGlasOfInschuifElement = 1
+		}
+	}
+	Quit BevatGlasOfInschuifElement
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>OrderDefaultData</DefaultData>
Index: WS/TBX/OrderAbstract.cls.xml
===================================================================
diff -u -r363 -r415
--- WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 363)
+++ WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 415)
@@ -431,6 +431,11 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="BevatGlasOfInschuifElement">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WS.TBX.OrderAbstractD</DataLocation>
Index: WS/TBX/GroepOrder.cls.xml
===================================================================
diff -u -r363 -r415
--- WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 363)
+++ WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 415)
@@ -196,6 +196,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BevatGlasOfInschuifElement">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BevatGlasOfInschuifElement = 0
+	Set OrderIterator = ##class(TECH.ListIterator).%New(..Orders)
+	While OrderIterator.HasNext() {
+		Set Order = OrderIterator.Next()
+		If Order.BevatGlasOfInschuifElement() {
+			Set BevatGlasOfInschuifElement = 1
+		}
+	}
+	Quit BevatGlasOfInschuifElement
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>GroepOrderDefaultData</DefaultData>