Index: APPS/common/impl/StockOverKinderen.cls.xml
===================================================================
diff -u -r994 -r1010
--- APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 994)
+++ APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 1010)
@@ -1,22 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 16:13:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:51:05">
 <Class name="APPS.common.impl.StockOverKinderen">
 <IncludeCode>%Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62189,58400.222939</TimeChanged>
+<TimeChanged>62199,57081.090967</TimeChanged>
 <TimeCreated>62179,29563.115053</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="MoederPRNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Datum">
 <Type>%Date</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="MoederPRNr">
-<Type>%Integer</Type>
-</Property>
-
 <Property name="StockType">
 <Type>APPS.common.enu.StockType</Type>
 <Private>1</Private>
@@ -72,17 +73,18 @@
 </Method>
 
 <Method name="FysischeStock">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
-	quit implStockService.GeefFysischeStock()
+	set result = implStockService.GeefFysischeStock()
+	quit result
 ]]></Implementation>
 </Method>
 
 <Method name="AantalInOrder">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -92,7 +94,7 @@
 </Method>
 
 <Method name="AantalInToelevering">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -102,7 +104,7 @@
 </Method>
 
 <Method name="AantalInReservatie">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -124,15 +126,12 @@
 	if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) {
 		do ..BepaalAantalKinderenInOrder()
 	}
-	
 	if ..StockType = $$$enuStockType.Theoretisch() { 	
 		do ..BepaalAantalKinderenInToelev()
 	}
-	
 	if ..StockType = $$$enuStockType.FysischMinReservaties() {
 		do ..BepaalAantalKinderenInReserv()
 	}
-	
 	do ..BepaalAantalKinderenBeschikbaar()
 	
 	set AantalMoedersMogelijk = ..BepaalAantalMoedersMogelijk()
@@ -142,72 +141,49 @@
 </Method>
 
 <Method name="BepaalKinderen">
