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
]]>