Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r57061 -r64341
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 57061)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64341)
@@ -90,43 +90,58 @@
 <FormalSpec>IngegevenKenmerkenDomain:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing="",KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer=1,Datum:%Date=""</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.MaatwerkDetails</ReturnType>
 <Implementation><![CDATA[
-	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%New()
-	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
-	#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(PartijID, Aantal , Datum)
-	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorIngegevenKenmerken(IngegevenKenmerkenDomain, BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+	Set DotNetMaatwerkService = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New()
+	Set OmleidingNaarDotNetBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler).%New()
+	Set MaatwerkDetailsConvertor = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem
 	#dim Problemen As list of %String = ##class(%ListOfDataTypes).%New()
 	
-	Set IngegevenKenmerkenDomain = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerkenDomain, HalffabSpec.GeefVersieNrIngegevenKenmerken())
-
-	Try {
-		Set %GlobaleVariabeleBerekeningsSpecificatie = BerekeningSpecificatie
-		Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerkenDomain, MaatwerkAanpassing)
-		Kill %GlobaleVariabeleBerekeningsSpecificatie
-		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
+	#dim IsBerekeningViaDotNetMaatwerkService As %Boolean = OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(IngegevenKenmerkenDomain.GeefVariant(),IngegevenKenmerkenDomain.GeefVersieNr())
+	If IsBerekeningViaDotNetMaatwerkService {
+		#dim DotNetMaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerkenDomain, KlantID, Aantal,)
+		Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(DotNetMaatwerkDetails)
+		Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(DotNetMaatwerkDetails)
+		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(DotNetMaatwerkDetails.ProbleemRapport))
+	} Else {
+		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%New()
+		#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
+		#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(PartijID, Aantal , Datum)
+		#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefHalffabContextVoorIngegevenKenmerken(IngegevenKenmerkenDomain, BerekeningSpecificatie)
+		#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
+		#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
 		
-		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = HalffabContext.HalffabItemsBoom
-		#dim HalffabrikatenVisitor As DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
 		
-		Do HalffabItemsBoom.Wortel.Accept(HalffabrikatenVisitor)
-		Set MaatwerkDetails.Halffabrikaten = HalffabrikatenVisitor.GeefHalffabItem()
+		Set IngegevenKenmerkenDomain = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerkenDomain, HalffabSpec.GeefVersieNrIngegevenKenmerken())
+
+		Try {
+			Set %GlobaleVariabeleBerekeningsSpecificatie = BerekeningSpecificatie
+			Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerkenDomain, MaatwerkAanpassing)
+			Kill %GlobaleVariabeleBerekeningsSpecificatie
+			Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
+			
+			Set HalffabItemsBoom = HalffabContext.HalffabItemsBoom
+			#dim HalffabrikatenVisitor As DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+			
+			Do HalffabItemsBoom.Wortel.Accept(HalffabrikatenVisitor)
+			Set MaatwerkDetails.Halffabrikaten = HalffabrikatenVisitor.GeefHalffabItem()
+			
+			#dim KostContext As DOM.PM.Maatwerk.Calc.Kost.KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerkenDomain.GeefFamilie(), IngegevenKenmerkenDomain.GeefVariant(), BerekeningSpecificatie)
+			Set KostItem  = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerkenDomain, MaatwerkAanpassing)
+			#dim KostenVisitor As DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor).%New()
+			
+			Do KostItem.Accept(KostenVisitor)
+			Set MaatwerkDetails.Kosten = KostenVisitor.GeefKostItem()
+		} Catch	{
+			Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
+			Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
+			Kill %GlobaleVariabeleBerekeningsSpecificatie
+		}
 		
-		#dim KostContext As DOM.PM.Maatwerk.Calc.Kost.KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerkenDomain.GeefFamilie(), IngegevenKenmerkenDomain.GeefVariant(), BerekeningSpecificatie)
-		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerkenDomain, MaatwerkAanpassing)
-		#dim KostenVisitor As DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemNaarDtoVisitor).%New()
+		Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen, $C(13,10))
 		
-		Do KostItem.Accept(KostenVisitor)
-		Set MaatwerkDetails.Kosten = KostenVisitor.GeefKostItem()
-	} Catch	{
-		Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
-		Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen()))
-		Kill %GlobaleVariabeleBerekeningsSpecificatie
+		Quit MaatwerkDetails
 	}
-	
-	Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen, $C(13,10))
-	
-	Quit MaatwerkDetails
 ]]></Implementation>
 </Method>