Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r917 -r946
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 946)
@@ -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-02-22 10:52:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 07:43:16">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62144,39189.203146</TimeChanged>
+<TimeChanged>62173,27881.765969</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
@@ -32,11 +32,9 @@
 	While (ToeleveringLijnIterator.HasNext())
 	{
 		Set ProductToeleveringsLijn = ToeleveringLijnIterator.Next()
-		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
-		Set ResourceGebruikDataFactory = ##class(APPS.Halux.Planning.impl.ResourceGebruikDataMap).%New(ResourceGebruik)
+				
+		Set ResourceGebruik = ..BepaalResourceGebruikProduct(ProductToeleveringsLijn.GeefProduct())
 		
-		Do ..BepaalResourceGebruikProduct(ProductToeleveringsLijn.GeefProduct(), ResourceGebruikDataFactory)
-		
 		Set PlanningDataItem = ##class(APPS.Halux.Planning.impl.PlanningDataItem).%New()
 		
 		Set PlanningDataItem.ALUFrees = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUFrees.Hoeveelheid
@@ -55,7 +53,11 @@
 		Set PlanningDataItem.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).TBXLadeStd1()
 		Set PlanningDataItem.ToeleveringsNummer = ..Toelevering.GeefToeNr()
 		Set PlanningDataItem.ToeleveringsLijn = ProductToeleveringsLijn.GeefLijnNr()
-		Set PlanningDataItem.DueOut = $zdt(..Toelevering.GeefDueOutTime(),3)
+		If (..Toelevering.GeefDueOutTime() '= "")
+		{
+			Set PlanningDataItem.DueOut = $zdt(..Toelevering.GeefDueOutTime(),3)
+		}
+		
 		If (PlanningDatum = "")
 		{
 			Set PlanningDataItem.Gepland = PlanningDataItem.DueOut
@@ -67,14 +69,19 @@
 		
 		
 		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"
+		}
 		
-		Set PlanningDataItem.IsASAP = Order.IsASAP()
-		Set PlanningDataItem.IngegevenDoor = Order.GeefIngegevenDoor()
-		
-		Set Klant = Order.GeefKlant()
-		
-		Set PlanningDataItem.Klant = Klant.GeefNaam()
-		
 		Do PlanningDataItems.Insert(PlanningDataItem)
 	}
 	
@@ -83,24 +90,24 @@
 </Method>
 
 <Method name="BepaalResourceGebruikProduct">
-<FormalSpec>Product:DOM.PM.Product,ResourceGebruikDataFactory:APPS.Halux.Planning.impl.IResourceGebruikDataFactory</FormalSpec>
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
+<ReturnType>APPS.Halux.Planning.impl.ResourceGebruik</ReturnType>
 <Implementation><![CDATA[
-	&SQL(SELECT SchaduwVersion INTO :SchaduwVersie FROM Prod_GAData.Template WHERE Code = "KADBasis")
-	If (Product.GeefSchaduwVersie() '= SchaduwVersie)
+	Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
+	
+	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 	{
-		//Do ##class(Prod.GADef.KaderDeur).KPRCreateSchaduwViaPRNr(Product.GeefPRNr())
+		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.RGDataMapTBX).%New(Product).GeefResourceGebruik()
 	}
-
-	Set KostBouwstenenIterator = Product.GeefKostSchaduwBouwstenenIt()
-	While (KostBouwstenenIterator.HasNext())
+	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
 	{
-		Set KostBouwsteen = KostBouwstenenIterator.Next()
-		Set ResourceGebruikData = ResourceGebruikDataFactory.GeefResourceGebruikData(KostBouwsteen.Omschrijving)
-		Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + KostBouwsteen.TijdPlanning
+		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.RGDataMapALU).%New(Product).GeefResourceGebruik()
 	}
+	
+	Quit ResourceGebruik
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2623453720"/>
+<Checksum value="173757180"/>
 </Export>