d1dece55-a94d-4dc9-92c9-712f0e97d984BAZA_REKLAM29.7cmStringtrueprawa_agencjetrueStringtrueprawa_agenttrueString=Year(Today)Rok:ListaLatrokrokString=Month(Today)ms123456789101112StringListaAgencjiSymbolagencjaListaAgencjiSymbolSymbolStringListaAgentowSymbolagentListaAgentowSymbolSymboltruetrue21cm0.25cmtrue1cm1cm0.5cmf584544c-4729-4602-b665-5574c5764abf21cmAgentSystem.StringReklmaIDSystem.Int32KodKilentaSystem.StringidZamowieniaSystem.Int32NrZamowieniaSystem.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
SELECT
R.[symbol akwizytora] AS Agent,
R.ReklamaID AS ReklmaID,
K.kodKlienta as KodKilenta,
Z.idZamowienia,
Z.nrZamowienia as NrZamowienia,
Z.kodAgenta as KodAgenta,
Z.rokZamowienia as RokZamowienia,
R.[ID Reklamy] as Reklama,
Suma = CASE R.wyroznienie
WHEN 0 THEN ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0), 2)
ELSE ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0) + (R.wyroznienie_procent * COALESCE(SUM([cena jedn] - [rabat wartość]), 0)), 2)
END
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 Z.rodzajFakturowania=0 -- fakturowanie co miesiac
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.[symbol akwizytora], R.ReklamaID, K.kodKlienta, Z.idZamowienia, Z.nrZamowienia, Z.kodAgenta, Z.rokZamowienia, R.[ID Reklamy], R.wyroznienie, R.wyroznienie_procent
UNION
SELECT
R.[symbol akwizytora] AS Agent,
R.ReklamaID AS ReklmaID,
K.kodKlienta as KodKilenta,
Z.idZamowienia,
Z.nrZamowienia as NrZamowienia,
Z.kodAgenta as KodAgenta,
Z.rokZamowienia as RokZamowienia,
R.[ID Reklamy] as Reklama,
Suma = CASE R.wyroznienie
WHEN 0 THEN ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0), 2)
ELSE ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0) + (R.wyroznienie_procent * COALESCE(SUM([cena jedn] - [rabat wartość]), 0)), 2)
END
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
INNER JOIN ZAMOWIENIA_1EMISJA_bezFK EBezFk ON EBezFk.idZamowienia=Z.idZamowienia
WHERE
E.zafakturowana=0
AND R.[ZATWIERDZONO DO DRUKU]=1
AND E.status<>2
AND Z.rodzajFakturowania=1 -- fakturowanie co trzy miesiace
AND MONTH(N.Data_W) between @ms and (@ms+2)
AND YEAR(N.Data_W) = @rok
AND MONTH(EBezFk.data1) = @ms
AND YEAR(EBezFk.data1) = @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.[symbol akwizytora], R.ReklamaID, K.kodKlienta, Z.idZamowienia, Z.nrZamowienia, Z.kodAgenta, Z.rokZamowienia, R.[ID Reklamy], R.wyroznienie, R.wyroznienie_procent
UNION
SELECT
R.[symbol akwizytora] AS Agent,
R.ReklamaID AS ReklmaID,
K.kodKlienta as KodKilenta,
Z.idZamowienia,
Z.nrZamowienia as NrZamowienia,
Z.kodAgenta as KodAgenta,
Z.rokZamowienia as RokZamowienia,
R.[ID Reklamy] as Reklama,
Suma = CASE R.wyroznienie
WHEN 0 THEN ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0), 2)
ELSE ROUND(COALESCE(SUM([cena jedn] - [rabat wartość]), 0) + (R.wyroznienie_procent * COALESCE(SUM([cena jedn] - [rabat wartość]), 0)), 2)
END
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
INNER JOIN ZAMOWIENIA_1EMISJA_bezFK EBezFk ON EBezFk.idZamowienia=Z.idZamowienia
WHERE
E.zafakturowana=0
AND R.[ZATWIERDZONO DO DRUKU]=1
AND E.status<>2
AND Z.rodzajFakturowania=2 -- fakturowanie wsio co w zamowieniu
AND MONTH(N.Data_W) >= MONTH(EBezFk.data1)
AND YEAR(N.Data_W) >= YEAR(EBezFk.data1)
AND MONTH(EBezFk.data1) = @ms
AND YEAR(EBezFk.data1) = @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.[symbol akwizytora], R.ReklamaID, K.kodKlienta, Z.idZamowienia, Z.nrZamowienia, Z.kodAgenta, Z.rokZamowienia, R.[ID Reklamy], R.wyroznienie, R.wyroznienie_procent=Parameters!agencja.Value=Parameters!ms.Value=Parameters!rok.Value=Parameters!agent.ValuetruerokSystem.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_REKLAMDECLARE @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.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 Function19cm1cmtextbox370.25cm18.75cm1true0.63492cm="Szacowanie niezafakturowanej sprzedaży dla " & Parameters!rok.Value + ", " + Parameters!ms.Value