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>