This commit is contained in:
2024-03-13 00:33:46 +01:00
commit e124a47765
19374 changed files with 9806149 additions and 0 deletions

View File

@@ -0,0 +1,192 @@
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF OBJECT_ID('[dbo].[sp_GetErtesitoNyomtatvany]') IS NOT NULL
BEGIN
DROP PROCEDURE [dbo].[sp_GetErtesitoNyomtatvany]
END
GO
-- =====================================================================
-- Description: értesítõ nyomtatvány (félévi, év végi, I. negyedévi...)
-- =====================================================================
CREATE PROCEDURE [dbo].[sp_GetErtesitoNyomtatvany]
@osztalyId int,
@tanevId int,
@ertekelesTipus int,
@elmeletGyakorlat bit=0,
@kesesTipus int = 1499,
@elmeletiOraPercben int = 45,
@gyakorlatiOraPercben int = 60,
@iskolaErdekuSzamit BIT
AS
BEGIN
SET NOCOUNT ON;
-- Fejléc
SELECT T_INTEZMENYADATOK_OSSZES.C_NEV IntezmenyNeve,
T_INTEZMENYADATOK_OSSZES.C_IRANYITOSZAM IntezmenyIranyitoszam,
T_INTEZMENYADATOK_OSSZES.C_VAROS IntezmenyVaros,
T_INTEZMENYADATOK_OSSZES.C_CIME IntezmenyCime,
T_INTEZMENYADATOK_OSSZES.C_OMKOD OMKod,
T_INTEZMENYADATOK_OSSZES.C_TELEFONSZAM TELEFON,
T_INTEZMENYADATOK_OSSZES.C_EMAILCIM EMAILCIM,
T_TANEV_OSSZES.C_NEV TANEV,
(SELECT OFO.C_NYOMTATASINEV FROM T_OSZTALY_OSSZES
INNER JOIN T_FELHASZNALO_OSSZES OFO
ON OFO.ID = T_OSZTALY_OSSZES.C_OSZTALYFONOKID
WHERE T_OSZTALY_OSSZES.ID=@osztalyId
AND T_OSZTALY_OSSZES.TOROLT = 'F') OSZTALYFONOK,
(SELECT to2.C_NEV FROM T_OSZTALYCSOPORT_OSSZES to2 WHERE ID = @osztalyId AND TOROLT = 'F') OSZTALYNEV,
GETDATE() Datum
FROM T_INTEZMENYADATOK_OSSZES
INNER JOIN T_TANEV_OSSZES
on T_TANEV_OSSZES.ID = T_INTEZMENYADATOK_OSSZES.C_TANEVID AND T_TANEV_OSSZES.C_INTEZMENYID = T_INTEZMENYADATOK_OSSZES.C_INTEZMENYID AND T_TANEV_OSSZES.TOROLT = 'F'
WHERE T_INTEZMENYADATOK_OSSZES.TOROLT = 'F'
AND T_TANEV_OSSZES.ID = @TanevId
-- TANULÓK
DECLARE @Tanulok TABLE (TANULOID INT, TANULONEV NVARCHAR(MAX), OKTATASIAZONOSITO NVARCHAR(MAX), TORZSLAPSZAM NVARCHAR(MAX))
INSERT INTO @Tanulok
SELECT
tanulok.TanuloId
,felhasznalo.C_NYOMTATASINEV
,felhasznalo.C_OKTATASIAZONOSITO
,felhasznalo.C_NYILVANTARTASISZAM
FROM fnGetDokumentumOsztalyokCsoportokTanuloi(@tanevId, @osztalyId, 'T') tanulok
INNER JOIN T_FELHASZNALO_OSSZES felhasznalo on felhasznalo.Id=tanulok.TanuloId
SELECT * FROM @Tanulok ORDER BY TANULONEV
-- ÉRTÉKELÉSEK
DECLARE @Ertekelesek TABLE (
TanuloId INT
,Targy NVARCHAR(MAX)
,Ertekeles NVARCHAR(MAX)
,Jegyzet NVARCHAR(MAX)
,ErtekelesJegyzettel NVARCHAR(MAX)
,SzovegesErtekeles NVARCHAR(MAX)
,Oraszam INT
,RENDEZ INT
)
INSERT INTO @Ertekelesek
EXEC sp_GetDokumentumErtekelesek
@osztalyId = @osztalyId,
@tanevId = @tanevId,
@ertekelesTipus = @ertekelesTipus
SELECT
TanuloId
, Targy
, Ertekeles
, Jegyzet
, ErtekelesJegyzettel
, SzovegesErtekeles
, Oraszam
, RENDEZ
FROM
@Ertekelesek
-- MULASZTÁSOK
DECLARE @Mulasztasok TABLE (
TanuloId INT
,Igazolt INT
,Igazolatlan INT
,ElmeletIgazolt INT
,ElmeletIgazolatlan INT
,GyakorlatIgazolt INT
,GyakorlatIgazolatlan INT
,Osszes INT
)
INSERT INTO @Mulasztasok
EXEC sp_GetDokumentumMulasztasok
@osztalyId = @osztalyId,
@tanevId = @tanevId,
@elmeletGyakorlat = @elmeletGyakorlat,
@kesesTipus = @kesesTipus,
@elmeletiOraPercben = @elmeletiOraPercben,
@gyakorlatiOraPercben = @gyakorlatiOraPercben,
@ertekelesTipus = @ertekelesTipus,
@iskolaErdekuSzamit = @iskolaErdekuSzamit
SELECT
TanuloId
,Igazolt
,Igazolatlan
,ElmeletIgazolt
,ElmeletIgazolatlan
,GyakorlatIgazolt
,GyakorlatIgazolatlan
,Osszes
FROM @Mulasztasok
-- TANTÁRGYI MENTESSÉGEK
SELECT DISTINCT MENTESSEG.C_TANULOID TANULOID,
TARGY.TARGYNEV,
MENTESSEG.C_MENTESSEGOKA MENTESSEGOKA
FROM T_TANULOMENTESSEG_OSSZES MENTESSEG
INNER JOIN (SELECT ID, C_NEV TARGYNEV FROM T_TANTARGY_OSSZES WHERE TOROLT='F') TARGY
ON TARGY.ID = MENTESSEG.C_TANTARGYID
INNER JOIN fnGetDokumentumOsztalyokCsoportokTanuloi(@tanevId, @osztalyId, 'T') TANCSOPORT
ON TANCSOPORT.TanuloId = MENTESSEG.C_TANULOID
WHERE MENTESSEG.TOROLT = 'F'
ORDER BY MENTESSEG.C_TANULOID, TARGY.TARGYNEV
DECLARE @EsemenyTipus INT
SET @EsemenyTipus = (SELECT
CASE
WHEN @ertekelesTipus = 1519 THEN 1547 --félévi
WHEN @ertekelesTipus = 1520 THEN 1548 --év végi
WHEN @ertekelesTipus = 1522 THEN 1549 --I. negyedévi
WHEN @ertekelesTipus = 1523 then 1551 --III. negyedévi
END
)
--Bejegyzések
SELECT
bejegyzes.TanuloId TanuloId
,Tartalom Bejegyzes
,Tipusa Tipus
FROM fnGetDokumentumTanulokFeljegyzesei(@tanevId, @osztalyId) bejegyzes
WHERE
Tipusa IN (1546, @EsemenyTipus)
ORDER BY bejegyzes.TanuloId
-- Határozatok
SELECT DISTINCT
C_TANULOID TanuloId
,tcs.C_ZARADEK Bejegyzes
FROM T_TANULOCSOPORT_OSSZES tcs
WHERE
tcs.C_TANULOID IN (SELECT TanuloId from @Tanulok)
AND TOROLT = 'F'
AND C_ZARADEK IS NOT NULL
AND LEN(C_ZARADEK) > 0
AND C_TANEVID = @tanevId
AND C_OSZTALYCSOPORTID IN (SELECT ID FROM T_OSZTALY_OSSZES WHERE TOROLT = 'F')
UNION
SELECT DISTINCT
C_TANULOID TanuloId
,tcs.C_VEGZARADEK Bejegyzes
FROM T_TANULOCSOPORT_OSSZES tcs
WHERE
tcs.C_TANULOID IN (SELECT TanuloId from @Tanulok)
AND TOROLT = 'F'
AND C_VEGZARADEK IS NOT NULL
AND LEN(C_VEGZARADEK) > 0
AND C_TANEVID = @tanevId
AND C_OSZTALYCSOPORTID IN (SELECT ID FROM T_OSZTALY_OSSZES WHERE TOROLT = 'F')
END
GO

