--productos ejecutado hasta linea: 19 (11-11-2014)

INSERT INTO TGRUPOSPRODUCTOID (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO) VALUES (2, '06', '90');
INSERT INTO TGRUPOSPRODUCTO (CIDIOMA, CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) VALUES ('ES', 2, '06', '90', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2014-02-19 10:11:57', 'REDESCUENTO', 'PRENO', 1);

INSERT INTO TPRODUCTOID (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CGRUPOBALANCE_PRINCIPAL) VALUES (2, '06', '90', '902', '2');
INSERT INTO TPRODUCTO (CIDIOMA, CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONPVENTA, VERSIONCONTROL) VALUES ('ES', 2, '06', '90', '902', TIMESTAMP '2999-12-31 00:00:00', sysdate, 'CFN', 'FAGRO', 'CFN', 0);

-- tipo de banca entidades de redescuento
insert into TTIPOSBANCAID (CTIPOBANCA) values ('RED');
insert into TTIPOSBANCA (CIDIOMA, CTIPOBANCA, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', 'RED', TIMESTAMP '2999-12-31 00:00:00', sysdate, 'ENTIDADES DE REDESCUENTO', 'RED', 0);

--ESTATUS
INSERT INTO TCOMPANIAPRODUCTOS (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CTIPOBANCA, VERSIONCONTROL) VALUES (2, '06', '90', '902', 'RED', 0);
insert into TPRODUCTOESTATUS (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CTIPOBANCA, CESTATUSCUENTA, VERSIONCONTROL) values (2, '06', '90', '902', 'RED', '003', 0);



-- definicion de transsacion 06-2300
select * from tRolesHorario where crol = 1 and csubsistema_transaccion = '06' and ctransaccion = '2300';

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

delete from  TCOMPANIATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '2300'; 
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '2300';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '06' and CTRANSACCION = '2300';

-- definicion de transsacion 06-2300

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 ('06', '2300', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', '0', '0', '0', null, null, null, null, null, null, null, null, '0', '0');
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '06', '2300', '01', FNCFHASTA(), FNCSYSDATE(), 'CREACION OPERACION DE CREDITO DEL PASIVO', null, 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '06', '2300', '01', 0);



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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '2300'
;

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

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

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

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

-- 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.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 = '2300'
;

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '2300'
;

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

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

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

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

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

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

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

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

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

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

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

-- 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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '2300'
;
-- Transacciones mayores a 0500 que pertenecen al producto '01' de los subsistemas
-- Solo para los subsistemas en que el estatus 0002 es vigente
-- Se excepciona el subsistema '00' porque utiliza hasta la transaccion 0200
-- y el subsistema '01' porque las del producto '01' son menores a 0100

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


----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;

----------------------------------------------------------------------
-- 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 = '2300'
;

----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2300'
;


--comandos

insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.loan.acco.maintenance.CreateAccount', 'MAN');
insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.loan.acco.maintenance.CreateAccount', 'MAN', TIMESTAMP '2999-12-31 00:00:00', 'ES', sysdate, 'Procesa cuenta de prestamos en modo normal', 0);

delete from tcomandosmantenimiento where csubsistema='06' and ctransaccion='2300';

insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '2300', '01', 1, 'I', 'com.fitbank.loan.acco.maintenance.CreateAccount', 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', '2300', '01', 2, 'I', 'com.fitbank.solicitude.CommonOpening', 2, '0', 'MAN', '1', null, null, 0, null);




--- creacion de definicion de rubros y evento para transacciones 06, 7000 y 06, 7002

delete from TTRANSACCIONRUBROSDEFINICION where CSUBSISTEMA = '06' and CTRANSACCION='7002' and  RUBRO in (1, 2, 3, 4, 5, 6);
delete from TTRANSACCIONRUBROS where CSUBSISTEMA = '06' and CTRANSACCION='7002' and  RUBRO in (1, 2, 3, 4, 5, 6);
delete from TTRANSACCIONRUBROSID where CSUBSISTEMA = '06' and CTRANSACCION ='7002' and RUBRO in (1, 2, 3, 4, 5, 6);

delete from TTRANSACCIONRUBROSDEFINICION where CSUBSISTEMA = '06' and CTRANSACCION ='7000' and CATEGORIA = 'CAPPAS';
delete from TTRANSACCIONRUBROS where CSUBSISTEMA = '06' and CTRANSACCION='7000' and  RUBRO in (2);
delete from TTRANSACCIONRUBROSID where CSUBSISTEMA = '06' and CTRANSACCION ='7000' and RUBRO = 2;


---- definicion de TCATEGORIASDETALL CAPPAS, COMPAS, INTPAS

delete from TCATEGORIASDETALLE where CATEGORIA in ('CAPPAS', 'COMPAS', 'INTPAS') and CPERSONA_COMPANIA =2;



---------- definicion producto prestamo del pasivo
--  definicion de categorias CAPPAS, COMPAS, INTPAS


delete from TTRANSACCIONPROVISIONES where CPERSONA_COMPANIA = 2 and CATEGORIACAPITAL = 'CAPPAS' and CGRUPOBALANCE = '2' ;
delete from TGRUPOCATEGORIASUBSISTEMA  where CPERSONA_COMPANIA = 2 and CSUBSISTEMA = '06' and CATEGORIA = 'CAPPAS' and CGRUPOBALANCE in ('1','2') ;
delete from TGRUPOCATEGORIASUBSISTEMA  where CPERSONA_COMPANIA = 2 and CSUBSISTEMA = '06' and CATEGORIA = 'INTPAS' and CGRUPOBALANCE = '2' ;
delete from TGRUPOCATEGORIASUBSISTEMA  where CPERSONA_COMPANIA = 2 and CSUBSISTEMA = '06' and CATEGORIA = 'COMPAS' and CGRUPOBALANCE = '2' ;
delete from TCATEGORIAS where CPERSONA_COMPANIA = 2 and CATEGORIA = 'INTPAS' and CGRUPOBALANCE = '4' ; 
delete from TCATEGORIASID where CPERSONA_COMPANIA = 2 and CATEGORIA = 'INTPAS' and CGRUPOBALANCE = '4' ;
delete from TCATEGORIAS where CPERSONA_COMPANIA = 2 and CATEGORIA = 'COMPAS' and CGRUPOBALANCE = '2' ;
delete from TCATEGORIASID where CPERSONA_COMPANIA = 2 and CATEGORIA = 'COMPAS' and CGRUPOBALANCE = '2' ;
delete from TCATEGORIAS where CPERSONA_COMPANIA = 2 and CATEGORIA = 'INTPAS' and CGRUPOBALANCE = '2' ;
delete from TCATEGORIASID where CPERSONA_COMPANIA = 2 and CATEGORIA = 'INTPAS' and CGRUPOBALANCE = '2' ;
delete from TCATEGORIAS where CPERSONA_COMPANIA = 2 and CATEGORIA = 'CAPPAS' and CGRUPOBALANCE in ('1','2') ;
delete from TCATEGORIASID where CPERSONA_COMPANIA = 2 and CATEGORIA = 'CAPPAS' and CGRUPOBALANCE in ('1','2');

select * from tcategoriasid where categoria like '%PAS'
INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('CAPPAS', '1', 2);
INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('CAPPAS', '2', 2);
INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('COMPAS', '2', 2);
INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('INTPAS', '2', 2);
INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('INTPAS', '4', 2);

select * from tcategoriasid where categoria like 'INTPRD'

INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('INTPAS', '2', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'INTERES DE PRESTAMOS DEL PASIVO', 0);
INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('INTPAS', '4', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'INTERES DE PRESTAMOS DEL PASIVO', 0);
INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('CAPPAS', '1', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'INTERES DE PRESTAMOS DEL PASIVO', 0);
INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('CAPPAS', '2', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'CAPITAL DE PRESTAMOS DEL PASIVO', 0);
INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('COMPAS', '2', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'COMISION DE PRESTAMOS DEL PASIVO', 0);

INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('INTPRD', '2', 2);
INSERT INTO TCATEGORIASID (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA) VALUES ('INTPRD', '4', 2);
INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('INTPRD', '2', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2007-09-21 13:00:56', 'INTERÉS PASIVO PARA REDESCUENTO', 0);
INSERT INTO TCATEGORIAS (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('INTPRD', '4', 2, 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-04-12 19:15:49', 'INTERÉS PASIVO PARA REDESCUENTO', 0);

INSERT INTO TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) VALUES ('INTPRD', '2', 2, null, 'ANUAL', 'ACC', '250115', null, null, null, null, '0', '1', '0', '1', '0', '0', '0', '0', '1', '0', null, null, null, null);
INSERT INTO TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) VALUES ('INTPRD', '4', 2, null, 'ANUAL', 'ACC', '410130', null, null, null, null, '0', '1', '0', '0', '0', '0', '0', '0', '1', '0', null, null, null, null);


--- creacion de definicion de transaccion y rubros y evento para transaccion 04, 7404
-- DEBITO A CUENTA POR COBRO GASTOS DE PRESTAMO PASIVO disparada dentro de mantenimiento de 06-2300


delete from TTRANSACCIONRUBROSDEFINICION where CSUBSISTEMA = '04' and CTRANSACCION='7404';

delete from TSUBSISTEMAEVENTOSTRANSACCION where CEVENTO = 'PAYMENT_DEBIT_NOSTRO' and CSUBSISTEMA ='06' and CPERSONA_COMPANIA=2;

delete from TSUBSISTEMAEVENTOSID where CEVENTO = 'PAYMENT_DEBIT_NOSTRO' and CSUBSISTEMA ='06' and CPERSONA_COMPANIA=2;

delete from TTRANSACCIONRUBROSID where CSUBSISTEMA = '04' and CTRANSACCION ='7404';

delete from TCOMPANIATRANSACCIONES where CSUBSISTEMA = '04' and CTRANSACCION ='7404';
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '04' and CTRANSACCION ='7404';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '04' and CTRANSACCION ='7404';


--capital e intereses del prestamo
delete TTRANSACCIONRUBROSDEFINICION where csubsistema='06' and ctransaccion='7000'; 
insert into TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) values ('06', '7000', '01', 1);
insert into TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) values ('06', '7000', '01', 2);
insert into TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) values ('06', '7000', '01', 3);


