Index: APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r60792 -r66165
--- APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60792)
+++ APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 66165)
@@ -3,6 +3,41 @@
 <Class name="APPS.Halux.PPS.Document.impl.TAX.OnderdelenPicking">
 <Super>APPS.Halux.PPS.Document.impl.common.OnderdelenPicking,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Parameter name="PosOmschrijving">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="PosKortTekst">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="PosAantal">
+<Type>%Integer</Type>
+<Default>3</Default>
+</Parameter>
+
+<Parameter name="PosLengte">
+<Type>%Integer</Type>
+<Default>4</Default>
+</Parameter>
+
+<Parameter name="Delimiter">
+<Type>%String</Type>
+<Default>\</Default>
+</Parameter>
+
+<Parameter name="Bold">
+<Type>%String</Type>
+<Default>ªB</Default>
+</Parameter>
+
+<Parameter name="UnBold">
+<Type>%String</Type>
+<Default>ªb</Default>
+</Parameter>
+
 <Parameter name="DocumentTitel">
 <Type>%String</Type>
 <Default>TAX pickinglijst losse onderdelen</Default>
@@ -28,6 +63,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GeWordWrapteProductOmschrijvingLijnen">
+<Type>TECH.ListIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OmschrijvingFormatter">
+<Type>APPS.Halux.PPS.Document.impl.TAX.OnderdelenPicking.OmschrijvingFormatter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>HalffabItemNaarKnoopVisitor:APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor=""</FormalSpec>
 <Private>1</Private>
@@ -38,6 +83,7 @@
 	Do ##super(HalffabItemNaarKnoopVisitor)
 	Set ..AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Set ..VerpakkingFormatter = ##class(APPS.Halux.PPS.impl.TAXVerpakkingFormatter).%New()
