Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r56835 -r56837
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56835)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56837)
@@ -3,6 +3,31 @@
 <Class name="APPS.Halux.PPS.Document.impl.LBX.OnderdelenPicking">
 <Super>APPS.Halux.PPS.Document.impl.common.OnderdelenPicking</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>
+
 <Property name="GeWordWrapteProductOmschrijvingLijnen">
 <Type>TECH.ListIterator</Type>
 <Private>1</Private>
@@ -82,7 +107,7 @@
 	
 	If OnderdelenPickingen.HasNext(){
 		#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
-		If (OPVoorEenProductLijst.Count() > 0) {
+		If ..HeeftItems(OPVoorEenProductLijst) {
 			#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
 			
 			Do ..InitDocumentIndienNodig(OPEenProduct)
@@ -119,7 +144,7 @@
 		Do ..ZetVolgendDeelHalffabOmschrijving(.Lijn, .VermeldOmschrijving)
 		
 		If ..LijnHeeftAlleGegevens(Lijn) {
-			Do ..Document.VoegLijnToe(Lijn,"\")
+			Do ..Document.VoegLijnToe(Lijn,..#Delimiter)
 		}
 	}
 ]]></Implementation>
@@ -131,16 +156,16 @@
 <Implementation><![CDATA[
 	If OnderdelenPickingen.HasNext() {
 		#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
-		If OPVoorEenProductLijst.Count() > 0 {
+		If ..HeeftItems(OPVoorEenProductLijst) {
 			#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
-			Set Lijn = "\\\\"_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count()
-			If ((DataVoorLijn.HFV.GeefLengte()'= "") || VermeldKorttekst) && EersteLijnProduct {
-				Set $Piece(Lijn,"\",3) = DataVoorLijn.HFV.GeefAantal()
-				Set $Piece(Lijn,"\",4) = DataVoorLijn.HFV.GeefLengte()
+			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.
-				Set $Piece(Lijn,"\",2) = DataVoorLijn.HFV.GeefKorttekst()
+				Set $Piece(Lijn,..#Delimiter,..#PosKortTekst) = DataVoorLijn.HFV.GeefKorttekst()
 				Set VermeldKorttekst = 0
 			}
 		}
@@ -154,8 +179,8 @@
 <Implementation><![CDATA[
 	If ..GeWordWrapteProductOmschrijvingLijnen.HasNext() {
 		#dim ProductOmschrijving As %String = ..GeWordWrapteProductOmschrijvingLijnen.Next()
-		Set:VermeldOmschrijving $Piece(Lijn,"\",1) = ProductOmschrijving
-		Set:('..GeWordWrapteProductOmschrijvingLijnen.HasNext()) VermeldOmschrijving = 0
+		Set:VermeldOmschrijving $Piece(Lijn,..#Delimiter,..#PosOmschrijving) = ProductOmschrijving
+		Set:$$$Not(..GeWordWrapteProductOmschrijvingLijnen.HasNext()) VermeldOmschrijving = 0
 	}
 ]]></Implementation>
 </Method>
@@ -164,9 +189,17 @@
 <FormalSpec>Lijn:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (Lijn'="") && $$$Not(($Piece(Lijn,"\",1)="") && ($Piece(Lijn,"\",3)= "") && ($Piece(Lijn,"\",4)= ""))
+<Implementation><![CDATA[	Quit $$$HasLength(Lijn) && $$$Not(($Piece(Lijn,..#Delimiter,..#PosOmschrijving)="") && ($Piece(Lijn,..#Delimiter,..#PosAantal)= "") && ($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>