Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r56833 -r56834
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56833)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 56834)
@@ -105,13 +105,13 @@
 <FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VermeldOmschrijving As %Boolean = VermeldOmschrijvingEnKorttekst
 	#dim VermeldKorttekst As %Boolean = VermeldOmschrijvingEnKorttekst
+	#dim VermeldOmschrijving As %Boolean = VermeldOmschrijvingEnKorttekst
 	#dim EersteLijnProduct As %Boolean = 1
-	#dim VorigOPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = ""
 
 	Set OnderdelenPickingen = ##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.
@@ -129,17 +129,10 @@
 					Set $Piece(Lijn,"\",2) = DataVoorLijn.HFV.GeefKorttekst()
 					Set VermeldKorttekst = 0
 				}
-			
-				Set VorigOPEenProduct = OPEenProduct
 			}
 		}
 		
-		// Zet een volgend deel van de halffab-omschrijving in kolom 1.
-		If ..GeWordWrapteProductOmschrijvingLijnen.HasNext() {
-			#dim ProductOmschrijving As %String = ..GeWordWrapteProductOmschrijvingLijnen.Next()
-			Set:VermeldOmschrijving $Piece(Lijn,"\",1) = ProductOmschrijving
-			Set:('..GeWordWrapteProductOmschrijvingLijnen.HasNext()) VermeldOmschrijving = 0
-		}
+		Do ..ZetVolgendDeelHalffabOmschrijving(.Lijn, .VermeldOmschrijving)
 		
 		If ..LijnHeeftAlleGegevens(Lijn) {
 			Do ..Document.VoegLijnToe(Lijn,"\")
@@ -148,6 +141,18 @@
 ]]></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,"\",1) = ProductOmschrijving
+		Set:('..GeWordWrapteProductOmschrijvingLijnen.HasNext()) VermeldOmschrijving = 0
+	}
+]]></Implementation>
+</Method>
+
 <Method name="LijnHeeftAlleGegevens">
 <FormalSpec>Lijn:%String</FormalSpec>
 <Private>1</Private>