persistent 1 1 %Persistent 1 1 DatumMaand,KlantDtl,ProductDtl 1 1 BeginMaand,DeleteAll $H . Set BeginTijd=$P($H,",",2) . If '$G(DeleteAll) Do .. Write !,"Delete maand:",$zd(Maand,4) .. Do ..DeleteMaand(Maand) ; Reeds verwijderd . Write !,"Fill maand:",$zd(Maand,4) . Do ..FillMaand(Maand) . Write " ",($P($H,",",2)-BeginTijd) ]]> 1 Maand comment body 1 Maand 0.01)!($ZABS($P(RecStat,D,4)-$LG(KlantSom,4))>0.01) Do .. Do ..OpenAddSave(Maand,KLDtlID,0,$P(RecStat,D,1)-$LG(KlantSom,1),$P(RecStat,D,3)-$LG(KlantSom,3),$P(RecStat,D,4)-$LG(KlantSom,4),0) Write "-Adding vorige maand" Set VorigeMaand=$$CALCDATE^vhLib.DataTypes(Maand,"M",-12,"FD") &sql(DECLARE DWCursor CURSOR FOR SELECT KlantDtl, ProductDtl,FaktuurLijnen,Omzet,Marge,Aantal INTO :KLDtlID,:PRDtlID,:FaktLijn,:Omzet,:Marge,:Qty FROM DW.OmzetKlantProductDtl WHERE DatumMaand=:VorigeMaand) &sql(OPEN DWCursor) For &sql(FETCH DWCursor) quit:SQLCODE Do . Do ..OpenAddVorigSave(Maand,KLDtlID,PRDtlID,FaktLijn, Omzet, Marge, Qty) &sql(CLOSE DWCursor) ]]> 1 Maand,KLDtlID,PRDtlID,FaktLijn,Omzet,Marge,Qty 1 Maand,KLDtlID,PRDtlID,FaktLijn,Omzet,Marge,Qty DW.DatumMaandDim DW.KlantDtl DW.ProductDtl %Float %Float %Integer %Integer %Float %Float %Integer %Integer %Library.CacheStorage ^DW.OmzetKlantProductDtlD OmzetKlantProductDtlDefaultData ^DW.OmzetKlantProductDtlD ^DW.OmzetKlantProductDtlI ^DW.OmzetKlantProductDtlS listnode %%CLASSNAME Aantal AantalV FaktuurLijnen FaktuurLijnenV Marge MargeV Omzet OmzetV