Index: APPS/Halux/PPS/Document/impl/MVX/InkortenReling.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/MVX/InkortenReling.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/MVX/InkortenReling.cls.xml	(revision 64802)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.MVX.InkortenReling">
+<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_InkortenRelingLijst"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdPropertyName">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "RelingProductID"
+]]></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("RelingKleur")
+	Do List.Insert("Lengte")
+	Do List.Insert("Uitvoer")
+	Do List.Insert("AantalRelingenTeBekomen")
+	Do List.Insert("RelingKorttekst")
+	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("RelingKleur")
+	Do List.Insert("RelingKorttekst")
+	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("AantalRelingen->AantalRelingenTeBekomen")
+	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 relingen"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenRelingLijst.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenRelingLijst.cls.xml	(revision 0)
+++ APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenRelingLijst.cls.xml	(revision 64802)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.DocumentDefinitie.MVX.InkortenRelingLijst">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.Print.DocumentDefinitieTemplate</Super>
+
+<Method name="GeefDocumentTypeID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "MVX_InkortenRelingLijst"
+]]></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("Kleur",,..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/Activiteit/impl/MVX/InkortenReling.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/InkortenReling.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/InkortenReling.cls.xml	(revision 64802)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.InkortenReling">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>MVXInkortenReling</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>MVXInkortenReling</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Merivobox reling 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.InkortenRelingLijst).%New().MaakDocument()
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.InkortenReling = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.MVX.InkortenReling).%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.RelingInkortenUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepSequentieItem">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
+	
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
+	If IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.MVXVoorwandType).Reling() {			
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.RelingInkortenUitvoeringInfo =  WerklijstItem.UitvoeringInfo
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()	
+		#dim RelingVoorItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingVoor())
+		#dim IsRelingVoorBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(RelingVoorItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+		If IsRelingVoorBewerkt {
+			#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(Item.ProductID)
+			Do ..VulInBasisInfo(UitvoeringInfo,RelingVoorItem)	
+			Do ..VulInInkortenInfo(UitvoeringInfo,Item,Product,RelingVoorItem)
+		
+			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>Info:APPS.Halux.PPS.Activiteit.impl.common.dto.RelingInkortenUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem,Product:DOM.PM.MaatwerkProduct,RelingVoorItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Implementation><![CDATA[
+	Set Info.Lengte = RelingVoorItem.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Info.Nr = Item.SequentieNummer
+	Set Info.ToeDos = ..GeefToeDos(Item,Product)
+	Set Info.Uitvoer = "V"
+]]></Implementation>
+</Method>
+
+<Method name="VulInBasisInfo">
+<FormalSpec>Info:APPS.Halux.PPS.Activiteit.impl.common.dto.RelingInkortenUitvoeringInfo,RelingVoorItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim RelingHalffab As DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabRelingVoor = RelingVoorItem.GeefHalffab()
+	#dim ProductID As %String = RelingHalffab.GeefProductID()
+	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)	
+	#dim Kleur As %List = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_RelingVoorItem.GeefRol(),AdministratiefProduct.GeefID(),"Kleur"))
+
+	#dim AantalRelingenPerProduct As %Integer = 1		
+	Set Info.AantalRelingen = (AantalRelingenPerProduct * ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(RelingVoorItem))
+	Set Info.AantalRelingenTeBekomen = (AantalRelingenPerProduct * RelingVoorItem.GeefTeBekomenAantal())
+	
+	If (Kleur '= "") {
+		Set Info.RelingKleur = Kleur
+	} Else {
+		// Voorlopig even uit halffab halen
+		Set Info.RelingKleur = RelingHalffab.LadeKleur
+	}
+	
+	Set Info.RelingKorttekst = AdministratiefProduct.GeefKorttekst()
+	Set Info.RelingVerpakking = ##class(DOM.PM.enu.Verpakking).V1()
+	Set Info.RelingProductID = RelingVoorItem.GeefHalffab().GeefProductID()
+]]></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: vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml
===================================================================
diff -u -r64801 -r64802
--- vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 64801)
+++ vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 64802)
@@ -82,7 +82,8 @@
 	#dim InkortenVoorstukActiviteitID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoormontage, "MVX.InkortenVoorstuk")
 	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoormontage, InkortenVoorstukActiviteitID, "Inkorten: voorstuk", ..#IsNietMogelijkZonderBatch)
 	
-	;Indien nodig komt hier de AansturingActie: RelingInkorten => Do ..MaakOfVervangAansturingActie()
+	//#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()