Index: DW/StockWaarde.cls.xml =================================================================== diff -u -r47114 -r47231 --- DW/StockWaarde.cls.xml (.../StockWaarde.cls.xml) (revision 47114) +++ DW/StockWaarde.cls.xml (.../StockWaarde.cls.xml) (revision 47231) @@ -233,7 +233,7 @@ ;k %x m %x=arHist zw %x ; Gemiddelde Set Som=0,Aantal=0 - + Set AfwijkingGemiddelde="" Set IdxDate=$O(arHist("")) While IdxDate'="" { @@ -271,6 +271,8 @@ + +w ##class(DW.StockWaarde).StandaardAfwijking(808099) 1 PRNr:%String,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0 1 @@ -279,14 +281,15 @@ Do ..GenereerWeken(.arHist,AantalWeken) Do ..GetWeekVerkoop(PRNr, .arHist) Do:GroepeerPer2 ..GroepeerPer2(.arHist) + ;k %x m %x=arHist zw %x Quit ..StandaardAfwijkingCalculatie(.arHist, MinAantalWeken) ]]> -w ##class(DW.StockWaarde).StandaardAfwijking(808099) +w ##class(DW.StockWaarde).StandaardAfwijkingMulti(##class(TECH.ListbuildIterator).%New($lb(808099))) Variantie, Deviation 1 itProducts:TECH.Iterator,AantalWeken:%Integer=26,MinAantalWeken:%Integer=5,GroepeerPer2:%Boolean=0 @@ -311,6 +314,7 @@