Index: APPS/common/impl/StockOverKinderen.cls.xml
===================================================================
diff -u -r917 -r946
--- APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 917)
+++ APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 946)
@@ -1,103 +1,197 @@
 <?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-04 17:02:47">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-22 16:09:41">
 <Class name="APPS.common.impl.StockOverKinderen">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62154,61366.059403</TimeChanged>
+<TimeChanged>62172,58265.669066</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<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>
+</Property>
+
 <Property name="Kinderen">
 <Type>DOM.PR.BouwStenen.BouwSteenKind</Type>
 <Collection>array</Collection>
+<Private>1</Private>
 </Property>
 
-<Property name="Moeders">
-<Type>DOM.PR.BouwStenen.Product</Type>
+<Property name="KinderenOpOrder">
+<Type>%Integer</Type>
 <Collection>array</Collection>
+<Private>1</Private>
 </Property>
 
-<Property name="MoedersVanKinderen">
-<Type>DOM.PR.BouwStenen.BouwSteenKind</Type>
+<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>MoederPRNr:%Integer,StockType:APPS.common.enu.StockType,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="FysischeStock">
+<FormalSpec>PRNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
+	quit implStockService.GeefFysischeStock()
+]]></Implementation>
+</Method>
+
+<Method name="AantalOpOrder">
+<FormalSpec>PRNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
+	quit implStockService.GeefAantalOpOrder()
+]]></Implementation>
+</Method>
+
+<Method name="AantalInToelevering">
+<FormalSpec>PRNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
+	quit implStockService.GeefAantalInToelevering()
+]]></Implementation>
+</Method>
+
+<Method name="AantalInReservatie">
+<FormalSpec>PRNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
+	quit implStockService.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>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define enuStockType ##class(APPS.common.enu.StockType)
+	
+	set ..Kinderen = ..BepaalKinderen(..MoederPRNr)
+	
+	if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) {
+		do ..BepaalAantalKinderenOpOrder()
+	}
+	
+	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</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	quit ..Kinderen.Count()>0
-	
+	set arKinderen = ##class(%ArrayOfObjects).%New()
 	set oMoeder = ##class(DOM.PR.BouwStenen.Product).%OpenId(Moeder)
+	
 	set itBouwStenen = ##class(TECH.ListIterator).%New(oMoeder.BouwStenen)
 	while itBouwStenen.HasNext() {
 		set BouwSteen = itBouwStenen.Next()
-		if BouwSteen.Type = ##class(DOM.PR.enu.BouwSteenType).KindProduct()  {
-			do ..Kinderen.SetAt(BouwSteen,Kind)
+		if $IsObject(BouwSteen) && ( BouwSteen.Type = ##class(DOM.PR.enu.BouwSteenType).KindProduct() )  {
+			Set Kind = BouwSteen.KindProductGetObjectId()
+			do arKinderen.SetAt(BouwSteen,Kind)
 		}
 	}
-	quit ..Kinderen
+	quit arKinderen
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalMoeders">
 <FormalSpec>Kind</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	//set oKind = ##class(DOM.PR.BouwStenen.BouwSteen)
-	//for  { set idxMoeder = $order(^PRBS("IP",Kind,idxMoeder)) quit:idxMoeder=""
-	//	do ..Moeders.SetAt("",idxMoeder)
-	//}
-	
-	quit ..Moeders
+	set arMoeders = ##class(%ArrayOfObjects).%New()
+	set idxMoeder = ""
+	for  { set idxMoeder = $order(^PRBS("IP",Kind,idxMoeder)) quit:idxMoeder=""
+		do arMoeders.SetAt(##class(DOM.PR.BouwStenen.Product).%OpenId(idxMoeder),idxMoeder)
+	}
+	quit arMoeders
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalMoedersVanKinderen">
 <FormalSpec>Moeder</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set arrResult = ##class(%ArrayOfDataTypes).%New()
-	set arrKinderen = ..BepaalKinderen(Moeder)
-	set itKinderen = ##class(TECH.ListIterator).%New(arrKinderen)
+	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 arrMoeders = ..BepaalMoeders(Kind)
-		set itMoeders = ##class(TECH.ListIterator).%New(arrMoeders)
+		set arMoeders = ..BepaalMoeders(Kind)
+		set itMoeders = ##class(TECH.ListIterator).%New(arMoeders)
 		while itMoeders.HasNext() {
 			do itMoeders.Next() 
 			set Moeder = itMoeders.Key()
-			do arrResult.SetAt("",Moeder)	
+			do arMoedersVanKinderen.SetAt(##class(DOM.PR.BouwStenen.Product).%OpenId(Moeder),Moeder)	
 		}
 	}
-	quit arrResult
+	quit arMoedersVanKinderen
 ]]></Implementation>
 </Method>
 
