﻿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

