Index: vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken/Converteer/Test.cls.xml =================================================================== diff -u -r74081 -r74083 --- vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 74081) +++ vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 74083) @@ -32,6 +32,8 @@ Do ..Assert("DistanceTrimColour", "RandomOpvullijstKleur", "OpvullijstKleur", "RandomOpvullijstKleur") Do ..Assert("BackHeight", "RandomRugHoogte", "RugHoogte", "RandomRugHoogte") Do ..Assert("BackSideMaterial", "RandomRugwandMateriaal", "RugWandMateriaal", "RandomRugwandMateriaal") + Do ..Assert("BackSideMaterial", "Wood", "RugWandMateriaal", "Hout") + Do ..Assert("BackSideMaterial", "Steel", "RugWandMateriaal", "Staal") Do ..Assert("Application", "RandomToepassing", "Klasse", "RandomToepassing") Do ..Assert("TypeOfPackaging", "RandomVerpakkingType", "VerpakkingType", "RandomVerpakkingType") Do ..Assert("SideType", "RandomZijwandtype", "ZijWandType", "RandomZijwandtype") Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken.cls.xml =================================================================== diff -u -r74081 -r74083 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 74081) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 74083) @@ -54,7 +54,7 @@ Set LbxKenmerken.MeenemerSet = $Select(VhConfig.Characteristics.GetAt("LatchSet") = "No": ##class(DOM.PM.enu.LBXMeenemerSet).Zonder(), 1: ##class(DOM.PM.enu.LBXMeenemerSet).VolledigeSet()) Set LbxKenmerken.OpvullijstKleur = VhConfig.Characteristics.GetAt("DistanceTrimColour") Set LbxKenmerken.RugHoogte = VhConfig.Characteristics.GetAt("BackHeight") - Set LbxKenmerken.RugWandMateriaal = $Select(VhConfig.Characteristics.GetAt("BackSideMaterial") = "Steel": ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(), "Wood": ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 1: VhConfig.Characteristics.GetAt("BackSideMaterial")) + Set LbxKenmerken.RugWandMateriaal = $Select(VhConfig.Characteristics.GetAt("BackSideMaterial") = "Steel": ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(), VhConfig.Characteristics.GetAt("BackSideMaterial") = "Wood": ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout(), 1: VhConfig.Characteristics.GetAt("BackSideMaterial")) Set LbxKenmerken.Klasse = VhConfig.Characteristics.GetAt("Application") Set LbxKenmerken.VerpakkingType = VhConfig.Characteristics.GetAt("TypeOfPackaging") Set LbxKenmerken.ZijWandType = VhConfig.Characteristics.GetAt("SideType") @@ -213,7 +213,7 @@ Set SstKenmerken.Kleur = VhConfig.Characteristics.GetAt("SpaceStep.Colour") Set SstKenmerken.StekkerServodrive =$Select(VhConfig.Characteristics.GetAt("SpaceStep.Servodrive") = "true": $$$True, 1: $$$False) Set SstKenmerken.StekkerType = $Select(VhConfig.Characteristics.GetAt("SpaceStep.PlugType") = "US" : "VS", 1: VhConfig.Characteristics.GetAt("SpaceStep.PlugType")) - Set SstKenmerken.Uitvoering = $Select(VhConfig.Characteristics.GetAt("SpaceStep.Version") = "Full" : ##class(DOM.PM.enu.SSTUitvoering).Volledig(), "PlinthAndTablet" : ##class(DOM.PM.enu.SSTUitvoering).SokkelEnTablet() , "Tablet" : ##class(DOM.PM.enu.SSTUitvoering).Tablet(), 1: VhConfig.Characteristics.GetAt("SpaceStep.Version")) + Set SstKenmerken.Uitvoering = $Select(VhConfig.Characteristics.GetAt("SpaceStep.Version") = "Full" : ##class(DOM.PM.enu.SSTUitvoering).Volledig(), VhConfig.Characteristics.GetAt("SpaceStep.Version") = "PlinthAndTablet" : ##class(DOM.PM.enu.SSTUitvoering).SokkelEnTablet() , VhConfig.Characteristics.GetAt("SpaceStep.Version") = "Tablet" : ##class(DOM.PM.enu.SSTUitvoering).Tablet(), 1: VhConfig.Characteristics.GetAt("SpaceStep.Version")) Quit SstKenmerken ]]>