Index: APPS/common/impl/StockOverKinderenObj.cls.xml
===================================================================
diff -u -r29059 -r33084
--- APPS/common/impl/StockOverKinderenObj.cls.xml	(.../StockOverKinderenObj.cls.xml)	(revision 29059)
+++ APPS/common/impl/StockOverKinderenObj.cls.xml	(.../StockOverKinderenObj.cls.xml)	(revision 33084)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>APPS.common.StockOverKinderen</Super>
 
 <Property name="MoederProduct">
 <Type>DOM.PM.Product</Type>
@@ -16,16 +16,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Datum">
-<Type>%Date</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="StockType">
-<Type>APPS.common.enu.StockType</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Kinderen">
 <Type>DOM.PM.Bouwstenen.BouwsteenKind</Type>
 <Collection>array</Collection>
@@ -57,87 +47,81 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MoederProduct:DOM.PM.Product,StockType:APPS.common.enu.StockType,Datum:%Date=""</FormalSpec>
+<FormalSpec>MoederProduct:DOM.PM.Product,Datum:%Date=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	set ..MoederProduct = MoederProduct
-	set ..StockType = StockType
 	set ..Datum = Datum
 	quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="SetStockType">
-<FormalSpec>StockType:APPS.common.enu.StockType</FormalSpec>
-<Implementation><![CDATA[	set ..StockType = StockType
+<Method name="GeefStockNiveauService">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.common.StockNiveauService</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product, ..Datum)
 ]]></Implementation>
 </Method>
 
 <Method name="FysischeStock">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product,..Datum)
-	set result = implStockService.GeefFysischeStock()
-	quit result
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(Product).GeefFysischeStock()
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInOrder">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product,..Datum)
-	quit implStockService.GeefAantalInOrder()
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(Product).GeefAantalInOrder()
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInToelevering">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product,..Datum)
-	quit implStockService.GeefAantalInToelevering()
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(Product).GeefAantalInToelevering()
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInReservatie">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product,..Datum)
-	quit implStockService.GeefAantalInReservatie()
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(Product).GeefAantalInReservatie()
 ]]></Implementation>
 </Method>
 
-<Method name="Beschikbaarheid">
+<Method name="GeefBeschikbaarheid">
+<FormalSpec>StockType:APPS.common.enu.StockType</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#define enuStockType ##class(APPS.common.enu.StockType)
+	#dim EnumStockType As APPS.common.enu.StockType.AutoComplete = ##class(APPS.common.enu.StockType.AutoComplete).%New()
 	
-	set ..Kinderen = ..BepaalKinderen(..MoederProduct)
+	Set ..Kinderen = ..BepaalKinderen(..MoederProduct)		
 	
-	if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) {
-		do ..BepaalAantalKinderenInOrder()
+	If (StockType = EnumStockType.Praktisch) || (StockType = EnumStockType.Theoretisch) {
+		Do ..BepaalAantalKinderenInOrder()
 	}
-	if ..StockType = $$$enuStockType.Theoretisch() { 	
-		do ..BepaalAantalKinderenInToelev()
+	
+	If (StockType = EnumStockType.Theoretisch) { 	
+		Do ..BepaalAantalKinderenInToelev()
 	}
-	if ..StockType = $$$enuStockType.FysischMinReservaties() {
-		do ..BepaalAantalKinderenInReserv()
+	
+	If (StockType = EnumStockType.FysischMinReservaties) {
+		Do ..BepaalAantalKinderenInReserv()
 	}
-	do ..BepaalAantalKinderenBeschikbaar()
 	
-	set AantalMoedersMogelijk = ..BepaalAantalMoedersMogelijk()
-
-	quit AantalMoedersMogelijk
+	Do ..BepaalAantalKinderenBeschikbaar()
+	
+	Quit ..BepaalAantalMoedersMogelijk()
 ]]></Implementation>
 </Method>
 
@@ -148,16 +132,20 @@
 	set arKinderen = ##class(%ArrayOfObjects).%New()
 	set oMoeder = ##class(DOM.PM.Bouwstenen.Product).%OpenId(Moeder.GeefPRNr())
 	set itBouwstenen = ##class(TECH.ListIterator).%New(oMoeder.Bouwstenen)
+	
 	while itBouwstenen.HasNext() {
 		set Bouwsteen = itBouwstenen.Next()
+		
 		if ( Bouwsteen.Type = ##class(DOM.PM.enu.BouwsteenType).KindProduct() )  {
 			set KindData = ##class(APPS.common.impl.ProductInfo).%New()
 			set KindPRNr = Bouwsteen.KindProductGetObjectId()
 			set KindData.Bouwsteen = Bouwsteen
 			set KindData.Product = ..ProductAPI.GeefProduct(KindPRNr)
+			
 			do arKinderen.SetAt(KindData,KindPRNr)
 		}
 	}
+	
 	quit arKinderen
 ]]></Implementation>
 </Method>
