Index: APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/DwarsverdelingInkorten.cls.xml	(revision 66961)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.DwarsverdelingInkorten">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>MVXDwarsverdelingInkorten</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>MVXDwarsverdelingInkorten</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Merivobox Dwarsverdeling inkorten</Default>
+</Parameter>
+
+<Method name="MaakActiviteit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActiviteitGroepID:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Activiteit.Activiteit</ReturnType>
+<Implementation><![CDATA[
+	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>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.MVX.DwarsverdelingInkorten).%ClassName($$$True), ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepSequentieItem">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = 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.MVXRol).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)
+			
+			#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)
+
+			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>
+
+<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>
+<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"
+]]></Implementation>
+</Method>
+
+<Method name="VulInDwarsverdelingInfo">
+<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo,DwarsverdelingItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set UitvoeringInfo.DwarsverdelingKleur = IngegevenKenmerken.LadeKleur
+	Set UitvoeringInfo.DwarsverdelingProductID = DwarsverdelingItem.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(DwarsverdelingItem) ;*DwarsverdelingItem.Aantal
+	Set UitvoeringInfo.AantalDwarsverdelingenTeBekomen = DwarsverdelingItem.GeefTeBekomenAantal()
+]]></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
+]]></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>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/DocumentDefinitie/MVX/DwarsverdelingInkortenLijst.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/DocumentDefinitie/MVX/DwarsverdelingInkortenLijst.cls.xml	(revision 0)
+++ APPS/Halux/PPS/DocumentDefinitie/MVX/DwarsverdelingInkortenLijst.cls.xml	(revision 66961)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.DocumentDefinitie.MVX.DwarsverdelingInkortenLijst">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.Print.DocumentDefinitieTemplate</Super>
+
+<Method name="GeefDocumentTypeID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "MVX_DwarsverdelingInkortenLijst"
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerKolomDefinities">
+<Private>1</Private>
+<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",,..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("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))
+	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("# ",,..TekstTypeString,..TekstUitlijningRechts))
+	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Product",25,..TekstTypeString,..TekstUitlijningRechts))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/MVX/DwarsverdelingInkorten.cls.xml	(revision 66961)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.MVX.DwarsverdelingInkorten">
+<Super>APPS.Halux.PPS.Document.impl.DocumentCreatorMetPickingEnInkorten</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..InformatieID = "MVX_DwarsverdelingInkortenLijst"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdPropertyName">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "DwarsverdelingProductID"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPropertyLijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim List As List Of %String = ##class(%ListOfDataTypes).%New()
+	Do List.Insert("Nr")
+	Do List.Insert("ToeDos")
+	Do List.Insert("DwarsverdelingHouder")
+	Do List.Insert("DwarsverdelingKleur")
+	Do List.Insert("Lengte")
+	Do List.Insert("Uitvoer")
+	Do List.Insert("AantalDwarsverdelingenTeBekomen")
+	Do List.Insert("DwarsverdelingKorttekst")
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="GeefWeerTeGevenPropertyWaardenBijTotalen">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim List As List Of %String = ##class(%ListOfDataTypes).%New()
+	Do List.Insert("Nr")
+	Do List.Insert("DwarsverdelingKleur")
+	Do List.Insert("DwarsverdelingKorttekst")
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotalenPropertyVelden">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim List As List Of %String = ##class(%ListOfDataTypes).%New()
+	Do List.Insert("AantalDwarsverdelingen->AantalDwarsverdelingenTeBekomen")
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoofdingTekst">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "MVX inkortlijst dwarsverdelingen"
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeFooter">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegLegendeLijnenMetHoofdingToe(..Document.GeefAantalKolommen(), "  M = Montage           ",
+																		  "Dwv = Dwarsverdeling    ")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>