Index: APPS/common/impl/StockOverKinderen.cls.xml
===================================================================
diff -u -r949 -r994
--- APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 949)
+++ APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 994)
@@ -1,10 +1,11 @@
 <?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 16:53:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 16:13:13">
 <Class name="APPS.common.impl.StockOverKinderen">
 <IncludeCode>%Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62173,60871.995502</TimeChanged>
+<TimeChanged>62189,58400.222939</TimeChanged>
+<TimeCreated>62179,29563.115053</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Datum">
@@ -27,7 +28,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KinderenOpOrder">
+<Property name="KinderenInOrder">
 <Type>%Integer</Type>
 <Collection>array</Collection>
 <Private>1</Private>
@@ -64,6 +65,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetStockType">
+<FormalSpec>StockType:APPS.common.enu.StockType</FormalSpec>
+<Implementation><![CDATA[	set ..StockType = StockType
+]]></Implementation>
+</Method>
+
 <Method name="FysischeStock">
 <FormalSpec>PRNr</FormalSpec>
 <Private>1</Private>
@@ -115,7 +122,7 @@
 	set ..Kinderen = ..BepaalKinderen(..MoederPRNr)
 	
 	if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) {
-		do ..BepaalAantalKinderenOpOrder()
+		do ..BepaalAantalKinderenInOrder()
 	}
 	
 	if ..StockType = $$$enuStockType.Theoretisch() { 	
@@ -140,13 +147,12 @@
 <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() )  {
-			Quit:$$$ProductGet(Kind,$$$LinkType)?.1"H"1"HS"
 			Set Kind = Bouwsteen.KindProductGetObjectId()
+			Quit:$$$ProductGet(Kind,$$$LinkType)?.1"H"1"HS"
 			do arKinderen.SetAt(Bouwsteen,Kind)
 		}
 	}
@@ -189,10 +195,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalAantalMoedersOpOrder">
+<Method name="BepaalAantalMoedersInOrder">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set arMoedersOpOrder = ##class(%ArrayOfDataTypes).%New()
+	set arMoedersInOrder = ##class(%ArrayOfDataTypes).%New()
 	set itKinderen = ##class(TECH.ListIterator).%New(..Kinderen)
 	while itKinderen.HasNext() {
 		do itKinderen.Next() set Kind = itKinderen.Key()
@@ -201,28 +207,28 @@
 			do itMoeders.Next()
 			set Moeder = itMoeders.Key()
 			set AantalInOrder = ..AantalInOrder(Moeder)
-			if AantalInOrder>0 do arMoedersOpOrder.SetAt(AantalInOrder,Moeder)
+			if AantalInOrder>0 do arMoedersInOrder.SetAt(AantalInOrder,Moeder)
 		}
 	}
-	quit arMoedersOpOrder
+	quit arMoedersInOrder
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalAantalKinderenOpOrder">
+<Method name="BepaalAantalKinderenInOrder">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set arMoedersOpOrder = ..BepaalAantalMoedersOpOrder()
-	set itMoedersOpOrder = ##class(TECH.ListIterator).%New(arMoedersOpOrder)
-	while itMoedersOpOrder.HasNext() {
-		set AantalInOrderMoeder = itMoedersOpOrder.Next()
-		set Moeder = itMoedersOpOrder.Key()
+	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 AantalInOrderKind = AantalInOrderMoeder * AantalKinderenNodigVoorMoeder
-			set AantalReedsOpOrderKind = ..KinderenOpOrder.GetAt(Kind)
-			do ..KinderenOpOrder.SetAt(AantalInOrderKind+AantalReedsOpOrderKind,Kind)
+			set AantalReedsInOrderKind = ..KinderenInOrder.GetAt(Kind)
+			do ..KinderenInOrder.SetAt(AantalInOrderKind+AantalReedsInOrderKind,Kind)
 		}
 	}
 ]]></Implementation>
@@ -260,7 +266,7 @@
 	while itKinderen.HasNext() {
 		do itKinderen.Next()
 		set Kind = itKinderen.Key()
-		set AantalInOrder = ..KinderenOpOrder.GetAt(Kind)
+		set AantalInOrder = ..KinderenInOrder.GetAt(Kind)
 		set AantalInToelev = ..KinderenInToelevering.GetAt(Kind) 
 		set AantalInReservatie = ..KinderenInReservatie.GetAt(Kind) 
 		set FysischeStock = ..FysischeStock(Kind)
@@ -290,5 +296,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="981040839"/>
+<Checksum value="637749027"/>
 </Export>