Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 946)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 954)
@@ -1,113 +1,150 @@
 <?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 07:43:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 11:30:07">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62173,27881.765969</TimeChanged>
+<TimeChanged>62175,41494.04427</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
 <Type>DOM.LEV.Toelevering</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringInfo">
+<Type>APPS.Halux.Planning.impl.ToeleveringInfo</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
+
+	If (##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(Toelevering.GeefToeNr()))
+	{
+		Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(Toelevering.GeefToeNr())
+	}
+	Else
+	{
+		Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%New()
+		If (Toelevering.GeefDueOutTime() '= "")
+		{
+			Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr()
+			Set ..ToeleveringInfo.Dag = $Piece(Toelevering.GeefDueOutTime(),",")
+		}
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenPlanningDataItems">
-<FormalSpec>PlanningDatum:%TimeStamp=""</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
+<Method name="BerekenToeleveringInfo">
+<ReturnType>APPS.Halux.Planning.impl.ToeleveringInfo</ReturnType>
 <Implementation><![CDATA[
-	Set PlanningDataItems = ##class(%ListOfObjects).%New()
+	Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(..Toelevering)
+	If ($IsObject(Batch))
+	{
+		Set ..ToeleveringInfo.ProductieStatus = "Batch "_Batch.GeefBatchID()
+	}
 	
-	Set ToeleveringLijnIterator = ..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
-	While (ToeleveringLijnIterator.HasNext())
+	If (..Toelevering.GeefDueOutTime() '= "")
 	{
-		Set ProductToeleveringsLijn = ToeleveringLijnIterator.Next()
-				
-		Set ResourceGebruik = ..BepaalResourceGebruikProduct(ProductToeleveringsLijn.GeefProduct())
-		
-		Set PlanningDataItem = ##class(APPS.Halux.Planning.impl.PlanningDataItem).%New()
-		
-		Set PlanningDataItem.ALUFrees = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUFrees.Hoeveelheid
-		Set PlanningDataItem.ALUOperator = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUOperator.Hoeveelheid
-		Set PlanningDataItem.ALUZaag = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUZaag.Hoeveelheid
-		Set PlanningDataItem.CorpusMontageVerpakken = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.CorpusMontageVerpakken.Hoeveelheid
-		Set PlanningDataItem.CorpusVoorbereiding = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.CorpusVoorbereiding.Hoeveelheid
-		Set PlanningDataItem.KartonMachine = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.KartonMachine.Hoeveelheid
-		Set PlanningDataItem.TBXBoxpressKeller = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXBoxpressKeller.Hoeveelheid
-		Set PlanningDataItem.TBXBoxpressLijn1 = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXBoxpressLijn1.Hoeveelheid
-		Set PlanningDataItem.TBXBoxpressLijn2 = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXBoxpressLijn2.Hoeveelheid
-		Set PlanningDataItem.TBXSpecialsMontage = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXSpecialsMontage.Hoeveelheid
-		Set PlanningDataItem.TBXVoormontage = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXVoormontage.Hoeveelheid
-		Set PlanningDataItem.TBXZaag = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXZaag.Hoeveelheid
-		
-		Set PlanningDataItem.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).TBXLadeStd1()
-		Set PlanningDataItem.ToeleveringsNummer = ..Toelevering.GeefToeNr()
-		Set PlanningDataItem.ToeleveringsLijn = ProductToeleveringsLijn.GeefLijnNr()
-		If (..Toelevering.GeefDueOutTime() '= "")
+		Set ..ToeleveringInfo.DueOut = $zdt(..Toelevering.GeefDueOutTime(),3)
+	}
+	
+	Set Order = ..Toelevering.GeefOrder()
+	If ($IsObject(Order))
+	{
+		Set ..ToeleveringInfo.IsASAP = Order.IsASAP()
+		Set ..ToeleveringInfo.IngegevenDoor = Order.GeefIngegevenDoor()
+		Set ..ToeleveringInfo.Klant = Order.GeefKlant().GeefNaam()
+	}
+	Else
+	{
+		Set ..ToeleveringInfo.IsASAP = 0
+		Set ..ToeleveringInfo.IngegevenDoor = ""
+		Set ..ToeleveringInfo.Klant = "Stock"
+	}
+	
+	Do ..BerekenProductInfo(..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()))
+	
+	Quit ..ToeleveringInfo
+]]></Implementation>
+</Method>
+
+<Method name="BerekenProductInfo">
+<FormalSpec>ProductToeleveringLijnIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ToeleveringInfo.ProductInfoLijst.Clear()
+	Set Producten = ##class(%ArrayOfObjects).%New()
+	While (ProductToeleveringLijnIterator.HasNext())
+	{
+		Set ProductLijn = ProductToeleveringLijnIterator.Next()
+		Set Product = ProductLijn.GeefProduct()
+		If ('Producten.IsDefined(Product.GeefPRNr()))
 		{
-			Set PlanningDataItem.DueOut = $zdt(..Toelevering.GeefDueOutTime(),3)
+			Do Producten.SetAt(##class(%ListOfObjects).%New(),Product.GeefPRNr())
 		}
-		
-		If (PlanningDatum = "")
+		Do Producten.GetAt(Product.GeefPRNr()).Insert(ProductLijn)
+	}
+	Set ProductIterator = ##class(TECH.ListIterator).%New(Producten)
+	While (ProductIterator.HasNext())
+	{
+		Set ProductLijnen = ProductIterator.Next()
+		Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
+		Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(ProductLijn.GeefProduct())
+		While (ProductLijnIterator.HasNext())
 		{
-			Set PlanningDataItem.Gepland = PlanningDataItem.DueOut
+			Set ProductLijn = ProductLijnIterator.Next()
+			Set ProductInfo = ##class(APPS.Halux.Planning.impl.ProductInfo).%New()
+			
+			Set ProductInfo.Aantal = ProductLijn.GeefAantal()
+			Set ProductInfo.ProductCode = ProductLijn.GeefProduct().GeefKorttekst()
+			If (ProductLijn.HeeftFysiekStockProbleem())
+			{
+				Set ProductInfo.StockProbleem = "!"
+			}
+			Set ProductInfo.Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(ProductLijn.GeefProduct())
+			
+			Set ProductInfo.ActiviteitInfoLijst = ActiviteitInfoLijst
+			Do ..ToeleveringInfo.ProductInfoLijst.Insert(ProductInfo)
 		}
-		Else
-		{
-			Set PlanningDataItem.Gepland = PlanningDatum
-		}
-		
-		
-		Set Order = ..Toelevering.GeefOrder()
-		If ($IsObject(Order))
-		{
-			Set PlanningDataItem.IsASAP = Order.IsASAP()
-			Set PlanningDataItem.IngegevenDoor = Order.GeefIngegevenDoor()
-			Set PlanningDataItem.Klant = Order.GeefKlant().GeefNaam()
-		}
-		Else
-		{
-			Set PlanningDataItem.IsASAP = 0
-			Set PlanningDataItem.IngegevenDoor = ""
-			Set PlanningDataItem.Klant = "Stock"
-		}
-		
-		Do PlanningDataItems.Insert(PlanningDataItem)
 	}
-	
-	Quit PlanningDataItems
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalResourceGebruikProduct">
+<Method name="BerekenActiviteitInfo">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.Planning.impl.ResourceGebruik</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
-	
+	Set ActiviteitInfoLijst = ##class(%ListOfObjects).%New()
+	Set ActiviteitInfoIterator = ""
 	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 	{
-		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.RGDataMapTBX).%New(Product).GeefResourceGebruik()
+		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Product).GeefActiviteitInfoIterator()
 	}
 	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
 	{
-		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.RGDataMapALU).%New(Product).GeefResourceGebruik()
+		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoALU).%New(Product).GeefActiviteitInfoIterator()
 	}
 	
-	Quit ResourceGebruik
+	If (ActiviteitInfoIterator '= "")
+	{	
+		While (ActiviteitInfoIterator.HasNext())
+		{
+			Set Activiteit = ActiviteitInfoIterator.Next()
+			Do ActiviteitInfoLijst.Insert(Activiteit)
+		}
+	}
+	Quit ActiviteitInfoLijst
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="173757180"/>
+<Checksum value="2647478293"/>
 </Export>