Do ##class(DW.StockWaarde).FetchAll() persistent Prod.Product %Persistent 0 1 1 Owner,Datum,Product 1 %Date 0 Van Hoecke of Halux %String %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Integer %Float 0 %Float 0 %Float 0 Prod.Product 0 DW.ProductDtl 0 %Float 0 %Float 0 %Integer 0 %String %Float 0 %Float 0 %Float %Float %Float 0 %Float 0 code CountType %Float %Boolean 1 code BackGround 1 Datum Result bevat "S" : Stock tellen Result bevat "W" : Werkvloer tellen Result bevat "H" : Halffabrikaat tellen (goederen die bij de stocktelling reeds halfafgewerkt zijn) Result bevat "B" : Leveringbons tellen Result bevat "R" : Receptie tellen Result bevat "O" : Moederproduct met stock over kinderen (zoals Orgalux) dan geen JaarVerkoopWaarde of GemFysStockWaarde Indien Result leeg is dan NIET tellen 1 code PRNr:%Integer %String code PRNr:%Integer,Maand:%Date,BeginMnd:%String,EndMnd:%String Onwer = Halux ;If ..Owner="HALUX" w PRNr," ",$P(^KPR(PRNr,0),"\",1),! r k Do ..ProductSetObjectId(PRNr) ;Do ..ProductDtlSetObjectId(##Class(DW.ProductDtl).DefineID(PRNr)) ; Stat waarden Set JKey=$O(^KPR(PRNr,"J")) Quit:$E(JKey)'="J" Set RecJ=^KPR(PRNr,JKey) Set Rec1=^KPR(PRNr,1) Do ..JaarVerkoop(PRNr,BeginMnd,EndMnd) Set GemWvk=$P(Rec1,D,23) Set ..GemWeekVerkoop=$P(GemWvk,"#")+$P(GemWvk,"#",2) Set GGemWvk=$P(Rec1,D,21) Set ..GemGewogenWeekVerkoop=$P(GGemWvk,"#")+$P(GGemWvk,"#",2) ]]> PRNr,BeginMnd,EndMnd code CountType:%String Alleen leveringen geen terugnames 1 code PRNr:%Integer Alleen toeleveringen geen terugnames 1 code PRNr:%Integer %Library.CacheStorage ^DW.StockWaardeD StockWaardeDefaultData ^DW.StockWaardeD ^DW.StockWaardeI ^DW.StockWaardeS %%CLASSNAME GemGewogenWeekVerkoop GemGewogenWeekVerkoopWaarde GemStock GemStockWaarde GemWeekVerkoop GemWeekVerkoopWaarde JaarVerkoop JaarVerkoopLijnen JaarVerkoopWaarde Levering LeveringWaarde ProductDtl Receptie ReceptieWaarde Rotatie Stock StockType StockWaarde Totaal TotaalWaarde WerkVloer WerkVloerWaarde HalfFabr HalfFabrWaarde