Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml
===================================================================
diff -u -r66648 -r66650
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml	(.../BladInhoudBuilderNieuweBomBol.cls.xml)	(revision 66648)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml	(.../BladInhoudBuilderNieuweBomBol.cls.xml)	(revision 66650)
@@ -114,9 +114,9 @@
 		}
 		
 		If (HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant())) {
-			#dim LadeZijkant As DOM.PM.Maatwerk.Calc.HF.impl.TBX.Halffab.HalffabLadeZijkant = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant() _ "->Links")
+			#dim LadeZijkantLinks As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant() _ "->Links")
 			
-			If (LadeZijkant.LiRe = ##class(DOM.PM.enu.LiRe).LinksRechts()) {
+			If (LadeZijkantLinks.GeefRol() = ##class(DOM.PM.enu.LiRe).LinksRechts()) {
 				Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Onderdelen2()
 				
 				Set ProductDetailDataLijn = ..MaakDataLijn("V1->Positioneringsdeel vr T-box-zijkant 'K'", "", "2st","")
@@ -138,7 +138,7 @@
 		} Else {
 			#dim Bodem As DOM.PM.Maatwerk.Calc.HF.impl.TBX.Halffab.HalffabBodem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodem()).GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte())
 			Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Monteren()
-			Set ProductDetailDataLijn = ..MaakDataLijn("Monteren, bodem breedte", "", IngegevenKenmerken.InterneBreedte - 75,"")
+			Set ProductDetailDataLijn = ..MaakDataLijn("Monteren, bodem breedte", IngegevenKenmerken.InterneBreedte - 75_"mm", "","")
 			Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
 		}
 	}
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml
===================================================================
diff -u -r66648 -r66650
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml	(.../Inhoud.cls.xml)	(revision 66648)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml	(.../Inhoud.cls.xml)	(revision 66650)
@@ -315,17 +315,17 @@
 				Do BoldBepaler.ZetBoldKaraktersInKorttekstVoorGeleider(DetailLijn)
 		}
 		}
-	} ElseIf ($Extract(..Langtekst,1,9) = "TandemBOX") {
+	} ElseIf ($Extract(..Titel,1,9) = "TandemBOX") {
 		While (ProdDetailLijnOuterDynamicIterator.HasNext()) {			
 			Set DetailLijn = ProdDetailLijnOuterDynamicIterator.Next()
 			If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,8) = "Geleider") 			{ Do BoldBepaler.ZetBoldKaraktersVoorTbxGeleiders(DetailLijn) }
 			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,11) = "Bodemstrook") 	{ Do BoldBepaler.ZetBoldKaraktersVoorTbxBodem(DetailLijn) }
 			ElseIf (DetailLijn.GeefOmschrijving().GeefTekst() = "Boring voor verbinding rug met bodem") { Do BoldBepaler.ZetBoldKaraktersVoorTbxHoutSchroef(DetailLijn) }
 			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,11) = "Ladezijkant") 	{ Do BoldBepaler.ZetBoldKaraktersVoorTbxLadeZijkant(DetailLijn) }
-			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,5) = "Greep") 			{ Do BoldBepaler.ZetBoldKaraktersOfOmschrijvingVoorTbxGreep(DetailLijn) }
-			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,10) = "Stalen rug") 	{ Do BoldBepaler.ZetBoldKaraktersOfOmschrijvingVoorTbxStalenRug(DetailLijn) }
+			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,5) = "Greep") 			{ Do BoldBepaler.ZetBoldKaraktersVoorTbxGreep(DetailLijn) }
+			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,10) = "Stalen rug") 	{ Do BoldBepaler.ZetBoldKaraktersVoorTbxStalenRug(DetailLijn) }
 			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,9) = "Rugstrook") 		{ Do BoldBepaler.ZetBoldKaraktersVoorTbxRugstrook(DetailLijn) }
-			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,3) = "Mat") 			{ Do BoldBepaler.ZetBoldKaraktersOfOmschrijvingVoorTbxGekoppeldeMat(DetailLijn) }
+			ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,3) = "Mat") 			{ Do BoldBepaler.ZetBoldKaraktersVoorTbxGekoppeldeMat(DetailLijn) }
 		}
 	}
 ]]></Implementation>
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml
===================================================================
diff -u -r66648 -r66650
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml	(.../BoldBepaler.cls.xml)	(revision 66648)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml	(.../BoldBepaler.cls.xml)	(revision 66650)
@@ -62,7 +62,7 @@
 	#dim ItemKortTekst As %String = DetailLijn.GeefKorttekst().GeefTekst()
 	#dim ItemNieuweKortTekst, ItemNieuweOmschrijving, BodemKleur As %String
 	
-	Set BodemKleur = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)
+	Set BodemKleur = $$$Trim($Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2))
 	If $$$Not(BodemKleur = "Lichtgrijs") {
 		Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_"<vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_"</vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), BodemKleur,2)
 		Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
