Index: AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml =================================================================== diff -u -r70992 -r71135 --- AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml (.../CalculateAll.cls.xml) (revision 70992) +++ AXimpl/PM/SchaduwPrijs/CalculateAll.cls.xml (.../CalculateAll.cls.xml) (revision 71135) @@ -33,6 +33,12 @@ 0 + +%Integer +10000000 +1 + + D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkEenMaand() @@ -162,10 +168,11 @@ -D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).VerwijderAlles() D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkEenMaandTAOR() D ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().VerwerkTAOR() @@ -213,14 +224,17 @@ #dim RecID as %String #dim PRNr as %String #dim GenTyp as %String + #dim IsTaor As %Boolean = $$$False + #dim IsNotLosseComponenten As %Boolean = $$$False + #dim QuitCount As %Integer = 0 Set Count=1 #dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI() #dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New() Set VerkoopAPI = ##class(DOM.VKP.impl.VerkoopAPI).%New() Set DotNetMaatwerkService = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails).%New() Set MaatwerkDetailsConvertor = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonNaarDomConverter).%New() - + While ..itProduct.HasNext() { Set rs=..itProduct.Next() @@ -231,41 +245,57 @@ try { If (ProductAPI.BestaatProduct(PRNr)) { - If ($$$Not(PRNr = "") && (ProductTypeAPI.IsTAORboxProduct(PRNr)) && $$$Not($Get(^PRBS("BSS",PRNr)) = "")) { - #dim Klnr As %String = "K||4682" - If (VerkoopAPI.BestaatKlant("K||"_+rs.Data("KlantNr"))) { - Set Klnr = "K||"_+rs.Data("KlantNr") - } + If ($$$Not(PRNr = "") && (ProductTypeAPI.IsTAORboxProduct(PRNr))) { + Set IsNotLosseComponenten = $$$Not(ProductTypeAPI.IsTaxLosseComponentenProduct(PRNr)) - #Dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(PRNr) - Set ProductData = ##class(DOM.PM.dto.ProductData).%New() - Set ProductData.PRNr = PRNr - Set ProductData.DossierNummer = Product.GeefDossierCode() + If IsNotLosseComponenten { + // LosseComponenten kunnen met oudere creatiedatum voorkomen. Om te weten wat het KleinstePRNr is, nodig voor querry in zTryout.THB.BOMBOL.TAOR.VergelijkCacheDotnet, + // moet je ze in deze If tijdelijk uitsluiten. Tenzij ^THBTaorPriceDiff gebruikt wordt, dan is dit irrelevant. + Set IsTaor = $$$True + Set QuitCount = QuitCount + 1 + #dim Klnr As %String = "K||4682" + If (VerkoopAPI.BestaatKlant("K||"_+rs.Data("KlantNr"))) { + Set Klnr = "K||"_+rs.Data("KlantNr") + } + + #Dim Product As DOM.PM.impl.MaatwerkProductImpl = ProductAPI.GeefProduct(PRNr) + Set ProductData = ##class(DOM.PM.dto.ProductData).%New() + Set ProductData.PRNr = PRNr + Set ProductData.DossierNummer = Product.GeefDossierCode() - #dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = Product.GeefProductSpecificatie() - #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ProductSpecificatie.GeefIngegevenKenmerken() + #dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = Product.GeefProductSpecificatie() + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ProductSpecificatie.GeefIngegevenKenmerken() - If (IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.Variant).Taorbox()) { - ;&& $$$Not(##class(TECH.StringUtils).Equals(PRNr, "1206479")) //Product met opvullijst LG + If (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) { + Set ^THBTaorPriceDiff(+PRNr) = PRNr + Kill ^PRBS("BSS",PRNr) + If (PRNr < ..KleinstePRNr) Set ..KleinstePRNr = PRNr - #dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie(Klnr, 1) - #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom - #dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem + #dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie(Klnr, 1) + #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom + #dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem - #dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, Klnr, 1, ProductData) - Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails) - Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails) + #dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, Klnr, 0, ProductData,,##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).PrijsBerekening()) + Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails) + ;Do $System.OBJ.Dump(HalffabItemsBoom) + Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails) - Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New() - Do BouwsteenCreator.Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, $$$True) + Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New() + Do BouwsteenCreator.Init(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem, $$$True) + } } } } } catch { Do ##class(Tools.Wlip).%New(191).String("SchaduwPrijs-berekening voor TAOR gefaald, want in de catch terechtgekomen!") } - Do ..ConverteerOne(ProductID, PRNr, ItemID, ConfigID) Set Count=Count+1 Write:-..Debug&(Count#1000=0) !,"Aantal: ",Count," Tijd (in min): ",$$DIFFTIME^vhLib.DataTypes(StartTijd,$H,"M") + + If (IsTaor) { + Write !, "Product: '"_PRNr_"' en AX-ProductID: '"_ProductID_"' en Klant: '"_Klnr_"' en IsNotLosseComponenten: '"_IsNotLosseComponenten_"'" + ;Quit:(QuitCount = 1) + } + Set IsTaor = $$$False } ]]> Index: DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet/Verwerker.cls.xml =================================================================== diff -u -r71060 -r71135 --- DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 71060) +++ DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 71135) @@ -40,10 +40,6 @@ Do ..VerwerkFrontBevestiging() } ElseIf TAORRolDotNet = "FrontBevestigingSchroef" { Do ..VerwerkFrontBevestigingSchroef() - } ElseIf TAORRolDotNet = "FrontEindkap" { - Do ..VerwerkFrontEindkap() - } ElseIf TAORRolDotNet = "FrontPlaat" { - Do ..VerwerkFrontPlaat() } ElseIf TAORRolDotNet = "Geleider" { Do ..VerwerkGeleider() } ElseIf TAORRolDotNet = "GeleiderBevestigingSchroeven" { @@ -82,8 +78,6 @@ Do ..VerwerkTiponSynchronisatieTandwiel() } ElseIf TAORRolDotNet = "Verpakking" { Do ..VerwerkVerpakking() - } ElseIf TAORRolDotNet = "ZijkantBestukking" { - Do ..VerwerkZijkantBestukking() } ElseIf TAORRolDotNet = "ZijkantLinks" { Do ..VerwerkZijkantLinks() } ElseIf TAORRolDotNet = "ZijkantLogo" { @@ -183,18 +177,6 @@ - -1 -1 - - - - -1 -1 - - - 1 1 @@ -309,12 +291,6 @@ - -1 -1 - - - 1 1 Index: zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml =================================================================== diff -u -r70992 -r71135 --- zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml (.../VergelijkCacheDotnet.cls.xml) (revision 70992) +++ zTryout/THB/BOMBOL/TAOR/VergelijkCacheDotnet.cls.xml (.../VergelijkCacheDotnet.cls.xml) (revision 71135) @@ -29,7 +29,7 @@ -QueryAPI:TECH.Query.QueryAPI="" +KleinstePRNr:%Integer=4000000,QueryAPI:TECH.Query.QueryAPI="" 1 1 %Status @@ -39,53 +39,111 @@ Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI()) Set ..ProductTypeApi = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New() - Do ..VoerUitQuery() - Set ..ProductIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet) + ;Do ..VoerUitQuery(KleinstePRNr) + ;Set ..ProductIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet) Quit $$$OK ]]> +KleinstePRNr:%Integer 1 3816504" + Set SqlStatement = "SELECT ID FROM Prod.Product WHERE ID > '"_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() = "66565") { // 66565 = 1/4/23 + #dim ActuelePrijs As %Decimal = ..GeefPrijsVanProduct(+ProductID) + #dim ActuelePrijsAfgerond As %Decimal = ActuelePrijs // ##class(TECH.Math).Round(ActuelePrijs, 2) + #dim SchaduwPrijs As %Decimal = ..GeefSchaduwPrijsVanProduct(+ProductID) + #dim SchaduwPrijsAfgerond As %Decimal = SchaduwPrijs // ##class(TECH.Math).Round(SchaduwPrijs, 2) + Set CountTotaal = CountTotaal + 1 + Set Prijsverschil = SchaduwPrijsAfgerond - ActuelePrijsAfgerond + + If $$$Not(ActuelePrijsAfgerond = SchaduwPrijsAfgerond) { + Set CountVerschillen = CountVerschillen + 1 + + If ((Prijsverschil < 0.01) && (Prijsverschil > -0.01)) { + Set LijstKleinerDan1CentVerschillenBeperkt = $$$If(CountVerschillenKleinerDan1Cent > 30, LijstKleinerDan1CentVerschillenBeperkt, LijstKleinerDan1CentVerschillenBeperkt _ "/" _ ProductID) + Set CountVerschillenKleinerDan1Cent = CountVerschillenKleinerDan1Cent + 1 + } + If ((Prijsverschil >= 0.01) || (Prijsverschil <= -0.01)) { + 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 + } + } + } + //} + } + } + /* While ..ProductIterator.HasNext() { Set ProductID = ..ProductIterator.Next().GetData(1) If (..ProductTypeApi.IsTAORboxProduct(ProductID)) { - #dim ActuelePrijs As %Decimal = ..GeefPrijsVanProduct(+ProductID) - #dim SchaduwPrijs As %Decimal = ..GeefSchaduwPrijsVanProduct(+ProductID) - Set CountTotaal = CountTotaal + 1 + Set Product = ..ProductTypeApi.GeefTAORboxProduct(ProductID) + Set BerekeningSpecificatie = Product.GeefBerekeningsSpecificatie() + Set BerekenDatum = BerekeningSpecificatie.GeefBerekenDatum() - If $$$Not(ActuelePrijs = SchaduwPrijs) { - Set CountVerschillen = CountVerschillen + 1 - #dim Prijsverschil = ##class(TECH.Math).Round(SchaduwPrijs - ActuelePrijs, 2) - Do ..Console.WriteLine("'"_Prijsverschil_"' verschil in prijs voor product '"_ProductID_"' "_$$$TAB_"- Prijs in Cache: '"_ActuelePrijs_"' "_$$$TAB_"en prijs in .net (nu in schaduw): '"_SchaduwPrijs_"'") + If (BerekenDatum >= "66565") { // 66565 = 1/4/23 + #dim ActuelePrijs As %Decimal = ..GeefPrijsVanProduct(+ProductID) + #dim ActuelePrijsAfgerond As %Decimal = ##class(TECH.Math).Round(ActuelePrijs, 2) + #dim SchaduwPrijs As %Decimal = ..GeefSchaduwPrijsVanProduct(+ProductID) + #dim SchaduwPrijsAfgerond As %Decimal = ##class(TECH.Math).Round(SchaduwPrijs, 2) + Set CountTotaal = CountTotaal + 1 + Set Prijsverschil = SchaduwPrijsAfgerond - ActuelePrijsAfgerond + + If $$$Not(ActuelePrijsAfgerond = SchaduwPrijsAfgerond) { + Set CountVerschillen = CountVerschillen + 1 + + If ((Prijsverschil = 0.01) || (Prijsverschil = -0.01)) { + Set CountVerschillen1Cent = CountVerschillen1Cent + 1 + } + If ((Prijsverschil > 0.01) || (Prijsverschil < -0.01)) { + Do ..Console.WriteLine("'"_$Justify(Prijsverschil,7,2)_"' verschil in prijs voor product '"_ProductID_"' "_$$$TAB_"- Prijs in Cache: '"_$Justify(ActuelePrijs,7,2)_"' "_$$$TAB_"en prijs in .net (nu in schaduw): '"_$Justify(SchaduwPrijs,7,2)_"' - BerekenDatum = '"_##class(TECH.DateTime.impl.DateTimeAPI).%New().HorologToTimeStamp(BerekenDatum)_"'") + } + } } } } - + */ + 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: '"_(CountVerschillen - CountVerschillenKleinerDan1Cent - CountVerschillenTussen1en2Cent)_"'") ]]> Index: DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet.cls.xml =================================================================== diff -u -r71060 -r71135 --- DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet.cls.xml (.../TAORRolDotNet.cls.xml) (revision 71060) +++ DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet.cls.xml (.../TAORRolDotNet.cls.xml) (revision 71135) @@ -12,11 +12,11 @@ OPGELET !!! DEZE ENUMERATIE MAG ENKEL DE ROLLEN BEVATTEN DIE NIET VOORKOMEN IN EEN SAMENGESTELDHALFFABITEM. DOE JE DAT WEL, DAN KOMEN ZE MEERMAALS AAN BOD BIJ HET MAKEN VAN DE BOUWSTENEN EN WORDEN DE AANTALLEN DUS ONTERECHT VERHOOGD. /// /// ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// -;ZijkantLinks;ZijkantRechts;LadeZijkant;Bodem;Rug;Front;Geleider;Koppeling;FrontBevestiging;RugwandHouderSchroef;GeleiderBevestigingSchroeven;BodemOndersteuningSchroef;FrontBevestigingSchroef;KoppelingSchroef;RugwandHouder;Tipon;Zijstabilisering;DiepteVerstelling;BodemOndersteuning;Verpakking;Opvullijst;TiponSynchronisatieTandwiel;TiponSynchronisatieStang;TiponBlumotionSetEenhedenEnMeenemers;TiponBlumotionSynchronisatieAdapter;TiponBlumotionSynchronisatieStang;BodemPlaat;FrontPlaat;FrontEindkap;AfdekkapBoven;ZijkantBestukking;SetSchroeven;DiepteVerstellingSchroef;ZijkantLogo;PalletKartonvulstuk;DwarsverdelingHouder;Dwarsverdeling;DwarsverdelingDubbelHouder;DwarsverdelingOnder +;ZijkantLinks;ZijkantRechts;LadeZijkant;Bodem;Rug;Front;Geleider;Koppeling;FrontBevestiging;RugwandHouderSchroef;GeleiderBevestigingSchroeven;BodemOndersteuningSchroef;FrontBevestigingSchroef;KoppelingSchroef;RugwandHouder;Tipon;Zijstabilisering;DiepteVerstelling;BodemOndersteuning;Verpakking;Opvullijst;TiponSynchronisatieTandwiel;TiponSynchronisatieStang;TiponBlumotionSetEenhedenEnMeenemers;TiponBlumotionSynchronisatieAdapter;TiponBlumotionSynchronisatieStang;BodemPlaat;AfdekkapBoven;SetSchroeven;DiepteVerstellingSchroef;ZijkantLogo;PalletKartonvulstuk;DwarsverdelingHouder;Dwarsverdeling;DwarsverdelingDubbelHouder;DwarsverdelingOnder -;ZijkantLinks;ZijkantRechts;LadeZijkant;Bodem;Rug;Front;Geleider;Koppeling;FrontBevestiging;RugwandHouderSchroef;GeleiderBevestigingSchroeven;BodemOndersteuningSchroef;FrontBevestigingSchroef;KoppelingSchroef;RugwandHouder;Tipon;Zijstabilisering;DiepteVerstelling;BodemOndersteuning;Verpakking;Opvullijst;TiponSynchronisatieTandwiel;TiponSynchronisatieStang;TiponBlumotionSetEenhedenEnMeenemers;TiponBlumotionSynchronisatieAdapter;TiponBlumotionSynchronisatieStang;BodemPlaat;FrontPlaat;FrontEindkap;AfdekkapBoven;ZijkantBestukking;SetSchroeven;DiepteVerstellingSchroef;ZijkantLogo;PalletKartonvulstuk;DwarsverdelingHouder;Dwarsverdeling;DwarsverdelingDubbelHouder;DwarsverdelingOnder +;ZijkantLinks;ZijkantRechts;LadeZijkant;Bodem;Rug;Front;Geleider;Koppeling;FrontBevestiging;RugwandHouderSchroef;GeleiderBevestigingSchroeven;BodemOndersteuningSchroef;FrontBevestigingSchroef;KoppelingSchroef;RugwandHouder;Tipon;Zijstabilisering;DiepteVerstelling;BodemOndersteuning;Verpakking;Opvullijst;TiponSynchronisatieTandwiel;TiponSynchronisatieStang;TiponBlumotionSetEenhedenEnMeenemers;TiponBlumotionSynchronisatieAdapter;TiponBlumotionSynchronisatieStang;BodemPlaat;AfdekkapBoven;SetSchroeven;DiepteVerstellingSchroef;ZijkantLogo;PalletKartonvulstuk;DwarsverdelingHouder;Dwarsverdeling;DwarsverdelingDubbelHouder;DwarsverdelingOnder @@ -210,34 +210,13 @@ ]]> - -1 -DOM.PM.Maatwerk.Calc.HF.enu.TAORRolDotNet - - - - -1 -DOM.PM.Maatwerk.Calc.HF.enu.TAORRolDotNet - - - 1 DOM.PM.Maatwerk.Calc.HF.enu.TAORRolDotNet - -1 -DOM.PM.Maatwerk.Calc.HF.enu.TAORRolDotNet - - - 1 DOM.PM.Maatwerk.Calc.HF.enu.TAORRolDotNet Index: DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet/AutoComplete.cls.xml =================================================================== diff -u -r71060 -r71135 --- DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 71060) +++ DOM/PM/Maatwerk/Calc/HF/enu/TAORRolDotNet/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 71135) @@ -107,20 +107,6 @@ 1 - -%String -"FrontEindkap" -1 -1 - - - -%String -"FrontPlaat" -1 -1 - - %String "Geleider" @@ -254,13 +240,6 @@ 1 - -%String -"ZijkantBestukking" -1 -1 - - %String "ZijkantLinks"