GA_2012.sql
4.31 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
/*
**********************************************************************************
* *
* @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. *
* *
**********************************************************************************
*/
/*
*
* Script de DDL e DML
*
* Versao 2.01.0
*
* Fabio Bertoldi - 20120713
*
*/
----------------
-- Ticket #
----------------
CREATE OR REPLACE FUNCTION verifica_orcamento() RETURNS VOID AS $$
DECLARE
BEGIN
PERFORM 1
FROM orcamento.despesa
WHERE exercicio = '2012'
;
IF FOUND THEN
PERFORM 1
FROM contabilidade.tipo_transferencia
WHERE exercicio = '2013'
;
IF NOT FOUND THEN
RAISE EXCEPTION 'É necessário gerar o exercício seguinte na elaboração do orçamento para a aplicação da versão 2.01.2!';
END IF;
END IF;
END;
$$ LANGUAGE 'plpgsql';
SELECT verifica_orcamento();
DROP FUNCTION verifica_orcamento();
----------------
-- Ticket #
----------------
CREATE OR REPLACE FUNCTION manutencao() RETURNS VOID AS $$
DECLARE
BEGIN
PERFORM 1
FROM administracao.configuracao
WHERE exercicio = '2012'
AND cod_modulo = 2
AND parametro = 'cnpj'
AND valor = '13805528000180'
;
IF FOUND THEN
INSERT
INTO administracao.acao
( cod_acao
, cod_funcionalidade
, nom_arquivo
, parametro
, ordem
, complemento_acao
, nom_acao
, ativo
)
VALUES
( 2859
, 231
, 'FLEmitirCarneIPTUDesoneradoMata.php'
, 'CarneDesonerado'
, 7
, ''
, 'Emissão de carnê / IPTU Desonerado'
, TRUE
);
INSERT
INTO arrecadacao.acao_modelo_carne
SELECT cod_modelo
, 2859 AS cod_acao
FROM arrecadacao.acao_modelo_carne
WHERE cod_acao = 2806
;
INSERT
INTO administracao.permissao
SELECT numcgm
, 2859 AS cod_acao
, ano_exercicio
FROM administracao.permissao
WHERE cod_acao = 2806
;
INSERT
INTO administracao.auditoria
SELECT numcgm
, 2859 AS cod_acao
, timestamp
, transacao
, objeto
FROM administracao.auditoria
WHERE cod_acao = 2806
;
DELETE FROM arrecadacao.acao_modelo_carne WHERE cod_acao = 2806;
DELETE FROM administracao.permissao WHERE cod_acao = 2806;
DELETE FROM administracao.auditoria WHERE cod_acao = 2806;
DELETE FROM administracao.acao WHERE cod_acao = 2806;
END IF;
END;
$$ LANGUAGE 'plpgsql';
SELECT manutencao();
DROP FUNCTION manutencao();