be858232-15ee-46eb-9bdd-0020648c8f19BAZA_REKLAM29.7cmInteger=Year(Today)rok20062007200820092010StringListaTytulowSYMBtytulListaTytulowSYMBSYMBStringListaWydanNRWodListaWydanNRWNRWString=Parameters!od.Value + 50doListaWydanNRWNRWIntegerListaAgencjiId_agencjiagencjaListaAgencjiId_agencjiSymboltruetrue21cm0.25cmtrue1cm1cm1cm7c4b3879-c61a-4c23-9dbc-64b80b9561a729.7cmTYTUŁSystem.StringNRSystem.Int16SYMBOL AKWIZYTORASystem.StringId_agencjiSystem.Int32DATA_WSystem.DateTimesumaCJSystem.DoublesumaRabatSystem.DoubleiloscSystem.Int32=Fields!Id_agencji.ValueIn=Parameters!agencja.ValueBAZA_REKLAMSELECT R.TYTUŁ,
[UKAŻE SIĘ W NR].[Nr Wydania] AS NR,
R.[SYMBOL AKWIZYTORA], A.Id_agencji,
N.DATA_W,
Sum(R.[CENA JEDN]) as sumaCJ,Sum(R.[RABAT WARTOŚĆ]) As sumaRabat, Count(R.[CENA JEDN]) 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] ON R.ReklamaID = [UKAŻE SIĘ W NR].ReklamaId left join
dbo.NR AS N ON N.TYT = R.TYTUŁ AND N.NRW = [UKAŻE SIĘ W NR].[Nr Wydania]
group by R.TYTUŁ,
[UKAŻE SIĘ W NR].[Nr Wydania],N.DATA_W,
R.[ZATWIERDZONO DO DRUKU],
A.Id_agencji, A2.Id_agenta,
R.[SYMBOL AKWIZYTORA]
having
R.[ZATWIERDZONO DO DRUKU]=1 AND year(N.DATA_W)=@rok AND R.TYTUŁ=@tytul and [UKAŻE SIĘ W NR].[Nr Wydania]>=@od AND [UKAŻE SIĘ W NR].[Nr Wydania] <=@do
order by R.TYTUŁ,
[UKAŻE SIĘ W NR].[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 Function27cm1cm