vhUnitTest.TestCase 1 0 1 0 ")) ; EN="ERROR #5002: Cache error: " ; NL= "FOUT #5002: Caché fout : " #dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Parsen van het JSON bericht is gefaald", CacheFoutInSysteemTaal, "*UTOnbekendeProperty") Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings)) Set Parser = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser).%New() Do Parser.GeefMaatwerkDetailsFromJson(JsonStream) ]]> 1 0 1 0 1 0 1 0 1 0 1 0 Array:%Collection.ArrayOfObj 1 TECH.KeyValue.List HalffabrikaatKeyValuePair:TECH.KeyValuePair,Rolnaam:%String,Type:%String,Quantity:%Decimal,ProductId:%String,DescriptionShort:%String,IncludeInFinalProduct:%Boolean,BuilderBepaaltOpnemenInEindproduct:%Boolean,QuantityToBe:%Decimal="",DimensionToBe:%Decimal="",GrossDimensionSemiFinishedProduct:%Decimal="",NetDimensionSemiFinishedProduct:%Decimal="",DimensionWithProcessingLoss:%Decimal="",DimensionChargedPerPiece:%Decimal="",DescriptionDocs:%String="",DescriptionPicking:%String="",RoleNameParent:%String="",Family:%String="",Variant:%String="",ProductionFlow:%String="" 1 KostItem:APPS.PM.Maatwerk.dto.VhConfig.KostItem,Name:%String,Quantity:%Decimal,ProductId:%String,DescriptionShort:%String,Percentage:%Decimal="",Scope:%String="" 1 KeyValuePair:TECH.KeyValuePair,Key:%String,Value:%String 1 ***************************************************************************************** ** Gedeelte voor de functionaliteit van het ophalen (+ testmethod) ** ***************************************************************************************** RoutineLabel:%String 1 1 %Stream Test-call om rechtstreeks in terminal te kunnen outputten (debugging) Oproepen via : Write ##class(vhUnitTest.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser.GeefMaatwerkDetails.Test).GeefTekst("RoutineLabelDemo02") 1 RoutineLabel:%String %String