Index: trunk/RaportySQL/ListaReklamNaWydanieNr.rdl
===================================================================
--- trunk/RaportySQL/ListaReklamNaWydanieNr.rdl (revision 733)
+++ trunk/RaportySQL/ListaReklamNaWydanieNr.rdl (revision 738)
@@ -11,5 +11,4 @@
String
- true
@@ -57,5 +56,10 @@
String
- true
+
+
+ ListaGrzebietow
+ ID
+
+
Grzbiet:
@@ -66,4 +70,5 @@
+ true
@@ -182,5 +187,5 @@
- agencja
+ Agencja
System.String
@@ -220,4 +225,12 @@
zafakturowana
System.Boolean
+
+
+ Dzial
+ System.String
+
+
+ Rozdzial
+ System.String
@@ -337,6 +350,4 @@
FROM GRZBIETY
WHERE Active=1 AND TytulId=@tytul
-UNION
-SELECT NULL ,'Wszystkie'
ORDER BY Nazwa
@@ -384,9 +395,55 @@
- Public Function GetMultiSelectLabels(P as Parameter) as String
+ Dim i As Integer
+ Dim s As String
+ s = p.Label(0)
+ For i = 1 to Ubound(P.Value)
+ s = s + ", " + p.Label(i)
+ Next i
+ Return s
+End Function
+ 23.61254cm
1cm
+
+ 1.05cm
+ 2.55cm
+
+ 4
+ true
+ 0.75cm
+ Grzbiet(y):
+
+
+ 1.05cm
+ 16.35cm
+
+ 3
+ true
+ 2.55cm
+ 0.75cm
+ =Code.GetMultiSelectLabels(Parameters!grzbiet)
+
0.25cm
@@ -403,29 +460,9 @@
pl-PL
- 3
+ 2
true
- 16.2cm
+ 15.9cm
0.75cm
=Today
-
-
- 0.25cm
- 4.5cm
-
- 2
- true
- 11.5cm
- 0.75cm
- ="Grzbiet: " & Parameters!grzbiet.Label
@@ -450,6 +487,5 @@
ListaReklam
- 1.25cm
- 23.61255cm
+ 1.95cm
@@ -1579,5 +1615,5 @@
- 2.88492cm
+ 3.58492cm
pl-PL
Index: trunk/RaportySQL/ListaReklamA4.rdl
===================================================================
--- trunk/RaportySQL/ListaReklamA4.rdl (revision 738)
+++ trunk/RaportySQL/ListaReklamA4.rdl (revision 738)
@@ -0,0 +1,1223 @@
+
+
+
+
+ 71af35be-d6b9-40ac-aa77-85f47c870948
+ BAZA_REKLAM
+
+
+ 29.7cm
+
+
+ String
+
+
+ 1
+
+
+ TytuÅ:
+
+
+ ListaTytulow
+ Id
+ SYMB
+
+
+
+
+ String
+ Nr wydania:
+
+
+ String
+ true
+ Agencja:
+
+
+ ListaAgencji
+ Id_agencji
+ Symbol
+
+
+
+
+ String
+ true
+ Agent:
+
+
+ ListaAgentow
+ ID_AGENTA
+ Symbol
+
+
+
+
+ Integer
+
+
+ ListaGrzebietow
+ ID
+
+
+ Grzbiet:
+
+
+ ListaGrzebietow
+ ID
+ Nazwa
+
+
+ true
+
+
+ String
+
+
+ 0
+
+
+ true
+ Sortuj:
+
+
+
+ 0
+
+
+
+ 1
+
+
+
+
+
+
+ String
+
+
+ ListaDzialow
+ Id
+
+
+ true
+ DziaÅy:
+
+
+ ListaDzialow
+ Id
+ Name
+
+
+ true
+
+
+ true
+ 21cm
+ 0.15cm
+ true
+ 1cm
+ 1cm
+ 1cm
+ c8c9d8c9-35ad-4718-921a-81280b453acf
+ 21cm
+
+
+
+
+ ReklamaID
+ System.Int32
+
+
+ TYTUÅ
+ System.String
+
+
+ ID REKLAMY
+ System.String
+
+
+ SZER
+ System.Double
+
+
+ WYS
+ System.Double
+
+
+ KOLOR
+ System.String
+
+
+ NICK NAME
+ System.String
+
+
+ MOD_TYP
+ System.String
+
+
+ RABAT
+ System.Double
+
+
+ lokalizacja
+ System.String
+
+
+ lokalizacja1
+ System.String
+
+
+ NR
+ System.Int16
+
+
+ ZATWIERDZONO DO DRUKU
+ System.Boolean
+
+
+ GRZBIET
+ System.Int32
+
+
+ STRONA
+ System.Int16
+
+
+ Agencja
+ System.String
+
+
+ SYMBOL AKWIZYTORA
+ System.String
+
+
+ KROTNOÅÄ
+ System.Int16
+
+
+ NETTO
+ System.Double
+
+
+ nazwaGrzbietu
+ System.String
+
+
+ ID_AGENTA
+ System.Int32
+
+
+ CENA JEDN
+ System.Double
+
+
+ RABAT WARTOÅÄ
+ System.Double
+
+
+ nettoZEmisji
+ System.Decimal
+
+
+ zafakturowana
+ System.Boolean
+
+
+ Dzial
+ System.String
+
+
+ Rozdzial
+ System.String
+
+
+
+ BAZA_REKLAM
+ StoredProcedure
+ sp_GetListaReklamNaWydanie
+
+
+ =Parameters!nrwydania.Value
+
+
+ =Parameters!tytul.Value
+
+
+ =Parameters!dzial.Value
+
+
+ =Parameters!agencja.Value
+
+
+ =Parameters!agent.Value
+
+
+ =Parameters!grzbiet.Value
+
+
+
+
+
+
+
+ Id
+ System.Int32
+
+
+ Symb
+ System.String
+
+
+
+ BAZA_REKLAM
+ SELECT Id, Symb FROM [LISTA TYTUÅÃW]
+WHERE Active=1
+ true
+
+
+
+
+
+ Id_agencji
+ System.Int32
+
+
+ Symbol
+ System.String
+
+
+
+ BAZA_REKLAM
+ SELECT Id_agencji, Symbol
+FROM AGENCJE where aktywna=1
+union
+select NULL ,'Wszystkie'
+order by Symbol
+ true
+
+
+
+
+
+ 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 (A2.ID_Agencji in (@agencja))
+and a.aktywny=1
+union
+select NULL,'Wszyscy','costam'
+order by A.Symbol
+
+
+ =Parameters!agencja.Value
+
+
+ true
+
+
+
+
+
+ ID
+ System.Int32
+
+
+ Nazwa
+ System.String
+
+
+
+ BAZA_REKLAM
+ SELECT ID, Nazwa
+FROM GRZBIETY
+WHERE Active=1 AND TytulId=@tytul
+ORDER BY Nazwa
+
+
+ =Parameters!tytul.Value
+
+
+ true
+
+
+
+
+
+ Id
+ System.Int32
+
+
+ Name
+ System.String
+
+
+
+ BAZA_REKLAM
+ DECLARE @Dzialy Table
+(
+ Id INT,
+ Name NVARCHAR(50)
+)
+
+INSERT INTO @Dzialy
+SELECT Id, Name FROM Dzial WHERE Active=1 AND TitleId=@tytul
+
+IF (SELECT COUNT(Id) FROM @Dzialy)<1
+INSERT INTO @Dzialy
+SELECT 0, 'Wszystkie dziaÅy'
+
+SELECT * FROM @Dzialy
+
+
+ =Parameters!tytul.Value
+
+
+ true
+
+
+
+ Public Function GetMultiSelectLabels(P as Parameter) as String
+ Dim i As Integer
+ Dim s As String
+ s = p.Label(0)
+ For i = 1 to Ubound(P.Value)
+ s = s + ", " + p.Label(i)
+ Next i
+ Return s
+End Function
+ 18.97646cm
+
+ 1cm
+
+
+ 1.05cm
+ 2.55cm
+
+ 4
+ true
+ 0.75cm
+ Grzbiet(y):
+
+
+ 0.3cm
+ 3cm
+
+ 3
+ true
+ 15.9cm
+ 0.75cm
+ =Today
+
+
+ 1.05cm
+ 16.35cm
+
+ 2
+ true
+ 2.55cm
+ 0.75cm
+ =Code.GetMultiSelectLabels(Parameters!grzbiet)
+
+
+ textbox17
+ 0.25cm
+ 11.5cm
+
+ 1
+ true
+ 0.75cm
+ ="LISTA REKLAM DO WYDANIA NR: " & Parameters!tytul.Label & " " & Parameters!nrwydania.Value
+
+
+ ListaReklam
+ 1.95cm
+
+
+
+
+
+
+
+ ID_REKLAMY
+
+ 9
+ true
+ =Fields!ID_REKLAMY.Value
+
+
+
+
+
+
+ SZER
+
+ 8
+ true
+ =Fields!SZER.Value
+
+
+
+
+
+
+ WYS
+
+ 7
+ true
+ =Fields!WYS.Value
+
+
+
+
+
+
+ ogl_dzial
+
+ 6
+ true
+ =Fields!Dzial.Value
+
+
+
+
+
+
+ ogl_rozdzial
+
+ 5
+ true
+ =Fields!Rozdzial.Value
+
+
+
+
+
+
+ lokalizacja
+
+ 4
+ true
+ =Fields!lokalizacja1.Value
+
+
+
+
+
+
+
+ 3
+ true
+ =Fields!lokalizacja.Value
+
+
+
+
+
+
+ textbox20
+
+ 2
+ true
+ =Left(Fields!NICK_NAME.Value,15)
+
+
+
+
+
+
+ MOD_TYP
+
+ 1
+ true
+ =Fields!MOD_TYP.Value
+
+
+
+
+
+
+ ID_GRZBIETU
+
+ true
+ =Fields!STRONA.Value
+
+
+
+
+ 0.5cm
+
+
+
+
+ =iif(Parameters!sortuj.Value=1,Fields!MOD_TYP.Value,Fields!ID_REKLAMY.Value)
+ Ascending
+
+
+
+
+
+
+
+
+
+ 5
+
+
+ textbox37
+
+ 21
+ true
+ =Count(Fields!ReklamaID.Value) & " REK" & " " & Sum(Fields!WYS.Value*Fields!SZER.Value) & " MOD" & " " & Round(Sum(Fields!WYS.Value*Fields!SZER.Value)/64) & " stron"
+
+
+
+
+ 5
+
+
+ textbox24
+
+ 20
+ true
+ =Sum(Fields!CENA_JEDN.Value) - Sum(Fields!RABAT_WARTOÅÄ.Value)
+
+
+
+
+ 0.63492cm
+
+
+
+
+
+
+ textbox25
+
+ 19
+ true
+ Symbol
+
+
+
+
+
+
+ textbox22
+
+ 18
+ true
+ S
+
+
+
+
+
+
+ textbox19
+
+ 17
+ true
+ W
+
+
+
+
+
+
+ textbox26
+
+ 16
+ true
+ DziaÅ
+
+
+
+
+
+
+ textbox21
+
+ 15
+ true
+ Roz
+
+
+
+
+
+
+ textbox10
+
+ 14
+ true
+ Lokalizacja
+
+
+
+
+
+
+ textbox14
+
+ 13
+ true
+ Uwagi
+
+
+
+
+
+
+ textbox9
+
+ 12
+ true
+ Klient
+
+
+
+
+
+
+ textbox2
+
+ 11
+ true
+ ModuÅ
+
+
+
+
+
+
+ textbox11
+
+ 10
+ true
+ Str
+
+
+
+
+ 0.5cm
+
+
+
+
+
+ 2cm
+
+
+ 0.5cm
+
+
+ 0.5cm
+
+
+ 3cm
+
+
+ 3cm
+
+
+ 2.7cm
+
+
+ 3cm
+
+
+ 2.25cm
+
+
+ 1.27646cm
+
+
+ 0.75cm
+
+
+
+
+ 3.58492cm
+
+ pl-PL
+ 1cm
+ 29.7cm
+
Index: trunk/RaportySQL/RaportySQL.rptproj
===================================================================
--- trunk/RaportySQL/RaportySQL.rptproj (revision 732)
+++ trunk/RaportySQL/RaportySQL.rptproj (revision 738)
@@ -234,4 +234,8 @@
+ SprzedazProwizje.rdl
+ SprzedazProwizje.rdl
+
+
SprzedazReklam.rdl
SprzedazReklam.rdl
@@ -418,6 +422,6 @@
- SprzedazProwizje.rdl
- SprzedazProwizje.rdl
+ ListaReklamA4.rdl
+ ListaReklamA4.rdl
Index: trunk/RaportySQL/ListaReklamA3.rdl
===================================================================
--- trunk/RaportySQL/ListaReklamA3.rdl (revision 735)
+++ trunk/RaportySQL/ListaReklamA3.rdl (revision 738)
@@ -16,6 +16,5 @@
- true
- tytul
+ TytuÅ:
@@ -29,10 +28,10 @@
String
true
- nr wydania
+ Nr wydania:
String
true
- agencja
+ Agencja:
@@ -46,5 +45,5 @@
String
true
- agent
+ Agent:
@@ -57,6 +56,11 @@
Integer
- true
- grzbiet
+
+
+ ListaGrzebietow
+ ID
+
+
+ Grzbiet:
@@ -66,4 +70,24 @@
+ true
+
+
+ String
+
+
+ ListaDzialow
+ Id
+
+
+ true
+ DziaÅy:
+
+
+ ListaDzialow
+ Id
+ Name
+
+
+ true
@@ -88,23 +112,4 @@
-
-
- String
-
-
- ListaDzialow
- Id
-
-
- true
- DziaÅy:
-
-
- ListaDzialow
- Id
- Name
-
-
- true
@@ -344,6 +349,4 @@
FROM GRZBIETY
WHERE Active=1 AND TytulId=@tytul
-UNION
-SELECT NULL ,'Wszystkie'
ORDER BY Nazwa
@@ -391,9 +394,55 @@
- Public Function GetMultiSelectLabels(P as Parameter) as String
+ Dim i As Integer
+ Dim s As String
+ s = p.Label(0)
+ For i = 1 to Ubound(P.Value)
+ s = s + ", " + p.Label(i)
+ Next i
+ Return s
+End Function
+ 24.52646cm
1cm
+
+ 1.2cm
+ 2.55cm
+
+ 4
+ true
+ 0.75cm
+ Grzbiet(y):
+
+
+ 1.2cm
+ 21.45cm
+
+ 3
+ true
+ 2.55cm
+ 0.75cm
+ =Code.GetMultiSelectLabels(Parameters!grzbiet)
+
0.25cm
@@ -410,29 +459,9 @@
pl-PL
- 3
+ 2
true
15.5cm
0.75cm
=Today
-
-
- 0.25cm
- 4.5cm
-
- 2
- true
- 11.5cm
- 0.75cm
- ="Grzbiet: " & Parameters!grzbiet.Label
@@ -457,6 +486,5 @@
ListaReklam
- 1.25cm
- 24.52646cm
+ 2.1cm
@@ -1316,5 +1344,5 @@
- 2.88492cm
+ 3.73492cm
pl-PL