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