1. Expedientes
Hay varios tipos de expedientes:
- GE: GESTION,
- EJ: EJECUTIVA,
- CE: CEDIDOS,
- TR: TRAFICO,
- SA: SANCIONADOR TRIBUTARIO
Y ademas se pueden clasificar en (según la tabla SDOC):
La consulta para ver todos los expedientes podría ser
SELECT EPER.TIPO_EPER, REGE.ID_EPER,REGE.ID_EPER_SP,REGE.NUMERO_REGE,
REGE.EXTRACTO_REGE,
CASE
WHEN LENGTH(TRIM(REGE.NUMERO_REGE))<9 THEN TO_CHAR(REGE.ANYO_EXEJ_REGE)||REGE.NUMERO_REGE
ELSE REGE.NUMERO_REGE
END AS NUMERO_EXPEDIENTE,
REGE.NUMERO_REGE_EXTERNO,
EPER.ID_PERS,
PERS.NIF_PERG, PERS.NOMBRE_PERG,
EPER1.ID_PERS AS ID_PERS1,
PERS1.NIF_PERG AS NIF_PERG1, PERS1.NOMBRE_PERG AS NOMBRE_PERG1,
TIPO_REGE,
CASE
WHEN TIPO_REGE='GE' THEN 'GESTION'
WHEN TIPO_REGE='EJ' THEN 'EJECUTIVA'
WHEN TIPO_REGE='CE' THEN 'CEDIDOS'
WHEN TIPO_REGE='TR' THEN 'TRAFICO'
WHEN TIPO_REGE='SA' THEN 'SANCIONADOR TRIBUTARIO'
ELSE 'DESCONOCIDO'
END AS TIPO_EXPEDIENTE,
REGE.COD_TDOC, TDOC.NOMBRE_TDOC, REGE.COD_SDOC, SDOC.NOMBRE_SDOC, REGE.COD_TRND, TRND.DESCR_TRND,
REGE.COD_ESTA,
CASE
WHEN COD_ESTA='CE' THEN 'FINALIZADO'
WHEN COD_ESTA='AB' THEN 'ABIERTO EJECUTIVA'
WHEN COD_ESTA='CD' THEN 'CERRADO POR DERIVACION'
WHEN COD_ESTA='CO' THEN 'CONCLUSION ????'
ELSE 'DESCONOCIDO'
END AS ESTADO_EXPEDIENTE,
REGE.FECHA_PROV_EMBARGO_EXEJ_REGE, FECHA_ULTIMA_ACTU_REGE, REGE.FECHA_FIN_REGE,
REGE.ANYO_REG_GRAL_REGE, REGE.NUM1_REG_GRAL_REGE, REGE.HISTORICO_REGE
,'---EPER--',EPER.*,'-----REGE----', REGE.*,'---PERS1--', PERS1.*
FROM "OPS$GTTORA".REGE_REGISTRO_ENTRADA REGE
LEFT JOIN "OPS$GTTORA".TDOC_TIPO_DOCUMENTOS TDOC ON TDOC.COD_TDOC=REGE.COD_TDOC
LEFT JOIN "OPS$GTTORA".SDOC_SUBTIPO_DOCUMENTOS SDOC ON SDOC.COD_TDOC =REGE.COD_TDOC AND SDOC.COD_SDOC=REGE.COD_SDOC
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER ON EPER.ID_EPER =REGE.ID_EPER
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER1 ON EPER1.ID_EPER =REGE.ID_EPER_SP
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS ON PERS.ID_PERS=EPER.ID_PERS
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS1 ON PERS1.ID_PERS=EPER1.ID_PERS
LEFT JOIN "OPS$GTTORA".TRND_TIPO_RES_NOTIF_DIR TRND ON TRND.COD_TRND =REGE.COD_TRND
WHERE PERS.NOMBRE_PERG LIKE '%FED%GIN%' OR PERS1.NOMBRE_PERG LIKE '%FED%GIN%'
;
2. Consulta de bienes (Para expedientes de ejecutiva)
Van asociados a la persona. Se pueden pedir mas datos en función del tipo de bien que tenga la persona
SELECT
PERS.ID_PERS, PERS.NOMBRE_PERG, EPER.ID_EPER,BIPE.COD_TBIE, BIPE.DESCR_BIPE,
BIBA.IBAN_BIBA,BIOP.DESCR_BIOP,BIPN.IMPORTE_LIQUIDO_BIPN, BIVE.MATRICULA_BIVE,
BISU.NOMBRE_EMP_BISU
FROM OPS$GTTORA.EPER_ELEMENTOS_PERSONA EPER --1. Tabla comodin por persona
JOIN OPS$GTTORA.PERS_PERSONAS PERS --2. Personas
ON PERS.ID_PERS =EPER.ID_PERS
JOIN OPS$GTTORA.BIPE_BIENES_PERSONAS BIPE --3. Bienes de una persona
ON EPER.TIPO_EPER='BI'
AND BIPE.ID_EPER=EPER.ID_EPER
LEFT JOIN OPS$GTTORA.BIBA_BIENES_BANCOS BIBA --4.Datos de bienes cuentas bancarias
ON BIBA.ID_EPER=EPER.ID_EPER
LEFT JOIN OPS$GTTORA.BIOP_BIENES_INMUEBLES BIOP --5.Datos de bienes inmuebles
ON BIOP.ID_EPER=EPER.ID_EPER
LEFT JOIN OPS$GTTORA.BIPN_BIENES_PENSION BIPN --6.Datos de bienes pensiones
ON BIPN.ID_EPER =EPER.ID_EPER
LEFT JOIN OPS$GTTORA.BIVE_BIENES_VEHICULOS BIVE --7.Datos de bienes vehículos
ON BIVE.ID_EPER = EPER.ID_EPER
LEFT JOIN OPS$GTTORA.BISU_BIENES_SUELDOS BISU --8.Datos de bienes de sueldos
ON BISU.ID_EPER = EPER.ID_EPER;
3. Consulta de valores de un expediente
SELECT DISTINCT REOV.ID_EPER, REOV.REG_ID_EPER --VALOR, EXPEDIENTE
FROM OPS$GTTORA.REOV_REGISTRO_OP_VALOR REOV;
;
La tabla VALO_VALORES tiene un campo ID_REGE que apunta al expediente:
SELECT VALO.ID_REGE AS EXPEDIENTE, VALO.*
FROM OPS$GTTORA.VALO_VALORES
;
SELECT REOV.ID_EPER, REOV.REG_ID_EPER,TOVA.DESCR_TOVA,--VALOR, EXPEDIENTE
'--REOV--',REOV.*,
'---REGE--',REGE.*,
'--EPER--', EPER.*,PERS.NOMBRE_PERG, EPER1.*, PERS1.NOMBRE_PERG ,
'--VALO--',VALO.NOMBRE_SP_VALO, VALO.EJERCICIO_VALO, VALO.OBJETO_TRIB_VALO, VALO.NUMERO_VALO, VALO.ID_REGE
FROM "OPS$GTTORA".REOV_REGISTRO_OP_VALOR REOV
LEFT JOIN "OPS$GTTORA".REGE_REGISTRO_ENTRADA REGE ON REGE.ID_EPER =REOV.REG_ID_EPER
LEFT JOIN "OPS$GTTORA".TOVA_TIPOS_OPERAC_VALOR TOVA ON TOVA.COD_TOVA =REOV.COD_TOVA
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER ON EPER.ID_EPER =REOV.ID_EPER
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS ON PERS.ID_PERS=EPER.ID_PERS
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER1 ON EPER1.ID_EPER =REGE.ID_EPER_SP
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS1 ON PERS1.ID_PERS=EPER1.ID_PERS
LEFT JOIN "OPS$GTTORA".VALO_VALORES VALO ON VALO.ID_EPER =REOV.ID_EPER
WHERE (PERS.NOMBRE_PERG LIKE '%FED%GIN%' OR PERS1.NOMBRE_PERG LIKE '%FED%GIN%')
AND
--REGE.NUMERO_REGE ='09012018002780'
REGE.NUMERO_REGE LIKE '%9000407%'
AND REOV.COD_TOVA='AE' --'ACUMULACION A EXPEDIENTE'
ORDER BY REOV.ID_EPER
;
3. Consuta de actuaciones
SELECT ACTU.*, TDOC.NOMBRE_TDOC, SDOC.NOMBRE_SDOC, TACT.NOMBRE_TACT
,'---REGE---',REGE.*,'---PERS--',PERS.NIF_PERG, PERS.NOMBRE_PERG, PERS1.NIF_PERG, PERS1.NOMBRE_PERG
FROM "OPS$GTTORA".ACTU_ACTUACIONES ACTU
LEFT JOIN "OPS$GTTORA".TDOC_TIPO_DOCUMENTOS TDOC ON TDOC.COD_TDOC=ACTU.COD_TDOC
LEFT JOIN "OPS$GTTORA".SDOC_SUBTIPO_DOCUMENTOS SDOC ON SDOC.COD_TDOC =ACTU.COD_TDOC AND SDOC.COD_SDOC =ACTU.COD_SDOC
LEFT JOIN "OPS$GTTORA".TACT_TIPO_ACTUACION TACT ON TACT.COD_TACT =ACTU.COD_TACT
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER ON EPER.ID_EPER =ACTU.ID_EPER
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS ON PERS.ID_PERS=EPER.ID_PERS
LEFT JOIN "OPS$GTTORA".REGE_REGISTRO_ENTRADA REGE ON REGE.ID_EPER =ACTU.ID_EPER
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER1 ON EPER1.ID_EPER =REGE.ID_EPER_SP
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS1 ON PERS1.ID_PERS=EPER1.ID_PERS
WHERE PERS.NOMBRE_PERG LIKE '%FED%GIN%' OR PERS1.NOMBRE_PERG LIKE '%FED%GIN%'
AND REGE.NUMERO_REGE ='09012018002780'
ORDER BY REGE.NUMERO_REGE, ACTU.COD_USUA, ACTU.FECHA_ACTU
;
4. Documentos
SELECT DOCU.ID_DOCU, DOCU.CSV_DOCU, ADAR.CSV_ADAR , DOCU.DESCR_DOCU, ELDO.COD_TIED, TIED.DESCR_TIED, NVL(PERS.NOMBRE_PERG,PERS1.NOMBRE_PERG), NVL(PERS.NIF_PERG,PERS1.NIF_PERG) AS NIF_PERG, ELDO.ID_ELEMENTO_DOCU AS ID_PERS,
CASE
WHEN ELDO.COD_TIED='REEM' THEN (SELECT REEM.NOMBRE_PERG FROM "OPS$GTTORA".REEM_REF_EMISION REEM WHERE REEM.REFERENCIA_REEM=ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='SOLI' THEN (SELECT SOLI.NOMBRE_SOLI FROM "OPS$GTTORA".SOLI_ADMIN_IMPR SOLI WHERE SOLI.ID_SOLI= ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='PERS' THEN (SELECT PERS.NOMBRE_PERG FROM "OPS$GTTORA".PERS_PERSONAS PERS WHERE PERS.ID_PERS = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='REOV' THEN (SELECT PERS.NOMBRE_PERG FROM "OPS$GTTORA".REOV_REGISTRO_OP_VALOR REOV JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER ON EPER.ID_EPER = REOV.ID_EPER JOIN "OPS$GTTORA".PERS_PERSONAS PERS ON PERS.ID_PERS =EPER.ID_PERS WHERE REOV.ID_REOV = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='EXEJ' THEN (SELECT REGE.DESC_OBJETO_REGE FROM "OPS$GTTORA".REGE_REGISTRO_ENTRADA REGE WHERE REGE.ID_EPER = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='REGE' THEN (SELECT REGE.EXTRACTO_REGE FROM "OPS$GTTORA".REGE_REGISTRO_ENTRADA REGE WHERE REGE.ID_EPER = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='REOR' THEN (SELECT REOR.PR_NOMBRE_PERS FROM "OPS$GTTORA".REOR_REGISTRO_ENTRADA_ORGA REOR WHERE REOR.ID_EPER = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='DOMI' THEN (SELECT DOMI.TITULAR_CUENTA_DOMI FROM "OPS$GTTORA".DOMI_DOMICILIACIONES DOMI WHERE DOMI.ID_EPER = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='PHIS' THEN (SELECT PHIS.NOMBRE_PERG FROM "OPS$GTTORA".PHIS_PERSONAS_HIST PHIS WHERE PHIS.ID_PHIS = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='ACTU' THEN (SELECT PERS.NOMBRE_PERG FROM "OPS$GTTORA".ACTU_ACTUACIONES ACTU JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER ON EPER.ID_EPER = ACTU.ID_EPER JOIN "OPS$GTTORA".PERS_PERSONAS PERS ON PERS.ID_PERS =EPER.ID_PERS WHERE ACTU.ID_ACTU = ELDO.ID_ELEMENTO_DOCU)
WHEN ELDO.COD_TIED='BOLE' THEN (SELECT BOLE.DESCR_TIPO_BOLE FROM "OPS$GTTORA".BOLE_BOLETINES BOLE WHERE BOLE.ID_BOLE = ELDO.ID_ELEMENTO_DOCU)
--WHEN ELDO.COD_TIED='TPNE' THEN (SELECT ACTU.TEXTO_ACTU FROM "OPS$GTTORA".TMP_REOR_2 TMP2 WHERE TMP2.ID_EPER = ELDO.ID_ELEMENTO_DOCU)
ELSE '----FALTA----'
END AS KKKKKKKKKKK, TIED.* ,TIED1.DESCR_TIED,
EPER.*, REED.ID_ELDO
FROM "OPS$GTTORA".DOCU_DOCUMENTOS DOCU
LEFT JOIN "OPS$GTTORA".REED_RELACION_ELEMENTOS_DOCU REED ON REED.ID_DOCU =DOCU.ID_DOCU
LEFT JOIN "OPS$GTTORA".ELDO_ELEMENTOS_DOCUMENTOS ELDO ON ELDO.ID_ELDO =REED.ID_ELDO
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS ON PERS.ID_PERS=ELDO.ID_ELEMENTO_DOCU
LEFT JOIN "OPS$GTTORA".TIED_TIPOS_ELEMENTOS_DOCU TIED ON TIED.COD_TIED = ELDO.COD_TIED
LEFT JOIN "OPS$GTTORA".TIED_TIPOS_ELEMENTOS_DOCU TIED1 ON TIED1.COD_TIED = TIED.COD_TIED_PADRE
--LEFT JOIN "OPS$GTTORA".REGE_REGISTRO_ENTRADA REGE ON REGE.ID_EPER =ELDO.ID_ELEMENTO_DOCU
LEFT JOIN "OPS$GTTORA".EPER_ELEMENTOS_PERSONA EPER ON EPER.ID_EPER = ELDO.ID_ELEMENTO_DOCU ---REGE.ID_EPER
LEFT JOIN "OPS$GTTORA".PERS_PERSONAS PERS1 ON PERS1.ID_PERS =EPER.ID_PERS
JOIN "OPS$AD_GTTL".ADAR_ARCHIVOS ADAR ON ADAR.CSV_ADAR =DOCU.CSV_DOCU --ojo pone left join
--WHERE LENGTH(DOCU.CSV_DOCU)>3;
5. Costas
SELECT COSE.*,COSA.*, TCOS.DESCR_TCOS ,TACT.NOMBRE_TACT
FROM OPS$GTTORA.COSE_COSTAS_GEN_EXPEDIENTE COSE
LEFT JOIN OPS$GTTORA.COSA_COSTAS_ACTUACIONES COSA ON COSA.ID_COSA =COSE.ID_COSA
LEFT JOIN OPS$GTTORA.TCOS_TIPOS_COSTAS_EXPEDIENTE TCOS ON TCOS.COD_TCOS =COSA.COD_TCOS
LEFT JOIN OPS$GTTORA.TACT_TIPO_ACTUACION TACT ON TACT.COD_TACT =COSA.COD_TACT
No hay comentarios :
Publicar un comentario