Index: WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml =================================================================== diff -u -r63645 -r63879 --- WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml (.../Viewer.cls.xml) (revision 63645) +++ WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml (.../Viewer.cls.xml) (revision 63879) @@ -23,6 +23,11 @@ 1 + +DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler +1 + + WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter 1 @@ -69,6 +74,7 @@ Set ..IKConverter = $$$Inject(IKConverter,##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()) Set ..MaatwerkService = $$$Inject(MaatwerkService,##class(APPS.PM.Maatwerk.MaatwerkService).%New()) 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() Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()) set ..MaatwerkCalcAPI =$$$Inject(MaatwerkCalcAPI,##class(DOM.PM.impl.MaatwerkCalcAPI).%New()) @@ -112,10 +118,7 @@ #dim HFBoom as DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom #dim KostenBoom as DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem - #dim IsBerekeningViaDotNetMaatwerkService As %Boolean = $$$False - If (DOMIngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).MVX()) { - Set IsBerekeningViaDotNetMaatwerkService = $$$True - } + #dim IsBerekeningViaDotNetMaatwerkService As %Boolean = ..OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(DOMIngegevenKenmerken.GeefVariant(), DOMIngegevenKenmerken.GeefVersieNr()) If IsBerekeningViaDotNetMaatwerkService { #dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(DOMIngegevenKenmerken, KlantID, MaatwerkViewerRequest.Aantal, "") Set HFBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails) @@ -126,7 +129,7 @@ } #dim HFIterator as TECH.Iterator= HFBoom.GeefHalffabItemsIterator() - + Do ..HalfFabVisitorWriter.ZetKostBoom(KostenBoom) Do ..HalfFabVisitorWriter.ZetExcelWriter(..ExcelWriter)