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,
netto =
CASE
WHEN COALESCE(SUM(U.netto), 0)=0 THEN CAST(SUM(R.[Cena Jedn]-R.[Rabat Wartość]) AS DECIMAL(9,2))
ELSE CAST(COALESCE(SUM(U.netto), 0) AS DECIMAL(9,2))
END,
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).