--PARAMETRIZACION PARA TIPO_CLIENTE. BASANDOSE EN LA ESPECIFICACION SB20 DELETE FROM TCLASIFICACIONCONTABLE WHERE CSUBSISTEMA IN('04','05') AND CCLASIFICACIONCONTABLE IN('BA','BC','BS','OB','OF','OT','PA','PJ','PN','SP','SS'); DELETE FROM TCLASIFICACIONCONTABLEID WHERE CSUBSISTEMA IN('04','05') AND CCLASIFICACIONCONTABLE IN('SS'); insert into TCLASIFICACIONCONTABLEID (CSUBSISTEMA, CCLASIFICACIONCONTABLE, DIASGRACIA, DIASPASOAVENCIDO, CODIGOCLASIFICACIONCONTABLE, CTIPOPRESTAMO, DIASPASONONACCRUAL, APLICAVENCIMIENTO) values ('04', 'SS', 0, 0, '08', null, null, '0'); insert into TCLASIFICACIONCONTABLEID (CSUBSISTEMA, CCLASIFICACIONCONTABLE, DIASGRACIA, DIASPASOAVENCIDO, CODIGOCLASIFICACIONCONTABLE, CTIPOPRESTAMO, DIASPASONONACCRUAL, APLICAVENCIMIENTO) values ('05', 'SS', 0, 0, '08', null, null, '0'); update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '05' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'BA'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '07' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'BC'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '04' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'BS'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '05' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'OB'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '01' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'OF'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '06' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'OT'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '01' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'PA'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '02' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'PJ'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '01' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'PN'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '03' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'SP'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '08' where CSUBSISTEMA = '04' and CCLASIFICACIONCONTABLE = 'SS'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '07' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'BC'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '04' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'BS'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '05' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'OB'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '01' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'OF'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '06' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'OT'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '02' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'PJ'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '01' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'PN'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '03' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'SP'; update tclasificacioncontableid set CODIGOCLASIFICACIONCONTABLE = '08' where CSUBSISTEMA = '05' and CCLASIFICACIONCONTABLE = 'SS'; insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'BA', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'BANCOS', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'BC', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'BCOS CORRESPONSALES', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'BS', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'MATRIZ-SUBSIDIARIA', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'OB', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'OTROS BANCOS', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'OF', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'OFICIALES', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'OT', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'OTRAS INST. FINANC.', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'PA', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'PARTICULARES', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'PJ', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'PERSONA JURIDICA', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'PN', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'PERSONA NATURAL', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'SP', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'SECTOR PUBLICO', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '04', 'SS', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'CAJA SEGURO SOCIAL', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'BC', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'BCOS CORRESPONSALES', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'BS', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'MATRIZ-SUBSIDIARIA', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'OB', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'OTROS BANCOS', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'OF', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-02 09:59:02', 'OFICIALES', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'OT', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'OTRAS INST. FINANC.', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'PJ', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'JUR.NO FINANCIERA', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'PN', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'PERSONA NATURAL', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'SP', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'SECTOR PUBLICO', 0); insert into TCLASIFICACIONCONTABLE (CIDIOMA, CSUBSISTEMA, CCLASIFICACIONCONTABLE, FHASTA, FDESDE, DESCRIPCION, VERSIONCONTROL) values ('ES', '05', 'SS', TIMESTAMP '2999-12-31 00:00:00', TIMESTAMP '2011-06-01 10:12:41', 'CAJA SEGURO SOCIAL', 0); -------------------------------- --SENTENCIA DE CONSULTA PARA EL ATOMO 2 delete from ABOTEST3.TSENTENCIACONSULTA where csentenciaconsulta='AT02_BASE_1'; insert into TSENTENCIACONSULTA (CSENTENCIACONSULTA, NOMBRE, SENTENCIA) values ('AT02_BASE_1', 'LLENADO TABLA INTERMEDIA AT02', 'select distinct(a.ccuenta) CCUENTA, :fecha FCONTABLE, ''05'' TIPODEPOSITO, (select tcc.codigoclasificacioncontable from TCLASIFICACIONCONTABLEID tcc where tcc.csubsistema=tc.csubsistema and tcc.cclasificacioncontable=tc.cclasificacioncontable ) TIPOCLIENTE, (select coalesce(sum(tct.tasa),0) from tcuentacategoriastasas tct where tct.ccuenta=tcp.ccuenta and fhasta=:fhasta) TASA, (select case when tpd.cpais=''PA'' then ''L'' else ''E'' end from tpersona tpe, tpersonadirecciones tpd where tpd.cpersona=tpe.cpersona and tpd.direccionprincipal=1 and tpd.fhasta=:fhasta and tpe.fhasta=:fhasta and tpe.cpersona=a.cpersona_cliente) ORIGEN, (select case when tpd.cpais=''PA'' then (select td.cprovincia from tpersona t, tpersonadirecciones td WHERE td.direccionprincipal=1 and t.cpersona=td.cpersona and t.fhasta=:fhasta and td.fhasta=:fhasta AND t.cpersona=tpe.cpersona) else (select tpi.codigopais from tpaisesid tpi where tpi.cpais=tpd.cpais) end from tpersona tpe, tpersonadirecciones tpd where tpd.cpersona=tpe.cpersona and tpd.direccionprincipal=1 and tpd.fhasta=:fhasta and tpe.fhasta=:fhasta and tpe.cpersona=a.cpersona_cliente) COD_REGION, case when tcp.numerorenovacion = 0 then tc.fapertura else tc.fapertura end FINICIO, tcp.fvencimiento FVENCIMIENTO, 5 MONTO, 5 MONTO_PIGNORADO, tcp.NUMERORENOVACION NRENOVACION, case when tcp.numerorenovacion > 0 then tc.fapertura else null end FRENOVACION, 5 INTERESAPAGAR, CASE WHEN tcp.plazo BETWEEN 0 AND 30 THEN ''02'' ELSE CASE WHEN tcp.plazo BETWEEN 31 AND 60 THEN ''03'' ELSE CASE WHEN tcp.plazo BETWEEN 61 AND 90 THEN ''04'' ELSE CASE WHEN tcp.plazo BETWEEN 91 AND 180 THEN ''05'' ELSE CASE WHEN tcp.plazo BETWEEN 181 AND 270 THEN ''06'' ELSE CASE WHEN tcp.plazo BETWEEN 271 AND 360 THEN ''07'' ELSE CASE WHEN tcp.plazo BETWEEN 361 AND 1080 THEN ''08'' ELSE CASE WHEN tcp.plazo BETWEEN 1081 AND 1800 THEN ''09'' ELSE CASE WHEN tcp.plazo BETWEEN 1801 AND 3600 THEN ''10'' ELSE ''11'' END END END END END END END END END FRECUENCIA_INT from tsaldos a, tcuentaplazo tcp, tcuenta tc where a.ccuenta=tcp.ccuenta and a.ccuenta=tc.ccuenta and tcp.fhasta=:fhasta and tc.fhasta=:fhasta and a.fhasta=:fhasta and :fecha between fcontabledesde and fcontablehasta UNION select a.ccuenta CCUENTA, :fecha FCONTABLE, ''04'' TIPODEPOSITO, (select case when c.ctipopersona=''NAT'' then ''01'' else ''02'' end from tpersona c where c.cpersona = a.cpersona_cliente and fhasta=:fhasta) TIPOCLIENTE, 0 TASA, (select case when tpd.cpais=''PA'' then ''L'' else ''E'' end from tpersona tpe, tpersonadirecciones tpd where tpd.direccionprincipal=1 and tpd.cpersona=tpe.cpersona and tpd.direccionprincipal=1 and tpd.fhasta=:fhasta and tpe.fhasta=:fhasta and tpe.cpersona=a.cpersona_cliente) ORIGEN, (select case when tpd.cpais=''PA'' then (select td.cprovincia from tpersona t, tpersonadirecciones td WHERE td.direccionprincipal=1 and t.cpersona=td.cpersona and t.fhasta=:fhasta and td.fhasta=:fhasta AND t.cpersona=tpe.cpersona) else (select tpi.codigopais from tpaisesid tpi where tpi.cpais=tpd.cpais) end from tpersona tpe, tpersonadirecciones tpd where tpd.cpersona=tpe.cpersona and tpd.direccionprincipal=1 and tpd.fhasta=:fhasta and tpe.fhasta=:fhasta and tpe.cpersona=a.cpersona_cliente) COD_REGION, tc.fapertura FINICIO, null FVENCIMIENTO, 4 MONTO, 4 MONTO_PIGNORADO, 0 NRENOVACION, null FRENOVACION, 0 INTPORPAGAR, ''01'' FRECUENCIA_INT from tsaldos a, tcuentasvista tcv, tcuenta tc where a.ccuenta=tcv.ccuenta and a.ccuenta=tc.ccuenta and tcv.fhasta=:fhasta and tc.fhasta=:fhasta and a.fhasta=:fhasta and tc.cgrupoproducto not in(''90'',''91'') and :fecha between a.fcontabledesde and a.fcontablehasta');