Index: DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r68026 -r68046
--- DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68026)
+++ DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68046)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.INK.impl.KorttekstBepaler">
-<Super>DOM.PM.Maatwerk.BewerktHalffabrikaat.KorttekstBepaler,TECH.RegisteredObject</Super>
+<Super>DOM.PM.Maatwerk.BewerktHalffabrikaat.KorttekstBepaler,DOM.PM.Maatwerk.INK.impl.Base</Super>
 
 <Property name="IngegevenKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</Type>
 <Private>1</Private>
 </Property>
 
@@ -28,38 +28,29 @@
 </Method>
 
 <Method name="BepaalKorttekst">
-<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim Korttekst as %String = ""
 	
 	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
 	Set ..DataDefinitie = DataDefinitie
 	Set ..IngegevenKenmerken = IngegevenKenmerken
-	Set ..HalffabItemsBoom = HalffabItemsBoom	
-	/*
-		#dim GeleiderCode As %String = ..GeefGeleiderCode()
-		#dim ZijwandHoogte As %String = ..GeefZijwandHoogte()
-		#dim DesignCode As %String = ..GeefDesignCode()
-		#dim FrontBevestigingCode As %String = ..GeefFrontBevestigingCode()
-		#dim LadeDimensie As %String = ..GeefLadeDimensie()
-		#dim VerpakkingCode As %String = ..GeefVerpakkingCode()
-		#dim BuitenkleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
-		#dim BinnenkleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
-		
-		Set Korttekst = "LB"_GeleiderCode_ZijwandHoogte_DesignCode_FrontBevestigingCode_$J(DossierNummer,5)_LadeDimensie_$J(VerpakkingCode,1)_" "_$J($E(BuitenkleurCode,1,2),2)_$J($E(BinnenkleurCode,1,2),2)
-		*/
+	Set ..HalffabItemsBoom = HalffabItemsBoom
+	
+	#dim Product As DOM.PM.AdministratiefProduct
+	#dim ProductID, KortTekstBewerktHalffabrikaat As TECH.String
+	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat())
+	
+	Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+	Set KortTekstBewerktHalffabrikaat = Product.GeefKorttekst()	
+	
+	Set Korttekst = $Extract(KortTekstBewerktHalffabrikaat, 1, 8)_$J(DossierNummer,4)_"VERZ"
+	
 	Quit Korttekst
 ]]></Implementation>
 </Method>
-
-<Method name="GeefHalffab">
-<FormalSpec>Rol:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/PM/impl/INKLangtekstCreator.cls.xml
===================================================================
diff -u -r68025 -r68046
--- DOM/PM/impl/INKLangtekstCreator.cls.xml	(.../INKLangtekstCreator.cls.xml)	(revision 68025)
+++ DOM/PM/impl/INKLangtekstCreator.cls.xml	(.../INKLangtekstCreator.cls.xml)	(revision 68046)
@@ -1,481 +1,76 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.INKLangtekstCreator">
-<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.INK.impl.Base</Super>
 
-<Property name="SpoelbakAfmetingBepaler">
-<Type>APPS.PM.Maatwerk.SpoelbakAfmetingBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="IngegevenKenmerkenTypeAPI">
-<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="OnderdeelTekstBepaler">
-<Type>DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="UitsparingTekstFormatter">
-<Type>DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatter</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>SpoelbakAfmetingBepaler:APPS.PM.Maatwerk.SpoelbakAfmetingBepaler="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler="",KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler="",SpaceStepTekstBepaler:DOM.PM.impl.SSTLangtekstCreator</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..SpoelbakAfmetingBepaler = $$$Implementation(SpoelbakAfmetingBepaler, ##class(APPS.PM.Maatwerk.LBX.impl.SpoelbakAfmetingBepaler).%New())
-	Set ..IngegevenKenmerkenTypeAPI = $$$Implementation(IngegevenKenmerkenTypeAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
-	Set ..OnderdeelTekstBepaler = $$$Implementation(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler).%New())
-	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
-	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatter).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalHoofding">
 <Private>1</Private>
