Index: DOM/PM/KorttekstUtils.cls.xml
===================================================================
diff -u -r65461 -r68025
--- DOM/PM/KorttekstUtils.cls.xml	(.../KorttekstUtils.cls.xml)	(revision 65461)
+++ DOM/PM/KorttekstUtils.cls.xml	(.../KorttekstUtils.cls.xml)	(revision 68025)
@@ -21,6 +21,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalKorttekstINK">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.INK.impl.KorttekstBepaler).%New().BepaalKorttekst(DossierNummer, IngegevenKenmerken, HalffabItemsBoom)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalKorttekstLBX">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
Index: DOM/PM/impl/INKLangtekstCreator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/INKLangtekstCreator.cls.xml	(revision 0)
+++ DOM/PM/impl/INKLangtekstCreator.cls.xml	(revision 68025)
@@ -0,0 +1,482 @@
+<?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>
+
+<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>
+</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()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsSmalleLade">
+<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)
+	}
+	
+	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, "/", "")
+	
+	#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)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandVertaalSleutel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim VoorwandVertaalSleutel As %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"
+			}
+			
+		}
+	}
+	
+	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()
+	} 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 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")
+			}
+			
+			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
+			}
+			
+			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
+	
+	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>
+</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>
+
+
+</Export>
Index: DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(revision 68025)
@@ -0,0 +1,243 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.INK.impl.KorttekstBepaler">
+<Super>DOM.PM.Maatwerk.Lade.KorttekstBepaler,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataDefinitie">
+<Type>Prod.Kenmerk.DataDefinitieAdapter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeInfoAPI">
+<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Lade">
+<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KleurCodeBepaler">
+<Type>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SSTKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI="",KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
+	Set ..IngegevenKenmerkenTypeAPI = $$$Implementation(IngegevenKenmerkenTypeAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	
+	Quit $$$OK
+]]></Implementation>
+</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>
+<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
+	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom,IngegevenKenmerken)	
+	
+	If (..IsSpaceStep())
+	{
+		Set ..SSTKenmerken = ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+		
+		#dim UitvoeringCode As %String = ..GeefUitvoeringCode()
+		#dim SpaceStepDimensie As %String = ..GeefSpaceStepDimensie()
+		#dim SpaceStepKleur As %String = ..SSTKenmerken.Kleur
+		
+		Set Korttekst = "SST#"_UitvoeringCode_$J(DossierNummer,4)_SpaceStepDimensie_"  "_SpaceStepKleur
+	} Else {
+		#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)
+	}
+		
+	Quit Korttekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeleiderCode">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeleiderCode As TECH.String = " "
+	#dim Rol As TECH.String = ..Enum.Rol.Geleider _ "->Links"
+	
+	If (..HalffabItemsBoom.BevatRol(Rol)) {
+		Set GeleiderCode = $Justify($Extract($ListGet(..DataDefinitie.DataDefinitieGet("LBX_PPS_Geleider",..GeefHalffab(Rol).GeefProductID(), ..Enum.KenmerkNaam.Draagkracht))), 1)
+	} Else {
+		Set GeleiderCode = $Justify($Extract(..IngegevenKenmerken.Draagkracht), 1)
+	}
+	
+	Quit GeleiderCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijwandHoogte">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijwandHoogte As %String = " "
+	#dim Rol As TECH.String = ..Enum.Rol.LadeZijkant _ "->Links"
+	
+	If (..HalffabItemsBoom.BevatRol(Rol)) {
+		Set ZijwandHoogte = $ListGet(..DataDefinitie.DataDefinitieGet("LBX_PPS_LadeZijkant", ..GeefHalffab(Rol).GeefProductID(), "Hoogte"))
+	} ElseIf $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		Set ZijwandHoogte = ..IngegevenKenmerken.LadeHoogte
+	}
+	
+	Quit ZijwandHoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefDesignCode">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DesignCode As %String = "/"
+	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	
+	If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(..IngegevenKenmerken)) {
+		Set DesignCode = "S"
+	} ElseIf (IngegevenKenmerkenTypeAPI.IsSifonlade(..IngegevenKenmerken)) {
+		Set DesignCode = "Y"
+	}
+	
+	If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		Set DesignCode = "!"
+	}
+	
+	Quit DesignCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrontBevestigingCode">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontBevestigingCode As %String =  " "
+	
+	If $$$Not(..IngegevenKenmerken.FrontBevestiging = "") {
+		Set FrontBevestigingCode = ..IngegevenKenmerken.FrontBevestiging
+		Set:(FrontBevestigingCode=##class(DOM.PM.enu.LBXFrontBevestiging).ExpandoT()) FrontBevestigingCode = "T"
+	}
+	
+	If (..IngegevenKenmerken.IsBinnenlade) {
+		Set FrontBevestigingCode = "Z"
+	}
+	
+	Quit FrontBevestigingCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeDimensie">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DimensieString As TECH.String = ..Lade.GeefDiepteInMM() _ "x" _ ..Lade.GeefBreedteInMM()
+	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString, 8), 1, 8)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingCode">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingCode As %String = " "
+	
+	If (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss) {
+		Set VerpakkingCode = "A"
+	} ElseIf (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox) {
+		Set VerpakkingCode = "X"
+	} ElseIf $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1) {
+		Set VerpakkingCode = $Extract(..IngegevenKenmerken.VerpakkingType)
+	}
+	
+	Quit VerpakkingCode
+]]></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>
+
+<Method name="GeefUitvoeringCode">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim UitvoeringCode As %String = ""
+	
+	If (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.Volledig) {
+		Set UitvoeringCode = "LB"_..IngegevenKenmerken.LadeHoogte
+	} ElseIf (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.SokkelEnTablet) {
+		Set UitvoeringCode = "   "	
+	} ElseIf (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.Tablet) {
+		Set UitvoeringCode = "TAB"
+	}
+	
+	Quit UitvoeringCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefSpaceStepDimensie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DimensieString As TECH.String = ..SSTKenmerken.Diepte _ "x" _ ..SSTKenmerken.Breedte
+	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString, 8), 1, 8)
+]]></Implementation>
+</Method>
+
+<Method name="IsSpaceStep">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeAPI.IsSpaceStep(..IngegevenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>