Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking/OmschrijvingFormatter.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking/OmschrijvingFormatter.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking/OmschrijvingFormatter.cls.xml	(revision 57065)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.OnderdelenPicking.OmschrijvingFormatter">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="Bold">
+<Type>%String</Type>
+<Default>ªB</Default>
+</Parameter>
+
+<Parameter name="UnBold">
+<Type>%String</Type>
+<Default>ªb</Default>
+</Parameter>
+
+<Method name="GeefGeformatteerdeOmschrijving">
+<FormalSpec>OmschrijvingWordWrappedLijst:%ListOfDataTypes,DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,EersteKolomBreedte:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim GeformatteerdeOmschrijvingLijst As %ListOfDataTypes = OmschrijvingWordWrappedLijst
+
+	If (DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging()) {
+
+		#dim ReplaceKomma As TECH.MultiDim
+		Set ReplaceKomma(1) = "," _ ..#Bold
+		Set ReplaceKomma(2) = ..#UnBold _","
+
+		#dim AantalKommas As %Integer = 0
+		
+		#dim GeformatteerdeOmschrijvingLijnNr As %Integer = 1
+		#dim AantalLijnen As %Integer = GeformatteerdeOmschrijvingLijst.Count()
+		
+		While (GeformatteerdeOmschrijvingLijnNr <= AantalLijnen)
+		{
+			#dim GeformatteerdeOmschrijving As %String = GeformatteerdeOmschrijvingLijst.GetAt(GeformatteerdeOmschrijvingLijnNr)
+			#dim Positie As %Integer = 1
+			#dim Omschrijving As %String = ""
+	
+	 		While Positie <= $Length(GeformatteerdeOmschrijving)
+		 	{
+			 	If ($Extract(GeformatteerdeOmschrijving,Positie,Positie) = ",") {
+				 	Set AantalKommas = AantalKommas + 1
+					If $Data(ReplaceKomma(AantalKommas)) {
+						Set Omschrijving = Omschrijving _ReplaceKomma(AantalKommas)
+			 		} Else {
+						Set Omschrijving = Omschrijving _$Extract(GeformatteerdeOmschrijving,Positie,Positie) 
+			 		}
+				} Else {
+						Set Omschrijving = Omschrijving _$Extract(GeformatteerdeOmschrijving,Positie,Positie) 
+			 	}
+				Set Positie = Positie + 1
+			}
+			Do GeformatteerdeOmschrijvingLijst.SetAt(Omschrijving, GeformatteerdeOmschrijvingLijnNr)
+			
+			Set GeformatteerdeOmschrijvingLijnNr = GeformatteerdeOmschrijvingLijnNr + 1
+		}		
+	}
+	
+	Quit GeformatteerdeOmschrijvingLijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r56959 -r57065
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56959)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 57065)
@@ -38,6 +38,11 @@
 <Default>ªb</Default>
 </Parameter>
 
+<Property name="OmschrijvingFormatter">
+<Type>APPS.Halux.PPS.Document.impl.LBX.OnderdelenPicking.OmschrijvingFormatter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GeWordWrapteProductOmschrijvingLijnen">
 <Type>TECH.ListIterator</Type>
 <Private>1</Private>
@@ -53,6 +58,7 @@
 	Do ##super()
 	Set ToonIngebrepenHalffabItemBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.OnderdelenPicking.ToonInbegrepenHalffabItemBepaler).%New()	
 	Set ..PlatteHalffabItemLijstMaker = $$$Implementation(HalffabItemNaarKnoopVisitorClassName,##class(APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor).%New(ToonIngebrepenHalffabItemBepaler))
+	Set ..OmschrijvingFormatter = ##class(APPS.Halux.PPS.Document.impl.LBX.OnderdelenPicking.OmschrijvingFormatter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -126,7 +132,7 @@
 			#dim Omschrijving = DataVoorLijn.HFV.GeefOmschrijving()
 			#dim OmschrijvingWordWrappedLijst As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Omschrijving, EersteKolomBreedte)
 			
-			#dim GeformatteerdeOmschrijvingLijst As %ListOfDataTypes = ..GeefGeformatteerdeOmschrijving(OmschrijvingWordWrappedLijst, DataVoorLijn, EersteKolomBreedte)
+			#dim GeformatteerdeOmschrijvingLijst As %ListOfDataTypes = ..OmschrijvingFormatter.GeefGeformatteerdeOmschrijving(OmschrijvingWordWrappedLijst, DataVoorLijn, EersteKolomBreedte)
 			Set ..GeWordWrapteProductOmschrijvingLijnen = ##class(TECH.ListIterator).%New(GeformatteerdeOmschrijvingLijst)
 			
 			Set OPEenProductIt = ##class(TECH.ListIterator).%New(OPVoorEenProductLijst)
@@ -140,54 +146,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGeformatteerdeOmschrijving">
-<FormalSpec>OmschrijvingWordWrappedLijst:%ListOfDataTypes,DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,EersteKolomBreedte:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	#dim GeformatteerdeOmschrijvingLijst As %ListOfDataTypes = OmschrijvingWordWrappedLijst
-
-	If (DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging()) {
-
-		#dim ReplaceKomma As TECH.MultiDim
-		Set ReplaceKomma(1) = "," _ ..#Bold
-		Set ReplaceKomma(2) = ..#UnBold _","
-
-		#dim AantalKommas As %Integer = 0
-		
-		#dim GeformatteerdeOmschrijvingLijnNr As %Integer = 1
-		#dim AantalLijnen As %Integer = GeformatteerdeOmschrijvingLijst.Count()
-		
-		While (GeformatteerdeOmschrijvingLijnNr <= AantalLijnen)
-		{
-			#dim GeformatteerdeOmschrijving As %String = GeformatteerdeOmschrijvingLijst.GetAt(GeformatteerdeOmschrijvingLijnNr)
-			#dim Positie As %Integer = 1
-			#dim Omschrijving As %String = ""
-	
-	 		While Positie <= $Length(GeformatteerdeOmschrijving)
-		 	{
-			 	If ($Extract(GeformatteerdeOmschrijving,Positie,Positie) = ",") {
-				 	Set AantalKommas = AantalKommas + 1
-					If $Data(ReplaceKomma(AantalKommas)) {
-						Set Omschrijving = Omschrijving _ReplaceKomma(AantalKommas)
-			 		} Else {
-						Set Omschrijving = Omschrijving _$Extract(GeformatteerdeOmschrijving,Positie,Positie) 
-			 		}
-				} Else {
-						Set Omschrijving = Omschrijving _$Extract(GeformatteerdeOmschrijving,Positie,Positie) 
-			 	}
-				Set Positie = Positie + 1
-			}
-			Do GeformatteerdeOmschrijvingLijst.SetAt(Omschrijving, GeformatteerdeOmschrijvingLijnNr)
-			
-			Set GeformatteerdeOmschrijvingLijnNr = GeformatteerdeOmschrijvingLijnNr + 1
-		}		
-	}
-	
-	Quit GeformatteerdeOmschrijvingLijst
-]]></Implementation>
-</Method>
-
 <Method name="VerdeelHalffabDataOverLijnen">
 <FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
 <Private>1</Private>