-- Este script lo lanzará Tesis despues de hacer la migración de la correduría mono a multi ya que existen campos que en mono no están.
-- El código lo tienen puesto a pelo en su migración, así que cualquier cambio aquí no se refleja en su código y hay que avisarlos

-- Hemos añadido estos scripts aquí aunque no sea de colaboradores para facilitar la actualización de los ids de gestiones con incidencias
UPDATE A
SET A.INC_Id = B.INC_Id
FROM TESISSEG.dbo.CliGes A
INNER JOIN TESISSEG.dbo.AS_INCIDENCIAS B ON A.EmpID = B.EmpID AND A.INC_Id = B.OldID AND B.INC_TipoObj = 1
WHERE A.EmpID = 1

UPDATE A
SET A.INC_Id = B.INC_Id
FROM TESISSEG.dbo.SinGes A
INNER JOIN TESISSEG.dbo.AS_INCIDENCIAS B ON A.EmpID = B.EmpID AND A.INC_Id = B.OldID AND B.INC_TipoObj = 13
WHERE A.EmpID = 1

UPDATE A
SET A.INC_Id = B.INC_Id
FROM TESISSEG.dbo.RecGes A
INNER JOIN TESISSEG.dbo.AS_INCIDENCIAS B ON A.EmpID = B.EmpID AND A.INC_Id = B.OldID AND B.INC_TipoObj = 10
WHERE A.EmpID = 1

UPDATE A
SET A.INC_Id = B.INC_Id
FROM TESISSEG.dbo.PolGes A
INNER JOIN TESISSEG.dbo.AS_INCIDENCIAS B ON A.EmpID = B.EmpID AND A.INC_Id = B.OldID AND B.INC_TipoObj = 7
WHERE A.EmpID = 1

-- Hemos añadido este script aquí aunque no sea de colaboradores porque en mono no se puede ejecutar al tener el campo UseLog muy pocos caracteres
UPDATE A
SET A.UseLog = B.UPW_Email
FROM TESISSEG.dbo.Usuarios A
INNER JOIN TESISSEG.dbo.AS_USRPWD B ON A.UseID = B.USR_IdTesis AND B.UPW_Email != '' AND B.EmpID = 1

INSERT INTO TESISSEG.dbo.Usuarios
(UseID,UseApe1,UseApe2,UseNom,UseRazSoc,UseNIF,UseLog,UsePas,UseClaDir,UseDirBlo,UseDirDes,UseDirNum,UseDirEsc,UseDirPis,UseDirPue,UsePaisID,UseCPoID,UseCPoPob,UseCpoPro,UseCtTel1,UseCtTel2,UseCtTel3,UseCtMov1,UseCtMov2,UseCtFax,UseCtEma1,UseCtEma2,UseCtURL,UseFecAlta,UseFecBaja,UPerID,IdiID,UseSkin,UseScrBack,UseToolTips,UseKNuevo,UseKEditar,UseKBuscar,UseKMante,UseKRefres,UseKAnter,UseKSigui,UseKPrime,UseKUltim,UseKListar,UseKAcep,UseKCanc,UseKDesh,UseKElim,UseParConfIniForm,UseLOPDLock,UseLOPDChgPas,UseLOPDDiaCad,UseLOPDFecCad,UseLOPDNumInt,UseLOPDNumMin,UseLOPDEndLock,UseComCli,UseComUsu,UseComSis,UseNPaisID,UseTDocID,UseFutBaja,UseSMS,UseOLPas,UseCERT,UseComUpd,UseCol)
SELECT (SELECT MAX(u2.UseID) FROM TESISSEG.dbo.Usuarios u2) + ROW_NUMBER() OVER (ORDER BY u.USER_id DESC),'','','',COALESCE(u.USER_nombre,''),'',(CASE WHEN TRIM(u.USER_mail) = '' THEN u.USER_username ELSE u.USER_mail END),'DE1313FE 2C581C5E CD3C2700 E1C08EC9 5FE54477 70EFB8E8 D50D4BDB 172473EF                             ','','','','','','','','ESP','','','','','','','','','',u.USER_mail,'','','2021-10-10 00:00:00','1753-01-01 00:00:00','USU','ESP','.\SKINS\Tonos Plateados.TSK                                                                                                                                                                             ','<STDBACK>                                                                                                                                                                                               ',1,-1,-2,-3,-4,-4,18,3,1,6,-6,-9,27,-2,-7,0,'N','N',0,'1753-01-01 00:00:00',0,0,'1753-01-01 00:00:00','S','S','S','ESP','NIF','1753-01-01 00:00:00','N','','','S',u.USER_id
FROM TESISSEG.dbo.AS_USUARIOS_COLABORADORES u
WHERE u.EmpID = 1

    INSERT INTO TESISSEG.dbo.UsuParCor
(EmpID,UseID,UseRazSoc,UseParTraSin,UseParTraReg,UseWVis,UseWDep,UseWEma,UsePAPer,EmpDVID,UseAccEOfi,ColID,UseAccECol,UseTSSPars,UseDep,UseWPVis,UseMailSign,ColPerf)
SELECT u.EmpID,u2.UseID,COALESCE(u.USER_nombre,''),'N','N','N','','','','','N',c1.COL_TesisId,'S','SSSNSNSNNNSSSSN','','','',(CASE WHEN (u.USER_perfil = 1) THEN 'A' ELSE 'U' END)
FROM TESISSEG.dbo.AS_USUARIOS_COLABORADORES u
         INNER JOIN TESISSEG.dbo.AS_COLABORADORES c1 ON c1.COL_MyId = u.USER_colid
         INNER JOIN TESISSEG.dbo.Usuarios u2 ON u.USER_id = u2.UseCol
WHERE u.EmpID = 1

    INSERT INTO TESISSEG.dbo.CorUsuAcc
(EmpID,UseID,UseEmpDef)
SELECT u.EmpID,u2.UseID,'S'
FROM TESISSEG.dbo.AS_USUARIOS_COLABORADORES u
         INNER JOIN TESISSEG.dbo.Usuarios u2 ON u.USER_id = u2.UseCol
WHERE u.EmpID = 1

UPDATE u SET u.USER_usuariotesis = B.UseID
    FROM TESISSEG.dbo.AS_USUARIOS_COLABORADORES u
INNER JOIN (
SELECT u2.UseID,u2.UseCol
from TESISSEG.dbo.Usuarios u2
)B ON u.USER_id = B.UseCol
WHERE u.EmpID = 1


UPDATE TESISSEG.dbo.AS_EMAIL_CONFIRMATIONS
SET confirmed = 'Y'
WHERE id IN (
    SELECT  MAX(ec.id)
    FROM TESISSEG.dbo.AS_EMAIL_CONFIRMATIONS ec
    join TESISSEG.dbo.AS_USRPWD au on au.USR_IdTesis  = ec.usersIdTesis
    GROUP BY ec.usersIdTesis
    HAVING   COUNT(CASE ec.confirmed WHEN 'Y' THEN 1 END) = 0
)


UPDATE
    cli
SET
    cli.CliPresunto  = (CASE
                            WHEN ac.CLI_Estado = 1 THEN 1
                            ELSE 0
        END)
    FROM TESISSEG.dbo.Clientes cli
LEFT JOIN TESISSEG.dbo.AS_CLIENTES  AS ac ON ac.EmpID = cli.EmpID AND ac.CLI_Id = ac.CLI_IdTesis
WHERE cli.EmpID = 1