Index: vhDeploy/Maatwerk/MVX/Deploy20221216xInkortingDwarsverdelingToevoegen.cls.xml
===================================================================
diff -u
--- vhDeploy/Maatwerk/MVX/Deploy20221216xInkortingDwarsverdelingToevoegen.cls.xml	(revision 0)
+++ vhDeploy/Maatwerk/MVX/Deploy20221216xInkortingDwarsverdelingToevoegen.cls.xml	(revision 70238)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Maatwerk.MVX.Deploy20221216xInkortingDwarsverdelingToevoegen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>MERIVOBOX Aansturing: Inkorting Dwarsverdeling Toevoegen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(vhDeploy.Maatwerk.MVX.AansturingIncrementeel).ExecCode()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/DocumentDefinitie/MVX/DwarsverdelingInkortenLijst.cls.xml
===================================================================
diff -u -r67992 -r70238
--- APPS/Halux/PPS/DocumentDefinitie/MVX/DwarsverdelingInkortenLijst.cls.xml	(.../DwarsverdelingInkortenLijst.cls.xml)	(revision 67992)
+++ APPS/Halux/PPS/DocumentDefinitie/MVX/DwarsverdelingInkortenLijst.cls.xml	(.../DwarsverdelingInkortenLijst.cls.xml)	(revision 70238)
@@ -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",14,..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: APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r66961 -r70238
--- APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 66961)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70238)
@@ -22,7 +22,7 @@
 <FormalSpec>ActiviteitGroepID:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Activiteit.Activiteit</ReturnType>
 <Implementation><![CDATA[
-	do ##class(APPS.Halux.PPS.DocumentDefinitie.MVX.DwarsverdelingInkortenLijst).%New().MaakDocument()
+	Do ##class(APPS.Halux.PPS.DocumentDefinitie.MVX.DwarsverdelingInkortenLijst).%New().MaakDocument()
 	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.DwarsverdelingInkorten = ##super(ActiviteitGroepID)
 	Quit Activiteit
 ]]></Implementation>
@@ -49,34 +49,51 @@
 		#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.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 {
-			Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem)
+			//Dwarsverdeling
+			Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem, IngegevenKenmerken)
 			Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken)
 			
-			#dim DwarsverdelingHouderItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).DwarsverdelingHouder())
-			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, DwarsverdelingHouderItem, IngegevenKenmerken)
-
+			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, DwarsverdelingHouder, 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()
+			
+			//DwarsverdelingHouder
+			Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
+			Set UitvoeringInfo = WerklijstItem.UitvoeringInfo
+			Do ..VulInDwarsverdelingHouderBasisInfo(.UitvoeringInfo, DwarsverdelingHouder, IngegevenKenmerken)
+			Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, DwarsverdelingHouder, IngegevenKenmerken)
+			
+			Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
+			Do WerklijstItem.Save()
+
+			Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
+			Do WerklijstItem.Save()
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="VulInInkortenInfo">
-<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem,DwarsverdelingItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem]]></FormalSpec>
+<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem,DwarsverdelingItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(Item.ProductID)
 	Set UitvoeringInfo.Lengte = DwarsverdelingItem.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte())
 	Set UitvoeringInfo.Nr = Item.SequentieNummer
 	Set UitvoeringInfo.ToeDos = ..GeefToeDos(Item,Product)
-	Set UitvoeringInfo.Uitvoer = "M"
+	
+	If ($$$Not(IngegevenKenmerken.IsBinnenlade) && $$$Not(IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure())) {
+		Set UitvoeringInfo.Uitvoer = "I"
+	} Else {
+		Set UitvoeringInfo.Uitvoer = "M"
+	}
 ]]></Implementation>
 </Method>
 
