Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml	(revision 64191)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.MVXDataOphaler">
+<Super>%RegisteredObject,IDataOphaler</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost = Werkpost
+	Set ..Familie = "MVX"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaQueueID">
+<FormalSpec>UniqueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem 
+	#dim Product As DOM.PM.MVXProduct.impl.MVXLadeImpl
+	Set WerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(UniqueID)
+	;d DumpObject^%apiOBJ(WerklijstItem)
+	;d DumpObject^%apiOBJ(WerklijstItem.UitvoeringInfo)
+	Set ..Registratie.PRNr = WerklijstItem.UitvoeringInfo.ProductID
+	Set ..Registratie.ToeleveringID = WerklijstItem.UitvoeringInfo.ToeleveringID
+	Set ..Registratie.ToeleveringLijnID = WerklijstItem.UitvoeringInfo.ToeleveringLijnID
+	;w ..Registratie.PRNr," ", ..Registratie.ToeleveringID," ", ..Registratie.ToeleveringLijnID,!
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PRNr = ..ZoekDossierCode(DossierCode)
+	If PRNr {
+		Set ..Registratie.PRNr = PRNr
+		Do ..ZoekToeleveringViaProduct()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen.cls.xml	(revision 64191)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>Persaansturing</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>MVXLadePersen</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Merivobox lade persen</Default>
+</Parameter>
+
+<Method name="MaakActiviteit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActiviteitGroepID:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Activiteit.Activiteit</ReturnType>
+<Implementation><![CDATA[
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam("TODO", ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadePersUitvoeringInfo).%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[
+	Set Resultaat = ##class(%ArrayOfObjects).%New()
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item,..#InformatieID)
+	
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.LadePersUitvoeringInfo = WerklijstItem.UitvoeringInfo
+
+	#dim DomeinContext As DOM.DomeinContext = ##class(DOM.DomeinContext).Instance()
+	#dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = DomeinContext.GeefMaatwerkCalcAPI()
+	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = MaatwerkCalcAPI.GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+	#dim HeeftStalenRug As %Boolean = RugUtils.HeeftStalenRug(HalffabItemsBoom)
+	#dim AftrekDiepte = $S(HeeftStalenRug: 22, 1: 26)
+	#dim RHmm As %Decimal = RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
+
+	Set UitvoeringInfo.UniqueID = 0				// Nul als default, bedoeld om herkenbaar zijn als niet geldige ID
+	Set UitvoeringInfo.Omschrijving = Item.BatchID_"."_$E(UitvoeringInfo.ToeleveringID,4,6)_"."_UitvoeringInfo.DossierCode_" ("_(UitvoeringInfo.DeelAantal)_"/"_UitvoeringInfo.TotaalAantal_")"
+	Set UitvoeringInfo.Breedte = ##class(TECH.Math).Round((IngegevenKenmerken.InterneBreedte - 51) * 10, 1)
+	Set UitvoeringInfo.Diepte = (IngegevenKenmerken.LadeDiepte - AftrekDiepte) * 10
+	Set UitvoeringInfo.RugHoogte = (RHmm * 10)
+	If (HeeftStalenRug) {
+		// 3mm erbij voor stalen ruggen
+		Set UitvoeringInfo.RugHoogte = UitvoeringInfo.RugHoogte + 30
+	}
+	Set UitvoeringInfo.Tand = 0					// LBX pers stuurt zelf de tanden aan
+	Set UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).NietGeperst()
+	Set UitvoeringInfo.Volgorde = Item.SequentieNummer
+	Set UitvoeringInfo.WaarschuwingTijd = 80
+	Set UitvoeringInfo.RedenTijd = 180
+	// Infos: R: = rood G: = groen
+	Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New()
+	Set UitvoeringInfo.Info1 = InfoBepaler.GeefInfo1(Item)
+	Set UitvoeringInfo.Info2 = InfoBepaler.GeefInfo2(Item)
+
+	
+	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = DomeinContext.GeefIngegevenKenmerkenTypeAPI()
+	If IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) {
+		Set UitvoeringInfo.Breedte = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefNietTePersenBreedteBepaler().BepaalNietTePersenBreedte()*10
+		Set UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).NietTePersen()
+	}
+
+	do Resultaat.SetAt(WerklijstItem, ..#InformatieID)
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="PostProcessWerklijstItem">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem</FormalSpec>
+<Implementation><![CDATA[
+	Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID()
+	Do WerklijstItem.Save()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml	(revision 64191)
@@ -0,0 +1,146 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="RugUtils">
+<Type>DOM.PM.Maatwerk.Lade.RugUtils.impl.MVXRugUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MatFormatter">
+<Type>APPS.Halux.PPS.impl.Formatter.Mat</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>RugUtils:DOM.PM.Maatwerk.Lade.RugUtils.impl.MVXRugUtils="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",IngegevenKenmerkenAPI:DOM.PM.IngegevenKenmerkenAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
+	Set ..RugUtils = $$$Implementation(RugUtils, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX()))
+	Set ..IngegevenKenmerkenTypeAPI = $$$Implementation(IngegevenKenmerkenTypeAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
+	Set ..IngegevenKenmerkenAPI = $$$Implementation(IngegevenKenmerkenAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI())
+	Set ..MatFormatter = ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Resolve("MatFormatter")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfo1">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim Info As TECH.String = ""
+	
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	
+	If ..RugUtils.HeeftStalenRug(HalffabItemsBoom) {
+		Set Info = "R: Stalen rug"
+	}
+	If ..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) {
+		Set Info = ..GeefInfoMetMelding(Info,"SPOELBAK")
+	}
+	If ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) {
+		Set Info = ..GeefInfoMetMelding(Info,"SIFON")
+	}
+	If ..IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) {
+		Set Info = ..GeefInfoMetMelding(Info,"SMAL")
+	}
+	if ..MeldSynchronisatiestang(IngegevenKenmerken, HalffabItemsBoom) {
+		Set Info = ..GeefInfoMetMelding(Info,"SYNCST")
+	}
+	Quit Info
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfo2">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim Info As TECH.String = ""
+	
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	
+	If (IngegevenKenmerken.IsBinnenlade) {
+		Set Info = ..GeefInfoMetMelding(Info, "Front")
+	}	
+	
+	If (IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.MVXZijWandType).RelingEnInschuifElement()) {
+		#dim RelingEnInschuifElementString As TECH.String = ""
+		If $$$Not(HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())){
+			Set RelingEnInschuifElementString = "ZI"
+		}
+		Set Info = ..GeefInfoMetMelding(Info, RelingEnInschuifElementString)
+	}
+		
+	If ..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(IngegevenKenmerken){
+		#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(IngegevenKenmerken,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+		Set Info = ..GeefInfoMetMelding(Info, "Mat:"_..MatFormatter.GeefKorteNotatie(MatKenmerken.Materiaal,MatKenmerken.Kleur))
+	}
+	
+	If IngegevenKenmerken.AantalDwarsverdelingen > 0 {
+		Set Info = ..GeefInfoMetMelding(Info, "DWV:"_IngegevenKenmerken.AantalDwarsverdelingen)
+	}
+	
+	If ..MeldZijstabiliseringstang(IngegevenKenmerken) {
+		Set Info = ..GeefInfoMetMelding(Info,"ZIJSTB")
+	}
+	
+	Quit Info
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfoMetMelding">
+<FormalSpec>Info:%String,Melding:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $S($L(Info):Info_"; ",1:##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()_":") _ Melding
+]]></Implementation>
+</Method>
+
+<Method name="MeldSynchronisatiestang">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MeldSynchronisatiestang As %Boolean = $$$Not(IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).V1())
+	Set MeldSynchronisatiestang = (MeldSynchronisatiestang && ..HeeftHalffabItemVoorStang(HalffabItemsBoom))
+	Quit MeldSynchronisatiestang
+]]></Implementation>
+</Method>
+
+<Method name="MeldZijstabiliseringstang">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MeldZijstabiliseringstang As %Boolean = $$$Not(IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).V1())
+	Set MeldZijstabiliseringstang = (MeldZijstabiliseringstang && IngegevenKenmerken.HeeftZijstabilisering)
+	Quit MeldZijstabiliseringstang
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHalffabItemVoorStang">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	 Quit HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/LadeCodeServer.cls.xml
===================================================================
diff -u -r59108 -r64191
--- WS/Halux/PPS/LadeCodeServer.cls.xml	(.../LadeCodeServer.cls.xml)	(revision 59108)
+++ WS/Halux/PPS/LadeCodeServer.cls.xml	(.../LadeCodeServer.cls.xml)	(revision 64191)
@@ -73,6 +73,8 @@
 		Set ..iDataOphaler=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.LBXDataOphaler).%New(Werkpost)
 	} ElseIf $$$StartsWith(Werkpost,"TA"){
 		Set ..iDataOphaler=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.TAXDataOphaler).%New(Werkpost)
