be858232-15ee-46eb-9bdd-0020648c8f19BAZA_REKLAM29.7cmString=Year(Today)rok200920102011StringListaTytulowSYMBtytulListaTytulowSYMBSYMBStringListaWydanNRWodListaWydanNRWNRWString=Parameters!od.Value + 50doListaWydanNRWNRWIntegerListaAgencjiId_agencjiagencjaListaAgencjiId_agencjiSymboltruetrue21cm0.25cmtrue1cm1cm1cm7c4b3879-c61a-4c23-9dbc-64b80b9561a729.7cmTYTUŁSystem.StringNRSystem.Int16SYMBOL AKWIZYTORASystem.StringId_agencjiSystem.Int32DATA_WSystem.DateTimenettoSystem.DecimaliloscSystem.Int32=Fields!Id_agencji.ValueIn=Parameters!agencja.ValueBAZA_REKLAMSELECT R.TYTUŁ, U.[Nr Wydania] AS NR, R.[SYMBOL AKWIZYTORA], A.Id_agencji, N.DATA_W, SUM(U.netto) AS netto, COUNT(U.ID) AS ilosc
FROM AGENCI AS A2 LEFT OUTER JOIN
AGENCJE AS A ON A.Id_agencji = A2.ID_AGENCJI INNER JOIN
REKLAMA AS R ON A2.Symbol = R.[SYMBOL AKWIZYTORA] INNER JOIN
[UKAŻE SIĘ W NR] AS U ON R.ReklamaID = U.ReklamaId LEFT OUTER JOIN
NR AS N ON N.TYT = R.TYTUŁ AND N.NRW = U.[Nr Wydania]
WHERE (R.[ZATWIERDZONO DO DRUKU] = 1) AND (YEAR(N.DATA_W) = @rok) AND (R.TYTUŁ = @tytul) AND (U.[Nr Wydania] >= @od) AND
(U.[Nr Wydania] <= @do)
GROUP BY R.TYTUŁ, U.[Nr Wydania], N.DATA_W, R.[ZATWIERDZONO DO DRUKU], A.Id_agencji, A2.ID_AGENTA, R.[SYMBOL AKWIZYTORA]
ORDER BY R.TYTUŁ, U.[Nr Wydania]=Parameters!rok.Value=Parameters!tytul.Value=Parameters!od.Value=Parameters!do.ValuetrueSYMBSystem.StringBAZA_REKLAMSELECT SYMB
FROM [LISTA TYTUŁÓW]
WHERE (st_aktywny = - 1)trueNRWSystem.Int16BAZA_REKLAMSELECT NRW from NR
where year(DATA_W)=@rok AND TYT=@tytul order by NRW=Parameters!rok.Value=Parameters!tytul.ValuetrueId_agencjiSystem.Int32SymbolSystem.StringBAZA_REKLAMSELECT Id_agencji, Symbol
FROM AGENCJE where aktywna=1
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.ValuetruePublic Shared Function Formatuj(ByVal Value As Integer) As String
Formatuj = Format(Value, "### ### ##0.## zł")
End Function27cm1cmtextbox20.75cm14.5cm3true4.5cm1cmSprzedaż z uwzględnieniem wyróżnień do Internetu. Przedstawia wartość emisji zafakturownych w 2009 oraz emisji, którcyh wartość została wpisana przez hadlowców (BEZPŁATNE I INNE Z 2008).