Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml =================================================================== diff -u -r54026 -r54028 --- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54026) +++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54028) @@ -80,6 +80,19 @@ Do $$$AssertEmptyList(..Differenciator.GetDifferences(AppsKenmerken, $ClassMethod(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).%ClassName($$$True), "SifonLadeMet1Uitsparing"))) ]]> + + + + Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml =================================================================== diff -u -r54026 -r54028 --- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54026) +++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54028) @@ -99,6 +99,18 @@ Do $$$AssertEmptyList(..Differenciator.GetDifferences(EconKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).%ClassName($$$True), "SifonLadeMet1Uitsparing"))) ]]> + + + + Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml =================================================================== diff -u -r54026 -r54028 --- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml (.../Tbx.cls.xml) (revision 54026) +++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml (.../Tbx.cls.xml) (revision 54028) @@ -153,7 +153,7 @@ Set TbxKenmerken.UitsparingData.X.Breedte = Kenmerken.UitsparingPositie1 Set TbxKenmerken.UitsparingData.X.Hoogte = RugHoogte Set TbxKenmerken.UitsparingData.X.Materiaal = Kenmerken.RugwandMateriaal - Set TbxKenmerken.UitsparingData.Y.Breedte = Kenmerken.CorpusBreedte - Kenmerken.UitsparingPositie1 - Kenmerken.UitsparingBreedte1 + Set TbxKenmerken.UitsparingData.Y.Breedte = Kenmerken.InterneBreedte - Kenmerken.UitsparingPositie1 - Kenmerken.UitsparingBreedte1 Set TbxKenmerken.UitsparingData.Y.Hoogte = RugHoogte Set TbxKenmerken.UitsparingData.Y.Materiaal = Kenmerken.RugwandMateriaal Set TbxKenmerken.UitsparingData.Z1.Breedte = Kenmerken.UitsparingBreedte1 @@ -164,12 +164,13 @@ If +Kenmerken.UitsparingBreedte2 > 0 { Set TbxKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() - Set TbxKenmerken.UitsparingData.M.Breedte = Kenmerken.UitsparingDataBreedteM + Set TbxKenmerken.UitsparingData.Y.Breedte = Kenmerken.UitsparingPositie2 + Set TbxKenmerken.UitsparingData.M.Breedte = Kenmerken.CorpusBreedte - Kenmerken.UitsparingPositie1 - Kenmerken.UitsparingBreedte1 - Kenmerken.UitsparingPositie2 - Kenmerken.UitsparingBreedte2 Set TbxKenmerken.UitsparingData.M.Hoogte = RugHoogte - Set TbxKenmerken.UitsparingData.M.Materiaal = Kenmerken.TussenrugMateriaal + Set TbxKenmerken.UitsparingData.M.Materiaal = Kenmerken.RugwandMateriaal Set TbxKenmerken.UitsparingData.Z2.Breedte = Kenmerken.UitsparingBreedte1 Set TbxKenmerken.UitsparingData.Z2.Hoogte = RugHoogte - Set TbxKenmerken.UitsparingData.Z2.Diepte = 250 + Set TbxKenmerken.UitsparingData.Z2.Diepte = 0 Set TbxKenmerken.UitsparingData.Z2.Vorm = "Recht" Set TbxKenmerken.UitsparingData.Z2.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal() } Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml =================================================================== diff -u -r54026 -r54028 --- vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54026) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54028) @@ -117,7 +117,16 @@