insert into TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) values ('ES', '06', '7000', '01', 1, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-19 12:54:26', 'Registro del Prestamo', null, 'Registro del Prestamo', 0);
insert into TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) values ('ES', '06', '7000', '01', 2, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'Registro del Prestamo', null, 'Registro del Prestamo', 0);
insert into TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) values ('ES', '06', '7000', '01', 3, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'Registro del Prestamo del paisvo', null, 'Registro del Prestamo del pasivo', 0);

insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7000', '01', 1, 'CAPPRO', '1', 2, null, null, 'D', '003', null, null, null, '1', '0', '0', '0', '0', null, '0', null, '0', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7000', '01', 2, 'CAPPRO', '1', 2, null, null, 'D', '003', null, null, null, '1', '0', '0', '0', '0', null, '0', null, '1', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7000', '01', 3, 'CAPPAS', '2', 2, null, null, 'C', '003', null, null, null, '1', '0', '0', '0', '0', null, '0', null, '0', null, 0, null);

SELECT * FROM TTRANSACCIONRUBROSDEFINICION WHERE CSUBSISTEMA='06' AND CTRANSACCION='7000'
/*
delete from tgrupocategoriasubsistema 
where csubsistema='06' and Categoria IN('INTPAS','CAPPAS') and cgrupobalance=2 and fhasta=fncfhasta;*/

