Index: APPS/Halux/PPS/Activiteit/impl/TAX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r68762 -r69970
--- APPS/Halux/PPS/Activiteit/impl/TAX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 68762)
+++ APPS/Halux/PPS/Activiteit/impl/TAX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 69970)
@@ -45,25 +45,41 @@
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = Item.GeefIngegevenKenmerken()
 	If IngegevenKenmerken.AantalDwarsverdelingen > 0 {
-		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
-		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.DwarsverdelingInkortenUitvoeringInfo = WerklijstItem.UitvoeringInfo
 		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
 		#dim DwarsverdelingItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Dwarsverdeling())
-		#dim IsDwarsverdelingBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(DwarsverdelingItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
-		If IsDwarsverdelingBewerkt {
-			Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem)
-			Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken)
+		
+		Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem)
+		
+		If (IngegevenKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.TAORDwarsverdelingType).Dubbel()) {
+			Set DwarsverdelingItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DwarsverdelingOnder())
 			
-			#dim DwarsverdelingHouderItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DwarsverdelingHouder())
-			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, DwarsverdelingHouderItem, IngegevenKenmerken)
+			Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem)
+		}
+	}
+]]></Implementation>
+</Method>
 
-			Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
-			Do WerklijstItem.Save()
+<Method name="MaakEnSaveWerklijstItem">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem,DwarsverdelingItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Implementation><![CDATA[
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.DwarsverdelingInkortenUitvoeringInfo = WerklijstItem.UitvoeringInfo
 	
-			// We gebruiken de ID van het werklijstitem als unique id
-			Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
-			Do WerklijstItem.Save()
-		}
+	#dim IsDwarsverdelingBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(DwarsverdelingItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	
+	If IsDwarsverdelingBewerkt {
+		Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem)
+		Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken)
+		
+		#dim DwarsverdelingHouderItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DwarsverdelingHouder())
+		Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, DwarsverdelingHouderItem, IngegevenKenmerken)
+		
+		Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
+		Do WerklijstItem.Save()
+		
+		// We gebruiken de ID van het werklijstitem als unique id
+		Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
+		Do WerklijstItem.Save()
 	}
 ]]></Implementation>
 </Method>