Index: WS/TBX/GroepOrder.cls.xml
===================================================================
diff -u -r714 -r867
--- WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 714)
+++ WS/TBX/GroepOrder.cls.xml	(.../GroepOrder.cls.xml)	(revision 867)
@@ -169,6 +169,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsAankoopPrijsIngevuld">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsIngevuld = 1
+	Set itOrders = ##class(TECH.ListIterator).%New(..Orders)
+	While ( itOrders.HasNext() ) && ( IsIngevuld ) {
+		Set Order = itOrders.Next()
+		Set IsIngevuld = Order.IsAankoopPrijsIngevuld()
+	}
+	Quit IsIngevuld
+]]></Implementation>
+</Method>
+
 <Method name="AddToSubmitToVHLog">
 <FormalSpec>Status:%String,Info:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>