Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r994 -r1012
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 994)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1012)
@@ -1,9 +1,9 @@
 <?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-29 11:46:10">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 09:01:18">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62179,42370.626249</TimeChanged>
+<TimeChanged>62199,32494.401175</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
@@ -16,13 +16,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Toelevering = Toelevering
+	Set ..Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering)
 
 	If (##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(Toelevering.GeefToeNr()))
 	{
@@ -110,6 +116,7 @@
 			
 			Set ProductInfo.Aantal = ProductLijn.GeefAantal()
 			Set ProductInfo.ProductCode = ProductLijn.GeefProduct().GeefKorttekst()
+			Set ProductInfo.ToeleveringLijnNr = ProductLijn.GeefLijnNr()
 			If (ProductLijn.HeeftFysiekStockProbleem())
 			{
 				Set ProductInfo.StockProbleem = "!"
@@ -147,7 +154,7 @@
 	Set ActiviteitInfoIterator = ""
 	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 	{
-		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Product).GeefActiviteitInfoIterator()
+		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(..Toelevering, ..Batch, Product).GeefActiviteitInfoIterator()
 	}
 	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
 	{
@@ -166,5 +173,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="23693318"/>
+<Checksum value="907019415"/>
 </Export>