0d388776-a05b-43ef-93c5-227770426a94 BAZA_REKLAM 29.7cm String true prawa_agencje true String =Year(Today) rok ListaLat rok rok String =Month(Today)-1 Miesiąc: 1 2 3 4 5 6 7 8 9 10 11 12 String ListaAgencji Symbol agencja ListaAgencji Symbol Symbol true String true prawa_agent true String true true Pracownicy: 1 Pracownicy AACT 0 Pracownicy Sam Press Wszyscy true 21cm 0.25cm true 1cm 1cm true 10.75cm true ="Data wydruku: " + Now 0.63492cm true 1cm 1a908918-1fb3-45fd-8bdd-e3ccd2cf8500 21cm idFaktury System.Int32 NrFaktury System.String Agencja System.String Agent System.String Imie System.String Nazwisko System.String Netto System.Decimal Prowizja System.Double Pracownicy System.Boolean =Fields!agencja.Value In =Parameters!agencja.Value BAZA_REKLAM SELECT P.idFaktury, P.NrFaktury, P.Agencja, P.Agent, A.[Imię] As Imie, A.Nazwisko, Netto, Netto*procentProwizji AS Prowizja, A.Pracownicy FROM Prowizje P INNER JOIN Agenci A ON A.Symbol=P.Agent WHERE Rok=@rok AND Ms=@miesiac AND (@prawa_agent IS NULL OR P.Agent=@prawa_agent) AND (@pracownik IS NULL OR A.Pracownicy=@pracownik) ORDER BY A.[Imię], A.Nazwisko, P.idFaktury =Parameters!rok.Value =Parameters!miesiac.Value =Parameters!prawa_agent.Value =Parameters!pracownik.Value true ID_AGENTA System.Int32 Symbol System.String agencja System.String BAZA_REKLAM 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) order by A.Symbol =Parameters!agencja.Value =Parameters!prawa_agent.Value true Id_agencji System.Int32 Symbol System.String BAZA_REKLAM SELECT Id_agencji, Symbol FROM AGENCJE where aktywna=1 and (@prawa_agencje is null or @prawa_agencje= Id_agencji) =Parameters!prawa_agencje.Value true rok System.Int32 BAZA_REKLAM select 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)desc true

Public 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 Function

18cm 1cm textbox6 0.25cm 1 true 1cm 0.75cm ="Rozliczenie prowizji za reklamę za rok: " & Parameters!rok.Value & " miesiąc: " & CStr(Parameters!miesiac.Value) Prowizje1.75cm =Fields!Agent.Value

17 true =Fields!agencja.Value Imię 16 true =Fields!Imie.Value 15 true =Fields!Nazwisko.Value 14 true =CountDistinct(Fields!idFaktury.Value, "table1_Group1") textbox13 13 true 12 true =Sum(Fields!Netto.Value) 11 true =Sum(Fields!Prowizja.Value) 0.63492cm

17.77645cm

4 textbox11 3 true Nazwisko 2 true =Fields!NrFaktury.Value nn 1 true =Fields!Netto.Value pp true =Fields!Prowizja.Value 0.63492cm true textbox30

textbox1 24 true Agencja textbox18 23 true Imię 22 true Nazwisko textbox3 21 true Ilość faktur textbox15 20 true Faktura textbox12 19 true Wpływy netto textbox19 18 true Prowizja od wpływów 1cm

4cm 2.5cm 2.5cm 1.25cm 2.77645cm 2.25cm 2.5cm

4.65476cm pl-PL 1cm 29.7cm