Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml =================================================================== diff -u -r45606 -r57055 --- APPS/PM/Maatwerk/MaatwerkService.cls.xml (.../MaatwerkService.cls.xml) (revision 45606) +++ APPS/PM/Maatwerk/MaatwerkService.cls.xml (.../MaatwerkService.cls.xml) (revision 57055) @@ -101,7 +101,9 @@ Set IngegevenKenmerkenDomain = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerkenDomain, HalffabSpec.GeefVersieNrIngegevenKenmerken()) Try { + Set %GlobaleVariabeleBerekenDatum = Datum Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerkenDomain, MaatwerkAanpassing) + Kill %GlobaleVariabeleBerekenDatum Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen())) #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = HalffabContext.HalffabItemsBoom @@ -119,6 +121,7 @@ } Catch { Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException") Do Problemen.Insert(..MaakStringVanMaatwerkProblemen(HalffabContext.GeefBerekeningProblemen())) + Kill %GlobaleVariabeleBerekenDatum } Set MaatwerkDetails.ProbleemRapport = ##class(TECH.ListUtils).ListToPieces(Problemen, $C(13,10))