-<FormalSpec>Moeder</FormalSpec>
+<FormalSpec>MoederPRNr:%Integer</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set arKinderen = ##class(%ArrayOfObjects).%New()
-	set oMoeder = ##class(DOM.PM.Bouwstenen.Product).%OpenId(Moeder)
-	set itBouwstenen = ##class(TECH.ListIterator).%New(oMoeder.Bouwstenen)
-	while itBouwstenen.HasNext() {
-		set Bouwsteen = itBouwstenen.Next()
-		if $IsObject(Bouwsteen) && ( Bouwsteen.Type = ##class(DOM.PM.enu.BouwsteenType).KindProduct() )  {
-			Set Kind = Bouwsteen.KindProductGetObjectId()
-			Quit:$$$ProductGet(Kind,$$$LinkType)?.1"H"1"HS"
-			do arKinderen.SetAt(Bouwsteen,Kind)
+	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>
 
 <Method name="BepaalMoeders">
-<FormalSpec>Kind</FormalSpec>
+<FormalSpec>KindPRNr:%Integer</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set arMoeders = ##class(%ArrayOfObjects).%New()
-	set idxMoeder = ""
-	for  { set idxMoeder = $order(^PRBS("IP",Kind,idxMoeder)) quit:idxMoeder=""
-		do arMoeders.SetAt(##class(DOM.PM.Bouwstenen.Product).%OpenId(idxMoeder),idxMoeder)
-	}
+	set arMoeders = ##class(%ArrayOfDataTypes).%New()
+	set MoederPRNr = ""
+	for  { set MoederPRNr = $order(^PRBS("IP",KindPRNr,MoederPRNr)) Quit:MoederPRNr=""
+		do arMoeders.SetAt("",MoederPRNr) }
 	quit arMoeders
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalMoedersVanKinderen">
-<FormalSpec>Moeder</FormalSpec>
-<ReturnType>%ArrayOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	set arMoedersVanKinderen = ##class(%ArrayOfObjects).%New()
-	set arKinderen = ..BepaalKinderen(Moeder)
-	set itKinderen = ##class(TECH.ListIterator).%New(arKinderen)
-	while itKinderen.HasNext() {
-		do itKinderen.Next() 
-		set Kind = itKinderen.Key()
-		set arMoeders = ..BepaalMoeders(Kind)
-		set itMoeders = ##class(TECH.ListIterator).%New(arMoeders)
-		while itMoeders.HasNext() {
-			do itMoeders.Next() 
-			set Moeder = itMoeders.Key()
-			do arMoedersVanKinderen.SetAt(##class(DOM.PM.Bouwstenen.Product).%OpenId(Moeder),Moeder)	
-		}
-	}
-	quit arMoedersVanKinderen
-]]></Implementation>
-</Method>
-
 <Method name="BepaalAantalMoedersInOrder">
+<Private>1</Private>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set arMoedersInOrder = ##class(%ArrayOfDataTypes).%New()
-	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
-	while itKinderen.HasNext() {
-		do itKinderen.Next() set Kind = itKinderen.Key()
-		set itMoeders = ##class(TECH.ListIterator).%New(..BepaalMoeders(Kind))
-		while itMoeders.HasNext() {
-			do itMoeders.Next()
-			set Moeder = itMoeders.Key()
-			set AantalInOrder = ..AantalInOrder(Moeder)
-			if AantalInOrder>0 do arMoedersInOrder.SetAt(AantalInOrder,Moeder)
+	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
@@ -218,17 +194,16 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set arMoedersInOrder = ..BepaalAantalMoedersInOrder()
-	set itMoedersInOrder = ##class(TECH.ListIterator).%New(arMoedersInOrder)
-	while itMoedersInOrder.HasNext() {
-		set AantalInOrderMoeder = itMoedersInOrder.Next()
-		set Moeder = itMoedersInOrder.Key()
-		set itKinderen = ##class(TECH.ListIterator).%New(..BepaalKinderen(Moeder))
-		while itKinderen.HasNext() {
-			set KindInfo = itKinderen.Next(),Kind = itKinderen.Key()
-			set AantalKinderenNodigVoorMoeder = KindInfo.Aantal
+	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(Kind)
-			do ..KinderenInOrder.SetAt(AantalInOrderKind+AantalReedsInOrderKind,Kind)
+			set AantalReedsInOrderKind = ..KinderenInOrder.GetAt(KindPRNr)
+			do ..KinderenInOrder.SetAt(AantalInOrderKind+AantalReedsInOrderKind,KindPRNr)
 		}
 	}
 ]]></Implementation>
@@ -237,11 +212,10 @@
 <Method name="BepaalAantalKinderenInToelev">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
-	while itKinderen.HasNext() {
-		set KindInfo = itKinderen.Next(), Kind = itKinderen.Key()
-		set AantalInToelevering = ..AantalInToelevering(Kind)
-		do ..KinderenInToelevering.SetAt(AantalInToelevering,Kind)
+	set KindPRNr = ""
+	for { set KindPRNr = ..Kinderen.Next(KindPRNr) quit:KindPRNr="" 
+		set AantalInToelevering = ..AantalInToelevering(KindPRNr)
+		do ..KinderenInToelevering.SetAt(AantalInToelevering,KindPRNr)
 	}
 	quit
 ]]></Implementation>
@@ -250,28 +224,25 @@
 <Method name="BepaalAantalKinderenInReserv">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
-	while itKinderen.HasNext() {
-		set KindInfo = itKinderen.Next(), Kind = itKinderen.Key()
-		set AantalInReservatie = ..AantalInReservatie(Kind)
-		do ..KinderenInReservatie.SetAt(AantalInReservatie,Kind)
+	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 itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
-	while itKinderen.HasNext() {
-		do itKinderen.Next()
-		set Kind = itKinderen.Key()
-		set AantalInOrder = ..KinderenInOrder.GetAt(Kind)
-		set AantalInToelev = ..KinderenInToelevering.GetAt(Kind) 
-		set AantalInReservatie = ..KinderenInReservatie.GetAt(Kind) 
-		set FysischeStock = ..FysischeStock(Kind)
+	set KindPRNr = ""
+	for { set KindPRNr = ..Kinderen.Next(KindPRNr) quit:KindPRNr="" 
+		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,Kind)
+		do ..KinderenBeschikbaar.SetAt(AantalBeschikbaar,KindPRNr)
 	}
 	quit
 ]]></Implementation>