-<Implementation><![CDATA[
-	If (..IsSpaceStep()) {
-		Set ..LangtekstHoofding = ##class(DOM.PM.impl.SSTLangtekstCreator).%New(..IngegevenKenmerken, ..Taal).BepaalHoofding()
-	} Else {
-		Set ..LangtekstHoofding = "LEGRABOX "
-		
-		If (..IsLegraboxFree()) {
-			Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("LBXFree") _ " "
-		}
-		
-		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
-		} Else {
-			Set ..LangtekstHoofding = ..LangtekstHoofding _ ..Vertaler.GeefVertaling("Lade") _ " " _ ..IngegevenKenmerken.LadeHoogte
-		}
-	}
+<Implementation><![CDATA[	Set ..LangtekstHoofding = ""
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Paragraaf As TECH.String
-	
-	If (..IsSpaceStep()) {
-		Set ..LangtekstDetail = (##class(DOM.PM.impl.SSTLangtekstCreator).%New(..IngegevenKenmerken, ..Taal).VoegToeBasisGegevens())
-	} Else {
-	
-		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()) {
-			Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
-			
-			#Dim UitsparingTekstFormatterInput As DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New()
-			Set UitsparingTekstFormatterInput.UitsparingData = ..IngegevenKenmerken.UitsparingData
-			Set UitsparingTekstFormatterInput.Taal = ..Taal
-			Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True
-			
-			Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput)
-		} Else {
-			Set Paragraaf = ..GeefDimensieTekst()
-		}
-
-		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("ladezijkant", "", $$$True) _ ":" _ ..GeefKleurBuiten()
-			Set Paragraaf = Paragraaf _ ..#KenmerkSeparator
-			Set Paragraaf = Paragraaf _ ..GeefRugWandTekst()
-			Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ $Select(..IsSpoelbaklade():"2x ", 1:"") _ ..Vertaler.GeefVertaling("GemonteerdeLade")
-
-			Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
-			Set Paragraaf = Paragraaf _ ..GeefVoorwandTekst()
-			Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
-			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
-			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
-			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
-			Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.MeenemerSet, ..Vertaler.GeefVertaling("MeenemerSet"), $$$True)
-
-			Do ..VoegToeLangtekstParagraaf(Paragraaf)
-			
-			Do ..VoegToeGekoppeldeInfoIndienNodig()
-			Do ..VoegToeDwarsverdelingInfo()
-			Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
-			Do ..VoegToeSmalleLadeInfo() 
-		} Else {
-			Do ..VoegToeLangtekstParagraaf(Paragraaf)
-			Do ..VoegToeEnkelOnderdeelTekst()
-		}
-	}
+	Do ..VoegToeLangtekstParagraafVerzagenVan()
+	Do ..VoegToeLangtekstParagraafOpLengte()
 ]]></Implementation>
 </Method>
 
