persistent %Persistent 1 1 Periode,KlantDtl,VolgNr 1 %Library.Integer 0 %Integer 0 %Integer 0 %Float 0 F=Factuur;P=proforma,M=monster %String 0 DW.KlantDtl 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 %Float 0 L=Levering, T=Terugname %String 0 %Float 0 %Float 0 %Float 0 FakturatieDatum %Library.Date 0 DW.ProductDtl 0 M= Met stock aanpassing, Z=Zonder stock aanpassing %String 0 %Integer 0 %Integer 0 %Integer 0 %Integer 0 %String 0 Uniek Volgnr %Library.Integer 0 code rs:%ResultSet,Datum 1 code VanDatum:%Date $H . Write $zd(Datum,4)," " . Set BeginDatum=$$CALCDATE^vhDTyp(Datum,"M",-11,"FD") . Set rs=##class(%ResultSet).%New("DW.OmzetKlantJ:SelectRecenteGroupJaar") . Do rs.Execute(BeginDatum,Datum) ; Recente klanten . For Quit:'rs.Next() Do . . Set obj=..%New() . . Do obj.AddData(rs,Datum) . . Set ok=obj.%Save() . . write:'ok ok ]]> 1 code TotDatum:%Date 1 code VanDatum:%Date %SQLQuery SELECT min(Periode) as Periode FROM DW.OmzetKlantM %SQLQuery TotDatum:%Date %SQLQuery VanDatum:%Date = :VanDatum) ]]> %SQLQuery BeginDatum:%Date,EindDatum:%Date = :BeginDatum and (Periode <= :EindDatum) GROUP BY KlantDtl,ProductDtl,FactuurType,LeveringsType,VerzendWijze,StockAanpassing ]]> %Library.CacheStorage ^DW.OmzetKlantJD OmzetKlantJDefaultData ^DW.OmzetKlantJD ^DW.OmzetKlantJI ^DW.OmzetKlantJS listnode %%CLASSNAME Aantal AantalKinderen AantalPickings FactuurCnt FactuurType KostMatMA KostMatOV KostMatTP KostTijdMA KostTijdOV KostTijdTP LeveringsBonCnt LeveringsCnt LeveringsType Marge Omzet OrderCnt ProductDtl StockAanpassing Stuks TijdMA TijdOV TijdTP VerzendWijze KostMonsters