Index: DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats.cls.xml
===================================================================
diff -u -r57820 -r67214
--- DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats.cls.xml	(.../TAORKostenplaats.cls.xml)	(revision 57820)
+++ DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats.cls.xml	(.../TAORKostenplaats.cls.xml)	(revision 67214)
@@ -8,11 +8,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,LINEFEED,TAOR AFKANT 002,TAOR AFKORT 002,TAOR CONTROLE 002,TAOR FREES EKO 002,TAOR FREES RF 002,TAOR MONTAGE 002,TAOR OPDEELZAAG 002,TAOR PICKOND 002,TAOR PROF A 002,TAOR PROF B 002,TAOR PROF C 002,TAOR VKP FLATPACK 002,TAOR VKP FLATPACKBULK,TAOR VKP FLATPACKBULK ZRF,TAOR VKP KARTONMACHINE 002,TAOR VKP PROBOX 002,TAOR VKP V1 002,TAOR VOORMONTAGE 002,TAOR ZIJKANT 002,TAOR ZIJKANT LOGO,TAORAFKANT,TAORAFKORTZAAGF,TAORFREESEKO,TAORFREESRF,TAORKARTONMACHINE,TAORMONTAGE,TAOROPDEELZAAG,TAORPICKINGONDERDELEN,TAORPROFARBF,TAORPROFBZIJKANT,TAORPROFCBODEM,TAORVPKFLATPACK,TAORVPKPROBOX,TAORVPKV1,TAORZIJKANT,TRBBODEMRUG,TRBKARTON,TRBMONTINP,TRBPROBOX,TRBVOORMONT,TRBZAAG</Default>
+<Default>,LINEFEED,TAOR AFKANT 002,TAOR AFKORT 002,TAOR CONTROLE 002,TAOR FREES EKO 002,TAOR FREES RF 002,TAOR MONTAGE 002,TAOR OPDEELZAAG 002,TAOR PICKOND 002,TAOR PROF A 002,TAOR PROF B 002,TAOR PROF C 002,TAOR VKP FLATPACK 002,TAOR VKP FLATPACKBULK,TAOR VKP FLATPACKBULK ZRF,TAOR VKP KARTONMACHINE 002,TAOR VKP PROBOX 002,TAOR VKP V1 002,TAOR VOORMONTAGE 002,TAOR ZIJKANT 002,TAOR ZIJKANT LOGO,TAORAFKANT,TAORAFKORTZAAGF,TAORFREESEKO,TAORFREESRF,TAORKARTONMACHINE,TAORMONTAGE,TAOROPDEELZAAG,TAORPICKINGONDERDELEN,TAORPROFARBF,TAORPROFBZIJKANT,TAORPROFCBODEM,TAORVPKFLATPACK,TAORVPKPROBOX,TAORVPKV1,TAORZIJKANT,TRBBODEMRUG,TRBKARTON,TRBMONTINP,TRBPROBOX,TRBVOORMONT,TRBZAAG,TAOR MEERKOST HOOGTEVERSTELLING</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Linefeeding,Afkant002,AfkortzaagF002,Controle002,FreesEko002,FreesRf002,Montage002,Opdeelzaag002,PickingOnderdelen002,ProfARbf002,ProfBZijkant002,ProfCBodem002,VpkFlatpack002,VpkBulkPerOnderdeelGegroepeerd,VpkBulkPerOnderdeelGegroepeerdZrf,Kartonmachine002,VpkProbox002,VpkV1002,Voormontage002,Zijkant002,Zijkantlogo,Afkant,AfkortzaagF,FreesEko,FreesRf,Kartonmachine,Montage,Opdeelzaag,PickingOnderdelen,ProfARbf,ProfBZijkant,ProfCBodem,VpkFlatpack,VpkProbox,VpkV1,Zijkant,BewerkingenOpBodemEnRug,Karton,MontageEnInpak,ProboxMankracht,VoormontageVoorLaden,Houtzaag</Default>
+<Default>,Linefeeding,Afkant002,AfkortzaagF002,Controle002,FreesEko002,FreesRf002,Montage002,Opdeelzaag002,PickingOnderdelen002,ProfARbf002,ProfBZijkant002,ProfCBodem002,VpkFlatpack002,VpkBulkPerOnderdeelGegroepeerd,VpkBulkPerOnderdeelGegroepeerdZrf,Kartonmachine002,VpkProbox002,VpkV1002,Voormontage002,Zijkant002,Zijkantlogo,Afkant,AfkortzaagF,FreesEko,FreesRf,Kartonmachine,Montage,Opdeelzaag,PickingOnderdelen,ProfARbf,ProfBZijkant,ProfCBodem,VpkFlatpack,VpkProbox,VpkV1,Zijkant,BewerkingenOpBodemEnRug,Karton,MontageEnInpak,ProboxMankracht,VoormontageVoorLaden,Houtzaag,MeerkostHoogteVerstelling</Default>
 </Parameter>
 
 <Method name="Afkant">
