Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml =================================================================== diff -u -r57056 -r57062 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml (.../HalffabGeleider.cls.xml) (revision 57056) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml (.../HalffabGeleider.cls.xml) (revision 57062) @@ -92,9 +92,14 @@ #dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||1000" #dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance() - #dim BerekenDatum As %Date = $G(%GlobaleVariabeleBerekenDatum) ; wordt gezet in APPS.PM.Maatwerk.MaatwerkService.cls method GeefMaatwerkDetailsVoorDomeinKenmerken() - Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,,BerekenDatum) - Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()) + #dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie + If ($IsObject($G(%GlobaleVariabeleBerekeningsSpecificatie))) { + Set BerekeningsSpecificatie = %GlobaleVariabeleBerekeningsSpecificatie ; wordt gezet in APPS.PM.Maatwerk.MaatwerkService.cls method GeefMaatwerkDetailsVoorDomeinKenmerken() + } + Else { + Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality) + Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()) + } #dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext Set HalffabContext = ..ProductService.GeefHalffabContext(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).LegraboxPure(),BerekeningsSpecificatie)