--TSUBSISTEMATRANSACCIONESID
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 ('01', '9056', '01', null, '1', '0', '1', '1', null, '1', null, '0', '0', '0', '0', '0', '0', '0', null, null, '0', null, null, '0', '0', '0');
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 ('01', '9755', '01', null, null, '1', null, null, null, null, null, '1', '0', '0', '0', '0', '0', '0', null, null, '0', null, null, '0', '0', '0');

--TSUBSISTEMATRANSACCIONES
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '01', '9056', '01', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2012-04-17 12:00:22', 'OBTIENE CUENTAS PARA PAGAR', null, 0);
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '01', '9755', '01', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2012-04-17 12:00:22', 'OBTIENE LOV DEPENDIENDO SI ES DEBITO O DIPOCISIONES', null, 0);

--TCOMPANIATRANSACCIONES
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '01', '9056', '01', 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '01', '9755', '01', 0);

--TCOMANDOSID
insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.loan.query.ObtainAccountsPayable', 'CON');
insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.loan.query.QueryDebitOrProvisions', 'CON');

--TCOMANDOS
insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.loan.query.ObtainAccountsPayable', 'CON', TIMESTAMP '2999-12-31 00:00:00', 'ES', TIMESTAMP '2008-07-28 13:55:14', 'Obtiene las cuentas por pagar de un prestamo', 0);
insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.loan.query.QueryDebitOrProvisions', 'CON', TIMESTAMP '2999-12-31 00:00:00', 'ES', TIMESTAMP '2012-04-17 00:00:00', 'OBTINE LA LISTA DE VALORES QUE TRAERA EL NUMERO DE CUENTA DEPENDIENDO SI LA TRANSACCION ES DEBITO O DISPOSICIONES', 0);

--TCOMANDOSMANTENIMIENTO PARA LOV 01-9056
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='01' and CTRANSACCION='9056';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('01', '9056', '01', 1, 'I', 'com.fitbank.loan.query.ObtainAccountsPayable', 1, '0', 'CON', '1', null, null, 0, null);

--TCOMANDOSMANTENIMIENTO PARA LOV 01-9755
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='01' and CTRANSACCION='9755';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('01', '9755', '01', 1, 'I', 'com.fitbank.loan.query.QueryDebitOrProvisions', 1, '0', 'CON', '1', null, null, 0, null);

--PARAMETRIZACION TRANSACCIONES
--068002
-- Eliminar la transaccion en cualquier version para el Rol 1

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '8002';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '8002';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '8002';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '8002';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';


-- 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 = '06'
  and  b.cTransaccion = '8002';


