--TRANSACCION 06-3027 Mantenimiento forma de pago

delete from TROLESHORARIO where csubsistema='06' and ctransaccion='3027';
delete from TCOMPANIAROLES where csubsistema='06' and ctransaccion='3027';
delete from TCOMPANIATRANSACCIONESHORARIO where CSUBSISTEMA='06' and CTRANSACCION='3027';
delete from TCOMPANIATRANSACCIONESPRODUCTO where CSUBSISTEMA='06' and CTRANSACCION='3027';
delete from tformatoxml where csubsistema='06' and ctransaccion='3027';
DELETE FROM TCOMPANIATRANSACCIONES where CSUBSISTEMA='06' and CTRANSACCION='3027';
DELETE FROM TSUBSISTEMATRANSACCIONES where CSUBSISTEMA='06' and CTRANSACCION='3027';
DELETE FROM TSUBSISTEMATRANSACCIONESID where CSUBSISTEMA='06' and CTRANSACCION='3027';

--------------------------------------------------------------------------------------------------------------------------------
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', '3027', '01', 0, '1', '0', '1', '0', null, null, null, '0', '0', null, '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', '3027', '01', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2007-10-09 15:48:39', 'Mantenimiento Forma de Pago de Préstamos', null, 0);
insert into TCOMPANIATRANSACCIONES (CPERSONA_COMPANIA, CSUBSISTEMA, CTRANSACCION, VERSIONTRANSACCION, VERSIONCONTROL) values (2, '06', '3027', '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.cGrupoProducto <> '00'
  and  a.cEstatusCuenta in ('001','002','003','004')
  and  b.cPersona_Compania = a.cPersona_Compania
  and  b.cSubsistema = a.cSubsistema
  and  b.cSubsistema = '06'
  and  b.cTransaccion = '3027';

--INGRESO DE LA TABLA TCOMPANIATRANSACCIONESHORARIO

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

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

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

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

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

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

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

--PARA LA TCOMPANIAROLES
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 = '3027';

--PARA LA TROLESHORARIO

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