insert into TGRUPOCATEGORIASUBSISTEMA (CATEGORIA, CGRUPOBALANCE, CSUBSISTEMA, CPERSONA_COMPANIA, FHASTA, FDESDE, GRUPOCATEGORIA, TIPOCATEGORIA, PROVISIONADESDE, PROVISIONAHASTA, ORIGENMONTOCALCULO, VERSIONCONTROL) values ('CAPPAS', '2', '06', 2, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'CAPITAL', 'CP', null, null, null, 0);
insert into TGRUPOCATEGORIASUBSISTEMA (CATEGORIA, CGRUPOBALANCE, CSUBSISTEMA, CPERSONA_COMPANIA, FHASTA, FDESDE, GRUPOCATEGORIA, TIPOCATEGORIA, PROVISIONADESDE, PROVISIONAHASTA, ORIGENMONTOCALCULO, VERSIONCONTROL) values ('INTPAS', '2', '06', 2, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:54', 'INTEREST', 'IP', 'FIN', 'FVE', 'PRE', 0);


--intereses
INSERT INTO TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) VALUES ('06', '7002', '01', 1);
INSERT INTO TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) VALUES ('06', '7002', '01', 2);
INSERT INTO TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) VALUES ('06', '7002', '01', 3);
INSERT INTO TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) VALUES ('06', '7002', '01', 4);
INSERT INTO TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) VALUES ('06', '7002', '01', 5);
INSERT INTO TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) VALUES ('06', '7002', '01', 6);

INSERT INTO TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) VALUES ('ES', '06', '7002', '01', 1, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'PROVISION DE INTERESES REC.EXTERNOS', null, 'PROVISION DE INTERESES REC.EXTERNOS', 0);
INSERT INTO TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) VALUES ('ES', '06', '7002', '01', 2, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'PROVISION DE INTERESES REC.EXTERNOS', null, 'PROVISION DE INTERESES REC.EXTERNOS', 0);
INSERT INTO TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) VALUES ('ES', '06', '7002', '01', 3, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'PROVISION DE MORA REC.EXTERNOS', null, 'PROVISION DE MORA REC.EXTERNOS', 0);
INSERT INTO TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) VALUES ('ES', '06', '7002', '01', 4, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'PROVISION DE MORA REC.EXTERNOS', null, 'PROVISION DE MORA REC.EXTERNOS', 0);
INSERT INTO TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) VALUES ('ES', '06', '7002', '01', 5, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'PROVISION DE INTERESES VENCIDOS REC.EXTERNOS', null, 'PROVISION DE INTERESES VENCIDOS REC.EXTERNOS', 0);
INSERT INTO TTRANSACCIONRUBROS (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, FHASTA, FDESDE, DESCRIPCION, SIGLAS, DESCRIPCIONRECIBO, VERSIONCONTROL) VALUES ('ES', '06', '7002', '01', 6, TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-12 09:09:55', 'PROVISION DE INTERESES VENCIDOS REC.EXTERNOS', null, 'PROVISION DE INTERESES VENCIDOS REC.EXTERNOS', 0);



delete from TTRANSACCIONRUBROSDEFINICION where csubsistema='06' and ctransaccion='7002';
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7002', '01', 1, 'INTPAS', '4', 2, 2, null, 'D', '003', null, null, null, '1', '0', '1', '0', '0', null, '0', null, '0', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7002', '01', 2, 'INTPAS', '2', 2, 1, null, 'C', '003', null, null, null, '1', '0', '1', '0', '0', '1', '0', null, '0', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7002', '01', 3, 'INTMOR', '71', 2, 4, null, 'D', '004', null, null, null, '1', '0', '1', '0', '0', '1', '0', null, '0', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7002', '01', 4, 'INTMOR', '72', 2, 3, null, 'C', '004', null, null, null, '1', '0', '1', '0', '0', null, '0', null, '0', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7002', '01', 5, 'INTVEE', '71', 2, 6, null, 'D', '004', null, null, null, '1', '0', '1', '0', '0', '1', '0', null, '0', null, 0, null);
insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('06', '7002', '01', 6, 'INTVEE', '72', 2, 5, null, 'C', '004', null, null, null, '1', '0', '1', '0', '0', null, '0', null, '0', null, 0, null);


--cuentas contables CAPPAS

insert into TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) values ('CAPPAS', '2', 2, null, 'ANUAL', 'SAL', '26AAPPPP', null, null, null, null, '1', '1', '1', '1', '0', '0', '1', '0', '1', '0', null, '0', null, null);


insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA01', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA02', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA03', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA04', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA05', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA06', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA07', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA08', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA09', '0', '06');
insert into TAGRUPACIONCONTABLEID (CAGRUPACIONCONTABLE, USACACHE, CSUBSISTEMA) values ('PA10', '0', '06');

insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA01', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON INSTITUCIONES FINANCIERAS DEL PAÍS', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA02', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON INSTITUCIONES FINANCIERAS DEL EXTERIOR', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA03', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON ENTIDADES DEL GRUPO FINANCIERO EN EL PAÍS', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA04', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON ENTIDADES DEL GRUPO FINANCIERO EN EL EXTERIOR', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA05', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON ENTIDADES FINANCIERAS DEL SECTOR PÚBLICO', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA06', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON ORGANISMOS MULTILATERALES', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA07', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'PRÉSTAMO SUBORDINADO', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA08', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON ENTIDADES DEL SECTOR PÚBLICO', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA09', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OBLIGACIONES CON EL FONDO DE LIQUIDEZ DEL SISTEMA FINANCIERO ECUATORIANO', 0);
insert into TAGRUPACIONCONTABLE (CAGRUPACIONCONTABLE, CIDIOMA, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('PA10', 'ES', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-01-01 00:00:00', 'OTRAS OBLIGACIONES', 0);

--cuentas contables intereses

INSERT INTO TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) VALUES ('CAPPAS', '2', 2, null, 'ANUAL', 'SAL', '26AAPPPP', null, null, null, null, '1', '1', '1', '1', '0', '0', '1', '0', '1', '0', null, '0', null, null);
INSERT INTO TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) VALUES ('COMPAS', '2', 2, null, 'ANUAL', 'ACC', '1722AA02RESMMPR', null, null, null, null, '1', '1', '0', '1', '0', '0', '1', '0', '1', '0', null, '0', null, null);
INSERT INTO TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) VALUES ('INTPAS', '2', 2, null, 'ANUAL', 'ACC', '290190', null, null, null, null, '1', '1', '0', '1', '0', '0', '1', '0', '1', '0', null, '0', null, null);
INSERT INTO TCATEGORIASDETALLE (CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CESTRUCTURACUENTA, CTIPOCATEGORIA, CTIPOSALDOCATEGORIA, CODIGOCONTABLE, CAGRUPACIONCONTABLE_AUTOMATICA, CSUBSISTEMA_CUENTAAUTOMATICA, CESTATUSCUENTA_AUTOMATICA, COMANDO_CUENTAAUTOMATICA, PROVISIONA, ACTUALIZASALDOENLINEA, ACTUALIZASALDOFECHAVALOR, PRINCIPAL, EFECTIVO, USACACHE, PERMITESALDONEGATIVO, SUBCUENTAGENERAL, REGISTRAENSALDOS, NOCIERREEJERCICIO, NUMERODECIMALES, DISMINUYESALDO, COMANDO_CALCULO, TIPOCOMANDO_CALCULO) VALUES ('INTPAS', '4', 2, null, 'ANUAL', 'ACC', '410590', null, null, null, null, '1', '1', '0', '0', '0', '0', '1', '0', '1', '0', null, '0', null, null);


insert into TCLASIFICACIONCONTABLEID (CSUBSISTEMA, CCLASIFICACIONCONTABLE, DIASGRACIA, DIASPASOAVENCIDO, CODIGOCLASIFICACIONCONTABLE, CTIPOPRESTAMO, DIASPASONONACCRUAL, APLICAVENCIMIENTO) values ('06', 'PA', 0, 0, '02', null, null, '0');

insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '06', 'PA', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2010-11-07 19:38:20', 'PRESTAMOS DEL PASIVO', 0);

insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA01', '02', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA02', '03', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA03', '04', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA04', '05', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA05', '06', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA06', '07', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA07', '08', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA08', '09', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA09', '10', '0', 0);
insert into TAGRUPACIONCONTABLECODIGO (CAGRUPACIONCONTABLE, CODIGOCONTABLE, USACACHE, VERSIONCONTROL) values ('PA10', '90', '0', 0);

insert into TRANGOSCLASIFICACION (CSUBSISTEMA, CCLASIFICACIONCONTABLE, CESTATUSCUENTA, CESTADOOPERACION, CODIGOPLAZO, DIASDESDE, DIASHASTA, CODIGOCONTABLE, VERSIONCONTROL) values ('06', 'PA', '003', 'NO', '01', 0, 30, '05', 0);
insert into TRANGOSCLASIFICACION (CSUBSISTEMA, CCLASIFICACIONCONTABLE, CESTATUSCUENTA, CESTADOOPERACION, CODIGOPLAZO, DIASDESDE, DIASHASTA, CODIGOCONTABLE, VERSIONCONTROL) values ('06', 'PA', '003', 'NO', '02', 31, 90, '10', 0);
insert into TRANGOSCLASIFICACION (CSUBSISTEMA, CCLASIFICACIONCONTABLE, CESTATUSCUENTA, CESTADOOPERACION, CODIGOPLAZO, DIASDESDE, DIASHASTA, CODIGOCONTABLE, VERSIONCONTROL) values ('06', 'PA', '003', 'NO', '03', 91, 180, '15', 0);
insert into TRANGOSCLASIFICACION (CSUBSISTEMA, CCLASIFICACIONCONTABLE, CESTATUSCUENTA, CESTADOOPERACION, CODIGOPLAZO, DIASDESDE, DIASHASTA, CODIGOCONTABLE, VERSIONCONTROL) values ('06', 'PA', '003', 'NO', '04', 181, 360, '20', 0);
insert into TRANGOSCLASIFICACION (CSUBSISTEMA, CCLASIFICACIONCONTABLE, CESTATUSCUENTA, CESTADOOPERACION, CODIGOPLAZO, DIASDESDE, DIASHASTA, CODIGOCONTABLE, VERSIONCONTROL) values ('06', 'PA', '003', 'NO', '05', 361, 99999, '25', 0);