-<Method name="IsSmalleLade">
+<Method name="VoegToeLangtekstParagraafVerzagenVan">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeAPI.IsSmalleLade(..IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeSmalleLadeInfo">
-<Private>1</Private>
 <Implementation><![CDATA[
-	If (..IsSmalleLade() && (..IsGeleiderTechnologieTiponBlumotion())) {
-		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("SmalleLadeInfoTOB"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="IsSpoelbaklade">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(..IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="IsSifonlade">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeAPI.IsSifonlade(..IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="IsLegraboxFree">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerken.ZijWandType = ..Enum.ZijwandType.Free
-]]></Implementation>
-</Method>
-
-<Method name="IsSpaceStep">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeAPI.IsSpaceStep(..IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKleurBinnen">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCode(..IngegevenKenmerken, ..HalffabItemsBoom)
-	Quit ..GeefKleurOmschrijving(KleurCode)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKleurBuiten">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim KleurCode As %String = ..KleurCodeBepaler.GeefBuitenKleurCode(..IngegevenKenmerken, ..HalffabItemsBoom)
-	Quit ..GeefKleurOmschrijving(KleurCode)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKleurTiponBlumotion">
-<FormalSpec>BevatVerwijderdeRolTOBEenheid:%Boolean,BevatVerwijderdeRolTOBSetEenhedenEnMeenemers:%Boolean</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim KleurCode As TECH.String = ""
-	if (BevatVerwijderdeRolTOBEenheid) {
-		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionEenheid, ..HalffabItemsBoomOnHerwerkt)
-	} ElseIf (BevatVerwijderdeRolTOBSetEenhedenEnMeenemers){
-		Set KleurCode = ..KleurCodeBepaler.GeefKleurCodeVoorRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers, ..HalffabItemsBoomOnHerwerkt)
-	}
+	#dim Paragraaf As TECH.String
+	#dim Product As DOM.PM.AdministratiefProduct
+	#dim ProductID, KortTekstBewerktHalffabrikaat As TECH.String
+	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat())
 	
-	Quit ..GeefKleurOmschrijving(KleurCode)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKleurTiponBlumotionDotnetBased">
-<FormalSpec>ProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#define VerwijderSlash(%v) $translate(%v, "/", "")
+	Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+	Set KortTekstBewerktHalffabrikaat = Product.GeefKorttekst()
 	
-	#dim KleurCode As TECH.String = ""
-		
-	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductId)		
-	Set KleurCode = $$$VerwijderSlash(Product.GeefKleurVanKorttekst())
-	
-	Quit ..GeefKleurOmschrijving(KleurCode)
+	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Verzagen_van"))
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVoorwandVertaalSleutel">
+<Method name="VoegToeLangtekstParagraafOpLengte">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim VoorwandVertaalSleutel As %String = ""
+	#dim Paragraaf As TECH.String = ""
 	
-	If (..IngegevenKenmerken.IsBinnenlade) {
-		If (..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) {
-			
-			If (..IsVoorwandTypeVulling()) {
-				Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_metInschuifElement"
-			} ElseIf (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk) {
-				Set VoorwandVertaalSleutel = "LBX_Voorstuk_M_Gesloten"
-			}
-			
-		} ElseIf (..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
-			If (..IsVoorwandTypeVulling()) {
-
-				If (..IngegevenKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Hoog) {
-					Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metHoogInschuifElement"
-				} Else { // VoorWandVerhogingHoogte = "Laag"
-					Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metLaagInschuifElement"
-				}
-				
-			} ElseIf (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Reling) {
-				Set VoorwandVertaalSleutel = "LBX_Voorstuk_C_metReling"
-			}
-			
-		}
-	}
+	Set Paragraaf = ..Vertaler.GeefVertaling("Op_lengte")
+	Set iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes)
 	
-	Quit VoorwandVertaalSleutel
-]]></Implementation>
-</Method>
-
-<Method name="GeefVoorwandTekst">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim VoorwandInfo As %String = ""
-	#Dim VoorwandVertaalSleutel As %String = ""
-	
-	If (..IsVoorwandTypeVulling() && ..IsInschuifElementFrontNietMeegeleverd()) {
-		Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenInschuifElement()
+	If ($ListLength(..IngegevenKenmerken.Lengtes) = 1) {
+		Set Paragraaf = Paragraaf _ ..IngegevenKenmerken.Lengtes.GetAt(1)
 	} Else {
-		Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutel()
-	}
-	
-	If ($Length(VoorwandVertaalSleutel)) {
-		Set VoorwandInfo = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling(VoorwandVertaalSleutel)
-	}
-	
-	Quit VoorwandInfo
-]]></Implementation>
-</Method>
-
-<Method name="GeefZijwandTekst">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim ZijwandInfo As %String = ""		
-	
-	If (..IsLegraboxFree()) {
-		Set ZijwandInfo = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("BoxCover")
-		If (..IsInschuifElementZijkantNietMeegeleverd()) {
-			Set ZijwandInfo = ZijwandInfo _ " " _ ..Vertaler.GeefVertaling(..GeefZijkantVertaalSleutelEigenInschuifElement())
-		} Else {
-			Set ZijwandInfo = ZijwandInfo _ " " _ ..Vertaler.GeefVertaling("LBXFreeMetGlasDiamant")
-		}
-
-	}
-	
-	Quit ZijwandInfo
-]]></Implementation>
-</Method>
-
-<Method name="GeefRugWandTekst">
-<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 (..HeeftStalenRug()) {
-		Set RugWandTekst = RugWandTekst _ ..Vertaler.GeefVertaling("StalenRug")
-		Set RugWandTekst = RugWandTekst _ ..#KenmerkSeparator
-	}
-	
-	If ((..IsAfwijkendeRugHoogte() || ..IsSifonlade() || ..HeeftStalenRug()) && ..HalffabItemsBoom.BevatRol(..Enum.Rol.Rug)) {
-		#dim HalffabRug As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabRug = RugUtils.GeefRugX(..HalffabItemsBoom).GeefHalffab()
+		Set Iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes)
 		