@@ -168,11 +156,14 @@
 <Implementation><![CDATA[
 	set arMoeders = ##class(%ArrayOfObjects).%New()
 	set MoederPRNr = ""
+	
 	for  { set MoederPRNr = $order(^PRBS("IP",KindProduct.GeefPRNr(),MoederPRNr)) quit:MoederPRNr=""
 	    set MoederData = ##class(APPS.common.impl.ProductInfo).%New()
 		set MoederData.Bouwsteen = ##class(DOM.PM.Bouwstenen.Product).%OpenId(MoederPRNr)
 		set MoederData.Product = ..ProductAPI.GeefProduct(MoederPRNr)
-		do arMoeders.SetAt(MoederData,MoederPRNr) }
+		
+		do arMoeders.SetAt(MoederData,MoederPRNr)
+	}
 	quit arMoeders
 ]]></Implementation>
 </Method>
@@ -184,20 +175,24 @@
 	set arMoedersVanKinderen = ##class(%ArrayOfDataTypes).%New()
 	set arKinderen = ..BepaalKinderen(Moeder)
 	set itKinderen = ##class(TECH.ListIterator).%New(arKinderen)
+	
 	while itKinderen.HasNext() {
 		set KindData =itKinderen.Next() 
 		set KindPRNr = itKinderen.Key()
 		set KindProduct = KindData.Product
 		set arMoeders = ..BepaalMoeders(KindProduct)
 		set itMoeders = ##class(TECH.ListIterator).%New(arMoeders)
 		set listMoeders = ##class(%ListOfObjects).%New()
+		
 		while itMoeders.HasNext() {
 			do itMoeders.Next() 
 			set MoederProduct = itMoeders.Key()
 			do listMoeders.Insert(MoederProduct)
 		}
+		
 		do arMoedersVanKinderen.SetAt(listMoeders,KindPRNr)
 	}
+	
 	quit arMoedersVanKinderen
 ]]></Implementation>
 </Method>
@@ -206,24 +201,26 @@
 <Private>1</Private>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-
 	set arMoedersInOrder = ##class(%ArrayOfDataTypes).%New()
 	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
+	
 	while itKinderen.HasNext() {
 		set KindData = itKinderen.Next() 
 		set KindPRNr = itKinderen.Key()
 		set KindProduct =KindData.Product
 		set itMoeders = ##class(TECH.ListIterator).%New(..BepaalMoeders(KindProduct))
+		
 		while itMoeders.HasNext() {
 			set MoederData = itMoeders.Next()	
 			set MoederPRNr = itMoeders.Key()
 			set MoederProduct = MoederData.Product
+			
 			if 'arMoedersInOrder.IsDefined(MoederPRNr) {
 				set AantalInOrder = ..AantalInOrder(MoederProduct)
 				set AantalInOrderData = ##class(APPS.common.impl.ProductInfo).%New()
 				set AantalInOrderData.Aantal = AantalInOrder
 				set AantalInOrderData.Product = MoederProduct
+				
 				if AantalInOrder>0 do arMoedersInOrder.SetAt(AantalInOrderData,MoederPRNr)
 			}
 		}
