1e8bf6ee-b870-4136-9d0f-9ff369b416baBAZA_REKLAM29.7cmInteger=Year(Today)rok20102009200820072006200520042003Integer123456789101112miesiąc123456789101112truetrue21cm0.25cmtrue2.5cm2.5cm1cma55bcbb2-d119-4d31-94a1-9e47c6a0501b29.7cmUNIASystem.StringAGENCJASystem.StringROKSystem.Int16ROK_POSystem.Int32System.Int32MSSystem.Int16PLANOWANY_BUDZET_AGENCJISystem.Int32PLAN_BIURASystem.Int32WYKONANY_BUDZET_AGENCJISystem.Int32procentSystem.DecimalBAZA_REKLAMSELECT UNIA,AGENCJA,ROK,(CONVERT(INTEGER,(1.0+datepart(quarter,data)))/2) AS ROK_PO, datepart(quarter,data),MS,
SUM(PLANOWANY_BUDZET_AGENCJI) AS PLANOWANY_BUDZET_AGENCJI,
SUM(PLAN_BIURA) AS PLAN_BIURA,
SUM(WYKONANY_BUDZET_AGENCJI) AS WYKONANY_BUDZET_AGENCJI,
avg(procent) as procent
FROM
(
SELECT PL.Id_agencji, PL.AGENCJA, PL.ROK, PL.MS, PL.PLANOWANY_BUDZET_AGENCJI, PL.WYKONANY_BUDZET_AGENCJI, dbo.BUDZET_BIUR.BUDZET AS
PLAN_BIURA, CONVERT (datetime, CONVERT (nvarchar, PL.ROK) + '-' + CONVERT (nvarchar, PL.MS) + '-1') AS data,
1.0 * PL.WYKONANY_BUDZET_AGENCJI / dbo.BUDZET_BIUR.BUDZET AS procent, PL.Unia FROM (SELECT dbo.Agencje.Unia ,
dbo.AGENCJE.Symbol AS AGENCJA , dbo.[PLAN].ROK , dbo.[PLAN].MS , SUM(dbo.[PLAN].BUDZET) AS PLANOWANY_BUDZET_AGENCJI ,
SUM(dbo.[PLAN].W_BUDZET) AS WYKONANY_BUDZET_AGENCJI , dbo.AGENCJE.Id_agencji
FROM dbo.AGENCI INNER JOIN dbo.AGENCJE ON dbo.AGENCI.ID_AGENCJI = dbo.AGENCJE.Id_agencji
INNER JOIN dbo.[PLAN] ON dbo.AGENCI.Symbol = dbo.[PLAN].SYMBOL WHERE (Abs(dbo.AGENCJE.aktywna) = 1)
GROUP BY dbo.agencje.unia , dbo.AGENCJE.Symbol , dbo.[PLAN].ROK , dbo.[PLAN].MS , dbo.AGENCJE.Id_agencji) PL
LEFT OUTER JOIN dbo.BUDZET_BIUR ON PL.Id_agencji = dbo.BUDZET_BIUR.ID_BIURA AND PL.ROK = dbo.BUDZET_BIUR.ROK AND PL.MS = dbo.BUDZET_BIUR.MS
WHERE dbo.BUDZET_BIUR.BUDZET <> 0 ) W1
group by UNIA,AGENCJA,ROK,CONVERT(INTEGER,(1.0+datepart(quarter,data)))/2, datepart(quarter,data),MStruePublic Shared Function NazwaMiesiaca(ByVal Value As String) As String
Select Case Value
Case 1
NazwaMiesiaca ="styczeń"
Case 2
NazwaMiesiaca ="luty"
Case 3
NazwaMiesiaca ="marzec"
Case 4
NazwaMiesiaca ="kwiecień"
Case 5
NazwaMiesiaca ="maj"
Case 6
NazwaMiesiaca ="czerwiec"
Case 7
NazwaMiesiaca ="lipiec"
Case 8
NazwaMiesiaca ="sierpień"
Case 9
NazwaMiesiaca ="wrzesień"
Case 10
NazwaMiesiaca ="październik"
Case 11
NazwaMiesiaca ="listopad"
Case 12
NazwaMiesiaca ="grudzień"
End Select
End Function 23.75cm1cmtextbox40.25cm6.5cm1true8.25cm0.63492cmWYKONANIE BUDŻETU