persistent %Persistent 0 %SQLQuery Aantal:%Integer 1 SELECT Top :Aantal Datum , Tijd , Groep, Niveau , Actie , JobID , Detail FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' ORDER BY Datum DESC, Tijd DESC %SQLQuery SELECT Top 20 Datum , Tijd , Groep, Niveau , Actie , JobID , Detail FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' ORDER BY Datum DESC, Tijd DESC 1 Query wordt gebruikt door PVH in een Excel dd 31-05-2005 As %Library.SQLQuery(CONTAINID = 1) [ SqlView ] ///Query VerschilOmzetProdGrp(VorigVan As %Integer, VorigTot As %Integer, HuidigVan As %Integer, HuidigTot As %Integer ) As %Library.SQLQuery(CONTAINID = 1) [ SqlView ] %Query VorigVan:%Integer,VorigTot:%Integer,HuidigVan:%Integer,HuidigTot:%Integer 1 1 %Status 1 VerschilOmzetProdGrpExecute 0 %Status 0):$H-Vervallen,1:"") Set HeeftUtz=$S($D(^KLPUTZ("N",KLNr))>1:"+",1:"") Set AantalBezoeken=##class(BL.Derde.Agenda.Agenda).AantalBezoeken(KLNr,%HuidigVan,%HuidigTot) Set AantalKlachtenJr=##class(Derde.Klacht).AantalKlachten("K",KLNr,%HuidigVan,%HuidigTot) Set AantalKlachtenMnd=##class(Derde.Klacht).AantalKlachten("K",KLNr,%HuidigTotFD,%HuidigTot) Set Trend=##class(BL.Derde.Klant.Main).OmzetTrend(KLNr) Set Kwantitatief=$$DisplayKwantitatief^KLANT5(KLNr) Set Kwantitatief=$LG(Kwantitatief,1)_" "_$LG(Kwantitatief,2) Set Kwalitatief=$$DisplayKwalitatief^KLANT5(KLNr) Set Kwalitatief=$LG(Kwalitatief,1)_" "_$LG(Kwalitatief,2) Set Row=$LB(KLNr,Klant.Naam,Klant.Telefoon1,$P(LevAdr,"\",5),$P(LevAdr,"\",6),$P(LevAdr,"\",7),Klant.Sektor,Klant.Aktiviteit,Kwantitatief,Kwalitatief,Klant.CommNonActief,Vervallen,AantalBezoeken,AantalKlachtenJr,AantalKlachtenMnd,Klant.Prijsklasse,HeeftUtz,Trend) Set ProdGrp="" For Set ProdGrp=$O(^RES("PRODUKT","PI","PRODUKTGROEP","D",ProdGrp)) Quit:ProdGrp="" Do . Set VolgNr=$P(^RES("PRODUKT","PI","PRODUKTGROEP","D",ProdGrp),"`") . Set $LI(OmzetVorigList,VolgNr)=$LG(OmzetVorigList,VolgNr)+$G(SumOmzetVorig(ProdGrp)) . Set $LI(OmzetHuidigList,VolgNr)=$LG(OmzetHuidigList,VolgNr)+$G(SumOmzetHuidig(ProdGrp)) . Set $LI(MargeVorigList,VolgNr)=$LG(MargeVorigList,VolgNr)+$G(SumMargeVorig(ProdGrp)) . Set $LI(MargeHuidigList,VolgNr)=$LG(MargeHuidigList,VolgNr)+$G(SumMargeHuidig(ProdGrp)) Set Row=Row_OmzetVorigList_OmzetHuidigList_MargeVorigList_MargeHuidigList Quit $$$OK ]]> 1 VerschilOmzetProdGrpExecute %Status %Library.CacheStorage ^zTryout.JBL.ProcD ProcDefaultData ^zTryout.JBL.ProcD ^zTryout.JBL.ProcI ^zTryout.JBL.ProcS listnode %%CLASSNAME