Index: trunk/RaportySQL/ZestawienieKontaktow.rdl
===================================================================
--- trunk/RaportySQL/ZestawienieKontaktow.rdl (revision 130)
+++ trunk/RaportySQL/ZestawienieKontaktow.rdl (revision 532)
@@ -3,11 +3,9 @@
+ f49727fc-ed0f-435b-a629-837a8c45e5d6
BAZA_REKLAM
- f49727fc-ed0f-435b-a629-837a8c45e5d6
- 1cm
- 1cm
- 21cm
+ 29.7cm
@@ -30,5 +28,5 @@
- rok
+ Rok:
@@ -46,5 +44,6 @@
- ms
+ MiesiÄ
+c:
@@ -87,4 +86,5 @@
+ true
@@ -96,5 +96,5 @@
- agencja
+ Agencja:
@@ -113,5 +113,5 @@
- agent
+ Agent:
@@ -121,4 +121,27 @@
+ true
+
+
+ Integer
+
+
+ 1
+
+
+ TytuÅ:
+
+
+
+ 1
+
+
+
+ 2
+
+
+
+
+ true
@@ -127,45 +150,219 @@
0.25cm
true
+ 1cm
+ 1cm
+ 1cm
+ c032f91c-7d3b-4aa6-9dbd-6538bd93868e
+ 21cm
+
+
+
+
+ FirstName
+ System.String
+
+
+ symbol_agenta
+ System.String
+
+
+ data
+ System.DateTime
+
+
+ rodzaj
+ System.String
+
+
+ opis
+ System.String
+
+
+
+ BAZA_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.Value
+
+
+
+
+
+
+
+ ID_AGENTA
+ System.Int32
+
+
+ Symbol
+ System.String
+
+
+ agencja
+ System.String
+
+
+
+ BAZA_REKLAM
+ SELECT 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.Value
+
+
+ true
+
+
+
+
+
+ rok
+ System.Int32
+
+
+
+ BAZA_REKLAM
+ select distinct year(DATA_W) as rok from dbo.NR where DATA_W is not null order by year(DATA_W)desc
+ true
+
+
+
+
+
+ Id_agencji
+ System.Int32
+
+
+ Symbol
+ System.String
+
+
+
+ BAZA_REKLAM
+ SELECT Id_agencji, Symbol
+FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji)
+
+
+ =Parameters!prawa_agencje.Value
+
+
+ true
+
+
+
+ Public 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 Function
+ 19.75cm
1cm
-
- 8.25cm
- 0.25cm
- 2
- 6.75cm
+
+ 1cm
+ 19cm
+ 3
true
0.63492cm
- =Parameters!rok.Value & "-" & Parameters!ms.Value
+ ="TytuÅ: " + Code.GetTitles(Parameters!kontaktTyp)
+
+
+ 0.25cm
+ 19cm
+
+ 2
+ true
+ 0.75cm
+ ="Zestawienie kontaktów: rok: " + CStr(Parameters!rok.Value) + ", miesiÄ
+c(e): " + Code.GetMonths(Parameters!ms)
- 1cm
- 0.25cm
symbol_agenta
- 1
- 6.75cm
+ 1.75cm
+ 19cm
+ 1
true
0.63492cm
- =First(Fields!symbol_agenta.Value, "Kontakty")
+ ="Agenci: " + Code.GetAgents(Parameters!agent)
Kontakty
- 1cm
+ 2.5cm
@@ -174,25 +371,53 @@
+
+ textbox8
+
+ 4
+ true
+ =LCase(Fields!symbol_agenta.Value)
+
+
+
+
+
firstname
+
3
-
true
=Fields!firstname.Value
@@ -204,25 +429,25 @@
data
+
2
-
true
=Fields!data.Value
@@ -234,23 +459,23 @@
rodzaj
+
1
-
true
=Fields!rodzaj.Value
@@ -263,20 +488,20 @@
opis
true
@@ -300,27 +525,57 @@
+
+ textbox7
+
+ 9
+ true
+ Agent
+
+
+
+
+
textbox1
- 7
-
+ 2pt
+ 2pt
+ 2pt
+
+ 8
true
KLIENT
@@ -332,26 +587,26 @@
textbox2
- 6
-
+ 7
true
DATA
@@ -363,25 +618,25 @@
textbox3
- 5
-
+ 2pt
+ 2pt
+ 2pt
+
+ 6
true
RODZAJ
@@ -393,25 +648,25 @@
textbox4
- 4
-
+ 2pt
+ 2pt
+ 2pt
+
+ 5
true
OPIS
@@ -426,5 +681,8 @@
- 6.25cm
+ 2cm
+
+
+ 5cm
@@ -440,125 +698,6 @@
- 2.26984cm
+ 3.76984cm
- c032f91c-7d3b-4aa6-9dbd-6538bd93868e
- 1cm
-
-
-
- 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
-
-
- =Parameters!rok.Value
-
-
- =Parameters!ms.Value
-
-
- =Parameters!agent.Value
-
-
- BAZA_REKLAM
-
-
-
- System.String
- FirstName
-
-
- System.String
- symbol_agenta
-
-
- System.DateTime
- data
-
-
- System.String
- rodzaj
-
-
- System.String
- opis
-
-
-
-
-
- true
- SELECT 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.Value
-
-
- BAZA_REKLAM
-
-
-
- System.Int32
- ID_AGENTA
-
-
- System.String
- Symbol
-
-
- System.String
- agencja
-
-
-
-
-
- true
- select distinct year(DATA_W) as rok from dbo.NR where DATA_W is not null order by year(DATA_W)desc
- BAZA_REKLAM
-
-
-
- System.Int32
- rok
-
-
-
-
-
- true
- SELECT Id_agencji, Symbol
-FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji)
-
-
- =Parameters!prawa_agencje.Value
-
-
- BAZA_REKLAM
-
-
-
- System.Int32
- Id_agencji
-
-
- System.String
- Symbol
-
-
-
-
-