Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r60702 -r60739
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60702)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60739)
@@ -210,29 +210,27 @@
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim SamengesteldeLijst As %ListOfObjects = ##class(%ListOfObjects).%New("")
-	#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	Set SamengesteldeLijst = ##class(%ListOfObjects).%New()
+	#dim SamengesteldeLijstIterator AS TECH.Iterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	#dim Product, OorspronkelijkProduct As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop
+	#dim SequentieNummerProduct, SequentieNummerOorspronkelijkProduct As %Integer
 	
 	While GesorteerdeUitvoeringInfoIt.HasNext()	{
-		#dim OorspronkelijkProduct As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIt.Next()
+		Set OorspronkelijkProduct = GesorteerdeUitvoeringInfoIt.Next()
 		#dim OvereenkomstigProductGevonden As %Boolean = $$$False
 		While SamengesteldeLijstIterator.HasNext() && $$$Not(OvereenkomstigProductGevonden) {
-			#dim Product = SamengesteldeLijstIterator.Next()
-			If ((..IsTAXGeleider(Product.HFV.GeefKorttekst())) && (Product.HFV.GeefKorttekst() = OorspronkelijkProduct.HFV.GeefKorttekst()) && (Product.HFV.GeefLengte() = OorspronkelijkProduct.HFV.GeefLengte())) {
+			Set Product = SamengesteldeLijstIterator.Next()
+			If ((..IsTAXGeleider(Product)) && (..IsKorttekstIdentiek(Product, OorspronkelijkProduct)) && ..IsLengteIdentiek(Product, OorspronkelijkProduct)) {
 				Set OvereenkomstigProductGevonden = $$$True
-				Set Product.HFV.Aantal= Product.HFV.Aantal+OorspronkelijkProduct.HFV.Aantal
+				Set Product.HFV.Aantal = Product.HFV.Aantal + OorspronkelijkProduct.HFV.Aantal
 				If $length(Product.HFV.Omschrijving) > $length(OorspronkelijkProduct.HFV.Omschrijving) {
 					Set Product.HFV.Omschrijving = OorspronkelijkProduct.HFV.Omschrijving
 				}
 				
-				#dim OnderdelenPickingenOorspronkelijkProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OorspronkelijkProduct.PickingsPerMaatwerkProductID)
-				#dim OnderdelenPickingenProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Product.PickingsPerMaatwerkProductID)
-				#dim SequentieNummerOorspronkelijkProduct As %Integer = ..GeefSequentieNummer(OnderdelenPickingenOorspronkelijkProductIterator)
-				#dim SequentieNummerProduct As %Integer = ..GeefSequentieNummer(OnderdelenPickingenProductIterator)
+				Set SequentieNummerOorspronkelijkProduct = ..GeefSequentieNummer(OorspronkelijkProduct)
+				Set SequentieNummerProduct = ..GeefSequentieNummer(Product)
 				
-				If ((($$$HasLength(SequentieNummerOorspronkelijkProduct)) && ($$$HasLength(SequentieNummerProduct))) && (SequentieNummerProduct = SequentieNummerOorspronkelijkProduct)) { 		//Hoogste sequentienummer behouden zodat aantal vakken nog klopt in de TAORkarren
-					Do ..ZetSequentienummer(OnderdelenPickingenProductIterator, SequentieNummerOorspronkelijkProduct)
-				}
+				Do ..ZetHoogsteSequentienummerIndienNodig(Product,SequentieNummerProduct, SequentieNummerOorspronkelijkProduct)
 			}		
 		}
 		If (SamengesteldeLijst.Count() = 0 || $$$Not(OvereenkomstigProductGevonden)){
@@ -252,18 +250,36 @@
 </Method>
 
 <Method name="IsTAXGeleider">
-<FormalSpec>Korttekst:%String</FormalSpec>
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Quit ((##class(TECH.StringUtils).StartsWith(Korttekst, "760")) || (##class(TECH.StringUtils).StartsWith(Korttekst, "766")))
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((##class(TECH.StringUtils).StartsWith(Product.HFV.GeefKorttekst(), "760")) || (##class(TECH.StringUtils).StartsWith(Product.HFV.GeefKorttekst(), "766")))
 ]]></Implementation>
 </Method>
 
+<Method name="IsKorttekstIdentiek">
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OorspronkelijkProduct:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Product.HFV.GeefKorttekst() = OorspronkelijkProduct.HFV.GeefKorttekst())
+]]></Implementation>
+</Method>
+
+<Method name="IsLengteIdentiek">
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OorspronkelijkProduct:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Product.HFV.GeefLengte() = OorspronkelijkProduct.HFV.GeefLengte())
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieNummer">
-<FormalSpec>OnderdelenPickingenProductIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim SequentieNummer As %Integer = ""
+	#dim SequentieNummer As %Integer = 0
+	#dim OnderdelenPickingenProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Product.PickingsPerMaatwerkProductID)
 	
 	If OnderdelenPickingenProductIterator.HasNext(){
 		#dim OnderdelenPickingUitvoeringInfoLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingenProductIterator.Next()
@@ -277,18 +293,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetSequentienummer">
-<FormalSpec>OnderdelenPickingenProductIterator:TECH.Iterator,Sequentienummer:%Integer</FormalSpec>
+<Method name="ZetHoogsteSequentienummerIndienNodig">
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,SequentieNummerProduct:%Integer,SequentieNummerOorspronkelijkProduct:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
- 	 If OnderdelenPickingenProductIterator.HasNext(){
- 	 	#dim OnderdelenPickingUitvoeringInfoLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingenProductIterator.Next()
- 	 	
- 	 	If OnderdelenPickingUitvoeringInfoLijst.Count() > 0 {
- 	    	#dim OPProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OnderdelenPickingUitvoeringInfoLijst.GetAt(1)
- 	        Set OPProduct.SequentieNummer = Sequentienummer
- 	 	}
- 	 }
+	If (SequentieNummerProduct < SequentieNummerOorspronkelijkProduct) {
+		#dim OnderdelenPickingenProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Product.PickingsPerMaatwerkProductID)
+	 	 If OnderdelenPickingenProductIterator.HasNext(){
+	 	 	#dim OnderdelenPickingUitvoeringInfoLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingenProductIterator.Next()
+	 	 	
+	 	 	If OnderdelenPickingUitvoeringInfoLijst.Count() > 0 {
+	 	    	#dim OPProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OnderdelenPickingUitvoeringInfoLijst.GetAt(1)
+	 	        Set OPProduct.SequentieNummer = SequentieNummerOorspronkelijkProduct
+	 	 	}
+	 	 }
+	}
 ]]></Implementation>
 </Method>