Index: APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r70238 -r74260
--- APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70238)
+++ APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 74260)
@@ -86,11 +86,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Nr As %Integer = 0
-	Set UitvoeringInfoIt = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	#dim UitvoeringInfoIterator As TECH.ListIterator = ..GeefUitvoeringInfoIteratorMetTotalen(UitvoeringInfoLijst)
 	#dim VorigeUI As APPS.Halux.PPS.dto.UitvoeringInfo = ""
-	While UitvoeringInfoIt.HasNext()
+	While UitvoeringInfoIterator.HasNext()
 	{
-		#dim UI As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo = UitvoeringInfoIt.Next()
+		#dim UI As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo = UitvoeringInfoIterator.Next()
 		Set UI.Nr = $Increment(Nr)
 		Do:($IsObject(VorigeUI) && ..HeeftTussenlijnNodig(VorigeUI, UI)) ..VoegTussenLegeRegel()
 		If $$$Not(UI.IsDwarsverdelingHouder) {
@@ -106,20 +106,80 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim PickingInfo As APPS.Halux.PPS.dto.UitvoeringInfoArray = ..BerekenAantalTePickenItems(UitvoeringInfoLijst)
-	#dim i As %Integer = 1
+	#dim Nr As %Integer = 0
 	Set PickingInfoIt = ##class(TECH.ListIterator).%New(PickingInfo)
 	While (PickingInfoIt.HasNext())
 	{
-		
 		#dim PI As APPS.Halux.PPS.dto.UitvoeringInfo = PickingInfoIt.Next()
-		Set PI.Nr = i
-		If (PI.IsDwarsverdelingHouder) {
-			Do ..VoegToeAanDocument(PI)
+		Set PI.Nr = $Increment(Nr)
+		Do ..VoegToeAanDocument(PI)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoeringInfoIteratorMetTotalen">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	#dim UitvoeringInfoArray As APPS.Halux.PPS.dto.UitvoeringInfoArray = ##class(APPS.Halux.PPS.dto.UitvoeringInfoArray).%New()
+	while UitvoeringInfoIterator.HasNext() {
+		Do ..VoegUitvoeringInfoToeAanArray(.UitvoeringInfoArray, UitvoeringInfoIterator.Next())
+	}
+	Quit ##class(TECH.ListIterator).%New(UitvoeringInfoArray)
+]]></Implementation>
+</Method>
+
+<Method name="VoegUitvoeringInfoToeAanArray">
+<FormalSpec><![CDATA[&PickingInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoArray,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InkortenInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo
+	
+	If (UitvoeringInfo.Uitvoer = "I") {
+		#dim UitvoeringInfoKey As %String = $Property(UitvoeringInfo, ..GeefProductIdPropertyName()) _ "-" _ UitvoeringInfo.ToeDos
+		If $$$Not(PickingInfoLijst.IsDefined(UitvoeringInfoKey)) {
+			set InkortenInfo = ..GeefKopieVanUitvoeringInfoZonderTotalen(UitvoeringInfo)
+			Do PickingInfoLijst.SetAt(InkortenInfo, UitvoeringInfoKey)
+		}  Else {
+			Set InkortenInfo = PickingInfoLijst.GetAt(UitvoeringInfoKey)
 		}
-		Set i = $Increment(i)
+		
+		Set PropertyIterator = ##class(TECH.ListIterator).%New(..GeefTotalenPropertyVelden())
+		While PropertyIterator.HasNext() {
+			#dim TotaalSpecificatie As %String = PropertyIterator.Next()
+			#dim OpTeTellenPropertyName As %String = $P(TotaalSpecificatie, "->", 1)
+			#dim SomPropertyName As %String = $P(TotaalSpecificatie, "->", 2)
+			If (SomPropertyName = "") { Set SomPropertyName = OpTeTellenPropertyName }
+			Set $Property(InkortenInfo, SomPropertyName) = $Property(InkortenInfo, SomPropertyName) + $Property(UitvoeringInfo, OpTeTellenPropertyName)
+		}
+	} Else {
+		Do PickingInfoLijst.SetAt(UitvoeringInfo, PickingInfoLijst.Count() + 1)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKopieVanUitvoeringInfoZonderTotalen">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim UitvoeringInfoKopie As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo = UitvoeringInfo.%New()
+	#dim PropertyIt = ##class(TECH.ListIterator).%New(..GeefPropertyLijst())
+	While PropertyIt.HasNext() {
+		#dim PropertyName As %String = PropertyIt.Next()
+		Set $Property(UitvoeringInfoKopie, PropertyName) = $Property(UitvoeringInfo, PropertyName)
+	}
+	
+	Set TotalenIterator = ##class(TECH.ListIterator).%New(..GeefTotalenPropertyVelden())
+	#dim TotaalSpecificatie As %String = TotalenIterator.Next()
+	#dim SomPropertyName As %String = $P(TotaalSpecificatie, "->", 2)
+	Set $Property(UitvoeringInfoKopie, SomPropertyName) = 0
+	
+	Quit UitvoeringInfoKopie
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r73467 -r74260
--- APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 73467)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 74260)
@@ -51,30 +51,29 @@
 		#dim DwarsverdelingItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Dwarsverdeling())
 		#dim DwarsverdelingHouder As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).DwarsverdelingHouder())
 		#dim IsDwarsverdelingBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(DwarsverdelingItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
-		If IsDwarsverdelingBewerkt {
-			//Dwarsverdeling
-			Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem, IngegevenKenmerken)
-			Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken)
-			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, IngegevenKenmerken)
-			
-			Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
-			Do WerklijstItem.Save()
-	
-			Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
-			Do WerklijstItem.Save()
-			
-			//DwarsverdelingHouder
-			Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
-			Set UitvoeringInfo = WerklijstItem.UitvoeringInfo
-			Do ..VulInDwarsverdelingHouderBasisInfo(.UitvoeringInfo, DwarsverdelingHouder, IngegevenKenmerken)
-			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, IngegevenKenmerken)
-			
-			Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
-			Do WerklijstItem.Save()
-
-			Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
-			Do WerklijstItem.Save()
-		}
+		
+		//Dwarsverdeling
+		Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem, IngegevenKenmerken)
+		Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken)
+		Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, IngegevenKenmerken)
+		
+		Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
+		Do WerklijstItem.Save()
+		
+		Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
+		Do WerklijstItem.Save()
+		
+		//DwarsverdelingHouder
+		Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
+		Set UitvoeringInfo = WerklijstItem.UitvoeringInfo
+		Do ..VulInDwarsverdelingHouderBasisInfo(.UitvoeringInfo, DwarsverdelingHouder, IngegevenKenmerken)
+		Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, IngegevenKenmerken)
+		
+		Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
+		Do WerklijstItem.Save()
+		
+		Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
+		Do WerklijstItem.Save()
 	}
 ]]></Implementation>
 </Method>