%RegisteredObject 1 Object ***********",!! do ##class(TECH.JSON.Parser).ParseJSON(ShoppingCart,##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%ClassName(1),.UserCart) set Class = ##class(Tools.ObjectDumper.CodeCreator).%New(UserCart) write Class.ToString() ;Do ..ProcessUserCart(UserCart) ;Write !, "*********** Encode Object -> JSON ***********",!! ;Do ##class(TECH.JSON.ParserIntersystemsVersion).%ObjectToJSON(UserCart) ]]> 1 UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar 1 Directories:%ListOfObjects,Level:%Integer 1 Directory:APPS.Blum.OnlineProductConfigurator.dto.Directory,Level:%Integer 1 Level:%Integer %String 1 IdentNr:%String %String 0) { #dim ProductID As %String = $LG(ProductenLijst) Set DataService = ##class(APPS.common.impl.DataService).%New() #dim ProductData As DOM.common.dto.ProductData = DataService.GeefProductData(ProductID) //#dim TeZoekenIdentNr As %String = $E(IdentNr,1,1) _ "." _ $E(IdentNr,2,4) _ "." _ $E(IdentNr,5,7) _ "." _ $E(IdentNr,8,8) Set Resultaat = ProductData.Code _ " " _ ProductData.Classificatie.UniekeCode _ " " _ ProductData.Omschrijving } Quit Resultaat ]]> 1 IdentNummer:%String 1 %List