@@ -280,11 +251,11 @@
 <Method name="BepaalAantalMoedersMogelijk">
 <Implementation><![CDATA[
 	set AantalMoedersMogelijk = ""
-	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
-	while itKinderen.HasNext() {
-		set KindInfo = itKinderen.Next(),Kind = itKinderen.Key()
-		set AantalKinderenNodigVoorMoeder = KindInfo.Aantal
-		set AantalMogelijk = ##class(TECH.Math).Floor(..KinderenBeschikbaar.GetAt(Kind)/AantalKinderenNodigVoorMoeder)
+	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 
 		}
@@ -296,5 +267,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="637749027"/>
+<Checksum value="2818888532"/>
 </Export>
Index: APPS/common/impl/StockOverKinderenObj.cls.xml
===================================================================
diff -u
--- APPS/common/impl/StockOverKinderenObj.cls.xml	(revision 0)
+++ APPS/common/impl/StockOverKinderenObj.cls.xml	(revision 1010)
@@ -0,0 +1,330 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:59:53">
+<Class name="APPS.common.impl.StockOverKinderenObj">
+<IncludeCode>%Prod.Product</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62199,57609.11659</TimeChanged>
+<TimeCreated>62179,29563.115053</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MoederProduct">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</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>DOM.PM.Bouwstenen.BouwsteenKind</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="KinderenInOrder">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="KinderenInToelevering">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="KinderenInReservatie">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="KinderenBeschikbaar">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MoederProduct:DOM.PM.Product,StockType:APPS.common.enu.StockType,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
+]]></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>
+</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>
+</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>
+</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>
+</Method>
+
+<Method name="Beschikbaarheid">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define enuStockType ##class(APPS.common.enu.StockType)
+	
+	set ..Kinderen = ..BepaalKinderen(..MoederProduct)
+	
+	if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) {
+		do ..BepaalAantalKinderenInOrder()
+	}
+	if ..StockType = $$$enuStockType.Theoretisch() { 	
+		do ..BepaalAantalKinderenInToelev()
+	}
+	if ..StockType = $$$enuStockType.FysischMinReservaties() {
+		do ..BepaalAantalKinderenInReserv()
+	}
+	do ..BepaalAantalKinderenBeschikbaar()
+	
+	set AantalMoedersMogelijk = ..BepaalAantalMoedersMogelijk()
+
+	quit AantalMoedersMogelijk
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKinderen">
+<FormalSpec>Moeder:DOM.PM.Product</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	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>
+
+<Method name="BepaalMoeders">
+<FormalSpec>KindProduct:DOM.PM.Product</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<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) }
+	quit arMoeders
+]]></Implementation>
+</Method>
+
+<Method name="BepaalMoedersVanKinderen">
+<FormalSpec>Moeder</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	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>
+
+<Method name="BepaalAantalMoedersInOrder">
+<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)
+			}
+		}
+	}
+	quit arMoedersInOrder
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalKinderenInOrder">
+<Private>1</Private>
+<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)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalKinderenInToelev">
+<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
+		set AantalInOrder = ..KinderenInOrder.GetAt(KindPRNr)
+		set AantalInToelev = ..KinderenInToelevering.GetAt(KindPRNr) 
+		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) { 
+			set AantalMoedersMogelijk = AantalMogelijk 
+		}
+	}
+	quit +AantalMoedersMogelijk
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2636045257"/>
+</Export>
Index: APPS/common/StockNiveauService.cls.xml
===================================================================
diff -u -r946 -r1010
--- APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 946)
+++ APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1010)
@@ -1,14 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 09:29:39">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-14 10:44:17">
 <Class name="APPS.common.StockNiveauService">
 <ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62173,34264.890788</TimeChanged>
