Index: vhDeploy/Maatwerk/MVX/Deploy20210503xVertalingenVoorstuk.cls.xml
===================================================================
diff -u
--- vhDeploy/Maatwerk/MVX/Deploy20210503xVertalingenVoorstuk.cls.xml	(revision 0)
+++ vhDeploy/Maatwerk/MVX/Deploy20210503xVertalingenVoorstuk.cls.xml	(revision 64368)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Maatwerk.MVX.Deploy20210503xVertalingenVoorstuk">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Vertalingen toevoegen TT : Voorstuk</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metInschuifElement",,"N","voorstuk met inschuifelement: glas diamant helder")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metInschuifElement",,"F","pièce avant avec insert: verre diamant clair")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metInschuifElement",,"E","front piece with Glas Diamond clear")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metInschuifElement",,"D","Vorderstück mit Einschubelement: Glas Diamant klar")
+
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_Gesloten",,"N","gesloten voorstuk")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_Gesloten",,"F","pièce avant fermée")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_Gesloten",,"D","Vorderstück geschlossen")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_Gesloten",,"E","solid front piece")
+
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metHoogInschuifElement",,"N","voorstuk met hoog inschuifelement: glas diamant helder")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metHoogInschuifElement",,"F","pièce avant avec insert haut: verre diamant clair")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metHoogInschuifElement",,"D","Vorderstück mit hohem Einschubelement: Glas Diamant klar")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metHoogInschuifElement",,"E","front piece with high glass Diamond clear")
+
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metLaagInschuifElement",,"N","voorstuk met laag inschuifelement: glas diamant helder")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metLaagInschuifElement",,"F","pièce avant avec insert bas: verre diamant clair")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metLaagInschuifElement",,"D","Vorderstück mit niedrigem Einschubelement: Glas Diamant klar")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metLaagInschuifElement",,"E","front piece with low glass Diamond clear")
+
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metReling",,"N","voorstuk met reling")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metReling",,"F","pièce avant avec tube")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metReling",,"D","Vorderstück mit Reling")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_metReling",,"E","front piece with gallery")
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_EigenInschuifElement",,"N","voorstuk met inschuifelement: met eigen inschuifelement")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_EigenInschuifElement",,"F","pièce avant avec propre insert")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_EigenInschuifElement",,"D","Vorderstück mit Einschubelement: mit eigenen Einschubelement")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Voorstuk_EigenInschuifElement",,"E","front piece with own design element")
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","MVXFreeMetGlasDiamant",,"N","met inschuifelement diamant glas 8mm")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","MVXFreeMetGlasDiamant",,"D","mit Einschubelement Glas Diamant 8mm")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","MVXFreeMetGlasDiamant",,"E","with insert glass Diamond 8mm")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","MVXFreeMetGlasDiamant",,"F","avec insert verre diamant 8mm")
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling_EigenInschuifElement",,"N","reling met inschuifelement: met eigen inschuifelement")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling_EigenInschuifElement",,"F","tube avec propre insert")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling_EigenInschuifElement",,"D","Reling mit Einschubelement: mit eigenen Einschubelement")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling_EigenInschuifElement",,"E","galery with own design element")
+	
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling",,"N","reling")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling",,"F","tube")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling",,"D","Reling")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TT","Reling",,"E","galery")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r63565 -r64368
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 63565)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 64368)
@@ -143,6 +143,88 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaard Binnenlade M met NM inschuifElementVoor">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.VoorwandType = ##class(DOM.PM.enu.MVXVoorwandType).GlasHoog()
+	
+	Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New()
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementVoor())
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; voorstuk met inschuifelement: met"_ $$$CRLF,
+																					"eigen inschuifelement; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard Binnenlade M met laag inschuifElement vooraan">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.VoorwandType = ##class(DOM.PM.enu.MVXVoorwandType).GlasLaag()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; voorstuk met laag inschuifelement:"_ $$$CRLF,
+																					"glas diamant helder; corpusprofiel 40kg;" _ $$$CRLF, 
+																					"BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard binnenlade E met boxcover">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MvxKenmerken.RugHoogte = ..Enum.RugHoogte.E
+	Set ..MvxKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Boxcover()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; BOXCOVER met inschuifelement diamant"_ $$$CRLF,
+																					"glas 8mm; gesloten voorstuk; corpusprofiel" _ $$$CRLF, 
+																					"40kg; BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard binnenlade E met NM reling zijkant">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MvxKenmerken.RugHoogte = ..Enum.RugHoogte.E
+	Set ..MvxKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).RelingEnInschuifElement()
+	
+	Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New()
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingZijkant())
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; reling met inschuifelement: met eigen"_ $$$CRLF,
+																					"inschuifelement; gesloten voorstuk;" _ $$$CRLF, 
+																					"corpusprofiel 40kg; BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: StandaardLade E en afwijkende RugHoogte =&gt; RugHoogte vermeld">
 <Implementation><![CDATA[
 	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
@@ -549,7 +631,6 @@
 	If ($IsObject(VerwijderdeHalffabItems)) {
 		Set HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
 	}
-	
 	Quit ..MvxLangtekstCreator.GeefLangtekst(..MvxKenmerken, HalffabItemsBoom, Taal,, "")
 ]]></Implementation>
 </Method>
Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml
===================================================================
diff -u -r63398 -r64368
--- DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 63398)
+++ DOM/PM/impl/MVXLangtekstCreator.cls.xml	(.../MVXLangtekstCreator.cls.xml)	(revision 64368)
@@ -81,8 +81,9 @@
 		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
 		Set Paragraaf = Paragraaf _	..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..GeefKleurBuiten()
 		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
