dae351b9-ff91-493c-810c-ff63fbae85deBAZA_REKLAM29.7cmString=Year(Today())Rok:ListaLatrokrokString=Month(Today())Miesiąc:123456789101112StringListaTytulowSYMBTytuł:ListaTytulowSYMBSYMBtruetrue21cm0.25cmtrue1cm1cm1cmd759c067-31db-48f1-a171-35d46d6129fd21cmTytSystem.StringNrWydaniaSystem.Int32RokSystem.Int32MiesiacSystem.Int32NettoSystem.DecimalDM_NettoSystem.DecimalNI_NettoSystem.DecimalBAZA_REKLAMDECLARE @CurrentMonth TABLE
(
Tyt NVARCHAR(5),
NrWydania INT,
Rok INT,
Miesiac INT,
Netto MONEY
)
DECLARE @DifferentMonth TABLE
(
Tyt NVARCHAR(5),
NrWydania INT,
Rok INT,
Miesiac INT,
Netto MONEY
)
DECLARE @NoInvoice TABLE
(
Tyt NVARCHAR(5),
NrWydania INT,
Rok INT,
Miesiac INT,
Netto MONEY
)
INSERT INTO @CurrentMonth (Tyt, NrWydania, Rok, Miesiac, Netto)
SELECT Tyt, NrWydania, Rok, Miesiac, 0 FROM WartoscSprzedazy
WHERE
Rok=@rok
AND Miesiac=@miesiac
AND Tyt IN (@tytul)
GROUP BY Tyt, NrWydania, Rok, Miesiac
UPDATE CM
SET CM.Netto=WS.Netto
FROM @CurrentMonth CM
INNER JOIN
(
SELECT WS.Tyt, WS.NrWydania, WS.Rok, WS.Miesiac, SUM(WS.Netto) AS Netto FROM WartoscSprzedazy AS WS
WHERE
WS.Rok=@rok
AND WS.Miesiac=@miesiac
AND WS.MiesiacFaktury=WS.Miesiac
AND WS.Tyt IN (@tytul)
GROUP BY WS.Tyt, WS.NrWydania, WS.Rok, WS.Miesiac
) WS ON WS.Tyt COLLATE SQL_Latin1_General_CP1250_CI_AS = CM.Tyt COLLATE SQL_Latin1_General_CP1250_CI_AS AND WS.NrWydania=CM.NrWydania
INSERT INTO @DifferentMonth
SELECT Tyt, NrWydania, Rok, Miesiac, SUM(Netto) AS Netto FROM WartoscSprzedazy
WHERE
Rok=@rok
AND Miesiac=@miesiac
AND (MiesiacFaktury<>Miesiac)
AND Tyt IN (@tytul)
GROUP BY Tyt, NrWydania, Rok, Miesiac
INSERT INTO @NoInvoice
SELECT Tyt, NrWydania, Rok, Miesiac, SUM(Netto) AS Netto FROM WartoscSprzedazy
WHERE
Rok=@rok
AND Miesiac=@miesiac
AND (MiesiacFaktury IS NULL)
AND Tyt IN (@tytul)
GROUP BY Tyt, NrWydania, Rok, Miesiac
SELECT CM.Tyt, CM.NrWydania, CM.Rok, CM.Miesiac, COALESCE(CM.Netto, 0) AS Netto, COALESCE(DM.Netto, 0) AS DM_Netto, COALESCE(NI.Netto, 0) AS NI_Netto FROM @CurrentMonth CM
LEFT OUTER JOIN @DifferentMonth DM ON CM.Tyt=DM.Tyt AND CM.NrWydania=DM.NrWydania
LEFT OUTER JOIN @NoInvoice NI ON CM.Tyt=NI.Tyt AND CM.NrWydania=NI.NrWydania
ORDER BY CM.NrWydania=Parameters!rok.Value=Parameters!miesiac.Value=Parameters!tytul.ValuetruerokSystem.Int32BAZA_REKLAMSELECT DISTINCT YEAR(DATA_W) AS rok
FROM dbo.NR
WHERE DATA_W IS NOT NULL
AND YEAR(DATA_W)>2008
ORDER BY YEAR(DATA_W) DESCtrueSYMBSystem.StringBAZA_REKLAMSELECT SYMB
FROM [LISTA TYTUŁÓW]
WHERE (st_aktywny = - 1) AND SYMB<>'AGRO'true14.2cm1cmtextbox112.69841cm1true1cm="Wartość produkcji wg tytułu w: " + CStr(MonthName(CInt(Parameters!miesiac.Value))) + " " + CStr(Parameters!rok.Value)
WartoscProdukcji1.25cm=Fields!Tyt.Value=Fields!Tyt.ValueAscendingTyt17true=Fields!Tyt.Valuetextbox816truetextbox2015true=Sum(Fields!Netto.Value) + Sum(Fields!DM_Netto.Value) + Sum(Fields!NI_Netto.Value)textbox914true=Sum(Fields!Netto.Value)textbox713true=Sum(Fields!DM_Netto.Value)textbox1312true=Sum(Fields!NI_Netto.Value)0.55cm=Fields!NrWydania.Value=Fields!NrWydania.ValueAscendingtrueTyttextbox35true4true=Fields!NrWydania.Valuetextbox223true=Fields!Netto.Value + Fields!DM_Netto.Value + Fields!NI_Netto.ValueNetto2true=Fields!Netto.Valuetextbox101true=Sum(Fields!DM_Netto.Value)textbox15true=Sum(Fields!NI_Netto.Value)0.55cmtrueTyttextbox223trueTytułtextbox422trueNr Wydaniatextbox1721trueWartość produkcjitextbox620trueZafakturowano w wybranym miesiącutextbox519trueZafakturowano w innym niż wybrany miesiąctextbox1218trueBez faktury0.55cmtrue2cm2cm2.55cm2.55cm2.55cm2.55cm