Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r29059 -r29746
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 29746)
@@ -46,6 +46,7 @@
 	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
 	Set ..UitsparingDataHelper = $$$Implementation(UitsparingDataHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New())
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatter).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,48 +55,58 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..LangtekstHoofding = "LEGRABOX "
-	If ..IsLegraboxFree() {
-		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("LBXFree")_" "
+	
+	If (..IsLegraboxFree()) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("LBXFree") _ " "
 	}
-	If ..IsSpoelbaklade() {
+	
+	If (..IsSpoelbaklade()) {
 		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Spoelbaklade")
-	} ElseIf ..IsSifonlade() && ..IngegevenKenmerken.IsBinnenlade {
-		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("SifonbinnenladeLangtekstHoofding")_" "_..IngegevenKenmerken.LadeHoogte
-	} ElseIf ..IsSifonlade() {
-		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("SifonladeLangtekstHoofding")_" "_..IngegevenKenmerken.LadeHoogte
-	} ElseIf ..IngegevenKenmerken.IsBinnenlade {
-		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Binnenlade")_" "_..IngegevenKenmerken.LadeHoogte
+	} ElseIf (..IsSifonlade() && ..IngegevenKenmerken.IsBinnenlade) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("SifonbinnenladeLangtekstHoofding") _ " " _ ..IngegevenKenmerken.LadeHoogte
+	} ElseIf (..IsSifonlade()) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("SifonladeLangtekstHoofding") _ " " _ ..IngegevenKenmerken.LadeHoogte
+	} ElseIf (..IngegevenKenmerken.IsBinnenlade) {
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Binnenlade") _ " " _ ..IngegevenKenmerken.LadeHoogte
 	} Else {
-		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Lade")_" "_..IngegevenKenmerken.LadeHoogte
+		Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Lade") _ " " _ ..IngegevenKenmerken.LadeHoogte
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Paragraaf As TECH.String
-	If ..IsSpoelbaklade() {
+	#Dim Paragraaf As TECH.String
+	
+	If (..IsSpoelbaklade()) {
 		Do ..VoegToeLangtekstParagraaf(" 2 x "_..IngegevenKenmerken.LadeHoogte_..#KenmerkSeparator_..GeefDimensieTekst()_..#KenmerkSeparator)
-		#dim AfmetingUitsparing As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..IngegevenKenmerken)
-		#dim AfmetingZijstukLinks As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..IngegevenKenmerken)
-		#dim AfmetingZijstukRechts As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..IngegevenKenmerken)
-		Set Paragraaf = ..Vertaler.GeefVertaling("Spoelbakopening")_" = "_AfmetingUitsparing_"mm ("_AfmetingZijstukLinks_"/"_AfmetingUitsparing_"/"_AfmetingZijstukRechts_")"
-	} ElseIf ..IsSifonlade() {
+		
+		#Dim AfmetingUitsparing As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingUitsparing(..IngegevenKenmerken)
+		#Dim AfmetingZijstukLinks As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukLinks(..IngegevenKenmerken)
+		#Dim AfmetingZijstukRechts As %Decimal = ..SpoelbakAfmetingBepaler.GeefAfmetingZijstukRechts(..IngegevenKenmerken)
+		
+		Set Paragraaf = ..Vertaler.GeefVertaling("Spoelbakopening") _ " = " _ AfmetingUitsparing _ "mm (" _ AfmetingZijstukLinks _ "/" _ AfmetingUitsparing _ "/" _ AfmetingZijstukRechts _ ")"
+	} ElseIf (..IsSifonlade()) {
 		Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
-		Set UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatterInput).%New()
+		
+		#Dim UitsparingTekstFormatterInput As DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatterInput).%New()
 		Set UitsparingTekstFormatterInput.UitsparingData = ..IngegevenKenmerken.UitsparingData
 		Set UitsparingTekstFormatterInput.Taal = ..Taal
 		Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True
+		
 		Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekst(UitsparingTekstFormatterInput)
 	} Else {
 		Set Paragraaf = ..GeefDimensieTekst()
 	}
 
-	If ..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig() {
-		Set Paragraaf = Paragraaf_..#KenmerkSeparator_..Vertaler.GeefVertaling("Bodem")_":"_..GeefKleurBinnen()_..#KenmerkSeparator_
-				..Vertaler.GeefVertaling("Zijkant")_":"_..GeefKleurBuiten()_..#KenmerkSeparator_
-				..Vertaler.GeefVertaling("Bevat")_": "_$Select(..IsSpoelbaklade():"2x ", 1:"")_..Vertaler.GeefVertaling("GemonteerdeLade")
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {		
+		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
+		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bodem") _ ":" _ ..GeefKleurBinnen()
+		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
+		Set Paragraaf = Paragraaf _	..Vertaler.GeefVertaling("Zijkant") _ ":" _ ..GeefKleurBuiten()
+		Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
+		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ $Select(..IsSpoelbaklade():"2x ", 1:"") _ ..Vertaler.GeefVertaling("GemonteerdeLade")
 		
 		Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 		Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
@@ -104,6 +115,7 @@
 		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging(), ..GeefFrontBevestigingTekst(), $$$True)
 		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering(), ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
 		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst(), ..GeefOpvullijstTekst(), $$$True)
+		
 		Do ..VoegToeLangtekstParagraaf(Paragraaf)
 		
 		Do ..VoegToeGekoppeldeInfoIndienNodig()
@@ -141,7 +153,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(..IngegevenKenmerken, ..HalffabItemsBoom)
+	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCodeLBX(..IngegevenKenmerken, ..HalffabItemsBoom)
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -150,7 +162,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCodeLBX(..IngegevenKenmerken, ..HalffabItemsBoom)
+	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCodeLBX(..IngegevenKenmerken, ..HalffabItemsBoom)
 	Quit ..GeefKleurOmschrijving(KleurCode)
 ]]></Implementation>
 </Method>
