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
-