Index: vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/DomNaarEncoway/LbxKenmerken/Converteer/Test.cls.xml =================================================================== diff -u -r73580 -r73627 --- vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/DomNaarEncoway/LbxKenmerken/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 73580) +++ vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/DomNaarEncoway/LbxKenmerken/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 73627) @@ -29,10 +29,12 @@ Do ..Assert("LadeHoogte", "RandomLadeHoogte", "BoxSystemHeight", "RandomLadeHoogte") Do ..Assert("LadeKleur", "RandomLadeKleur", "BoxSystemColour", "RandomLadeKleur") Do ..Assert("LadeKleurBuiten", "RandomLadeKleurBuiten", "BoxSystemColourOuter", "RandomLadeKleurBuiten") - Do ..Assert("MeenemerSet", "RandomMeenemerSet", "LatchSet", "RandomMeenemerSet") + Do ..Assert("MeenemerSet", "", "LatchSet", "No") + Do ..Assert("MeenemerSet", "V", "LatchSet", "Latch") Do ..Assert("OpvullijstKleur", "RandomOpvullijstKleur", "DistanceTrimColour", "RandomOpvullijstKleur") Do ..Assert("RugHoogte", "RandomRugHoogte", "BackHeight", "RandomRugHoogte") - Do ..Assert("RugWandMateriaal", "RandomRugwandMateriaal", "BackSideMaterial", "RandomRugwandMateriaal") + Do ..Assert("RugWandMateriaal", "Hout", "BackSideMaterial", "Wood") + Do ..Assert("RugWandMateriaal", "Staal", "BackSideMaterial", "Steel") Do ..Assert("Klasse", "RandomToepassing", "Application", "RandomToepassing") Do ..Assert("VerpakkingType", "RandomVerpakkingType", "TypeOfPackaging", "RandomVerpakkingType") Do ..Assert("ZijWandType", "RandomZijwandtype", "SideType", "RandomZijwandtype") @@ -68,12 +70,12 @@ @@ -141,14 +143,14 @@ Do ..AssertSST("SpaceStepPlinthHeight", "200") Do ..AssertSST("SpaceStepServodrive", "true") Do ..AssertSST("SpaceStepPlugType", "EU") - Do ..AssertSST("SpaceStepVersion", "Volledig") + Do ..AssertSST("SpaceStepVersion", "Full") Do ..AssertSST("SpaceStepColour", "OG-M") ]]> Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/DomNaarEncoway/LbxKenmerken.cls.xml =================================================================== diff -u -r73580 -r73627 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/DomNaarEncoway/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 73580) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/DomNaarEncoway/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 73627) @@ -38,6 +38,7 @@ Do ..ConverteerProductieWijze(DomKenmerken, .Kenmerken) Do ..ConverteerCorpusBreedte(DomKenmerken, .Kenmerken) Do ..ConverteerStandaardProperties(DomKenmerken, .Kenmerken) + Do ..ConverteerDwarsVerdelingType(DomKenmerken, .Kenmerken) Do ..ConverteerVoorwandType(DomKenmerken, .Kenmerken) Do ..ConverteerGUIKenmerken(DomKenmerken, .Kenmerken) Do ..ConverteerUitsparingData(DomKenmerken, .Kenmerken) @@ -56,7 +57,7 @@ Set Kenmerken.CrossGalleryQuantity = DomKenmerken.AantalDwarsverdelingen Set Kenmerken.LoadBearingCapacity = DomKenmerken.Draagkracht Set Kenmerken.BaseColour = DomKenmerken.BodemKleur - Set Kenmerken.CrossGalleryType = DomKenmerken.DwarsverdelingType + Set Kenmerken.FrontAttachment = DomKenmerken.FrontBevestiging Set Kenmerken.RunnerSystem = DomKenmerken.GeleiderTechnologie Set Kenmerken.HasDistanceTrimLeft = $Select(DomKenmerken.HeeftOpvullijstLinks: "true", 1: "false") @@ -68,17 +69,33 @@ Set Kenmerken.BoxSystemHeight = DomKenmerken.LadeHoogte Set Kenmerken.BoxSystemColour = DomKenmerken.LadeKleur Set Kenmerken.BoxSystemColourOuter = DomKenmerken.LadeKleurBuiten - Set Kenmerken.LatchSet = $Select(DomKenmerken.MeenemerSet = ##class(DOM.PM.enu.LBXMeenemerSet).Zonder(): "Z", 1: DomKenmerken.MeenemerSet) + Set Kenmerken.LatchSet = $Select(DomKenmerken.MeenemerSet = ##class(DOM.PM.enu.LBXMeenemerSet).Zonder(): "No", 1: "Latch") Set Kenmerken.DistanceTrimColour = DomKenmerken.OpvullijstKleur Set Kenmerken.BackHeight = DomKenmerken.RugHoogte - Set Kenmerken.BackSideMaterial = DomKenmerken.RugWandMateriaal + Set Kenmerken.BackSideMaterial = $Select(DomKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal(): "Steel", 1: "Wood") Set Kenmerken.Application = DomKenmerken.Klasse Set Kenmerken.TypeOfPackaging = DomKenmerken.VerpakkingType Set Kenmerken.SideType = DomKenmerken.ZijWandType Set Kenmerken.IsUserSelectedBackHeight = $Select(DomKenmerken.RugHoogte = DomKenmerken.LadeHoogte: "false", 1: "true") ]]> + + +1 + + + 1 @@ -113,21 +130,21 @@ If (DomKenmerken.IsBinnenlade) { If (DomKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) { If ((DomKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) && (DomKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant)) { - Set Kenmerken.FrontType = "GlasLaag" + Set Kenmerken.FrontType = "GlassLow" } ElseIf (DomKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk) { - Set Kenmerken.FrontType = "Metaal" + Set Kenmerken.FrontType = "Metal" } } ElseIf (DomKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) { If ((DomKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) && (DomKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant) && (DomKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Laag)) { - Set Kenmerken.FrontType = "GlasLaag" + Set Kenmerken.FrontType = "GlassLow" } ElseIf ((DomKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) && (DomKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant) && (DomKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Hoog)) { - Set Kenmerken.FrontType = "GlasHoog" + Set Kenmerken.FrontType = "GlassHigh" } ElseIf (DomKenmerken.VoorWandType = ..Enum.VoorWandType.Reling) { - Set Kenmerken.FrontType = "Reling" + Set Kenmerken.FrontType = "Gallery" } } ElseIf (DomKenmerken.LadeHoogte = ..Enum.LadeHoogte.K) { If (DomKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk) { - Set Kenmerken.FrontType = "Metaal" + Set Kenmerken.FrontType = "Metal" } } } @@ -148,7 +165,14 @@ 1