-- Záradék migráció tanulócsoportból v2.1
-- Fekete-Rekényi Balázs, 2020.10.28.

SET NOCOUNT ON;

INSERT INTO [dbo].[T_ZARADEK]
  ([C_ISBIZONYITVANYBANMEGJELENIK]
  ,[C_ISKIVAGYATSOROLASIZARADEK]
  ,[C_ISOSZTALYNAPLOBANMEGJELENIK]
  ,[C_ISTORZSLAPONMEGJELENIK]
  ,[C_KELTEZESDATUMA]
  ,[C_KELTEZESHELYE]
  ,[C_ROGZITESDATUMA]
  ,[C_SZOVEG]
  ,[C_UTOLSOMODOSITASDATUMA]
  ,[C_ROGZITOID]
  ,[C_UTOLSOMODOSITOID]
  ,[C_TANULOCSOPORTID]
  ,[C_INTEZMENYID]
  ,[C_TANEVID]
  ,[TOROLT]
  ,[SERIAL]
  ,[LASTCHANGED]
  ,[CREATED]
  ,[MODIFIER]
  ,[CREATOR]
  ,[ELOZOTANEVIREKORDID])
SELECT
   'T'
  ,'F'
  ,'T'
  ,'T'
  ,tcs.LASTCHANGED
  ,ia.C_VAROS
  ,tcs.CREATED
  ,IIF(tcs.C_ZARADEK IS NOT NULL AND RTRIM(LTRIM(tcs.C_ZARADEK)) <> '', RTRIM(LTRIM(tcs.C_ZARADEK)), '')
  ,tcs.LASTCHANGED
  ,ISNULL(tcs.CREATOR, f.ID)
  ,ISNULL(tcs.CREATOR, f.ID)
  ,tcs.ID
  ,tcs.C_INTEZMENYID
  ,tcs.C_TANEVID
  ,tcs.TOROLT
  ,1
  ,tcs.LASTCHANGED
  ,tcs.CREATED
  ,ISNULL(tcs.CREATOR, f.ID)
  ,ISNULL(tcs.CREATOR, f.ID)
  ,NULL
FROM T_TANULOCSOPORT tcs
INNER JOIN T_FELHASZNALO f ON f.C_TANEVID = tcs.C_TANEVID AND f.C_NYOMTATASINEV = 'Kréta Adminisztrátor' AND f.TOROLT = 'F'
INNER JOIN T_INTEZMENYADATOK ia ON ia.C_TANEVID = tcs.C_TANEVID AND ia.TOROLT = 'F'
WHERE (tcs.C_ZARADEK IS NOT NULL AND RTRIM(LTRIM(tcs.C_ZARADEK)) <> '')
  OR EXISTS (
    SELECT 1
    FROM T_TANULOCSOPORTNYELV tcsny
    WHERE tcsny.C_TANULOCSOPORTID = tcs.ID
      AND (tcsny.C_ZARADEK IS NOT NULL AND RTRIM(LTRIM(tcsny.C_ZARADEK)) <> '')
  );

INSERT INTO [dbo].[T_ZARADEK]
  ([C_ISBIZONYITVANYBANMEGJELENIK]
  ,[C_ISKIVAGYATSOROLASIZARADEK]
  ,[C_ISOSZTALYNAPLOBANMEGJELENIK]
  ,[C_ISTORZSLAPONMEGJELENIK]
  ,[C_KELTEZESDATUMA]
  ,[C_KELTEZESHELYE]
  ,[C_ROGZITESDATUMA]
  ,[C_SZOVEG]
  ,[C_UTOLSOMODOSITASDATUMA]
  ,[C_ROGZITOID]
  ,[C_UTOLSOMODOSITOID]
  ,[C_TANULOCSOPORTID]
  ,[C_INTEZMENYID]
  ,[C_TANEVID]
  ,[TOROLT]
  ,[SERIAL]
  ,[LASTCHANGED]
  ,[CREATED]
  ,[MODIFIER]
  ,[CREATOR]
  ,[ELOZOTANEVIREKORDID])
SELECT
   'T'
  ,'T'
  ,'T'
  ,'T'
  ,tcs.LASTCHANGED
  ,ia.C_VAROS
  ,tcs.CREATED
  ,IIF(tcs.C_VEGZARADEK IS NOT NULL AND RTRIM(LTRIM(tcs.C_VEGZARADEK)) <> '', RTRIM(LTRIM(tcs.C_VEGZARADEK)), '')
  ,tcs.LASTCHANGED
  ,ISNULL(tcs.CREATOR, f.ID)
  ,ISNULL(tcs.CREATOR, f.ID)
  ,tcs.ID
  ,tcs.C_INTEZMENYID
  ,tcs.C_TANEVID
  ,tcs.TOROLT
  ,1
  ,tcs.LASTCHANGED
  ,tcs.CREATED
  ,ISNULL(tcs.CREATOR, f.ID)
  ,ISNULL(tcs.CREATOR, f.ID)
  ,NULL
