Index: APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml	(.../ProductPlanningUtils.cls.xml)	(revision 1073)
+++ APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml	(.../ProductPlanningUtils.cls.xml)	(revision 1133)
@@ -11,16 +11,81 @@
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
 <Implementation><![CDATA[
 	Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Onbepaald()
+	Set Gentype = $$GENTYP^HAD(Product.GeefPRNr())
+	
 	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 	{
 		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()
 	}
-	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
+	ElseIf (Gentype = "KAD\\K") || (Gentype = "PRF\\P") || (Gentype = "GLA\\G")
 	{
 		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Kaderdeur()
 	}
+	ElseIf (Gentype = "TBX\HKS\T")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Hoekkast()
+	}
+	ElseIf (Gentype = "DIV\SDM\S")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Servodrive()
+	}
+	ElseIf (($Piece(Gentype,"\",1,2) = "TBX\BBX") && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefPRNr(),"KLAS")) '= "B"))
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).BuroboxLadeblok()
+	}
+	ElseIf (Gentype = "DIV\DCM\C")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Mondo()
+	}
+	ElseIf (Gentype = "DIV\GRP\G") || (Gentype = "DIV\POM\X") || (Gentype = "DIV\ZSN\Z") || (Gentype = "DIV\\D")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).ProductOpMaat()
+	}
+	ElseIf ($Piece(Gentype,"\",1,2) = "DIV\INP")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Inpak()
+	}
+	ElseIf (Gentype = "DIV\TLM\E")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Verlichting()
+	}
+	ElseIf (Gentype = "BAN\\B")
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Banco()
+	}
+	ElseIf (Gentype = "KAD\MDS\S") || (Gentype = "KAD\xx10\S") || (Gentype = "KAD\xx30\S") || (Gentype = "KAD\xxxx\S") 
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).MDS()
+	}
+	ElseIf (Product.%Extends("DOM.PM.ASMProduct.ASMAntislipmat"))
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Mat()
+	}
 	Quit Categorie
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverImpact">
+<Description>
+Geeft de leverimpact in dagen wanneer de toelevering op een bepaald tijdstip wordt geproduceerd
+TenOpzichteVan is een optionele parameter. Indien ingevuld wordt de leverimpact berekend tussen TenOpzichteVan en ProductieTijdstip.
+Indien niet opgegeven wordt de dueout gebruikt.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Toelevering:DOM.LEV.Toelevering,ProductieTijdstip:%TimeStamp,TenOpzichteVan:%TimeStamp=""</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set LeverImpact = 0
+	Set Order = Toelevering.GeefOrder()
+	If ($IsObject(Order))
+	{
+		Set VerzendWijze = Order.GeefVerzendWijze()
+		Set LeveringsTermijn = ##class(DOM.VKP.LeveringsTermijn).%New(,VerzendWijze)
+		Set LeverDag = LeveringsTermijn.GetVroegsteLeverDag($zdth(ProductieTijdstip,3))
+		Set DueOutNaPlanning = LeveringsTermijn.GetLaatsteProductieTijdstip(LeverDag)
+		Set LeverImpact = DueOutNaPlanning - $S(TenOpzichteVan="":Toelevering.GeefDueOutTime(),1:$zdth(TenOpzichteVan,3))
+	}
+	Quit LeverImpact
+]]></Implementation>
+</Method>
 </Class>
 </Export>