Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken.cls.xml
===================================================================
diff -u -r74080 -r74081
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 74080)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 74081)
@@ -23,7 +23,11 @@
Do LbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MatKenmerken, ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
}
- //SST
+ #dim HeeftSST As %Boolean = (VhConfig.Characteristics.GetAt("Application") = ..Enum.Klasse.SpaceStep)
+ If (HeeftSST = $$$True) {
+ #dim SstKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = ..ConverteerSstKenmerken(.LbxKenmerken, VhConfig)
+ Do LbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(SstKenmerken, ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+ }
Quit LbxKenmerken
]]>
@@ -41,7 +45,7 @@
Set LbxKenmerken.HeeftOpvullijstLinks = $Select(VhConfig.Characteristics.GetAt("HasDistanceTrimLeft") = "true": $$$True, 1: $$$False)
Set LbxKenmerken.HeeftOpvullijstRechts = $Select(VhConfig.Characteristics.GetAt("HasDistanceTrimRight") = "true": $$$True, 1: $$$False)
Set LbxKenmerken.HeeftZijstabilisering = $Select(VhConfig.Characteristics.GetAt("HasSideStabiliser") = "true": $$$True, 1: $$$False)
- Set LbxKenmerken.InterneBreedte = VhConfig.Characteristics.GetAt("InternalWidth")
+ Set LbxKenmerken.InterneBreedte = VhConfig.CalculatedCharacteristics.InternalWidth
Set LbxKenmerken.IsBinnenlade = $Select(VhConfig.Characteristics.GetAt("IsInnerBoxSystem") = "true": $$$True, 1: $$$False)
Set LbxKenmerken.LadeDiepte = VhConfig.Characteristics.GetAt("BoxSystemDepth")
Set LbxKenmerken.LadeHoogte = VhConfig.Characteristics.GetAt("BoxSystemHeight")
@@ -195,6 +199,25 @@
Quit MatKenmerken
]]>
+
+
+
+DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken
+
+
Index: vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken/Converteer/Test.cls.xml
===================================================================
diff -u -r74080 -r74081
--- vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 74080)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/LbxKenmerken/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 74081)
@@ -22,8 +22,7 @@
Do ..Assert("BaseColour", "RandomKleur", "BodemKleur", "RandomKleur")
Do ..Assert("LoadBearingCapacity", "RandomDraagkracht", "Draagkracht", "RandomDraagkracht")
Do ..Assert("FrontAttachment", "RandomFrontBevestiging", "FrontBevestiging", "RandomFrontBevestiging")
- Do ..Assert("RunnerSystem", "RandomGeleiderTechnologie", "GeleiderTechnologie", "RandomGeleiderTechnologie")
- Do ..Assert("InternalWidth", 500, "InterneBreedte", 500)
+ Do ..Assert("RunnerSystem", "RandomGeleiderTechnologie", "GeleiderTechnologie", "RandomGeleiderTechnologie")
Do ..Assert("BoxSystemDepth", "RandomLadeDiepte", "LadeDiepte", "RandomLadeDiepte")
Do ..Assert("BoxSystemHeight", "RandomLadeHoogte", "LadeHoogte", "RandomLadeHoogte")
Do ..Assert("BoxSystemColour", "RandomLadeKleur", "LadeKleur", "RandomLadeKleur")
@@ -192,15 +191,24 @@
+
+
+
+
DtoKenmerkNaam:%String,DtoKenmerkWaarde:%String,VerwachteDomKenmerkNaam:%String,VerwachteDomKenmerkWaarde:%String
1
@@ -273,7 +281,7 @@
]]>
-
+
DtoKenmerken:%ArrayOfDataTypes,GekoppeldIKType:%String,IsAanwezig:%Boolean,VerwachteDomKenmerken:TECH.KeyValue.List=""