--TPERSONACONVENIOSCREDITO 06-3051

insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.loan.sequence.CreditAgreement', 'MAN');
insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.loan.sequence.CreditAgreement', 'MAN', TIMESTAMP '2999-12-31 00:00:00', 'ES', sysdate, 'Obtiene la secuencia SCONVENIOCREDITO de la tabla TPERSONACONVENIOSCREDITO', 0);

insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '3051', '01', 1, 'I', 'com.fitbank.loan.sequence.CreditAgreement', 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', '3051', '01', 2, 'I', 'com.fitbank.processor.maintenance.MaintenanceProcessor', 4, '0', 'MAN', '1', null, null, 0, null);

insert into TTIPOSCONVENIOCREDITOID (CTIPOCONVENIOCREDITO) values (1);
insert into TTIPOSCONVENIOCREDITO (CIDIOMA, CTIPOCONVENIOCREDITO, FHASTA, VERSIONCONTROL, FDESDE, DESCRIPCION) values ('ES', 1, TIMESTAMP '2999-12-31 00:00:00', 1, TIMESTAMP '2013-11-14 00:00:00', 'ENTIDADES DE REDESCUENTO');





-- definicion de transsacion de LV 01-9050 de formularion 06-2300

delete from tcomandosmantenimiento where CSUBSISTEMA = '01' and CTRANSACCION = '9050';

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '01' and ctransaccion = '9050'; 
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '01' and ctransaccion = '9050';
delete tCompaniaRoles where crol = 1 and csubsistema = '01' and ctransaccion = '9050';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '01' and ctransaccion = '9050';

delete from  TCOMPANIATRANSACCIONES where CSUBSISTEMA = '01' and CTRANSACCION = '9050'; 
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '01' and CTRANSACCION = '9050';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '01' and CTRANSACCION = '9050';


-- definicion de transsacion de LV 01-9050 de formularion 06-2300

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', '9050', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', '0', '0', '0', null, null, null, null, null, null, null, null, '0', '0');

insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '01', '9050', '01', fncfhasta(), fncsysdate(), 'LISTA DE VALORES DE TASAS', null, 0);

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



-- parametrizicion de transsacion de LV 01-9050


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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9050'
;

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

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

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

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

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9050'
;

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9050'
;

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

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

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

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

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

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

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

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

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

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

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

-- 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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9050'
;

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

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


----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||1
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||2
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||3
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||4
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||5
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||6
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||7
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9050'
;

----------------------------------------------------------------------
-- 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 = '01'
  and  cTransaccion = '9050'
;

----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '01'
  and  a.cTransaccion = '9050'



--lov tasa 01-9050 usada en 06-2300

insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.solicitude.helper.AuxGetAmountRateNegotiable', 'CON'); 
insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.solicitude.helper.AuxGetAmountRateNegotiable', 'CON', FNCFHASTA(), 'ES', FNCSYSDATE(), 'Consulta especial para la lista de valores de tasas negociables o no negociables', 0);


INSERT INTO TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) VALUES ('01', '9050', '01', 1, 'F', 'com.fitbank.solicitude.helper.AuxGetAmountRateNegotiable', 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 ('01', '9050', '01', 99, 'I', 'com.fitbank.general.query.ClearTablesQuery', 99, '0', 'CON', '1', null, null, 0, 'F');

-- definicion de transsacion de LV 01-9531 de formularion 06-2301

delete tRolesHorario where crol = 1 and csubsistema_transaccion = '01' and ctransaccion = '9531'; 
delete tCompaniaTransaccionesHorario where csubsistema_transaccion = '01' and ctransaccion = '9531';
delete tCompaniaRoles where crol = 1 and csubsistema = '01' and ctransaccion = '9531';
delete tCompaniaTransaccionesProducto where csubsistema_transaccion = '01' and ctransaccion = '9531'; 

delete from  TCOMPANIATRANSACCIONES where CSUBSISTEMA = '01' and CTRANSACCION = '9531';
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '01' and CTRANSACCION = '9531';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '01' and CTRANSACCION = '9531'; 



-- definicion de transsacion de LV 01-9531 de formularion 06-2301

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', '9531', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', '0', '0', '0', null, null, null, null, null, null, null, null, '0', '0');

insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '01', '9531', '01', fncfhasta(), fncsysdate(), 'LISTA DE VALORE, PRESTAMOS PARA ASOCIAR A PRESTAMOS PASIVOS', null, 0);

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


-- parametrizicion de transsacion de LV 01-9531


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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9531'
;

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

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

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

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

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '1999'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9531'
;

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9531'
;

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

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

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

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

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

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

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

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

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

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

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

-- 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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9531'
;

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

insert into tCompaniaTransaccionesProducto
      (cpersona_compania, csubsistema, cgrupoproducto, cproducto, ctipobanca, cestatuscuenta, csubsistema_transaccion, ctransaccion, versiontransaccion, versioncontrol)
select a.cPersona_Compania,a.cSubsistema,a.cGrupoProducto,a.cProducto,a.cTipoBanca,a.cEstatusCuenta,b.cSubsistema,b.cTransaccion,b.versionTransaccion,0
from   tProductoEstatus a,tCompaniaTransacciones b
where  a.cSubsistema in ('50','60')
  and  a.cGrupoProducto <> '00'  -- Grupo de productos '01' para los subsisetmas '50'
  and  a.cEstatusCuenta = '002'  -- con estatus '002'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion > '0500'
  and  b.cSubsistema = '01'
  and  b.cTransaccion = '9531'
