Index: vhDeploy/Maatwerk/TAOR/KostenPlaatsen.cls.xml =================================================================== diff -u -r57006 -r67243 --- vhDeploy/Maatwerk/TAOR/KostenPlaatsen.cls.xml (.../KostenPlaatsen.cls.xml) (revision 57006) +++ vhDeploy/Maatwerk/TAOR/KostenPlaatsen.cls.xml (.../KostenPlaatsen.cls.xml) (revision 67243) @@ -24,6 +24,8 @@ // Dan deploy uitvoeren en testen uitvoeren lokaal om te checken of er geen prijswijzigigen zijn. // Totalen vergelijken lokaal en op cache01 : SELECT Sum(BasisKost) FROM "Prod_GAMeta_BT"."KostPlaats" where Groep = 'TAORBOX'; + #define Datum01mei2022 66230 + Do ##class(TECH.Context).Instance().GeefQueryAPI().ExecuteDynamicQuery("DELETE FROM Prod_GAMeta_BT.KostPlaats WHERE Groep = ?",$listbuild(..#Groep)) // Toeslag verlet is al in de kostenplaatsen verrekend @@ -71,8 +73,13 @@ Do Maker.MaakKostenPlaats(..#Groep,"TAORBOX houtzaag",97.08,"TRBZAAG") Do Maker.MaakKostenPlaats(..#Groep,"TA'OR ZijkantLogo",78.20,"TAOR ZIJKANT LOGO") Do Maker.MaakKostenPlaats(..#Groep,"TA'OR VPK Bulk Per Onderdeel Gegroepeerd ZRF",50.42,"TAOR VKP FLATPACKBULK ZRF") - Do Maker.MaakKostenPlaats(..#Groep,"TA'OR VPK Flatpack Probox",129.84,"TAOR VKP FLATPACK PROBOX") + + If ($H < $$$Datum01mei2022) { + Do Maker.MaakKostenPlaats(..#Groep, "TA'OR Meerkost HoogteVerstelling", 0, "TAOR MEERKOST HOOGTEVERSTELLING", 3600) + } Else { + Do Maker.MaakKostenPlaats(..#Groep, "TA'OR Meerkost HoogteVerstelling", 3600, "TAOR MEERKOST HOOGTEVERSTELLING") + } #dim KostenplaatsWaardeTabel As DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeTabel = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeTabel).%New() Do KostenplaatsWaardeTabel.InitialiseerKostenPlaatsWaarden()