Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml =================================================================== diff -u -r2302 -r3391 --- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 2302) +++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml (.../ConfiguratorService.cls.xml) (revision 3391) @@ -196,7 +196,8 @@ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen kenmerken opgeslagen in dit pad onder de naam "_Naam)) } Set BewaardeKenmerken = PadImpl.GeefBewaardeKenmerken(Naam) - Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(BewaardeKenmerken.GeefIngegevenKenmerken(), GevraagdeVersie) + Set IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI() + Set IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(BewaardeKenmerken.GeefIngegevenKenmerken(), GevraagdeVersie) Set KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New() Do IngegevenKenmerken.Accept(KenmerkNaarDtoVisitor) @@ -241,8 +242,9 @@ } Set Visitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New() + Set IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI() Set IngegevenKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken() - Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(IngegevenKenmerken, GevraagdeVersie) + Set IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerken, GevraagdeVersie) Do IngegevenKenmerken.Accept(Visitor) Quit Visitor.GeefIngegevenKenmerken()