+	} ElseIf $$$StartsWith(Werkpost,"MP"){
+		Set ..iDataOphaler=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.MVXDataOphaler).%New(Werkpost)
 	} Else {	
 		Set ..iDataOphaler=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.TBXDataOphaler).%New(Werkpost)
 	}
Index: APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml	(revision 0)
+++ APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml	(revision 64191)
@@ -0,0 +1,272 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.MVXPers.impl.Werkpost">
+<Description>
+Adapterklasse voor de pers, werkt samen met de overeenkomstige activiteit.
+TODOPA basisklasse hernoemen naar APPS.Halux.PPS.PersWerkpost of IPersWerkpost</Description>
+<ClassType/>
+<IncludeCode>TECH.Error,BL.PPS.TBX.Common</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,APPS.Halux.PPS.TBXPers.IWerkpost</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Werkpost">
+<Type>APPS.Halux.common.enu.Werkpost</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ActiviteitGroepID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ActiviteitID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ActiviteitLijnID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="LoggerGroup">
+<Default>Halux.MVXPers</Default>
+</Parameter>
+
+<Parameter name="InformatieID">
+<Default>Persaansturing</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	
+	// Koppelen aan de juiste activiteit binnen de juiste activiteitgroep
+	#dim ActiviteitGroepNaam As %String = "MVX productie"
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()
+	#dim ActiviteitGroepID As %String
+	&SQL(SELECT ID INTO :ActiviteitGroepID FROM APPS_Halux_PPS_Activiteit.ActiviteitGroep WHERE Naam=:ActiviteitGroepNaam AND Categorie=:Categorie)
+	Set ..ActiviteitGroepID = ActiviteitGroepID
+
+	#dim ActiviteitCode As %String = "MVXLadePersen"
+	#dim ActiviteitID As %String
+	&SQL(SELECT ID INTO :ActiviteitID FROM APPS_Halux_PPS_Activiteit.Activiteit WHERE Code=:ActiviteitCode AND ActiviteitGroepID=:ActiviteitGroepID)
+	Set ..ActiviteitID = ActiviteitID
+	
+	// Koppelen aan de juiste activiteitlijn
+	Set ..ActiviteitLijnID = $Case(Werkpost,
+		##class(APPS.Halux.common.enu.Werkpost).MerivoPers4()	:	4,
+		: 0
+		)
+
+	Set ..Logger=##class(vhLib.Logger).%New(..#LoggerGroup)
+	Do ..Logger.Debug("APPS.Halux.PPS.MVXPers.impl.Werkpost", "Werkpost " _ ..Werkpost _ " aangemaakt. Activiteit " _ ..ActiviteitID _ " groep " _ ..ActiviteitGroepID _ " activiteitlijn " _ ..ActiviteitLijnID)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchLijst">
+<FormalSpec>NietBeperktTotWerkpost:%Boolean</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefBatchLijst", "NietBeperktTotWerkpost:"_$G(NietBeperktTotWerkpost))
+	#dim DataSet As %XML.DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.BatchService:GeefBatchIDs")
+	Do DataSet.SetArgs(##class(APPS.Halux.common.enu.Categorie).Merivobox(), ##class(APPS.Halux.common.enu.BatchStatus).Gestart())
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeLijst">
+<FormalSpec>BatchID:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefLadeLijst", "Batch:"_$G(BatchID) _ " " _ ..ActiviteitGroepID  _ " " _ ..ActiviteitID _ " " _ ..ActiviteitLijnID)
+	Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.PPS.MVXPers.impl.Werkpost:GeefLadeInfoVoorPers")
+	Do DataSet.SetArgs(BatchID, ..ActiviteitGroepID, ..ActiviteitID, ..ActiviteitLijnID, ..#InformatieID)
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefStilstanden">
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefStilstanden", "Werkpost:"_..Werkpost)
+	// TODOPA Nagaan of er andere stilstandredenen zijn voor MVX. Starten met de lijst voor TBX.
+	Set BuildHelper = ##class(APPS.Halux.PPS.TBXPers.impl.StilstandenHelper).%New(..Werkpost)
+	#dim DataSet As %XML.DataSet = BuildHelper.GeefDataSet()
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefHerwerkingen">
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("GeefBeschadigingen", "Werkpost:"_..Werkpost)
+	// TODOPA Nagaan of er andere herwerkingen zijn voor MVX. Starten met de lijst voor TBX.
+	Set BuildHelper = ##class(APPS.Halux.PPS.TBXPers.impl.HerwerkHelper).%New(..Werkpost)
+	#dim DataSet As %XML.DataSet = BuildHelper.GeefDataSet()
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerStilstand">
+<FormalSpec>Reden:%String,Duur:%Integer,UniqueID:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("RegistreerStilstand", "Werkpost:"_..Werkpost_", Reden:"_Reden_", UniqueID:"_UniqueID)
+	#dim BatchID As %String = ""
+	// Pers geeft stilstanden ook door in manuele mode en dan kan de UniqueID leeg of nul zijn
+	If ((UniqueID '= "") && (UniqueID '= 0)) {
+		#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(UniqueID)
+		Set WerklijstItem.UitvoeringInfo.RedenStilstand = Reden
+		Set WerklijstItem.UitvoeringInfo.SecondenStilstand = Duur
+		Set WerklijstItem.TijdstipLaatsteWijziging = ##class(TECH.DateTime).CurrentTimeStamp()
+		Do WerklijstItem.Save()
+		Set BatchID = WerklijstItem.BatchID
+	}
+	Do ##class(APPS.Halux.Opvolging.impl.Stilstanden).Registreer(..%ClassName(1), ..Werkpost, BatchID, Reden, Duur)
+]]></Implementation>
+</Method>
+
+<Method name="ZetStatus">
+<Description>
+d ##class(APPS.Halux.PPS.MVXPers.impl.Werkpost).%New("LP1").ZetStatus(711,1)</Description>
+<FormalSpec>UniqueID:%Integer,Redo:%Boolean=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("ZetStatus", "Werkpost: "_..Werkpost_", UniqueID: "_UniqueID_", IsManueel: "_Redo)
+	If ((UniqueID '= "") && (UniqueID '= 0)) {
+		#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(UniqueID)
+		Set WerklijstItem.Status = ##class(APPS.Halux.PPS.enu.WerklijstItemStatus).Uitgevoerd()
+		Set WerklijstItem.UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+		Set WerklijstItem.UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).Geperst()
+		Set WerklijstItem.TijdstipLaatsteWijziging = ##class(TECH.DateTime).CurrentTimeStamp()
+		Do WerklijstItem.Save()
+		Set LadeGeperstEventData = ##class(APPS.Halux.common.event.LadeGeperstEventData).%New(..Werkpost, WerklijstItem.GeefID(), Redo)
+		Set LadeGeperstEvent = ##class(APPS.Halux.common.event.NieuwLadeGeperstEvent).%New(LadeGeperstEventData)
+		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(LadeGeperstEvent)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerBeschadiging">
+<FormalSpec>UniqueID:%Integer,HerwerkGroep:%String,HerwerkCode:%String,Reden:%String,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn=""</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("Beschadiging", "UniqueID:"_$G(UniqueID)_", Groep:"_HerwerkGroep_", Herwerk:"_HerwerkCode_", Verantw:"_Verantwoordelijke_", Reden:"_Reden_", Herwerk:"_$g(HerwerkNaarLijn))
+	/* TODOPA
+	Set QueueElement=##class(DS.PPS.TBX.Queue).%OpenId(UniqueID)
+	If '$isObject(QueueElement) {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen queue in zaagopdracht"_UniqueID))
+	}
+	Set LadePRNr=QueueElement.Product.%Id()
+	If 'LadePRNr {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen product:"_LadePRNr_" in ZaagOpdracht:"_UniqueID))
+	}
+
+	If HerwerkGroep="Zaag"
+	{
+		Set ZaagVoorPers=..ConversiePersNaarZaag()
+		Set BodemOfRug=##class(APPS.Halux.PPS.TBXPers.impl.HerwerkHelper).ConversieBodemRug(HerwerkCode)
+		If (ZaagVoorPers'="") && (BodemOfRug'="")
+		{
+			Set WerkpostZaag=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(ZaagVoorPers)
+			Do WerkpostZaag.BeschadigingViaLade(LadePRNr, BodemOfRug, Verantwoordelijke, Reden)
+			Do:HerwerkNaarLijn'="" WerkpostZaag.Herwerk(QueueElement.%Id(),BodemOfRug,HerwerkNaarLijn)
+		}
+	}
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductURL">
+<FormalSpec>UniqueID:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(UniqueID)
+	#dim Product As DOM.PM.MVXProduct.impl.MVXLadeImpl = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(WerklijstItem.UitvoeringInfo.ProductID)
+	// TODOPA
+	Quit "http://NotSupportedYet"
+]]></Implementation>
+</Method>
+
+<Query name="GeefLadeInfoVoorPers">
+<Type>%Query</Type>
+<FormalSpec>BatchID,ActiviteitGroepID,ActiviteitID,ActiviteitLijnID,InformatieID</FormalSpec>
+<Parameter name="CONTAINID" value="0"/>
+<Parameter name="ROWSPEC" value="UniqueID:%String,Status:%String,ID:%String,Breedte:%Integer,Diepte:%Integer,Rughoogte:%Integer,Tand:%String,Info1:%String,Info2:%String,Volgorde:%Integer,TimeOutShort:%Integer,TimeOutLong:%Integer"/>
+</Query>
+
+<Method name="GeefLadeInfoVoorPersExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,BatchID:%String,ActiviteitGroepID:%String,ActiviteitID:%String,ActiviteitLijnID:%String,InformatieID:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// Elke werkpost mag alle laden zien, ook die van een andere productielijn
+	Set ActiviteitLijnID = ""
+	Set qHandle = ##class(APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit).GeefUitvoeringInfoIDsVoorBatch(BatchID, ActiviteitID, ActiviteitGroepID, ActiviteitLijnID, InformatieID)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeInfoVoorPersFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>GeefLadeInfoVoorPersExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Row=""
+	#dim sc As %Status = qHandle.Next()
+	If 'sc Do
+	. Set AtEnd=1
+	Else  Do
+	. Set Row=..GeefLadeInfoVoorPersRow(qHandle.Data("UitvoeringInfoID"))
+	. If Row="" Set AtEnd=1	
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeInfoVoorPersRow">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>UitvoeringInfoID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Row As %List = ""
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.LadePersUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadePersUitvoeringInfo).OpenId(UitvoeringInfoID)
+	Set Row=$LB(
+		UitvoeringInfo.UniqueID,
+		UitvoeringInfo.GeperstStatus,
+		UitvoeringInfo.Omschrijving,
+		UitvoeringInfo.Breedte,
+		UitvoeringInfo.Diepte,
+		UitvoeringInfo.RugHoogte,
+		UitvoeringInfo.Tand,
+		UitvoeringInfo.Info1,
+		UitvoeringInfo.Info2,
+		UitvoeringInfo.SequentieNummer,
+		UitvoeringInfo.WaarschuwingTijd,
+		UitvoeringInfo.RedenTijd
+	)
+	Quit Row
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeInfoVoorPersClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>GeefLadeInfoVoorPersExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do qHandle.Close()
+	Kill qHandle
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Deploy20201217xMvxProductieAansturingPersToevoegen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20201217xMvxProductieAansturingPersToevoegen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20201217xMvxProductieAansturingPersToevoegen.cls.xml	(revision 64191)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20201217xMvxProductieAansturingPersToevoegen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Heruitvoering AansturingIncrementeel voor toevoegen Pers</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(vhDeploy.Maatwerk.MVX.AansturingIncrementeel).ExecCode()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/TBXPersServer.cls.xml
===================================================================
diff -u -r34187 -r64191
--- WS/Halux/PPS/TBXPersServer.cls.xml	(.../TBXPersServer.cls.xml)	(revision 34187)
+++ WS/Halux/PPS/TBXPersServer.cls.xml	(.../TBXPersServer.cls.xml)	(revision 64191)
@@ -230,16 +230,18 @@
 <FormalSpec>SessionKey:%String="",Werkpost:APPS.Halux.common.enu.Werkpost=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set sc=..ControleSession(SessionKey,Werkpost)
+	Set sc = ..ControleSession(SessionKey,Werkpost)
 	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errGeneralError,"Controle session",sc)
 	
 	If ($$$StartsWith(Werkpost,"LP")) {
 		Set ..iWerkpost=##class(APPS.Halux.PPS.LBXPers.impl.Werkpost).%New(Werkpost)
+	} ElseIf ($$$StartsWith(Werkpost,"MV")) {			//??????????????@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?????????????????????????????????????	
+		Set ..iWerkpost=##class(APPS.Halux.PPS.MVXPers.impl.Werkpost).%New(Werkpost)
 	} Else {	
 		Set ..iWerkpost=##class(APPS.Halux.PPS.TBXPers.impl.Werkpost).%New(Werkpost)
 	}
 	If '$isObject(..iWerkpost) {
-		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("No implementation for "_Werkpost)
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("No implementation for "_Werkpost)
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>