Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml
===================================================================
diff -u -r54023 -r54026
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54023)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54026)
@@ -67,6 +67,19 @@
Do $$$AssertEmptyList(..Differenciator.GetDifferences(AppsKenmerken, $ClassMethod(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).%ClassName($$$True), "StandaardLadeMetNietMeeleveren")))
]]>
+
+
+
+
Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml
===================================================================
diff -u -r54013 -r54026
--- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54013)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 54026)
@@ -81,12 +81,24 @@
#dim Converter As ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Tbx = ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Tbx).%New()
#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = Converter.Converteer(AppsKenmerken)
- Do ##class(Tools.Wlip).%New(127).ObjToXML(EconKenmerken)
- Do ##class(Tools.Wlip).%New(127).ObjToXML(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLadeMetNietMeeleveren())
+ Write $$ObjToXML^vhLib(EconKenmerken)
+ Write $$ObjToXML^vhLib(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLadeMetNietMeeleveren())
Do $$$AssertEmptyList(..Differenciator.GetDifferences(EconKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).%ClassName($$$True), "StandaardLadeMetNietMeeleveren")))
]]>
+
+
+
+
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml
===================================================================
diff -u -r54023 -r54026
--- vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54023)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 54026)
@@ -98,7 +98,12 @@
+
+
+1
+ 0 {
+
+ #dim RugHoogte As DOM.PM.enu.LBXRugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+
+ Set TbxKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+ 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.Hoogte = RugHoogte
+ Set TbxKenmerken.UitsparingData.Y.Materiaal = Kenmerken.RugwandMateriaal
+ Set TbxKenmerken.UitsparingData.Z1.Breedte = Kenmerken.UitsparingBreedte1
+ Set TbxKenmerken.UitsparingData.Z1.Hoogte = RugHoogte
+ Set TbxKenmerken.UitsparingData.Z1.Diepte = 0
+ Set TbxKenmerken.UitsparingData.Z1.Vorm = "Recht"
+ Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+
+ If +Kenmerken.UitsparingBreedte2 > 0 {
+ Set TbxKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+ Set TbxKenmerken.UitsparingData.M.Breedte = Kenmerken.UitsparingDataBreedteM
+ Set TbxKenmerken.UitsparingData.M.Hoogte = RugHoogte
+ Set TbxKenmerken.UitsparingData.M.Materiaal = Kenmerken.TussenrugMateriaal
+ Set TbxKenmerken.UitsparingData.Z2.Breedte = Kenmerken.UitsparingBreedte1
+ Set TbxKenmerken.UitsparingData.Z2.Hoogte = RugHoogte
+ Set TbxKenmerken.UitsparingData.Z2.Diepte = 250
+ Set TbxKenmerken.UitsparingData.Z2.Vorm = "Recht"
+ Set TbxKenmerken.UitsparingData.Z2.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+ }
+ }
+]]>
+
+
1
@@ -180,8 +220,6 @@