Index: APPS/common/impl/StockOverKinderen.cls.xml
===================================================================
diff -u -r948 -r949
--- APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 948)
+++ APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 949)
@@ -1,9 +1,10 @@
 <?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 10:20:41">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 16:53:07">
 <Class name="APPS.common.impl.StockOverKinderen">
+<IncludeCode>%Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62172,58265.669066</TimeChanged>
+<TimeChanged>62173,60871.995502</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Datum">
@@ -21,7 +22,7 @@
 </Property>
 
 <Property name="Kinderen">
-<Type>DOM.PR.BouwStenen.BouwSteenKind</Type>
+<Type>DOM.PM.Bouwstenen.BouwsteenKind</Type>
 <Collection>array</Collection>
 <Private>1</Private>
 </Property>
@@ -73,13 +74,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AantalOpOrder">
+<Method name="AantalInOrder">
 <FormalSpec>PRNr</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set implStockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,..Datum)
-	quit implStockService.GeefAantalOpOrder()
+	quit implStockService.GeefAantalInOrder()
 ]]></Implementation>
 </Method>
 
@@ -140,12 +141,13 @@
 	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.PR.enu.BouwSteenType).KindProduct() )  {
-			Set Kind = BouwSteen.KindProductGetObjectId()
-			do arKinderen.SetAt(BouwSteen,Kind)
+	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()
+			do arKinderen.SetAt(Bouwsteen,Kind)
 		}
 	}
 	quit arKinderen
@@ -198,8 +200,8 @@
 		while itMoeders.HasNext() {
 			do itMoeders.Next()
 			set Moeder = itMoeders.Key()
-			set AantalOpOrder = ..AantalOpOrder(Moeder)
-			if AantalOpOrder>0 do arMoedersOpOrder.SetAt(AantalOpOrder,Moeder)
+			set AantalInOrder = ..AantalInOrder(Moeder)
+			if AantalInOrder>0 do arMoedersOpOrder.SetAt(AantalInOrder,Moeder)
 		}
 	}
 	quit arMoedersOpOrder
@@ -212,15 +214,15 @@
 	set arMoedersOpOrder = ..BepaalAantalMoedersOpOrder()
 	set itMoedersOpOrder = ##class(TECH.ListIterator).%New(arMoedersOpOrder)
 	while itMoedersOpOrder.HasNext() {
-		set AantalOpOrderMoeder = itMoedersOpOrder.Next()
+		set AantalInOrderMoeder = 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 = KindInfo.Aantal
-			set AantalOpOrderKind = AantalOpOrderMoeder * AantalKinderenNodigVoorMoeder
+			set AantalInOrderKind = AantalInOrderMoeder * AantalKinderenNodigVoorMoeder
 			set AantalReedsOpOrderKind = ..KinderenOpOrder.GetAt(Kind)
-			do ..KinderenOpOrder.SetAt(AantalOpOrderKind+AantalReedsOpOrderKind,Kind)
+			do ..KinderenOpOrder.SetAt(AantalInOrderKind+AantalReedsOpOrderKind,Kind)
 		}
 	}
 ]]></Implementation>
@@ -258,11 +260,11 @@
 	while itKinderen.HasNext() {
 		do itKinderen.Next()
 		set Kind = itKinderen.Key()
-		set AantalOpOrder = ..KinderenOpOrder.GetAt(Kind)
-		set AantalOpToelev = ..KinderenInToelevering.GetAt(Kind) 
+		set AantalInOrder = ..KinderenOpOrder.GetAt(Kind)
+		set AantalInToelev = ..KinderenInToelevering.GetAt(Kind) 
 		set AantalInReservatie = ..KinderenInReservatie.GetAt(Kind) 
 		set FysischeStock = ..FysischeStock(Kind)
-		set AantalBeschikbaar = FysischeStock-AantalOpOrder+AantalOpToelev-AantalInReservatie
+		set AantalBeschikbaar = FysischeStock-AantalInOrder+AantalInToelev-AantalInReservatie
 		do ..KinderenBeschikbaar.SetAt(AantalBeschikbaar,Kind)
 	}
 	quit
@@ -288,5 +290,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="510231714"/>
+<Checksum value="981040839"/>
 </Export>