+<TimeChanged>62195,38670.912329</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefService">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
-<Implementation><![CDATA[	quit ##class(APPS.common.impl.StockNiveauService).%New(PRNr, Datum , Magazijn)
+<FormalSpec>Product:DOM.PM.Product,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
+<Implementation><![CDATA[	quit ##class(APPS.common.impl.StockNiveauService).%New(Product, Datum , Magazijn)
 ]]></Implementation>
 </Method>
 
@@ -62,5 +62,5 @@
 <ReturnType>%Float</ReturnType>
 </Method>
 </Class>
-<Checksum value="459379061"/>
+<Checksum value="2184565699"/>
 </Export>
Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r949 -r1010
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 949)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1010)
@@ -1,20 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 15:38:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:22:31">
 <Class name="APPS.common.impl.StockNiveauService">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.common.StockNiveauService,%RegisteredObject</Super>
-<TimeChanged>62173,41115.064929</TimeChanged>
+<TimeChanged>62199,55366.581181</TimeChanged>
+<TimeCreated>62173,62721.245468</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="PRNr">
+<Property name="Datum">
 <Description>
 Bij de berekeningen wordt er momenteel nog geen rekening gehouden met magazijn waarin de goederen zich bevinden.</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Datum">
 <Type>%Date</Type>
 <Private>1</Private>
 </Property>
@@ -24,8 +20,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Product">
-<Type>DOM.PM.Product</Type>
+<Property name="PRNr">
+<Type>%Integer</Type>
 <Private>1</Private>
 </Property>
 
@@ -64,16 +60,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="implStockOverKinderen">
+<Type>APPS.common.impl.StockOverKinderen</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#define enuStockType ##class(APPS.common.enu.StockType)
-	
-	set ..Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
 	set ..PRNr = PRNr
+	set ..implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(PRNr,Datum)
 	set ..Datum = Datum
 	set ..Magazijn = Magazijn
 	quit $$$OK
@@ -84,13 +84,36 @@
 <ReturnType>APPS.common.dto.StockNiveaus</ReturnType>
 <Implementation><![CDATA[
 	set dtoStock = ##class(APPS.common.dto.StockNiveaus).%New()
+	
+	;d StartTimer^vhLib
 	set dtoStock.Fysisch = ..GeefFysischeStock()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Fys : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
 	set dtoStock.Praktisch = ..GeefPraktischeStock()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Pra : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
 	set dtoStock.FysischMinReservaties = ..GeefFysischeStockMinReservaties()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Fys-Res : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
 	set dtoStock.Theoretisch = ..GeefTheoretischeStock()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Theo : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
 	set dtoStock.InOrder = ..GeefAantalInOrder()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"InOrder : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
 	set dtoStock.InToelevering = ..GeefAantalInToelevering()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"InToelev : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
 	set dtoStock.InReservatie = ..GeefAantalInReservatie()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"InReser : "_$$GetInterval^vhLib())
+	
 	quit dtoStock
 ]]></Implementation>
 </Method>
@@ -101,9 +124,9 @@
 	quit:$length(..Fysisch) ..Fysisch
 	
 	set Result = 0
