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(REKLAMA.NETTO, 0) AS NETTO, 1 AS ILOSC, DATEPART(YEAR, REKLAMA.[DATA ZAMÓWIENIA]) AS ROK, DATEPART(QUARTER,
REKLAMA.[DATA ZAMÓWIENIA]) AS KW, CONVERT(INTEGER, (1.0 + DATEPART(QUARTER, REKLAMA.[DATA ZAMÓWIENIA])) / 2) AS ROK_PO,
DATEPART(MONTH, REKLAMA.[DATA ZAMÓWIENIA]) AS MS, REKLAMA.[DATA ZAMÓWIENIA], REKLAMA.TYTUŁ AS tytul, Agencje.Symbol as agencja, Agenci.Symbol as agent
FROM AGENCJE INNER JOIN
AGENCI ON AGENCJE.Id_agencji = AGENCI.ID_AGENCJI INNER JOIN
REKLAMA ON AGENCI.Symbol = REKLAMA.[SYMBOL AKWIZYTORA] INNER JOIN
KLIENCI ON KLIENCI.CustomerID = REKLAMA.CustomerID
WHERE (REKLAMA.TYP = 'PŁATNA' OR
REKLAMA.TYP = 'BARTER') AND (abs(REKLAMA.[ZATWIERDZONO DO DRUKU]) = 1) AND (DATEPART(YEAR, REKLAMA.[DATA ZAMÓWIENIA]) >= @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.25cm1cmOutside0truetrue1wgDatyZamowienia_ZatwierdzoneDoDrukutrueOrthographicRealCylinder0PlainInsideInside0truetruetrueColumn=Fields!rok.Value=switch(Parameters!okres.Label="ROK","",Parameters!okres.Label="PÓŁROCZE",Fields!rok_po.Value,Parameters!okres.Label="KWARTAŁ",Fields!rok_po.Value,Parameters!okres.Label="MS",Fields!rok_po.Value)=switch(Parameters!okres.Label="ROK","",Parameters!okres.Label="PÓŁROCZE","",Parameters!okres.Label="KWARTAŁ",Fields!kw.Value,Parameters!okres.Label="MS",Fields!kw.Value)=switch(Parameters!okres.Label="ROK","",Parameters!okres.Label="PÓŁROCZE","",Parameters!okres.Label="KWARTAŁ","",Parameters!okres.Label="MS",Fields!ms.Value)Excel=Sum(Fields!netto.Value)=Code.Formatuj(Sum(Fields!netto.Value))Top-90true6pt
NETTO - zatwierdzone do druku (wg daty zamówienia)