Index: vhDeploy/Maatwerk/MVX/MaakAansturingActieInkortenVoorstuk.cls.xml
===================================================================
diff -u
--- vhDeploy/Maatwerk/MVX/MaakAansturingActieInkortenVoorstuk.cls.xml	(revision 0)
+++ vhDeploy/Maatwerk/MVX/MaakAansturingActieInkortenVoorstuk.cls.xml	(revision 62539)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Maatwerk.MVX.MaakAansturingActieInkortenVoorstuk">
+<Super>vhDeploy.Maatwerk.Aansturing</Super>
+
+<Method name="VoegToeAansturingsActie">
+<Description>
+Oproepen vanuit een 'echte' deploy-klasse  OF  via telnet-command :
+   Do ##class(vhDeploy.Maatwerk.MVX.MaakAansturingActieInkortenVoorstuk).VoegToeAansturingsActie() </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()
+	#dim Aansturing As vhDeploy.Maatwerk.MVX.MaakAansturingActieInkortenVoorstuk = ..%New()
+	
+	Do Aansturing.MaakAansturingsActie(Categorie)
+	
+	do ##class(APPS.Halux.PPS.impl.AansturingActie).%PurgeIndices()
+	do ##class(APPS.Halux.PPS.impl.AansturingActie).%BuildIndices()
+]]></Implementation>
+</Method>
+
+<Method name="MaakAansturingsActie">
+<FormalSpec>Categorie:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ActiviteitGroepProductie As %String = ..MaakOfVervangActiviteitGroep(Categorie, "MVX.Groep.MVXVoormontage")
+	#dim ActiviteitID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepProductie, "MVX.InkortenVoorstuk")
+	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepProductie, ActiviteitID, "Inkorten: voorstuk", $$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/MVX/InkortenVoorstuk.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/MVX/InkortenVoorstuk.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/MVX/InkortenVoorstuk.cls.xml	(revision 62539)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.MVX.InkortenVoorstuk">
+<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_InkortenVoorstukLijst"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdPropertyName">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "VoorstukProductID"
+]]></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("VoorstukKleur")
+	Do List.Insert("Groef")
+	Do List.Insert("Lengte")
+	Do List.Insert("Uitvoer")
+	Do List.Insert("AantalVoorstukkenTeBekomen")
+	Do List.Insert("VoorstukKorttekst")
+	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("VoorstukKleur")
+	Do List.Insert("Groef")
+	Do List.Insert("VoorstukKorttekst")
+	Do List.Insert("VoorstukProductID")
+	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("AantalVoorstukken->AantalVoorstukkenTeBekomen")
+	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 voorstukken"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenVoorstukLijst.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenVoorstukLijst.cls.xml	(revision 0)
+++ APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenVoorstukLijst.cls.xml	(revision 62539)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.DocumentDefinitie.MVX.InkortenVoorstukLijst">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.Print.DocumentDefinitieTemplate</Super>
+
+<Method name="GeefDocumentTypeID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "MVX_InkortenVoorstukLijst"
+]]></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("Groef",,..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: vhDeploy/D20201008xMaakAansturingsActieMVXInkortenVoorstuk.cls.xml
===================================================================
diff -u
--- vhDeploy/D20201008xMaakAansturingsActieMVXInkortenVoorstuk.cls.xml	(revision 0)
+++ vhDeploy/D20201008xMaakAansturingsActieMVXInkortenVoorstuk.cls.xml	(revision 62539)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20201008xMaakAansturingsActieMVXInkortenVoorstuk">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Maak aansturingsactie Inkorten: voorstuk voor MVX</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(vhDeploy.Maatwerk.MVX.MaakAansturingActieInkortenVoorstuk).VoegToeAansturingsActie()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/MVX/InkortenVoorstuk.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/InkortenVoorstuk.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/InkortenVoorstuk.cls.xml	(revision 62539)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.InkortenVoorstuk">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit,DOM.PM.Maatwerk.MVX.impl.Base</Super>
+
+<Parameter name="InformatieID">
+<Default>MVXInkortenVoorstuk</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>MVXInkortenVoorstuk</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Merivobox inkorten voorstuk</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.InkortenVoorstukLijst).%New().MaakDocument()
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.InkortenVoorstuk = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.MVX.InkortenVoorstuk).%ClassName(1), ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.VoorstukInkortenUitvoeringInfo).%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 HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	
+	If HalffabItemsBoom.BevatRol(..Enum.Rol.VoorwandType) {
+		#dim VoorstukItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Voorstuk())
+		If ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(VoorstukItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte()) {
+			#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(Item.ProductID)
+			Do ..VulInBasisInfo(WerklijstItem.UitvoeringInfo,VoorstukItem)
+			Do ..VulInInkortenInfo(WerklijstItem.UitvoeringInfo,Item,Product,VoorstukItem)
+			Do WerklijstItem.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulInInkortenInfo">
+<FormalSpec>Info:APPS.Halux.PPS.Activiteit.impl.common.dto.VoorstukInkortenUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem,Product:DOM.PM.MaatwerkProduct,VoorstukItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Implementation><![CDATA[
+	Set Info.Lengte = VoorstukItem.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	Set Info.Nr = Item.SequentieNummer
+	Set Info.ToeDos = ..GeefToeDos(Item,Product)
+	Set Info.Uitvoer = "V"	/// Voormontage
+]]></Implementation>
+</Method>
+
+<Method name="VulInBasisInfo">
+<FormalSpec>Info:APPS.Halux.PPS.Activiteit.impl.common.dto.VoorstukInkortenUitvoeringInfo,VoorstukItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim VoorstukHalffab As DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabVoorstuk = VoorstukItem.GeefHalffab()
+	#dim ProductID As %String = VoorstukHalffab.GeefProductID()
+	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)	
+	#dim Kleur As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Voorstuk", ProductID, "Kleur"))
+	#dim Groef As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Voorstuk", ProductID, "Groef"))
+	
+	Set Info.AantalVoorstukken = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(VoorstukItem)
+	Set Info.AantalVoorstukkenTeBekomen = VoorstukItem.GeefTeBekomenAantal()
+	Set Info.VoorstukKleur = Kleur
+	Set Info.Groef = Groef
+	Set Info.VoorstukKorttekst = AdministratiefProduct.GeefKorttekst()
+	Set Info.VoorstukProductID = ProductID
+]]></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>
+<DefaultData>InkortenVoorstukDefaultData</DefaultData>
+<Data name="InkortenVoorstukDefaultData">
+<Subscript>"InkortenVoorstuk"</Subscript>
+<Value name="1">
+<Value>API</Value>
+</Value>
+<Value name="2">
+<Value>Enum</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>