@@ -308,6 +308,13 @@
 <Implementation><![CDATA[	quit "TAOR ZIJKANT LOGO"
 ]]></Implementation>
 </Method>
+
+<Method name="MeerkostHoogteVerstelling">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.enu.TAORKostenplaats</ReturnType>
+<Implementation><![CDATA[	quit "TAOR MEERKOST HOOGTEVERSTELLING"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats/Verwerker.cls.xml
===================================================================
diff -u -r57820 -r67214
--- DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57820)
+++ DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67214)
@@ -42,6 +42,8 @@
 		Do ..VerwerkKartonmachine002()
 	} ElseIf TAORKostenplaats = "LINEFEED" {
 		Do ..VerwerkLinefeeding()
+	} ElseIf TAORKostenplaats = "TAOR MEERKOST HOOGTEVERSTELLING" {
+		Do ..VerwerkMeerkostHoogteVerstelling()
 	} ElseIf TAORKostenplaats = "TAORMONTAGE" {
 		Do ..VerwerkMontage()
 	} ElseIf TAORKostenplaats = "TAOR MONTAGE 002" {
@@ -193,6 +195,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkMeerkostHoogteVerstelling">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkMontage">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/Evaluators/IsHoogteVerstellingAanwezigEvaluator.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/Evaluators/IsHoogteVerstellingAanwezigEvaluator.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/Evaluators/IsHoogteVerstellingAanwezigEvaluator.cls.xml	(revision 67214)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Evaluators.IsHoogteVerstellingAanwezigEvaluator">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Kost.IEvaluator,%RegisteredObject</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Rol">
+<Type>%String</Type>
+<InitialExpression>"Koppeling"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="IsRolAanwezigEvaluator">
+<Type>DOM.PM.Maatwerk.Calc.Kost.IEvaluator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IsRolAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(..Rol)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Evalueer">
+<Description>
+</Description>
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..IsRolAanwezigEvaluator.Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken) && (IngegevenKenmerken.Koppeling = ##class(DOM.PM.enu.TAORKoppelingType).Movento()))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats/AutoComplete.cls.xml
===================================================================
diff -u -r57820 -r67214
--- DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57820)
+++ DOM/PM/Maatwerk/Calc/Kost/enu/TAORKostenplaats/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67214)
@@ -114,6 +114,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="MeerkostHoogteVerstelling">
+<Type>%String</Type>
+<InitialExpression>"TAOR MEERKOST HOOGTEVERSTELLING"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Montage">
 <Type>%String</Type>
 <InitialExpression>"TAORMONTAGE"</InitialExpression>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml
===================================================================
diff -u -r67213 -r67214
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml	(.../SpecKostv004.cls.xml)	(revision 67213)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml	(.../SpecKostv004.cls.xml)	(revision 67214)
@@ -32,6 +32,7 @@
 	Do ..KostItemBuilders.Insert(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.v003.KartonMachine).%New(""))
 	Do ..KostItemBuilders.Insert(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.v004.ZijkantLogo).%New(""))
 	Do ..KostItemBuilders.Insert(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.v004.Insteltijden).%New(""))
+	Do ..KostItemBuilders.Insert(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.v004.MeerkostHoogteVerstelling).%New(""))
 	
 	Do ..VoegToeKostItemBuilderGekoppeldeIKMat()
 	Quit ##super()
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/SamengesteldKostItemBuilder.cls.xml
===================================================================
diff -u -r57473 -r67214
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/SamengesteldKostItemBuilder.cls.xml	(.../SamengesteldKostItemBuilder.cls.xml)	(revision 57473)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/common/SamengesteldKostItemBuilder.cls.xml	(.../SamengesteldKostItemBuilder.cls.xml)	(revision 67214)
@@ -257,6 +257,13 @@
 <Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Evaluators.ZijkantLogo).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefIsHoogteVerstellingAanwezigEvaluator">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Evaluators.IsHoogteVerstellingAanwezigEvaluator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Evaluators.IsHoogteVerstellingAanwezigEvaluator).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v004/MeerkostHoogteVerstelling.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v004/MeerkostHoogteVerstelling.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v004/MeerkostHoogteVerstelling.cls.xml	(revision 67214)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.v004.MeerkostHoogteVerstelling">
