Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r436 -r478
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 436)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 478)
@@ -959,7 +959,34 @@
 <FormalSpec>wsID:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit $$WSOrdRecalc^cspBasis.GAProdTBox.tmpDev(.wsID)
+<Implementation><![CDATA[
+	Set lbResult=""
+	
+	If ##class(APPS.TBXWeb.Utils).IsGroepOrder(wsID) {
+		Set GroepOrder=##class(WS.TBX.GroepOrder).%OpenId(wsID)
+		Set itOrders = ##class(TECH.ListIterator).%New(GroepOrder.Orders)
+		While itOrders.HasNext() {
+			Set Order  = itOrders.Next()
+			Set lbSubResult = $$WSOrdRecalc^cspBasis.GAProdTBox.tmpDev(Order.%Id())
+			If '$LG(lbSubResult,1) {
+				Set $LI(lbResult,1)=""
+				Set $LI(lbResult,2)=$LI(lbResult,2)_$LG(lbSubResult,2)
+			}
+		}
+		If lbResult="" {
+			Set lbResult=$LB(1,"")   ; Status O.K. 
+		}
+
+		// TotaalPrijs herberekenen (na wijzigen suborders via WS) 
+		Do GroepOrder.%Reload()
+		Do GroepOrder.BerekenTotalen()
+		Set scSave=GroepOrder.%Save()
+	} 
+	Else {
+		Set lbResult = $$WSOrdRecalc^cspBasis.GAProdTBox.tmpDev(wsID)
+	}
+
+	Quit lbResult
 ]]></Implementation>
 </Method>