Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1073)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1133)
@@ -51,6 +51,10 @@
 	{
 		Set ..ToeleveringInfo.ProductieStatus = "Batch "_Batch.GeefBatchID()
 	}
+	Else
+	{
+		Set ..ToeleveringInfo.ProductieStatus = ""
+	}
 	
 	If (..Toelevering.GeefDueOutTime() '= "")
 	{
@@ -103,7 +107,9 @@
 	{
 		Set ProductLijnen = ProductIterator.Next()
 		Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
-		Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(ProductLijn.GeefProduct())
+		Set Product = Producten.GetAt(ProductIterator.Key()).GetAt(1).GeefProduct()
+		Set Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(Product)
+		Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(Product)
 		While (ProductLijnIterator.HasNext())
 		{
 			Set ProductLijn = ProductLijnIterator.Next()
@@ -117,9 +123,9 @@
 			{
 				Set ProductInfo.StockProbleem = "!"
 			}
-			Set ProductInfo.Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(ProductLijn.GeefProduct())
+			Set ProductInfo.Categorie = Categorie
 			
-			If (ProductInfo.Categorie '= ##class(APPS.Halux.Planning.enu.Categorie).Onbepaald())
+			If (ProductInfo.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()) || (ProductInfo.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Kaderdeur())
 			{
 				Set ProductInfo.VerpakkingType = ProductLijn.GeefProduct().GeefVerpakking()
 			}
@@ -146,16 +152,32 @@
 <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 = ""
-	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade") && (Product.GeefVariant() '= ##class(DOM.PM.enu.LadeVariant).TBXBaliko()))
+	
+	Set KlantKeller = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantKeller()
+	If ($IsObject(..Toelevering.GeefOrder()) && (KlantKeller.GeefNummer() = ..Toelevering.GeefOrder().GeefKlantNr()))
 	{
+		Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Productie keller lade",0)
+		Set ActiviteitInfo.ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
+		Do ActiviteitInfoLijst.Insert(ActiviteitInfo)
+	}
+	ElseIf ((Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()) && (Product.GeefVariant() '= ##class(DOM.PM.enu.LadeVariant).TBXBaliko()))
+	{
 		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(..Toelevering, ..Batch, Product).GeefActiviteitInfoIterator()
 	}
-	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
+	ElseIf (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Kaderdeur()) || (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).MDS())
 	{
 		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoALU).%New(Product).GeefActiviteitInfoIterator()
 	}
+	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)
+	}
 	
 	If (ActiviteitInfoIterator '= "")
 	{