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) desctrueIDSystem.Int32SymbolSystem.StringBAZA_REKLAM--SELECT Id_agencji, Symbol
--FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji)
--UNION
--SELECT NULL, 'Wszystkie'
DECLARE @Agencies TABLE
(
ID int,
Symbol nvarchar(50)
)
INSERT INTO @Agencies(ID, Symbol)
SELECT Id_agencji, Symbol
FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji)
IF (@prawa_agencje IS NULL)
INSERT INTO @Agencies (ID, Symbol) VALUES (NULL, 'Wszystkie')
SELECT * FROM @Agencies=Parameters!prawa_agencje.ValuetrueIDSystem.Int32SymbolSystem.StringAgencjaSystem.StringBAZA_REKLAMDECLARE @Agents TABLE
(
ID int,
Symbol nvarchar(50),
Agencja nvarchar(50)
)
INSERT INTO @Agents(ID, Symbol, Agencja)
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.Symbol in (@agencja) OR A2.Symbol is null)
AND (@prawa_agent is null OR A.Symbol=@prawa_agent)
IF @agencja='Wszystkie'
INSERT INTO @Agents(ID, Symbol, Agencja) VALUES (NULL, 'Wszyscy', NULL)
SELECT * FROM @Agents ORDER BY Symbol=Parameters!agencja.Value=Parameters!prawa_agent.ValuetrueReklmaIDSystem.Int32KodKilentaSystem.StringNrZamowieniaSystem.Int32KodAgentaSystem.StringRokZamowieniaSystem.Int32ReklamaSystem.StringSumaSystem.DoubleBAZA_REKLAMDECLARE @Agents TABLE
(
symbol nvarchar(25)
)
IF @agencja='Wszystkie'
BEGIN
INSERT INTO @Agents(symbol)
SELECT symbol FROM AGENCI WHERE aktywny=1
END
--ELSE
--IF @agent='Wszyscy'
-- BEGIN
-- INSERT INTO @Agents(symbol)
-- SELECT A.symbol FROM AGENCI A INNER JOIN AGENCJE AG ON A.ID_AGENCJI = AG.ID_AGENCJI WHERE A.aktywny=1 --and AG.symbol in (@agencja)
-- END
SELECT
R.ReklamaID AS ReklmaID,
K.kodKlienta as KodKilenta,
Z.nrZamowienia as NrZamowienia,
Z.kodAgenta as KodAgenta,
Z.rokZamowienia as RokZamowienia,
R.[ID Reklamy] as Reklama,
ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0), 2) AS Suma
FROM [ukaże się w nr] E
INNER JOIN Reklama R on E.ReklamaID=R.ReklamaID
INNER JOIN NR N on E.[Nr Wydania]=N.NRW and R.[TYTUŁ] = N.TYT
INNER JOIN Zamowienia Z ON R.idZamowienia = Z.idZamowienia
INNER JOIN Klienci K on K.CustomerID = Z.idKlienta
WHERE E.zafakturowana=0
AND R.[ZATWIERDZONO DO DRUKU]=1
AND E.status<>2
AND MONTH(N.Data_W) in (@ms) AND YEAR(N.Data_W) = @rok
AND ((R.[symbol akwizytora] in (@agent)) OR (R.[symbol akwizytora] COLLATE SQL_Latin1_General_CP1250_CI_AS in (select symbol COLLATE SQL_Latin1_General_CP1250_CI_AS from @Agents)))
AND Z.rokZamowienia = @rok
GROUP BY
R.ReklamaID, K.kodKlienta, Z.nrZamowienia, Z.kodAgenta, Z.rokZamowienia, R.[ID Reklamy]=Parameters!agencja.Value=Parameters!agent.Value=Parameters!ms.Value=Parameters!rok.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