-<Method name="Beschikbaarheid">
-<FormalSpec>Moeder</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set listKinderen = ..BepaalKinderen(Moeder)
-	
-	set arMoedersOpOrder = ..BepaalAantalMoedersOpOrder(listKinderen)
-	set arKinderenOpOrder = ..BepaalAantalKinderenOpOrder(arMoedersOpOrder)
-	set arKinderenOpToelev = ..BepaalAantalKinderenOpToelev(listKinderen)
-	set arKinderenInReservatie = ..BepaalAantalKinderenInReserv(listKinderen)
-	
-	set arKinderenBeschikbaar = ..BepaalAantalKinderenBeschikbaar(listKinderen,arKinderenOpOrder,arKinderenOpToelev)
-	set AantalMoedersMogelijk = ..BepaalAantalMoedersMogelijk(listKinderen,arKinderenBeschikbaar)
-
-	quit AantalMoedersMogelijk
-]]></Implementation>
-</Method>
-
 <Method name="BepaalAantalMoedersOpOrder">
-<FormalSpec>listKinderen</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set arMoedersOpOrder = ##class(%ArrayOfDataTypes).%New()
-	set itKinderen = ##class(TECH.ListIterator).%New(listKinderen)
+	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))
@@ -113,133 +207,86 @@
 </Method>
 
 <Method name="BepaalAantalKinderenOpOrder">
