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 = ..GeefGeldigeRugHoogte(TbxKenmerken.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() If (##class(TECH.ListUtils).Contains(DotNetKenmerken.NietMeeleveren, "Opvullijst")) && (DotNetKenmerken.HeeftOpvullijstLinks || DotNetKenmerken.HeeftOpvullijstRechts) { If (DotNetKenmerken.OpvullijstKleur = "") { Set DotNetKenmerken.OpvullijstKleur = "OG" // Als opvullijstkleur niet gekend is, toch opvullen met een geldig kleur zodat de berekening niet faalt. Dit is een fix voor sommige oude configuraties } } Quit DotNetKenmerken ]]> RugHoogte:%String 1 %String 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