Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v003/Onderdelen.cls.xml
===================================================================
diff -u -r56799 -r57149
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v003/Onderdelen.cls.xml	(.../Onderdelen.cls.xml)	(revision 56799)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v003/Onderdelen.cls.xml	(.../Onderdelen.cls.xml)	(revision 57149)
@@ -83,15 +83,17 @@
 	Do ..VoegToeVariabele("Picking en in huls : diepteverstelling", ..Kostenplaatsen.PickingOnderdelen002, 50, 0.25, 12,,,).GebruikEvaluator(ProboxEvaluator, ..GeefRolAanwezigEvaluator(..Enum.Rol.DiepteVerstelling))	
 	Do ..VoegToeVariabele("Picking en in huls : T51 koppeling", ..Kostenplaatsen.PickingOnderdelen002, 51, 0.25, 12,,,).GebruikEvaluator(ProboxEvaluator, ..GeefRolAanwezigEvaluator(..Enum.Rol.Koppeling), ..BevatDrevelKoppelingEvaluator, ..IsGeenBinnenladeEvaluator)	
 
-	#dim FrontBevestiging As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(52, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : frontblok")
+	#dim FrontBevestiging As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData
+	Set FrontBevestiging = ..GeefVariabeleAfmetingActiviteitKostItemBuilderData(52, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : frontblok")
 	
 	Set FrontBevestiging.VasteKost = 9
 	Set FrontBevestiging.Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.MultiplyMultiplier).%New()
 	
 	Do FrontBevestiging.Factor.VoegToeMultiplier(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Multiplier.FrontBevestigingAantal).%New())
 	Do FrontBevestiging.Factor.VoegToeMultiplier(##class(DOM.PM.Maatwerk.Calc.Kost.FixedMultiplier).%New(0.25))
 			
-	#dim BodemOndersteuning As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(53, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : bodemondersteuning")
+	#dim BodemOndersteuning As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData
+	Set BodemOndersteuning = ..GeefVariabeleAfmetingActiviteitKostItemBuilderData(53, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : bodemondersteuning")
 	
 	Set BodemOndersteuning.VasteKost = 12
 	Set BodemOndersteuning.Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.MultiplyMultiplier).%New()
@@ -125,15 +127,17 @@
 	Do ..VoegToeVariabele("Picking en in huls : diepteverstelling", ..Kostenplaatsen.PickingOnderdelen002, 50, 0.25, 12,,,).GebruikEvaluator(ProboxEvaluator, ..GeefRolAanwezigEvaluator(..Enum.Rol.DiepteVerstelling))	
 	Do ..VoegToeVariabele("Picking en in huls : T51 koppeling", ..Kostenplaatsen.PickingOnderdelen002, 51, 0.25, 12,,,).GebruikEvaluator(ProboxEvaluator, ..GeefRolAanwezigEvaluator(..Enum.Rol.Koppeling), ..BevatDrevelKoppelingEvaluator, ..IsGeenBinnenladeEvaluator)	
 
-	#dim FrontBevestiging As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(52, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : frontblok")
+	#dim FrontBevestiging As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData
+	Set FrontBevestiging = ..GeefVariabeleAfmetingActiviteitKostItemBuilderData(52, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : frontblok")
 	
 	Set FrontBevestiging.VasteKost = 9
 	Set FrontBevestiging.Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.MultiplyMultiplier).%New()
 	
 	Do FrontBevestiging.Factor.VoegToeMultiplier(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Multiplier.FrontBevestigingAantal).%New())
 	Do FrontBevestiging.Factor.VoegToeMultiplier(##class(DOM.PM.Maatwerk.Calc.Kost.FixedMultiplier).%New(0.25))
 			
-	#dim BodemOndersteuning As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(53, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : bodemondersteuning")
+	#dim BodemOndersteuning As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData
+	Set BodemOndersteuning = ..GeefVariabeleAfmetingActiviteitKostItemBuilderData(53, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : bodemondersteuning")
 	
 	Set BodemOndersteuning.VasteKost = 12
 	Set BodemOndersteuning.Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.MultiplyMultiplier).%New()
@@ -167,15 +171,17 @@
 	Do ..VoegToeVariabele("Picking en in huls : diepteverstelling", ..Kostenplaatsen.PickingOnderdelen002, 50, 0.25, 12,,,).GebruikEvaluator(ProboxEvaluator, ..GeefRolAanwezigEvaluator(..Enum.Rol.DiepteVerstelling))	
 	Do ..VoegToeVariabele("Picking en in huls : T51 koppeling", ..Kostenplaatsen.PickingOnderdelen002, 51, 0.25, 12,,,).GebruikEvaluator(ProboxEvaluator, ..GeefRolAanwezigEvaluator(..Enum.Rol.Koppeling), ..BevatDrevelKoppelingEvaluator, ..IsGeenBinnenladeEvaluator)	
 
-	#dim FrontBevestiging As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(52, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : frontblok")
+	#dim FrontBevestiging As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData
+	Set FrontBevestiging = ..GeefVariabeleAfmetingActiviteitKostItemBuilderData(52, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : frontblok")
 	
 	Set FrontBevestiging.VasteKost = 9
 	Set FrontBevestiging.Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.MultiplyMultiplier).%New()
 	
 	Do FrontBevestiging.Factor.VoegToeMultiplier(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Multiplier.FrontBevestigingAantal).%New())
 	Do FrontBevestiging.Factor.VoegToeMultiplier(##class(DOM.PM.Maatwerk.Calc.Kost.FixedMultiplier).%New(0.25))
 			
-	#dim BodemOndersteuning As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(53, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : bodemondersteuning")
+	#dim BodemOndersteuning As DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData
+	Set BodemOndersteuning = ..GeefVariabeleAfmetingActiviteitKostItemBuilderData(53, ..Kostenplaatsen.PickingOnderdelen002, "Picking en in huls : bodemondersteuning")
 	
 	Set BodemOndersteuning.VasteKost = 12
 	Set BodemOndersteuning.Factor = ##class(DOM.PM.Maatwerk.Calc.Kost.MultiplyMultiplier).%New()
@@ -206,6 +212,14 @@
 	Do ..VoegToeVariabele("Onderdelen Flatpack Bulk", ..Kostenplaatsen.PickingOnderdelen002, 59, 1, 6.5,,,).GebruikEvaluator(HeeftVerpakkingTypeBOG, HeefOnderdelenDoosEvaluator)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVariabeleAfmetingActiviteitKostItemBuilderData">
+<FormalSpec>ActiviteitCode:%Integer,KostenplaatsID:%String,Omschrijving:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.common.VariabeleAfmetingActiviteitKostItemBuilderData).%New(ActiviteitCode, KostenplaatsID, Omschrijving)
+]]></Implementation>
+</Method>
 </Class>