Index: vhUnitTest/zTryout/LLA/ParseJsonMaatwerkFrameworkRestApi/TestMaatwerkDetailsJsonToCacheObject.cls.xml
===================================================================
diff -u -r62002 -r62222
--- vhUnitTest/zTryout/LLA/ParseJsonMaatwerkFrameworkRestApi/TestMaatwerkDetailsJsonToCacheObject.cls.xml	(.../TestMaatwerkDetailsJsonToCacheObject.cls.xml)	(revision 62002)
+++ vhUnitTest/zTryout/LLA/ParseJsonMaatwerkFrameworkRestApi/TestMaatwerkDetailsJsonToCacheObject.cls.xml	(.../TestMaatwerkDetailsJsonToCacheObject.cls.xml)	(revision 62222)
@@ -5,10 +5,12 @@
 
 <Method name="Test JSON GeefProductRestRequest zonder ingegeven kenmerken en productdata">
 <Implementation><![CDATA[
-	#dim JSONString As %String = "{""Halffabrikaten"":{""HalffabItems"":[{""Aantal"":1.0,""Gewicht"":100.0,""OpnemenInEindproduct"":false,""Rol"":""EenRolNaam1""},{""Aantal"":2.0,""Gewicht"":200.0,""OpnemenInEindproduct"":false,""Rol"":""EenRolNaam2""},{""Aantal"":3.0,""Gewicht"":300.0,""OpnemenInEindproduct"":true,""Rol"":""EenRolNaam3""}],""Aantal"":0.0,""Gewicht"":0.0,""OpnemenInEindproduct"":false,""Rol"":null},""Kosten"":{""KostItems"":[{""Details"":""EenDetail1"",""Kost"":10.0,""Naam"":""EenNaam1""},{""Details"":""EenDetail2"",""Kost"":20.0,""Naam"":""EenNaam2""},{""Details"":""EenDetail3"",""Kost"":30.0,""Naam"":""EenNaam3""}],""Details"":null,""Kost"":0.0,""Naam"":null},""ProbleemRapport"":null}"
-
-	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ..Parse(JSONString)
+	#dim JSONString As TECH.String = "{""Halffabrikaten"":{""HalffabItems"":[{""Aantal"":1.0,""Gewicht"":100.0,""OpnemenInEindproduct"":false,""Rol"":""EenRolNaam1""},{""Aantal"":2.0,""Gewicht"":200.0,""OpnemenInEindproduct"":false,""Rol"":""EenRolNaam2""},{""Aantal"":3.0,""Gewicht"":300.0,""OpnemenInEindproduct"":true,""Rol"":""EenRolNaam3""}],""Aantal"":0.0,""Gewicht"":0.0,""OpnemenInEindproduct"":false,""Rol"":null},""Kosten"":{""KostItems"":[{""Details"":""EenDetail1"",""Kost"":10.0,""Naam"":""EenNaam1""},{""Details"":""EenDetail2"",""Kost"":20.0,""Naam"":""EenNaam2""},{""Details"":""EenDetail3"",""Kost"":30.0,""Naam"":""EenNaam3""}],""Details"":null,""Kost"":0.0,""Naam"":null},""ProbleemRapport"":null}"
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	Do JSONStream.Write(JSONString)
 		
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ..Parse(JSONStream)
+		
 	If ($$$AssertEquals(MaatwerkDetails.Halffabrikaten.HalffabItems.Count(),3)) {
 		Do $$$AssertEquals(MaatwerkDetails.Halffabrikaten.HalffabItems.GetAt(1).Aantal,"1.0")
 		Do $$$AssertEquals(MaatwerkDetails.Halffabrikaten.HalffabItems.GetAt(1).Gewicht,"100.0")
@@ -43,12 +45,13 @@
 </Method>
 
 <Method name="Parse">
-<FormalSpec>JSONString:%String</FormalSpec>
+<FormalSpec>JSONStream:%Stream</FormalSpec>
 <ReturnType>vhUnitTest.TECH.JSON.Parser.ParseJSON.Main</ReturnType>
 <Implementation><![CDATA[
 	#dim ObjectClassName As %String = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%ClassName(1)
 	#dim Object As APPS.PM.Maatwerk.dto.MaatwerkDetails
-	Do ##class(TECH.JSON.Parser).ParseJSON(JSONString,ObjectClassName,.Object)
+	Do JSONStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JSONStream,ObjectClassName,.Object)
 	Quit Object
 ]]></Implementation>
 </Method>