Index: vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/TestLbx.cls.xml =================================================================== diff -u -r40414 -r40417 --- vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/TestLbx.cls.xml (.../TestLbx.cls.xml) (revision 40414) +++ vhUnitTest/ECONimpl/PM/Maatwerk/Converter/ConverteerEconNaarApps/TestLbx.cls.xml (.../TestLbx.cls.xml) (revision 40417) @@ -46,7 +46,7 @@ Set Converter = ##class(ECONimpl.PM.Maatwerk.Converter).%New() #dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = Converter.ConverteerEconNaarApps(LbxKenmerken) - Do $$$AssertObject(GeconverteerdeKenmerken,$ClassMethod("vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken",SoortLade)) + Do $$$AssertEmptyList(##class(TECH.ObjectUtils.impl.DifferenciatorXmlBased).%New().GetDifferences(GeconverteerdeKenmerken,$ClassMethod("vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken",SoortLade))) ]]> Index: vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml =================================================================== diff -u -r40374 -r40417 --- vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml (.../LBXKenmerken.cls.xml) (revision 40374) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml (.../LBXKenmerken.cls.xml) (revision 40417) @@ -124,8 +124,12 @@ Set LbxKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Zwart() Set LbxKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal() Set LbxKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free() - //Set LbxKenmerken.MatAntislipFiberKleur = ##class(ECON.PM.Maatwerk.enu.TBXMatAntislipFiberKleur).AntiSlipFiberWit() + Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New() + Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber() + Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit() + Do LbxKenmerken.GekoppeldeIngegevenKenmerken.Insert(MATKenmerken) + Quit LbxKenmerken ]]> Index: ECONimpl/PM/Maatwerk/Converter.cls.xml =================================================================== diff -u -r40374 -r40417 --- ECONimpl/PM/Maatwerk/Converter.cls.xml (.../Converter.cls.xml) (revision 40374) +++ ECONimpl/PM/Maatwerk/Converter.cls.xml (.../Converter.cls.xml) (revision 40417) @@ -54,6 +54,7 @@ Set LbxKenmerken.AantalDwarsverdelingen = Kenmerken.DwarsverdelingAantal Do ..ConverteerLbxNietMeeleveren(Kenmerken, .LbxKenmerken) Do ..ConverteerUitsparingData(Kenmerken, .LbxKenmerken) + Do ..ConverteerLbxMat(Kenmerken, .LbxKenmerken) Quit LbxKenmerken ]]> @@ -132,6 +133,32 @@ } ]]> + + + +1 + +