;
----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||1
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||2
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||3
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||4
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||5
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||6
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'0000','2359',10000000,
       cpersona_compania||csubsistema||cgrupoproducto||cproducto||ctipobanca||cestatuscuenta||csubsistema_transaccion||ctransaccion||versiontransaccion||'USD'||'N'||7
from   tCompaniaTransaccionesProducto
where  cSubsistema_transaccion = '01'
  and  cTransaccion = '9531'
;

----------------------------------------------------------------------
-- 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 = '01'
  and  cTransaccion = '9531'
;

----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '01'
  and  a.cTransaccion = '9531'
;

-- definicion de commando de LV 01-9531 de formularion 06-2301


insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.loan.query.ObtainLoansForAssociateWithPassive', 'CON');
insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.loan.query.ObtainLoansForAssociateWithPassive', 'CON', FNCFHASTA(), 'ES', FNCSYSDATE(), 'Obtiene las prestamos activos (todavia no associados) para associar a prestamos pasivos', 0);

insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('01', '9531', '01', 1, 'I', 'com.fitbank.loan.query.ObtainLoansForAssociateWithPassive', 1, '0', 'CON', '1', null, null, 0, null);

-- definicion de transsacion 06-2301


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

delete from  TCOMPANIATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '2301';
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '2301';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '06' and CTRANSACCION = '2301';


-- definicion de transsacion 06-2301

SELECT * FROM TSUBSISTEMATRANSACCIONESID WHERE CSUBSISTEMA='06' AND CTRANSACCION='2301'

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 ('06', '2301', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', '0', '0', '0', null, null, null, null, null, null, null, null, '0', '0');
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '06', '2301', '01', FNCFHASTA(),FNCSYSDATE(), 'ASOCIACION DE CREDITOS A PRESTAMOS PASIVOS', null, 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '06', '2301', '01', 0);



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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '2301'
;

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

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

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

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

-- 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.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 = '2301'
;

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '2301'
;

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

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

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

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

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

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

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

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

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

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

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

-- 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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '2301'
;

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

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


----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

----------------------------------------------------------------------
-- 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 = '2301'
;

----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '2301'
;

insert into TCOMANDOSID (COMANDO, TIPOCOMANDO) values ('com.fitbank.loan.maintenance.SavePassiveLoanOperation', 'MAN');

insert into TCOMANDOS (COMANDO, TIPOCOMANDO, FHASTA, CIDIOMA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('com.fitbank.loan.maintenance.SavePassiveLoanOperation', 'MAN', FNCFHASTA(), 'ES', FNCSYSDATE(), 'La clase crea la associacion entre prestamo pasivo y activo', 0);

insert into TCOMANDOSMANTENIMIENTO (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, SCOMANDO, EVENTO, COMANDO, ORDEN, USACACHE, TIPOCOMANDO, ACTIVADO, CANALESEXCLUIDOS, PARAMETRO, VERSIONCONTROL, EJECUTADOPOR) values ('06', '2301', '01', 1, 'I', 'com.fitbank.loan.maintenance.SavePassiveLoanOperation', 1, '0', 'MAN', '1', null, null, 0, null);


-- definicion de transsacion 06-4300

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

delete from  TCOMPANIATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '4300'; 
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '4300';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '06' and CTRANSACCION = '4300';

-- definicion de transsacion 06-4301

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

delete from  TCOMPANIATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '4301';
delete from TSUBSISTEMATRANSACCIONES where CSUBSISTEMA = '06' and CTRANSACCION = '4301';
delete from TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA = '06' and CTRANSACCION = '4301';

-- definicion de transsacion 06-4300


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 ('06', '4300', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', '0', '0', '0', null, null, null, null, null, null, null, null, '0', '0');
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '06', '4300', '01', FNCFHASTA(),FNCSYSDATE(), 'COSULTA DE CREDITOS ASOCIADOS A PRESTAMOS PASIVOS', null, 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '06', '4300', '01', 0);



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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '4300'
;

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

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

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

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

-- 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.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 = '4300'
;

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '4300'
;

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

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

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

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

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

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

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

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

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

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

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

-- 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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '4300'
;

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

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


----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;

----------------------------------------------------------------------
-- 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 = '4300'
;

----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4300'
;






-- definicion de transsacion 06-4301


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 ('06', '4301', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', '0', '0', '0', null, null, null, null, null, null, null, null, '0', '0');
insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '06', '4301', '01', FNCFHASTA(),FNCSYSDATE(), 'CONSULTA DE CREDITOS ASOCIADOS A PRESTAMOS DEL PASIVO', null, 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '06', '4301', '01', 0);



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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '4301'
;

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

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

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

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

-- 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.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 = '4301'
;

-- 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.cEstatusCuenta = '001'
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '2000'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '4301'
;

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

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

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

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

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

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

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

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

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

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

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

-- 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.cEstatusCuenta in ('001','002')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cTransaccion < '0501'
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '4301'
;

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

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


----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;

----------------------------------------------------------------------
-- 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 = '4301'
;

----------------------------------------------------------------------
-- 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,FNCFHASTA(), 0, FNCSYSDATE(),'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 = '4301'
;


--- creacion de definicion de transaccion y rubros y evento para transaccion 04, 7404
-- DEBITO A CUENTA POR COBRO GASTOS DE PRESTAMO PASIVO disparada dentro de mantenimiento de 06-2300


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 ('04', '7404', '01', 0, '0', '1', '0', '0', null, null, null, '0', '0', null, '0', '0', null, '0', null, null, null, null, null, null, null, '0');

insert into TSUBSISTEMATRANSACCIONES (CIDIOMA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, FHASTA, FDESDE, DESCRIPCION, SIGLAS, VERSIONCONTROL) values ('ES', '04', '7404', '01', FNCFHASTA(), FNCSYSDATE(), 'DEBITO A CUENTA POR COBRO GASTOS DE PRESTAMO PASIVO', null, 0);

insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '04', '7404', '01', 0);

