Index: APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenInschuifElementVooraan.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenInschuifElementVooraan.cls.xml	(revision 0)
+++ APPS/Halux/PPS/DocumentDefinitie/MVX/InkortenInschuifElementVooraan.cls.xml	(revision 66274)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.DocumentDefinitie.MVX.InkortenInschuifElementVooraan">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.Print.DocumentDefinitieTemplate</Super>
+
+<Method name="GeefDocumentTypeID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "MVX_InkortenInschuifElementVooraan"
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerKolomDefinities">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Toe:Dos",9,..TekstTypeString,..TekstUitlijningLinks))
+	Do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("#P",,..TekstTypeString,..TekstUitlijningRechts))
+	Do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("#B",,..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("RH",,..TekstTypeString,..TekstUitlijningRechts))
+	Do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("GH",,..TekstTypeString,..TekstUitlijningRechts))
+	Do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Afm",5,..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/common/InschuifelementenSnijden/InfoHalffabItemVisitor.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/common/InschuifelementenSnijden/InfoHalffabItemVisitor.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/common/InschuifelementenSnijden/InfoHalffabItemVisitor.cls.xml	(revision 66274)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor,%RegisteredObject</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="TePickenAantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TeBekomenAantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Afmetingen">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefTePickenAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..TePickenAantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeBekomenAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..TeBekomenAantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfmetingen">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ..Afmetingen
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBewerktHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkBasic(Item)
+	Set ..TeBekomenAantal = Item.TeBekomenAantal
+	
+	#dim BewerkteDimensiesIt As TECH.Iterator = Item.GeefBewerkteDimensiesIterator()
+	While BewerkteDimensiesIt.HasNext(){
+		#dim BewerkteDimensie As %Decimal = BewerkteDimensiesIt.Next()
+		Do ..Afmetingen.Insert($E(BewerkteDimensiesIt.Key(),1)_BewerkteDimensie)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandaardHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkBasic(Item)
+	Set ..TeBekomenAantal = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(Item)	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkInbegrepenHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkBasic(Item)
+	Set ..TeBekomenAantal = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(Item)	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBasic">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Implementation><![CDATA[	Set ..TePickenAantal = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(Item)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/MVX/InkortenInschuifElementVooraan.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/MVX/InkortenInschuifElementVooraan.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/MVX/InkortenInschuifElementVooraan.cls.xml	(revision 66274)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.MVX.InkortenInschuifElementVooraan">
+<Super>APPS.Halux.PPS.Document.impl.BulkTekstDocumentAfdrukker</Super>
+
+<Method name="MaakDocumentenVoorUitvoeringInfoLijst">
+<Description>
+</Description>
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.common.Print.Kolommen.Document"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim InschuifelementenSnijdenUitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.InschuifelementenSnijdenUitvoeringInfo = UitvoeringInfoLijst.GetAt(1)
+	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(InschuifelementenSnijdenUitvoeringInfo.ProductID)
+	#dim Titel As %String = "MVX inkortlijst inschuifel. vooraan "_Product.GeefVerpakking()
+	#dim BatchID As %String = InschuifelementenSnijdenUitvoeringInfo.BatchID
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
+	
+	#dim SubTitel As %String = "Lijn:"_Batch.GeefLijn()_" Batch:"_BatchID
+	
+	Set Document = ##class(APPS.common.Print.Kolommen.Document).%New("MVX_InkortenInschuifElementVooraan", Titel, SubTitel)
+	
+	Set UitvoeringInfoIt = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	While UitvoeringInfoIt.HasNext() {
+		Set InschuifelementenSnijdenUitvoeringInfo = UitvoeringInfoIt.Next()
+		do ..VoegToeInschuifelementenSnijdenUitvoeringInfo(Document, InschuifelementenSnijdenUitvoeringInfo)
+	}
+	
+	If (Document.GeefKolom(1).Count() > 0)
+	{
+		Do Document.VoegLijnToe("\\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\\LEGENDE","\")
+		Do Document.VoegLijnToe("\\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\\ M = Montage           ","\")
+		Do Document.VoegLijnToe("\\\\\\\\ P = Picking onderdelen","\")
+		Do Document.VoegLijnToe("\\\\\\\\ B = Extra bewerken    ","\")
+		Do Document.VoegLijnToe("\\\\\\\\ V = Voormontage       ","\")	
+	} Else{
+		Do Document.ClearContent()
+	}
+	
+	Quit ##class(TECH.ListUtils).CreateListOfObjects(Document)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeInschuifelementenSnijdenUitvoeringInfo">
+<FormalSpec>Document:APPS.common.Print.Kolommen.Document,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.InschuifelementenSnijdenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DocumentService As APPS.Halux.PPS.DocumentService = ##class(APPS.Halux.PPS.impl.DocumentService).%New()
+	#dim Lade As DOM.PM.MVXProduct.MVXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.ProductID)
+
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Lade.GeefHalffabItemsBoom(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	#dim InschuifElementVoor As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementVoor())
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = InschuifElementVoor.GeefHalffab()
+	#dim InschuifElementVoorProduct As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(Halffab.GeefProductID())
+
+	#dim Kleur As %String = ""
+	#dim Kenmerk As %List = ##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_InschuifElementVoor.GeefRol(),InschuifElementVoorProduct.GeefID(),"BasisType")
+	If $ListLength(Kenmerk) > 0{
+		Set Kleur = $ListGet(Kenmerk,1)
+	}
+	
+	Set InfoHFVisitor = ##class(APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor).%New()		
+	Do InschuifElementVoor.Accept(InfoHFVisitor)
+	
+	#dim ToeleveringDossierCode As %String = DocumentService.GeefToeleveringDossierCode(UitvoeringInfo.ToeleveringID,UitvoeringInfo.DossierCode)
+	#dim Korttekst As %String = InschuifElementVoorProduct.GeefKorttekst()
+	
+	#dim Afmetingen As %ListOfDataTypes = InfoHFVisitor.GeefAfmetingen()
+	Set AfmetingenIt = ##class(TECH.ListIterator).%New(Afmetingen)
+	
+	If $$$Not(AfmetingenIt.HasNext()) {
+		#dim Afmeting As %String = ""
+		Do ..VoegToeRij(Document, Halffab, InfoHFVisitor, ToeleveringDossierCode, Kleur, Afmeting, Korttekst)
+	} Else{
+		While AfmetingenIt.HasNext() {
+			Set Afmeting = AfmetingenIt.Next()
+			Do ..VoegToeRij(Document,Halffab, InfoHFVisitor, ToeleveringDossierCode, Kleur, Afmeting, Korttekst)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeRij">
+<FormalSpec>Document:APPS.common.Print.Kolommen.Document,Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,InfoHFVisitor:APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor,ToeleveringDossierCode:%String,Kleur:%String,Afmeting:%String,Korttekst:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do Document.GeefKolom(1).Insert(ToeleveringDossierCode)
+	Do Document.GeefKolom(2).Insert(InfoHFVisitor.GeefTePickenAantal())
+	Do Document.GeefKolom(3).Insert(InfoHFVisitor.GeefTeBekomenAantal())
+	Do Document.GeefKolom(4).Insert(Kleur)
+	Do Document.GeefKolom(5).Insert(Halffab.LadeHoogte)
+	Do Document.GeefKolom(6).Insert($E(Halffab.VoorWandVerhogingHoogte,1))
+	Do Document.GeefKolom(7).Insert(Afmeting)
+	Do Document.GeefKolom(8).Insert("V")
+	Do Document.GeefKolom(9).Insert(Korttekst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml
===================================================================
diff -u -r65948 -r66274
--- vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 65948)
+++ vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 66274)
@@ -76,7 +76,8 @@
 <Implementation><![CDATA[
 	#dim ActiviteitGroepVoormontage As %String = ..MaakOfVervangActiviteitGroep(Categorie, "MVX.Groep.MVXVoormontage")
 	
-	;Indien nodig komt hier de AansturingActie: InschuifelementenSnijden => Do ..MaakOfVervangAansturingActie()
+	#dim InschuifelementenSnijdenActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoormontage, "MVX.InkortenInschuifElementVooraan")
+	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoormontage, InschuifelementenSnijdenActieID, "Inkorten: inschuifelement vooraan", ..#IsNietMogelijkZonderBatch)
 	
 	#dim ZijstabiliseringInkortenActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoormontage, "MVX.ZijstabiliseringInkorten")
 	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoormontage, ZijstabiliseringInkortenActieID, "Inkorten: zijstabilisering", ..#IsNietMogelijkZonderBatch)
Index: APPS/Halux/PPS/Activiteit/impl/MVX/InkortenInschuifElementVooraan.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/InkortenInschuifElementVooraan.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/InkortenInschuifElementVooraan.cls.xml	(revision 66274)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.InkortenInschuifElementVooraan">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>MVXInkortenInschuifElementVooraan</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>MVXInkortenInschuifElementVooraan</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Merivobox inkorten inschuifelementen vooraan</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.InkortenInschuifElementVooraan).%New().MaakDocument()
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.InkortenInschuifElementVooraan = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.MVX.InkortenInschuifElementVooraan).%ClassName(1), ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.InschuifelementenSnijdenUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.InschuifelementenSnijdenUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerklijstItemsVoorProductieSequentieItem">
+<Description>
+Geeft een array terug met werklijstitems </Description>
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim Resultaat = ##class(%ArrayOfObjects).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	#dim InschuifElementVoor As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementVoor())
+	#dim AantalInschuifelementen = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).GeefAantalProductenOpgenomenInEindproduct(InschuifElementVoor)
+	#dim IsBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(InschuifElementVoor, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	if ((AantalInschuifelementen > 0) && IsBewerkt) {
+		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID)
+		Do Resultaat.SetAt(WerklijstItem, ..#InformatieID)
+
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/InschuifelementenSnijden.cls.xml
===================================================================
diff -u -r29059 -r66274
--- APPS/Halux/PPS/Document/impl/LBX/InschuifelementenSnijden.cls.xml	(.../InschuifelementenSnijden.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/LBX/InschuifelementenSnijden.cls.xml	(.../InschuifelementenSnijden.cls.xml)	(revision 66274)
@@ -62,7 +62,7 @@
 		Set Kleur = $ListGet(Kenmerk,1)
 	}
 	
-	Set InfoHFVisitor = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.InschuifelementenSnijden.InfoHalffabItemVisitor).%New()		
+	Set InfoHFVisitor = ##class(APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor).%New()		
 	Do InschuifElementVoor.Accept(InfoHFVisitor)
 	
 	#dim ToeleveringDossierCode As %String = DocumentService.GeefToeleveringDossierCode(UitvoeringInfo.ToeleveringID,UitvoeringInfo.DossierCode)
@@ -83,7 +83,7 @@
 </Method>
 
 <Method name="VoegToeRij">
-<FormalSpec>Document:APPS.common.Print.Kolommen.Document,Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,InfoHFVisitor:APPS.Halux.PPS.Activiteit.impl.LBX.InschuifelementenSnijden.InfoHalffabItemVisitor,ToeleveringDossierCode:%String,Kleur:%String,Afmeting:%String,Korttekst:%String</FormalSpec>
+<FormalSpec>Document:APPS.common.Print.Kolommen.Document,Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,InfoHFVisitor:APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor,ToeleveringDossierCode:%String,Kleur:%String,Afmeting:%String,Korttekst:%String</FormalSpec>
 <Implementation><![CDATA[
 		do Document.GeefKolom(1).Insert(ToeleveringDossierCode)
 		do Document.GeefKolom(2).Insert(InfoHFVisitor.GeefTePickenAantal())
FishEye: Tag 66274 refers to a dead (removed) revision in file `APPS/Halux/PPS/Activiteit/impl/LBX/InschuifelementenSnijden/InfoHalffabItemVisitor.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?