Index: APPS/Halux/PPS/Activiteit/impl/LBX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r70088 -r70093
--- APPS/Halux/PPS/Activiteit/impl/LBX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70088)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70093)
@@ -47,20 +47,21 @@
 	If IngegevenKenmerken.AantalDwarsverdelingen > 0 {
 		#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.LBXRol).Dwarsverdeling())
+		#dim DwarsverdelingHouderItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).DwarsverdelingHouder())
 		
-		Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem, IngegevenKenmerken, HalffabItemsBoom, "Boven")
+		Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem, IngegevenKenmerken, HalffabItemsBoom, DwarsverdelingHouderItem, "Boven")
 		
 		If (IngegevenKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.LBXDwarsverdelingType).Dubbel()) {
 			Set DwarsverdelingItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).DwarsverdelingOnder())
 			
-			Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem, IngegevenKenmerken, HalffabItemsBoom, "Onder")
+			Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem, IngegevenKenmerken, HalffabItemsBoom, DwarsverdelingHouderItem, "Onder")
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <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,DwarsverdelingType:%String</FormalSpec>
+<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,DwarsverdelingHouderItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,DwarsverdelingType:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo = WerklijstItem.UitvoeringInfo
@@ -70,7 +71,7 @@
 	If IsDwarsverdelingBewerkt {
 		Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem)
 		Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken)
-		Do ..VulInDwarsverdelingTypeInfo(.UitvoeringInfo, IngegevenKenmerken, DwarsverdelingType)
+		Do ..VulInDwarsverdelingTypeInfo(.UitvoeringInfo, DwarsverdelingHouderItem, IngegevenKenmerken, DwarsverdelingType)
 		
 		Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
 		Do WerklijstItem.Save()