@@ -92,21 +109,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulInDwarsverdelingHouderBasisInfo">
+<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo,DwarsverdelingHouderItem:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set UitvoeringInfo.IsDwarsverdelingHouder = $$$True
+	Set UitvoeringInfo.DwarsverdelingKleur = IngegevenKenmerken.LadeKleur
+	Set UitvoeringInfo.DwarsverdelingProductID = DwarsverdelingHouderItem.GeefHalffab().GeefProductID()
+	Set UitvoeringInfo.DwarsverdelingKorttekst = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.DwarsverdelingProductID).GeefKorttekst()
+	Set UitvoeringInfo.AantalDwarsverdelingen = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(DwarsverdelingHouderItem)
+]]></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.MVXKenmerken]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#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("MVX_PPS_"_DwarsverdelingHouderItem.GeefRol(),AdministratiefProduct.GeefID(),"Kleur"))
-	Set UitvoeringInfo.DwarsverdelingHouder = Kleur_"/"_IngegevenKenmerken.ZijWandType
+	If (IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Boxcover()) {
+		#dim Kleur As %List = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_DwarsverdelingHouderItem.GeefRol(),AdministratiefProduct.GeefID(),"Kleur"))
+		Set UitvoeringInfo.DwarsverdelingHouder = Kleur_"/"_IngegevenKenmerken.ZijwandType
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefToeDos">
 <FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem,Product:DOM.PM.MaatwerkProduct</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.Halux.PPS.impl.DocumentService).%New().GeefToeleveringDossierCode(Item.ToeleveringID,Product.GeefDossierCode())
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.impl.DocumentService).%New().GeefToeleveringDossierCode(Item.ToeleveringID,Product.GeefDossierCode())
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/DwarsverdelingInkortenUitvoeringInfo.cls.xml
===================================================================
diff -u -r70088 -r70238
--- APPS/Halux/PPS/Activiteit/impl/common/dto/DwarsverdelingInkortenUitvoeringInfo.cls.xml	(.../DwarsverdelingInkortenUitvoeringInfo.cls.xml)	(revision 70088)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/DwarsverdelingInkortenUitvoeringInfo.cls.xml	(.../DwarsverdelingInkortenUitvoeringInfo.cls.xml)	(revision 70238)
@@ -28,7 +28,7 @@
 </Property>
 
 <Property name="DwarsverdelingKleur">
-<Type>DOM.PM.enu.LBXLadeKleur</Type>
+<Type>%String</Type>
 </Property>
 
 <Property name="DwarsverdelingKorttekst">
@@ -59,6 +59,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="IsDwarsverdelingHouder">
+<Type>%Boolean</Type>
+</Property>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*///    Outputs
@@ -114,6 +118,9 @@
 <Value name="13">
 <Value>DwarsverdelingType</Value>
 </Value>
+<Value name="14">
+<Value>IsDwarsverdelingHouder</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u -r66961 -r70238
--- APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 66961)
+++ APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml	(.../DwarsverdelingInkorten.cls.xml)	(revision 70238)
@@ -45,8 +45,10 @@
 <Implementation><![CDATA[
 	#dim List As List Of %String = ##class(%ListOfDataTypes).%New()
 	Do List.Insert("Nr")
+	Do List.Insert("DwarsverdelingHouder")
 	Do List.Insert("DwarsverdelingKleur")
 	Do List.Insert("DwarsverdelingKorttekst")
+	Do List.Insert("IsDwarsverdelingHouder")
 	Quit List
 ]]></Implementation>
 </Method>
@@ -73,10 +75,51 @@
 <FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegLegendeLijnenMetHoofdingToe(..Document.GeefAantalKolommen(), "  M = Montage           ",
-																		  "Dwv = Dwarsverdeling    ")
+	Do ..VoegLegendeLijnenMetHoofdingToe(..Document.GeefAantalKolommen(), "  I = Inpakken          ",
+																		  "  M = Montage           ",
+																		  "DWV = Dwarsverdeling    ")
 ]]></Implementation>
 </Method>