-<FormalSpec>arMoedersOpOrder:%ArrayOfDataTypes</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	
-	set arKinderenOpOrder = ##class(%ArrayOfDataTypes).%New()
+	set arMoedersOpOrder = ..BepaalAantalMoedersOpOrder()
 	set itMoedersOpOrder = ##class(TECH.ListIterator).%New(arMoedersOpOrder)
 	while itMoedersOpOrder.HasNext() {
 		set AantalOpOrderMoeder = itMoedersOpOrder.Next()
 		set Moeder = itMoedersOpOrder.Key()
 		set itKinderen = ##class(TECH.ListIterator).%New(..BepaalKinderen(Moeder))
 		while itKinderen.HasNext() {
 			set KindInfo = itKinderen.Next(),Kind = itKinderen.Key()
-			set AantalKinderenNodigVoorMoeder = $piece(KindInfo,"\",2)
+			set AantalKinderenNodigVoorMoeder = KindInfo.Aantal
 			set AantalOpOrderKind = AantalOpOrderMoeder * AantalKinderenNodigVoorMoeder
-			set AantalReedsOpOrderKind = arKinderenOpOrder.GetAt(Kind)
-			do arKinderenOpOrder.SetAt(AantalOpOrderKind+AantalReedsOpOrderKind,Kind)
+			set AantalReedsOpOrderKind = ..KinderenOpOrder.GetAt(Kind)
+			do ..KinderenOpOrder.SetAt(AantalOpOrderKind+AantalReedsOpOrderKind,Kind)
 		}
 	}
-	quit arKinderenOpOrder
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalAantalKinderenOpToelev">
-<FormalSpec>listKinderen:%ListOfDataTypes</FormalSpec>
+<Method name="BepaalAantalKinderenInToelev">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set arKinderenOpToelev = ##class(%ArrayOfDataTypes).%New()
-	set itKinderen = ##class(TECH.ListIterator).%New(listKinderen)
+	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
 	while itKinderen.HasNext() {
-		set Kind = itKinderen.Next()
-		set AantalOpToelevering = ..AantalOpToelevering(Kind)
-		do arKinderenOpToelev.SetAt(AantalOpToelevering,Kind)
+		set KindInfo = itKinderen.Next(), Kind = itKinderen.Key()
+		set AantalInToelevering = ..AantalInToelevering(Kind)
+		do ..KinderenInToelevering.SetAt(AantalInToelevering,Kind)
 	}
-	quit arKinderenOpToelev
+	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalKinderenInReserv">
-<FormalSpec>listKinderen:%ListOfDataTypes</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	
-	set arKinderenInReservatie = ##class(%ArrayOfDataTypes).%New()
-	set itKinderen = ##class(TECH.ListIterator).%New(listKinderen)
+	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
 	while itKinderen.HasNext() {
-		set Kind = itKinderen.Next()
+		set KindInfo = itKinderen.Next(), Kind = itKinderen.Key()
 		set AantalInReservatie = ..AantalInReservatie(Kind)
-		do arKinderenInReservatie.SetAt(AantalInReservatie,Kind)
+		do ..KinderenInReservatie.SetAt(AantalInReservatie,Kind)
 	}
-	quit arKinderenInReservatie
+	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalKinderenBeschikbaar">
-<FormalSpec>listKinderen:%ListOfDataTypes,arKinderenOpOrder:%ArrayOfDataTypes,arKinderenOpToelev:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	set arKindBeschikbaar = ##class(%ArrayOfDataTypes).%New()
-	set itKinderen = ##class(TECH.ListIterator).%New(listKinderen)
+	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
 	while itKinderen.HasNext() {
 		do itKinderen.Next()
 		set Kind = itKinderen.Key()
-		set AantalOpOrder = arKinderenOpOrder.GetAt(Kind)
-		set AantalOpToelev = arKinderenOpToelev.GetAt(Kind) 
-		set FysischeStockKind = ..FysischeStock(Kind)
-		set AantalBeschikbaar = FysischeStockKind-AantalOpOrder+AantalOpToelev
-		do arKindBeschikbaar.SetAt(AantalBeschikbaar,Kind)
+		set AantalOpOrder = ..KinderenOpOrder.GetAt(Kind)
+		set AantalOpToelev = ..KinderenInToelevering.GetAt(Kind) 
+		set AantalInReservatie = ..KinderenInReservatie.GetAt(Kind) 
+		set FysischeStock = ..FysischeStock(Kind)
+		set AantalBeschikbaar = FysischeStock-AantalOpOrder+AantalOpToelev-AantalInReservatie
+		do ..KinderenBeschikbaar.SetAt(AantalBeschikbaar,Kind)
 	}
-
-	quit arKindBeschikbaar
+	quit
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalMoedersMogelijk">
-<FormalSpec>listKinderen:%ListOfDataTypes,arKindBeschikbaar:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
 	set AantalMoedersMogelijk = ""
-	set itKinderen = ##class(TECH.ListIterator).%New(listKinderen)
+	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
 	while itKinderen.HasNext() {
-		
-		set KindInfo = itKinderen.Next()
-		set Kind = itKinderen.Key()
-		
-		set AantalKinderenNodigVoorMoeder = $piece(KindInfo,"\",2)
-		set AantalMogelijk = ##class(TECH.Math).Floor(arKindBeschikbaar.GetAt(Kind)/AantalKinderenNodigVoorMoeder)
-		
-		if '$length(AantalMoedersMogelijk) { set AantalMoedersMogelijk = AantalMogelijk }
-		elseif (AantalMoedersMogelijk > AantalMogelijk) { set AantalMoedersMogelijk = AantalMogelijk }
+		set KindInfo = itKinderen.Next(),Kind = itKinderen.Key()
+		set AantalKinderenNodigVoorMoeder = KindInfo.Aantal
+		set AantalMogelijk = ##class(TECH.Math).Floor(..KinderenBeschikbaar.GetAt(Kind)/AantalKinderenNodigVoorMoeder)
+		if '$length(AantalMoedersMogelijk) { 
+			set AantalMoedersMogelijk = AantalMogelijk 
+		}
+		elseif (AantalMoedersMogelijk > AantalMogelijk) { 
+			set AantalMoedersMogelijk = AantalMogelijk 
+		}
 	}
-	
 	quit +AantalMoedersMogelijk
 ]]></Implementation>
 </Method>
-
-<Method name="FysischeStock">
-<FormalSpec>PRNr</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-</Method>
-
-<Method name="AantalOpOrder">
-<FormalSpec>PRNr</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	// moet gevraagd worden aan iemand anders maar staat voorlopig hier
-	quit $piece(^PRSTOCK("D",PRNr),"\",3)
-]]></Implementation>
-</Method>
-
-<Method name="AantalOpToelevering">
-<FormalSpec>PRNr</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	// moet gevraagd worden aan iemand anders maar staat voorlopig hier
-	quit $piece($piece(^KPR(PRNr,0),"\",17),"#",1)
-]]></Implementation>
-</Method>
-
-<Method name="AantalInReservatie">
-<FormalSpec>PRNr</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(^PRSTOCK("D",PRNr),"\",2)
-]]></Implementation>
-</Method>
 </Class>
-<Checksum value="3729447571"/>
+<Checksum value="1345721082"/>
 </Export>