Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1881 -r2246
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1881)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 2246)
@@ -115,7 +115,7 @@
 		Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
 		Set Product = Producten.GetAt(PRNr).GetAt(1).GeefProduct()
 		Set Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(Product)
-		Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(Product)
+		Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(Product, Categorie)
 		While (ProductLijnIterator.HasNext())
 		{
 			Set ProductLijn = ProductLijnIterator.Next()
@@ -163,12 +163,10 @@
 </Method>
 
 <Method name="BerekenActiviteitInfo">
-<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<FormalSpec>Product:DOM.PM.Product,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(Product)
-	
 	Set ActiviteitInfoLijst = ##class(%ListOfObjects).%New()
 	Set ActiviteitInfoIterator = ""
 	
@@ -180,10 +178,37 @@
 	{
 		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoALU).%New(Product).GeefActiviteitInfoIterator()
 	}
+	ElseIf (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Servodrive())
+	{
+		Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Servodrive productie",0)
+		If (..ToeleveringInfo.Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantBruynzeel().GeefNaam()) { Set ActiviteitInfo.ResourceGebruik.ALUFrees.Hoeveelheid = 12*60 }
+		Set ActiviteitInfo.ResourceGebruik.ALUMontage.Hoeveelheid = 30*60
+		Set ActiviteitInfo.ResourceGebruik.KartonMachine.Hoeveelheid = 30
+		Do ActiviteitInfoLijst.Insert(ActiviteitInfo)
+	}
+	ElseIf (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).BuroboxLadeblok())
+	{
+		Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Burobox ladeblok productie",0)
+		Set ActiviteitInfo.ResourceGebruik.HoekkastTeam.Hoeveelheid = 12*60
+		Do ActiviteitInfoLijst.Insert(ActiviteitInfo)
+	}
+	ElseIf (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Mondo())
+	{
+		Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Mondo productie",0)
+		Set ActiviteitInfo.ResourceGebruik.HoekkastTeam.Hoeveelheid = 60*60
+		Set ActiviteitInfo.ResourceGebruik.KartonMachine.Hoeveelheid = 30
+		Do ActiviteitInfoLijst.Insert(ActiviteitInfo)
+	}
+	ElseIf (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Verlichting())
+	{
+		Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Verlichting productie",0)
+		Set ActiviteitInfo.ResourceGebruik.ALUTeam.Hoeveelheid = 60
+		Set ActiviteitInfo.ResourceGebruik.ALUMontage.Hoeveelheid = 10*60
+		Do ActiviteitInfoLijst.Insert(ActiviteitInfo)
+	}
 	Else
 	{
 		Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Dummy activiteit",0)
-		Set ActiviteitInfo.ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
 		Do ActiviteitInfoLijst.Insert(ActiviteitInfo)
 	}
 	
Index: APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml
===================================================================
diff -u -r1133 -r2246
--- APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(.../ActiviteitInfoALU.cls.xml)	(revision 1133)
+++ APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(.../ActiviteitInfoALU.cls.xml)	(revision 2246)
@@ -28,14 +28,8 @@
 	Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Kaderdeur productie",0)
 	Do ActiviteitLijst.Insert(ActiviteitInfo)
 	Set ResourceGebruikMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
-	
-	&SQL(SELECT SchaduwVersion INTO :SchaduwVersie FROM Prod_GAData.Template WHERE Code = "KADBasis")
-	If (..Product.GeefSchaduwVersie() '= SchaduwVersie)
-	{
-		Do ##class(Prod.GADef.KaderDeur).KPRCreateSchaduwViaPRNr(..Product.GeefPRNr())
-	}
 
-	Set KostBouwstenenIterator = ..Product.GeefKostSchaduwBouwstenenIt()
+	Set KostBouwstenenIterator = ..Product.GeefKostBouwstenenIterator()
 	While (KostBouwstenenIterator.HasNext())
 	{
 		Set KostBouwsteen = KostBouwstenenIterator.Next()
Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r2004 -r2246
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 2004)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 2246)
@@ -49,6 +49,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantBruynzeel">
+<ReturnType>DOM.CRM.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKlant(11708)
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlant">
 <FormalSpec>dtoKlant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
 <ReturnType>DOM.CRM.Klant</ReturnType>
Index: DOM/CRM/KlantAPI.cls.xml
===================================================================
diff -u -r2004 -r2246
--- DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 2004)
+++ DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 2246)
@@ -52,6 +52,11 @@
 <ReturnType>DOM.CRM.Klant</ReturnType>
 </Method>
 
+<Method name="GeefKlantBruynzeel">
+<Abstract>1</Abstract>
+<ReturnType>DOM.CRM.Klant</ReturnType>
+</Method>
+
 <Method name="VerwijderPersoon">
 <Abstract>1</Abstract>
 <FormalSpec>KlantNummer:%Integer,Persoon:DOM.common.Persoon</FormalSpec>