-----Insertar en tablas nuevas

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 ('00', '0320', '01', null, '', '0', '1', '0', null, null, '', null, '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 ('00', '0321', '01', null, '', '0', '1', '0', null, null, '', null, '0', '0', '0', '0', '0', '0', null, null, '0', null, null, '0', '0', '0');
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, VERSIONCONTROL, FDESDE, DESCRIPCION, SIGLAS) values ('ES', '00', '0320', '01', TIMESTAMP '2999-12-31 00:00:00', 0, TIMESTAMP '2009-11-18 15:45:14', 'INGRESO Y CODIGOS DE TELÉFONO (TABLA TPAISCODIGOSTELEFONO)', null);
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, VERSIONCONTROL, FDESDE, DESCRIPCION, SIGLAS) values ('ES', '00', '0321', '01', TIMESTAMP '2999-12-31 00:00:00', 0, TIMESTAMP '2009-11-18 15:45:14', 'CONSULTA Y CODIGOS DE TELÉFONO (TABLA TPAISCODIGOSTELEFONO)', null);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '00', '0320', '01', 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '00', '0321', '01', 0);

-----PERMISOS PARA 00-0320

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '00' and ctransaccion = '0320';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '00' and ctransaccion = '0320';
delete tCompaniaRoles where crol = 1 and csubsistema = '00' and ctransaccion = '0320';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '00' and ctransaccion = '0320';


----------------------------------------------------------------------
-- 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 0000
-- 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','000')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '00'
  and  b.cTransaccion = '0320'
;

-- Transacciones menores a 0000 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 < '0000'
  and  b.cSubsistema = '00'
  and  b.cTransaccion = '0320'
;

-- Transacciones mayores a 0000 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 > '0000'
  and  b.cSubsistema = '00'
  and  b.cTransaccion = '0320'
;

-- 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 = '00'
  and  b.cTransaccion = '0320'
;

-- 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 = '00'
  and  b.cTransaccion = '0320'
;

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

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

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

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

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

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


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

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

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


----------------------------------------------------------------------
-- 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('2000-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 = '00'
  and  cTransaccion = '0320'
;

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('2000-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 = '00'
  and  cTransaccion = '0320'
;

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('2000-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 = '00'
  and  cTransaccion = '0320'
;

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('2000-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 = '00'
  and  cTransaccion = '0320'
;

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('2000-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 = '00'
  and  cTransaccion = '0320'
;

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('2000-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 = '00'
  and  cTransaccion = '0320'
;

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('2000-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 = '00'
  and  cTransaccion = '0320'
;

----------------------------------------------------------------------
-- 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 = '00'
  and  cTransaccion = '0320'
;

----------------------------------------------------------------------
-- 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('2000-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 = '00'
  and  a.cTransaccion = '0320'
;


-----PERMISOS PARA 00-0321

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

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '00' and ctransaccion = '0321';
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '00' and ctransaccion = '0321';
delete tCompaniaRoles where crol = 1 and csubsistema = '00' and ctransaccion = '0321';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '00' and ctransaccion = '0321';


----------------------------------------------------------------------
-- 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 0000
-- 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','000')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '00'
  and  b.cTransaccion = '0321'
;

-- Transacciones menores a 0000 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 < '0000'
  and  b.cSubsistema = '00'
  and  b.cTransaccion = '0321'
;

-- Transacciones mayores a 0000 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 > '0000'
  and  b.cSubsistema = '00'
  and  b.cTransaccion = '0321'
;

-- 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 = '00'
  and  b.cTransaccion = '0321'
;

-- 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 = '00'
  and  b.cTransaccion = '0321'
;

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

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

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

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

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

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


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

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

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


----------------------------------------------------------------------
-- 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('2000-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 = '00'
  and  cTransaccion = '0321'
;

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('2000-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 = '00'
  and  cTransaccion = '0321'
;

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('2000-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 = '00'
  and  cTransaccion = '0321'
;

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('2000-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 = '00'
  and  cTransaccion = '0321'
;

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('2000-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 = '00'
  and  cTransaccion = '0321'
;

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('2000-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 = '00'
  and  cTransaccion = '0321'
;

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('2000-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 = '00'
  and  cTransaccion = '0321'
;

----------------------------------------------------------------------
-- 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 = '00'
  and  cTransaccion = '0321'
;

----------------------------------------------------------------------
-- 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('2000-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 = '00'
  and  a.cTransaccion = '0321'
;