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>