Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r56834 -r56835
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56834)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56835)
@@ -109,28 +109,12 @@
 	#dim VermeldOmschrijving As %Boolean = VermeldOmschrijvingEnKorttekst
 	#dim EersteLijnProduct As %Boolean = 1
 
-	Set OnderdelenPickingen = ##class(TECH.ListIterator).%New(DataVoorLijn.PickingsPerMaatwerkProductID)
+	#dim OnderdelenPickingen As TECH.ListIterator = ##class(TECH.ListIterator).%New(DataVoorLijn.PickingsPerMaatwerkProductID)
 	While OnderdelenPickingen.HasNext() || ..GeWordWrapteProductOmschrijvingLijnen.HasNext() {
 		
 		#dim Lijn As %String = ""
 		
-		// Zet een volgend aantal en eventueel lengte in bepaalde kolommen.
-		If OnderdelenPickingen.HasNext() {
-			#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
-			If OPVoorEenProductLijst.Count() > 0 {
-				#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 EersteLijnProduct = 0
-				}
-				If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst.
-					Set $Piece(Lijn,"\",2) = DataVoorLijn.HFV.GeefKorttekst()
-					Set VermeldKorttekst = 0
-				}
-			}
-		}
+		Do ..ZetVolgendaantalEnLengte(.Lijn, DataVoorLijn, OnderdelenPickingen, .EersteLijnProduct, .VermeldKorttekst)
 		
 		Do ..ZetVolgendDeelHalffabOmschrijving(.Lijn, .VermeldOmschrijving)
 		
@@ -141,6 +125,29 @@
 ]]></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 OPVoorEenProductLijst.Count() > 0 {
+			#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 EersteLijnProduct = 0
+			}
+			If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst.
+				Set $Piece(Lijn,"\",2) = DataVoorLijn.HFV.GeefKorttekst()
+				Set VermeldKorttekst = 0
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetVolgendDeelHalffabOmschrijving">
 <FormalSpec><![CDATA[&Lijn:%String,&VermeldOmschrijving:%Boolean]]></FormalSpec>
 <Private>1</Private>