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>
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r861 -r867
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 861)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 867)
@@ -460,6 +460,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsAankoopPrijsIngevuld">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsIngevuld = $$$True
+
+	Set WSLijnIterator = ##class(TECH.ListIterator).%New(..Lijnen)
+	While (WSLijnIterator.HasNext()) && (IsIngevuld) {
+		Set WSLijn = WSLijnIterator.Next()
+		If (WSLijn.KostPrijs > 0) && ($$$Not(WSLijn.AKPrijs > 0)) {
+			Set IsIngevuld = $$$False
+		}
+	}
+	Quit IsIngevuld
+]]></Implementation>
+</Method>
+
 <Method name="GeefLadeDesignControleur">
 <ReturnType>APPS.TBXWeb.Utils.impl.LadeDesignControleur</ReturnType>
 <Implementation><![CDATA[