persistent 1 %Persistent comment body 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 %String %Integer %Float %Float %Float %Float 1 1 KLNr,ProdGroep 1 %Library.CacheStorage ^tmp.OmzetKlantProductD OmzetKlantProductDefaultData ^tmp.OmzetKlantProductD ^tmp.OmzetKlantProductI ^tmp.OmzetKlantProductS listnode %%CLASSNAME Aantal MargeN MargeS OmzetN OmzetS