Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r954 -r994
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 954)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 994)
@@ -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-25 11:30:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-29 11:46:10">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62175,41494.04427</TimeChanged>
+<TimeChanged>62179,42370.626249</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
@@ -31,10 +31,10 @@
 	Else
 	{
 		Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%New()
+		Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr()
 		If (Toelevering.GeefDueOutTime() '= "")
 		{
-			Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr()
-			Set ..ToeleveringInfo.Dag = $Piece(Toelevering.GeefDueOutTime(),",")
+			Set ..ToeleveringInfo.Gepland = $zdt(Toelevering.GeefDueOutTime(),3)
 		}
 	}
 	
@@ -70,6 +70,12 @@
 		Set ..ToeleveringInfo.Klant = "Stock"
 	}
 	
+	Do ..ToeleveringInfo.%Save()
+	
+	Set ToeleveringInfoID = ..ToeleveringInfo.%Id()
+	
+	&SQL(DELETE FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringInfoID)
+	
 	Do ..BerekenProductInfo(..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()))
 	
 	Quit ..ToeleveringInfo
@@ -80,7 +86,6 @@
 <FormalSpec>ProductToeleveringLijnIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..ToeleveringInfo.ProductInfoLijst.Clear()
 	Set Producten = ##class(%ArrayOfObjects).%New()
 	While (ProductToeleveringLijnIterator.HasNext())
 	{
@@ -101,7 +106,7 @@
 		While (ProductLijnIterator.HasNext())
 		{
 			Set ProductLijn = ProductLijnIterator.Next()
-			Set ProductInfo = ##class(APPS.Halux.Planning.impl.ProductInfo).%New()
+			Set ProductInfo = ##class(APPS.Halux.Planning.impl.ProductInfo).%New(..Toelevering.GeefToeNr())
 			
 			Set ProductInfo.Aantal = ProductLijn.GeefAantal()
 			Set ProductInfo.ProductCode = ProductLijn.GeefProduct().GeefKorttekst()
@@ -111,8 +116,23 @@
 			}
 			Set ProductInfo.Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(ProductLijn.GeefProduct())
 			
-			Set ProductInfo.ActiviteitInfoLijst = ActiviteitInfoLijst
-			Do ..ToeleveringInfo.ProductInfoLijst.Insert(ProductInfo)
+			If (ProductInfo.Categorie '= ##class(APPS.Halux.Planning.enu.Categorie).Onbepaald())
+			{
+				Set ProductInfo.VerpakkingType = ProductLijn.GeefProduct().GeefVerpakking()
+			}
+
+			Set Status = ProductInfo.%Save()
+			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ProductInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+			
+			Set ActiviteitInfoIterator = ##class(TECH.ListIterator).%New(ActiviteitInfoLijst)
+			While (ActiviteitInfoIterator.HasNext())
+			{
+				Set ActiviteitInfo = ActiviteitInfoIterator.Next()
+				Set ActiviteitInfoClone = ActiviteitInfo.%ConstructClone(1)
+				Set ActiviteitInfoClone.ProductInfoID = ProductInfo.%Id()
+				Set Status = ActiviteitInfoClone.%Save()
+				If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ActiviteitInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+			}
 		}
 	}
 ]]></Implementation>
@@ -146,5 +166,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2647478293"/>
+<Checksum value="23693318"/>
 </Export>