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,20 @@
IF OBJECT_ID('dbo.fnGetDokumentumDatumFormatum') IS NOT NULL BEGIN
DROP FUNCTION dbo.fnGetDokumentumDatumFormatum
END
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE FUNCTION dbo.fnGetDokumentumDatumFormatum (@datum DATE)
RETURNS NVARCHAR(MAX)
BEGIN
DECLARE @value NVARCHAR(MAX)
SELECT @value =
FORMAT(@datum, 'yyyy.MM.dd.')
RETURN @value
END;

View File

@@ -0,0 +1,47 @@
IF OBJECT_ID('fnGetDokumentumErtekelesekOsztalyonkent') IS NOT NULL BEGIN
DROP FUNCTION fnGetDokumentumErtekelesekOsztalyonkent
END
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE FUNCTION fnGetDokumentumErtekelesekOsztalyonkent (@tanevId INT, @osztalyId INT)
RETURNS TABLE
RETURN (
SELECT
C_ERTEKELESDATUM Datum
,C_ERTEKELESTIPUSA Tipusa
,C_ERTEKELESSZOVEG SzovegesErtekeles
,C_OSZTALYZAT OsztalyzatId
,jegy.C_VALUE Osztalyzat
,CONVERT(NVARCHAR(MAX),C_SZAZALEK)+'%' Szazalek
,C_TANTARGYID TantargyId
,C_TARGYKATEGORIA TargyKategoriaId
,IIF(t.C_NEV <> C_NEVNYOMTATVANYBAN AND C_NEVNYOMTATVANYBAN IS NOT NULL, C_NEVNYOMTATVANYBAN + ' (' + t.C_NEV + ')', t.C_NEV) TantargyNev
,C_FOTARGYE FotargyE
,C_ALTANTARGYKENTNYOMTATVANYBAN Altantargy
,te.C_TANULOID TanuloId
,te.C_OSZTALYCSOPORTID OsztalyCsoportId
,C_SZORGALOM SzorgalomId
,C_MAGATARTAS MagatartasId
,szorgalom.C_NAME Szorgalom
,magatartas.C_NAME Magatartas
,C_TEMA Megjegyzes
FROM T_TANULOERTEKELES_OSSZES te
INNER JOIN fnGetDokumentumOsztalyokCsoportokTanuloi(@tanevId, @osztalyId, 'T') tanulo ON tanulo.TanuloId = te.C_TANULOID
LEFT JOIN T_OSZTALYZATERTEKELES_OSSZES oe ON oe.Id = te.Id
LEFT JOIN T_OSZTALYFONOKIERTEKELES_OSSZES ofoe ON ofoe.Id = te.Id
LEFT JOIN T_TANTARGY_OSSZES t ON t.Id = te.C_TANTARGYID
LEFT JOIN T_DICTIONARYITEMBASE_OSSZES jegy ON jegy.Id = C_OSZTALYZAT AND jegy.C_TANEVID = @tanevId
LEFT JOIN T_DICTIONARYITEMBASE_OSSZES szorgalom ON szorgalom.Id = C_SZORGALOM AND szorgalom.C_TANEVID = @tanevId
LEFT JOIN T_DICTIONARYITEMBASE_OSSZES magatartas ON magatartas.Id = C_MAGATARTAS AND magatartas.C_TANEVID = @tanevId
LEFT JOIN T_CSOPORT_OSSZES cs ON cs.Id = te.C_OSZTALYCSOPORTID
WHERE
te.Torolt = 'F'
AND te.C_ERTEKELESDATUM >= BelepesDatum AND (te.C_ERTEKELESDATUM <= KilepesDatum OR KilepesDatum IS NULL)
AND (cs.Id IS NULL OR cs.C_TIPUSA = 1034)
AND (t.C_TARGYKATEGORIA <> 1248 OR t.C_TARGYKATEGORIA IS NULL)
)

View File

