Index: APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml
===================================================================
diff -u -r3614 -r3674
--- APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(.../ActiviteitInfoALU.cls.xml)	(revision 3614)
+++ APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(.../ActiviteitInfoALU.cls.xml)	(revision 3674)
@@ -6,12 +6,12 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Product">
-<Type>DOM.PM.MaatwerkProduct</Type>
+<Type>DOM.PM.KADProduct.KADKaderdeur</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<FormalSpec>Product:DOM.PM.KADProduct.KADKaderdeur</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -37,6 +37,11 @@
 		Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + KostBouwsteen.TijdPlanning
 	}
 	
+	If (..Product.GeefVerpakking() = ##class(DOM.PM.KADProduct.enu.KADVerpakking).Export())
+	{
+		Set ActiviteitInfo.ResourceGebruik.KartonMachine.Hoeveelheid = 30
+	}
+	
 	Quit ##class(TECH.ListIterator).%New(ActiviteitLijst)
 ]]></Implementation>
 </Method>