@@ -91,31 +91,40 @@
 <Method name="ZetBoldKaraktersVoorTbxLadeZijkant">
 <FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn</FormalSpec>
 <Implementation><![CDATA[
-	#dim ItemKortTekst As %String = DetailLijn.GeefKorttekst().GeefTekst()
+	#dim OrigineleKortTekst As %String = DetailLijn.GeefKorttekst().GeefTekst()
 	#dim ItemNieuweKortTekst, ItemNieuweOmschrijving, LadeKleur, LadeHoogte, DesignCode As %String
+	#dim OrigineleOmschrijving As %String = DetailLijn.GeefOmschrijving().GeefTekst()
 	
-	Set DesignCode = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)
-	Set LadeHoogte = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",3)
-	Set LadeKleur = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",6)
+	Set DesignCode = $$$Trim($Piece(OrigineleOmschrijving,",",2))
+	Set LadeHoogte = $$$Trim($Piece(OrigineleOmschrijving,",",3))
+	Set LadeKleur = $$$Trim($Piece(OrigineleOmschrijving,",",6))
+	
+	Set ItemNieuweOmschrijving = $Piece(OrigineleOmschrijving, ", "_LadeHoogte, 1)_", "_"<vhINVERS>"_LadeHoogte_"</vhINVERS>"_$Piece(OrigineleOmschrijving, ", "_LadeHoogte, 2)
+	Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
+	
+	Set OrigineleOmschrijving = ItemNieuweOmschrijving
+	
 	If $$$Not(DesignCode = "Antaro") {
-		Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_"<vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_"</vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), DesignCode, 2)
+		Set ItemNieuweOmschrijving = $Piece(OrigineleOmschrijving,",",1)_"<vhINVERS>"_$Piece(OrigineleOmschrijving,",",2)_"</vhINVERS>"_$Piece(OrigineleOmschrijving, DesignCode, 2)
 		Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
 	}
 	
-	If $$$Not(LadeHoogte = "M") {
-		Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_"<vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",3)_"</vhINVERS>"_", "_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), ", "_LadeHoogte, 2)
-		Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
-	}
+	Set OrigineleOmschrijving = ItemNieuweOmschrijving
 	
 	If $$$Not(LadeKleur = "metaalgrijs") {
-		Set ItemNieuweKortTekst = DetailLijn.GeefKorttekst().GeefTekst()_"<vhINVERS>"_$Extract(ItemKortTekst,22,*)_"</vhINVERS>"			
+		Set ItemNieuweKortTekst = $Extract(OrigineleKortTekst,1,21)_"<vhINVERS>"_$Extract(OrigineleKortTekst,22,*)_"</vhINVERS>"			
 		Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst))
+		
+		Set ItemNieuweOmschrijving = $Piece(OrigineleOmschrijving, ", "_LadeKleur, 1)_", "_"<vhINVERS>"_LadeKleur_"</vhINVERS>"
+		Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
 	}
-	//Wanneer is ladehoogte vet in omschrijving en wanneer is eerste deel korttekst vet bij ladezijkant?
+	
+	Set ItemNieuweKortTekst = "<vhINVERS>"_$Extract(DetailLijn.GeefKorttekst().GeefTekst(),1,11)_"</vhINVERS>"_$Extract(DetailLijn.GeefKorttekst().GeefTekst(),12,*)
+	Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst))
 ]]></Implementation>
 </Method>
 
-<Method name="ZetBoldKaraktersOfOmschrijvingVoorTbxGreep">
+<Method name="ZetBoldKaraktersVoorTbxGreep">
 <FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailDataLijn</FormalSpec>
 <Implementation><![CDATA[
 	If (##class(TECH.StringUtils).Contains(DetailLijn.GeefKorttekst().GeefTekst(), "ZIF.80M7   GRI/MIT V1")) {
@@ -130,7 +139,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetBoldKaraktersOfOmschrijvingVoorTbxStalenRug">
+<Method name="ZetBoldKaraktersVoorTbxStalenRug">
 <FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailDataLijn</FormalSpec>
 <Implementation><![CDATA[
 	#dim ItemNieuweOmschrijving As %String
@@ -146,20 +155,20 @@
 <Implementation><![CDATA[
 	#dim ItemNieuweOmschrijving, RugKleur As %String
 	
-	Set RugKleur = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)
+	Set RugKleur = $$$Trim($Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2))
 	If $$$Not(RugKleur = "Lichtgrijs") {
-		Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_"<vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_"</vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), RugKleur,2)
+		Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_", "_"<vhINVERS>"_RugKleur_"</vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), RugKleur,2)
 		Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ZetBoldKaraktersOfOmschrijvingVoorTbxGekoppeldeMat">
+<Method name="ZetBoldKaraktersVoorTbxGekoppeldeMat">
 <FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailDataLijn</FormalSpec>
 <Implementation><![CDATA[
 	#dim ItemNieuweOmschrijving As %String
-	#dim MatRol As %String = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)
-	#dim MatKleur As %String = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",3)
+	#dim MatRol As %String = $$$Trim($Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1))
+	#dim MatKleur As %String = $$$Trim($Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",3))
 	
 	Set ItemNieuweOmschrijving = "<vhINVERS>"_MatRol_"</vhINVERS>"_", "_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_", "_"<vhINVERS>"_MatKleur_"</vhINVERS>"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), MatKleur, 2)
 	Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))