insert into TTRANSACCIONRUBROSID (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO) values ('04', '7404', '01', 1);

insert into TSUBSISTEMAEVENTOSID (CEVENTO, CSUBSISTEMA, CPERSONA_COMPANIA) values ('PAYMENT_DEBIT_NOSTRO', '06', 2);

insert into TSUBSISTEMAEVENTOSTRANSACCION (CEVENTO, CSUBSISTEMA, CPERSONA_COMPANIA, FHASTA, FDESDE, CSUBSISTEMA_TRANSACCION, CTRANSACCION, VERSIONTRANSACCION, RUBRO, VERSIONCONTROL) values ('PAYMENT_DEBIT_NOSTRO', '06', 2, FNCFHASTA(), FNCSYSDATE(), '04', '7404', '01', 1, 0);

insert into TTRANSACCIONRUBROSDEFINICION (CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, RUBRO, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, RUBRO_PAR, RUBRO_PADRE, DEBITOCREDITO, CESTATUSCUENTA, CCODIGOPLANTILLA, TIENETARIFARIO, CCONCEPTO, GENERAMOVIMIENTO, AFECTACAJAMULTIPLE, OCULTAESTADODECUENTA, GENERASOBREGIRO, USACACHE, CALCULAINTERESCOMISION, CALCULAIMPUESTO, RUBRO_ASOCIADO, GENERAINTERSUCURSAL, AJUSTEPORDECIMALES, VERSIONCONTROL, CGRUPOTRANSACCION) values ('04', '7404', '01', 1, 'DEPVEF', '1', 2, null, null, 'D', null, null, null, null, '1', '0', '0', '0', '0', null, '0', null, '1', null, 0, null);

INSERT INTO TPRODUCTOESTRUCTURACUENTA (CPERSONA_COMPANIA, CSUBSISTEMA, SPRODUCTOESTRUCTURA, CGRUPOPRODUCTO, CPRODUCTO, CTIPOBANCA, CTIPOSEGMENTO, CSUCURSAL, CONSECUTIVOCUENTA, CONSECUTIVOCUENTATOPE, COFICINAEXTERNA) VALUES (2, '06', 54, '90', '902', null, null, null, '66000195', null, null);
INSERT INTO TTRANSACCIONPROVISIONES (CATEGORIACAPITAL, CGRUPOBALANCE, CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) VALUES ('CAPPAS', '2', 2, '06', '7002', '01', 0);

