Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1019 -r1073
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1019)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1073)
@@ -1,9 +1,8 @@
 <?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-04-19 15:46:38">
+<Export generator="Cache" version="9">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62200,56814.472411</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
@@ -38,10 +37,6 @@
 	{
 		Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%New()
 		Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr()
-		If (Toelevering.GeefDueOutTime() '= "")
-		{
-			Set ..ToeleveringInfo.Gepland = $zdt(Toelevering.GeefDueOutTime(),3)
-		}
 	}
 	
 	Quit $$$OK
@@ -153,7 +148,7 @@
 <Implementation><![CDATA[
 	Set ActiviteitInfoLijst = ##class(%ListOfObjects).%New()
 	Set ActiviteitInfoIterator = ""
-	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
+	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade") && (Product.GeefVariant() '= ##class(DOM.PM.enu.LadeVariant).TBXBaliko()))
 	{
 		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(..Toelevering, ..Batch, Product).GeefActiviteitInfoIterator()
 	}
@@ -174,5 +169,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="766785133"/>
 </Export>