kreta/Kreta.DataAccess.Migrations/Scripts/Archive/20190812143910_DB_914/uspCloneTanulo.sql
2024-03-13 00:33:46 +01:00

375 lines
9 KiB
Transact-SQL

DROP PROCEDURE IF EXISTS uspCloneTanulo
GO
CREATE PROCEDURE uspCloneTanulo
@tanuloId int
,@kovTanevId int
,@intezmenyId int
,@aktTanevId int
AS BEGIN
INSERT INTO T_FELHASZNALO_OSSZES(
C_NEME
,C_SZULETESIDATUM
,C_SZULETESINEV
,C_ANYJANEVE
,C_SZULETESIHELY
,C_TAJSZAM
,C_ALLAMPOLGARSAGA
,C_LEIRAS
,C_KERESESINEV
,C_SZULETESIORSZAG
,C_SZULETESINEVSORREND
,C_ANYJANEVESORREND
,C_ALAPERTELMEZETTLCID
,C_LATASSERULTWEBHASZNALATA
,C_SMSSZAM
,C_SMSSZINKRONIZALT
,C_KELLADSZINKRONIZALAS
,C_SZULETESINEVELVALASZTO
,C_ANYJANEVEELVALASZTO
,C_DMSTARTTIME
,C_NYOMTATASINEV
,C_UTONEV
,C_VEZETEKNEV
,C_ADOSZAM
,C_ELOTAG
,C_ANYANYELVE
,C_IGAZOLVANYSZAM
,C_IGAZOLVANYTIPUSA
,C_NEVSORREND
,C_NYILVANTARTASISZAM
,C_NYILVANTARTASKEZDETE
,C_OKTATASIAZONOSITO
,C_OMKOD
,C_ALAIRAS
,C_PROFILKEP
,C_KRETAKOD
,C_KIRAZONOSITO
,C_ALLAMPOLGARSAGA2
,C_FENNTARTOAZONOSITO
,C_IMPORTALT
,C_INTEZMENYID
,C_TANEVID
,TOROLT
,SERIAL
,LASTCHANGED
,CREATED
,MODIFIER
,CREATOR
,ELOZOTANEVIREKORDID
,C_BELUGYALTALAZONOSITOTT
,C_UTOLSOADATFRISSITESIDOPONTJA)
SELECT
C_NEME
,C_SZULETESIDATUM
,C_SZULETESINEV
,C_ANYJANEVE
,C_SZULETESIHELY
,C_TAJSZAM
,C_ALLAMPOLGARSAGA
,C_LEIRAS
,C_KERESESINEV
,C_SZULETESIORSZAG
,C_SZULETESINEVSORREND
,C_ANYJANEVESORREND
,C_ALAPERTELMEZETTLCID
,C_LATASSERULTWEBHASZNALATA
,C_SMSSZAM
,C_SMSSZINKRONIZALT
,C_KELLADSZINKRONIZALAS
,C_SZULETESINEVELVALASZTO
,C_ANYJANEVEELVALASZTO
,C_DMSTARTTIME
,C_NYOMTATASINEV
,C_UTONEV
,C_VEZETEKNEV
,C_ADOSZAM
,C_ELOTAG
,C_ANYANYELVE
,C_IGAZOLVANYSZAM
,C_IGAZOLVANYTIPUSA
,C_NEVSORREND
,C_NYILVANTARTASISZAM
,C_NYILVANTARTASKEZDETE
,C_OKTATASIAZONOSITO
,C_OMKOD
,C_ALAIRAS
,C_PROFILKEP
,C_KRETAKOD
,C_KIRAZONOSITO
,C_ALLAMPOLGARSAGA2
,C_FENNTARTOAZONOSITO
,'F'
,C_INTEZMENYID
,@kovTanevId
,'F'
,0
,GETDATE()
,GETDATE()
,NULL
,NULL
,ID
,C_BELUGYALTALAZONOSITOTT
,C_UTOLSOADATFRISSITESIDOPONTJA
FROM T_FELHASZNALO_OSSZES WHERE ID = @tanuloId
DECLARE @newId int=SCOPE_IDENTITY()
INSERT INTO T_TANULO_OSSZES(
ID
,C_ALLAMIGONDOZOTT
,C_BANKSZAMLASZAM
,C_BEILLESZKEDESINEHEZSEG
,C_BEIRASINAPLOSORSZAM
,C_BEJARO
,C_DIAKIGAZOLVANYKELTE
,C_DIAKIGAZOLVANYSZAM
,C_ELOZOINTEZMENY
,C_EVISMETLO
,C_INGYENESTANKONVYELLATASA
,C_JOGVISZONYATSZUNETELTETO
,C_MAGANTANULO
,C_MAGANTANULOSAGANAKOKA
,C_MAGANTANULOSAGKEZDETE
,C_NAPLOSORSZAM
,C_POLGARISZERZODESES
,C_SZAKMAIGYAKORLATON
,C_SZOCIALISTAMOGATAS
,C_TANDIJATFIZETO
,C_TANKOTELEZETT
,C_TANKOTELEZETTSEGVEGE
,C_TANULOSZERZODESES
,C_TERITESIDIJATFIZETO
,C_TESTNEVELESTIPUSA
,C_VENDEG
,C_BTMPROBLEMAS
,C_DIAKSPORTKOROS
,C_EGYHAZKOZOSSEGE
,C_ETKEZESIKEDVEZMENY
,C_HALMOZOTTANFOGYATEKOS
,C_HATRANYOSHELYZETU
,C_KOLLEGIUMIELLATASOS
,C_RENDSZERESGYERMEKVEDELMIKEDV
,C_SAJATOSNEVELESU
,C_SPORTAG
,C_SPORTEDZONEVE
,C_SPORTKLUB
,C_SZAKKEPESITESSZAMA
,C_TANULOIJOGVISZONYOSELTARTOTT
,C_TARTOSGYOGYKEZELESSZAMA
,C_TOBBGYERMEKIGAZOLASSZAMA
,C_VALLASA
,C_VESZELYEZTETETT
,C_JOGVISZONYVARHATOBEFEJEZESE
,C_BEILLESZKEDESIPROBLEMAVALKUZ
,C_BESZEDFOGYATEKOSOKMANYSZAM
,C_BNOKOD
,C_BTMHATAROZATOKMANYSZAM
,C_BTMHATAROZATTARTALMA
,C_BTMKIALLITOINTEZMENY
,C_BTMKONTROLLIDOPONT
,C_BTMLETSZAMSULY
,C_BTMOKMANYERVENYESSEGKEZDETE
,C_BTMOKMANYERVENYESSEGVEGE
,C_DISZGRAFIAOKMANYSZAM
,C_DISZKALKULIAOKMANYSZAM
,C_DISZLEXIAOKMANYSZAM
,C_ERTELMIFOGYATEKOS
,C_ERTELMIFOGYATEKOSOKMANYSZAM
,C_FEJLESZTESREKIJELOLT
,C_FEJLESZTOFOGLALKOZAS
,C_FEJLESZTOFOGLALKOZASORASZAM
,C_HALLASSERULT
,C_HALLASSERULTOKMANYSZAM
,C_LATASSERULT
,C_LATASSERULTOKMANYSZAM
,C_MAGATARTASIPROBLEMAVALKUZD
,C_MEGISMERONEMORGANIKUSOKMANYS
,C_MEGISMEROORGANIKUSOKMANYSZAM
,C_MOZGASSERULTOKMANYSZAM
,C_SNIKIALLITOINTEZMENY
,C_SNIKONTROLLIDOPONT
,C_SNILETSZAMSULY
,C_SNIMEGHATAROZAS
,C_SNIOKMANYERVENYESSEGKEZDETE
,C_SNIOKMANYERVENYESSEGVEGE
,C_TANULASIPROBLEMADISZGRAFIA
,C_TANULASIPROBLEMAVALKUZD
,C_TANULASIPROBLEMAVALKUZDDISZK
,C_TANULASIPROBLEMAVALKUZDDISZL
,C_VISELKEDESNEMORGANIKUSOKMANY
,C_VISELKEDESORGANIKUSOKMANYSZA
,C_ELSOINTEZMENYOMKOD
,C_EVISMETLOTANTARGYAK
,C_KOZEPFOKUOKTATASBATIZENHATOD
,C_MENEDEKJOGGALRENDELKEZO
,C_AGAZAT
,C_RESZSZAKKEPESITES
,C_SZAKKEPESITES
,C_SZAKMACSOPORT
,C_EGYEBDONTO
,C_MEGALLAPODASOS
,C_OSZTV
,C_SZETVAGAZAT
,C_SZINTVIZSGA
,C_SZKTV
,C_TECHNIKUSIEVFOLYAM
,C_EGYUTTMUKODESES
,C_ISKOLAIKERETEKKOZOTT
,C_TANULOEVFOLYAMTIPUS
,C_TANTERVID
,C_FELVETELTANEVEID
,C_ALINTEZMENYID
,C_ALTANEVID
,SERIAL
,LASTCHANGED
,CREATED
,MODIFIER
,CREATOR
,ELOZOTANEVIREKORDID
,ELOZOTANEVIREKORDIDA
,C_TORZSLAPSZAM
,C_ISSZAKMAIGYAKORLATHIANY)
SELECT
@newId
,C_ALLAMIGONDOZOTT
,C_BANKSZAMLASZAM
,C_BEILLESZKEDESINEHEZSEG
,C_BEIRASINAPLOSORSZAM
,C_BEJARO
,C_DIAKIGAZOLVANYKELTE
,C_DIAKIGAZOLVANYSZAM
,C_ELOZOINTEZMENY
,C_EVISMETLO
,C_INGYENESTANKONVYELLATASA
,C_JOGVISZONYATSZUNETELTETO
,C_MAGANTANULO
,C_MAGANTANULOSAGANAKOKA
,C_MAGANTANULOSAGKEZDETE
,C_NAPLOSORSZAM
,C_POLGARISZERZODESES
,C_SZAKMAIGYAKORLATON
,C_SZOCIALISTAMOGATAS
,C_TANDIJATFIZETO
,C_TANKOTELEZETT
,C_TANKOTELEZETTSEGVEGE
,C_TANULOSZERZODESES
,C_TERITESIDIJATFIZETO
,C_TESTNEVELESTIPUSA
,C_VENDEG
,C_BTMPROBLEMAS
,C_DIAKSPORTKOROS
,C_EGYHAZKOZOSSEGE
,C_ETKEZESIKEDVEZMENY
,C_HALMOZOTTANFOGYATEKOS
,C_HATRANYOSHELYZETU
,C_KOLLEGIUMIELLATASOS
,C_RENDSZERESGYERMEKVEDELMIKEDV
,C_SAJATOSNEVELESU
,C_SPORTAG
,C_SPORTEDZONEVE
,C_SPORTKLUB
,C_SZAKKEPESITESSZAMA
,C_TANULOIJOGVISZONYOSELTARTOTT
,C_TARTOSGYOGYKEZELESSZAMA
,C_TOBBGYERMEKIGAZOLASSZAMA
,C_VALLASA
,C_VESZELYEZTETETT
,C_JOGVISZONYVARHATOBEFEJEZESE
,C_BEILLESZKEDESIPROBLEMAVALKUZ
,C_BESZEDFOGYATEKOSOKMANYSZAM
,C_BNOKOD
,C_BTMHATAROZATOKMANYSZAM
,C_BTMHATAROZATTARTALMA
,C_BTMKIALLITOINTEZMENY
,C_BTMKONTROLLIDOPONT
,C_BTMLETSZAMSULY
,C_BTMOKMANYERVENYESSEGKEZDETE
,C_BTMOKMANYERVENYESSEGVEGE
,C_DISZGRAFIAOKMANYSZAM
,C_DISZKALKULIAOKMANYSZAM
,C_DISZLEXIAOKMANYSZAM
,C_ERTELMIFOGYATEKOS
,C_ERTELMIFOGYATEKOSOKMANYSZAM
,C_FEJLESZTESREKIJELOLT
,C_FEJLESZTOFOGLALKOZAS
,C_FEJLESZTOFOGLALKOZASORASZAM
,C_HALLASSERULT
,C_HALLASSERULTOKMANYSZAM
,C_LATASSERULT
,C_LATASSERULTOKMANYSZAM
,C_MAGATARTASIPROBLEMAVALKUZD
,C_MEGISMERONEMORGANIKUSOKMANYS
,C_MEGISMEROORGANIKUSOKMANYSZAM
,C_MOZGASSERULTOKMANYSZAM
,C_SNIKIALLITOINTEZMENY
,C_SNIKONTROLLIDOPONT
,C_SNILETSZAMSULY
,C_SNIMEGHATAROZAS
,C_SNIOKMANYERVENYESSEGKEZDETE
,C_SNIOKMANYERVENYESSEGVEGE
,C_TANULASIPROBLEMADISZGRAFIA
,C_TANULASIPROBLEMAVALKUZD
,C_TANULASIPROBLEMAVALKUZDDISZK
,C_TANULASIPROBLEMAVALKUZDDISZL
,C_VISELKEDESNEMORGANIKUSOKMANY
,C_VISELKEDESORGANIKUSOKMANYSZA
,C_ELSOINTEZMENYOMKOD
,C_EVISMETLOTANTARGYAK
,C_KOZEPFOKUOKTATASBATIZENHATOD
,C_MENEDEKJOGGALRENDELKEZO
,C_AGAZAT
,C_RESZSZAKKEPESITES
,C_SZAKKEPESITES
,C_SZAKMACSOPORT
,C_EGYEBDONTO
,C_MEGALLAPODASOS
,C_OSZTV
,C_SZETVAGAZAT
,C_SZINTVIZSGA
,C_SZKTV
,C_TECHNIKUSIEVFOLYAM
,C_EGYUTTMUKODESES
,C_ISKOLAIKERETEKKOZOTT
,C_TANULOEVFOLYAMTIPUS
,ISNULL(tr.ID, (SELECT ID FROM T_TANTERV_OSSZES tr2 WHERE tr2.C_TANEVID = @kovTanevId AND tr2.C_VEDETT = 'T' AND tr2.TOROLT = 'F'))
,C_FELVETELTANEVEID
,C_ALINTEZMENYID
,@kovTanevId
,0
,GETDATE()
,GETDATE()
,NULL
,NULL
,t.ID
,t.ID
,C_TORZSLAPSZAM
,C_ISSZAKMAIGYAKORLATHIANY
FROM T_TANULO_OSSZES t
LEFT JOIN T_TANTERV_OSSZES tr ON tr.ELOZOTANEVIREKORDID = t.C_TANTERVID AND tr.TOROLT = 'F'
WHERE t.ID=@tanuloId
EXEC uspFollowUpFelhasznaloCim @intezmenyId,@aktTanevId,@kovTanevId,@tanuloId
EXEC uspFollowUpFelhasznaloTelefon @intezmenyId,@aktTanevId,@kovTanevId,@tanuloId
EXEC uspFollowUpFelhasznaloEmail @intezmenyId,@aktTanevId,@kovTanevId,@tanuloId
DECLARE gvCur CURSOR FOR
SELECT ID FROM T_GONDVISELO_OSSZES WHERE TOROLT='F' AND C_TANULOID=@tanuloId
DECLARE @gvId int
OPEN gvCur
FETCH NEXT FROM gvCur INTO @gvId
WHILE @@FETCH_STATUS=0
BEGIN
EXEC uspFollowUpGondviselo @intezmenyId,@aktTanevId,@kovTanevId,@gvId
FETCH NEXT FROM gvCur INTO @gvId
END
CLOSE gvCur
DEALLOCATE gvCur
SELECT @newId as 'newId'
END
GO