+	Set ..OmschrijvingFormatter = ##class(APPS.Halux.PPS.Document.impl.TAX.OnderdelenPicking.OmschrijvingFormatter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -119,6 +165,128 @@
 <Implementation><![CDATA[	quit ..#DocumentTitel _ " " _ ..VerpakkingFormatter.Formatteer(Verpakking)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeItem">
+<FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OnderdelenPickingen As TECH.Iterator = ##class(TECH.ListIterator).%New(DataVoorLijn.PickingsPerMaatwerkProductID)
+	
+	If OnderdelenPickingen.HasNext(){
+		#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
+		If ..HeeftItems(OPVoorEenProductLijst) {
+			#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
+			
+			Do ..InitDocumentIndienNodig(OPEenProduct)
+					
+			#dim EersteKolomBreedte As %Integer = ..Document.DocumentType.GeefKolomDefinitie(1).Breedte
+			#dim Omschrijving = DataVoorLijn.HFV.GeefOmschrijving()
+			#dim OmschrijvingWordWrappedLijst As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Omschrijving, EersteKolomBreedte)
+			
+			If ((DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()) && (##class(TECH.StringUtils).Contains(DataVoorLijn.HFV.GeefOmschrijving(), "60kg"))) {
+				Set OmschrijvingWordWrappedLijst = ..OmschrijvingFormatter.GeefGeformatteerdeOmschrijving(OmschrijvingWordWrappedLijst)
+			}
+			
+			Set ..GeWordWrapteProductOmschrijvingLijnen = ##class(TECH.ListIterator).%New(OmschrijvingWordWrappedLijst)
+			
+			Set OPEenProductIt = ##class(TECH.ListIterator).%New(OPVoorEenProductLijst)
+			While OPEenProductIt.HasNext() {
+				Do ..ProcessToegevoegdItem(OPEenProductIt.Next())
+			}
+		}
+	}
+	
+	Do ..VerdeelHalffabDataOverLijnen(DataVoorLijn, VermeldOmschrijvingEnKorttekst)
+]]></Implementation>
+</Method>
+
+<Method name="VerdeelHalffabDataOverLijnen">
+<FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VermeldKorttekst As %Boolean = VermeldOmschrijvingEnKorttekst
+	#dim VermeldOmschrijving As %Boolean = VermeldOmschrijvingEnKorttekst
+	#dim EersteLijnProduct As %Boolean = 1
+
+	#dim OnderdelenPickingen As TECH.ListIterator = ##class(TECH.ListIterator).%New(DataVoorLijn.PickingsPerMaatwerkProductID)
+	While OnderdelenPickingen.HasNext() || ..GeWordWrapteProductOmschrijvingLijnen.HasNext() {
+		
+		#dim Lijn As %String = ""
+		
+		Do ..ZetVolgendaantalEnLengte(.Lijn, DataVoorLijn, OnderdelenPickingen, .EersteLijnProduct, .VermeldKorttekst)
+		
+		Do ..ZetVolgendDeelHalffabOmschrijving(.Lijn, .VermeldOmschrijving)
+		
+		If ..LijnHeeftAlleGegevens(Lijn) {
+			Do ..Document.VoegLijnToe(Lijn,..#Delimiter)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetVolgendaantalEnLengte">
+<FormalSpec><![CDATA[&Lijn:%String,DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OnderdelenPickingen:TECH.ListIterator,&EersteLijnProduct:%Boolean,&VermeldKorttekst:%Boolean]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If OnderdelenPickingen.HasNext() {
+		#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
+		If ..HeeftItems(OPVoorEenProductLijst) {
+			#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
+			Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,4)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count()
+			If ($$$HasLength(DataVoorLijn.HFV.GeefLengte()) || VermeldKorttekst) && EersteLijnProduct {
+				Set $Piece(Lijn,..#Delimiter,..#PosAantal) = DataVoorLijn.HFV.GeefAantal()
+				Set $Piece(Lijn,..#Delimiter,..#PosLengte) = DataVoorLijn.HFV.GeefLengte()
+				Set EersteLijnProduct = 0
+			}
+			If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst.
+				Do ..FormatKorttekst(.Lijn, DataVoorLijn)
+				Set VermeldKorttekst = 0
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="FormatKorttekst">
+<FormalSpec><![CDATA[&Lijn:%String,DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Korttekst As %String = DataVoorLijn.HFV.GeefKorttekst()
+	If ((DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()) && (##class(TECH.StringUtils).Contains(DataVoorLijn.HFV.GeefOmschrijving(), "60kg"))) {
+		Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = ..#Bold _$Extract(Korttekst,1,3) _ ..#UnBold _  $Extract(Korttekst,4,*)
+	} Else {
+		Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = Korttekst
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetVolgendDeelHalffabOmschrijving">
+<FormalSpec><![CDATA[&Lijn:%String,&VermeldOmschrijving:%Boolean]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..GeWordWrapteProductOmschrijvingLijnen.HasNext() {
+		#dim ProductOmschrijving As %String = ..GeWordWrapteProductOmschrijvingLijnen.Next()
+		Set:VermeldOmschrijving $Piece(Lijn,..#Delimiter,..#PosOmschrijving) = ProductOmschrijving
+		Set:$$$Not(..GeWordWrapteProductOmschrijvingLijnen.HasNext()) VermeldOmschrijving = 0
+	}
+]]></Implementation>
+</Method>
+
+<Method name="LijnHeeftAlleGegevens">
+<FormalSpec>Lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$HasLength(Lijn) && ($$$HasLength($Piece(Lijn,..#Delimiter,..#PosOmschrijving)) || $$$HasLength($Piece(Lijn,..#Delimiter,..#PosAantal)) || $$$HasLength($Piece(Lijn,..#Delimiter,..#PosLengte)))
+]]></Implementation>
+</Method>
+
+<Method name="HeeftItems">
+<FormalSpec>Lijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Lijst.Count() > 0)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking/OmschrijvingFormatter.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking/OmschrijvingFormatter.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking/OmschrijvingFormatter.cls.xml	(revision 66165)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.TAX.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</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim GeformatteerdeOmschrijvingLijst As %ListOfDataTypes = OmschrijvingWordWrappedLijst
+
+	#dim ReplaceKomma As TECH.MultiDim
+	Set ReplaceKomma(3) = "," _ ..#Bold
+	Set ReplaceKomma(4) = ..#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>