Index: DOM/PM/Maatwerk/Calc/Common/impl/OmleidingNaarDotNetHelper.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/impl/OmleidingNaarDotNetHelper.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/impl/OmleidingNaarDotNetHelper.cls.xml	(revision 63869)
@@ -0,0 +1,133 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetHelper">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ConfigManager">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RuntimeContext">
+<Type>TECH.Context.RuntimeContext</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ApplicatieToReset">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigManager = ##class(TECH.Config.ConfigMgr).Instance()
+	Set ..RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetRuntimeContextApplicatie">
+<FormalSpec>Applicatie:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (Applicatie = "") {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Error in ZetRuntimeContextApplicatie: Applicate mag niet leeg zijn in deze oproep.")
+	}
+	Set ..ApplicatieToReset = ..RuntimeContext.GeefApplicatie()
+	Do ..RuntimeContext.ZetApplicatie(Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOmleidingActiefVoorLbx">
+<FormalSpec>Applicatie:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	If (Applicatie = "") {
+		Set Applicatie = ..RuntimeContext.GeefApplicatie()
+	}
+	#dim SleutelVoorLbx As %String = "DOM.common.ProjectSettingsAPI_IsActiefBomBolOmleidingNaarDotNetVoorLbx"
+	#dim WaardeActief As %Boolean = $$$True
+	If ..ConfigManager.BestaatSleutel(SleutelVoorLbx) {
+		Do ..ConfigManager.SetBoolean(SleutelVoorLbx, WaardeActief, Applicatie)
+	}
+	Do ##class(vhLib.Logger).%New("").Info("ZetOmleidingActiefVoorLbx","OmleidingNaarDotNetHelper: ConfigItem voor LBX actief gezet voor applicatie '"_Applicatie_"'.")
+]]></Implementation>
+</Method>
+
+<Method name="ResetOmleidingActiefVoorLbx">
+<FormalSpec>Applicatie:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	If (Applicatie = "") {
+		Set Applicatie = ..RuntimeContext.GeefApplicatie()
+	}
+	#dim SleutelVoorLbx As %String = "DOM.common.ProjectSettingsAPI_IsActiefBomBolOmleidingNaarDotNetVoorLbx"
+	Do ..WisConfigItemIsActiefVoorApplicatie(SleutelVoorLbx,Applicatie)
+	Do ..ResetRuntimeContext(Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="WisConfigItemIsActiefVoorApplicatie">
+<FormalSpec>Sleutel:%String,Applicatie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Applicatie = "" {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Error in WisConfigItemIsActiefVoorApplicatie: Applicate mag niet leeg zijn in deze oproep. Indien nodig dan rechtstreeks via ConfigManager oproepen.")
+	}
+
+	If ..ConfigManager.BestaatSleutel(Sleutel) {
+		Do ..ConfigManager.WisSleutel(Sleutel, Applicatie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ResetRuntimeContext">
+<FormalSpec>Applicatie:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$HasLength(..ApplicatieToReset) {
+		Do ..RuntimeContext.ZetApplicatie(..ApplicatieToReset)
+		Set ..ApplicatieToReset = ""
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =====================
+  |  PRIVATE METHODS  |
+  =====================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="TemplateCode">
+<Description>
+De implementatie hieronder kan gebruikt worden om de "OmleidingNaarDotNet"-flag voor LBX te activeren, voor een specifieke applicatie.
+De Try-catch is belangrijk, want als de service-call crasht, dan moet de setting alsnog ge-reset worden.</Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	#dim Applicatie As %String = "HADWIZ.ProductDetailBlad"   ; in te vullen voor specifieke applicatie. Vrije keuze, moet niet op een andere plaats reeds gekend zijn. 
+	Set OmleidingNaarDotNetHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetHelper).%New()
+	Do OmleidingNaarDotNetHelper.ZetRuntimeContextApplicatie(Applicatie)
+	Do OmleidingNaarDotNetHelper.ZetOmleidingActiefVoorLbx(Applicatie)   ; Deze lijn is de toggle tussen AAN/AF , m.a.w. naar .NET of in caché blijven
+	
+	Try {
+		;Do EenderWelkeService.VoerUitBewerkingMetMaatwerkCalculatie(InputParameters)
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do OmleidingNaarDotNetHelper.ResetOmleidingActiefVoorLbx(Applicatie)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Do OmleidingNaarDotNetHelper.ResetOmleidingActiefVoorLbx(Applicatie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/OmleidingNaarDotNetBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/impl/OmleidingNaarDotNetBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/impl/OmleidingNaarDotNetBepaler.cls.xml	(revision 63869)
@@ -0,0 +1,263 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.enu.Variant.Verwerker</Super>
+
+<Property name="IsActiefOmleidingNaarDotNet">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftHFBuildersInDotNet">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftHFBuildersInCache">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftHFBuildersInCacheVoorPrijsBerekening">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HeeftHFBuildersInCacheVoorProductieAansturing">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenVersie">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigManager">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigManager = ##class(TECH.Config.ConfigMgr).Instance()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsMaatwerkCalculatieInDotNet">
+<FormalSpec>Variant:DOM.PM.enu.Variant,IngegevenKenmerkenVersie:%Integer=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..BepaalOmleidingNaarDotNetParameters(Variant,IngegevenKenmerkenVersie)
+	Quit (..HeeftHFBuildersInDotNet && ..IsActiefOmleidingNaarDotNet)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHFBuildersInDotNet">
+<FormalSpec>Variant:DOM.PM.enu.Variant,IngegevenKenmerkenVersie:%Integer=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..BepaalOmleidingNaarDotNetParameters(Variant,IngegevenKenmerkenVersie)
+	Quit (..HeeftHFBuildersInDotNet = $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHFBuildersInCache">
+<FormalSpec>Variant:DOM.PM.enu.Variant,IngegevenKenmerkenVersie:%Integer=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..BepaalOmleidingNaarDotNetParameters(Variant,IngegevenKenmerkenVersie)
+	Quit (..HeeftHFBuildersInCache = $$$True)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =======================
+  |  VERWERKER METHODS  |
+  =======================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="BepaalOmleidingNaarDotNetParameters">
+<FormalSpec>Variant:DOM.PM.enu.Variant,IngegevenKenmerkenVersie:%Integer=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenVersie = IngegevenKenmerkenVersie
+	Do ..ResetOmleidingNaarDotNetParameters()
+	Do ..Verwerk(Variant)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBasis">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Exceptions.UnimplementedException).Throw("OmleidingNaarDotNetBepaler heeft geen implementatie voor Variant '"_"Basis"_"'.")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMDS">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Exceptions.UnimplementedException).Throw("OmleidingNaarDotNetBepaler heeft geen implementatie voor Variant '"_"MDS"_"'.")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOrgaluxOpMaat">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInDotNet = $$$False
+	Set ..IsActiefOmleidingNaarDotNet = $$$False
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMatStandaard">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInDotNet = $$$True
+	Set ..IsActiefOmleidingNaarDotNet = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingMattenNaarDotNet()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLegraboxPure">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInDotNet = $$$True
+	
+	#dim IsActiefProjectSettingLbx As %Boolean = ..ConfigManager.GetBoolean("DOM.common.ProjectSettingsAPI_IsActiefBomBolOmleidingNaarDotNetVoorLbx")
+	d WLIP^vhDBG(97,"VerwerkLegraboxPure: "_IsActiefProjectSettingLbx_"  "_(..IngegevenKenmerkenVersie = 1))
+	Set ..IsActiefOmleidingNaarDotNet = (..IngegevenKenmerkenVersie = 1) && (IsActiefProjectSettingLbx)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMerivobox">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$False
+	Set ..HeeftHFBuildersInDotNet = $$$True
+	Set ..IsActiefOmleidingNaarDotNet = $$$True
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSpaceStep">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInDotNet = $$$False
+	Set ..IsActiefOmleidingNaarDotNet = $$$False
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTaorbox">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInDotNet = $$$False
+	Set ..IsActiefOmleidingNaarDotNet = $$$False
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemboxAntaro">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInCacheVoorPrijsBerekening = $$$False
+	Set ..HeeftHFBuildersInCacheVoorProductieAansturing = $$$True
+	
+	Set ..HeeftHFBuildersInDotNet = $$$False
+	Set ..IsActiefOmleidingNaarDotNet = $$$False
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemboxMengvorm">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VerwerkTandemboxAntaro()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemboxPlus">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..HeeftHFBuildersInCache = $$$True
+	Set ..HeeftHFBuildersInCacheVoorPrijsBerekening = $$$False
+	Set ..HeeftHFBuildersInCacheVoorProductieAansturing = $$$True
+	
+	Set ..HeeftHFBuildersInDotNet = $$$False
+	Set ..IsActiefOmleidingNaarDotNet = $$$False
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemboxIntivo">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VerwerkTandemboxPlus()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemboxBaliko">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Exceptions.UnimplementedException).Throw("OmleidingNaarDotNetBepaler heeft geen implementatie voor Variant '"_"TandemboxBaliko"_"'.")
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =====================
+  |  PRIVATE METHODS  |
+  =====================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="ResetOmleidingNaarDotNetParameters">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..IsActiefOmleidingNaarDotNet = ""
+	Set ..HeeftHFBuildersInCache = ""
+	Set ..HeeftHFBuildersInCacheVoorPrijsBerekening = ""
+	Set ..HeeftHFBuildersInCacheVoorProductieAansturing = ""
+	Set ..HeeftHFBuildersInDotNet = ""
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHFBuildersInCacheSet">
+<Description>
+Setter method voor property "HeeftHFBuildersInCache".  By default worden ook de 2 meer specifieke flags ingevuld. Alleen bij TBX is er momenteel een afwijking van de default. </Description>
+<FormalSpec>Value:%Boolean</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set i%HeeftHFBuildersInCache = Value
+	Set i%HeeftHFBuildersInCacheVoorPrijsBerekening = Value
+	Set i%HeeftHFBuildersInCacheVoorProductieAansturing = Value
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDtoVanPrivateProperties">
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+ /*
+	Set OmleidingNaarDotNetDto = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetDto).%New()
+	Set OmleidingNaarDotNetDto.IsActiefOmleidingNaarDotNet = ..IsActiefOmleidingNaarDotNet
+	Set OmleidingNaarDotNetDto.HeeftHFBuildersInDotNet = ..HeeftHFBuildersInDotNet
+	Set OmleidingNaarDotNetDto.HeeftHFBuildersInCache = ..HeeftHFBuildersInCache
+	Set OmleidingNaarDotNetDto.HeeftHFBuildersInCacheVoorPrijsBerekening = ..HeeftHFBuildersInCacheVoorPrijsBerekening
+	Set OmleidingNaarDotNetDto.HeeftHFBuildersInCacheVoorProductieAansturing = ..HeeftHFBuildersInCacheVoorProductieAansturing
+	Quit OmleidingNaarDotNetDto
+ */
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>