Index: APPS/PM/Maatwerk/impl/VhConfigHelper.cls.xml =================================================================== diff -u -r72876 -r74924 --- APPS/PM/Maatwerk/impl/VhConfigHelper.cls.xml (.../VhConfigHelper.cls.xml) (revision 72876) +++ APPS/PM/Maatwerk/impl/VhConfigHelper.cls.xml (.../VhConfigHelper.cls.xml) (revision 74924) @@ -13,11 +13,9 @@ -VhConfig:APPS.PM.Maatwerk.dto.VhConfig="" %Status @@ -30,7 +28,6 @@ -Rol:%String DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom TECH.ListIterator %ListOfDataTypes - @@ -64,6 +61,12 @@ If (..VhConfig.Model = "M_LBX") { Set LbxConverter = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.EncowayNaarDom.LbxKenmerken).%New() Set IngegevenKenmerken = LbxConverter.Converteer(..VhConfig) + } ElseIf (..VhConfig.Model = "M_MVX") { + Set MvxConverter = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.EncowayNaarDom.MvxKenmerken).%New() + Set IngegevenKenmerken = MvxConverter.Converteer(..VhConfig) + } ElseIf (..VhConfig.Model = "M_TBX") { + Set TbxConverter = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.EncowayNaarDom.TbxKenmerken).%New() + Set IngegevenKenmerken = TbxConverter.Converteer(..VhConfig) } Else { Do ##class(TECH.ExceptionHandler).Throw("Er is nog geen implementatie voor het ophalen van de kenmerken van model " _ ..VhConfig.Model _ ".") } @@ -73,11 +76,11 @@ -Taal:%String="nl-BE" +Taal:DOM.enu.TaalCodeLandCode="nl-BE" %String %String - @@ -136,25 +139,25 @@ %String - %String - %String - %String -