TECH.RegisteredObject TECH.ObjectUtils.impl.ObjectConverter 1 TECH.ObjectUtils.ObjectConvertData 1 1 1 %Status 1 EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken APPS.EDI.common.dto.v001.LadeTBX 0,$$$True,$$$False) Set EdiKenmerken.Klasse = EconKenmerken.Toepassing Set EdiKenmerken.Type = "TBX" Set EdiKenmerken.GreepEnMeenemer = $Case(EconKenmerken.GreepEnMeenemer,"Zonder":"No","Greep":"Handle","Meenemer":"HandleAndLatch",:"No") Set EdiKenmerken.AantalDwarsverdelingen = EconKenmerken.DwarsverdelingAantal Set EdiKenmerken.NietMeeleveren = ..GeefNietMeeleveren(EconKenmerken) Do ..ConverteerFrontOndersteuning(EconKenmerken, .EdiKenmerken) Do ..ConverteerZijwand(EconKenmerken, .EdiKenmerken) Do ..ConverteerUitsparingen(EconKenmerken, .EdiKenmerken) Do ..ConverteerMat(EconKenmerken, .EdiKenmerken) Do ..ConverteerProductieWijze(EconKenmerken, .EdiKenmerken) Do ..ConverteerDesign(EconKenmerken, .EdiKenmerken) If EconKenmerken.Toepassing = ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade() { Set EdiKenmerken.RugwandMateriaal = EconKenmerken.RugwandMateriaal } Quit EdiKenmerken ]]> 1 1 1 1 1 1 EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken 1 %ListOfDataTypes TECH.ObjectUtils.ObjectConvertData 1 1 TECH.ObjectUtils.ObjectConvertData