3f5f953a-7bf9-4bc0-82e4-053699a1917fBAZA_REKLAM11inStringtrueprawa_agencjetrueStringtrueprawa_agenttrueString=Year(Today)truerokListaLatrokrokString=Month(Today)truems123456789101112trueStringListaAgencjiSymboltrueagencjaListaAgencjiSymbolSymbolStringListaAgentowSymbolagentListaAgentowSymbolSymboltruetrue8.5in0.25cmtrue2.5cm2.5cm2.5cmb53c8872-8ac1-476c-846e-6d4d059c465821cmrokSystem.Int32BAZA_REKLAMselect distinct year(DATA_W) as rok from dbo.NR where DATA_W is not null order by year(DATA_W) desctrueId_agencjiSystem.Int32SymbolSystem.StringBAZA_REKLAMSELECT Id_agencji, Symbol
FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji)=Parameters!prawa_agencje.ValuetrueID_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 aktywny=1 AND (A2.Symbol in (@agencja) OR A2.Symbol is null) AND (@prawa_agent is null OR A.Symbol=@prawa_agent)
order by A.Symbol=Parameters!agencja.Value=Parameters!prawa_agent.ValuetrueKodKilentaSystem.StringNrZamowieniaSystem.Int32KodAgentaSystem.StringRokZamowieniaSystem.Int32ReklamaSystem.StringRokSystem.Int32MiesiacSystem.Int32DataSystem.DateTimeNettoSystem.DoubleBAZA_REKLAMselect
K.kodKlienta as KodKilenta,
Z.nrZamowienia as NrZamowienia,
Z.kodAgenta as KodAgenta,
Z.rokZamowienia as RokZamowienia,
R.[ID Reklamy] as Reklama,
year([data zamówienia]) as Rok,
month([data zamówienia]) as Miesiac,
R.[data zamówienia] as Data,
R.Netto
from Zamowienia as Z
inner join Reklama R on R.idZamowienia = Z.idZamowienia
inner join Klienci K on K.CustomerID = Z.idKlienta
where zafakturowano=0
and
Z.rokZamowienia = @rok
and
month([data zamówienia])
in (@ms)
order by [data zamówienia] desc=Parameters!rok.Value=Parameters!ms.ValuetruePublic 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 Function27.57937cm1cm