View File

@@ -0,0 +1,178 @@
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF OBJECT_ID('[dbo].[sp_GetSzakmaiGyNaplo]') IS NOT NULL
BEGIN
DROP PROCEDURE [dbo].[sp_GetSzakmaiGyNaplo]
END
GO
CREATE PROCEDURE [dbo].[sp_GetSzakmaiGyNaplo]
@tanevId INT,
@intezmenyId INT,
@csoportId INT,
@iskolaErdekuSzamit BIT
AS
BEGIN
SET NOCOUNT ON;
--Kezdőoldal
select ia.c_nev as IntezmenyNev, convert(nvarchar(5), ia.c_iranyitoszam)+', '+ia.c_varos+', '+ia.c_cime as IntezmenyCim, ia.c_omkod as OMKOD, ia.c_igazgatoneve as IntezmenyVezeto, ocs.c_nev NapkozisCsoport,
isnull(f.c_nyomtatasinev,'-') as CsoportVezeto, isnull(cs.c_csoportnaploleiras,'-') as CsoportNaploLeiras, FORMAT(cs.c_csoportnaplomegnyitasa, 'yyyy. MMMM dd.', 'hu-hu') as Megnyitas,
isnull(FORMAT(cs.c_csoportnaplozarasa, 'yyyy. MMMM dd.', 'hu-hu'),'-') as Lezaras, t.c_nev as Tanev, cs.c_csoportnaploleiras as Megjegyzes
from T_INTEZMENY_OSSZES i
inner join T_INTEZMENYADATOK_OSSZES ia on ia.c_intezmenyid=i.id
inner join T_OSZTALYCSOPORT_OSSZES ocs on ocs.c_intezmenyid=i.id
inner join T_CSOPORT_OSSZES cs on cs.id=ocs.id
left join T_FELHASZNALO_OSSZES f on f.id=cs.c_csoportvezetoid
inner join T_TANEV_OSSZES t on t.id=ia.c_tanevid
where i.id=@intezmenyid and ia.c_tanevid=@tanevid and ocs.id=@csoportId
--Csoport tanulóinak osztályai
select Osztaly.Osztaly, count(c_tanuloid) Tanulo from t_tanulocsoport tcs
inner join (select tcs.c_tanuloid Tanulo, ocs.c_nev as Osztaly, tcs.c_kilepesdatum Kilepes from T_TANULOCSOPORT_OSSZES tcs
inner join T_OSZTALY_OSSZES o on o.id=tcs.c_osztalycsoportid and o.torolt='F'
inner join T_OSZTALYCSOPORT_OSSZES ocs on o.id=ocs.id
where tcs.c_kilepesdatum is null and tcs.c_intezmenyid=@intezmenyid and tcs.c_tanevid=@tanevid) osztaly on osztaly.Tanulo=tcs.c_tanuloid and tcs.TOROLT='F'
where tcs.c_osztalycsoportid=@csoportId
group by osztaly.Osztaly
DECLARE @tanulo TABLE (Tanulo int, Osztaly nvarchar(max), RovidNev nvarchar(max))
insert into @tanulo
select f.id as Tanulo, Osztaly.Osztaly, Osztaly.Osztaly RovidNev from T_TANULOCSOPORT_OSSZES tcs
inner join (select tcs.c_tanuloid Tanulo, ocs.c_nev Osztaly from t_tanulocsoport tcs
inner join t_osztaly o on o.id=tcs.c_osztalycsoportid and o.torolt='F'
inner join t_osztalycsoport ocs on ocs.id=tcs.c_osztalycsoportid
where tcs.c_kilepesdatum is null and tcs.c_tanevid=@tanevid) Osztaly on Osztaly.Tanulo=tcs.c_tanuloid and tcs.TOROLT='F'
inner join t_felhasznalo f on f.id=tcs.c_tanuloid
where tcs.c_osztalycsoportid=@csoportId
declare @datum date=getdate()
create table #OraSorszam (TanitasioraId int, OraSorszam int)
insert into #OraSorszam
EXEC [sp_GetOraSorszamByOsztaly]
@osztalyCsoportId = @csoportId,
@datum = @datum,
@intezmenyId = @intezmenyId,
@tanevId = @tanevId
declare @mulasztas table (Csoport nvarchar(1), Tanulo int, Oraszam int)
insert into @mulasztas
select 'x' Csoport, tm.c_oratanuloiid Tanulo, oes.OraSorszam AS OraSzam from T_TANULOMULASZTAS_OSSZES tm
inner join T_TANITASIORA_OSSZES tao on tm.c_tanitasiorakid=tao.id and tao.c_tanevid=@tanevid
LEFT JOIN #OraSorszam oes on oes.TanitasioraId=tao.id
where
tao.c_osztalycsoportid=@csoportId
AND tm.torolt='F'
AND tm.c_tanevid=@tanevid
AND tm.c_intezmenyid=@intezmenyid
AND (@iskolaErdekuSzamit = 1 OR (C_IGAZOLASTIPUSA <> 1533 OR C_IGAZOLASTIPUSA IS NULL))
select f.c_nyomtatasinev Tanulo, tanulo.RovidNev Osztaly, m.[1], m.[2], m.[3], m.[4], m.[5], m.[6], m.[7], m.[8], m.[9], m.[10],
m.[11], m.[12], m.[13], m.[14], m.[15], m.[16], m.[17], m.[18],m.[19],m.[20],
m.[21], m.[22], m.[23], m.[24], m.[25], m.[26], m.[27], m.[28],m.[29],m.[30],
m.[31], m.[32], m.[33], m.[34], m.[35], m.[36], m.[37], m.[38],m.[39],m.[40],
m.[41], m.[42], m.[43], m.[44], m.[45], m.[46], m.[47], m.[48],m.[49],m.[50],
osszesM.Osszes
from @tanulo tanulo
left join (select * from @mulasztas mulasztas pivot (max(Csoport) for Oraszam in ([1], [2], [3], [4], [5], [6], [7], [8], [9], [10],
[11], [12], [13], [14], [15], [16], [17], [18],[19],[20],
[21], [22], [23], [24], [25], [26], [27], [28],[29],[30],
[31], [32], [33], [34], [35], [36], [37], [38],[39],[40],
[41], [42], [43], [44], [45], [46], [47], [48],[49],[50])) pv)m on m.Tanulo=tanulo.Tanulo
inner join T_FELHASZNALO_OSSZES f on f.id=tanulo.Tanulo
left join (select Tanulo, count(Csoport) as Osszes from @mulasztas m group by Tanulo) osszesM on osszesM.Tanulo=tanulo.Tanulo
order by f.c_nyomtatasinev
--napló
declare @letszam int=(select count(tcs.c_tanuloid) from T_TANULOCSOPORT_OSSZES tcs where tcs.c_osztalycsoportid=@csoportId and tcs.Torolt='F')
select convert(nvarchar(max),datepart(year,tao.c_orakezdete))+'. '+convert(nvarchar(max),datepart(month,tao.c_orakezdete))+'. '+convert(nvarchar(max),datepart(day,tao.c_orakezdete))+'.' as Datum,
tao.c_tema as Tema, @letszam-isnull(hianyzo.Hianyzok,0) as Letszam, f.c_nyomtatasinev as Pedagogus from T_TANITASIORA_OSSZES tao
inner join T_FOGLALKOZAS_OSSZES fog on fog.id=tao.c_foglalkozasid
inner join T_FOGLALKOZASOK_TANAROK ft on ft.c_foglalkozasokid=fog.id
left join (select tm.c_tanitasiorakid as Tanitasiora, count(tm.c_oratanuloiid) Hianyzok from T_TANULOMULASZTAS_OSSZES tm where tm.Torolt='F' group by tm.c_tanitasiorakid ) hianyzo on hianyzo.Tanitasiora=tao.id
inner join T_FELHASZNALO_OSSZES f on f.id=iif(tao.c_helyettesitotanarid is not null,tao.c_helyettesitotanarid, ft.c_tanarokid)
where tao.c_osztalycsoportid=@csoportId and tao.torolt='F' and tao.c_tanevid=@tanevid and tao.c_intezmenyid=@intezmenyid
order by tao.c_orakezdete
--hiányzások
declare @hianyzas table (Tanulo int, Osztaly nvarchar(max), Honap int, IgazoltE nvarchar(1))
insert into @hianyzas
select Tanulo, RovidNev, datepart(month,tao.c_datum) as Honap, tm.c_igazolt as IgazoltE from @tanulo tanulo
left join T_TANULOMULASZTAS_OSSZES tm on tm.c_oratanuloiid=tanulo.Tanulo and tm.torolt='F' and tm.c_tanevid=@tanevid
left join T_TANITASIORA_OSSZES tao on tao.id=tm.c_tanitasiorakid and tao.c_tanevid=@tanevid
where
tao.c_osztalycsoportid=@csoportId
AND tao.torolt='F'
AND (@iskolaErdekuSzamit = 1 OR (C_IGAZOLASTIPUSA <> 1533 OR C_IGAZOLASTIPUSA IS NULL))
select f.c_nyomtatasinev as Tanulo, tanulo.RovidNev Osztaly,
--igazolt
iif(i.[1]=0,null, i.[1]) as [1], iif(i.[2]=0,null, i.[2]) as [2], iif(i.[3]=0,null, i.[3]) as [3], iif(i.[4]=0,null, i.[4]) as [4], iif(i.[5]=0,null, i.[5]) as [5],iif(i.[6]=0,null, i.[6]) as [6],
iif(i.[7]=0,null, i.[7]) as [7], iif(i.[8]=0,null, i.[8]) as [8], iif(i.[9]=0,null, i.[9]) as [9], iif(i.[10]=0,null, i.[10]) as [10], iif(i.[11]=0,null, i.[11]) as [11], iif(i.[12]=0,null, i.[12]) as [12],
--igazolatlan
iif(ni.[1]=0,null, ni.[1]) as n1, iif(ni.[2]=0,null, ni.[2]) as n2, iif(ni.[3]=0,null, ni.[3]) as n3, iif(ni.[4]=0,null, ni.[4]) as n4, iif(ni.[5]=0,null, ni.[5]) as n5,iif(ni.[6]=0,null, ni.[6]) as n6,
iif(ni.[7]=0,null, ni.[7]) as n7, iif(ni.[8]=0,null, ni.[8]) as n8, iif(ni.[9]=0,null, ni.[9]) as n9, iif(ni.[10]=0,null, ni.[10]) as n10, iif(ni.[11]=0,null, ni.[11]) as n11, iif(ni.[12]=0,null, ni.[12]) as n12,
igazolt.Igazolt, igazolatlan.Igazolatlan
from @tanulo tanulo
left join (select pv.* from @hianyzas hianyzas pivot (count(Honap) for Honap in ([1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12]))pv where pv.IgazoltE='T')i on tanulo.Tanulo=i.Tanulo
left join (select pv.* from @hianyzas hianyzas pivot (count(Honap) for Honap in ([1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12]))pv where pv.IgazoltE='F')ni on tanulo.Tanulo=ni.Tanulo
left join (select hianyzas.Tanulo Tanulo, count(IgazoltE) as Igazolt from @hianyzas hianyzas where hianyzas.IgazoltE='T' group by hianyzas.Tanulo) igazolt on igazolt.Tanulo=tanulo.Tanulo
left join (select hianyzas.Tanulo Tanulo, count(IgazoltE) as Igazolatlan from @hianyzas hianyzas where hianyzas.IgazoltE='F' group by hianyzas.Tanulo) igazolatlan on igazolatlan.Tanulo=tanulo.Tanulo
inner join T_FELHASZNALO_OSSZES f on f.id=tanulo.Tanulo
--Mulasztások összesen
declare @hianyzasOssz table (Osztaly int, Honap int, IgazoltE nvarchar(1))
insert into @hianyzasOssz
select @csoportId, datepart(month,tao.c_datum) as Honap, tm.c_igazolt as IgazoltE from @tanulo tanulo
left join T_TANULOMULASZTAS_OSSZES tm on tm.c_oratanuloiid=tanulo.Tanulo and tm.torolt='F' and tm.c_tanevid=@tanevid
left join T_TANITASIORA_OSSZES tao on tao.id=tm.c_tanitasiorakid and tao.c_tanevid=@tanevid
where
tao.c_osztalycsoportid=@csoportId
and tao.torolt='F'
AND (@iskolaErdekuSzamit = 1 OR (C_IGAZOLASTIPUSA <> 1533 OR C_IGAZOLASTIPUSA IS NULL))
declare @igazoltH table (Csoport int, [1] int, [2] int, [3] int, [4] int, [5] int, [6] int, [7] int, [8] int, [9] int, [10] int,
[11] int, [12] int)
insert into @igazoltH
select @csoportId, iif(i.[1]=0,null, i.[1]) as [1], iif(i.[2]=0,null, i.[2]) as [2], iif(i.[3]=0,null, i.[3]) as [3], iif(i.[4]=0,null, i.[4]) as [4], iif(i.[5]=0,null, i.[5]) as [5],iif(i.[6]=0,null, i.[6]) as [6],
iif(i.[7]=0,null, i.[7]) as [7], iif(i.[8]=0,null, i.[8]) as [8], iif(i.[9]=0,null, i.[9]) as [9], iif(i.[10]=0,null, i.[10]) as [10], iif(i.[11]=0,null, i.[11]) as [11], iif(i.[12]=0,null, i.[12]) as [12]
from @hianyzasOssz ho pivot (count(Honap) for Honap in ([1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12]))i where i.IgazoltE='T'
--Mulasztott órák összesen
declare @igazolatlanH table (Csoport int, [1] int, [2] int, [3] int, [4] int, [5] int, [6] int, [7] int, [8] int, [9] int, [10] int,
[11] int, [12] int)
insert into @igazolatlanH
select @csoportId, iif(ni.[1]=0,null, ni.[1]) as n1, iif(ni.[2]=0,null, ni.[2]) as n2, iif(ni.[3]=0,null, ni.[3]) as n3, iif(ni.[4]=0,null, ni.[4]) as n4, iif(ni.[5]=0,null, ni.[5]) as n5,iif(ni.[6]=0,null, ni.[6]) as n6,
iif(ni.[7]=0,null, ni.[7]) as n7, iif(ni.[8]=0,null, ni.[8]) as n8, iif(ni.[9]=0,null, ni.[9]) as n9, iif(ni.[10]=0,null, ni.[10]) as n10, iif(ni.[11]=0,null, ni.[11]) as n11, iif(ni.[12]=0,null, ni.[12]) as n12
from @hianyzasOssz ho pivot (count(Honap) for Honap in ([1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12]))ni where ni.IgazoltE='F'
select iif(i.[1]=0,null, i.[1]) as [1], iif(i.[2]=0,null, i.[2]) as [2], iif(i.[3]=0,null, i.[3]) as [3], iif(i.[4]=0,null, i.[4]) as [4], iif(i.[5]=0,null, i.[5]) as [5],iif(i.[6]=0,null, i.[6]) as [6],
iif(i.[7]=0,null, i.[7]) as [7], iif(i.[8]=0,null, i.[8]) as [8], iif(i.[9]=0,null, i.[9]) as [9], iif(i.[10]=0,null, i.[10]) as [10], iif(i.[11]=0,null, i.[11]) as [11], iif(i.[12]=0,null, i.[12]) as [12],
iif(ni.[1]=0,null, ni.[1]) as n1, iif(ni.[2]=0,null, ni.[2]) as n2, iif(ni.[3]=0,null, ni.[3]) as n3, iif(ni.[4]=0,null, ni.[4]) as n4, iif(ni.[5]=0,null, ni.[5]) as n5,iif(ni.[6]=0,null, ni.[6]) as n6,
iif(ni.[7]=0,null, ni.[7]) as n7, iif(ni.[8]=0,null, ni.[8]) as n8, iif(ni.[9]=0,null, ni.[9]) as n9, iif(ni.[10]=0,null, ni.[10]) as n10, iif(ni.[11]=0,null, ni.[11]) as n11, iif(ni.[12]=0,null, ni.[12]) as n12
from @igazolth i
left join @igazolatlanH ni on i.Csoport=ni.csoport
--Mulasztó tanulók szama
declare @Igazolt table (Csoport Int, Osszes int)
insert into @Igazolt
select @csoportId as Id, count(Tanulo) as IgazoltOsszes from (select distinct tanulo from @hianyzas where IgazoltE='T')m
select i.Osszes IgazoltOsszes, ni.Osszes IgazolatlanOsszes from @Igazolt i
left join (select @csoportId as Id, count(Tanulo) as Osszes from (select distinct tanulo from @hianyzas where IgazoltE='F')m) ni on ni.Id=i.Csoport
--Mulasztott órák összesen-összesen
declare @IgazoltOsszesOsszes table (Csoport Int, Osszes int)
insert into @IgazoltOsszesOsszes
select @csoportId, count(IgazoltE) from @hianyzasOssz where IgazoltE='T'
select ioo.Osszes IgazoltOsszesOsszes, nioo.Osszes as IgazolatlanOsszesOsszes from @IgazoltOsszesOsszes ioo
left join (select @csoportId as Id, count(IgazoltE) Osszes from @hianyzasOssz where IgazoltE='F') nioo on nioo.Id=ioo.Csoport
END
GO