@@ -237,19 +234,22 @@
 <Implementation><![CDATA[
 	set arMoedersInOrder = ..BepaalAantalMoedersInOrder()
 	set itMoedersInOrder = ##class(TECH.ListIterator).%New(arMoedersInOrder)
+	
 	while itMoedersInOrder.HasNext() {
 		set AantalInOrderData = itMoedersInOrder.Next()
 		set MoederProduct = AantalInOrderData.Product
 		set AantalInOrderMoeder = AantalInOrderData.Aantal
 		set MoederPRNr = itMoedersInOrder.Key()
 		set itKinderen = ##class(TECH.ListIterator).%New(..BepaalKinderen(MoederProduct))
+		
 		while itKinderen.HasNext() {
 			set KindData = itKinderen.Next()
 			set KindBouwsteen = KindData.Bouwsteen
 			set KindPRNr = itKinderen.Key()
 			set AantalKinderenNodigVoorMoeder = KindBouwsteen.Aantal
 			set AantalInOrderKind = AantalInOrderMoeder * AantalKinderenNodigVoorMoeder
 			set AantalReedsInOrderKind = ..KinderenInOrder.GetAt(KindPRNr)
+			
 			do ..KinderenInOrder.SetAt(AantalInOrderKind+AantalReedsInOrderKind,KindPRNr)
 		}
 	}
@@ -260,34 +260,37 @@
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
+	
 	while itKinderen.HasNext() {
 		set KindData = itKinderen.Next() 
 		set KindPRNr = itKinderen.Key()
 		set KindProduct = KindData.Product
 		set AantalInToelevering = ..AantalInToelevering(KindProduct)
+		
 		do ..KinderenInToelevering.SetAt(AantalInToelevering,KindPRNr)
 	}
-	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalKinderenInReserv">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
+	
 	while itKinderen.HasNext() {
 		set KindData = itKinderen.Next(),KindPRNr = itKinderen.Key()
 		set KindProduct = KindData.Product
 		set AantalInReservatie = ..AantalInReservatie(KindProduct)
+		
 		do ..KinderenInReservatie.SetAt(AantalInReservatie,KindPRNr)
 	}
-	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalKinderenBeschikbaar">
 <Implementation><![CDATA[
 	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
+	
 	while itKinderen.HasNext() {
 		set KindData = itKinderen.Next(),KindPRNr = itKinderen.Key()
 		set KindProduct = KindData.Product
@@ -296,30 +299,32 @@
 		set AantalInReservatie = ..KinderenInReservatie.GetAt(KindPRNr) 
 		set FysischeStock = ..FysischeStock(KindProduct)
 		set AantalBeschikbaar = FysischeStock-AantalInOrder+AantalInToelev-AantalInReservatie
+		
 		do ..KinderenBeschikbaar.SetAt(AantalBeschikbaar,KindPRNr)
 	}
-	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalMoedersMogelijk">
 <Implementation><![CDATA[
 	set AantalMoedersMogelijk = ""
 	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
+	
 	while itKinderen.HasNext() {
 		set KindData = itKinderen.Next()
 		set KindPRNr = itKinderen.Key()
 		set KindBouwsteenInfo = KindData.Bouwsteen
 		set AantalKinderenNodigVoorMoeder = KindBouwsteenInfo.Aantal
 		continue:AantalKinderenNodigVoorMoeder=0
 		set AantalMogelijk = ##class(TECH.Math).Floor(..KinderenBeschikbaar.GetAt(KindPRNr)/AantalKinderenNodigVoorMoeder)
+		
 		if '$length(AantalMoedersMogelijk) { 
 			set AantalMoedersMogelijk = AantalMogelijk 
-		}
-		elseif (AantalMoedersMogelijk > AantalMogelijk) { 
+		} elseif (AantalMoedersMogelijk > AantalMogelijk) { 
 			set AantalMoedersMogelijk = AantalMogelijk 
 		}
 	}
+	
 	quit +AantalMoedersMogelijk
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml
===================================================================
diff -u -r29059 -r33084
--- vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml	(.../StockOverKinderenMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml	(.../StockOverKinderenMock.cls.xml)	(revision 33084)
@@ -6,11 +6,11 @@
 <Super>APPS.common.impl.StockOverKinderen</Super>
 
 <Method name="%OnNew">
-<FormalSpec>MoederPRNr:%Integer,StockType:APPS.common.enu.StockType,Datum:%Date=""</FormalSpec>
+<FormalSpec>MoederPRNr:%Integer,Datum:%Date=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	quit ##super($get(MoederPRNr),$get(StockType),Datum)
+<Implementation><![CDATA[	Quit ##super($get(MoederPRNr), Datum)
 ]]></Implementation>
 </Method>
 
Index: APPS/common/StockOverKinderen.cls.xml
===================================================================
diff -u
--- APPS/common/StockOverKinderen.cls.xml	(revision 0)
+++ APPS/common/StockOverKinderen.cls.xml	(revision 33084)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.StockOverKinderen">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefBeschikbaarheid">
+<Abstract>1</Abstract>
+<FormalSpec>StockType:APPS.common.enu.StockType</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/common/impl/StockOverKinderen.cls.xml
===================================================================
diff -u -r29059 -r33084
--- APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 29059)
+++ APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33084)
@@ -2,25 +2,14 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.common.impl.StockOverKinderen">
 <ClassType/>
-<IncludeCode>Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>APPS.common.StockOverKinderen</Super>
 
 <Property name="MoederPRNr">
 <Type>%Integer</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="Datum">
-<Type>%Date</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="StockType">
-<Type>APPS.common.enu.StockType</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Kinderen">
 <Type>%Integer</Type>
 <Collection>array</Collection>
@@ -52,88 +41,80 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MoederPRNr:%Integer,StockType:APPS.common.enu.StockType,Datum:%Date=""</FormalSpec>
+<FormalSpec>MoederPRNr:%Integer,Datum:%Date=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set ..MoederPRNr = MoederPRNr
-	set ..StockType = StockType
 	set ..Datum = Datum
 	quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="SetStockType">
-<FormalSpec>StockType:APPS.common.enu.StockType</FormalSpec>
-<Implementation><![CDATA[	set ..StockType = StockType
+<Method name="GeefStockNiveauService">
+<FormalSpec>ProductNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.common.StockNiveauService</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.common.impl.StockNiveauService).%New(ProductNummer, ..Datum)
 ]]></Implementation>
 </Method>
 
 <Method name="FysischeStock">
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
-	set result = implStockService.GeefFysischeStock()
-	quit result
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(PRNr).GeefFysischeStock()
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInOrder">
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
-	quit implStockService.GeefAantalInOrder()
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(PRNr).GeefAantalInOrder()
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInToelevering">
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
-	quit implStockService.GeefAantalInToelevering()
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(PRNr).GeefAantalInToelevering()
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInReservatie">
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
-	quit implStockService.GeefAantalInReservatie()
+<Implementation><![CDATA[	Quit ..GeefStockNiveauService(PRNr).GeefAantalInReservatie()
 ]]></Implementation>
 </Method>
 
-<Method name="Beschikbaarheid">
-<Description>
-Afhankelijk van het stocktype worden zaken al dan niet berekenend zodat die bij de bepaling van het aantal beschikbaar al dan niet 
-in rekening gebracht worden..</Description>
+<Method name="GeefBeschikbaarheid">
+<FormalSpec>StockType:APPS.common.enu.StockType</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#define enuStockType ##class(APPS.common.enu.StockType)
+	#dim EnumStockType As APPS.common.enu.StockType.AutoComplete = ##class(APPS.common.enu.StockType.AutoComplete).%New()
 	
-	set ..Kinderen = ..BepaalKinderen(..MoederPRNr)
-	if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) {
-		do ..BepaalAantalKinderenInOrder()
+	Set ..Kinderen = ..BepaalKinderen(..MoederPRNr)
+	
+	If (StockType = EnumStockType.Praktisch) || (StockType = EnumStockType.Theoretisch) {
+		Do ..BepaalAantalKinderenInOrder()
 	}
-	if ..StockType = $$$enuStockType.Theoretisch() { 	
-		do ..BepaalAantalKinderenInToelev()
+	
+	If (StockType = EnumStockType.Theoretisch) { 	
+		Do ..BepaalAantalKinderenInToelev()
 	}
-	if ..StockType = $$$enuStockType.FysischMinReservaties() {
-		do ..BepaalAantalKinderenInReserv()
+	
+	If (StockType = EnumStockType.FysischMinReservaties) {
+		Do ..BepaalAantalKinderenInReserv()
 	}
-	do ..BepaalAantalKinderenBeschikbaar()
 	
-	set AantalMoedersMogelijk = ..BepaalAantalMoedersMogelijk()
-
-	quit AantalMoedersMogelijk
+	Do ..BepaalAantalKinderenBeschikbaar()
+	
+	Quit ..BepaalAantalMoedersMogelijk()
 ]]></Implementation>
 </Method>
 
@@ -143,14 +124,18 @@
 <Implementation><![CDATA[
 	set arKinderen = ##class(%ArrayOfDataTypes).%New()
 	set idxBSKey = ""
+	
 	for  { set idxBSKey = $order(^PRBS("BS",MoederPRNr,idxBSKey)) quit:idxBSKey=""
+		
 		set Rec = ^PRBS("BS",MoederPRNr,idxBSKey)
 		if $piece(Rec,"\",3)="K" {
 			set Aantal = $piece(Rec,"\",2)
 			set KindPRNr = $piece(Rec,"\",1)
+			
 			do arKinderen.SetAt(Aantal,KindPRNr)
 		}
 	}
+	
 	quit arKinderen
 ]]></Implementation>
 </Method>
@@ -161,8 +146,11 @@
 <Implementation><![CDATA[
 	set arMoeders = ##class(%ArrayOfDataTypes).%New()
 	set MoederPRNr = ""
+	
 	for  { set MoederPRNr = $order(^PRBS("IP",KindPRNr,MoederPRNr)) Quit:MoederPRNr=""
-		do arMoeders.SetAt("",MoederPRNr) }
+		do arMoeders.SetAt("",MoederPRNr)
+	}
+	
 	quit arMoeders
 ]]></Implementation>
 </Method>
@@ -173,16 +161,19 @@
 <Implementation><![CDATA[
 	set arMoedersInOrder = ##class(%ArrayOfDataTypes).%New()
 	set KindPRNr = ""
+	
 	for  { set KindPRNr = ..Kinderen.Next(KindPRNr) Quit:KindPRNr=""
 		set arMoeders = ..BepaalMoeders(KindPRNr)
 		set MoederPRNr = ""
+		
 		for { set MoederPRNr = arMoeders.Next(MoederPRNr) Quit:MoederPRNr=""
 			if 'arMoedersInOrder.IsDefined(MoederPRNr) {
 				set AantalInOrder = ..AantalInOrder(MoederPRNr)
 				if AantalInOrder>0 do arMoedersInOrder.SetAt(AantalInOrder,MoederPRNr)
 			}
 		}
 	}
+	
 	quit arMoedersInOrder
 ]]></Implementation>
 </Method>
@@ -192,14 +183,17 @@
 <Implementation><![CDATA[
 	set arMoedersInOrder = ..BepaalAantalMoedersInOrder()
 	set MoederPRNr = ""
+	
 	for  { set MoederPRNr = arMoedersInOrder.Next(MoederPRNr) quit:MoederPRNr="" 
 		set AantalInOrderMoeder = arMoedersInOrder.GetAt(MoederPRNr)
 		set arKinderen = ..BepaalKinderen(MoederPRNr)
 		set KindPRNr = ""
+		
 		for  { set KindPRNr = arKinderen.Next(KindPRNr) quit:KindPRNr="" 
 			set AantalKinderenNodigVoorMoeder = arKinderen.GetAt(KindPRNr)
 			set AantalInOrderKind = AantalInOrderMoeder * AantalKinderenNodigVoorMoeder
 			set AantalReedsInOrderKind = ..KinderenInOrder.GetAt(KindPRNr)
+			
 			do ..KinderenInOrder.SetAt(AantalInOrderKind+AantalReedsInOrderKind,KindPRNr)
 		}
 	}
@@ -210,40 +204,40 @@
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set KindPRNr = ""
+	
 	for { set KindPRNr = ..Kinderen.Next(KindPRNr) quit:KindPRNr="" 
 		set AantalInToelevering = ..AantalInToelevering(KindPRNr)
 		do ..KinderenInToelevering.SetAt(AantalInToelevering,KindPRNr)
 	}
-	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalKinderenInReserv">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set KindPRNr = ""
+	
 	for { set KindPRNr = ..Kinderen.Next(KindPRNr) quit:KindPRNr="" 
 		set AantalInReservatie = ..AantalInReservatie(KindPRNr)
 		do ..KinderenInReservatie.SetAt(AantalInReservatie,KindPRNr)
 	}
-	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalKinderenBeschikbaar">
 <Implementation><![CDATA[
 	set KindPRNr = ""
+	
 	for { set KindPRNr = ..Kinderen.Next(KindPRNr) quit:KindPRNr="" 
 		continue:(..Kinderen.GetAt(KindPRNr)=0) ; mag geskipped worden indien kinderen toch niet gebruikt worden..
 		set AantalInOrder = ..KinderenInOrder.GetAt(KindPRNr)
 		set AantalInToelev = ..KinderenInToelevering.GetAt(KindPRNr) 
 		set AantalInReservatie = ..KinderenInReservatie.GetAt(KindPRNr) 
 		set FysischeStock = ..FysischeStock(KindPRNr)
 		set AantalBeschikbaar = FysischeStock-AantalInOrder+AantalInToelev-AantalInReservatie
+		
 		do ..KinderenBeschikbaar.SetAt(AantalBeschikbaar,KindPRNr)
 	}
-	
-	quit
 ]]></Implementation>
 </Method>
 
@@ -252,17 +246,19 @@
 <Implementation><![CDATA[
 	set AantalMoedersMogelijk = ""
 	set KindPRNr = ""
+	
 	for { set KindPRNr = ..Kinderen.Next(KindPRNr) quit:KindPRNr="" 
 		set AantalKinderenNodigVoorMoeder = ..Kinderen.GetAt(KindPRNr)
 		continue:AantalKinderenNodigVoorMoeder=0
 		set AantalMogelijk = ##class(TECH.Math).Floor(..KinderenBeschikbaar.GetAt(KindPRNr)/AantalKinderenNodigVoorMoeder)
+		
 		if '$length(AantalMoedersMogelijk) { 
 			set AantalMoedersMogelijk = AantalMogelijk 
-		}
-		elseif (AantalMoedersMogelijk > AantalMogelijk) { 
+		} elseif (AantalMoedersMogelijk > AantalMogelijk) { 
 			set AantalMoedersMogelijk = AantalMogelijk 
 		}
 	}
+	
 	quit +AantalMoedersMogelijk
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/common/StockOverKinderen.cls.xml
===================================================================
diff -u -r33028 -r33084
--- vhUnitTest/APPS/common/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33028)
+++ vhUnitTest/APPS/common/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33084)
@@ -2,13 +2,10 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.common.StockOverKinderen">
 <ClassType/>
-<IncludeCode>DOM.DomeinContext</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="OnBeforeAllTests">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.common.StockOverKinderen")</Description>
 <Implementation><![CDATA[
 	 do ##super()
 	 do ..CreatePRBS()	
@@ -99,8 +96,6 @@
 	do $$$AssertTrue(listKinderkens.IsDefined(1013),"")
 	do $$$AssertTrue(listKinderkens.IsDefined(1014),"")
 	do $$$AssertTrue(listKinderkens.IsDefined(1015),"")
-		
-	quit
 ]]></Implementation>
 </Method>
 
@@ -111,7 +106,6 @@
 	do $$$AssertEquals(listMoeders.Count(),2)
 	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
 	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
-	quit
 ]]></Implementation>
 </Method>
 
@@ -137,32 +131,34 @@
 	do $$$AssertEquals(listMoeders.Count(),2)
 	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
 	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
-
-	quit
 ]]></Implementation>
 </Method>
 
 <Method name="TestFysischeStock">
 <Implementation><![CDATA[
-	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New(1000,##class(APPS.common.enu.StockType).Fysisch())
-	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),20,"")
+	#dim EnumStockType As APPS.common.enu.StockType.AutoComplete = ##class(APPS.common.enu.StockType.AutoComplete).%New()
 	
-	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New(1001,##class(APPS.common.enu.StockType).Fysisch())
-	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),25,"")
-
-	quit
+	Do ..AssertBeschikbaarheid(1000, EnumStockType.Fysisch, 20)
+	Do ..AssertBeschikbaarheid(1001, EnumStockType.Fysisch, 25)
 ]]></Implementation>
 </Method>
 
 <Method name="TestPraktischeStock">
 <Implementation><![CDATA[
-	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New(1000,##class(APPS.common.enu.StockType).Praktisch())
-	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),14,"")
+	#dim EnumStockType As APPS.common.enu.StockType.AutoComplete = ##class(APPS.common.enu.StockType.AutoComplete).%New()
 	
-	set blMoederProd = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New(1001,##class(APPS.common.enu.StockType).Praktisch())
-	do $$$AssertEquals(blMoederProd.Beschikbaarheid(),15,"")
+	Do ..AssertBeschikbaarheid(1000, EnumStockType.Praktisch, 14)
+	Do ..AssertBeschikbaarheid(1001, EnumStockType.Praktisch, 15)
+]]></Implementation>
+</Method>
 
-	quit
+<Method name="AssertBeschikbaarheid">
+<FormalSpec>MoederProductNummer:%Integer,StockType:APPS.common.enu.StockType,VerwachteWaarde:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MoederProduct As vhUnitTest.APPS.common.StockOverKinderenMock = ##class(vhUnitTest.APPS.common.StockOverKinderenMock).%New(MoederProductNummer)
+	
+	Do $$$AssertEquals(MoederProduct.GeefBeschikbaarheid(StockType), VerwachteWaarde)
 ]]></Implementation>
 </Method>
 </Class>