-		Set Paragraaf = Paragraaf _ ..GeefRugWandTekst()
+		Set Paragraaf = Paragraaf _ ..GeefRugwandTekst()
 		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling("GemonteerdeLade")
+		Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
 		Set Paragraaf = Paragraaf _ $$$If(..IngegevenKenmerken.IsBinnenlade, "", ..#KenmerkSeparator _ ..GeefFrontBevestigingTekst())
@@ -163,37 +164,120 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRugWandTekst">
+<Method name="GeefRugwandTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim RugWandTekst As TECH.String = ""
+	#dim RugwandTekst As TECH.String = ""
 	
 	If (..HeeftStalenRug()) {
-		Set RugWandTekst = RugWandTekst _ ..Vertaler.GeefVertaling("StalenRug")
-		Set RugWandTekst = RugWandTekst _ ..#KenmerkSeparator
+		Set RugwandTekst = RugwandTekst _ ..Vertaler.GeefVertaling("StalenRug")
+		Set RugwandTekst = RugwandTekst _ ..#KenmerkSeparator
 	}
 	
 	If ((..IsAfwijkendeRugHoogte() || ..IsHogeSifonlade()) && (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig())) {
-		Set RugWandTekst = RugWandTekst _ ..Vertaler.GeefVertaling("RugwandHoogte") _ " " _ ..IngegevenKenmerken.RugHoogte
-		Set RugWandTekst = RugWandTekst _ ..#KenmerkSeparator
+		Set RugwandTekst = RugwandTekst _ ..Vertaler.GeefVertaling("RugwandHoogte") _ " " _ ..IngegevenKenmerken.RugHoogte
+		Set RugwandTekst = RugwandTekst _ ..#KenmerkSeparator
 	}
 	
-	Quit RugWandTekst
+	Quit RugwandTekst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVoorwandTekst">
+<Method name="GeefZijwandTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim VoorwandInfo As %String = ""
+	#Dim ZijwandInfo As %String = ""		
+	
+	If ($$$Not(..IsPure()) && (..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.E) && $$$HasLength(..IngegevenKenmerken.ZijwandType)) {
+		Set ZijwandInfo = ..#KenmerkSeparator
+		
+		If (..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.Boxcover) {
+			If (..IsInschuifElementZijkantNietMeegeleverd()) {
+				Set ZijwandInfo = ZijwandInfo _ ..Vertaler.GeefVertaling(..GeefZijkantVertaalSleutelEigenInschuifElement())
+			} Else {
+				Set ZijwandInfo =  ZijwandInfo _..Vertaler.GeefVertaling("BoxCover") _ " " _ ..Vertaler.GeefVertaling("MVXFreeMetGlasDiamant")
+			}
+		} ElseIf (..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.Boxcap) {
+			Set ZijwandInfo =  ZijwandInfo _..Vertaler.GeefVertaling("Boxcap")
+		} ElseIf (..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.Reling) {
+			Set ZijwandInfo =  ZijwandInfo _..Vertaler.GeefVertaling("Reling")
+		} ElseIf (..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.RelingEnInschuifElement) {
+			If (..IsRelingZijkantNietMeegeleverd()) {
+				Set ZijwandInfo = ZijwandInfo _ ..Vertaler.GeefVertaling(..GeefZijkantVertaalSleutelEigenInschuifElement())
+			} Else {
+				Set ZijwandInfo =  ZijwandInfo _..Vertaler.GeefVertaling("Reling")
+			}
+		}
+	}
+	
+	Quit ZijwandInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijkantVertaalSleutelEigenInschuifElement">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Reling_EigenInschuifElement"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandVertaalSleutel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	#Dim VoorwandVertaalSleutel As %String = ""
 	
 	If (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.Metaal) {
-		Set VoorwandVertaalSleutel = "Voorstuk_M_Gesloten"
+		Set VoorwandVertaalSleutel = "Voorstuk_Gesloten"
+	} ElseIf (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.Reling) {
+		If ( ..IsInschuifElementVoorNietMeegeleverd()) {
+			Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenRelingVooraan()
+		} Else {
+			Set VoorwandVertaalSleutel = "Voorstuk_metReling"
+		}
+	} ElseIf (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.GlasHoog) {
+		If ( ..IsInschuifElementVoorNietMeegeleverd()) {
+			Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenInschuifElement()
+		} Else {
+			Set VoorwandVertaalSleutel = "Voorstuk_metHoogInschuifElement"
+		}
+	} ElseIf (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.GlasLaag) {
+		If ( ..IsInschuifElementVoorNietMeegeleverd()) {
+			Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenInschuifElement()
+		} Else {
+			Set VoorwandVertaalSleutel = "Voorstuk_metLaagInschuifElement"
+		}
 	}
 	
+	Quit VoorwandVertaalSleutel
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandVertaalSleutelEigenInschuifElement">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Voorstuk_EigenInschuifElement"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandVertaalSleutelEigenRelingVooraan">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Voorstuk_EigenReling"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim VoorwandInfo As %String = ""
+	#Dim VoorwandVertaalSleutel As %String = ""
+	
+	Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutel()
+	
 	If ($Length(VoorwandVertaalSleutel)) {
 		Set VoorwandInfo = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling(VoorwandVertaalSleutel)
 	}
@@ -245,6 +329,42 @@
 <Implementation><![CDATA[	Quit $$$True
 ]]></Implementation>
 </Method>
+
+<Method name="IsInschuifElementVoorNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.InschuifElementVoor
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
+<Method name="IsInschuifElementZijkantNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.InschuifElementZijkant
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
+<Method name="IsRelingZijkantNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.RelingZijkant
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
+
+<Method name="IsRelingVoorNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.RelingVoor
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
 </Class>