Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml
===================================================================
diff -u -r65474 -r65570
--- DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 65474)
+++ DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 65570)
@@ -44,16 +44,14 @@
 	Set ..OnderdeelTekstBepaler = $$$Inject(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.MVXEnkelOnderdeelTekstBepaler).%New())
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.TBX.impl.UitsparingTekstFormatter).%New()
 	Set ..DomNaarDotNetConvertor = $$$Inject(DomNaarDotNetConvertor, ##class(DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken).%New())
-	Set ..DomNaarDotNetConvertor.TbxKenmerken = ..IngegevenKenmerken
-	Set ..UitsparingData = ..DomNaarDotNetConvertor.GeefUitsparingData()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalHoofding">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..LangtekstHoofding = ..LangtekstHoofding _ ##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.LadeCode",..IngegevenKenmerken.LegacyKenmerken.ItemLT, ..Taal)
+<Implementation><![CDATA[	Set ..LangtekstHoofding = ##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.LadeCode",..IngegevenKenmerken.LegacyKenmerken.ItemLT, ..Taal)
 ]]></Implementation>
 </Method>
 
@@ -63,6 +61,12 @@
 	#dim Paragraaf As TECH.String
 	
 	If (..IsSpoelbaklade() || ..IsSifonlade()) {
+		Set ..DomNaarDotNetConvertor.TbxKenmerken = ..IngegevenKenmerken
+		Set ..UitsparingData = ..DomNaarDotNetConvertor.GeefUitsparingData()
+		
+		If (..UitsparingData.UitsparingZ1 = "SP2_Recht_M_D150_BM") {
+			Set ..UitsparingData.UitsparingZ1 = "SP2_Recht_M_D150_B"_ (..IngegevenKenmerken.InterneBreedte - ..UitsparingData.RugDeelX - ..UitsparingData.RugDeelY)
+		}
 		Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
 		
 		Set UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New()
@@ -78,25 +82,26 @@
 	
 	Set Paragraaf = Paragraaf _ ..GeefBodemTekst()
 	Set Paragraaf = Paragraaf _ ..GeefDesignTekst()
-		
-	Set Paragraaf = Paragraaf _ ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling("GemonteerdeLade")
+	Do ..VoegToeLangtekstParagraaf(Paragraaf)
 	
+	Set Paragraaf = ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling("GemonteerdeLade")
 	Set Paragraaf = Paragraaf _ ..GeefStalenRugTekst()
 	Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
 	
 	Set Paragraaf = Paragraaf _ ..GeefZijwandTekst()
 	Set Paragraaf = Paragraaf _ ..GeefZijstabiliseringTekst()
 	Set Paragraaf = Paragraaf _ ..GeefFrontBevestigingTekst()
-	;Set Paragraaf = Paragraaf _ ..GeefGekoppeldeMatTekst() // Wordt hogerop  in het framework toegevoegd? ->IKApi verwijderen in properties 
-	Set Paragraaf = Paragraaf _ ..GeefFrontSteuntTekst() //Nog goed testen want er is slechts voor 2 vd 3 een vertaleing	Set Paragraaf = Paragraaf _ ..GeefAfdekkapTekst()
+	Set Paragraaf = Paragraaf _ ..GeefFrontSteunTekst()
 	Set Paragraaf = Paragraaf _ ..GeefAfdekkapTekst()
 	Set Paragraaf = Paragraaf _ ..GeefOpvullijstTekst()
+	
 	Set Paragraaf = Paragraaf _ ..GeefDwarsverdelingTekst()
-	Set Paragraaf = Paragraaf _ ..GeefGreepBinnenladeTekst() //Nog af te werken
+	Set Paragraaf = Paragraaf _ ..GeefGreepBinnenladeTekst()
 	Set Paragraaf = Paragraaf _ ..GeefVerlaagdeRugTekst()
 	Set Paragraaf = Paragraaf _ ..GeefOnvolledigeProductiewijzeTekst()
 
-	Do ..VoegToeLangtekstParagraaf(Paragraaf)	
+	Do ..VoegToeLangtekstParagraaf(Paragraaf)
+	Do ..VoegToeGekoppeldeInfoIndienNodig()
 	Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 ]]></Implementation>
 </Method>