FROM T_TANULOCSOPORT tcs
INNER JOIN T_FELHASZNALO f ON f.C_TANEVID = tcs.C_TANEVID AND f.C_NYOMTATASINEV = 'Kréta Adminisztrátor' AND f.TOROLT = 'F'
INNER JOIN T_INTEZMENYADATOK ia ON ia.C_TANEVID = tcs.C_TANEVID AND ia.TOROLT = 'F'
WHERE (tcs.C_VEGZARADEK IS NOT NULL AND RTRIM(LTRIM(tcs.C_VEGZARADEK)) <> '')
  OR EXISTS (
    SELECT 1
    FROM T_TANULOCSOPORTNYELV tcsny
    WHERE tcsny.C_TANULOCSOPORTID = tcs.ID
      AND (tcsny.C_VEGZARADEK IS NOT NULL AND RTRIM(LTRIM(tcsny.C_VEGZARADEK)) <> '')
  );

INSERT INTO [dbo].[T_ZARADEKNYELV]
  ([C_NYELVID]
  ,[C_SZOVEG]
  ,[C_ZARADEKID]
  ,[C_INTEZMENYID]
  ,[C_TANEVID]
  ,[TOROLT]
  ,[SERIAL]
  ,[LASTCHANGED]
  ,[CREATED]
  ,[MODIFIER]
  ,[CREATOR]
  ,[ELOZOTANEVIREKORDID])
SELECT
   tcsny.C_NYELVID
  ,RTRIM(LTRIM(tcsny.C_ZARADEK))
  ,z.ID
  ,tcsny.C_INTEZMENYID
  ,tcsny.C_TANEVID
  ,IIF(z.TOROLT = 'T', 'T', tcsny.TOROLT)
  ,1
  ,tcsny.LASTCHANGED
  ,tcsny.CREATED
  ,ISNULL(tcsny.CREATOR, f.ID)
  ,ISNULL(tcsny.CREATOR, f.ID)
  ,NULL
FROM T_TANULOCSOPORTNYELV tcsny
INNER JOIN T_FELHASZNALO f ON f.C_TANEVID = tcsny.C_TANEVID AND f.C_NYOMTATASINEV = 'Kréta Adminisztrátor' AND f.TOROLT = 'F'
INNER JOIN T_ZARADEK z ON z.C_TANULOCSOPORTID = tcsny.C_TANULOCSOPORTID AND z.C_ISKIVAGYATSOROLASIZARADEK = 'F'
WHERE (tcsny.C_ZARADEK IS NOT NULL AND RTRIM(LTRIM(tcsny.C_ZARADEK)) <> '')

INSERT INTO [dbo].[T_ZARADEKNYELV]
  ([C_NYELVID]
  ,[C_SZOVEG]
  ,[C_ZARADEKID]
  ,[C_INTEZMENYID]
  ,[C_TANEVID]
  ,[TOROLT]
  ,[SERIAL]
  ,[LASTCHANGED]
  ,[CREATED]
  ,[MODIFIER]
  ,[CREATOR]
  ,[ELOZOTANEVIREKORDID])
SELECT
   tcsny.C_NYELVID
  ,RTRIM(LTRIM(tcsny.C_VEGZARADEK))
  ,z.ID
  ,tcsny.C_INTEZMENYID
  ,tcsny.C_TANEVID
  ,IIF(z.TOROLT = 'T', 'T', tcsny.TOROLT)
  ,1
  ,tcsny.LASTCHANGED
  ,tcsny.CREATED
  ,ISNULL(tcsny.CREATOR, f.ID)
  ,ISNULL(tcsny.CREATOR, f.ID)
  ,NULL
FROM T_TANULOCSOPORTNYELV tcsny
INNER JOIN T_FELHASZNALO f ON f.C_TANEVID = tcsny.C_TANEVID AND f.C_NYOMTATASINEV = 'Kréta Adminisztrátor' AND f.TOROLT = 'F'
INNER JOIN T_ZARADEK z ON z.C_TANULOCSOPORTID = tcsny.C_TANULOCSOPORTID AND z.C_ISKIVAGYATSOROLASIZARADEK = 'T'
WHERE (tcsny.C_VEGZARADEK IS NOT NULL AND RTRIM(LTRIM(tcsny.C_VEGZARADEK)) <> '')