Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml	(.../ActiviteitInfoTBX.cls.xml)	(revision 1073)
+++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml	(.../ActiviteitInfoTBX.cls.xml)	(revision 1133)
@@ -104,6 +104,7 @@
 	Set BerekeningsSpecificatie = ..Product.GeefBerekeningsSpecificatie()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(BerekeningsSpecificatie.GeefHoeveelheid(),BerekeningsSpecificatie.GeefKlantID(),BerekeningsSpecificatie.GeefPersonality(),"Planning")
 
+	d:..Product.GeefVariant()="" WLIP^vhDBG(191,"PRNr: "_..Product.GeefPRNr())
 	Set KostItem = BerekeningService.BerekenKostItemsBoom(HalffabItemsBoom,BerekeningsSpecificatie)
 
 	Do KostItem.Accept(##this)
@@ -147,11 +148,14 @@
 	
 	If (IsToeTeVoegen)
 	{
-		Set ActiviteitInfo = ..ActiviteitenMap.GetAt(ActiviteitNummer)
-		Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitNummer)
-		Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
-		Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(ActiviteitNummer)
-		Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd()
+		If (..ActiviteitenMap.IsDefined(ActiviteitNummer))
+		{
+			Set ActiviteitInfo = ..ActiviteitenMap.GetAt(ActiviteitNummer)
+			Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitNummer)
+			Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
+			Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(ActiviteitNummer)
+			Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd()
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -166,13 +170,11 @@
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.Houtzaag ,1)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 5)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 6)
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers3, 7)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 7)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers1, 8)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers2, 9)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.KartonMachine, 11)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.KartonMachine, 12)
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPicking, 13)
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPicking, 14)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 15)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 16)
 	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 17)
@@ -194,8 +196,8 @@
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 9) // lijn 2
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX verpakking V1",0), 11)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 12)
-	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",-2), 13)
-	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 14)
+	//Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",-2), 13)
+	//Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 14)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten relingen",-2), 15)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten relingen",-2), 16)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten fronten",-2), 17)