Index: DOM/PM/Maatwerk/Calc/Kost/ExtraKostItemBuilder.cls.xml
===================================================================
diff -u -r1075 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/ExtraKostItemBuilder.cls.xml	(.../ExtraKostItemBuilder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Kost/ExtraKostItemBuilder.cls.xml	(.../ExtraKostItemBuilder.cls.xml)	(revision 1881)
@@ -25,15 +25,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GebruikEvaluator">
-<Description>
-</Description>
-<FormalSpec>Evaluator:IEvaluator</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="Bereken">
 <FormalSpec>Context:KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostItem</ReturnType>
Index: DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder.cls.xml
===================================================================
diff -u -r1075 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder.cls.xml	(.../HalffabKostItemBuilder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder.cls.xml	(.../HalffabKostItemBuilder.cls.xml)	(revision 1881)
@@ -150,15 +150,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GebruikEvaluator">
-<Description>
-</Description>
-<FormalSpec>Evaluator:IEvaluator</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>HalffabKostItemBuilderDefaultData</DefaultData>
Index: CSC Halux Planningsoverzicht.prj.xml
===================================================================
diff -u -r1356 -r1881
--- CSC Halux Planningsoverzicht.prj.xml	(.../CSC Halux Planningsoverzicht.prj.xml)	(revision 1356)
+++ CSC Halux Planningsoverzicht.prj.xml	(.../CSC Halux Planningsoverzicht.prj.xml)	(revision 1881)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Halux Planningsoverzicht" LastModified="2011-05-31 12:08:43" Target="TMOVE^FLOWTOE3" TargetType="2">
+<Project name="CSC Halux Planningsoverzicht" LastModified="2011-08-25 08:59:44" Target="TMOVE^FLOWTOE3" TargetType="2">
   <Items>
     <ProjectItem name="APPS.Halux.Planning.PlanningService" type="CLS"/>
     <ProjectItem name="APPS.Halux.Planning.dto.ActieInfo" type="CLS"/>
@@ -267,6 +267,7 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.BevatTiponEvaluator" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanBewerkenv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanInkortenv001" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanVerpakkenv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanVoorbereiden" type="CLS"/>
@@ -279,6 +280,8 @@
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecPlusPlanv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.SpecTBXPlanv001" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.V1VerpakkingEvaluator" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling" type="CLS"/>
     <ProjectItem name="DOM.PM.Product" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.DataM.DataMProduct" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.ProductImpl" type="CLS"/>
Index: vhUnitTest/DOM/PM/Maatwerk/TBX/TestWerkoverzichtHelper.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TBX/TestWerkoverzichtHelper.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TBX/TestWerkoverzichtHelper.cls.xml	(revision 1881)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TBX.TestWerkoverzichtHelper">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.TBX.TestWerkoverzichtHelper")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestGeefLadeBeoordeling">
+<Implementation><![CDATA[
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.InbouwBreedte = 650
+	Set TBXKenmerken.IsBinnenLade = 0
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
+	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie1(),"Lade van categorie 1")
+	
+	
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.InbouwBreedte = 650
+	Set TBXKenmerken.IsBinnenLade = 1
+	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
+	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie2(),"Lade van categorie 2")
+	
+	
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.InbouwBreedte = 650
+	Set TBXKenmerken.IsBinnenLade = 1
+	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside()
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
+	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie3(),"Lade van categorie 3")
+	
+	
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.InbouwBreedte = 750
+	Set TBXKenmerken.IsBinnenLade = 0
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
+	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie4(),"Lade van categorie 1")
+	
+	
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.InbouwBreedte = 750
+	Set TBXKenmerken.IsBinnenLade = 1
+	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
+	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie5(),"Lade van categorie 2")
+	
+	
+	Set TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TBXKenmerken.InbouwBreedte = 750
+	Set TBXKenmerken.IsBinnenLade = 1
+	Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside()
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(TBXKenmerken)
+	Do $$$AssertEquals(LadeBeoordeling, ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie6(),"Lade van categorie 3")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/TBX/enu/LadeBeoordeling.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TBX/enu/LadeBeoordeling.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TBX/enu/LadeBeoordeling.cls.xml	(revision 1881)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;Categorie1;Categorie2;Categorie3;Categorie4;Categorie5;Categorie6</Default>
+</Parameter>
+
+<Method name="Categorie1">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[	Quit "Categorie1"
+]]></Implementation>
+</Method>
+
+<Method name="Categorie2">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[	Quit "Categorie2"
+]]></Implementation>
+</Method>
+
+<Method name="Categorie3">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[	Quit "Categorie3"
+]]></Implementation>
+</Method>
+
+<Method name="Categorie4">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[	Quit "Categorie4"
+]]></Implementation>
+</Method>
+
+<Method name="Categorie5">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[	Quit "Categorie5"
+]]></Implementation>
+</Method>
+
+<Method name="Categorie6">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[	Quit "Categorie6"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml
===================================================================
diff -u -r1133 -r1881
--- DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml	(.../HaluxWerkoverzichtHelper.cls.xml)	(revision 1133)
+++ DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml	(.../HaluxWerkoverzichtHelper.cls.xml)	(revision 1881)
@@ -97,6 +97,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeBeoordeling">
+<Description>
+Doet hetzelfde als GetLadeBeoordeling maar dan met de ingegeven kenmerken en geeft een beschrijvende enu terug</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling</ReturnType>
+<Implementation><![CDATA[
+	Set Beoordeling = ""
+	If (TBXKenmerken.InbouwBreedte <= 700)
+	{
+		If ('TBXKenmerken.IsBinnenLade)
+		{
+			Set Beoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie1()
+		}
+		ElseIf (TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag())
+		{
+			Set Beoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie2()
+		}
+		Else
+		{
+			Set Beoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie3()
+		}
+	}
+	Else
+	{
+		If ('TBXKenmerken.IsBinnenLade)
+		{
+			Set Beoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie4()
+		}
+		ElseIf (TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag())
+		{
+			Set Beoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie5()
+		}
+		Else
+		{
+			Set Beoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie6()
+		}
+	}
+	Quit Beoordeling
+]]></Implementation>
+</Method>
+
 <Query name="qGeefQueueIDs">
 <Type>%SQLQuery</Type>
 <FormalSpec>TOENr:%Integer,TLUNr:%Integer</FormalSpec>
Index: DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml
===================================================================
diff -u -r1874 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml	(.../StandaardActiviteitKostItemBuilder.cls.xml)	(revision 1874)
+++ DOM/PM/Maatwerk/Calc/Kost/StandaardActiviteitKostItemBuilder.cls.xml	(.../StandaardActiviteitKostItemBuilder.cls.xml)	(revision 1881)
@@ -29,7 +29,6 @@
 Als oppervlakte = 0.5 vierkante meter dan is de kost dus max(4/m2 * 0.5 m2 + 5, 6) * 1 = 7.
 </Description>
 <ClassType>persistent</ClassType>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItemBuilder</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -77,7 +76,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Naam = Naam
 	Set ..Factor = Factor
 	Set ..Variabele = Variabele
 	Set ..VariabeleKost = VariabeleKost
@@ -91,22 +89,16 @@
 <FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem</ReturnType>
 <Implementation><![CDATA[
-	Set KostItem = ""
-	If (..Evaluator.Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken))
-	{
-		Set Variabele = ..GeefVariabele().Evalueer(Context,HalffabItemsBoom)
-		Set Factor = ..GeefFactor().Evalueer(Context,HalffabItemsBoom)
+	Set Variabele = ..GeefVariabele().Evalueer(Context,HalffabItemsBoom)
+	Set Factor = ..GeefFactor().Evalueer(Context,HalffabItemsBoom)
+	
+	Set BerekendeKost = (..GeefVariabeleKost()*Variabele) + ..GeefVasteKost()
+	
+	Set TijdsKost =  Factor*##class(TECH.Math).Max(..GeefMinimumKost(),BerekendeKost)
+	
+	Set Detail = ..GeefKostPerTijd(Context)_"*"_Factor_"*Max("_..GeefMinimumKost()_", ("_..GeefVariabeleKost()_"*"_Variabele_") + "_..GeefVasteKost()_")"
 		
-		Set BerekendeKost = (..GeefVariabeleKost()*Variabele) + ..GeefVasteKost()
-		
-		Set TijdsKost =  Factor*$$$Max(..GeefMinimumKost(),BerekendeKost)
-		Set KostPerTijd = Context.GeefKostenPlaatsWaarde(..GeefKostenPlaats())
-		
-		Set GeldKost = KostPerTijd * TijdsKost
-		
-		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(..Naam, GeldKost, KostPerTijd_"*"_Factor_"*Max("_..GeefMinimumKost()_", ("_..GeefVariabeleKost()_"*"_Variabele_") + "_..GeefVasteKost()_")",TijdsKost,..GeefActiviteitNr(),..GeefKostenPlaats())
-	}
-	Quit KostItem
+	Quit ..MaakKostItem(Context, TijdsKost, Detail)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1638 -r1881
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1638)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1881)
@@ -157,7 +157,7 @@
 		Continue
 ProductBerekenFout
 		Set $ZTRAP = ""
-		Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Bereken product mislukt","Product met PRNr "_$Get(PRNr,"onbekend")_" kon niet worden berekend (zerror: "_$zerror_")")
+		Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Bereken product mislukt","Product met PRNr "_$Get(PRNr,"onbekend")_" kon niet worden berekend (toString: "_##class(TECH.ExceptionHandler).Catch().ToString()_")")
 	}
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenLadev001.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenLadev001.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenLadev001.cls.xml	(revision 1881)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItemBuilder</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,KostenPlaats:%String,ActiviteitNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super(SamengesteldKostItemBuilder, Naam, KostenPlaats, ActiviteitNr)
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostItem</ReturnType>
+<Implementation><![CDATA[
+	Set TijdsKost = 0
+	
+	Set LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper).GeefLadeBeoordeling(IngegevenKenmerken)
+	
+	Set Detail = "Perstijd voor een lade "_LadeBeoordeling
+	
+	If (LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie1())
+	{
+		Set TijdsKost = 29
+	}
+	ElseIf (LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie2())
+	{
+		Set TijdsKost = 34
+	}
+	ElseIf (LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie3())
+	{
+		Set TijdsKost = 36
+	}
+	ElseIf (LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie4())
+	{
+		Set TijdsKost = 36
+	}
+	ElseIf (LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie5())
+	{
+		Set TijdsKost = 42
+	}
+	ElseIf (LadeBeoordeling = ##class(DOM.PM.Maatwerk.TBX.enu.LadeBeoordeling).Categorie6())
+	{
+		Set TijdsKost = 43
+	}
+	
+	// Override tijdelijk tot bovenstaande tijden zijn gecorrigeerd
+	Set TijdsKost = 26
+	
+	Quit ..MaakKostItem(Context, TijdsKost, Detail)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml
===================================================================
diff -u -r1874 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml	(.../PlanPersenv001.cls.xml)	(revision 1874)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml	(.../PlanPersenv001.cls.xml)	(revision 1881)
@@ -42,18 +42,18 @@
 	Set Variabele = MultiplierFixedNul
 	Set Factor = MultiplierFixedEen
 	Set VariabeleKost = 0
-	Set VasteKost = (82+127)/2
+	Set VasteKost = 26
 	Set MinimumKost = 0
-	Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers1",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost)
+	Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001).%New(##this,"Persen op pers1",KostenPlaats, ActiviteitNr)
 	
 	// Persen van een lade op lijn 2
 	Set ActiviteitNr = 9
 	Set Variabele = MultiplierFixedNul
 	Set Factor = MultiplierFixedEen
 	Set VariabeleKost = 0
-	Set VasteKost = 95
+	Set VasteKost = 30
 	Set MinimumKost = 0
-	Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers2",KostenPlaats, ActiviteitNr, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost)
+	Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersenLadev001).%New(##this,"Persen op pers2",KostenPlaats, ActiviteitNr)
 	
 	Quit Status
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/Kost/KostSpec.cls.xml
===================================================================
diff -u -r1075 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/KostSpec.cls.xml	(.../KostSpec.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Kost/KostSpec.cls.xml	(.../KostSpec.cls.xml)	(revision 1881)
@@ -77,8 +77,11 @@
 	Set itKostItemBuilders=..GeefKostItemBuildersIterator()
 	While itKostItemBuilders.HasNext() {
 		Set KostItemBuilder=itKostItemBuilders.Next()
-		Set KostItem=KostItemBuilder.Bereken(Context,HalffabItemsBoom,IngegevenKenmerken)
-		Do TotaleKostItem.VoegToe(KostItem)
+		If (KostItemBuilder.GeefEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken))
+		{
+			Set KostItem=KostItemBuilder.Bereken(Context,HalffabItemsBoom,IngegevenKenmerken)
+			Do TotaleKostItem.VoegToe(KostItem)
+		}
 	}
 	
 	Quit TotaleKostItem
Index: DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItemBuilder.cls.xml
===================================================================
diff -u -r1874 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItemBuilder.cls.xml	(.../ActiviteitKostItemBuilder.cls.xml)	(revision 1874)
+++ DOM/PM/Maatwerk/Calc/Kost/ActiviteitKostItemBuilder.cls.xml	(.../ActiviteitKostItemBuilder.cls.xml)	(revision 1881)
@@ -43,6 +43,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKostPerTijd">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit Context.GeefKostenPlaatsWaarde(..GeefKostenPlaats())
+]]></Implementation>
+</Method>
+
+<Method name="MaakKostItem">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,TijdsKost:%Float,Detail:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem</ReturnType>
+<Implementation><![CDATA[
+	Set KostPerTijd = ..GeefKostPerTijd(Context)
+	Quit ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(..GeefNaam(), KostPerTijd*TijdsKost, Detail, TijdsKost, ..GeefActiviteitNr(), ..GeefKostenPlaats())
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>ActiviteitKostItemBuilderDefaultData</DefaultData>
Index: DOM/PM/Maatwerk/Calc/Kost/IKostItemBuilder.cls.xml
===================================================================
diff -u -r1075 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/IKostItemBuilder.cls.xml	(.../IKostItemBuilder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Kost/IKostItemBuilder.cls.xml	(.../IKostItemBuilder.cls.xml)	(revision 1881)
@@ -72,6 +72,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEvaluator">
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.IEvaluator</ReturnType>
+<Implementation><![CDATA[	Quit ..Evaluator
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.PM.Maat885.IKostItemBui640D</DataLocation>
Index: DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItemBuilder.cls.xml
===================================================================
diff -u -r1075 -r1881
--- DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItemBuilder.cls.xml	(.../SamengesteldKostItemBuilder.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItemBuilder.cls.xml	(.../SamengesteldKostItemBuilder.cls.xml)	(revision 1881)
@@ -45,11 +45,14 @@
 	{
 		Set SamengesteldKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New(..Naam)
 		Set itKostItemBuilders=..GeefKostItemBuildersIterator()
-		While (itKostItemBuilders.HasNext()) {
-	
+		While (itKostItemBuilders.HasNext())
+		{
 			Set KostItemBuilder=itKostItemBuilders.Next()
-			Set KostItem=KostItemBuilder.Bereken(Context,HalffabItemsBoom,IngegevenKenmerken)
-			Do:($IsObject(KostItem)) SamengesteldKostItem.VoegToe(KostItem)
+			If (KostItemBuilder.GeefEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken))
+			{
+				Set KostItem=KostItemBuilder.Bereken(Context,HalffabItemsBoom,IngegevenKenmerken)
+				Do:$IsObject(KostItem) SamengesteldKostItem.VoegToe(KostItem)
+			}
 		}
 	}
 	Quit SamengesteldKostItem