f393d778-91f0-457a-b250-e98d2bd145a3BAZA_REKLAM29.7cmStringtrueprawa_agencjetrueInteger=Year(Today)rokListaLatrokrokInteger=Month(Today)truems123456789101112trueStringListaAgencjiSymbolagencjaListaAgencjiSymbolSymboltruetrue21cm0.25cmtrue1cm1cm1cm49620b09-a36e-46bb-a124-4654221e2b2929.7cmagencjaSystem.StringagentSystem.StringkodKlientaSystem.StringDATA_SPRZEDAZYSystem.DateTimeTERMIN_ZAPLATYSystem.DateTimenumerSystem.Int32numer_rozSystem.StringbruttoSystem.Decimalsuma_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,
Sum(zalega) 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,
V1.brutto - wplaty.brutto 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 ) T
GROUP BY agencja, agent,kodKlienta,DATA_SPRZEDAZY, TERMIN_ZAPLATY, numer, numer_roz
order by zalega desctruerokSystem.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)