-- NUEVOS TIPOS DE VALOR

INSERT INTO valt (tipo, descrip, codvalmon, cv, cp, bt, ap, visibilidad, orden, tituloentidad,
                  tituloadministrador, tituloemisor, activo, verificaunicidad, chequera,
                  titulobeneficiario, titulodetalle, vencpredatado, usalectora)
SELECT CASE WHEN tipo = 'CHE-T' THEN 'ECH-T' WHEN tipo = 'CHE-P' THEN 'ECH-P' END as tipo, 
       CASE WHEN tipo = 'CHE-T' THEN 'E-CHEQ' WHEN tipo = 'CHE-P' THEN 'E-CHEQ Propio' END as descrip, 
       codvalmon, cv, cp, bt, ap, 
       CASE WHEN tipo = 'CHE-T' THEN 'V=nro;bto;cob;det;' WHEN tipo = 'CHE-P' THEN 'V=nro;cob;det;' END as visibilidad, 
       orden, tituloentidad,
       tituloadministrador, tituloemisor, activo, verificaunicidad, chequera,
       titulobeneficiario, 'ID' as titulodetalle, vencpredatado, usalectora
FROM valt
WHERE tipo IN ('CHE-T', 'CHE-P');

-- NUEVAS ACCIONES PARA ESTOS TIPOS DE VALOR

INSERT INTO valacc(cod, signo, tipovalt, tipopada, codpadr, tipoacc, 
                   descripacc, orden, cambiopad, activo, id)
SELECT CASE WHEN tipovalt = 'CHE-T' THEN substring (cod, 1,2) || 'ECH-T' || substring (cod, 8,20) 
            WHEN tipovalt = 'CHE-P' THEN substring (cod, 1,2) || 'ECH-P' || substring (cod, 8,20) END as cod,
       signo, 
       CASE WHEN tipovalt = 'CHE-T' THEN 'ECH-T' 
            WHEN tipovalt = 'CHE-P' THEN 'ECH-P' END as tipovalt,
       tipopada, codpadr, tipoacc, 
       CASE WHEN descripacc ilike '%Cheque%'
            THEN REGEXP_REPLACE (descripacc, 'Cheque', 'E-CHEQ')
            WHEN descripacc ilike '%Cheques%'
            THEN REGEXP_REPLACE (descripacc, 'Cheques', 'E-CHEQs')
            WHEN descripacc ilike '%Ch.Rechazado%'
            THEN REGEXP_REPLACE (descripacc, 'Ch.Rechazado', 'E-CHEQ Rechazado')
            WHEN descripacc ilike '%Ch de terceros%'
            THEN REGEXP_REPLACE (descripacc, 'Ch de terceros', 'E-CHEQ de 3ros.')
            END as descripacc,
            orden, cambiopad, activo, getnextid('valacc') as id
FROM valacc
WHERE tipovalt IN ('CHE-T', 'CHE-P')
ORDER BY tipovalt, id;

-- NUEVAS IMPUTACIONES DE PADRON

INSERT INTO padimp (tipovalt, tipopada, codpadr, idctb, id)
SELECT CASE WHEN tipovalt = 'CHE-T' THEN 'ECH-T' 
            WHEN tipovalt = 'CHE-P' THEN 'ECH-P' END as tipovalt,
       tipopada, codpadr, idctb, getnextid ('padimp') as id
FROM padimp
WHERE tipovalt IN ('CHE-T', 'CHE-P');

-- ASIGNACION DE LOS NUEVAS ACCIONES DE TIPOS DE VALOR A COMPROBANTES (CHE-T de ENTRADA)
-- ATENCION! VERIFICAR ANTES EL RUBRO DE PADRON DE LAS CAJAS, ALGUNOS SON "F.CAJ" Y OTROS SON "F.CAJ.CAJ"

UPDATE com SET valsentrada = valsentrada || 'I:ECH-T@F.CAJ.CAJ;'
WHERE valsentrada like ('%I:CHE-T@F.CAJ.CAJ%');

UPDATE com SET valsentrada = valsentrada || 'I:ECH-T@F.CAJ.CHR;'
WHERE valsentrada like ('%I:CHE-T@F.CAJ.CHR%');

UPDATE com SET valsentrada = valsentrada || 'T:ECH-T@F.CAJ.CAJ;'
WHERE valsentrada like ('%T:CHE-T@F.CAJ.CAJ%');

UPDATE com SET valsentrada = valsentrada || 'T:ECH-T@F.BAN;'
WHERE valsentrada like ('%T:CHE-T@F.BAN%');

UPDATE com SET valsentrada = valsentrada || 'T:ECH-T@F.CAJ.CHR;'
WHERE valsentrada like ('%T:CHE-T@F.CAJ.CHR%');

-- ASIGNACION DE LOS NUEVAS ACCIONES DE TIPOS DE VALOR A COMPROBANTES (CHE-T de SALIDA)
-- ATENCION! VERIFICAR ANTES EL RUBRO DE PADRON DE LAS CAJAS, ALGUNOS SON "F.CAJ" Y OTROS SON "F.CAJ.CAJ"

UPDATE com SET valssalida = valssalida || 'E:ECH-T@F.CAJ.CAJ;'
WHERE valssalida like ('%E:CHE-T@F.CAJ.CAJ%');

UPDATE com SET valssalida = valssalida || 'E:ECH-T@F.BAN;'
WHERE valssalida like ('%E:CHE-T@F.BAN%');

UPDATE com SET valssalida = valssalida || 'E:ECH-T@F.CAJ.CHR;'
WHERE valssalida like ('%E:CHE-T@F.CAJ.CHR%');

-- ASIGNACION DE LOS NUEVAS ACCIONES DE TIPOS DE VALOR A COMPROBANTES (CHE-P de SALIDA)

UPDATE com SET valssalida = valssalida || 'I:ECH-P@F.BAN;'
WHERE valssalida like ('%I:CHE-P@F.BAN%');