Legacy naar bruikbare DOM kenmerken voor .NET convertor TECH.RegisteredObject DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy TbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken DOTNET.PM.Maatwerk.dto.TbxKenmerken 'HS' Set DotNetKenmerken.ProductieWijze = $Select(TbxKenmerken.ProductieWijze = "":"V",1:TbxKenmerken.ProductieWijze) Set DotNetKenmerken.RugHoogte = TbxKenmerken.RugHoogte Set DotNetKenmerken.RugwandMateriaal = $Select(TbxKenmerken.RugwandMateriaal = "":"Hout",1:TbxKenmerken.RugwandMateriaal) //TbxKenmerken.RugwandMateriaal Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte() Set DotNetKenmerken.Toepassing = TbxKenmerken.Toepassing Set DotNetKenmerken.VerpakkingType = ..GeefVerpakkingType() Set DotNetKenmerken.VoorwandVerhogingType = ..GeefVoorwandVerhogingType() //TbxKenmerken.VoorwandVerhogingType Set DotNetKenmerken.ZijkantHoogte = TbxKenmerken.ZijkantHoogte Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur = ..GeefZijwandVerhogingInschuifElementKleur() Set DotNetKenmerken.ZijwandVerhogingMateriaal = TbxKenmerken.ZijwandVerhogingMateriaal Set DotNetKenmerken.ZijwandVerhogingRelingKleur = $Select(..LegacyKenmerken.ItemRK = "": TbxKenmerken.LadeKleur, 1:..LegacyKenmerken.ItemRK) //..LegacyKenmerken.ItemRK Set DotNetKenmerken.ZijwandVerhogingType = TbxKenmerken.ZijwandVerhogingType Set DotNetKenmerken.UitsparingData = ..GeefUitsparingData() Set DotNetKenmerken.NietMeeleveren = ..GeefNietMeeleveren() Quit DotNetKenmerken ]]> 1 DOM.PM.enu.TBXGeleiderTechnologie 1 %String 1 %Decimal 1 %Numeric 0), 1, 0) } */ Quit $$$If( $$$Not(..TbxKenmerken.GUIKenmerken.IsBinnenbreedte) && (..TbxKenmerken.GUIKenmerken.CorpusWandDikte>0), 1, 0) ]]> 1 %String 1 %String 1 %String DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData %Decimal %Decimal %Decimal %Decimal %Decimal 1 %Boolean 0 ]]> 1 %Decimal 1 1 1 1 %ListOfDataTypes