6a2bec57-03d9-4f28-a49c-65e1805de702BAZA_REKLAM29.7cmString=Year(Today)-2trueokres2002=Year(Today)-4=Year(Today)-3=Year(Today)-2Stringtruetytuł:ListaTytulowvaluelabelStringtrueagencjaListaAgencjiId_agencjiSymbolStringtrueagentListaAgentowID_AGENTASymboltrue21cm0.25cmtrue1cm1cm1cm58bc7198-b2fa-4939-89e9-e74e3118e4d029.7cmROKSystem.Int32ROK_POSystem.Int32KWSystem.Int32MSSystem.Int32nettoSystem.DoubleiloscSystem.Int32tytulSystem.StringagencjaSystem.StringagentSystem.StringBAZA_REKLAMSELECT ROK, ROK_PO, KW, MS, SUM(NETTO) AS netto, COUNT(ILOSC) AS ilosc, tytul, agencja, agent
FROM
(
SELECT ROUND(NETTO, 0) AS NETTO,
1 AS ILOSC,
DATEPART(YEAR, dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA]) AS ROK,
DATEPART(QUARTER, dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA]) AS KW,
CONVERT(INTEGER,(1.0+DATEPART(QUARTER, dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA]))/2) AS ROK_PO,
DATEPART(MONTH, dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA]) AS MS,
DATEPART(Week, dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA]) AS WW,
dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA], REKLAMA.TYTUŁ AS tytul, Agencje.Symbol as agencja, Agenci.Symbol as agent,
dbo.REKLAMA.ZAPŁACONO FROM
dbo.AGENCJE INNER JOIN dbo.AGENCI ON dbo.AGENCJE.Id_agencji = dbo.AGENCI.ID_AGENCJI
INNER JOIN dbo.REKLAMA ON dbo.AGENCI.Symbol = dbo.REKLAMA.[SYMBOL AKWIZYTORA]
INNER JOIN dbo.Klienci on dbo.Klienci.CustomerId = dbo.Reklama.CustomerId
WHERE
(dbo.REKLAMA.TYP = 'PŁATNA' OR dbo.REKLAMA.TYP = 'BARTER')
AND (abs(dbo.REKLAMA.[ZATWIERDZONO DO DRUKU]) = 1) AND (dbo.REKLAMA.[FAKTURA WYSTAWIONO] = 1)
AND (DATEPART(YEAR, dbo.REKLAMA.[FAKTURA DATA WYSTAWIENIA]) >= @od)
AND (@tytul is null OR REKLAMA.TYTUŁ = @tytul)
AND (@agencja is null OR Agencje.id_agencji = @agencja)
AND (@agent is null OR Agenci.ID_AGENTA = @agent)
)
AS R
GROUP BY ROK, ROK_PO, KW, MS, tytul, agencja, agent
ORDER BY ROK desc, KW desc, MS desc=Parameters!okres.Value=Parameters!tytul.Value=Parameters!agencja.Value=Parameters!agent.ValuetrueId_agencjiSystem.Int32SymbolSystem.StringBAZA_REKLAMSELECT Id_agencji, Symbol
FROM AGENCJE where aktywna=1
union
select NULL ,'Wszystkie'
order by SymboltrueID_AGENTASystem.Int32SymbolSystem.StringagencjaSystem.StringBAZA_REKLAMSELECT A.ID_AGENTA, A.Symbol, A2.Symbol agencja
FROM AGENCI A left join Agencje A2
on A.ID_AGENCJI = A2.ID_Agencji
where (A2.ID_Agencji in (@agencja)) and a.aktywny=1
union
select NULL,'Wszyscy','costam'
order by A.Symbol=Parameters!agencja.ValuetruelabelSystem.StringvalueSystem.StringBAZA_REKLAMSELECT SYMB as label, SYMB as value
FROM [LISTA TYTUŁÓW] where st_aktywny = -1
union
select 'Wszystkie',NULLtruePublic Shared Function Formatuj(ByVal Value As Integer) As String
Formatuj = Format(Value, "### ### ##0.## zł")
End Function27.25cm1cm