@@ -0,0 +1,73 @@
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF OBJECT_ID('[dbo].[sp_GetOsztalyOrarendOsszes]') IS NOT NULL
BEGIN
DROP PROCEDURE [dbo].[sp_GetOsztalyOrarendOsszes]
END
GO
CREATE PROCEDURE [dbo].[sp_GetOsztalyOrarendOsszes]
@tanevID INT
,@intezmenyId INT
,@aktivTanevId INT
,@isEgyebFoglalkozasok BIT
AS
BEGIN
SET NOCOUNT ON;
SELECT DISTINCT
ia.C_NEV as intezmeny
,m.C_NEV as mukodesihely
,d.C_NAME as oktatasiNevelesiFeladatTipus
,ISNULL(ia.C_VAROS + ', ', '') + dbo.fnGetDokumentumDatumFormatum(GETDATE()) AS kelt
FROM T_INTEZMENY_OSSZES i
INNER JOIN T_INTEZMENYADATOK_OSSZES ia ON ia.C_INTEZMENYID=I.ID AND ia.C_TANEVID = @tanevid
INNER JOIN T_MUKODESIHELY_OSSZES m ON ia.C_INTEZMENYID = m.C_INTEZMENYID AND m.TOROLT = 'F' AND m.C_TANEVID = @tanevID
INNER JOIN T_FELADATELLATASIHELY_OSSZES f ON m.ID = f.C_MUKODESIHELYID AND f.TOROLT = 'F' AND f.C_TANEVID = @tanevID
INNER JOIN (SELECT DISTINCT ID, C_NAME FROM T_DICTIONARYITEMBASE_OSSZES) d ON d.id = f.C_OKTATASINEVELESIFELADATTIPUS
WHERE
i.id = @intezmenyId
AND I.TOROLT = 'F'
DECLARE @tabla TABLE (osztalyId INT, Ora INT, Hetirend INT, [1408] NVARCHAR(MAX), [1409] NVARCHAR(MAX), [1410] NVARCHAR(MAX), [1411] NVARCHAR(MAX), [1412] NVARCHAR(MAX), [1413] NVARCHAR(MAX), Hetirend_dname NVARCHAR(MAX),Osztalynev NVARCHAR(MAX))
DECLARE kurzor CURSOR FOR
SELECT
ocs.Id
FROM T_OSZTALYCSOPORT_OSSZES ocs
INNER JOIN T_OSZTALY_OSSZES o ON ocs.Id=o.Id
WHERE
ocs.TOROLT='F'
AND ocs.C_TANEVID = @tanevID
AND ocs.C_INTEZMENYID = @intezmenyId
DECLARE @OsztalyId int
OPEN kurzor
FETCH NEXT FROM kurzor INTO @OsztalyId
WHILE @@FETCH_STATUS = 0 BEGIN
INSERT INTO @tabla
EXEC sp_GetOrarendOsztalyonkent @intezmenyId, @tanevID, @osztalyid, @aktivTanevId, @isEgyebFoglalkozasok
FETCH NEXT FROM kurzor INTO @OsztalyId
END
CLOSE kurzor
DEALLOCATE kurzor
SELECT
OsztalyokOrarendje.*
,C_ORDER Rendez
FROM @tabla OsztalyokOrarendje
INNER JOIN T_OSZTALYCSOPORT_OSSZES OsztalyCsoport ON OsztalyCsoport.Id = OsztalyokOrarendje.OsztalyId
INNER JOIN T_DICTIONARYITEMBASE_OSSZES EvfolyamTipusa ON EvfolyamTipusa.Id = OsztalyCsoport.C_EVFOLYAMTIPUSA AND EvfolyamTipusa.C_TANEVID = @tanevId
END
GO

View File

