Index: APPS/PM/Maatwerk/impl/VhConfigHelper.cls.xml
===================================================================
diff -u -r73543 -r74924
--- APPS/PM/Maatwerk/impl/VhConfigHelper.cls.xml (.../VhConfigHelper.cls.xml) (revision 73543)
+++ APPS/PM/Maatwerk/impl/VhConfigHelper.cls.xml (.../VhConfigHelper.cls.xml) (revision 74924)
@@ -39,17 +39,17 @@
TECH.ListIterator
%ListOfDataTypes
-
@@ -61,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 _ ".")
}
@@ -74,7 +80,7 @@
%String
%String
-
@@ -133,13 +139,13 @@
%String
-
%String
-
@@ -151,7 +157,7 @@
%String
-