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=""