--Migration
---------------------------------------------------------------------------------------------------------------------------------
-- Csak egy alapértelmezett email cím legyen, felületen ezt kezeljük.
-- Gondviselő import esetén a gondviselő email címe megjelenhet a tanulónál mint új alapértelmezett.
-- Ezekről leszedi az alapértelmezetséget. A felület javítja enélkül is.
---------------------------------------------------------------------------------------------------------------------------------
;WITH CTE AS (
    SELECT *, RANK() OVER (PARTITION BY C_FELHASZNALOID, C_TANEVID,C_GONDVISELOID ORDER BY ID ASC) EMAIL_RANK
    FROM T_EMAIL E        
    WHERE C_ALAPERTELMEZETT = 'T'
    AND TOROLT = 'F'
    AND C_GONDVISELOID IS NULL
)
UPDATE CTE 
SET  C_ALAPERTELMEZETT = 'F'
    ,MODIFIER = 0
    ,LASTCHANGED = GETDATE()
    ,SERIAL += 1
WHERE EMAIL_RANK <> 1