Index: APPS/Halux/PPS/Document/impl/LBX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r29059 -r70088
--- APPS/Halux/PPS/Document/impl/LBX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/LBX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70088)
@@ -29,7 +29,7 @@
 	#dim List As List Of %String = ##class(%ListOfDataTypes).%New()
 	Do List.Insert("Nr")
 	Do List.Insert("ToeDos")
-	Do List.Insert("DwarsverdelingHouder")
+	Do List.Insert("DwarsverdelingType")
 	Do List.Insert("DwarsverdelingKleur")
 	Do List.Insert("Lengte")
 	Do List.Insert("Uitvoer")
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/DwarsverdelingInkortenUitvoeringInfo.cls.xml
===================================================================
diff -u -r29059 -r70088
--- APPS/Halux/PPS/Activiteit/impl/common/dto/DwarsverdelingInkortenUitvoeringInfo.cls.xml	(.../DwarsverdelingInkortenUitvoeringInfo.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/DwarsverdelingInkortenUitvoeringInfo.cls.xml	(.../DwarsverdelingInkortenUitvoeringInfo.cls.xml)	(revision 70088)
@@ -43,6 +43,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="DwarsverdelingType">
+<Type>%String</Type>
+</Property>
+
 <Property name="ToeDos">
 <Type>%String</Type>
 </Property>
@@ -70,7 +74,6 @@
 <Type>%Library.CacheStorage</Type>
 <DefaultData>DwarsverdelingInkortenUitvoeringInfoDefaultData</DefaultData>
 <Data name="DwarsverdelingInkortenUitvoeringInfoDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"DwarsverdelingInkortenUitvoeringInfo"</Subscript>
 <Value name="1">
 <Value>UniqueID</Value>
@@ -108,6 +111,9 @@
 <Value name="12">
 <Value>Uitvoer</Value>
 </Value>
+<Value name="13">
+<Value>DwarsverdelingType</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/DocumentDefinitie/LBX/DwarsverdelingInkortenLijst.cls.xml
===================================================================
diff -u -r67992 -r70088
--- APPS/Halux/PPS/DocumentDefinitie/LBX/DwarsverdelingInkortenLijst.cls.xml	(.../DwarsverdelingInkortenLijst.cls.xml)	(revision 67992)
+++ APPS/Halux/PPS/DocumentDefinitie/LBX/DwarsverdelingInkortenLijst.cls.xml	(.../DwarsverdelingInkortenLijst.cls.xml)	(revision 70088)
@@ -17,7 +17,7 @@
 <Implementation><![CDATA[
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Nr",,..TekstTypeString,..TekstUitlijningLinks))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Toe:Dos",9,..TekstTypeString,..TekstUitlijningRechts))
-	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Houder",9,..TekstTypeString,..TekstUitlijningRechts))
+	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Type",18,..TekstTypeString,..TekstUitlijningRechts))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Dwv",,..TekstTypeString,..TekstUitlijningRechts))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Afm",,..TekstTypeString,..TekstUitlijningRechts))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("^",,..TekstTypeString,..TekstUitlijningRechts))
Index: vhDeploy/Deploy20221202xUpdateDocumentLBXDwarsverdelingInkorten.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20221202xUpdateDocumentLBXDwarsverdelingInkorten.cls.xml	(revision 0)
+++ vhDeploy/Deploy20221202xUpdateDocumentLBXDwarsverdelingInkorten.cls.xml	(revision 70088)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20221202xUpdateDocumentLBXDwarsverdelingInkorten">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update document LBX.DwarsverdelingInkorten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(APPS.Halux.PPS.DocumentDefinitie.LBX.DwarsverdelingInkortenLijst).%New().MaakDocument()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/LBX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r29059 -r70088
--- APPS/Halux/PPS/Activiteit/impl/LBX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70088)
@@ -45,25 +45,39 @@
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = 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.common.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.LBXRol).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, IngegevenKenmerken, HalffabItemsBoom, "Boven")
+		
+		If (IngegevenKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.LBXDwarsverdelingType).Dubbel()) {
+			Set DwarsverdelingItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).DwarsverdelingOnder())
 			
-			#dim DwarsverdelingHouderItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).DwarsverdelingHouder())
-			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, DwarsverdelingHouderItem, IngegevenKenmerken)
+			Do ..MaakEnSaveWerklijstItem(Item, DwarsverdelingItem, IngegevenKenmerken, HalffabItemsBoom, "Onder")
+		}
+	}
+]]></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,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
 	
-			// 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)
+		Do ..VulInDwarsverdelingTypeInfo(.UitvoeringInfo, IngegevenKenmerken, DwarsverdelingType)
+		
+		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>
@@ -92,13 +106,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VulInDwarsverdelingHouderInfo">
-<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo,DwarsverdelingHouderItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken]]></FormalSpec>
+<Method name="VulInDwarsverdelingTypeInfo">
+<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo,DwarsverdelingHouderItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,DwarsverdelingType:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim DwarsverdelingTypeInfo As TECH.String = ""
+	If (IngegevenKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.LBXDwarsverdelingType).Dubbel()) {
+		Set DwarsverdelingTypeInfo = DwarsverdelingType
+	}
+	
 	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(DwarsverdelingHouderItem.GeefHalffab().GeefProductID())	
-	#dim Kleur As %List = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("LBX_PPS_"_DwarsverdelingHouderItem.GeefRol(),AdministratiefProduct.GeefID(),"Kleur"))
-	Set UitvoeringInfo.DwarsverdelingHouder = Kleur_"/"_IngegevenKenmerken.ZijWandType
+	#dim Kleur As %List = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("LBX_PPS_"_DwarsverdelingHouderItem.GeefRol(),AdministratiefProduct.GeefID(),"Kleur"))
+	Set DwarsverdelingTypeInfo = DwarsverdelingTypeInfo _ "/" _ Kleur_"/"_IngegevenKenmerken.ZijWandType
+	
+	Set UitvoeringInfo.DwarsverdelingType = DwarsverdelingTypeInfo
 ]]></Implementation>
 </Method>