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) Set EdiKenmerken.MinTolerantieOpIB = ..GeefMinTolerantieOpIB(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.LadeDesign = "GMA") && (EconKenmerken.LadeKleur = "MG-GMA") { Set EdiKenmerken.LadeKleur = "MG" ; LET OP! LadeKleur "MG" bestaat bij Antaro en bij Mengvorm-A-design. Zie ook EdiKenmerken.DesignCode } If EconKenmerken.Toepassing = ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade() { Set EdiKenmerken.RugwandMateriaal = EconKenmerken.RugwandMateriaal } Quit EdiKenmerken ]]> EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken 1 EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken 1 %Integer 1 1 1 1 1 1 EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken 1 %ListOfDataTypes TECH.ObjectUtils.ObjectConvertData 1 1 TECH.ObjectUtils.ObjectConvertData