-		Set RugWandTekst = RugWandTekst _ ..Vertaler.GeefVertaling("RugwandHoogte") _ " " _ HalffabRug.RugHoogte
-		Set RugWandTekst = RugWandTekst _ ..#KenmerkSeparator
-	}
-	
-	Quit RugWandTekst
-]]></Implementation>
-</Method>
-
-<Method name="IsAfwijkendeRugHoogte">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$Not(..IngegevenKenmerken.LadeHoogte = ..IngegevenKenmerken.RugHoogte)
-]]></Implementation>
-</Method>
-
-<Method name="HeeftStalenRug">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IngegevenKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal)
-]]></Implementation>
-</Method>
-
-<Method name="IsGeleiderTechnologieTiponBlumotion">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
-]]></Implementation>
-</Method>
-
-<Method name="GeefGeleiderTekst">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim GeleiderTekst, TOBTekst, ProductId As TECH.String = ""
-	#dim BevatVerwijderdeRolTOBEenheid As %Boolean = ..BevatVerwijderdeRol(..Enum.Rol.TiponBlumotionEenheid)
-	#dim BevatVerwijderdeRolTOBSetEenhedenEnMeenemers As %Boolean = ..BevatVerwijderdeRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
-	#dim Product As DOM.PM.AdministratiefProduct
-	
-	Set GeleiderTekst = GeleiderTekst _ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
-	If (..IsGeleiderTechnologieTiponBlumotion() && (BevatVerwijderdeRolTOBEenheid || BevatVerwijderdeRolTOBSetEenhedenEnMeenemers)) {
-		Set TOBTekst = TOBTekst _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
-		
-		If ($$$Not(..IsMaatwerkCalculatieInDotNet)) {
-			If BevatVerwijderdeRolTOBSetEenhedenEnMeenemers {
-				Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-			} ElseIf BevatVerwijderdeRolTOBEenheid { 
-				Set ConcreetHalffabItem = ..HalffabItemsBoomOnHerwerkt.GeefHalffabItem(..Enum.Rol.TiponBlumotionEenheid).GeefHalffabItem("Links")
-			}
+		While Iterator.HasNext() {
+			Set Paragraaf = Paragraaf _ Iterator.Next()
 			
-			Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ConcreetHalffabItem.GeefHalffab().GeefProductID())
-			Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
-			Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotion(BevatVerwijderdeRolTOBEenheid, BevatVerwijderdeRolTOBSetEenhedenEnMeenemers)
-		} Else {
-			#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson
-			If (BevatVerwijderdeRolTOBSetEenhedenEnMeenemers) {
-				 Set HalffabItem = ..GeefVerwijderdHalffab(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
-				 Set ProductId = HalffabItem.ProductId
+			If Iterator.HasNext() {
+				Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("en")
 			}
-			
-			Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductId)
-			Set TOBTekst = TOBTekst _ " " _ $Extract(Product.GeefKorttekst(), 1, 7)
-			Set TOBTekst = TOBTekst _ " " _ ..GeefKleurTiponBlumotionDotnetBased(ProductId)
-		}	
-	} Else {
-		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.LBXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
-	}	
-	
-	Quit ..GeefTekstVoorRol(..Enum.Rol.Geleider, GeleiderTekst, $$$True) _ $$$IfLength(TOBTekst, ..#KenmerkSeparator, "")
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeEnkelOnderdeelTekst">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#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, *)
+		}
 	}
 	
-	Do ..VoegToeLangtekstParagraaf(OnderdeelTekst)
-	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeDwarsverdelingInfo">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#Dim AantalDwarsverdelingen As TECH.Integer = ..IngegevenKenmerken.AantalDwarsverdelingen
+	Set Paragraaf = Paragraaf _ "mm"
 	
-	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)
-	}
+	Do ..VoegToeLangtekstParagraaf(Paragraaf)
 ]]></Implementation>
 </Method>
-
-<Method name="BevatVerwijderdeRol">
-<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol.AutoComplete</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	If (..IsMaatwerkCalculatieInDotNet) {
-		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-	} Else {
-		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="IsInschuifElementFrontNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.InschuifElementVoor	
-	If (..IsMaatwerkCalculatieInDotNet) {
-		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-	} Else {
-		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="IsInschuifElementZijkantNietMeegeleverd">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.InschuifElementZijkant
-	If (..IsMaatwerkCalculatieInDotNet){
-		Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
-	} Else {
-		Quit (..HalffabItemsBoomOnHerwerkt.BevatRol(Rol) && ($$$Not(..HalffabItemsBoom.BevatRol(Rol))))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="IsVoorwandTypeVulling">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IngegevenKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling)
-]]></Implementation>
-</Method>
-
-<Method name="GeefVoorwandVertaalSleutelEigenInschuifElement">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "LBX_Voorstuk_EigenInschuifElement"
-]]></Implementation>
-</Method>
-
-<Method name="GeefZijkantVertaalSleutelEigenInschuifElement">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "EigenInschuifElement"
-]]></Implementation>
-</Method>
 </Class>