--TCOMANDOSMANTENIMIENTO 05-3015
delete from TCOMANDOSMANTENIMIENTO
where CSUBSISTEMA='05' and CTRANSACCION='3015';

insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('05', '3015', '01', 1, 'I', 'com.fitbank.term.validate.VerifyConditionOperativeNOR', 1, '0', 'MAN', '1', null, null, 0, null);
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('05', '3015', '01', 2, 'I', 'com.fitbank.term.maintenance.ChangeRate', 2, '0', 'MAN', '1', null, null, 0, null);
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('05', '3015', '01', 3, 'I', 'com.fitbank.processor.query.QueryProcessor', 3, '0', 'CON', '1', null, null, 0, null);
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('05', '3015', '01', 4, 'I', 'com.fitbank.term.query.ObtainTotalInterest', 4, '0', 'CON', '1', null, null, 0, null);

--TRANSACCION
--05-8011
insert into TSUBSISTEMATRANSACCIONESID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, ORDENMENU, PRESENTARENMENU, INTERNA, FORMULARIOBASE, AFECTAINMOVILIZACION, CGRUPOTRANSACCION, PRESENTARENREVERSO, CNIVELMENU, LISTAVALOR, USACACHE, SUMACOMPONENTES, PROVISION, COMPLETARRUBROS, LOTEGENERICO, VERIFICANIVELSEGURIDAD, CUSUARIO_INGRESO, FINGRESO, ACUMULACONTADOR, PAGINA, ORIGENDESTINO, CONTROLAEFECTIVO, REQUIEREAUTORIZACION, EJECUTAENAUTORIZACION) values ('05', '8011', '01', null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null);
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, VERSIONCONTROL, FDESDE, DESCRIPCION, SIGLAS) values ('ES', '05', '8011', '01', fncfhasta, 0, fncsysdate, 'SUBFORMULARIO CONSULTA DE PARTICIPANTES DEL CERTIFICADO A PLAZO', null);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '05', '8011', '01', 0);

--ROLES
-- respaldar otras monedas
create table RolesHorario as select * from tRolesHorario where crol = 1 and csubsistema_transaccion = '05' and ctransaccion = '8011' and cmoneda != 'USD';

-- Eliminar la transaccion en cualquier version para el Rol 1

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '05' and ctransaccion = '8011';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '05' and ctransaccion = '8011';
delete tCompaniaRoles where crol = 1 and csubsistema = '05' and ctransaccion = '8011';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '05' and ctransaccion = '8011';


----------------------------------------------------------------------
-- DCL Statements for tCompaniaTransaccionesProducto
----------------------------------------------------------------------

-- Transacciones menores a 0100 que pertenecen al producto '00' (esto es mantenimiento de parametros)
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las de mantenimiento de parametros son mayores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema not in ('00','01')
  and  a.cGrupoProducto = '00' -- Grupo de productos para mantenimiento de parametros generales
  and  a.cProducto = '000'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones menores a 0200 que pertenecen al producto '00' (esto es mantenimiento de parametros)
-- Solo se considera el subsistema '00' porque utiliza hasta el 200

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema = '00'
  and  a.cGrupoProducto = '00' -- Grupo de productos para mantenimiento de parametros generales
  and  a.cProducto = '000'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0200 que pertenecen al producto '01' (esto es definicion de productos)
-- Solo se considera el subsistema '00' porque utiliza este producto

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema = '00'
  and  a.cGrupoProducto = '01' -- Grupo de productos para definicion de productos
  and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0100 que pertenecen al producto '00' (esto es mantenimiento de parametros)
-- Solo se considera el subsistema '01' porque las de mantenimiento de parametros son mayores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('01')
  and  a.cGrupoProducto = '00'  -- Grupo de productos para mantenimiento de parametros generales
  and  a.cProducto = '000'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones menores a 0100 que pertenecen al producto '01' (Seguridad)
-- Solo se considera el subsistema '01' porque las de seguridad son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('01')
  and  a.cGrupoProducto = '01' -- Grupo de productos de seguridad
  and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0001 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('02','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '02','09' y '12'
  and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta ='001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0002 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('05','05')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '05' y '05'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','002')  -- con estatus '001' y '002'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones de caja que deben ir en el subsistema 04, 05 y 06
insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema_transaccion,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaSubsistemaTransaccion b
where  a.cSubsistema = b.cSubsistema
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas'05','05','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('05','05') and a.cEstatusCuenta in ('001','002')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','002','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0002 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('06','07')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06' y '07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','002','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0002 es vigente 
-- para los subsistemas '10', '11', '14', '15', '16', '17', '18', '21'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('10','11','14','15','16','17','18','21')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '10','11','14','15','16','17','18','21'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','002','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0002 es vigente 
-- para los subsistemas asignados a la institucion implementada ('70' al '89')
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('70','71','72','73','74','75','76','77','78','79',
                         '80','81','82','83','84','85','86','87','88','89')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas ('70' al '89')
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','002','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones menores a 0500 que pertenecen al producto '00' (esto es mantenimiento de parametros)
-- Se excepciona el subsistema '50' y '60' porque utiliza hasta la transaccion 0500

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('50','60')
  and  a.cGrupoProducto = '00' -- Grupo de productos para mantenimiento de parametros generales
  and  a.cProducto = '000'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;

-- Transacciones mayores a 0500 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0002 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('50','60')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '50'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta = '002'  -- con estatus '002'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '0500'
  and  b.cSubsistema = '05'
  and  b.cTransaccion = '8011'
;


----------------------------------------------------------------------
-- DCL Statements for tCompaniaTransaccionesHorario
----------------------------------------------------------------------

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',1,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||1
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',2,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||2
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',3,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||3
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',4,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||4
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',5,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||5
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',6,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||6
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

insert into tCompaniaTransaccionesHorario
       (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro) 
select cPersona_Compania,cSubsistema,cGrupoProducto,cProducto,cTipoBanca,cEstatusCuenta,cSubsistema_Transaccion,cTransaccion,VersionTransaccion,'USD',
       'N',7,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||7
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '05'
  and  cTransaccion = '8011'
;

----------------------------------------------------------------------
-- DCL Statements for tCompaniaRoles
----------------------------------------------------------------------

-- Rol 1 Instalacion General

insert into tCompaniaRoles
       (crol, cpersona_compania, csubsistema, ctransaccion, versiontransaccion, versioncontrol)
select 1,cPersona_Compania,cSubsistema,cTransaccion,VersionTransaccion,0
from   tCompaniaTransacciones
where  cPersona_Compania = 2
  and  cSubsistema = '05'
  and  cTransaccion = '8011'
;

----------------------------------------------------------------------
-- DCL Statements for tRolesHorario
----------------------------------------------------------------------

insert into tRolesHorario
       (crol, cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, cmoneda, 
        ctipohorario, diasemana, fhasta, versioncontrol, fdesde, horadesde, horahasta, montomaximo, codigoregistro)
select a.cRol,a.cPersona_Compania,b.cSubsistema,b.cGrupoProducto,b.cProducto,b.cTipoBanca,b.cEstatusCuenta,b.cSubsistema_Transaccion,b.cTransaccion,b.VersionTransaccion,b.cMoneda,
       b.cTipoHorario,DiaSemana,to_timestamp('2999-12-31','yyyy-mm-dd hh24:mi:ss.ff'),0,to_timestamp('2002-01-01','yyyy-mm-dd hh24:mi:ss.ff'),'0000','2359',MontoMaximo,crol||CodigoRegistro
from   tCompaniaRoles a,tCompaniaTransaccionesHorario b
where  cRol = 1
  and  a.cPersona_Compania = b.cPersona_Compania
  and  a.cSubsistema = b.cSubsistema_Transaccion
  and  a.cTransaccion = b.cTransaccion
  and  a.versionTransaccion = b.versionTransaccion
  and  a.cSubsistema = '05'
  and  a.cTransaccion = '8011'
;

--- Recuperar otras Monedas
insert into tRolesHorario select * from RolesHorario;

commit;

-- Elimina tablas de respaldo
drop table RolesHorario;