6d589086-5dce-4781-8884-a0dd6b3db78aBAZA_REKLAM11inString=Year(Today)Rok:ListaLatrokrokString=Month(Today)Miesiąc:123456789101112trueStringListaAgencjiId_agencjitrueAgencja:ListaAgencjiId_agencjiSymboltrueStringListaTytulowSYMBtrueTytuł:ListaTytulowSYMBSYMBtrueInteger1Wydawca:12truetrue8.5in0.25cmtrue2.5cm2.5cmtrue0.75cmtrue2.5cm340d8633-3f30-4356-b810-b10969079b1c21cmAgencjaSystem.StringTytulSystem.StringFakturaNettoSystem.DecimalFakturaBruttoSystem.DoubleWplataBruttoSystem.DecimalBAZA_REKLAMSELECT
Agencja, Tytul,
Sum(Netto) AS FakturaNetto,
Sum(Brutto) AS FakturaBrutto,
Sum(suma_zaplat) AS WplataBrutto
FROM WplywyByTytul
WHERE (YEAR(dataWplaty) = @rok) AND (MONTH(dataWplaty) IN (@ms)) AND (Tytul IN (@tytul)) AND (SystemKsiegowyId IN (@systemKsiegowy))
GROUP BY Agencja, Tytul=Parameters!rok.Value=Parameters!ms.Value=Parameters!tytul.Value=Parameters!systemKsiegowy.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)