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>