Maandrapport van de orderintake en facturatie vhLib.Macro,BL.Derde.KlantSpecifiek %RegisteredObject %Date 1 D ##class(APPS.BD.OrderStat.impl.Extract2Statistiek).%New().Extract() Datum 1 1 %Status D ##class(APPS.BD.OrderStat.impl.Extract2Statistiek).Rebuild($H-10,+$H) 1 DatumFrom:%Date,DatumTo:%Date %SQLQuery Datum Sektor,0) as Regio, isnull(Product->ProductGroep,'REST') as ProductGroep,sum(AantalLijnen) as AantalLijnen,sum(OmzetVerkoop) as OmzetVerkoop ,sum(OmzetAankoop) as OmzetAankoop from APPS_BD_OrderStat_impl.OrderIntake where OrderDatum=:Datum group by isnull(Klant->Sektor,0),isnull(Product->ProductGroep,'REST')]]> %SQLQuery Datum Sektor,0) as Regio, isnull(Product->ProductGroep,'REST') as ProductGroep,sum(AantalLijnen) as AantalLijnen,sum(OmzetVerkoop) as OmzetVerkoop ,sum(OmzetAankoop) as OmzetAankoop from APPS_BD_OrderStat_impl.OrderGeleverd where PickDatum=:Datum group by isnull(Klant->Sektor,0),isnull(Product->ProductGroep,'REST')]]> %SQLQuery Sektor,0) as Regio,Product,count(*) as AantalLijnen, sum(Aantal) as AantalStuks,sum(Netto) as OmzetVerkoop from Flow_Order.Lijn as L,Flow_Order.Hoofding as H where H.OrderNr=L.OrderNr and H.Klant=L.Klant and case isnull(H.OrderType,'STD') when 'P' then 0 when 'M' then 0 when 'C' then 0 else 1 end=1 group by isnull(L.Klant->sektor,0),Product]]> 1 1 1 ProductGroep 1