+<Super>DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.v002.common.KostItemBuilder</Super>
+
+<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[
+	If $$$Not(..GeefIsHoogteVerstellingAanwezigEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) {
+		#dim Detail As %String = "meerkost HoogteVerstelling"
+		#dim Tijd As TECH.Decimal = 0
+		#dim TijdPerZijkant As TECH.Decimal = 0
+		
+		If (IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) { Set TijdPerZijkant = 1.19 }
+		ElseIf ((IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) || (IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) { Set TijdPerZijkant = 1.4 }
+		ElseIf ((IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || (IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) { Set TijdPerZijkant = 1.71 }
+		
+		If (..GeefProductieWijzeEvaluator(##class(DOM.PM.enu.TAORProductieWijze).Volledig()).Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) {
+			Set Detail = "Links - Rechts, " _ Detail
+			Set Tijd = TijdPerZijkant * 2
+		} ElseIf (..GeefZijkantLinksAanwezigEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) {
+			Set Detail = "Links, " _ Detail
+			Set Tijd = TijdPerZijkant
+		} ElseIf (..GeefZijkantRechtsAanwezigEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) {
+			Set Detail = "Rechts, " _ Detail
+			Set Tijd = TijdPerZijkant
+		}
+		
+		Do ..VoegToeVariabele(Detail, ..Kostenplaatsen.MeerkostHoogteVerstelling, 375, 1, Tijd)
+	}
+	
+	Quit ##Super(Context, HalffabItemsBoom, IngegevenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsMaker.cls.xml
===================================================================
diff -u -r29059 -r67214
--- DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsMaker.cls.xml	(.../KostenPlaatsMaker.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsMaker.cls.xml	(.../KostenPlaatsMaker.cls.xml)	(revision 67214)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="MaakKostenPlaats">
-<FormalSpec>Groep:TECH.String,Omschrijving:TECH.String,BasisKost:TECH.Decimal,ItemID:TECH.String=""</FormalSpec>
+<FormalSpec>Groep:TECH.String,Omschrijving:TECH.String,BasisKost:TECH.Decimal,ItemID:TECH.String="",SchaduwKost:TECH.Decimal=""</FormalSpec>
 <ReturnType>Prod.GAMeta.BT.KostPlaats</ReturnType>
 <Implementation><![CDATA[
 	Set KostPlaatsInfo = ##class(Prod.GAMeta.BT.KostPlaats).%New()
@@ -13,7 +13,7 @@
 	Set KostPlaatsInfo.BasisKost = BasisKost
 	Set KostPlaatsInfo.ToeslagGrootVerlet = 1
 	Set KostPlaatsInfo.ToeslagKleinVerlet = 1
-	Set KostPlaatsInfo.BasisKostSchaduw = KostPlaatsInfo.BasisKost
+	Set KostPlaatsInfo.BasisKostSchaduw = $$$If(SchaduwKost = "", KostPlaatsInfo.BasisKost, SchaduwKost)
 	Set KostPlaatsInfo.ToeslagGrootVerletSchaduw = 1
 	Set KostPlaatsInfo.ToeslagKleinVerletSchaduw = 1
 	Set KostPlaatsInfo.Omschrijving = Omschrijving
Index: vhDeploy/D20220328xKostenPlaatsMeerkostHoogteVerstellingInstellen.cls.xml
===================================================================
diff -u
--- vhDeploy/D20220328xKostenPlaatsMeerkostHoogteVerstellingInstellen.cls.xml	(revision 0)
+++ vhDeploy/D20220328xKostenPlaatsMeerkostHoogteVerstellingInstellen.cls.xml	(revision 67214)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20220328xKostenPlaatsMeerkostHoogteVerstellingInstellen">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen instelling KostenPlaats HoogteVerstelling</Default>
+</Parameter>
+
+<Parameter name="Groep">
+<Type>%String</Type>
+<Default>TAORBOX</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Maker = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsMaker).%New()
+	#dim ItemId As TECH.String = "TAOR MEERKOST HOOGTEVERSTELLING"
+	#dim BasisKost As TECH.Decimal = 0 * 3600
+	#dim BasisKostSchaduw As TECH.Decimal = 1 * 3600
+	#dim BestaatGezochteKostenPlaats As %Boolean = ##class(Prod.GAMeta.BT.KostPlaats).%ExistsId(ItemId)
+	
+	If $$$Not(BestaatGezochteKostenPlaats) {
+		Do Maker.MaakKostenPlaats(..#Groep, "TA'OR Meerkost HoogteVerstelling", BasisKost, ItemId, BasisKostSchaduw)
+		
+		#dim KostenplaatsWaardeTabel As DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeTabel = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeTabel).%New()
+		Do KostenplaatsWaardeTabel.InitialiseerKostenPlaatsWaarden()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>