INSERT INTO TRELACIONPRODUCTOID (CRELACIONPRODUCTO, CSUBSISTEMA, ESPRINCIPAL, CODIGODEUDOR) VALUES ('RED', '06', '1', null);
INSERT INTO TRELACIONPRODUCTO (CIDIOMA, CRELACIONPRODUCTO, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('ES', 'RED', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2014-10-01 12:11:39', 'ENTIDAD REDESCUENTO', 0);

INSERT INTO TCATEGORIASTRATOID (CCATEGORIATRATO) VALUES ('PRO');
INSERT INTO TCATEGORIASTRATO (CIDIOMA, CCATEGORIATRATO, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('ES', 'PRO', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2014-11-11 10:00:00', 'PROVEEDOR', 0);

--tipo de institucion=BAN->BANCO
INSERT INTO TTIPOSINSTITUCIONID (CTIPOINSTITUCION, CSECTORECONOMICO, SECTORPUBLICO, CODIGOSECTORIZACION, SECTORFINANCIERO) VALUES ('BAN', null, '0', null, '0');
INSERT INTO TTIPOSINSTITUCION (CIDIOMA, CTIPOINSTITUCION, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) VALUES ('ES', 'BAN', fncfhasta, sysdate, 'BANCO', 0);

INSERT INTO TPRODUCTOCOLOCACIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, FHASTA, FDESDE, APLICASEGURO, APLICAACCIONES, DOCUMENTONEGOCIABLE, INCREMENTACAPITAL, ABONOSCAPITAL, FRACCIONAMIENTO, SEGURODESGRAVAMEN, PERMITEFUSION, PORCENTAJEGARANTIA, DIASVALIDEZMEDIO, CTIPOCUOTA, COBROHORIZONTALVERTICAL, CORIGENFONDOS, MANTIENENUMERO, TASAREAJUSTABLE, TASAVARIABLE, CFRECUENCIA_REAJUSTE, REAJUSTEAUTOMATICO, CBASECALCULO, CFORMADESEMBOLSO, CDESTINOFONDOS, CORDENCATEGORIACUOTA, CTIPOPRODUCTO, CTIPOOPERACION, NUMEROFIRMASREQUERIDO, PERMITEPRECANCELACION, APLICAPIGNORACION, PERMITEVARIOSDESEMBOLSOS, PIGNORAENDESEMBOLSO, PRIMEROCUENTASXCOBRAR, REGISTROCONTABLEGARANTIA, VALORCONTABLEGARANTIA, REGISTROCONTABLESEGURO, METODOPAGOEXTRAORDINARIO, MAXIMOCUOTASPAGOEXTRAORDINARIO, PERMITEBACKTOBACK, BACKTOBACKSOBRETASA, CSUBSISTEMA_BACKTOBACK, CGRUPOPRODUCTO_BACKTOBACK, CPRODUCTO_BACKTOBACK, PERMITERENOVACION, RENOVACIONAUTOMATICA, TASAANTICIPADA, CALCULAVALORPRESENTE, VERSIONCONTROL, CFRECUENCIA_VISITA, COBROCUOTACOMPLETO, APLICACONDONACION, REQUIERELINEACREDITO, MANEJADOCUMENTOS, DIASCORRESPONSAL, DIASPROTESTO, CTIPOCRONOGRAMA, ELEGIBLE, PERMITECONVENIO, ESADEUDADO, CSUBSISTEMA_ADEUDADO, CGRUPOPRODUCTO_ADEUDADO, CPRODUCTO_ADEUDADO, PERMITEGRUPAL, CAREA, PERMITEBALLOOM, AJUSTEDIASGRACIAMORA, COBROANTICIPADO) VALUES (2, '06', '90', '902', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2013-11-18 11:25:01', '0', '0', '0', '1', '1', '0', '0', '0', 130, null, 'AMG', 'H', 'EXT', '0', '0', '0', null, '0', '365/360', null, null, 1, null, null, null, '1', '0', '0', '0', null, null, 'AVA', null, null, null, '0', '0', '05', null, null, '0', '0', '0', '0', 1, null, '0', '0', '0', '0', null, null, null, null, '0', '0', null, null, null, '0', null, '0', '1', '1');
INSERT INTO TPRODUCTOMONEDA (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CTIPOBANCA, CMONEDA, VERSIONCONTROL) VALUES (2, '06', '90', '902', 'RED', 'USD', 0);
INSERT INTO TMONEDACOLOCACIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CTIPOBANCA, CMONEDA, FHASTA, FDESDE, MONTOMINIMO, MONTOMAXIMO, PLAZOMINIMO, PLAZOMAXIMO, DIASGRACIAMORA, PORCENTAJERENOVACION, PERIODOSGRACIACAPITAL, PERIODOSGRACIAINTERES, NUMEROCUOTASBALLOOM, CFORMAPAGO, PORCENTAJEACCIONES, MONTOACCIONES, LIMITECAPACIDADPAGO, PORCENTAJEPIGNORACION, TASAACCIONES, PORCENTAJEBACKTOBACK, SPREADBACKTOBACK, VERSIONCONTROL, PORCENTAJEPAGOMINIMO, NUMEROCUOTASPREPAGO, NUMEROVECESRENOVAR, MONTOMINIMORENOVACION, MONTOMINIMOGARANTIA) 
VALUES (2, '06', '90', '902', 'RED', 'USD', fncfhasta, sysdate, 0, 1000000000, 0, 10000, null, null, null, null, null, null, null, null, null, null, null, null, null, 0, null, null, null, null, null);


INSERT INTO TGENERALTASAS (CTARIFARIOTASA, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CMONEDA, SECUENCIA, FHASTA, FDESDE, CTASAREFERENCIAL, CFRECUENCIA, PLAZOMINIMO, PLAZOMAXIMO, MONTOMINIMO, MONTOMAXIMO, MARGEN, RELACIONMATEMATICA, VERSIONCONTROL, MARGENMAXIMO, MARGENMINIMO) VALUES ('1', 'INTPAS', '2', 2, 'USD', 1, fncfhasta, sysdate, 'REF', 5, 0, 10000, 0, 100000000, 1, '+', 0, null, null);
INSERT INTO TGENERALTASAS (CTARIFARIOTASA, CATEGORIA, CGRUPOBALANCE, CPERSONA_COMPANIA, CMONEDA, SECUENCIA, FHASTA, FDESDE, CTASAREFERENCIAL, CFRECUENCIA, PLAZOMINIMO, PLAZOMAXIMO, MONTOMINIMO, MONTOMAXIMO, MARGEN, RELACIONMATEMATICA, VERSIONCONTROL, MARGENMAXIMO, MARGENMINIMO) VALUES ('1', 'INTPAS', '2', 2, 'USD', 2, fncfhasta, sysdate, 'REF', 7, 0, 10000, 0, 100000000, 3, '+', 0, null, null);

INSERT INTO TPRODUCTOTASAS (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CATEGORIA, CGRUPOBALANCE, CMONEDA, SECUENCIA, FHASTA, FDESDE, CTASAREFERENCIAL, CFRECUENCIA, PLAZOMINIMO, PLAZOMAXIMO, MONTOMINIMO, MONTOMAXIMO, MARGEN, RELACIONMATEMATICA, VERSIONCONTROL, MARGENMAXIMO, MARGENMINIMO) VALUES (2, '06', '90', '902', 'INTPAS', '2', 'USD', 2, fncfhasta, sysdate, 'REF', 7, 0, 10000, 0, 1000000000, 3, '+', 0, 3, 0);

INSERT INTO TPRODUCTOTASAS (CPERSONA_COMPANIA, CSUBSISTEMA, CGRUPOPRODUCTO, CPRODUCTO, CATEGORIA, CGRUPOBALANCE, CMONEDA, SECUENCIA, FHASTA, FDESDE, CTASAREFERENCIAL, CFRECUENCIA, PLAZOMINIMO, PLAZOMAXIMO, MONTOMINIMO, MONTOMAXIMO, MARGEN, RELACIONMATEMATICA, VERSIONCONTROL, MARGENMAXIMO, MARGENMINIMO) VALUES (2, '06', '90', '902', 'INTPAS', '2', 'USD', 1, fncfhasta, sysdate, 'REF', 5, 0, 10000, 0, 1000000000, 1, '+', 0, 1, 0);