Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(revision 63162)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="HalffabRepository">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalHalffab">
+<FormalSpec>HalffabItemParsedFromJson:APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ""
+	
+	If $$$HasLength(HalffabItemParsedFromJson.ProductData.Id) {
+		Set Halffab = ..HalffabRepository.GeefHalffabVoorProductID(HalffabItemParsedFromJson.ProductData.Id)
+		If $$$Not($IsObject(Halffab)) {
+			Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(HalffabItemParsedFromJson.ProductData.Id)
+		}
+	} Else {
+		#dim Logger = ##class(vhLib.Logger).%New("JsonNaarDomConverter .NET").ErrorMail("Er is geen productId meegegeven voor rol: "_HalffabItemParsedFromJson.Rol)
+	}
+	Quit Halffab
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r63052 -r63162
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 63052)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 63162)
@@ -3,6 +3,11 @@
 <Class name="WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="HalffabFromJsonBepaler">
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ClassnameFromJsonNaarDomConverter">
 <Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter</Type>
 <Private>1</Private>
@@ -14,12 +19,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>HalffabFromJsonBepaler:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..HalffabFromJsonBepaler = $$$Inject(HalffabFromJsonBepaler,##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabFromJsonBepaler).%New())
 	Set ..ClassnameFromJsonNaarDomConverter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -131,16 +137,7 @@
 <FormalSpec>HalffabItemParsedFromJson:APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
-<Implementation><![CDATA[
-	If $$$HasLength(HalffabItemParsedFromJson.ProductData.Id) {
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New().GeefHalffabVoorProductID(HalffabItemParsedFromJson.ProductData.Id)
-		If $$$Not($IsObject(Halffab)) {
-			Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(HalffabItemParsedFromJson.ProductData.Id)
-		}
-	} Else {
-		#dim Logger = ##class(vhLib.Logger).%New("JsonNaarDomConverter .NET").ErrorMail("Er is geen productId meegegeven voor rol: "_HalffabItemParsedFromJson.Rol)
-	}
-	Quit Halffab
+<Implementation><![CDATA[	Quit ..HalffabFromJsonBepaler.BepaalHalffab(HalffabItemParsedFromJson)
 ]]></Implementation>
 </Method>
 </Class>