+
+<Method name="VoegProductenLijnenToe">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Nr As %Integer = 0
+	Set UitvoeringInfoIt = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	#dim VorigeUI As APPS.Halux.PPS.dto.UitvoeringInfo = ""
+	While UitvoeringInfoIt.HasNext()
+	{
+		#dim UI As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo = UitvoeringInfoIt.Next()
+		Set UI.Nr = $Increment(Nr)
+		Do:($IsObject(VorigeUI) && ..HeeftTussenlijnNodig(VorigeUI, UI)) ..VoegTussenLegeRegel()
+		If $$$Not(UI.IsDwarsverdelingHouder) {
+			Do ..VoegToeAanDocument(UI)
+		}
+		Set VorigeUI = UI
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegTotalenLijnenToe">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PickingInfo As APPS.Halux.PPS.dto.UitvoeringInfoArray = ..BerekenAantalTePickenItems(UitvoeringInfoLijst)
+	#dim i As %Integer = 1
+	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 i = $Increment(i)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml
===================================================================
diff -u -r68676 -r70238
--- vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 68676)
+++ vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 70238)
@@ -92,7 +92,8 @@
 	#dim RelingInkortenActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoormontage, "MVX.InkortenReling")
 	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoormontage, RelingInkortenActieID, "Inkorten: reling", ..#IsNietMogelijkZonderBatch)
 	
-	;Indien nodig komt hier de AansturingActie: DwarsverdelingInkorten => Do ..MaakOfVervangAansturingActie()
+	#dim DwarsverdelingInkortenActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoormontage, "MVX.DwarsverdelingInkorten")
+	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoormontage, DwarsverdelingInkortenActieID, "Inkorten: dwarsverdeling", ..#IsNietMogelijkZonderBatch)
 	
 	#dim MattenActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoormontage, "MVX.VoormontageMatten")
 	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoormontage, MattenActieID, "Mattenlijst", ..#IsNietMogelijkZonderBatch)
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/DetailBladGroepenBepaler.cls.xml
===================================================================
diff -u -r70022 -r70238
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/DetailBladGroepenBepaler.cls.xml	(.../DetailBladGroepenBepaler.cls.xml)	(revision 70022)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/DetailBladGroepenBepaler.cls.xml	(.../DetailBladGroepenBepaler.cls.xml)	(revision 70238)
@@ -21,8 +21,8 @@
 	ElseIf Rol = MvxRol.Boxcap 						{ Set GroepNaam=..GeefGroepNaamEindmontageOfOnderdelen2(ProductieRoute) }
 	ElseIf Rol = MvxRol.BoxcoverVoor 				{ Set GroepNaam=..GeefGroepNaamEindmontageOfOnderdelen2(ProductieRoute) }
 	ElseIf Rol = MvxRol.BoxcoverAchter 				{ Set GroepNaam=..GeefGroepNaamEindmontageOfOnderdelen2(ProductieRoute) }
-	ElseIf Rol = MvxRol.Dwarsverdeling 				{ Set GroepNaam=..GeefGroepNaamEindmontageOfOnderdelen2(ProductieRoute) }
-	ElseIf Rol = MvxRol.DwarsverdelingHouder 		{ Set GroepNaam=..GeefGroepNaamEindmontageOfOnderdelen2(ProductieRoute) }
+	ElseIf Rol = MvxRol.Dwarsverdeling 				{ Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Eindmontage() }
+	ElseIf Rol = MvxRol.DwarsverdelingHouder 		{ Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Eindmontage() }
 	ElseIf Rol = MvxRol.FrontBevestigingBoven 		{ Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Onderdelen2() }
 	ElseIf Rol = MvxRol.FrontBevestigingOnder 		{ Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Onderdelen2() }
 	ElseIf Rol = MvxRol.FrontBevestigingTussenstuk 	{ Set GroepNaam=##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.enu.DetailBladLayoutGroepen).Monteren() }