@@ -0,0 +1,310 @@
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,
@isNemet BIT
AS
BEGIN
SET NOCOUNT ON;
--Osztályhoz tartozó tanulók
DECLARE @NaploSorszam TABLE (
TanuloId INT
,Sorszam INT
)
INSERT INTO @NaploSorszam
EXEC sp_GetDokumentumTanuloNaploSorszam
@osztalyId = @osztalyId
DECLARE @Tanulok TABLE (TanuloId int, KilepesDatum DATE, NaploSorszam INT)
INSERT INTO @Tanulok
SELECT
t.TanuloId
,KilepesDatum
,n.Sorszam
FROM fnGetDokumentumOsztalyokCsoportokTanuloi(@tanevId, @osztalyId, 'T') t
INNER JOIN @NaploSorszam n ON n.TanuloId = t.TanuloId
--Intézmény, tanév
SELECT DISTINCT
ocs.C_NEV OsztalyNev
,o.C_OSZTALYNAPLOLEIRASA OsztalyMegjegyzes
,o.C_OSZTALYFONOKID PartnerID
,IIF(@isNemet = 0, ofo.C_NYOMTATASINEV, ofo.C_UTONEV + ' ' + ofo.C_VEZETEKNEV) Osztalyfonok
,i.C_IGAZGATONEVE IntezmenyVezeto
,i.C_NEV IntezmenyNeve
,i.C_VAROS IntezmenyVaros
,dbo.fnGetDokumentumIntezmenyCime(@tanevId) IntezmenyCime
,i.C_OMKOD IntezmenyOMKod
,IIF(@isNemet = 0, dbo.fnGetDokumentumDatumFormatum(o.C_OSZTALYNAPLOMEGNYITASA), FORMAT(o.C_OSZTALYNAPLOMEGNYITASA, 'dd. MM. yyyy')) NaploMegnyitasanakDatuma
,IIF(@isNemet = 0, dbo.fnGetDokumentumDatumFormatum(o.C_OSZTALYNAPLOZARASA), FORMAT(o.C_OSZTALYNAPLOZARASA, 'dd. MM. yyyy')) NaploZarasanakDatuma
,tanev.C_NEV TANEV
,(SELECT COUNT(TanuloId) FROM @Tanulok) TanuloSzam
,(SELECT MIN(NaploSorszam) FROM @Tanulok) MinNaploSorszam
,(SELECT MAX(NaploSorszam) FROM @Tanulok) MaxNaploSorszam
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 AND i.C_TANEVID = @tanevId
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,
EvfolyamTipusa.C_NAME C_EVFOLYAMTIPUSA_DNAME
FROM T_OSZTALYCSOPORT_OSSZES
INNER JOIN T_DICTIONARYITEMBASE_OSSZES EvfolyamTipusa ON EvfolyamTipusa.Id = T_OSZTALYCSOPORT_OSSZES.C_EVFOLYAMTIPUSA
WHERE
T_OSZTALYCSOPORT_OSSZES.ID = @osztalyId
AND EvfolyamTipusa.c_tanevid = @tanevId
--Tanuló adatok
SELECT DISTINCT
felhasznalo.ID TanuloId,
felhasznalo.Azonosito,
IIF(@isNemet = 0, felhasznalo.Nev, felhasznalo.Elotag + ' ' + felhasznalo.VezetekNev) Nev,
IIF(@isNemet = 0, dbo.fnGetDokumentumDatumFormatum(felhasznalo.SzuletesiDatum), FORMAT(felhasznalo.SzuletesiDatum, 'dd. MM. yyyy')) SzuletesiDatum,
felhasznalo.SzuletesiHely,
IIF(@isNemet = 0, allampolgarsag.C_NAME, dbo.fnGetDokumentumNemet(felhasznalo.Allampolgarsag)) Allampolgarsag,
felhasznalo.Anyjaneve,
IIF(@isNemet = 0, szorszag.C_NAME, dbo.fnGetDokumentumNemet(felhasznalo.SzuletesiOrszag)) SzuletesiOrszag,
felhasznalo.TorzslapSzam,
gondviselo.Gondviselok GondviseloNeve,
naploSorszam.Sorszam NaploSorszam,
Adatvaltozas.Feljegyzes Adatvaltozas,
dbo.fnGetDokumentumDatumFormatum(felhasznalo.KilepesDatum) KilepesDatum,
felhasznalo.Nev Nev2
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_VEZETEKNEV VezetekNev,
T_FELHASZNALO_OSSZES.C_UTONEV Elotag,
T_FELHASZNALO_OSSZES.C_SZULETESIDATUM SzuletesiDatum,
T_FELHASZNALO_OSSZES.C_SZULETESIHELY SzuletesiHely,
T_FELHASZNALO_OSSZES.C_SZULETESIORSZAG SzuletesiOrszag,
T_FELHASZNALO_OSSZES.C_ALLAMPOLGARSAGA Allampolgarsag,
IIF(@isNemet = 0, T_FELHASZNALO_OSSZES.C_ANYJANEVE, LTRIM(SUBSTRING(C_ANYJANEVE, C_ANYJANEVEELVALASZTO + 1 , LEN(C_ANYJANEVE)-C_ANYJANEVEELVALASZTO)) + ' ' + LTRIM(SUBSTRING(C_ANYJANEVE, 0, C_ANYJANEVEELVALASZTO + 1))) 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
) felhasznalo
INNER JOIN T_DICTIONARYITEMBASE_OSSZES allampolgarsag ON allampolgarsag.ID = felhasznalo.Allampolgarsag
INNER JOIN T_DICTIONARYITEMBASE_OSSZES szorszag ON szorszag.ID = felhasznalo.SzuletesiOrszag
LEFT JOIN
(
SELECT DISTINCT
g.C_TANULOID TanuloId
,STUFF((SELECT ' , ' + C_NEV + IIF(@isNemet = 0, ' (' + 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 NaploSorszam
--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
,dbo.fnGetDokumentumDatumFormatum(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 +')'
, dbo.fnGetDokumentumDatumFormatum(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 + ' ' + ISNULL('(' + FORMAT(C_KEZDETE, 'yyyy.MM.dd.') + ' - ' + FORMAT(C_VEGE, 'yyyy.MM.dd.') + ')', '' ) 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,
@isNemet = @isNemet
SELECT
TanuloId
, Targy
, Ertekeles
, Jegyzet
, ErtekelesJegyzettel
,SzovegesErtekeles
, Oraszam
, RENDEZ
FROM
@Ertekelesek
--Tanuló lista
SELECT
Nev
,NaploSorszam
,TorzslapSzam
,KilepesDatum
FROM #TanuloAdatok
/*WHERE
KilepesDatum IS NULL OR KilepesDatum >= ISNULL((SELECT C_OSZTALYNAPLOZARASA FROM T_OSZTALY_OSSZES WHERE ID = @osztalyId), GETDATE())*/
ORDER BY NaploSorszam
--Közösségi szolgálat
SELECT
TanuloId
,dbo.fnGetDokumentumDatumFormatum(Datum) Datum
,ISNULL(' - ' + Megjegyzes, '') Megjegyzes
,Oraszam
,TeljesitesHelye
,FeljegyzoNeve
,Tipus
FROM fnGetDokumentumKozossegiSzolgalatOsztalyonkent(@tanevId, @osztalyId)
ORDER BY Datum
DROP TABLE #TanuloAdatok
END
GO