f49727fc-ed0f-435b-a629-837a8c45e5d6BAZA_REKLAM29.7cmStringtrueprawa_agencjetrueStringtrueprawa_agenttrueString=Year(Today)Rok:ListaLatrokrokString=Month(Today)Miesiąc:123456789101112trueStringListaAgencjiId_agencjiAgencja:ListaAgencjiId_agencjiSymbolStringListaAgentowSymbolAgent:ListaAgentowSymbolSymboltrueInteger1Tytuł:12truetrue21cm0.25cmtrue1cm1cm1cmc032f91c-7d3b-4aa6-9dbd-6538bd93868e21cmFirstNameSystem.Stringsymbol_agentaSystem.StringdataSystem.DateTimerodzajSystem.StringopisSystem.StringBAZA_REKLAM/*SELECT KLIENCI.FirstName, KONTAKTY.symbol_agenta, KONTAKTY.data, KONTAKTY.rodzaj, KONTAKTY.opis
FROM KONTAKTY LEFT OUTER JOIN
KLIENCI ON KONTAKTY.customerId = KLIENCI.CustomerID
WHERE (YEAR(KONTAKTY.data) = @rok) AND (MONTH(KONTAKTY.data) = @ms) AND (KONTAKTY.symbol_agenta = @agent)
ORDER BY KLIENCI.FirstName, KONTAKTY.data*/
SELECT KLIENCI.FirstName, KONTAKTY.symbol_agenta, KONTAKTY.data, KONTAKTY.rodzaj, KONTAKTY.opis
FROM KONTAKTY LEFT OUTER JOIN
KLIENCI ON KONTAKTY.customerId = KLIENCI.CustomerID
WHERE (YEAR(KONTAKTY.data) = @rok) AND (MONTH(KONTAKTY.data) IN (@ms)) AND (KONTAKTY.symbol_agenta IN (@agent)) AND
(KONTAKTY.KontaktTypId IN (@kontaktTyp))
ORDER BY KONTAKTY.symbol_agenta, KLIENCI.FirstName, KONTAKTY.data=Parameters!rok.Value=Parameters!ms.Value=Parameters!agent.Value=Parameters!kontaktTyp.ValueID_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.Id_agencji in (@agencja) OR A2.Id_agencji is null) AND (@prawa_agent is null OR A.Symbol=@prawa_agent)
order by A.Symbol=Parameters!agencja.Value=Parameters!prawa_agent.ValuetruerokSystem.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.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 Function
Public Function GetAgents(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 LCase(s)
End Function
Public Function GetTitles(P as Parameter) as String
Dim i As Integer
Dim s As String
s = p.Label(0)
For i = 1 to Ubound(P.Label)
s = s & ", " & p.Label(i)
Next i
Return s
End Function19.75cm1cm1cm19cm3true0.63492cm="Tytuł: " + Code.GetTitles(Parameters!kontaktTyp)0.25cm19cm2true0.75cm="Zestawienie kontaktów: rok: " + CStr(Parameters!rok.Value) + ", miesiąc(e): " + Code.GetMonths(Parameters!ms)symbol_agenta1.75cm19cm1true0.63492cm="Agenci: " + Code.GetAgents(Parameters!agent)