Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml =================================================================== diff -u -r63517 -r66882 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml (.../MaatwerkDetailsFromJsonParser.cls.xml) (revision 63517) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml (.../MaatwerkDetailsFromJsonParser.cls.xml) (revision 66882) @@ -7,7 +7,7 @@ JSONStream:%Stream APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson - + JSONStream:%Stream 1 %Stream VerwijderdeHalffabItems:%ArrayOfObjects 1 - + + + + + + + + Enkel subniveau van de HalffabItems. Momenteel alleen gebruikt om te Unittesten. JSONStream:%Stream APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson @@ -107,7 +114,7 @@ JSONStream:%Stream APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml =================================================================== diff -u -r66043 -r66882 --- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml (.../Test.cls.xml) (revision 66043) +++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml (.../Test.cls.xml) (revision 66882) @@ -25,7 +25,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"") + Do $$$AssertEquals(MaatwerkDetails.DollarType,"") Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"") Do $$$AssertFalse($IsObject(MaatwerkDetails.Halffabrikaten)) Do $$$AssertFalse($IsObject(MaatwerkDetails.Kosten)) @@ -90,7 +90,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MaatwerkDetails.DollarType,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"TestRapport") } ]]> @@ -132,7 +132,7 @@ If ($$$AssertTrue($IsObject(HalffabItem))) { Do $$$AssertEquals(HalffabItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson") - Do $$$AssertEquals(HalffabItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(HalffabItem.DollarType,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom") If ($$$AssertTrue($IsObject(HalffabItem.ProductData))) { Do $$$AssertEquals(HalffabItem.ProductData.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.ProductDataParsedFromJson") Do $$$AssertEquals(HalffabItem.ProductData.Id, "2617803") @@ -179,11 +179,11 @@ If ($$$AssertTrue($IsObject(HalffabItem))) { Do $$$AssertEquals(HalffabItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson") - Do $$$AssertEquals(HalffabItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(HalffabItem.DollarType,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom") #dim Halffab As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = HalffabItem.Halffab If $$$AssertTrue($IsObject(Halffab)) { - Do $$$AssertEquals(Halffab.KlasseNaamInfo, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom") + Do $$$AssertEquals(Halffab.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom") Do $$$AssertEquals(Halffab.Klassenaam, "Halffab") Do $$$AssertEquals(Halffab.ProductID, "2617804") Do $$$AssertEquals(Halffab.Klantbeperking, "UT_KlantNummer") @@ -238,22 +238,22 @@ If ($$$AssertTrue($IsObject(HalffabItem))) { Do $$$AssertEquals(HalffabItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson") - Do $$$AssertEquals(HalffabItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(HalffabItem.DollarType,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom") #dim Halffab As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = HalffabItem.Halffab If $$$AssertTrue($IsObject(Halffab)) { - Do $$$AssertEquals(Halffab.KlasseNaamInfo, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom") + Do $$$AssertEquals(Halffab.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom") Do $$$AssertEquals(Halffab.Klassenaam, "MVX_HalffabBodem") Do $$$AssertEquals(Halffab.ProductID, "2617805") #dim SelectieKenmerken As %ArrayOfDataTypes = Halffab.SelectieKenmerken If $$$AssertEquals(SelectieKenmerken.Count(), 5) { - Do $$$AssertEquals(SelectieKenmerken.GetAt("KlasseNaamInfo"), "System.Collections.Generic.Dictionary`2[[System.String, System.Private.CoreLib],[System.String, System.Private.CoreLib]], System.Private.CoreLib") ; Deze is eigenlijk niet relevant. + Do $$$AssertEquals(SelectieKenmerken.GetAt("DollarType"), "System.Collections.Generic.Dictionary`2[[System.String, System.Private.CoreLib],[System.String, System.Private.CoreLib]], System.Private.CoreLib") ; Deze is eigenlijk niet relevant. Do $$$AssertEquals(SelectieKenmerken.GetAt("BewerkbaarOp"), "Lengte") Do $$$AssertEquals(SelectieKenmerken.GetAt("LadeDiepte"), "500") Do $$$AssertEquals(SelectieKenmerken.GetAt("BodemKleur"), "OG") Do $$$AssertEquals(SelectieKenmerken.GetAt("RugwandMateriaal"), "Hout") - Do $$$AssertEquals(SelectieKenmerken.GetAt("$type"), "") ; $type werd vervangen door "KlasseNaamInfo" + Do $$$AssertEquals(SelectieKenmerken.GetAt("$type"), "") ; $type werd vervangen door "DollarType" } } } @@ -288,7 +288,7 @@ If ($$$AssertTrue($IsObject(KostItem))) { Do $$$AssertEquals(KostItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(KostItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.StandaardHalffabKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(KostItem.DollarType,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.StandaardHalffabKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(KostItem.Details, "0,1873 * 4") Do $$$AssertEquals(KostItem.Kost, "0.7492") Do $$$AssertEquals(KostItem.Naam, "FrontBevestigingOnder") @@ -370,7 +370,7 @@ If ($$$AssertTrue($IsObject(KostItem))) { Do $$$AssertEquals(KostItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(KostItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.SamengesteldKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(KostItem.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.SamengesteldKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(KostItem.Details, "Dtl TotaleKost") Do $$$AssertEquals(KostItem.Kost, "5.66") Do $$$AssertEquals(KostItem.Naam, "TotaleKost") @@ -381,7 +381,7 @@ If ($$$AssertTrue($IsObject(MateriaalKostItem))) { Do $$$AssertEquals(MateriaalKostItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(MateriaalKostItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.SamengesteldKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MateriaalKostItem.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.SamengesteldKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(MateriaalKostItem.Details, "Dtl Materiaal") Do $$$AssertEquals(MateriaalKostItem.Kost, "5.44") Do $$$AssertEquals(MateriaalKostItem.Naam, "Materiaal") @@ -393,23 +393,23 @@ If ($$$AssertTrue($IsObject(MateriaalKostItem01))) { Do $$$AssertEquals(MateriaalKostItem01.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(MateriaalKostItem01.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.StandaardHalffabKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MateriaalKostItem01.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.StandaardHalffabKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(MateriaalKostItem01.Details, "Dtl FrontBevestigingOnder") Do $$$AssertEquals(MateriaalKostItem01.Kost, "1.11") Do $$$AssertEquals(MateriaalKostItem01.Naam, "FrontBevestigingOnder") Do $$$AssertEquals(MateriaalKostItem01.KostItems.Count(),0,"Aantal KostItems in 'MateriaalKostItem01'") } If ($$$AssertTrue($IsObject(MateriaalKostItem02))) { Do $$$AssertEquals(MateriaalKostItem02.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(MateriaalKostItem02.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.BewerktHalffabKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MateriaalKostItem02.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.BewerktHalffabKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(MateriaalKostItem02.Details, "Dtl Bodem") Do $$$AssertEquals(MateriaalKostItem02.Kost, "3.33") Do $$$AssertEquals(MateriaalKostItem02.Naam, "Bodem") Do $$$AssertEquals(MateriaalKostItem02.KostItems.Count(),0,"Aantal KostItems in 'MateriaalKostItem02'") } If ($$$AssertTrue($IsObject(MateriaalKostItem03))) { Do $$$AssertEquals(MateriaalKostItem03.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(MateriaalKostItem03.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.ExtraKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MateriaalKostItem03.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.ExtraKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(MateriaalKostItem03.Details, "Dtl Etiket") Do $$$AssertEquals(MateriaalKostItem03.Aantal, "4.0") Do $$$AssertEquals(MateriaalKostItem03.EenheidKost,"0.25") @@ -420,7 +420,7 @@ } If ($$$AssertTrue($IsObject(ProcentueelKostItem))) { Do $$$AssertEquals(ProcentueelKostItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") - Do $$$AssertEquals(ProcentueelKostItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.ProcentueelKostItem, MaatwerkCalculator.Dom") + Do $$$AssertEquals(ProcentueelKostItem.DollarType, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.Kost.Dto.ProcentueelKostItem, MaatwerkCalculator.Dom") Do $$$AssertEquals(ProcentueelKostItem.Details, "Dtl ProcentueelKost") Do $$$AssertEquals(ProcentueelKostItem.Percentage, "0.02") Do $$$AssertEquals(ProcentueelKostItem.Kost, "0.22") @@ -473,7 +473,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MaatwerkDetails.DollarType, "MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") If ($$$AssertTrue($IsObject(MaatwerkDetails.Halffabrikaten))) { Do $$$AssertEquals(MaatwerkDetails.Halffabrikaten.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson") Do $$$AssertEquals(MaatwerkDetails.Halffabrikaten.Rol, "FrontBevestigingOnder") @@ -519,7 +519,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MaatwerkDetails.DollarType, "MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") If ($$$AssertTrue($IsObject(MaatwerkDetails.Kosten))) { Do $$$AssertEquals(MaatwerkDetails.Kosten.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson") Do $$$AssertEquals(MaatwerkDetails.Kosten.Naam, "FrontBevestigingOnder") @@ -571,7 +571,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MaatwerkDetails.DollarType, "MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") Do $$$AssertFalse($IsObject(MaatwerkDetails.Halffabrikaten)) Do $$$AssertFalse($IsObject(MaatwerkDetails.Kosten)) Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"") @@ -580,7 +580,7 @@ Do $$$AssertEquals(MaatwerkDetails.VerwijderdeHalffabItems.Count(), 2) Do $$$AssertTrue(MaatwerkDetails.VerwijderdeHalffabItems.IsDefined("FrontBevestigingOnder")) Do $$$AssertTrue(MaatwerkDetails.VerwijderdeHalffabItems.IsDefined("TiponBlumotionSynchronisatieStang")) - Do $$$AssertFalse(MaatwerkDetails.VerwijderdeHalffabItems.IsDefined("KlasseNaamInfo")) ; De method WisDollarTypeUitVerwijderdeHalffabItems() verwijdert dit element, dat (soms) onterecht toegevoegd wordt door de JsonParser (?!) + Do $$$AssertFalse(MaatwerkDetails.VerwijderdeHalffabItems.IsDefined("DollarType")) ; De method WisDollarTypeUitVerwijderdeHalffabItems() verwijdert dit element, dat (soms) onterecht toegevoegd wordt door de JsonParser (?!) #dim VerwijderdHalffabItem As APPS.PM.Maatwerk.dto.DotNet.VerwijderdHalffabItemParsedFromJson = MaatwerkDetails.VerwijderdeHalffabItems.GetAt("FrontBevestigingOnder") If $$$AssertTrue($IsObject(VerwijderdHalffabItem)) { @@ -627,7 +627,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MaatwerkDetails.DollarType, "MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") Do $$$AssertFalse($IsObject(MaatwerkDetails.Halffabrikaten)) Do $$$AssertFalse($IsObject(MaatwerkDetails.Kosten)) Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"") @@ -796,7 +796,7 @@ If ($$$AssertTrue($IsObject(MaatwerkDetails))) { Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson") - Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") + Do $$$AssertEquals(MaatwerkDetails.DollarType, "MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom") Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"") If ($$$AssertTrue($IsObject(MaatwerkDetails.Halffabrikaten))) {