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,Aantal:%Decimal,ProductId:%String,Korttekst:%String,OpnemenInEindproduct:%Boolean,BuilderBepaaltOpnemenInEindproduct:%Boolean,TeBekomenAantal:%Decimal="",AfmetingTeBekomen:%Decimal="",BrutoAfmetingHalffabrikaat:%Decimal="",NettoAfmetingHalffabrikaat:%Decimal="",AfmetingMetBewerkingVerlies:%Decimal="",AfmetingAangerekendPerStuk:%Decimal="",OmschrijvingVoorDocs:%String="",OmschrijvingVoorPicking:%String="",RolnaamParent:%String="",Familie:%String="",Variant:%String="",ProductieRoute:%String="" 1 KostItem:APPS.PM.Maatwerk.dto.VhConfig.KostItem,Naam:%String,Aantal:%Decimal,ProductId:%String,Korttekst:%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