deletarBaseDeRegistroEventoDecimo.plsql
10 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
/*
**********************************************************************************
* *
* @package URBEM CNM - Soluções em Gestão Pública *
* @copyright (c) 2013 Confederação Nacional de Municípos *
* @author Confederação Nacional de Municípios *
* *
* O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob *
* os termos da Licença Pública Geral GNU conforme publicada pela Fundação do *
* Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. *
* *
* Este programa é distribuído na expectativa de que seja útil, porém, *
* SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU *
* ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU *
* para mais detalhes. *
* *
* Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" *
* com este programa; se não, escreva para a Free Software Foundation Inc., *
* no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
* *
**********************************************************************************
*/
--/**
-- * Função PLSQL
-- * Data de Criação: 12/09/2006
--
--
-- * @author Analista: Vandré Miguel Ramos
-- * @author Desenvolvedor: Diego Lemos de Souza
--
-- * @package URBEM
-- * @subpackage
--
-- $Revision: 26869 $
-- $Name$
-- $Author: souzadl $
-- $Date: 2007-11-21 17:23:15 -0200 (Qua, 21 Nov 2007) $
--
-- * Casos de uso: uc-04.05.11
--*/
CREATE OR REPLACE FUNCTION deletarBaseDeRegistroEventoDecimo(INTEGER,INTEGER) RETURNS BOOLEAN as $$
DECLARE
inCodContrato ALIAS FOR $1;
inCodPeriodoMovimentacao ALIAS FOR $2;
stSql VARCHAR := '';
stSql2 VARCHAR := '';
Registro RECORD;
Registro2 RECORD;
inCodEventoBase INTEGER;
inContador INTEGER;
inCodConfiguracao INTEGER;
boRetorno BOOLEAN;
stEntidade VARCHAR := recuperarBufferTexto('stEntidade');
BEGIN
stSql := 'SELECT ultimo_registro_evento_decimo.*
FROM folhapagamento'|| stEntidade ||'.ultimo_registro_evento_decimo
, folhapagamento'|| stEntidade ||'.registro_evento_decimo
, folhapagamento'|| stEntidade ||'.evento
WHERE ultimo_registro_evento_decimo.cod_registro = registro_evento_decimo.cod_registro
AND ultimo_registro_evento_decimo.cod_evento = registro_evento_decimo.cod_evento
AND ultimo_registro_evento_decimo.timestamp = registro_evento_decimo.timestamp
AND ultimo_registro_evento_decimo.desdobramento = registro_evento_decimo.desdobramento
AND ultimo_registro_evento_decimo.cod_evento = evento.cod_evento
AND evento.evento_sistema = false
AND evento.natureza = ''B''
AND registro_evento_decimo.cod_contrato = '|| inCodContrato ||'
AND registro_evento_decimo.cod_periodo_movimentacao = '|| inCodPeriodoMovimentacao ||' ';
FOR Registro IN EXECUTE stSql
LOOP
stSql := 'DELETE FROM folhapagamento'|| stEntidade ||'.evento_decimo_calculado WHERE cod_registro = '|| Registro.cod_registro ||'
AND cod_evento = '|| Registro.cod_evento ||'
AND timestamp_registro = '|| quote_literal(Registro.timestamp) ||'
AND desdobramento = '|| quote_literal(Registro.desdobramento) ||' ';
EXECUTE stSql;
stSql := 'DELETE FROM folhapagamento'|| stEntidade ||'.log_erro_calculo_decimo WHERE cod_registro = '|| Registro.cod_registro ||'
AND cod_evento = '|| Registro.cod_evento ||'
AND timestamp = '|| quote_literal(Registro.timestamp) ||'
AND desdobramento = '|| quote_literal(Registro.desdobramento) ||' ';
EXECUTE stSql;
stSql := 'DELETE FROM folhapagamento'|| stEntidade ||'.registro_evento_decimo_parcela WHERE cod_registro = '|| Registro.cod_registro ||'
AND cod_evento = '|| Registro.cod_evento ||'
AND timestamp = '|| quote_literal(Registro.timestamp) ||'
AND desdobramento = '|| quote_literal(Registro.desdobramento) ||' ';
EXECUTE stSql;
stSql := 'DELETE FROM folhapagamento'|| stEntidade ||'.ultimo_registro_evento_decimo WHERE cod_registro = '|| Registro.cod_registro ||'
AND cod_evento = '|| Registro.cod_evento ||'
AND timestamp = '|| quote_literal(Registro.timestamp) ||'
AND desdobramento = '|| quote_literal(Registro.desdobramento) ||' ';
EXECUTE stSql;
END LOOP;
stSql := 'SELECT ultimo_registro_evento_decimo.*
FROM folhapagamento'|| stEntidade ||'.ultimo_registro_evento_decimo
, folhapagamento'|| stEntidade ||'.registro_evento_decimo
, folhapagamento'|| stEntidade ||'.evento
WHERE ultimo_registro_evento_decimo.cod_registro = registro_evento_decimo.cod_registro
AND ultimo_registro_evento_decimo.cod_evento = registro_evento_decimo.cod_evento
AND ultimo_registro_evento_decimo.timestamp = registro_evento_decimo.timestamp
AND ultimo_registro_evento_decimo.desdobramento= registro_evento_decimo.desdobramento
AND ultimo_registro_evento_decimo.cod_evento = evento.cod_evento
AND evento.natureza != ''B''
AND registro_evento_decimo.cod_contrato = '|| inCodContrato ||'
AND registro_evento_decimo.cod_periodo_movimentacao = '|| inCodPeriodoMovimentacao ||' ';
FOR Registro IN EXECUTE stSql
LOOP
stSql2 := 'SELECT evento_base.cod_evento_base
FROM folhapagamento'|| stEntidade ||'.configuracao_evento_caso
, (SELECT max(timestamp) as timestamp
, cod_evento
FROM folhapagamento'|| stEntidade ||'.configuracao_evento_caso
GROUP BY cod_evento) as max_configuracao_evento_caso
, folhapagamento'|| stEntidade ||'.evento_base
WHERE configuracao_evento_caso.cod_evento = '|| Registro.cod_evento ||'
AND configuracao_evento_caso.cod_configuracao = 3
AND configuracao_evento_caso.cod_configuracao = evento_base.cod_configuracao
AND configuracao_evento_caso.cod_evento =max_configuracao_evento_caso.cod_evento
AND configuracao_evento_caso.timestamp = max_configuracao_evento_caso.timestamp
AND configuracao_evento_caso.cod_evento = evento_base.cod_evento
AND configuracao_evento_caso.timestamp = evento_base.timestamp';
FOR Registro2 IN EXECUTE stSql2
LOOP
IF Registro2.cod_evento_base IS NOT NULL THEN
inContador := selectIntoInteger('SELECT count(ultimo_registro_evento_decimo.*) as contador
FROM folhapagamento'|| stEntidade ||'.ultimo_registro_evento_decimo
, folhapagamento'|| stEntidade ||'.registro_evento_decimo
WHERE ultimo_registro_evento_decimo.cod_registro = registro_evento_decimo.cod_registro
AND ultimo_registro_evento_decimo.cod_evento = registro_evento_decimo.cod_evento
AND ultimo_registro_evento_decimo.timestamp = registro_evento_decimo.timestamp
AND ultimo_registro_evento_decimo.desdobramento = registro_evento_decimo.desdobramento
AND ultimo_registro_evento_decimo.desdobramento = '|| quote_literal(Registro.desdobramento) ||'
AND registro_evento_decimo.cod_contrato = '|| inCodContrato ||'
AND registro_evento_decimo.cod_periodo_movimentacao = '|| inCodPeriodoMovimentacao ||'
AND ultimo_registro_evento_decimo.cod_evento = '|| Registro2.cod_evento_base);
IF inContador = 0 THEN
boRetorno := insertRegistroEventoAutomaticoDecimo(inCodContrato,inCodPeriodoMovimentacao,Registro2.cod_evento_base,Registro.desdobramento);
END IF;
END IF;
END LOOP;
END LOOP;
RETURN true;
END;
$$LANGUAGE 'plpgsql';