Index: vhUnitTest/zTryout/LLA/ParseCacheObjectToJson/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/LLA/ParseCacheObjectToJson/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/LLA/ParseCacheObjectToJson/Test.cls.xml	(revision 61991)
@@ -0,0 +1,402 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.LLA.ParseCacheObjectToJson.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DtoNaarGekoppeldeKenmerkConverteerder">
+<Type>APPS.PM.Maatwerk.impl.DtoNaarGekoppeldeKenmerkConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenDto">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HoofdIngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test JSON GeefProductRestRequest zonder ingegeven kenmerken en productdata">
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(43).String("--------------------------------------------------")
+	Do ##class(Tools.Wlip).%New(43).String("Test JSON GeefProductRestRequest zonder ingegeven kenmerken en productdata")
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" }"
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"" }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%New()
+	Set Object.Aantal = "FieldIntValue"
+	Set Object.KlantID = "FieldDOMVKPVanHoeckeKlantIDValue"
+	Set Object.IngegevenKenmerken = ""
+	Set Object.ProductData = ""
+	
+	Do ##class(Tools.Wlip).%New(43).String("object.KlantID "_Object.KlantID)
+	Do ##class(Tools.Wlip).%New(43).String("object.Aantal "_Object.Aantal)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	
+	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).%ObjectToJSON(Object)
+	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(Object)
+	//Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).%WriteJSONFromObject(Object)
+	Do ##class(Tools.Wlip).%New(43).String("parsedjsonobject")
+	Do ##class(Tools.Wlip).%New(43).String(parsedjsonobject)
+	Write "-- Eerste test--"
+	;Write parsedjsonobject
+	;Write "----"
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest zonder ingegeven kenmerken">
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(43).String("--------------------------------------------------")
+	Do ##class(Tools.Wlip).%New(43).String("Test JSON GeefProductRestRequest zonder ingegeven kenmerken")
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" }"
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"" }"
+
+	#dim productData As DOM.PM.dto.ProductData = ##class(DOM.PM.dto.ProductData).%New()
+	Set productData.PRNr = 1
+	Set productData.DossierNummer = "DummyDossierNummer"
+	
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%New()
+	Set Object.Aantal = "FieldIntValue"
+	Set Object.KlantID = "FieldDOMVKPVanHoeckeKlantIDValue"
+	Set Object.IngegevenKenmerken = ""
+	Set Object.ProductData = productData
+	
+	Do ##class(Tools.Wlip).%New(43).String("object.KlantID "_Object.KlantID)
+	Do ##class(Tools.Wlip).%New(43).String("object.Aantal "_Object.Aantal)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	
+	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(Object)
+	//Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).%ObjectToJSON(Object)
+	//Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).%WriteJSONFromObject(Object)
+	Do ##class(Tools.Wlip).%New(43).String("parsedjsonobject")
+	Do ##class(Tools.Wlip).%New(43).String(parsedjsonobject)
+	Write "-- Tweede test --"
+	;Write parsedjsonobject
+	;Write "----"
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest met ingegeven kenmerken zonder ingevulde properties van list type">
+<Implementation><![CDATA[
+	Write "-- Derde test--"
+	Do ##class(Tools.Wlip).%New(43).String("--------------------------------------------------")
+	Do ##class(Tools.Wlip).%New(43).String("Test JSON GeefProductRestRequest met ingegeven kenmerken zonder ingevulde properties van list type")
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" }"
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"" }"
+
+	#dim ProductData As DOM.PM.dto.ProductData = ##class(DOM.PM.dto.ProductData).%New()
+	Set ProductData.PRNr = "ProductDataFieldPRNrIntValue1"
+	Set ProductData.DossierNummer = "ProductDataFieldDossierNummerStringValue1"
+	
+	#dim IngegevenKenmerken As zTryout.LLA.RestAPI.ParseJsonObject.IngegevenKenmerken = ##class(zTryout.LLA.RestAPI.ParseJsonObject.IngegevenKenmerken).%New()
+	Set IngegevenKenmerken.ProductieWijze = "DummyProductieWijze"
+	Set IngegevenKenmerken.VersieNr = "DummyVersieNr"
+	
+	;Property ProductieWijze As %String;
+	;Property Onderdelen As list Of %String;
+	;Property NietMeeleveren As list Of DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol;
+	;Property ExplicietGekozenKenmerken As list Of %String;
+	;Property GekoppeldeIngegevenKenmerken As array Of DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken;
+	;Property VersieNr As %String;
+	
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%New()
+	Set Object.Aantal = "FieldIntValue"
+	Set Object.KlantID = "FieldDOMVKPVanHoeckeKlantIDValue"
+	Set Object.IngegevenKenmerken = IngegevenKenmerken
+	Set Object.ProductData = ProductData
+	
+	Do ##class(Tools.Wlip).%New(43).String("object.KlantID "_Object.KlantID)
+	Do ##class(Tools.Wlip).%New(43).String("object.Aantal "_Object.Aantal)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"DummyProductieWijze")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"DummyVersieNr")
+	
+	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(Object)
+	//Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).%ObjectToJSON(Object)
+	//Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).%WriteJSONFromObject(Object)
+	Do ##class(Tools.Wlip).%New(43).String("parsedjsonobject")
+	Do ##class(Tools.Wlip).%New(43).String(parsedjsonobject)
+	;Write "-- Derde test --"
+	;Write parsedjsonobject
+	;Write "----"
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON met ingegeven kenmerken, met een array object">
+<Implementation><![CDATA[
+	Write "-- Vierde test--"
+	Do ##class(Tools.Wlip).%New(43).String("--------------------------------------------------")
+	Do ##class(Tools.Wlip).%New(43).String("Test JSON met ingegeven kenmerken, met een array object")
+	
+	#dim ProductData As DOM.PM.dto.ProductData = ##class(DOM.PM.dto.ProductData).%New()
+	Set ProductData.PRNr = "ProductDataFieldPRNrIntValue1"
+	Set ProductData.DossierNummer = "ProductDataFieldDossierNummerStringValue1"
+	
+	#dim IngegevenKenmerken As zTryout.LLA.RestAPI.ParseJsonObject.IngegevenKenmerken = ##class(zTryout.LLA.RestAPI.ParseJsonObject.IngegevenKenmerken).%New()
+	Set IngegevenKenmerken.ProductieWijze = "DummyProductieWijze"
+	Set IngegevenKenmerken.VersieNr = "DummyVersieNr"
+	Set IngegevenKenmerken.GekoppeldeIngegevenKenmerken = ..GeefArrayGekoppeldeIngegevenKenmerken()
+		
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%New()
+	Set Object.Aantal = "FieldIntValue"
+	Set Object.KlantID = "FieldDOMVKPVanHoeckeKlantIDValue"
+	Set Object.IngegevenKenmerken = IngegevenKenmerken
+	Set Object.ProductData = ProductData
+	
+	Do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	Do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	Do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	Do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	Do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"DummyProductieWijze")
+	Do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"DummyVersieNr")
+	
+	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(Object)
+	Do ##class(Tools.Wlip).%New(43).String(parsedjsonobject)
+]]></Implementation>
+</Method>
+
+<Method name="GeefArrayGekoppeldeIngegevenKenmerken">
+<Implementation><![CDATA[
+	#dim MATXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..GeefMATKenmerken("")
+	#dim MATYKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..GeefMATKenmerken("")
+	
+	Do ..InitMock(MATXKenmerken, $$$True)
+	
+	Set WaardenKopieerderStub = ##class(vhTest.Mock.TECH.ObjectUtils.WaardenKopieerder).%New()
+	Do WaardenKopieerderStub.IndienMethodCall("Kopieer", MATXKenmerken,$$$True).DanReturn(MATYKenmerken)
+	
+	Set DtoNaarGekoppeldeKenmerkConverteerder = ##class(APPS.PM.Maatwerk.impl.DtoNaarGekoppeldeKenmerkConverter).%New(WaardenKopieerderStub)
+	
+	;#dim IngegevenKenmerkenArray As Array of DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken =  ..DtoNaarGekoppeldeKenmerkConverteerder.Converteer(..HoofdIngegevenKenmerken, ..IngegevenKenmerkenDto,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat())
+	Quit DtoNaarGekoppeldeKenmerkConverteerder.Converteer(..HoofdIngegevenKenmerken, ..IngegevenKenmerkenDto,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat())
+]]></Implementation>
+</Method>
+
+<Method name="GeefMATKenmerken">
+<FormalSpec>Breedte:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	Set MATKenmerken.ProductieWijze = "Volledig"
+	Do MATKenmerken.NietMeeleveren.Insert("Mat")
+	Do MATKenmerken.Onderdelen.Insert("MatOnderdeel")	
+	Set MATKenmerken.Diepte = 200
+	Set MATKenmerken.Breedte = Breedte
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Leder()
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).Zwart()
+	Set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	Quit MATKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="InitMock">
+<FormalSpec>MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken,IsSpoelbakLade:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MaatwerkAPIStub As vhTest.Mock.APPS.PM.MaatwerkAPI = ##class(vhTest.Mock.APPS.PM.MaatwerkAPI).MockInstance()
+	Set IngegevenKenmerkenConverterStub = ##class(vhTest.Mock.APPS.PM.Maatwerk.IngegevenKenmerkenConverter).%New()
+	Do IngegevenKenmerkenConverterStub.IndienMethodCall("NaarObject", ..IngegevenKenmerkenDto).DanReturn(MATKenmerken)
+	Do MaatwerkAPIStub.IndienMethodCall("GeefIngegevenKenmerkenConverter").DanReturn(IngegevenKenmerkenConverterStub)
+	
+	#dim IngegevenKenmerkenTypeAPIStub As vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).MockInstance()
+	Do IngegevenKenmerkenTypeAPIStub.IndienMethodCall("IsSpoelbaklade",..HoofdIngegevenKenmerken).DanReturn(IsSpoelbakLade)
+	Do IngegevenKenmerkenTypeAPIStub.IndienMethodCall("IsSifonlade",..HoofdIngegevenKenmerken).DanReturn($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON met ingegeven kenmerken, met een list object">
+<Implementation><![CDATA[
+	Write "-- Vijfde test--"
+	Do ##class(Tools.Wlip).%New(43).String("--------------------------------------------------")
+	Do ##class(Tools.Wlip).%New(43).String("Test JSON met ingegeven kenmerken, met een array object")
+	
+	#dim ProductData As DOM.PM.dto.ProductData = ##class(DOM.PM.dto.ProductData).%New()
+	Set ProductData.PRNr = "ProductDataFieldPRNrIntValue1"
+	Set ProductData.DossierNummer = "ProductDataFieldDossierNummerStringValue1"
+	
+	#dim IngegevenKenmerken As zTryout.LLA.RestAPI.ParseJsonObject.IngegevenKenmerken = ##class(zTryout.LLA.RestAPI.ParseJsonObject.IngegevenKenmerken).%New()
+	Set IngegevenKenmerken.ProductieWijze = "DummyProductieWijze"
+	Set IngegevenKenmerken.VersieNr = "DummyVersieNr"
+	Set IngegevenKenmerken.GekoppeldeIngegevenKenmerken = ..GeefArrayGekoppeldeIngegevenKenmerken()
+	Set IngegevenKenmerken.NietMeeleveren = ..GeefNietMeeleveren()
+
+		
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%New()
+	Set Object.Aantal = "FieldIntValue"
+	Set Object.KlantID = "FieldDOMVKPVanHoeckeKlantIDValue"
+	Set Object.IngegevenKenmerken = IngegevenKenmerken
+	Set Object.ProductData = ProductData
+	
+	Do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	Do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	Do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	Do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	Do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"DummyProductieWijze")
+	Do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"DummyVersieNr")
+	
+	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(Object)
+	Do ##class(Tools.Wlip).%New(43).String(parsedjsonobject)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeleveren">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As list Of %String = ##class(%ListOfDataTypes).%New()
+	
+	Do NietMeeleveren.Insert("NietMeeleveren1")
+	Do NietMeeleveren.Insert("NietMeeleveren2")
+	
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
+
+<Method name="TestEenTest">
+<Implementation><![CDATA[
+	set obj = ##class(%ZEN.proxyObject).%New()
+ 	set obj.prop = "val"
+ 	do obj.%ToJSON()
+ 	set dtList = ##class(%Library.ListOfDataTypes).%New()
+ 	set a = 1
+ 	do dtList.Insert(a)
+ 	do dtList.Insert("a")
+ 	do ##class(%ZEN.Auxiliary.jsonProvider).%ObjectToJSON(dtList)
+ 	Set parsedjsonobject = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(dtList)
+ 	Do ##class(Tools.Wlip).%New(43).String(parsedjsonobject)
+]]></Implementation>
+</Method>
+
+<Method name="aTest JSON GeefProductRestRequest zonder ingegeven kenmerken, met productdata">
+<Implementation><![CDATA[
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" } }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+]]></Implementation>
+</Method>
+
+<Method name="aTest JSON GeefProductRestRequest met ingegeven kenmerken zonder ingevulde properties van list type">
+<Implementation><![CDATA[
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	
+	//#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" } }"
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" }, ""IngegevenKenmerken"": { ""ProductieWijze"":""IngegevenKenmerkenFieldVersieNrStringValue"", ""VersieNr"":""IngegevenKenmerkenFieldVersieNrIntValue"" }   }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"IngegevenKenmerkenFieldVersieNrStringValue")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"IngegevenKenmerkenFieldVersieNrIntValue")
+]]></Implementation>
+</Method>
+
+<Method name="aTest JSON GeefProductRestRequest met ingegeven kenmerken zonder ingevulde properties van list type behalve onderdelen (list of string)">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" }, ""IngegevenKenmerken"": { ""ProductieWijze"":""IngegevenKenmerkenFieldVersieNrStringValue"", ""VersieNr"":""IngegevenKenmerkenFieldVersieNrIntValue"", ""Onderdelen"": [ ""OnderdelenString1"", ""OnderdelenString2"" ] }   }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"IngegevenKenmerkenFieldVersieNrStringValue")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"IngegevenKenmerkenFieldVersieNrIntValue")
+
+	if $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.Count(),2) {
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(1),"OnderdelenString1")	
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(2),"OnderdelenString2")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTest JSON GeefProductRestRequest met ingegeven kenmerken met ingevulde properties van list type">
+<Implementation><![CDATA[
+	// TODO verdere lijst data aanvullen
+	// TODO 2 volgende test is dan op in het GeefProductRestRequest de ingegeven kenmerken defenitie te vervangen door de juiste defenitie van de DOM klasse ipv de ztryoutLLA.....iK
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" }, ""IngegevenKenmerken"": { ""ProductieWijze"":""IngegevenKenmerkenFieldVersieNrStringValue"", ""VersieNr"":""IngegevenKenmerkenFieldVersieNrIntValue"", ""Onderdelen"": [ ""OnderdelenString1"", ""OnderdelenString2"" ] }   }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"IngegevenKenmerkenFieldVersieNrStringValue")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"IngegevenKenmerkenFieldVersieNrIntValue")
+
+	if $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.Count(),2) {
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(1),"OnderdelenString1")	
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(2),"OnderdelenString2")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTestJSONStringMetEmbeddedListMeerdereItems">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value1""},{ ""Field1"":""EmbeddedField1Value2""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),2) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field1,"EmbeddedField1Value2")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTestJSONStringMetEmbeddedListMeerdereItemsMeerdereVelden">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value1"" , ""Field2"":""EmbeddedField2Value1""},{ ""Field1"":""EmbeddedField1Value2""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),2) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"EmbeddedField2Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field1,"EmbeddedField1Value2")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTestJSONMetOnbestaandeVelden">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Parsing JSON file failed")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	#dim JSONString As %String = "{ ""UnExistingField"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>JSONString:%String</FormalSpec>
+<ReturnType>vhUnitTest.TECH.JSON.Parser.ParseJSON.Main</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectClassName As %String = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%ClassName(1)
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest
+	do ##class(TECH.JSON.Parser).ParseJSON(JSONString,ObjectClassName,.Object)
+	quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>