@@ -152,7 +157,7 @@
 <Implementation><![CDATA[
 	#dim DesignTekst As TECH.String = ""
 	
-	Set DesignTekst = ..Vertaler.GeefVertaling("Zijkant", "", $$$True) _ ":" _ ##class(Prod.GAMeta.BT.TBLadeKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LadeKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	Set DesignTekst = ##class(Prod.GAMeta.BT.TBLadeKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LadeKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	Set DesignTekst = DesignTekst _ ..#KenmerkSeparator
 	Set DesignTekst = DesignTekst _	##class(Prod.GAMeta.BT.TBDesignCode).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemDC, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	
@@ -167,7 +172,7 @@
 	#dim StalenRugTekst As TECH.String = ""
 	
 	If (..HeeftStalenRug()) {
-		Set StalenRugTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBStalenRug).TaalAfhOmsClass("", ..IngegevenKenmerken.LadeKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set StalenRugTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBStalenRug).TaalAfhOmsClass("", "V", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
 	
 	Quit StalenRugTekst
@@ -180,22 +185,17 @@
 <Implementation><![CDATA[
 	#dim GeleiderTekst As TECH.String = ""
 	
-	If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.Geleider)) {
+	If $$$Not(..IsGeleiderNietMeegeleverd()) {
 		Set GeleiderTekst = ..#KenmerkSeparator	_ ..Vertaler.GeefVertaling("Geleider") _ " " _ ..GeefDraagkrachtTekst()
-		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator	_##class(Prod.GAMeta.BT.TBBlumotion).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBM, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-		
-		/*
-		If (..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()) {
-			Set TOBInfoBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(..Taal)
-			Set GeleiderTekst = GeleiderTekst _ " " _ TOBInfoBepaler.BepaalTOBInfo()
-		}
-		*/
-		
-		//@@@@@@@@@@@@@@@@@@@@@ TO DO PVR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-		
+			Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator	_##class(Prod.GAMeta.BT.TBBlumotion).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBM, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	} Else {
+		Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
 	}
-	 
-	Set GeleiderTekst = GeleiderTekst _ ..#KenmerkSeparator _ ##class(DOM.PM.enu.MVXGeleiderTechnologie).LogicalToDisplay(..IngegevenKenmerken.GeleiderTechnologie)
+	
+	If (..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion()) {
+		Set TOBInfoBepaler = ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(..Taal)
+		Set GeleiderTekst = GeleiderTekst _ " " _ TOBInfoBepaler.BepaalTOBInfo()
+	}
 
 	Quit GeleiderTekst
 ]]></Implementation>
@@ -205,16 +205,15 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim ZijwandTekst As %String = ""		
+	#dim ZijwandTekst As %String = ""
 	
-	If (((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) && $$$Not(..IsInschuifElementNietMeegeleverd()))
-			|| ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) && $$$Not(..IsRelingNietMeegeleverd()))) {
-		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", ..IngegevenKenmerken.ZijwandVerhogingType, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-		
-		If (..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) {
-			Set ZijwandTekst = ZijwandTekst _ " " _ ##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.ZijwandVerhogingKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-		}
+	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) && $$$Not(..IsRelingZijkantNietMeegeleverd())) {
+		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", "ER", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
+	If ((..IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) && $$$Not(..IsInschuifElementNietMeegeleverd())) {
+		Set ZijwandTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("", "INSCHF", ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set ZijwandTekst = ZijwandTekst _ " " _ ##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemKV, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+	}
 	
 	Quit ZijwandTekst
 ]]></Implementation>
@@ -224,10 +223,10 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim ZijstabiliseringTekst As %String = ""		
+	#dim ZijstabiliseringTekst As %String = ""
 	
 	If (..IngegevenKenmerken.HeeftZijstabilisering) {
-		Set ZijstabiliseringTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Stabilisator")
+		Set ZijstabiliseringTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBStabilisator).TaalAfhOmsClass("", $$$True, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
 	
 	Quit ZijstabiliseringTekst
@@ -238,35 +237,20 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim FrontBevestigingTekst As %String = ""	
-	#dim NietMeeleverenFrontBevestiging As %Boolean = (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.FrontBevestiging))	
+	#dim FrontBevestigingTekst As %String = ""
 	
-	If ($$$Not(..IngegevenKenmerken.IsBinnenlade) &&  $$$Not(NietMeeleverenFrontBevestiging)) {
+	If ($$$Not(..IngegevenKenmerken.IsBinnenlade) &&  $$$Not(..IsFrontBevestigingNietMeegeleverd())) {
 		Set FrontBevestigingTekst =  ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBFBevestiging).TaalAfhOmsClass("", ..IngegevenKenmerken.FrontBevestiging, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
 	
 	Quit FrontBevestigingTekst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGekoppeldeMatTekst">
+<Method name="GeefFrontSteunTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim GekoppeldeMatTekst As %String = ""		
-	
-	If (..IngegevenKenmerkenApi.HeeftGekoppeldeMat(..IngegevenKenmerken)) {
-		Set GekoppeldeMatTekst =  ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBMat).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemASM, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-	}
-	
-	Quit GekoppeldeMatTekst
-]]></Implementation>
-</Method>
-
-<Method name="GeefFrontSteuntTekst">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
 	#dim FrontSteuntTekst As TECH.String = ""
 	
 	If (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.FrontOndersteuningType, ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator() ,##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteunMetSchroeven())) {
@@ -308,7 +292,7 @@
 			Set OpvullijstTekst = ..#KenmerkSeparator _ ..Vertaler.GeefVertaling("Opvullijsten")
 		}
 		
-		Set OpvullijstTekst = OpvullijstTekst _ ##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.OpvullijstKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
+		Set OpvullijstTekst = OpvullijstTekst _" "_ ##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("", ..IngegevenKenmerken.OpvullijstKleur, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
 	}
 	
 	Quit OpvullijstTekst
