TECH.RegisteredObject TECH.Console.Console 1 TECH.Iterator 1 DOM.PM.ProductTypeAPI 1 TECH.Query.QueryAPI 1 TECH.ResultSet 1 KleinstePRNr:%Integer=4000000,QueryAPI:TECH.Query.QueryAPI="" 1 1 %Status 1 KleinstePRNr:%Integer 1 '"_KleinstePRNr_"' AND GenType = 'TAO'" // where ID IN (4324780,4324781,4324782,4324783,4324784,4324785,4324789,4324790,4324791,4324792,4324793,4324794,4324795,4324796)" Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement)) ]]> Do ##class(zTryout.THB.BOMBOL.TAOR.VergelijkCacheDotnet).%New().VergelijkActuelePrijsMetPrijsInSchaduw() = "66444")) { // 66444 = 01/12/2022 ;If ($$$Not(HeeftZijkantLogo)) { ;If (BerekenDatum >= "66565") { // 66565 = 1/4/23 #dim ActuelePrijs As %Decimal = ..GeefPrijsVanProduct(+ProductID) #dim SchaduwPrijs As %Decimal = ..GeefSchaduwPrijsVanProduct(+ProductID) Set CountTotaal = CountTotaal + 1 Set Prijsverschil = SchaduwPrijs - ActuelePrijs If $$$Not(ActuelePrijs = SchaduwPrijs) { Set CountVerschillen = CountVerschillen + 1 If ((Prijsverschil < 0.01) && (Prijsverschil > -0.01)) { Set LijstKleinerDan1CentVerschillenBeperkt = $$$If(CountVerschillenKleinerDan1Cent > 30, LijstKleinerDan1CentVerschillenBeperkt, LijstKleinerDan1CentVerschillenBeperkt _ "/" _ ProductID) Set CountVerschillenKleinerDan1Cent = CountVerschillenKleinerDan1Cent + 1 } ElseIf ((Prijsverschil < 0.02) && (Prijsverschil > -0.02)) { Set CountVerschillenTussen1en2Cent = CountVerschillenTussen1en2Cent +1 ;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)_"'") } ElseIf ((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)_"'") Set CountVerschillenGroterDan2Cent = CountVerschillenGroterDan2Cent +1 } } } } } Do ..Console.WriteLine("") Do ..Console.WriteLine("Totaal aantal TAOR-lades gecontrolleerd: '"_CountTotaal_"'") Do ..Console.WriteLine("Totaal aantal TAOR-lades met prijsverschillen '"_CountVerschillen_"'") 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: '"_CountVerschillenGroterDan2Cent_"'") Do ..Console.WriteLine("") ]]> ProductID:%Integer 1 TECH.Decimal ProductID:%Integer 1 TECH.Decimal