bbcc12ab-5eed-4510-b210-1b3b99539ad1BAZA_REKLAM29.7cmStringtrueprawa_agencjetrueStringtrueprawa_agenttrueString=Year(Today)rokListaLatrokrokString=Month(Today)miesiac123456789101112StringListaAgencjiSymbolagencjaListaAgencjiSymbolSymboltrueStringListaAgentowSymbolagentListaAgentowSymbolSymboltrueStringListaTytulowSYMBtruetytułListaTytulowSYMBSYMBtrueIntegerListaGrzbietowIDgrzbietListaGrzbietowIDNazwatrueString2sortuj wg: 0123true21cm0.25cmtrue1cm1cm1cm9353c331-a24b-4f88-bbef-a42cfe8acfb229.7cmReklamaIDSystem.Int32SYMBOL AKWIZYTORASystem.StringID REKLAMYSystem.StringNICK NAMESystem.StringSYMBOL POTWIERDZENIASystem.StringRODZAJ POTWIERDZENIASystem.Stringwyroznienie_kwotaSystem.DoublePROCENT PROWIZJISystem.Doubleprowizja_od_wyroznieniaSystem.DoubleFAKTURA NUMERSystem.StringFAKTURA DATA WYSTAWIENIASystem.DateTimeFAKTURA FORMA PŁATNOŚCISystem.ByteagencjaSystem.StringTYTUŁSystem.StringGRZBIETSystem.Int32DATA ZAPŁATYSystem.DateTimeFAKTURA TERMIN ZAPŁATYSystem.DateTimeroznicaSystem.Int32=Fields!agencja.ValueIn=Parameters!agencja.Value=Fields!SYMBOL_AKWIZYTORA.ValueIn=Parameters!agent.Value=Fields!TYTUŁ.ValueIn=Parameters!tytuł.Value=Fields!GRZBIET.ValueIn=Parameters!grzbiet.ValueBAZA_REKLAMSELECT R.ReklamaID, R.[SYMBOL AKWIZYTORA], R.[ID REKLAMY], R.[NICK NAME], R.[SYMBOL POTWIERDZENIA],
R.[RODZAJ POTWIERDZENIA], R.wyroznienie_kwota, R.[PROCENT PROWIZJI], R.wyroznienie_kwota * R.[PROCENT PROWIZJI] as prowizja_od_wyroznienia, R.[FAKTURA NUMER],
R.[FAKTURA DATA WYSTAWIENIA], R.[FAKTURA FORMA PŁATNOŚCI], A.Symbol AS agencja, R.TYTUŁ, R.GRZBIET, R.[DATA ZAPŁATY],R.[FAKTURA TERMIN ZAPŁATY],
datediff(day,R.[FAKTURA TERMIN ZAPŁATY],R.[DATA ZAPŁATY]) as roznica
FROM AGENCI AS A2 LEFT OUTER JOIN
AGENCJE AS A ON A.Id_agencji = A2.ID_AGENCJI INNER JOIN
REKLAMA AS R ON A2.Symbol = R.[SYMBOL AKWIZYTORA]
WHERE (R.ZAPŁACONO = 1) AND (YEAR(R.[DATA ZAPŁATY]) = @rok) AND (MONTH(R.[DATA ZAPŁATY]) = @miesiac) and R.wyroznienie=1
ORDER BY R.[SYMBOL AKWIZYTORA], R.[FAKTURA NUMER]=Parameters!rok.Value=Parameters!miesiac.ValuetrueId_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.ValuetrueID_AGENTASystem.Int32SymbolSystem.StringagencjaSystem.StringBAZA_REKLAMSELECT A.ID_AGENTA, A.Symbol, A2.Symbol agencja
FROM AGENCI A left join Agencje A2
on A.ID_AGENCJI = A2.ID_Agencji
where (A2.Symbol in (@agencja) OR A2.Symbol is null) AND (@prawa_agent is null OR A.Symbol=@prawa_agent)
order by A.Symbol=Parameters!agencja.Value=Parameters!prawa_agent.ValuetrueSYMBSystem.StringBAZA_REKLAMSELECT SYMB
FROM [LISTA TYTUŁÓW]
WHERE (st_aktywny = - 1)trueIDSystem.Int32NazwaSystem.StringBAZA_REKLAMSELECT ID, Nazwa
FROM GRZBIETYtrueidSystem.Int32NazwaSystem.StringCena_minSystem.DecimalOkres_odSystem.DateTimeOkres_doSystem.DateTimeBAZA_REKLAMselect * from promocjetruerokSystem.Int32BAZA_REKLAMselect distinct year(DATA_W) as rok from dbo.NR where DATA_W is not null order by year(DATA_W)desctruePublic Shared Function Formatuj(ByVal Value As Integer) As String
Formatuj = Format(Value, "### ### ##0.00 zł")
End Function24.82936cm1cmtextbox1018.75cm1true2.75cm0.75cmROZLICZENIE WPŁYWÓW WG DATY WPŁATY