Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml =================================================================== diff -u -r54028 -r54029 --- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54028) +++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54029) @@ -93,6 +93,19 @@ Do $$$AssertEmptyList(..Differenciator.GetDifferences(AppsKenmerken, $ClassMethod(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).%ClassName($$$True), "SifonLadeMet2Uitsparingen"))) ]]> + + + + Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml =================================================================== diff -u -r54028 -r54029 --- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54028) +++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54029) @@ -111,6 +111,18 @@ Do $$$AssertEmptyList(..Differenciator.GetDifferences(EconKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).%ClassName($$$True), "SifonLadeMet2Uitsparingen"))) ]]> + + + + Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml =================================================================== diff -u -r54028 -r54029 --- vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54028) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54029) @@ -142,6 +142,7 @@ Set TBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion() Set TBXKenmerken.IsBinnenbreedte = $$$False + Set TBXKenmerken.InterneBreedte = 514 Set TBXKenmerken.CorpusWandDikte = 18 Set TBXKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TBXKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm() Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r54028 -r54029 --- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54028) +++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54029) @@ -150,17 +150,24 @@ #dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..StandaardLade() Set TbxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion() - Set TbxKenmerken.HeeftZijstabilisering = $$$True - Set TbxKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() - Set TbxKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit() + Set TbxKenmerken.HeeftZijstabilisering = $$$False + Set TbxKenmerken.HeeftOpvullijstLinks = $$$True + Set TbxKenmerken.HeeftOpvullijstRechts = $$$True + Set TbxKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Wit() + Set TbxKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() + Set TbxKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm() Set TbxKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() Set TbxKenmerken.BodemKleur = ##class(DOM.PM.enu.TBXBodemKleur).Wit() + Set TbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).C() Set TbxKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).C() Set TbxKenmerken.IsBinnenlade = $$$False Set TbxKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta() Set TbxKenmerken.DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Drie() Set TbxKenmerken.Antislipmat = ##class(DOM.PM.enu.TBXAntislipmat).WitAgoFiber() - Set TbxKenmerken.CorpusBinnenbreedte = 564 + Set TbxKenmerken.CorpusBinnenbreedte = 514 + Set TbxKenmerken.InterneBreedte = 514 + Set TbxKenmerken.GUIKenmerken.CorpusWandDikte = 18 + Set TbxKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False Quit TbxKenmerken ]]>