@@ -337,7 +321,6 @@
 	
 	If (..IngegevenKenmerken.IsBinnenlade && (..IngegevenKenmerken.LegacyKenmerken.ItemBGRP'?1(1"X",1"Z",1"H"))) { 
 		Set GreepBinnenladeTekst = ..#KenmerkSeparator _ ##class(Prod.GAMeta.BT.TBBinnenGreep).TaalAfhOmsClass("", ..IngegevenKenmerken.LegacyKenmerken.ItemBGRP, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC)
-		//TODO PVR: BGRP = V????
 	}
 	
 	Quit GreepBinnenladeTekst
@@ -372,41 +355,99 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsInschuifElementNietMeegeleverd">
+<Method name="GeefVerpakkingTekst">
 <Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingTekst As %String = ..IngegevenKenmerken.VerpakkingType
+	#dim VerpakkingType As %String = ..GeefVerpakkingType()
+	
+	If (VerpakkingType = "V1") {
+		Set VerpakkingType = "Karton"
+	}
+	
+	Quit ..Vertaler.GeefVertaling("Verpakt")_": "_ ..Vertaler.GeefVertaling(VerpakkingType)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingType As %String = ""
+	
+	If (..IngegevenKenmerken.VerpakkingType = "P") {
+	 	Set VerpakkingType = "Pallet"
+	} ElseIf (..IngegevenKenmerken.VerpakkingType = "X") {
+		Set VerpakkingType = "Probox"
+	} ElseIf (..IngegevenKenmerken.VerpakkingType = "C") {
+		Set VerpakkingType = "Procom"
+	} ElseIf (..IngegevenKenmerken.VerpakkingType = "S") {
+		Set VerpakkingType = "V1"
+	} ElseIf (..IngegevenKenmerken.VerpakkingType = "A") {
+		Set VerpakkingType = "VHoss"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..IngegevenKenmerken.VerpakkingType_"' is niet gekend in de DomNaarDotNetconvertor."))
+	}
+	
+	Quit VerpakkingType
+]]></Implementation>
+</Method>
+
+<Method name="IsAfdekkapNietMeegeleverd">
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.InschuifElementZijkant
+	#dim Rol As %String = ..Enum.Rol.Afdekkap
 	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 ]]></Implementation>
 </Method>
 
-<Method name="IsRelingNietMeegeleverd">
+<Method name="IsFrontBevestigingNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.RelingZijkant
+	#dim Rol As %String = ..Enum.NietMeeleveren.FrontBevestiging
 	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 ]]></Implementation>
 </Method>
 
-<Method name="IsOpvullijstNietMeegeleverd">
+<Method name="IsGeleiderNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.Opvullijst
+	#dim Rol As %String = ..Enum.Rol.Geleider
 	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 ]]></Implementation>
 </Method>
 
-<Method name="IsAfdekkapNietMeegeleverd">
+<Method name="IsInschuifElementNietMeegeleverd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Rol As %String = ..Enum.Rol.Afdekkap
+	#dim Rol As %String = ..Enum.Rol.InschuifElement
+	Do ##class(Tools.Wlip).%New(110).ObjToText(..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
 	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="IsOpvullijstNietMeegeleverd">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Rol As %String = ..Enum.Rol.Opvullijst
+	Quit (..HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(Rol))
+]]></Implementation>
+</Method>
 </Class>