Index: APPS/Halux/common/impl/ProductieSequentieItemService.cls.xml
===================================================================
diff -u -r63069 -r63078
--- APPS/Halux/common/impl/ProductieSequentieItemService.cls.xml	(.../ProductieSequentieItemService.cls.xml)	(revision 63069)
+++ APPS/Halux/common/impl/ProductieSequentieItemService.cls.xml	(.../ProductieSequentieItemService.cls.xml)	(revision 63078)
@@ -28,27 +28,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DotNetMaatwerkService">
-<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails</Type>
+<Property name="DotNetProductieAansturingService">
+<Type>APPS.Halux.common.impl.DotNet.ProductieAansturingService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="MaatwerkDetailsConvertor">
-<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",ProductieAansturingIngegevenKenmerkenBepaler:APPS.Halux.common.ProductieAansturingIngegevenKenmerkenBepaler="",DotNetMaatwerkService:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails="",MaatwerkDetailsConvertor:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter=""</FormalSpec>
+<FormalSpec>MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",ProductieAansturingIngegevenKenmerkenBepaler:APPS.Halux.common.ProductieAansturingIngegevenKenmerkenBepaler="",DotNetProductieAansturingService:APPS.Halux.common.impl.DotNet.ProductieAansturingService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..MaatwerkService = $$$Inject(MaatwerkService, ##class(APPS.PM.Maatwerk.MaatwerkService).%New())
 	Set ..ProductieAansturingIngegevenKenmerkenBepaler = $$$Inject(ProductieAansturingIngegevenKenmerkenBepaler, ##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New())
-	Set ..DotNetMaatwerkService = $$$Inject(DotNetMaatwerkService, ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New())
-	Set ..MaatwerkDetailsConvertor = $$$Inject(MaatwerkDetailsConvertor, ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter).%New())
+	Set ..DotNetProductieAansturingService = $$$Inject(DotNetProductieAansturingService, ##class(APPS.Halux.common.impl.DotNet.ProductieAansturingService).%New())
 	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	Set ..BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
 	Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
@@ -111,21 +105,10 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
 	#dim KlantId As DOM.VKP.VanHoeckeKlantID = ProductieSequentieItem.PartijID
 	#dim Aantal As %Integer = ProductieSequentieItem.TotaalAantal
 	
-	Try {
-		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantId, Aantal)
-		Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
-	} Catch {
-		#dim InnerException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Probleem met teruggeven van de HalffabItemsBoomDotNetBased")
-		Do Exception.VoegToeInnerExceptie(InnerException)
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	
-	Quit HalffabItemsBoom
+	Quit ..DotNetProductieAansturingService.GeefHalffabItemsBoomDotNetBased(IngegevenKenmerken, KlantId, Aantal)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/common/impl/DotNet/ProductieAansturingService.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/impl/DotNet/ProductieAansturingService.cls.xml	(revision 0)
+++ APPS/Halux/common/impl/DotNet/ProductieAansturingService.cls.xml	(revision 63078)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.impl.DotNet.ProductieAansturingService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DotNetMaatwerkService">
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkDetailsConvertor">
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DotNetMaatwerkService:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails="",MaatwerkDetailsConvertor:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DotNetMaatwerkService = $$$Inject(DotNetMaatwerkService, ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New())
+	Set ..MaatwerkDetailsConvertor = $$$Inject(MaatwerkDetailsConvertor, ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoomDotNetBased">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantId:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+	
+	Try {
+		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantId, Aantal)
+		Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+	} Catch {
+		#dim InnerException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Probleem met teruggeven van de HalffabItemsBoomDotNetBased")
+		Do Exception.VoegToeInnerExceptie(InnerException)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>