-- 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 = '06'
  and  b.cTransaccion = '8002';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '8002';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '8002';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8002';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '8002';


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('2010-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 = '06'
  and  cTransaccion = '8002';


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('2010-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 = '06'
  and  cTransaccion = '8002';


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('2010-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 = '06'
  and  cTransaccion = '8002';


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('2010-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 = '06'
  and  cTransaccion = '8002';


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('2010-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 = '06'
  and  cTransaccion = '8002';


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('2010-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 = '06'
  and  cTransaccion = '8002';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '8002';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '8002';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '8003';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '8003';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '8003';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '8003';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';


-- 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 = '06'
  and  b.cTransaccion = '8003';


-- 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 = '06'
  and  b.cTransaccion = '8003';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '8003';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '8003';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8003';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '8003';


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('2010-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 = '06'
  and  cTransaccion = '8003';


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('2010-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 = '06'
  and  cTransaccion = '8003';


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('2010-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 = '06'
  and  cTransaccion = '8003';


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('2010-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 = '06'
  and  cTransaccion = '8003';


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('2010-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 = '06'
  and  cTransaccion = '8003';


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('2010-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 = '06'
  and  cTransaccion = '8003';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '8003';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '8003';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '8004';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '8004';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '8004';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '8004';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';


-- 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 = '06'
  and  b.cTransaccion = '8004';


-- 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 = '06'
  and  b.cTransaccion = '8004';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '8004';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '8004';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '8004';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '8004';


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('2010-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 = '06'
  and  cTransaccion = '8004';


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('2010-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 = '06'
  and  cTransaccion = '8004';


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('2010-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 = '06'
  and  cTransaccion = '8004';


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('2010-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 = '06'
  and  cTransaccion = '8004';


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('2010-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 = '06'
  and  cTransaccion = '8004';


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('2010-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 = '06'
  and  cTransaccion = '8004';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '8004';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '8004';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '6014';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '6014';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '6014';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '6014';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';


-- 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 = '06'
  and  b.cTransaccion = '6014';


-- 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 = '06'
  and  b.cTransaccion = '6014';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '6014';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '6014';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6014';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '6014';


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('2010-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 = '06'
  and  cTransaccion = '6014';


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('2010-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 = '06'
  and  cTransaccion = '6014';


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('2010-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 = '06'
  and  cTransaccion = '6014';


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('2010-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 = '06'
  and  cTransaccion = '6014';


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('2010-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 = '06'
  and  cTransaccion = '6014';


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('2010-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 = '06'
  and  cTransaccion = '6014';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '6014';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '6014';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '6015';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '6015';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '6015';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '6015';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';


-- 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 = '06'
  and  b.cTransaccion = '6015';


-- 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 = '06'
  and  b.cTransaccion = '6015';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '6015';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '6015';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6015';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '6015';


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('2010-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 = '06'
  and  cTransaccion = '6015';


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('2010-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 = '06'
  and  cTransaccion = '6015';


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('2010-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 = '06'
  and  cTransaccion = '6015';


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('2010-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 = '06'
  and  cTransaccion = '6015';


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('2010-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 = '06'
  and  cTransaccion = '6015';


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('2010-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 = '06'
  and  cTransaccion = '6015';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '6015';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '6015';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '6020';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '6020';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '6020';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '6020';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';


-- 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 = '06'
  and  b.cTransaccion = '6020';


-- 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 = '06'
  and  b.cTransaccion = '6020';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '6020';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '6020';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6020';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '6020';


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('2010-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 = '06'
  and  cTransaccion = '6020';


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('2010-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 = '06'
  and  cTransaccion = '6020';


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('2010-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 = '06'
  and  cTransaccion = '6020';


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('2010-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 = '06'
  and  cTransaccion = '6020';


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('2010-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 = '06'
  and  cTransaccion = '6020';


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('2010-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 = '06'
  and  cTransaccion = '6020';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '6020';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '6020';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '6026';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '6026';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '6026';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '6026';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';


-- 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 = '06'
  and  b.cTransaccion = '6026';


-- 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 = '06'
  and  b.cTransaccion = '6026';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '6026';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '6026';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6026';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '6026';


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('2010-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 = '06'
  and  cTransaccion = '6026';


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('2010-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 = '06'
  and  cTransaccion = '6026';


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('2010-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 = '06'
  and  cTransaccion = '6026';


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('2010-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 = '06'
  and  cTransaccion = '6026';


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('2010-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 = '06'
  and  cTransaccion = '6026';


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('2010-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 = '06'
  and  cTransaccion = '6026';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '6026';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '6026';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '6027';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '6027';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '6027';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '6027';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';


-- 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 = '06'
  and  b.cTransaccion = '6027';


-- 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 = '06'
  and  b.cTransaccion = '6027';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '6027';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '6027';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '6027';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '6027';


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('2010-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 = '06'
  and  cTransaccion = '6027';


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('2010-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 = '06'
  and  cTransaccion = '6027';


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('2010-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 = '06'
  and  cTransaccion = '6027';


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('2010-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 = '06'
  and  cTransaccion = '6027';


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('2010-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 = '06'
  and  cTransaccion = '6027';


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('2010-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 = '06'
  and  cTransaccion = '6027';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '6027';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '6027';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '3030';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '3030';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '3030';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '3030';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';


-- 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 = '06'
  and  b.cTransaccion = '3030';


-- 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 = '06'
  and  b.cTransaccion = '3030';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '3030';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '3030';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3030';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '3030';


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('2010-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 = '06'
  and  cTransaccion = '3030';


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('2010-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 = '06'
  and  cTransaccion = '3030';


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('2010-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 = '06'
  and  cTransaccion = '3030';


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('2010-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 = '06'
  and  cTransaccion = '3030';


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('2010-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 = '06'
  and  cTransaccion = '3030';


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('2010-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 = '06'
  and  cTransaccion = '3030';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '3030';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '3030';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '3007';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '3007';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '3007';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '3007';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';


-- 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 = '06'
  and  b.cTransaccion = '3007';


-- 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 = '06'
  and  b.cTransaccion = '3007';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '3007';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '3007';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3007';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '3007';


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('2010-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 = '06'
  and  cTransaccion = '3007';


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('2010-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 = '06'
  and  cTransaccion = '3007';


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('2010-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 = '06'
  and  cTransaccion = '3007';


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('2010-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 = '06'
  and  cTransaccion = '3007';


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('2010-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 = '06'
  and  cTransaccion = '3007';


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('2010-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 = '06'
  and  cTransaccion = '3007';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '3007';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '3007';

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '3008';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '06' and ctransaccion = '3008';
delete tCompaniaRoles where crol = 1 and csubsistema = '06' and ctransaccion = '3008';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '06' and ctransaccion = '3008';


----------------------------------------------------------------------
-- 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 1000
-- 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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';


-- Transacciones menores a 1000 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 < '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';


-- Transacciones mayores a 1000 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 > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';


-- 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 = '06'
  and  b.cTransaccion = '3008';


-- 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 = '06'
  and  b.cTransaccion = '3008';


-- 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 1000
-- 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','03','09','12')
  and  a.cGrupoProducto = '01'  -- Grupo de productos '01' para los subsisetmas '06','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 = '06'
  and  b.cTransaccion = '3008';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','06')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '04' y '06'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010')  -- con estatus '001' y '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';


-- Transacciones de caja que deben ir en el subsistema 04, 10 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','06','06','07'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  ((a.cSubsistema in ('04','06') and a.cEstatusCuenta in ('001','010')) or
        (a.cSubsistema in ('06','07') and a.cEstatusCuenta in ('001','010','003','004')))
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema_Transaccion = '06'
  and  b.cTransaccion = '3008';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente para los subsistemas '06' y '07'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','010','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';


-- Transacciones mayores a 0099 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente 
-- para los subsistemas '06', '11', '14', '15', '16', '17', '18'
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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','11','14','15','16','17','18')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos para los subsistemas '06','11','14','15','16','17','18'
  --and  a.cProducto = '001'
  --and  a.cTipoBanca = '1'
  and  a.cEstatusCuenta in ('001','010','003')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';



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

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','010')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '1001'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';


-- Transacciones mayores a 1000 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0010 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 1000
-- 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 = '010'  -- con estatus '010'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3008';



----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  cTransaccion = '3008';


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('2010-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 = '06'
  and  cTransaccion = '3008';


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('2010-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 = '06'
  and  cTransaccion = '3008';


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('2010-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 = '06'
  and  cTransaccion = '3008';


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('2010-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 = '06'
  and  cTransaccion = '3008';


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('2010-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 = '06'
  and  cTransaccion = '3008';


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('2010-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 = '06'
  and  cTransaccion = '3008';


----------------------------------------------------------------------
-- 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 = '06'
  and  cTransaccion = '3008';


----------------------------------------------------------------------
-- 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('2010-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 = '06'
  and  a.cTransaccion = '3008';


--TCOMANDOSMANTENIMIENTO
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='06' and CTRANSACCION='6014';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6014', '01', 1, 'I', 'com.fitbank.fin.query.ThreadLocalStart', 2, '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 ('06', '6014', '01', 2, 'I', 'com.fitbank.loan.query.ObtainQuotasForPayment', 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 ('06', '6014', '01', 3, 'I', 'com.fitbank.fin.query.ThreadLocalClose', 4, '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 ('06', '6014', '01', 4, 'I', 'com.fitbank.loan.acco.payment.maintenance.BeginPayment', 5, '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 ('06', '6014', '01', 5, 'I', 'com.fitbank.fin.maintenance.FinancialFromExchange', 6, '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 ('06', '6014', '01', 6, 'I', 'com.fitbank.loan.acco.payment.maintenance.NormalPayment', 7, '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 ('06', '6014', '01', 7, 'I', 'com.fitbank.loan.acco.payment.maintenance.EndPayment', 8, '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 ('06', '6014', '01', 8, 'I', 'com.fitbank.processor.query.QueryProcessor', 1, '0', 'CON', '1', null, null, 0, null);
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='06' and CTRANSACCION='6015';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6015', '01', 1, 'I', 'com.fitbank.fin.query.ThreadLocalStart', 2, '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 ('06', '6015', '01', 2, 'I', 'com.fitbank.loan.query.ObtainQuotasForPayment', 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 ('06', '6015', '01', 3, 'I', 'com.fitbank.fin.query.ThreadLocalClose', 4, '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 ('06', '6015', '01', 4, 'I', 'com.fitbank.loan.acco.payment.maintenance.BeginPayment', 5, '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 ('06', '6015', '01', 5, 'I', 'com.fitbank.fin.maintenance.FinancialFromExchange', 6, '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 ('06', '6015', '01', 6, 'I', 'com.fitbank.loan.acco.payment.maintenance.ExtraPayment', 7, '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 ('06', '6015', '01', 7, 'I', 'com.fitbank.loan.acco.payment.maintenance.EndPayment', 8, '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 ('06', '6015', '01', 8, 'I', 'com.fitbank.processor.query.QueryProcessor', 1, '0', 'CON', '1', null, null, 0, null);
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='06' and CTRANSACCION='6026';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6026', '01', 1, 'I', 'com.fitbank.loan.query.ObtainDataToRenegotiateLoan', 1, '0', 'CON', '1', null, null, 0, 'F');
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='06' and CTRANSACCION='6027';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6027', '01', 1, 'I', 'com.fitbank.loan.query.MovementsToRevert', 1, '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 ('06', '6027', '01', 2, 'I', 'com.fitbank.loan.acco.payment.maintenance.BeginPayment', 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 ('06', '6027', '01', 3, 'I', 'com.fitbank.loan.acco.payment.maintenance.reverse.BackValueCommand', 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 ('06', '6027', '01', 4, 'I', 'com.fitbank.loan.acco.payment.maintenance.EndPayment', 3, '0', 'MAN', '1', null, null, 0, null);
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='06' and CTRANSACCION='6020';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 1, 'I', 'com.fitbank.fin.query.ThreadLocalStart', 1, '0', 'CON', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 2, 'I', 'com.fitbank.loan.query.ObtainQuotasForPayment', 2, '0', 'CON', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 3, 'I', 'com.fitbank.fin.query.ThreadLocalClose', 3, '0', 'CON', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 4, 'I', 'com.fitbank.loan.acco.payment.maintenance.BeginPayment', 4, '0', 'MAN', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 5, 'I', 'com.fitbank.fin.maintenance.FinancialFromExchange', 5, '0', 'MAN', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 6, 'I', 'com.fitbank.loan.acco.payment.maintenance.EarlyCancellation', 6, '0', 'MAN', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 7, 'I', 'com.fitbank.loan.acco.payment.maintenance.EndPayment', 7, '0', 'MAN', '1', null, null, 0, 'F');
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6020', '01', 8, 'I', 'com.fitbank.processor.query.QueryProcessor', 1, '0', 'CON', '1', null, null, 0, null);
delete from TCOMANDOSMANTENIMIENTO where CSUBSISTEMA='06' and CTRANSACCION='6027';
insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '6027', '01', 1, 'I', 'com.fitbank.loan.query.MovementsToRevert', 2, '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 ('06', '6027', '01', 2, 'I', 'com.fitbank.loan.acco.payment.maintenance.BeginPayment', 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 ('06', '6027', '01', 3, 'I', 'com.fitbank.loan.acco.payment.maintenance.reverse.BackValueCommand', 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 ('06', '6027', '01', 4, 'I', 'com.fitbank.loan.acco.payment.maintenance.EndPayment', 3, '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 ('06', '6027', '01', 5, 'I', 'com.fitbank.processor.query.QueryProcessor', 1, '0', 'CON', '1', null, null, 0, null);


--TTRANSACCIONEVENTOSFINANCIEROS
insert into TTRANSACCIONEVENTOSFINANCIEROS (CTRANSACCION, VERSIONTRANSACCION, CSUBSISTEMA, CTIPOEVENTOFINANCIERO, CPERSONA_COMPANIA, FHASTA, FDESDE, RUBRO_ORIGEN, RUBRO_DESTINO, CEVENTO, CSUBSISTEMA_EVENTO, VERSIONCONTROL) values ('6020', '01', '06', 'DEB', 2, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-07-04 12:14:35', null, null, 'PAYMENT_DEBIT', '06', 0);


commit;