Index: zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml =================================================================== diff -u -r71135 -r71249 --- zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml (.../VergelijkCacheDotnet.cls.xml) (revision 71135) +++ zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml (.../VergelijkCacheDotnet.cls.xml) (revision 71249) @@ -95,12 +95,11 @@ Set LijstKleinerDan1CentVerschillenBeperkt = $$$If(CountVerschillenKleinerDan1Cent > 30, LijstKleinerDan1CentVerschillenBeperkt, LijstKleinerDan1CentVerschillenBeperkt _ "/" _ ProductID) Set CountVerschillenKleinerDan1Cent = CountVerschillenKleinerDan1Cent + 1 } - If ((Prijsverschil >= 0.01) || (Prijsverschil <= -0.01)) { + If ((Prijsverschil < 0.02) && (Prijsverschil > -0.02)) { + Set CountVerschillenTussen1en2Cent = CountVerschillenTussen1en2Cent +1 + } + If ((Prijsverschil >= 0.02) || (Prijsverschil <= -0.02)) { Do ..Console.WriteLine("'"_$Justify(Prijsverschil,7,4)_"' verschil in prijs voor product '"_ProductID_"' "_$$$TAB_"- Prijs in Cache: '"_$Justify(ActuelePrijs,7,4)_"' "_$$$TAB_"en prijs in .net (nu in schaduw): '"_$Justify(SchaduwPrijs,7,4)_"' - BerekenDatum = '"_##class(TECH.DateTime.impl.DateTimeAPI).%New().HorologToTimeStamp(BerekenDatum)_"'") - - If ((Prijsverschil < 0.02) && (Prijsverschil > -0.02)) { - Set CountVerschillenTussen1en2Cent = CountVerschillenTussen1en2Cent +1 - } } } //} @@ -143,7 +142,7 @@ Do ..Console.WriteLine("Totaal aantal TAOR-lades met KleinerDan-1-cent-prijsverschillen '"_CountVerschillenKleinerDan1Cent_"'") Do ..Console.WriteLine("Lijst KleinerDan-1-cent-prijsverschillen (eerst gevonden 30): "_LijstKleinerDan1CentVerschillenBeperkt) Do ..Console.WriteLine("Totaal aan TAOR-lades met prijsverschillen tussen 1 en 2 cent: '"_CountVerschillenTussen1en2Cent_"'") - Do ..Console.WriteLine("Totaal aantal TAOR-lades met prijsverschillen van meer dan 2 cent: '"_(CountVerschillen - CountVerschillenKleinerDan1Cent - CountVerschillenTussen1en2Cent)_"'") + Do ..Console.WriteLine("Totaal aantal TAOR-lades met prijsverschillen van meer dan 2 cent: '"_(CountVerschillen - CountVerschillenTussen1en2Cent)_"'") ]]> @@ -179,7 +178,7 @@ #dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem #dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantID, Aantal, ProductData) - Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails) + Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken) Set KostItem = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails) Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()