persistent 1 %Persistent 0 1 1 1 (-BeginMaand) Do . . Set FAKNr="" . . For Set FAKNr=$O(^KFA1(Node,KLNr,Dat,FAKNr)) Quit:FAKNr="" Do . . . Do ..AddOne(KLNr,Node,FAKNr) ]]> 1 KLNr,Node,FAKNr Derde.Klant.Klant Prod.Product %Integer %Float %Float %Float %Float %Float %Float 1 1 Klant,Product 1 %Library.CacheStorage ^tmp.NieuwPrijsD NieuwPrijsDefaultData ^tmp.NieuwPrijsD ^tmp.NieuwPrijsI ^tmp.NieuwPrijsS listnode %%CLASSNAME Aantal MargeN MargeR MargeS OmzetN OmzetR OmzetS