TECH.RegisteredObject,EXT.RequestVerwerker,DOM.PM.Maatwerk.TAX.impl.Base TECH.ObjectUtils.impl.ObjectConverter 1 TECH.ObjectUtils.ObjectConvertData 1 %Status TECH.ObjectUtils.ObjectConvertData Request:EXT.Optima.CalculPrix.dto.Request APPS.EDI.PrijsBerekening.dto.Aanvraag Lade:EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX 1 APPS.EDI.common.dto.Product Lade:EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX,LadeTAX:APPS.EDI.common.dto.Product 1 Lade:EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX,LadeTAX:APPS.EDI.common.dto.Product 1 Lade:EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX,LadeTAX:APPS.EDI.common.dto.v001.LadeTAX 1 1 TECH.ObjectUtils.ObjectConvertData LBX ) Do ConvertDataTAX.Add("LadeBinnenKleur",) Do ConvertDataTAX.Add("FrontEindkapKleur",) Do ConvertDataTAX.Add("HeeftDiepteVerstelling",) Do ConvertDataTAX.Add("KoppelingType",,"Set Output=$CASE(Input, ""S"":##class(DOM.PM.enu.TAORKoppelingType).Schroef(), ""D"":##class(DOM.PM.enu.TAORKoppelingType).Drevel(), ""M"":##class(DOM.PM.enu.TAORKoppelingType).Movento(), :Input)") Do ConvertDataTAX.Add("LadeKleur","KantenbandKleur") Quit ConvertDataTAX ]]>