6d589086-5dce-4781-8884-a0dd6b3db78aBAZA_REKLAM11inString=Year(Today)Rok:ListaLatrokrokString=Month(Today)Miesiac:123456789101112trueStringListaAgencjiId_agencjitrueAgencja:ListaAgencjiId_agencjiSymboltrueStringListaTytulowSYMBtruetytulListaTytulowSYMBSYMBtruetrue8.5in0.25cmtrue2.5cm2.5cmtrue0.75cmtrue2.5cm340d8633-3f30-4356-b810-b10969079b1c21cmAgencjaIdSystem.Int32AgencjaSystem.StringTytulSystem.StringFakturaNettoSystem.DecimalFakturaBruttoSystem.DoubleWplataBruttoSystem.DecimalBAZA_REKLAMSELECT AgencjaId, Agencja, Tytul,
SUM(FakturaNetto) AS FakturaNetto,
SUM(FakturaBrutto) AS FakturaBrutto,
SUM(WplataBrutto) AS WplataBrutto
FROM FakturyZaplacone
WHERE
Rok = @rok
AND Miesiac IN (@ms)
AND (AgencjaId IN (@agencja))
AND (Tytul IN (@tytul))
GROUP BY AgencjaId, Agencja, Tytul
ORDER BY Agencja, Tytul=Parameters!rok.Value=Parameters!ms.Value=Parameters!agencja.Value=Parameters!tytul.ValuetruerokSystem.Int32BAZA_REKLAMSELECT DISTINCT YEAR(DATA_W) AS rok
FROM dbo.NR
WHERE DATA_W IS NOT NULL
AND YEAR(DATA_W)>2007
ORDER BY YEAR(DATA_W) DESCtrueId_agencjiSystem.Int32SymbolSystem.StringBAZA_REKLAMSELECT Id_agencji, Symbol
FROM AGENCJE
WHERE aktywna=1trueSYMBSystem.StringBAZA_REKLAMSELECT SYMB
FROM [LISTA TYTUŁÓW]
WHERE (st_aktywny = - 1)truePublic Function GetMonths(P as Parameter) as String
Dim i As Integer
Dim s As String
s = p.value(0)
For i = 1 to Ubound(P.Value)
s = s & "," & p.Value(i)
Next i
Return s
End Function15.15872cm1cmtextbox112.69841cm1true0.75cm="Wpływy według daty wpłaty i tytułów: " & Parameters!rok.Value & ", " & Code.GetMonths(Parameters!ms)