------------------------------------------------
-- Oracle Statements for insert company data
------------------------------------------------
-- SQL script that insert data in the company tables
-- contained in the fitBank schema version 201036

-- To run this script from the SQL Plus, perform the following steps:
-- 1. connect to the database
-- 2. set define character to !
--      "set define !"
-- 3. issue the command "@ <script-name>"
--    where <script-name> represents the name of this script

spool RolUno.log

define subs = '01';
define tran = '9048';
define vers = '01';
define mon = 'USD';

SELECT * FROM TUSUARIOS WHERE CUSUARIO='LEONARDO' AND FHASTA > SYSDATE FOR UPDATE
SELECT * FROM TTERMINALES WHERE IPADDRESS='192.168.1.54'
SELECT * FROM TTER



-- respaldar otras monedas
create table RolesHorario as select * from tRolesHorario where crol = 1 and csubsistema_transaccion = '&subs' and ctransaccion = '&tran' and cmoneda != '&mon';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '&subs' and ctransaccion = '&tran';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '&subs' and ctransaccion = '&tran';
delete tCompaniaRoles where crol = 1 and csubsistema = '&subs' and ctransaccion = '&tran';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '&subs' and ctransaccion = '&tran';


----------------------------------------------------------------------
-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 < '0200'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 > '0200'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 > '0099'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 < '0100'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 ('04','05')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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'04','05','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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'
-- 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')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '10','11','14','15','16','17','18'
  --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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/


-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/


----------------------------------------------------------------------
-- 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,'&mon',
       '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||'&mon'||'N'||1
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||2
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||3
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||4
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||5
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||6
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||7
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

----------------------------------------------------------------------
-- 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 = '&Subs'
  and  cTransaccion = '&Tran'
/

----------------------------------------------------------------------
-- 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 = '&Subs'
  and  a.cTransaccion = '&Tran'
/

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

commit;

-- Elimina tablas de respaldo
drop table RolesHorario;

spool off


------------------------------------------------
-- Oracle Statements for insert company data
------------------------------------------------
-- SQL script that insert data in the company tables
-- contained in the fitBank schema version 201036

-- To run this script from the SQL Plus, perform the following steps:
-- 1. connect to the database
-- 2. set define character to !
--      "set define !"
-- 3. issue the command "@ <script-name>"
--    where <script-name> represents the name of this script

spool RolUno.log

define subs = '05';
define tran = '4012';
define vers = '01';
define mon = 'USD';

SELECT * FROM TUSUARIOS WHERE CUSUARIO='LEONARDO' AND FHASTA > SYSDATE FOR UPDATE
SELECT * FROM TTERMINALES WHERE IPADDRESS='192.168.1.54'
SELECT * FROM TTER



-- respaldar otras monedas
create table RolesHorario as select * from tRolesHorario where crol = 1 and csubsistema_transaccion = '&subs' and ctransaccion = '&tran' and cmoneda != '&mon';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '&subs' and ctransaccion = '&tran';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '&subs' and ctransaccion = '&tran';
delete tCompaniaRoles where crol = 1 and csubsistema = '&subs' and ctransaccion = '&tran';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '&subs' and ctransaccion = '&tran';


----------------------------------------------------------------------
-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 < '0200'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 > '0200'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 > '0099'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 < '0100'
  and  b.cSubsistema = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 ('04','05')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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'04','05','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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'
-- 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')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '10','11','14','15','16','17','18'
  --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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/


-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/

-- 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 = '&Subs'
  and  b.cTransaccion = '&Tran'
/


----------------------------------------------------------------------
-- 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,'&mon',
       '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||'&mon'||'N'||1
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||2
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||3
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||4
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||5
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||6
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

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,'&mon',
       '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||'&mon'||'N'||7
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '&Subs'
  and  cTransaccion = '&Tran'
/

----------------------------------------------------------------------
-- 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 = '&Subs'
  and  cTransaccion = '&Tran'
/

----------------------------------------------------------------------
-- 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 = '&Subs'
  and  a.cTransaccion = '&Tran'
/

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

commit;

-- Elimina tablas de respaldo
drop table RolesHorario;

spool off