View File

@@ -0,0 +1,283 @@
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF OBJECT_ID('sp_GetTorzslap') IS NOT NULL BEGIN
DROP PROCEDURE sp_GetTorzslap
END
GO
CREATE PROCEDURE sp_GetTorzslap
@osztalyId INT,
@tanevId INT,
@ertekelesTipus INT,
@kesesTipus INT,
@elmeletiOraPercben INT = 45,
@gyakorlatiOraPercben INT = 60,
@iskolaErdekuSzamit BIT
AS
BEGIN
SET NOCOUNT ON;
--Osztályhoz tartozó tanulók
DECLARE @Tanulok TABLE (TanuloId int, KilepesDatum DATE)
INSERT INTO @Tanulok
SELECT TanuloId, KilepesDatum FROM fnGetDokumentumOsztalyokCsoportokTanuloi(@tanevId, @osztalyId, 'T')
--Intézmény, tanév
SELECT DISTINCT
ocs.C_NEV OsztalyNev
,o.C_OSZTALYNAPLOLEIRASA OsztalyMegjegyzes
,o.C_OSZTALYFONOKID PartnerID
,ofo.C_NYOMTATASINEV Osztalyfonok
,i.C_IGAZGATONEVE IntezmenyVezeto
,i.C_NEV IntezmenyNeve
,i.C_IRANYITOSZAM IntezmenyIranyitoszam
,i.C_VAROS IntezmenyVaros
,i.C_CIME IntezmenyCime
,i.C_OMKOD IntezmenyOMKod
,FORMAT(o.c_osztalynaplomegnyitasa, 'yyyy. MMMM dd.', 'hu-hu') NaploMegnyitasanakDatuma
,FORMAT(o.c_osztalynaplozarasa, 'yyyy. MMMM dd.', 'hu-hu') NaploZarasanakDatuma
,tanev.C_NEV TANEV
,(SELECT COUNT(TanuloId) FROM @Tanulok) TanuloSzam
FROM T_OSZTALYCSOPORT_OSSZES ocs
INNER JOIN T_OSZTALY_OSSZES o ON ocs.ID = o.ID and o.torolt='F'
LEFT JOIN T_FELHASZNALO_OSSZES ofo ON ofo.ID = o.C_OSZTALYFONOKID
INNER JOIN T_INTEZMENYADATOK_OSSZES i on i.C_INTEZMENYID=ocs.C_INTEZMENYID
INNER JOIN T_TANEV_OSSZES tanev ON tanev.ID = i.C_TANEVID and tanev.TOROLT = 'F'
WHERE ocs.ID = @osztalyId
--Osztály, évfolyam
SELECT
T_OSZTALYCSOPORT_OSSZES.C_NEV,
T_OSZTALYCSOPORT_OSSZES.C_EVFOLYAMTIPUSA
FROM T_OSZTALYCSOPORT_OSSZES
WHERE
T_OSZTALYCSOPORT_OSSZES.ID = @osztalyId
--Tanuló adatok
DECLARE @NaploSorszam TABLE (
TanuloId INT
,Sorszam INT
)
INSERT INTO @NaploSorszam
EXEC sp_GetDokumentumTanuloNaploSorszam
@osztalyId = @osztalyId
SELECT
felhasznalo.ID TanuloId,
felhasznalo.Azonosito,
felhasznalo.Nev,
felhasznalo.SzuletesiDatum,
felhasznalo.SzuletesiHely,
felhasznalo.Allampolgarsag,
felhasznalo.Anyjaneve,
felhasznalo.SzuletesiOrszag,
felhasznalo.TorzslapSzam,
gondviselo.Gondviselok GondviseloNeve,
naploSorszam.Sorszam NaploSorszam,
Adatvaltozas.Feljegyzes Adatvaltozas,
felhasznalo.KilepesDatum
INTO #TanuloAdatok
FROM
(
SELECT
T_FELHASZNALO_OSSZES.ID AS ID,
T_FELHASZNALO_OSSZES.C_OKTATASIAZONOSITO Azonosito,
T_FELHASZNALO_OSSZES.C_NYOMTATASINEV Nev,
T_FELHASZNALO_OSSZES.C_SZULETESIDATUM SzuletesiDatum,
T_FELHASZNALO_OSSZES.C_SZULETESIHELY SzuletesiHely,
T_FELHASZNALO_OSSZES.C_SZULETESIORSZAG SzuletesiOrszag,
T_FELHASZNALO_OSSZES.C_ALLAMPOLGARSAGA Allampolgarsag,
T_FELHASZNALO_OSSZES.C_ANYJANEVE Anyjaneve,
T_FELHASZNALO_OSSZES.C_NYILVANTARTASISZAM TorzslapSzam,
TANCSOPORT.KilepesDatum
FROM T_FELHASZNALO_OSSZES
INNER JOIN @Tanulok TANCSOPORT
ON TANCSOPORT.TanuloId = T_FELHASZNALO_OSSZES.ID
WHERE
T_FELHASZNALO_OSSZES.C_TANEVID = @tanevId
AND T_FELHASZNALO_OSSZES.TOROLT='F'
) felhasznalo
LEFT JOIN
(
SELECT DISTINCT
g.C_TANULOID TanuloId
,STUFF((SELECT ' , ' + C_NEV + ' (' + d.C_NAME +')'
FROM T_GONDVISELO_OSSZES bg
INNER JOIN T_DICTIONARYITEMBASE_OSSZES d on d.ID = bg.C_ROKONSAGFOKA AND d.C_TANEVID = bg.C_TANEVID
WHERE
bg.C_TANULOID=g.C_TANULOID
AND bg.TOROLT = 'F'
FOR XML PATH(''), TYPE)
.value('.','NVARCHAR(MAX)'),1,3,'') Gondviselok
FROM T_GONDVISELO_OSSZES g
) gondviselo on felhasznalo.ID = gondviselo.TanuloId
LEFT JOIN @NaploSorszam naploSorszam on naploSorszam.TanuloId = felhasznalo.ID
LEFT JOIN (SELECT DISTINCT
hatarozat.TanuloId
,STUFF((SELECT ' | ' + CAST(Tartalom AS VARCHAR(max))
FROM fnGetDokumentumTanulokFeljegyzesei(@tanevId, @osztalyId) bhatarozat
WHERE
bhatarozat.TanuloId=hatarozat.TanuloId
AND Tipusa = 1545
FOR XML PATH(''), TYPE)
.value('.','NVARCHAR(MAX)'),1,2,' ') Feljegyzes
FROM fnGetDokumentumTanulokFeljegyzesei(@tanevId, @osztalyId) hatarozat
WHERE
Tipusa = 1545 --Feljegyzések személyi adatok változásához:
) Adatvaltozas on Adatvaltozas.TanuloId = felhasznalo.ID
ORDER BY felhasznalo.Nev
SELECT * FROM #TanuloAdatok ORDER BY Nev
--Határozat
SELECT DISTINCT
C_TANULOID TanuloId
,tcs.C_ZARADEK Bejegyzes
FROM T_TANULOCSOPORT_OSSZES tcs
WHERE
tcs.C_TANULOID IN (SELECT TanuloId from @Tanulok)
AND TOROLT = 'F'
AND C_ZARADEK IS NOT NULL
AND LEN(C_ZARADEK) > 0
AND C_TANEVID = @tanevId
AND C_OSZTALYCSOPORTID IN (SELECT ID FROM T_OSZTALY_OSSZES WHERE TOROLT = 'F')
UNION
SELECT DISTINCT
C_TANULOID TanuloId
,tcs.C_VEGZARADEK Bejegyzes
FROM T_TANULOCSOPORT_OSSZES tcs
WHERE
tcs.C_TANULOID IN (SELECT TanuloId from @Tanulok)
AND TOROLT = 'F'
AND C_VEGZARADEK IS NOT NULL
AND LEN(C_VEGZARADEK) > 0
AND C_TANEVID = @tanevId
AND C_OSZTALYCSOPORTID IN (SELECT ID FROM T_OSZTALY_OSSZES WHERE TOROLT = 'F')
--Egyéb bejegyzések
SELECT
Tanuloid
,Bejegyzes
,Tipus_DNAME
FROM
(
SELECT
bejegyzes.TanuloId TanuloId
,Tartalom Bejegyzes
,C_NAME Tipus_DNAME
,bejegyzes.Datum Datum
FROM fnGetDokumentumTanulokFeljegyzesei(@tanevId, @osztalyId) bejegyzes
INNER JOIN T_DICTIONARYITEMBASE_OSSZES d ON d.ID = Tipusa AND C_TANEVID = @tanevId AND d.TOROLT = 'F'
WHERE
Tipusa IN (1539, 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553, 5477, 5478, 5478, 5479, 5481, 5480)
UNION
SELECT
s.TanuloId tanuloId
, mentesseg.mentessegOka
, ISNULL(IIF(mentesseg = '', '', LEFT(mentesseg, LEN(mentesseg)- 1)),' ') + ' (' + mentesseg.tantargyNev +')'
, C_KEZDETE
FROM @Tanulok s
LEFT JOIN (SELECT DISTINCT
mentesseg.C_TANULOID tanuloId
, IIF(t.C_NEV <> C_NEVNYOMTATVANYBAN AND C_NEVNYOMTATVANYBAN IS NOT NULL, C_NEVNYOMTATVANYBAN + ' (' + t.C_NEV + ')', t.C_NEV) tantargyNev
, mentesseg.C_MENTESSEGOKA mentessegOka
, IIF(mentesseg.C_ERTEKELESMENTESITES = 'T', 'Értékelésmentesség, ', '') + IIF(mentesseg.C_ORAMENTESITES = 'T', 'Óramentesség, ', '') as mentesseg
, mentesseg.C_KEZDETE
FROM T_TANULOMENTESSEG_OSSZES mentesseg
INNER JOIN T_TANTARGY_OSSZES t on t.ID = mentesseg.C_TANTARGYID
INNER JOIN @Tanulok s ON s.TanuloId = mentesseg.C_TANULOID
WHERE
mentesseg.TOROLT='F'
AND mentesseg.C_TANEVID = @tanevId
) mentesseg ON s.TanuloId=mentesseg.TANULOID
)a
ORDER BY Datum
-- MULASZTÁSOK
DECLARE @Mulasztasok TABLE (
TanuloId INT
,Igazolt INT
,Igazolatlan INT
,ElmeletIgazolt INT
,ElmeletIgazolatlan INT
,GyakorlatIgazolt INT
,GyakorlatIgazolatlan INT
,Osszes INT
)
INSERT INTO @Mulasztasok
EXEC sp_GetDokumentumMulasztasok
@osztalyId = @osztalyId,
@tanevId = @tanevId,
@elmeletGyakorlat = 0,
@kesesTipus = @kesesTipus,
@elmeletiOraPercben = @elmeletiOraPercben,
@gyakorlatiOraPercben = @gyakorlatiOraPercben,
@ertekelesTipus = @ertekelesTipus,
@iskolaErdekuSzamit = @iskolaErdekuSzamit
SELECT
TanuloId
,Igazolt
,Igazolatlan
,ElmeletIgazolt
,ElmeletIgazolatlan
,GyakorlatIgazolt
,GyakorlatIgazolatlan
,Osszes
FROM @Mulasztasok
-- ÉRTÉKELÉSEK
DECLARE @Ertekelesek TABLE (
TanuloId INT
,Targy NVARCHAR(MAX)
,Ertekeles NVARCHAR(MAX)
,Jegyzet NVARCHAR(MAX)
,ErtekelesJegyzettel NVARCHAR(MAX)
,SzovegesErtekeles NVARCHAR(MAX)
,Oraszam INT
,RENDEZ INT
)
INSERT INTO @Ertekelesek
EXEC sp_GetDokumentumErtekelesek
@osztalyId = @osztalyId,
@tanevId = @tanevId,
@ertekelesTipus = @ertekelesTipus
SELECT
TanuloId
, Targy
, Ertekeles
, Jegyzet
, ErtekelesJegyzettel
,SzovegesErtekeles
, Oraszam
, RENDEZ
FROM
@Ertekelesek
--Tanuló lista
SELECT
Nev
,NaploSorszam
,TorzslapSzam
FROM #TanuloAdatok
WHERE
KilepesDatum IS NULL OR KilepesDatum >= ISNULL((SELECT C_OSZTALYNAPLOZARASA FROM T_OSZTALY_OSSZES WHERE ID = @osztalyId), GETDATE())
ORDER BY Nev
DROP TABLE #TanuloAdatok
END
GO