Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml
===================================================================
diff -u -r64191 -r64251
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml	(.../MVXDataOphaler.cls.xml)	(revision 64191)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml	(.../MVXDataOphaler.cls.xml)	(revision 64251)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.MVXDataOphaler">
-<Super>%RegisteredObject,IDataOphaler</Super>
+<Super>TECH.RegisteredObject,IDataOphaler</Super>
 
 <Method name="%OnNew">
 <FormalSpec>Werkpost:%String</FormalSpec>
@@ -17,23 +17,19 @@
 <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
+	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem
 	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)
+	#dim PRNr As %String = ..ZoekDossierCode(DossierCode)
 	If PRNr {
 		Set ..Registratie.PRNr = PRNr
 		Do ..ZoekToeleveringViaProduct()
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml
===================================================================
diff -u -r64231 -r64251
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 64231)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 64251)
@@ -9,38 +9,44 @@
 </Property>
 
 <Property name="IngegevenKenmerkenTypeAPI">
-<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="IngegevenKenmerkenAPI">
-<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Type>DOM.PM.impl.IngegevenKenmerkenAPIimpl</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</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>
+<FormalSpec>RugUtils:DOM.PM.Maatwerk.Lade.RugUtils.impl.MVXRugUtils="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",IngegevenKenmerkenAPI:DOM.PM.IngegevenKenmerkenAPI="",MaatwerkCalcAPI:DOM.PM.impl.MaatwerkCalcAPI=""</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 ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI,##class(DOM.PM.impl.MaatwerkCalcAPI).%New())
+	Set ..RugUtils = $$$Inject(RugUtils, ..MaatwerkCalcAPI.GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX()))
+	Set ..IngegevenKenmerkenTypeAPI = $$$Inject(IngegevenKenmerkenTypeAPI, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	Set ..IngegevenKenmerkenAPI = $$$Inject(IngegevenKenmerkenAPI, ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New())
 	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>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Info As TECH.String = ""
 	
@@ -59,7 +65,7 @@
 	If ..IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) {
 		Set Info = ..GeefInfoMetMelding(Info,"SMAL")
 	}
-	if ..MeldSynchronisatiestang(IngegevenKenmerken, HalffabItemsBoom) {
+	if ..VermeldSynchronisatiestang(IngegevenKenmerken, HalffabItemsBoom) {
 		Set Info = ..GeefInfoMetMelding(Info,"SYNCST")
 	}
 	Quit Info
@@ -68,6 +74,7 @@
 
 <Method name="GeefInfo2">
 <FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Info As TECH.String = ""
 	
@@ -95,7 +102,7 @@
 		Set Info = ..GeefInfoMetMelding(Info, "DWV:"_IngegevenKenmerken.AantalDwarsverdelingen)
 	}
 	
-	If ..MeldZijstabiliseringstang(IngegevenKenmerken) {
+	If ..VermeldZijstabiliseringstang(IngegevenKenmerken) {
 		Set Info = ..GeefInfoMetMelding(Info,"ZIJSTB")
 	}
 	
@@ -107,11 +114,11 @@
 <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><![CDATA[	Quit $Select($Length(Info):Info_"; ",1:##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()_":") _ Melding
 ]]></Implementation>
 </Method>
 
-<Method name="MeldSynchronisatiestang">
+<Method name="VermeldSynchronisatiestang">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -122,7 +129,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MeldZijstabiliseringstang">
+<Method name="VermeldZijstabiliseringstang">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen.cls.xml
===================================================================
diff -u -r64193 -r64251
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen.cls.xml	(.../MVXLadePersen.cls.xml)	(revision 64193)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen.cls.xml	(.../MVXLadePersen.cls.xml)	(revision 64251)
@@ -55,15 +55,14 @@
 	
 	#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 MaatwerkCalcAPI As DOM.PM.impl.MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
 	#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 AftrekDiepte = $Select(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.Omschrijving = Item.BatchID_"."_$Extract(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)
@@ -82,13 +81,14 @@
 	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
+	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken)) {
+		Set UitvoeringInfo.Breedte = ##class(APPS.Halux.impl.ProductieAPI).GeefNietTePersenBreedteBepaler().BepaalNietTePersenBreedte()*10
 		Set UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).NietTePersen()
 	}
 
-	do Resultaat.SetAt(WerklijstItem, ..#InformatieID)
+	Do Resultaat.SetAt(WerklijstItem, ..#InformatieID)
+	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml
===================================================================
diff -u -r64191 -r64251
--- APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 64191)
+++ APPS/Halux/PPS/MVXPers/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 64251)
@@ -7,7 +7,7 @@
 <ClassType/>
 <IncludeCode>TECH.Error,BL.PPS.TBX.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,APPS.Halux.PPS.TBXPers.IWerkpost</Super>
+<Super>TECH.RegisteredObject,APPS.Halux.PPS.TBXPers.IWerkpost</Super>
 <Inheritance>right</Inheritance>
 
 <Property name="Werkpost">
@@ -187,7 +187,7 @@
 <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)
+	#dim Product As DOM.PM.MVXProduct.impl.MVXLadeImpl = ##class(DOM.PM.impl.ProductAPI).%New().GeefProduct(WerklijstItem.UitvoeringInfo.ProductID)
 	// TODOPA
 	Quit "http://NotSupportedYet"
 ]]></Implementation>
@@ -234,10 +234,11 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>UitvoeringInfoID:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%List</ReturnType>
 <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(
+	Set Row = $LB(
 		UitvoeringInfo.UniqueID,
 		UitvoeringInfo.GeperstStatus,
 		UitvoeringInfo.Omschrijving,