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