-	if ..Product.IsStockOverKinderen() { 
-		set implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(..PRNr,$$$enuStockType.Fysisch())
-		set Result = implStockOverKinderen.Beschikbaarheid()
+	if $data(^PRBS("BS",..PRNr))>0 { 
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.Fysisch())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
 	else {	set Result = +$piece(^KPR(..PRNr,0),"\",14)
 	}
@@ -119,9 +142,9 @@
 	quit:$length(..FysischMinReservatie) ..FysischMinReservatie
 	
 	set Result = 0
-	if ..Product.IsStockOverKinderen() {
-		set implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(..PRNr,$$$enuStockType.FysischMinReservaties(),..Datum)
-		set Result = implStockOverKinderen.Beschikbaarheid()
+	if $data(^PRBS("BS",..PRNr))>0 {
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.FysischMinReservaties())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
 	else  { set Result = ..GeefFysischeStock()-..GeefAantalInReservatie() }
 	
@@ -137,9 +160,9 @@
 	quit:$length(..Praktisch) ..Praktisch
 	
 	set Result = 0
-	if ..Product.IsStockOverKinderen() {
-		set implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(..PRNr,$$$enuStockType.Praktisch(),..Datum)
-		set Result = implStockOverKinderen.Beschikbaarheid()
+	if $data(^PRBS("BS",..PRNr))>0 {
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.Praktisch())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
 	else { set Result = ..GeefFysischeStock() - ..GeefAantalInOrder()}
 	
@@ -155,10 +178,9 @@
 	quit:$length(..Theoretisch) ..Theoretisch
 	
 	set Result = 0
-	if ..Product.IsStockOverKinderen() {
-		set implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(..PRNr,$$$enuStockType.Theoretisch(),..Datum)
-		
-		set Result = implStockOverKinderen.Beschikbaarheid()
+	if $data(^PRBS("BS",..PRNr))>0 {
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.Theoretisch())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
 	else  { set Result = ..GeefPraktischeStock() + ..GeefAantalInToelevering() }
 	
@@ -175,12 +197,18 @@
 	
 	set Result = 0
 	if $length(..Datum) {
-		set itProductOrderLijnen = ##class(APPS.PM.ProductOpOrderLijnIt).%New(..PRNr)
-		while itProductOrderLijnen.HasNext() {
-			set OrderLijn = itProductOrderLijnen.Next()
-			continue:($$$Not(OrderLijn.IsInReservatie()))
-			continue:( ( $length(..Datum) ) && ( OrderLijn.GeefLeverdag()>(..Datum) ) )
-			set Result = Result + OrderLijn.GeefAantal()			 
+		set idxWNode = "W    0.0R" 
+		for { set idxWNode = $order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0R")
+			 set OrderNr = $extract(idxWNode,18,23)
+			 set OrderLijnNr = $translate($extract(idxWNode,24,26)," ","")+100
+			 If ..IsInReservatie(OrderNr,OrderLijnNr) {
+				 set Rec = ^KPR(..PRNr,idxWNode)
+				 set Leverdag = $P(Rec,"\",2)
+				 if (Leverdag<..Datum) {
+				 	 set Aantal = $piece(Rec,"\",1)
+				 	 set Result = Result + Aantal
+				 }
+			 }
 		}
 	}
 	else  { 
@@ -192,49 +220,69 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalInToelevering">
+<Method name="GeefAantalInOrder">
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	quit:$length(..AantalInToelevering) ..AantalInToelevering
+	quit:$length(..AantalInOrder) ..AantalInOrder
 	set Result = 0
 
 	if $length(..Datum) { 
-		set itProductToelevLijnen = ##class(APPS.PM.ProductOpToeleveringLijnIt).%New(..PRNr)
-		while itProductToelevLijnen.HasNext() {
-			set ToelevLijn = itProductToelevLijnen.Next()
-			continue:( ( $length(..Datum) ) && ( ToelevLijn.GeefLeverdag()>(..Datum) ) )
-			set Result = Result + ToelevLijn.GeefAantal()
+		set idxWNode = "W    0.0R"
+		for { set idxWNode = $Order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0R")
+			 set OrderNr = $extract(idxWNode,18,23)
+			 set OrderLijnNr = $translate($extract(idxWNode,24,26)," ","")+100
+			 If '..IsInReservatie(OrderNr,OrderLijnNr) {
+				 set Rec = ^KPR(..PRNr,idxWNode)
+				 set Leverdag = $P(Rec,"\",2)
+				 if (Leverdag<..Datum) {
+				 	 set Aantal = $piece(Rec,"\",1)
+				 	 set Result = Result + Aantal
+				 }
+			 }
 		}
 	}
-	else  { set Result = +$piece($piece(^KPR(..PRNr,0),"\",17),"#",1) }
+	else  { set Result = +$piece($get(^PRSTOCK("D",..PRNr)),"\",3) }
 	
-	set ..AantalInToelevering = Result
-	
+	set ..AantalInOrder = Result
 	quit Result
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalInOrder">
+<Method name="IsInReservatie">
+<FormalSpec>OrderNr,OrderLijnNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set KlantNr = $piece(^KO1(OrderNr,"F"),"\",1)
+	set OLUNr = $piece(^KOD(KlantNr,"F",OrderNr,OrderLijnNr),"\",15)
+	set Result = $data(^ORDW("IO",OrderNr,OLUNr))
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInToelevering">
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
-	quit:$length(..AantalInOrder) ..AantalInOrder
+	quit:$length(..AantalInToelevering) ..AantalInToelevering
 	set Result = 0
 
 	if $length(..Datum) { 
-		set itProductOrderLijnen = ##class(APPS.PM.ProductOpOrderLijnIt).%New(..PRNr)
-		while itProductOrderLijnen.HasNext() {
-			set OrderLijn = itProductOrderLijnen.Next()
-			continue:(OrderLijn.IsInReservatie())
-			continue:( ( $length(..Datum) ) && ( OrderLijn.GeefLeverdag()>(..Datum) ) )
-			set Result = Result + OrderLijn.GeefAantal()
+		set idxWNode = "W    0.0T"
+		for { set idxWNode = $order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0T")
+			 set Rec = ^KPR(..PRNr,idxWNode)
+			 set Leverdag = $$INTDATE^vhDTyp($piece(Rec,"\",6),"DW")
+			 if (Leverdag<..Datum) {
+			 	 set Aantal = $piece(Rec,"\",4)
+			 	 set Result = Result + Aantal
+			 }
 		}
 	}
-	else  { set Result = +$piece($get(^PRSTOCK("D",..PRNr)),"\",3) }
+	else  { set Result = +$piece($piece(^KPR(..PRNr,0),"\",17),"#",1) }
 	
-	set ..AantalInOrder = Result
+	set ..AantalInToelevering = Result
+	
 	quit Result
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2256394405"/>
+<Checksum value="207151052"/>
 </Export>
Index: APPS/common/impl/StockNiveauServiceObj.cls.xml
===================================================================
diff -u
--- APPS/common/impl/StockNiveauServiceObj.cls.xml	(revision 0)
+++ APPS/common/impl/StockNiveauServiceObj.cls.xml	(revision 1010)
@@ -0,0 +1,263 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 15:27:53">
+<Class name="APPS.common.impl.StockNiveauServiceObj">
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.StockNiveauService,%RegisteredObject</Super>
+<TimeChanged>62199,55689.054193</TimeChanged>
+<TimeCreated>62173,62721.245468</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Datum">
+<Description>
+Bij de berekeningen wordt er momenteel nog geen rekening gehouden met magazijn waarin de goederen zich bevinden.</Description>
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Magazijn">
+<Type>APPS.common.enu.MagazijnMetStock</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Fysisch">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Praktisch">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FysischMinReservatie">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Theoretisch">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalInOrder">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalInToelevering">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalInReservatie">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="implStockOverKinderen">
+<Type>APPS.common.impl.StockOverKinderen</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Product:DOM.PM.Product,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define enuStockType ##class(APPS.common.enu.StockType)
+	set ..Product = Product
+	set ..implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderenObj).%New(Product,Datum)
+	set ..Datum = Datum
+	set ..Magazijn = Magazijn
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlleStockTypeNiveaus">
+<ReturnType>APPS.common.dto.StockNiveaus</ReturnType>
+<Implementation><![CDATA[
+	set dtoStock = ##class(APPS.common.dto.StockNiveaus).%New()
+	
+	;d StartTimer^vhLib
+	set dtoStock.Fysisch = ..GeefFysischeStock()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Fys : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
+	set dtoStock.Praktisch = ..GeefPraktischeStock()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Pra : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
+	set dtoStock.FysischMinReservaties = ..GeefFysischeStockMinReservaties()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Fys-Res : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
+	set dtoStock.Theoretisch = ..GeefTheoretischeStock()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"Theo : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
+	set dtoStock.InOrder = ..GeefAantalInOrder()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"InOrder : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
+	set dtoStock.InToelevering = ..GeefAantalInToelevering()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"InToelev : "_$$GetInterval^vhLib())
+	;d StartTimer^vhLib
+	set dtoStock.InReservatie = ..GeefAantalInReservatie()
+	;d StopTimer^vhLib
+	;D WLIP^vhDBG(195,"InReser : "_$$GetInterval^vhLib())
+	
+	quit dtoStock
+]]></Implementation>
+</Method>
+
+<Method name="GeefFysischeStock">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..Fysisch) ..Fysisch
+	
+	set Result = 0
+	if ..Product.IsStockOverKinderen() { 
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.Fysisch())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	}
+	else {	set Result = +$piece(^KPR(..Product.GeefPRNr(),0),"\",14)
+	}
+	
+	set ..Fysisch = Result
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefFysischeStockMinReservaties">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..FysischMinReservatie) ..FysischMinReservatie
+	
+	set Result = 0
+	if ..Product.IsStockOverKinderen() {
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.FysischMinReservaties())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	}
+	else  { set Result = ..GeefFysischeStock()-..GeefAantalInReservatie() }
+	
+	set ..FysischMinReservatie = Result 
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefPraktischeStock">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..Praktisch) ..Praktisch
+	
+	set Result = 0
+	if ..Product.IsStockOverKinderen() {
+		//set Result = ..implStockOverKinderen.PraktischeStock()
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.Praktisch())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	}
+	else { set Result = ..GeefFysischeStock() - ..GeefAantalInOrder()}
+	
+	set ..Praktisch = Result 
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefTheoretischeStock">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..Theoretisch) ..Theoretisch
+	
+	set Result = 0
+	if ..Product.IsStockOverKinderen() {
+		do ..implStockOverKinderen.SetStockType($$$enuStockType.Theoretisch())
+		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	}
+	else  { set Result = ..GeefPraktischeStock() + ..GeefAantalInToelevering() }
+	
+	set ..Theoretisch = Result
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInReservatie">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..AantalInReservatie) ..AantalInReservatie
+	
+	set Result = 0
+	if $length(..Datum) {
+		set itProductOrderLijnen = ##class(APPS.PM.ProductOpOrderLijnIt).%New(..Product)
+		while itProductOrderLijnen.HasNext() {
+			set OrderLijn = itProductOrderLijnen.Next()
+			continue:($$$Not(OrderLijn.IsInReservatie()))
+			continue:( ( $length(..Datum) ) && ( OrderLijn.GeefLeverdag()>(..Datum) ) )
+			set Result = Result + OrderLijn.GeefAantal()			 
+		}
+	}
+	else  { 
+		set Result = +$piece($get(^PRSTOCK("D",..Product.GeefPRNr())),"\",2) 
+	}
+	set ..AantalInReservatie = Result
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInToelevering">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..AantalInToelevering) ..AantalInToelevering
+	set Result = 0
+
+	if $length(..Datum) { 
+		set itProductToelevLijnen = ##class(APPS.PM.ProductOpToeleveringLijnIt).%New(..Product)
+		while itProductToelevLijnen.HasNext() {
+			set ToelevLijn = itProductToelevLijnen.Next()
+			continue:( ( $length(..Datum) ) && ( ToelevLijn.GeefLeverdag()>(..Datum) ) )
+			set Result = Result + ToelevLijn.GeefAantal()
+		}
+	}
+	else  { set Result = +$piece($piece(^KPR(..Product.GeefPRNr(),0),"\",17),"#",1) }
+	
+	set ..AantalInToelevering = Result
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInOrder">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..AantalInOrder) ..AantalInOrder
+	set Result = 0
+
+	if $length(..Datum) { 
+		set itProductOrderLijnen = ##class(APPS.PM.ProductOpOrderLijnIt).%New(..Product)
+		while itProductOrderLijnen.HasNext() {
+			set OrderLijn = itProductOrderLijnen.Next()
+			continue:(OrderLijn.IsInReservatie())
+			continue:( ( $length(..Datum) ) && ( OrderLijn.GeefLeverdag()>(..Datum) ) )
+			set Result = Result + OrderLijn.GeefAantal()
+		}
+	}
+	else  { set Result = +$piece($get(^PRSTOCK("D",..Product.GeefPRNr())),"\",3) }
+	
+	set ..AantalInOrder = Result
+	quit Result
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2010922590"/>
+</Export>