TECH.RegisteredObject TECH.ObjectUtils.impl.ObjectConverter 1 TECH.ObjectUtils.ObjectConvertData 1 1 1 %Status 1 Product:ECON.PM.Maatwerk.dto.TbxKenmerken APPS.EDI.common.dto.v001.LadeTBX 0,$$$True,$$$False) Set Eigenschappen.Klasse = Product.Toepassing Set Eigenschappen.Type = "TBX" Set Eigenschappen.GreepEnMeenemer = $Case(Product.GreepEnMeenemer,"Zonder":"No","Greep":"Handle","Meenemer":"HandleAndLatch",:"No") Set Eigenschappen.AantalDwarsverdelingen = Product.DwarsverdelingAantal Do ..ConverteerFrontOndersteuning(Product, .Eigenschappen) Do ..ConverteerNietMeeleveren(Product, .Eigenschappen) Do ..ConverteerZijwand(Product, .Eigenschappen) Do ..ConverteerUitsparingen(Product, .Eigenschappen) Do ..ConverteerMat(Product, .Eigenschappen) Quit Eigenschappen ]]> 1 1 1 1 1 TECH.ObjectUtils.ObjectConvertData 1 1 TECH.ObjectUtils.ObjectConvertData