71af35be-d6b9-40ac-aa77-85f47c870948BAZA_REKLAM29.7cmString1Tytuł:ListaTytulowIdSYMBStringNr wydania:StringtrueAgencja:ListaAgencjiId_agencjiSymbolStringtrueAgent:ListaAgentowID_AGENTASymbolIntegerListaGrzebietowIDGrzbiet:ListaGrzebietowIDNazwatrueString0trueSortuj:01StringListaDzialowIdtrueDziały:ListaDzialowIdNametruetrue21cm0.15cmtrue1cm1cm1cmc8c9d8c9-35ad-4718-921a-81280b453acf21cmReklamaIDSystem.Int32TYTUŁSystem.StringID REKLAMYSystem.StringSZERSystem.DoubleWYSSystem.DoubleKOLORSystem.StringNICK NAMESystem.StringMOD_TYPSystem.StringRABATSystem.DoublelokalizacjaSystem.Stringlokalizacja1System.StringNRSystem.Int16ZATWIERDZONO DO DRUKUSystem.BooleanGRZBIETSystem.Int32STRONASystem.Int16AgencjaSystem.StringSYMBOL AKWIZYTORASystem.StringKROTNOŚĆSystem.Int16NETTOSystem.DoublenazwaGrzbietuSystem.StringID_AGENTASystem.Int32CENA JEDNSystem.DoubleRABAT WARTOŚĆSystem.DoublenettoZEmisjiSystem.DecimalzafakturowanaSystem.BooleanDzialSystem.StringRozdzialSystem.StringBAZA_REKLAMStoredProceduresp_GetListaReklamNaWydanie=Parameters!nrwydania.Value=Parameters!tytul.Value=Parameters!dzial.Value=Parameters!agencja.Value=Parameters!agent.Value=Parameters!grzbiet.ValueIdSystem.Int32SymbSystem.StringBAZA_REKLAMSELECT Id, Symb FROM [LISTA TYTUŁÓW]
WHERE Active=1trueId_agencjiSystem.Int32SymbolSystem.StringBAZA_REKLAMSELECT Id_agencji, Symbol
FROM AGENCJE where aktywna=1
union
select NULL ,'Wszystkie'
order by SymboltrueID_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 (A2.ID_Agencji in (@agencja))
and a.aktywny=1
union
select NULL,'Wszyscy','costam'
order by A.Symbol=Parameters!agencja.ValuetrueIDSystem.Int32NazwaSystem.StringBAZA_REKLAMSELECT ID, Nazwa
FROM GRZBIETY
WHERE Active=1 AND TytulId=@tytul
ORDER BY Nazwa=Parameters!tytul.ValuetrueIdSystem.Int32NameSystem.StringBAZA_REKLAMDECLARE @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.ValuetruePublic 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 Function18.97646cm1cm1.05cm2.55cm4true0.75cmGrzbiet(y):0.3cm3cm3true15.9cm0.75cm=Today1.05cm16.35cm2true2.55cm0.75cm=Code.GetMultiSelectLabels(Parameters!grzbiet)textbox170.25cm11.5cm1true0.75cm="LISTA REKLAM DO WYDANIA NR: " & Parameters!tytul.Label & " " & Parameters!nrwydania.Value