f393d778-91f0-457a-b250-e98d2bd145a3BAZA_REKLAM29.7cmStringtrueprawa_agencjetrueInteger=Year(Today)rokListaLatrokrokInteger=Month(Today)truems123456789101112trueStringListaAgencjiSymbolagencjaListaAgencjiSymbolSymboltrueString1Wydawca:12truetrue21cm0.25cmtrue1cm1cm1cm49620b09-a36e-46bb-a124-4654221e2b2929.7cmagencjaSystem.StringagentSystem.StringkodKlientaSystem.StringDATA_SPRZEDAZYSystem.DateTimeTERMIN_ZAPLATYSystem.DateTimenumerSystem.Int32numer_rozSystem.StringbruttoSystem.Doublesuma_zaplatSystem.DecimalzalegaSystem.Decimalbrutto_walutaSystem.Doublesuma_zaplat_walutaSystem.Decimalzalega_walutaSystem.DoubleILOSCSystem.Int32procentSystem.Double=Month(Fields!data_sprzedazy.Value)In=Parameters!ms.Value=Fields!Agencja.ValueIn=Parameters!agencja.ValueBAZA_REKLAMSELECT
agencja,
agent,
kodKlienta,
DATA_SPRZEDAZY,
TERMIN_ZAPLATY,
numer,
numer_roz,
SUM(brutto) AS brutto,
SUM(wplata_brutto) AS suma_zaplat,
CAST(Sum(zalega) AS DECIMAL(9)) AS zalega,
SUM(waluta_brutto) AS brutto_waluta,
SUM(wplata_brutto_waluta) AS suma_zaplat_waluta,
Sum(zalega_waluta) AS zalega_waluta,
count(id_faktury) AS ILOSC,
CONVERT(float, (SUM(zalega))) / CONVERT(float, SUM(brutto)) AS procent
FROM
(
SELECT
V1.id_faktury,
V2.id_agencji,
agent,
kodKlienta,
V2.DATA_SPRZEDAZY,
V2.TERMIN_ZAPLATY,
V2.numer,
V2.numer_roz,
V1.brutto,
V1.waluta_brutto,
wplaty.brutto AS wplata_brutto,
wplaty.waluta_brutto AS wplata_brutto_waluta,
ROUND(V1.brutto - wplaty.brutto, 0) AS zalega,
V1.waluta_brutto - wplaty.waluta_brutto as zalega_waluta,
dbo.AGENCJE.Symbol AS Agencja
FROM VIEW_BRUTTO_PO_KOREKTACH V1
LEFT JOIN View_ZESTAWIENIE_LISTA_FAKTUR_nowa V2 ON V1.id_faktury = V2.id_faktury
INNER JOIN Wplaty ON V1.id_faktury = Wplaty.idFaktury
INNER JOIN dbo.AGENCJE ON V2.ID_AGENCJI = dbo.AGENCJE.ID_AGENCJI
WHERE year(V2.DATA_SPRZEDAZY) = 2009 AND (V1.brutto - V2.suma_zaplat) > 0 AND V2.SystemKsiegowyId IN (@systemKsiegowy)
) T
GROUP BY agencja, agent,kodKlienta,DATA_SPRZEDAZY, TERMIN_ZAPLATY, numer, numer_roz
ORDER BY zalega DESC=Parameters!systemKsiegowy.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)desctrueId_agencjiSystem.Int32SymbolSystem.StringBAZA_REKLAMSELECT Id_agencji, Symbol
FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji)=Parameters!prawa_agencje.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 Function35.90875cm1cmtextbox370.25cm24.75cm1true0.63492cm="ZALEGŁOŚCI " & Parameters!rok.Value & " " & Code.GetMonths(Parameters!ms)