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