Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r56936 -r56959
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56936)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56959)
@@ -28,6 +28,16 @@
 <Default>\</Default>
 </Parameter>
 
+<Parameter name="Bold">
+<Type>%String</Type>
+<Default>ªB</Default>
+</Parameter>
+
+<Parameter name="UnBold">
+<Type>%String</Type>
+<Default>ªb</Default>
+</Parameter>
+
 <Property name="GeWordWrapteProductOmschrijvingLijnen">
 <Type>TECH.ListIterator</Type>
 <Private>1</Private>
@@ -113,8 +123,12 @@
 			Do ..InitDocumentIndienNodig(OPEenProduct)
 					
 			#dim EersteKolomBreedte As %Integer = ..Document.DocumentType.GeefKolomDefinitie(1).Breedte
-			Set ..GeWordWrapteProductOmschrijvingLijnen = ##class(TECH.ListIterator).%New(##class(TECH.StringUtils).WordWrap(DataVoorLijn.HFV.GeefOmschrijving(),EersteKolomBreedte))
+			#dim Omschrijving = DataVoorLijn.HFV.GeefOmschrijving()
+			#dim OmschrijvingWordWrappedLijst As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Omschrijving, EersteKolomBreedte)
 			
+			#dim GeformatteerdeOmschrijvingLijst As %ListOfDataTypes = ..GeefGeformatteerdeOmschrijving(OmschrijvingWordWrappedLijst, DataVoorLijn, EersteKolomBreedte)
+			Set ..GeWordWrapteProductOmschrijvingLijnen = ##class(TECH.ListIterator).%New(GeformatteerdeOmschrijvingLijst)
+			
 			Set OPEenProductIt = ##class(TECH.ListIterator).%New(OPVoorEenProductLijst)
 			While OPEenProductIt.HasNext() {
 				Do ..ProcessToegevoegdItem(OPEenProductIt.Next())
@@ -126,6 +140,54 @@
 ]]></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>
@@ -177,14 +239,11 @@
 <Method name="FormatKorttekst">
 <FormalSpec><![CDATA[&Lijn:%String,DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop]]></FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Korttekst As %String = DataVoorLijn.HFV.GeefKorttekst()
-	#dim Bold As %String = "ªB"
-	#dim UnBold As %String = "ªb"
 	
 	If (DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging()) {
-		Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = $Extract(Korttekst,1,3) _Bold _$Extract(Korttekst,4,4) _UnBold _$Extract(Korttekst,5,*)
+		Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = $Extract(Korttekst,1,3) _..#Bold _$Extract(Korttekst,4,4) _..#UnBold _$Extract(Korttekst,5,*)
 	} else {
 		Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = Korttekst
 	}
Index: PROC.mac.rou
===================================================================
diff -u -r56936 -r56959
--- PROC.mac.rou	(.../PROC.mac.rou)	(revision 56936)
+++ PROC.mac.rou	(.../PROC.mac.rou)	(revision 56959)
@@ -67,7 +67,7 @@
  ;
  ; Format line
 FL 
- NEW OX,RmetTAGS
+ NEW OX,RZonderTAGS
  SET (FormattedLine,FieldNbr)="" IF '$DATA(FL(2)) SET FL(2)=""
  IF FL(2) SET FP=FL(2) WRITE @F
  If $PIECE(FL(1),"\")?1.2N New D SET D=$CHAR($PIECE(FL(1),"\")),FieldNbr=1
@@ -79,10 +79,12 @@
  ELSE  IF $PIECE(FieldParameters,U,1)?1.E1"."1.N SET R=$PIECE(FL(3,$PIECE($PIECE(FieldParameters,U,1),".",1)),D,$PIECE($PIECE(FieldParameters,U,1),".",2))
  ELSE  XECUTE "S R="_$PIECE(FieldParameters,U,1)
  IF $PIECE(FieldParameters,U,8)'="" SET OX=$GET(X),X=R XECUTE "S R="_$PIECE(FieldParameters,U,8) SET X=OX
- IF ((R["�B")||(R["�b")) Set RmetTAGS=R,R=$Replace(R,"�B",""),R=$Replace(R,"�b","")
- ELSE  SET RmetTAGS=""
+ IF (((R["�B")||(R["�b")) && FieldLength) {
+	 Set RZonderTAGS=R,RZonderTAGS=$Replace(RZonderTAGS,"�B",""),RZonderTAGS=$Replace(RZonderTAGS,"�b","")
+	 Set FieldLength = FieldLength + ($Length(R) - $Length(RZonderTAGS))
+ }
 FL2 
- GOTO FL3:$PIECE(FieldParameters,U,2)'["N" SET FN(1)=R,FN(2)=FieldLength,FN(3)=$PIECE(FieldParameters,U,5),FN(4)=$PIECE(FieldParameters,U,2) ;verwerking numerieke data
+ GOTO FL3:$PIECE(FieldParameters,U,2)'["N" SET FN(1)=R,FN(2)=$PIECE(FieldParameters,U,4),FN(3)=$PIECE(FieldParameters,U,5),FN(4)=$PIECE(FieldParameters,U,2) ;verwerking numerieke data
  DO FN
 FL3 
  If "\DN\DC\MN\MC\DM\DW\W\J\DKP\DK\DL\"[("\"_$PIECE(FieldParameters,U,2)_"\") SET R=$$EXTDATE^vhLib.DataTypes(R,$PIECE(FieldParameters,U,2))
@@ -100,26 +102,22 @@
  ELSE  XECUTE "S FLb="_$PIECE(FieldParameters,U,7)
  IF '$GET(FL(4)),FLb WRITE @FMTB,$$FLATASCI(R),@FMTb,$PIECE(FieldParameters,U,6) GOTO FL6
 FL5 
- If (RmetTAGS="") {
-	 WRITE $$FLATASCI(R),$PIECE(FieldParameters,U,6)
- } ELSE {
-	 Set Positie = 1
-	 Set Tekst = ""
-	 While Positie <= $Length(RmetTAGS)
-	 {
-		 If ($Extract(RmetTAGS,Positie,Positie+1) = "�B") {
-			 WRITE @FMTB
-			 Set Positie = Positie + 2
-		 } ElseIf ($Extract(RmetTAGS,Positie,Positie+1) = "�b") {
-			 WRITE @FMTb
-			 Set Positie = Positie + 2
-		 } Else {
-			 WRITE $Extract(RmetTAGS,Positie,Positie)
-			 Set Positie = Positie + 1
-		 }
+ Set Positie = 1
+ Set Tekst = ""
+ While Positie <= $Length(R)
+ {
+	 If ($Extract(R,Positie,Positie+1) = "�B") {
+		 WRITE @FMTB
+		 Set Positie = Positie + 2
+	 } ElseIf ($Extract(R,Positie,Positie+1) = "�b") {
+		 WRITE @FMTb
+		 Set Positie = Positie + 2
+	 } Else {
+		 WRITE $Extract(R,Positie,Positie)
+		 Set Positie = Positie + 1
 	 }
-	 WRITE $PIECE(FieldParameters,U,6)
  }
+ WRITE $PIECE(FieldParameters,U,6)
 FL6 
  SET FormattedLine=FormattedLine_R_$PIECE(FieldParameters,U,6) 
  GOTO FL1 ;concatinering