@@ -169,7 +181,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KleurVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(..Taal)
+	#Dim KleurVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(..Taal)
 	quit KleurVertaler.GeefVertaling(KleurCode)
 ]]></Implementation>
 </Method>
@@ -178,33 +190,33 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim VoorwandVertaalSleutel As %String = ""
-	If ..IngegevenKenmerken.IsBinnenlade {
+	#Dim VoorwandVertaalSleutel As %String = ""
+	
+	If (..IngegevenKenmerken.IsBinnenlade) {
 		If (..IngegevenKenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).M()) {
+			
 			If (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Vulling()) {
 				Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_metInschuifElement"
-			}
-			ElseIf (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()) {
+			} ElseIf (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()) {
 				Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_Gesloten"
 			}
-		}
-		ElseIf (..IngegevenKenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).C()) {
+			
+		} ElseIf (..IngegevenKenmerken.LadeHoogte=##class(DOM.PM.enu.LBXLadeHoogte).C()) {
 			If (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Vulling()) {
 
 				If (..IngegevenKenmerken.VoorWandVerhogingHoogte=##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()) {
 					Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metHoogInschuifElement"
-				}
-				Else {
-					// VoorWandVerhogingHoogte = "Laag"
+				} Else { // VoorWandVerhogingHoogte = "Laag"
 					Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metLaagInschuifElement"
 				}
-			}
-			ElseIf (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Reling()) {
+				
+			} ElseIf (..IngegevenKenmerken.VoorWandType=##class(DOM.PM.enu.LBXVoorWandType).Reling()) {
 				Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metReling"
 			}
 			
 		}
 	}
+	
 	Quit VoorwandVertaalSleutel
 ]]></Implementation>
 </Method>
@@ -213,11 +225,13 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim VoorwandInfo As %String = ""
-	#dim VoorwandVertaalSleutel As %String = ..GeefVoorwandVertaalSleutel()
+	#Dim VoorwandInfo As %String = ""
+	#Dim VoorwandVertaalSleutel As %String = ..GeefVoorwandVertaalSleutel()
+	
 	If ($Length(VoorwandVertaalSleutel)) {
 		Set VoorwandInfo=..#KenmerkSeparator _ ..Vertaler.GeefVertaling(VoorwandVertaalSleutel)
 	}
+	
 	Quit VoorwandInfo
 ]]></Implementation>
 </Method>
@@ -240,15 +254,18 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
-	#dim RugWandTekst As TECH.String = ""
-	If (..IngegevenKenmerken.RugWandMateriaal=##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
-		Set RugWandTekst = ..#KenmerkSeparator_..Vertaler.GeefVertaling("StalenRug")
+	#Dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
+	#Dim RugWandTekst As TECH.String = ""
+	
+	If (..IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
+		Set RugWandTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("StalenRug")
 	}
-	If ..IsSifonlade() && ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Rug()) {
-		#dim HalffabRug As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabRug = RugUtils.GeefRugX(..HalffabItemsBoom).GeefHalffab()
-		Set RugWandTekst = ..#KenmerkSeparator_..Vertaler.GeefVertaling("RugwandHoogte")_" "_HalffabRug.RugHoogte
+	
+	If (..IsSifonlade() && ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Rug())) {
+		#Dim HalffabRug As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabRug = RugUtils.GeefRugX(..HalffabItemsBoom).GeefHalffab()
+		Set RugWandTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("RugwandHoogte") _ " " _ HalffabRug.RugHoogte
 	}
+	
 	Quit RugWandTekst
 ]]></Implementation>
 </Method>
@@ -287,10 +304,13 @@
 	#define Scheiding "******"
 	
 	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
-	#dim OnderdeelTekst As TECH.String = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom)
-	If ..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Front() {
-		Set OnderdeelTekst = OnderdeelTekst_" "_$Extract(..GeefVoorwandTekst(),$Length(..#KenmerkSeparator)+1,*)
+	
+	#Dim OnderdeelTekst As TECH.String = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom)
+	
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Front()) {
+		Set OnderdeelTekst = OnderdeelTekst _ " " _ $Extract(..GeefVoorwandTekst(), $Length(..#KenmerkSeparator)+1, *)
 	}
+	
 	Do ..VoegToeLangtekstParagraaf(OnderdeelTekst)
 	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
 ]]></Implementation>
@@ -299,10 +319,11 @@
 <Method name="VoegToeDwarsverdelingInfo">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim AantalDwarsverdelingen As TECH.Integer = ..IngegevenKenmerken.AantalDwarsverdelingen
-	If AantalDwarsverdelingen > 0 {
-		#dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling"_$Select(AantalDwarsverdelingen>1:"en",1:"")
-		#dim DwarsverdelingTekst As TECH.String = AantalDwarsverdelingen_" "_..Vertaler.GeefVertaling(VertaalSleutel)
+	#Dim AantalDwarsverdelingen As TECH.Integer = ..IngegevenKenmerken.AantalDwarsverdelingen
+	If (AantalDwarsverdelingen > 0) {
+		#Dim VertaalSleutel As TECH.String = "Langtekst_Dwarsverdeling"_$Select(AantalDwarsverdelingen>1:"en", 1:"")
+		#Dim DwarsverdelingTekst As TECH.String = AantalDwarsverdelingen _ " " _ ..Vertaler.GeefVertaling(VertaalSleutel)
+		
 		Do ..VoegToeLangtekstParagraaf(DwarsverdelingTekst)
 	}
 ]]></Implementation>