Download as
Browse Code »

Commit 842bba7594339f1b45a9b2cd696c57fb890971be

Authored by Gelson
1 parent 1a5d5181

Atualização urbem_2.05.3

Showing 320 changed files with 11890 additions and 9142 deletions   Show diff stats

Too many changes.
Reload with full diff Plain diff Email patch

To preserve performance only 100 of 320 files displayed.

gestaoAdministrativa/fontes/PHP/CGM/cgm/manutencao/converteCgmInterno.php
  Diff comments   View file @842bba7
@@ -90,7 +90,7 @@ switch ($controle) { @@ -90,7 +90,7 @@ switch ($controle) {
90 municipio=>$municipio, 90 municipio=>$municipio,
91 bairro=>$bairro, 91 bairro=>$bairro,
92 //cep=>$cep1.$cep2, 92 //cep=>$cep1.$cep2,
93 - cep=>ereg_replace('[^a-zA-Z0-9]','',$cep), 93 + cep=>preg_replace('/[^a-zA-Z0-9]/','',$cep),
94 tipoLogradouroCorresp=>$tipoLogradouroCorresp, 94 tipoLogradouroCorresp=>$tipoLogradouroCorresp,
95 logradouroCorresp=>$logradouroCorresp, 95 logradouroCorresp=>$logradouroCorresp,
96 numeroCorresp=>$numeroCorresp, 96 numeroCorresp=>$numeroCorresp,
@@ -100,7 +100,7 @@ switch ($controle) { @@ -100,7 +100,7 @@ switch ($controle) {
100 municipioCorresp=>$municipioCorresp, 100 municipioCorresp=>$municipioCorresp,
101 bairroCorresp=>$bairroCorresp, 101 bairroCorresp=>$bairroCorresp,
102 //cepCorresp=>$cepCorresp1.$cepCorresp2, 102 //cepCorresp=>$cepCorresp1.$cepCorresp2,
103 - cepCorresp=>ereg_replace('[^a-zA-Z0-9]','',$cepCorresp), 103 + cepCorresp=>preg_replace('/[^a-zA-Z0-9]/','',$cepCorresp),
104 foneRes=>$dddRes.$foneRes, 104 foneRes=>$dddRes.$foneRes,
105 ramalRes=>$ramalRes, 105 ramalRes=>$ramalRes,
106 foneCom=>$dddCom.$foneCom, 106 foneCom=>$dddCom.$foneCom,
@@ -111,10 +111,10 @@ switch ($controle) { @@ -111,10 +111,10 @@ switch ($controle) {
111 codResp=>Sessao::read('numCgm'), 111 codResp=>Sessao::read('numCgm'),
112 pessoa=>$pessoa, 112 pessoa=>$pessoa,
113 //cnpj=>$cnpj1.$cnpj2.$cnpj3.$cnpj4.$cnpj5, 113 //cnpj=>$cnpj1.$cnpj2.$cnpj3.$cnpj4.$cnpj5,
114 - cnpj=>ereg_replace('[^a-zA-Z0-9]','', $cnpj ), 114 + cnpj=>preg_replace('/[^a-zA-Z0-9]/','', $cnpj ),
115 inscEst=>$inscEstadual, 115 inscEst=>$inscEstadual,
116 //cpf=>$cpf1.$cpf2.$cpf3.$cpf4, 116 //cpf=>$cpf1.$cpf2.$cpf3.$cpf4,
117 - cpf=>ereg_replace('[^a-zA-Z0-9]','', $cpf ), 117 + cpf=>preg_replace('/[^a-zA-Z0-9]/','', $cpf ),
118 rg=>$rg, 118 rg=>$rg,
119 orgaoEmissor=>$orgaoEmissor, 119 orgaoEmissor=>$orgaoEmissor,
120 //dtEmissaoRg=>$dtEmissaoRg3."-".$dtEmissaoRg2."-".$dtEmissaoRg1, 120 //dtEmissaoRg=>$dtEmissaoRg3."-".$dtEmissaoRg2."-".$dtEmissaoRg1,
@@ -241,7 +241,7 @@ if ($pessoa == "fisica") { @@ -241,7 +241,7 @@ if ($pessoa == "fisica") {
241 <?php 241 <?php
242 } 242 }
243 if (isset($pessoa)) { 243 if (isset($pessoa)) {
244 - $dados = $HTTP_POST_VARS; 244 + $dados = $_POST;
245 $dados[pessoa] = $pessoa; 245 $dados[pessoa] = $pessoa;
246 $html->formCgm($dados,$PHP_SELF,0); 246 $html->formCgm($dados,$PHP_SELF,0);
247 } 247 }
gestaoAdministrativa/fontes/PHP/CGM/popups/cgm/PRManterCgm.php
  Diff comments   View file @842bba7
@@ -57,7 +57,7 @@ $pgForm = &quot;FM&quot;.$stPrograma.&quot;.php?&quot;.Sessao::getId().&quot;&amp;stAcao=$stAcao&quot;; @@ -57,7 +57,7 @@ $pgForm = &quot;FM&quot;.$stPrograma.&quot;.php?&quot;.Sessao::getId().&quot;&amp;stAcao=$stAcao&quot;;
57 $pgProc = "PR".$stPrograma.".php?".Sessao::getId()."&stAcao=$stAcao"; 57 $pgProc = "PR".$stPrograma.".php?".Sessao::getId()."&stAcao=$stAcao";
58 $pgOcul = "OC".$stPrograma.".php?".Sessao::getId()."&stAcao=$stAcao"; 58 $pgOcul = "OC".$stPrograma.".php?".Sessao::getId()."&stAcao=$stAcao";
59 59
60 -include_once 'JS'.$stPrograma.".js"); 60 +include_once 'JS'.$stPrograma.".js";
61 61
62 Sessao::setTrataExcecao( true ); 62 Sessao::setTrataExcecao( true );
63 63
@@ -133,7 +133,7 @@ if ($_POST[&#39;boPessoa&#39;]==&#39;fisica&#39;) { @@ -133,7 +133,7 @@ if ($_POST[&#39;boPessoa&#39;]==&#39;fisica&#39;) {
133 $obTCGMPessoaFisica = new TCGMPessoaFisica; 133 $obTCGMPessoaFisica = new TCGMPessoaFisica;
134 $obTCGMPessoaFisica->setDado('numcgm' ,$inNumCGM); 134 $obTCGMPessoaFisica->setDado('numcgm' ,$inNumCGM);
135 if( $_POST['stCPF'] ) 135 if( $_POST['stCPF'] )
136 - $obTCGMPessoaFisica->setDado('cpf' ,ereg_replace('[^a-zA-Z0-9]','', $_POST['stCPF']) ); 136 + $obTCGMPessoaFisica->setDado('cpf' ,preg_replace('/[^a-zA-Z0-9]/','', $_POST['stCPF']) );
137 $obTCGMPessoaFisica->setDado('rg' ,$_POST['stRG']); 137 $obTCGMPessoaFisica->setDado('rg' ,$_POST['stRG']);
138 $obTCGMPessoaFisica->setDado('orgao_emissor' ,$_POST['stOrgaoEmissor']); 138 $obTCGMPessoaFisica->setDado('orgao_emissor' ,$_POST['stOrgaoEmissor']);
139 $obTCGMPessoaFisica->setDado('cod_uf_orgao_emissor' ,$_POST['inCodUF']); 139 $obTCGMPessoaFisica->setDado('cod_uf_orgao_emissor' ,$_POST['inCodUF']);
gestaoAdministrativa/fontes/PHP/CSE/cse/empresa/alteraEmpresa.php
  Diff comments   View file @842bba7
@@ -225,7 +225,7 @@ $cnpj = pegaDado(&quot;cnpj&quot;,&quot;cse.empresa&quot;,&quot;Where cod_empresa = &#39;&quot;.$codEmpresa.&quot;&#39; &quot;); @@ -225,7 +225,7 @@ $cnpj = pegaDado(&quot;cnpj&quot;,&quot;cse.empresa&quot;,&quot;Where cod_empresa = &#39;&quot;.$codEmpresa.&quot;&#39; &quot;);
225 case 2: 225 case 2:
226 $js = ""; 226 $js = "";
227 $ok = true; 227 $ok = true;
228 - $vet = $HTTP_POST_VARS; 228 + $vet = $_POST;
229 //Verifica se já existe o registro a ser incluido 229 //Verifica se já existe o registro a ser incluido
230 if (!comparaValor("nom_empresa", $nomEmpresa, "cse.empresa","And cod_empresa <> '".$codEmpresa."' ",1)) { 230 if (!comparaValor("nom_empresa", $nomEmpresa, "cse.empresa","And cod_empresa <> '".$codEmpresa."' ",1)) {
231 $js .= "mensagem += '@O nome ".$nomEmpresa." já existe'; \n"; 231 $js .= "mensagem += '@O nome ".$nomEmpresa." já existe'; \n";
gestaoAdministrativa/fontes/PHP/CSE/cse/empresa/incluiEmpresa.php
  Diff comments   View file @842bba7
@@ -140,7 +140,7 @@ case 0: @@ -140,7 +140,7 @@ case 0:
140 case 1: 140 case 1:
141 $js = ""; 141 $js = "";
142 $ok = true; 142 $ok = true;
143 - $vet = $HTTP_POST_VARS; 143 + $vet = $_POST;
144 $vet[cnpj] = preg_replace( "/[^0-9a-zA-Z]/","", $cnpj); 144 $vet[cnpj] = preg_replace( "/[^0-9a-zA-Z]/","", $cnpj);
145 //Verifica se já existe o registro a ser incluido 145 //Verifica se já existe o registro a ser incluido
146 if (!comparaValor("nom_empresa", urlencode($nomEmpresa), "cse.empresa","",1)) { 146 if (!comparaValor("nom_empresa", urlencode($nomEmpresa), "cse.empresa","",1)) {
gestaoAdministrativa/fontes/PHP/CSE/cse/exame/incluiExame.php
  Diff comments   View file @842bba7
@@ -188,7 +188,7 @@ case 1: @@ -188,7 +188,7 @@ case 1:
188 $cse = new cse(); 188 $cse = new cse();
189 189
190 $objeto = $nomExame; 190 $objeto = $nomExame;
191 - if ($cse->incluirExame($HTTP_POST_VARS) ) { 191 + if ($cse->incluirExame($_POST) ) {
192 //Insere auditoria 192 //Insere auditoria
193 $audicao = new auditoriaLegada; 193 $audicao = new auditoriaLegada;
194 $audicao->setaAuditoria($sessao->numCgm, $sessao->acao, $objeto); 194 $audicao->setaAuditoria($sessao->numCgm, $sessao->acao, $objeto);
gestaoAdministrativa/fontes/PHP/CSE/cse/programa/alteraPrograma.php
  Diff comments   View file @842bba7
@@ -250,7 +250,7 @@ case 2: @@ -250,7 +250,7 @@ case 2:
250 $cse = new cse(); 250 $cse = new cse();
251 251
252 $objeto = $nomPrograma; 252 $objeto = $nomPrograma;
253 - if ($cse->alterarPrograma($HTTP_POST_VARS) ) { 253 + if ($cse->alterarPrograma($_POST) ) {
254 //Insere auditoria 254 //Insere auditoria
255 $audicao = new auditoriaLegada; 255 $audicao = new auditoriaLegada;
256 $audicao->setaAuditoria($sessao->numCgm, $sessao->acao, $objeto); 256 $audicao->setaAuditoria($sessao->numCgm, $sessao->acao, $objeto);
gestaoAdministrativa/fontes/PHP/CSE/cse/programa/incluiPrograma.php
  Diff comments   View file @842bba7
@@ -146,7 +146,7 @@ case 1: @@ -146,7 +146,7 @@ case 1:
146 $cse = new cse(); 146 $cse = new cse();
147 147
148 $objeto = $nomPrograma; 148 $objeto = $nomPrograma;
149 - if ($cse->incluirPrograma($HTTP_POST_VARS) ) { 149 + if ($cse->incluirPrograma($_POST) ) {
150 //Insere auditoria 150 //Insere auditoria
151 $audicao = new auditoriaLegada; 151 $audicao = new auditoriaLegada;
152 $audicao->setaAuditoria($sessao->numCgm, $sessao->acao, $objeto); 152 $audicao->setaAuditoria($sessao->numCgm, $sessao->acao, $objeto);
gestaoAdministrativa/fontes/PHP/CSE/cse/tratamento/alteraTratamento.php
  Diff comments   View file @842bba7
@@ -51,7 +51,7 @@ $Date: 2005-12-01 14:25:34 -0200 (Qui, 01 Dez 2005) $ @@ -51,7 +51,7 @@ $Date: 2005-12-01 14:25:34 -0200 (Qui, 01 Dez 2005) $
51 if ($alterar == 1) { 51 if ($alterar == 1) {
52 $alterar = 0; 52 $alterar = 0;
53 $obj = new cse(); 53 $obj = new cse();
54 - $arr = $obj->retornaTratamento($HTTP_GET_VARS); 54 + $arr = $obj->retornaTratamento($_GET);
55 $sessao->transf['cse'][2] = $arr[cse]; 55 $sessao->transf['cse'][2] = $arr[cse];
56 $sessao->transf[exame] = $arr[exame]; 56 $sessao->transf[exame] = $arr[exame];
57 $sessao->transf[internacao] = $arr[internacao]; 57 $sessao->transf[internacao] = $arr[internacao];
@@ -76,7 +76,7 @@ if (!(isset($ctrl))) { @@ -76,7 +76,7 @@ if (!(isset($ctrl))) {
76 76
77 if ($ctrl >= 2) { 77 if ($ctrl >= 2) {
78 if (isset($ctrlant)) { 78 if (isset($ctrlant)) {
79 - $sessao->transf['cse'][$ctrlant] = $HTTP_POST_VARS; 79 + $sessao->transf['cse'][$ctrlant] = $_POST;
80 } 80 }
81 $aAbas = array(2=>"Prescrição", 3=>"Exames", 4=>"Internações"); 81 $aAbas = array(2=>"Prescrição", 3=>"Exames", 4=>"Internações");
82 //$aAbas = array(2=>"Dados Tratamento", 3=>"Dados Exames", 4=>"Dados Internações"); 82 //$aAbas = array(2=>"Dados Tratamento", 3=>"Dados Exames", 4=>"Dados Internações");
@@ -593,7 +593,7 @@ case 1: @@ -593,7 +593,7 @@ case 1:
593 $js = ""; 593 $js = "";
594 $ok = true; 594 $ok = true;
595 /*** Faz a validação dos campos ***/ 595 /*** Faz a validação dos campos ***/
596 - $sessao->transf['cse'][$ctrlAtual] = $HTTP_POST_VARS; 596 + $sessao->transf['cse'][$ctrlAtual] = $_POST;
597 597
598 //Grava os campos do vetor como variáveis 598 //Grava os campos do vetor como variáveis
599 if (is_array($sessao->transf['cse'][2])) { 599 if (is_array($sessao->transf['cse'][2])) {
gestaoAdministrativa/fontes/PHP/CSE/cse/tratamento/consultaPrescricoes.php
  Diff comments   View file @842bba7
@@ -51,7 +51,7 @@ $Date: 2005-12-01 14:25:34 -0200 (Qui, 01 Dez 2005) $ @@ -51,7 +51,7 @@ $Date: 2005-12-01 14:25:34 -0200 (Qui, 01 Dez 2005) $
51 if ($alterar == 1) { 51 if ($alterar == 1) {
52 $alterar = 0; 52 $alterar = 0;
53 $obj = new cse(); 53 $obj = new cse();
54 - $arr = $obj->retornaTratamento($HTTP_GET_VARS); 54 + $arr = $obj->retornaTratamento($_GET);
55 $sessao->transf['cse'][2] = $arr[cse]; 55 $sessao->transf['cse'][2] = $arr[cse];
56 $sessao->transf[exame] = $arr[exame]; 56 $sessao->transf[exame] = $arr[exame];
57 $sessao->transf[internacao] = $arr[internacao]; 57 $sessao->transf[internacao] = $arr[internacao];
@@ -76,7 +76,7 @@ if (!(isset($ctrl))) { @@ -76,7 +76,7 @@ if (!(isset($ctrl))) {
76 76
77 if ($ctrl >= 2) { 77 if ($ctrl >= 2) {
78 if (isset($ctrlant)) { 78 if (isset($ctrlant)) {
79 - $sessao->transf['cse'][$ctrlant] = $HTTP_POST_VARS; 79 + $sessao->transf['cse'][$ctrlant] = $_POST;
80 } 80 }
81 $aAbas = array(2=>"Prescrição", 3=>"Exames", 4=>"Internações"); 81 $aAbas = array(2=>"Prescrição", 3=>"Exames", 4=>"Internações");
82 //$aAbas = array(2=>"Dados Tratamento", 3=>"Dados Exames", 4=>"Dados Internações"); 82 //$aAbas = array(2=>"Dados Tratamento", 3=>"Dados Exames", 4=>"Dados Internações");
@@ -481,7 +481,7 @@ case 1: @@ -481,7 +481,7 @@ case 1:
481 $js = ""; 481 $js = "";
482 $ok = true; 482 $ok = true;
483 /*** Faz a validação dos campos ***/ 483 /*** Faz a validação dos campos ***/
484 - $sessao->transf['cse'][$ctrlAtual] = $HTTP_POST_VARS; 484 + $sessao->transf['cse'][$ctrlAtual] = $_POST;
485 485
486 //Grava os campos do vetor como variáveis 486 //Grava os campos do vetor como variáveis
487 if (is_array($sessao->transf['cse'][2])) { 487 if (is_array($sessao->transf['cse'][2])) {
gestaoAdministrativa/fontes/PHP/CSE/cse/tratamento/incluiTratamento.php
  Diff comments   View file @842bba7
@@ -61,7 +61,7 @@ if (!(isset($ctrl))) { @@ -61,7 +61,7 @@ if (!(isset($ctrl))) {
61 61
62 if ($ctrl >= 0) { 62 if ($ctrl >= 0) {
63 if (isset($ctrlant)) { 63 if (isset($ctrlant)) {
64 - $sessao->transf['cse'][$ctrlant] = $HTTP_POST_VARS; 64 + $sessao->transf['cse'][$ctrlant] = $_POST;
65 } 65 }
66 $aAbas = array("Prescrição", "Exames", "Internações"); 66 $aAbas = array("Prescrição", "Exames", "Internações");
67 ?> 67 ?>
@@ -492,7 +492,7 @@ case 1: @@ -492,7 +492,7 @@ case 1:
492 $js = "f.controle.value = 0; \n"; 492 $js = "f.controle.value = 0; \n";
493 $ok = true; 493 $ok = true;
494 /*** Faz a validação dos campos ***/ 494 /*** Faz a validação dos campos ***/
495 - $sessao->transf['cse'][$ctrlAtual] = $HTTP_POST_VARS; 495 + $sessao->transf['cse'][$ctrlAtual] = $_POST;
496 496
497 //Grava os campos do vetor como variáveis 497 //Grava os campos do vetor como variáveis
498 if (is_array($sessao->transf['cse'][0])) { 498 if (is_array($sessao->transf['cse'][0])) {
gestaoAdministrativa/fontes/PHP/administracao/administracao/relatorios/relatorioUsuarioMostra.php
  Diff comments   View file @842bba7
@@ -31,7 +31,7 @@ @@ -31,7 +31,7 @@
31 * @author Analista: Cassiano 31 * @author Analista: Cassiano
32 * @author Desenvolvedor: Cassiano 32 * @author Desenvolvedor: Cassiano
33 33
34 - $Id: relatorioUsuarioMostra.php 62978 2015-07-14 14:49:57Z luciana $ 34 + $Id: relatorioUsuarioMostra.php 66022 2016-07-07 20:23:42Z fabio $
35 35
36 Casos de uso: uc-01.03.94 36 Casos de uso: uc-01.03.94
37 37
@@ -57,7 +57,7 @@ $comboSet = $_REQUEST[&#39;comboSet&#39;]; @@ -57,7 +57,7 @@ $comboSet = $_REQUEST[&#39;comboSet&#39;];
57 57
58 if (isset($comboSet)) { 58 if (isset($comboSet)) {
59 59
60 - while ( list( $key, $val ) = each( $HTTP_POST_VARS ) ) { 60 + while ( list( $key, $val ) = each( $_POST ) ) {
61 $variavel = $key; 61 $variavel = $key;
62 $$variavel = $val; 62 $$variavel = $val;
63 $aVarWhere[$key] = $val; 63 $aVarWhere[$key] = $val;
gestaoAdministrativa/fontes/PHP/administracao/classes/funcao/FVenalEdificacao.class.php
  Diff comments   View file @842bba7
@@ -71,7 +71,7 @@ function executaFuncao(&amp;$rsRecordset, $stParametros, $boTransacao = &quot;&quot;) @@ -71,7 +71,7 @@ function executaFuncao(&amp;$rsRecordset, $stParametros, $boTransacao = &quot;&quot;)
71 71
72 $stSql = $this->montaExecutaFuncao($stParametros); 72 $stSql = $this->montaExecutaFuncao($stParametros);
73 $this->setDebug($stSql); 73 $this->setDebug($stSql);
74 - $obErro = $obConexao->executaSQL( &$rsRecordset, $stSql, $boTransacao ); 74 + $obErro = $obConexao->executaSQL( $rsRecordset, $stSql, $boTransacao );
75 75
76 return $obErro; 76 return $obErro;
77 } 77 }
gestaoAdministrativa/fontes/PHP/administracao/classes/funcao/FVenalTerreno.class.php
  Diff comments   View file @842bba7
@@ -71,7 +71,7 @@ function executaFuncao(&amp;$rsRecordset, $stParametros, $boTransacao = &quot;&quot;) @@ -71,7 +71,7 @@ function executaFuncao(&amp;$rsRecordset, $stParametros, $boTransacao = &quot;&quot;)
71 71
72 $stSql = $this->montaExecutaFuncao($stParametros); 72 $stSql = $this->montaExecutaFuncao($stParametros);
73 $this->setDebug($stSql); 73 $this->setDebug($stSql);
74 - $obErro = $obConexao->executaSQL( &$rsRecordset, $stSql, $boTransacao ); 74 + $obErro = $obConexao->executaSQL( $rsRecordset, $stSql, $boTransacao );
75 75
76 return $obErro; 76 return $obErro;
77 } 77 }
gestaoAdministrativa/fontes/PHP/administracao/instancias/geradorcalculo/PRPopupAtribuicaoSimples.php
  Diff comments   View file @842bba7
@@ -90,7 +90,7 @@ switch ($stAcao) { @@ -90,7 +90,7 @@ switch ($stAcao) {
90 $obErro->setDescricao("Erro de Sintaxe. Revise a documentação."); 90 $obErro->setDescricao("Erro de Sintaxe. Revise a documentação.");
91 } 91 }
92 unset($$stVariavelInicial); 92 unset($$stVariavelInicial);
93 - if (ereg($stCondicao, '$')) { 93 + if (preg_match("/".$stCondicao."/", '$')) {
94 unset($$stCondicao); 94 unset($$stCondicao);
95 } 95 }
96 96
@@ -154,7 +154,7 @@ switch ($stAcao) { @@ -154,7 +154,7 @@ switch ($stAcao) {
154 $obErro->setDescricao("Erro de Sintaxe. Revise a documentação."); 154 $obErro->setDescricao("Erro de Sintaxe. Revise a documentação.");
155 } 155 }
156 unset($$stVariavelInicial); 156 unset($$stVariavelInicial);
157 - if (ereg($stCondicao, '$')) { 157 + if (preg_match("/".$stCondicao."/", '$')) {
158 unset($$stCondicao); 158 unset($$stCondicao);
159 } 159 }
160 160
gestaoAdministrativa/fontes/PHP/framework/URBEM/SessaoLegada.class.php
  Diff comments   View file @842bba7
@@ -214,8 +214,8 @@ class SessaoLegada @@ -214,8 +214,8 @@ class SessaoLegada
214 { 214 {
215 //session_start(); //inicializa a sessão 215 //session_start(); //inicializa a sessão
216 $this->id = "PHPSESSID=".session_id(); 216 $this->id = "PHPSESSID=".session_id();
217 - if(session_is_registered("sessao")) //Testa/Registra/Valida a Sessão  
218 217
  218 + if(isset($_SESSION['sessao']))
219 return true; 219 return true;
220 else 220 else
221 return false; 221 return false;
@@ -224,13 +224,8 @@ class SessaoLegada @@ -224,13 +224,8 @@ class SessaoLegada
224 /*** Método de Destruição de Sessão ***/ 224 /*** Método de Destruição de Sessão ***/
225 public function destroiSessao() 225 public function destroiSessao()
226 { 226 {
227 - if (session_unregister("sessao")) { //Destrói as variáveis da sessão  
228 - session_destroy(); //Destrói a sessão  
229 -  
230 - return true;  
231 - } else {  
232 - return false;  
233 - } 227 + unset($_SESSION['sessao']); //Destrói as variáveis da sessão
  228 + session_destroy(); //Destrói a sessão
234 } 229 }
235 230
236 /*** Método de Geração do número randômico - Jorge***/ 231 /*** Método de Geração do número randômico - Jorge***/
gestaoAdministrativa/fontes/PHP/framework/bancoDados/postgreSQL/Conexao.class.php
  Diff comments   View file @842bba7
@@ -558,8 +558,8 @@ class Conexao extends Objeto @@ -558,8 +558,8 @@ class Conexao extends Objeto
558 558
559 } 559 }
560 /* retira ordenação */ 560 /* retira ordenação */
561 - $stRegex = "ORDER BY.*";  
562 - $stSql = eregi_replace($stRegex, '', $stSql); 561 + $stRegex = "/ORDER BY.*/i";
  562 + $stSql = preg_replace($stRegex, '', $stSql);
563 /* coloca ordenção determinada pelo componente */ 563 /* coloca ordenção determinada pelo componente */
564 $stSql.= " order by " . $GridPaging['sort'] . " " . $GridPaging['dir']; 564 $stSql.= " order by " . $GridPaging['sort'] . " " . $GridPaging['dir'];
565 /* adiciona limit, offset a consulta para fazer pagina */ 565 /* adiciona limit, offset a consulta para fazer pagina */
gestaoAdministrativa/fontes/PHP/framework/componentes/ExpReg/ExpReg.class.php
  Diff comments   View file @842bba7
@@ -91,7 +91,7 @@ function ExpReg($stExpReg = &quot;&quot;, $stContexto = &quot;&quot;) @@ -91,7 +91,7 @@ function ExpReg($stExpReg = &quot;&quot;, $stContexto = &quot;&quot;)
91 */ 91 */
92 function executarEreg($stExpReg, $stContexto) 92 function executarEreg($stExpReg, $stContexto)
93 { 93 {
94 - return eregi( $stExpReg, $stContexto ); 94 + return preg_match( "/".$stExpReg."/i", $stContexto );
95 } 95 }
96 96
97 /** 97 /**
@@ -144,7 +144,7 @@ function buscarOcorrencias() @@ -144,7 +144,7 @@ function buscarOcorrencias()
144 */ 144 */
145 function alterarOcorrencias($stAlterar) 145 function alterarOcorrencias($stAlterar)
146 { 146 {
147 - return ereg_replace( $this->getExpReg(), $stAlterar, $this->getContexto() ); 147 + return preg_replace( "/".$this->getExpReg()."/", $stAlterar, $this->getContexto() );
148 } 148 }
149 /** 149 /**
150 * Remove a Ocorrencia de uma Expressão Regular 150 * Remove a Ocorrencia de uma Expressão Regular
@@ -160,6 +160,6 @@ function removerOcorrencias() @@ -160,6 +160,6 @@ function removerOcorrencias()
160 */ 160 */
161 function explodirContexto() 161 function explodirContexto()
162 { 162 {
163 - return split( $this->getExpReg(), $this->getContexto() ); 163 + return preg_split( "/".$this->getExpReg()."/", $this->getContexto() );
164 } 164 }
165 } 165 }
gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/Arvore.class.php
  Diff comments   View file @842bba7
@@ -262,7 +262,7 @@ function verificaFilhos($stElemento) @@ -262,7 +262,7 @@ function verificaFilhos($stElemento)
262 } 262 }
263 if ($boOk) { 263 if ($boOk) {
264 // Testa a versão do PHP e clona o objeto, se necessário. 264 // Testa a versão do PHP e clona o objeto, se necessário.
265 - $rsRecordSet = version_compare(phpversion(), '5.0') < 0 ? $this->rsRecordSet : clone($this->rsRecordSet); 265 + $rsRecordSet = clone $this->rsRecordSet;
266 $rsRecordSet->setCorrente( $this->rsRecordSet->getCorrente()+1 ); 266 $rsRecordSet->setCorrente( $this->rsRecordSet->getCorrente()+1 );
267 while ( !$rsRecordSet->eof() ) { 267 while ( !$rsRecordSet->eof() ) {
268 $stCampo = $rsRecordSet->getCampo( $this->stNameReduzido ); 268 $stCampo = $rsRecordSet->getCampo( $this->stNameReduzido );
@@ -446,7 +446,7 @@ function montaHTML() @@ -446,7 +446,7 @@ function montaHTML()
446 for ($iCount=$inicio; $iCount<$contador; $iCount++) { 446 for ($iCount=$inicio; $iCount<$contador; $iCount++) {
447 $stValueTMP = explode ("-", $stValue); 447 $stValueTMP = explode ("-", $stValue);
448 $stValueTMP = $stValueTMP[0]; 448 $stValueTMP = $stValueTMP[0];
449 - $stValueTMP = ereg_replace ("[0-9]","0",$stValueTMP); 449 + $stValueTMP = preg_replace ("/[0-9]/","0",$stValueTMP);
450 450
451 //Insere no array de Todos o codigo reduzido e o nome da variavel do orgão 451 //Insere no array de Todos o codigo reduzido e o nome da variavel do orgão
452 $arTodos[implode('.',$arCampoReduzido)] = implode('_',$arCampoReduzido).'_'.$iCount; 452 $arTodos[implode('.',$arCampoReduzido)] = implode('_',$arCampoReduzido).'_'.$iCount;
@@ -469,7 +469,7 @@ function montaHTML() @@ -469,7 +469,7 @@ function montaHTML()
469 469
470 $stValueTMP = explode ("-", $stValue); 470 $stValueTMP = explode ("-", $stValue);
471 $stValueTMP = $stValueTMP[0]; 471 $stValueTMP = $stValueTMP[0];
472 - $stValueTMP = ereg_replace ("[0-9]","0",$stValueTMP); 472 + $stValueTMP = preg_replace ("/[0-9]/","0",$stValueTMP);
473 473
474 //Verifica se este registro nulo já foi criado, caso tenha sido ele ignora este código 474 //Verifica se este registro nulo já foi criado, caso tenha sido ele ignora este código
475 if (!$arTodosNulos[$nome3Aux . $stNomeInicial]) { 475 if (!$arTodosNulos[$nome3Aux . $stNomeInicial]) {
gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/Lista.class.php
  Diff comments   View file @842bba7
@@ -32,7 +32,7 @@ @@ -32,7 +32,7 @@
32 * @package framework 32 * @package framework
33 * @subpackage componentes 33 * @subpackage componentes
34 34
35 -* $Id: Lista.class.php 64224 2015-12-21 11:43:42Z luciana $ 35 +* $Id: Lista.class.php 66022 2016-07-07 20:23:42Z fabio $
36 36
37 * Casos de uso: uc-01.01.00 37 * Casos de uso: uc-01.01.00
38 38
@@ -817,11 +817,11 @@ function montaHTML() @@ -817,11 +817,11 @@ function montaHTML()
817 } 817 }
818 818
819 //FIXME : correcao temporaria para php4 e 5 819 //FIXME : correcao temporaria para php4 e 5
820 - $arObDado = version_compare(phpversion(), '5.0') < 0 ? $arObDado : clone($arObDado); 820 + $arObDado = clone $arObDado;
821 821
822 if (strtolower(get_class($arObDado))=='dadocomponente') { 822 if (strtolower(get_class($arObDado))=='dadocomponente') {
823 //FIXME : correcao temporaria para php4 e 5 823 //FIXME : correcao temporaria para php4 e 5
824 - $arObDado->obComponenteLista = version_compare(phpversion(), '5.0') < 0 ? $arObDado->obComponenteLista : clone($arObDado->obComponenteLista); 824 + $arObDado->obComponenteLista = clone $arObDado->obComponenteLista;
825 825
826 // VERIFICACAO DE EDICAO OU NAO DOS COMPONENTES INCLUÍDOS NA LISTA // 826 // VERIFICACAO DE EDICAO OU NAO DOS COMPONENTES INCLUÍDOS NA LISTA //
827 if ( $obRecordSet->getCampo('disabled') != '' ) { 827 if ( $obRecordSet->getCampo('disabled') != '' ) {
@@ -1021,7 +1021,7 @@ function montaHTML() @@ -1021,7 +1021,7 @@ function montaHTML()
1021 $stAcao = ""; 1021 $stAcao = "";
1022 if ( count( $arAcao ) ) { 1022 if ( count( $arAcao ) ) {
1023 foreach ($arAcao as $obAcao) { 1023 foreach ($arAcao as $obAcao) {
1024 - $obAcao = version_compare(phpversion(), '5.0') < 0 ? $obAcao : clone($obAcao); 1024 + $obAcao = clone $obAcao;
1025 1025
1026 $arLink = $obAcao->getCampo(); 1026 $arLink = $obAcao->getCampo();
1027 $stLink = ""; 1027 $stLink = "";
gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/MontaAtributos.class.php
  Diff comments   View file @842bba7
@@ -34,7 +34,7 @@ @@ -34,7 +34,7 @@
34 * @package framework 34 * @package framework
35 * @subpackage componentes 35 * @subpackage componentes
36 36
37 -$Id: MontaAtributos.class.php 61767 2015-03-03 12:28:44Z luciana $ 37 +$Id: MontaAtributos.class.php 66022 2016-07-07 20:23:42Z fabio $
38 38
39 Casos de uso: uc-01.01.00 39 Casos de uso: uc-01.01.00
40 40
@@ -239,6 +239,7 @@ function geraFormulario(&amp;$obFormulario) @@ -239,6 +239,7 @@ function geraFormulario(&amp;$obFormulario)
239 $obAtributo->setMaxLength ( 500 ); 239 $obAtributo->setMaxLength ( 500 );
240 $obAtributo->setNull ( ($this->rsRecordSet->getCampo('nao_nulo')=='t')?true:false ); 240 $obAtributo->setNull ( ($this->rsRecordSet->getCampo('nao_nulo')=='t')?true:false );
241 $obAtributo->setLabel (($this->rsRecordSet->getCampo('label')==true)?true:false); 241 $obAtributo->setLabel (($this->rsRecordSet->getCampo('label')==true)?true:false);
  242 + $obAtributo->setTitle ($this->rsRecordSet->getCampo('ajuda'));
242 break; 243 break;
243 //case 'Texto': 244 //case 'Texto':
244 case '2': 245 case '2':
@@ -258,6 +259,7 @@ function geraFormulario(&amp;$obFormulario) @@ -258,6 +259,7 @@ function geraFormulario(&amp;$obFormulario)
258 $obAtributo->setNull ( ($this->rsRecordSet->getCampo('nao_nulo')=='t')?true:false ); 259 $obAtributo->setNull ( ($this->rsRecordSet->getCampo('nao_nulo')=='t')?true:false );
259 $obAtributo->setMascara ( $this->rsRecordSet->getCampo('mascara') ); 260 $obAtributo->setMascara ( $this->rsRecordSet->getCampo('mascara') );
260 $obAtributo->setLabel (($this->rsRecordSet->getCampo('label')==true)?true:false); 261 $obAtributo->setLabel (($this->rsRecordSet->getCampo('label')==true)?true:false);
  262 + $obAtributo->setTitle ($this->rsRecordSet->getCampo('ajuda'));
261 break; 263 break;
262 //case 'Lista': 264 //case 'Lista':
263 case '3': 265 case '3':
gestaoAdministrativa/fontes/PHP/framework/componentes/PDF/DocumentoDinamico.class.php
  Diff comments   View file @842bba7
@@ -74,7 +74,7 @@ class DocumentoDinamico extends FPDF @@ -74,7 +74,7 @@ class DocumentoDinamico extends FPDF
74 $this->wLine=$w; 74 $this->wLine=$w;
75 $this->hLine=$h; 75 $this->hLine=$h;
76 $this->Text=trim($txt); 76 $this->Text=trim($txt);
77 - $this->Text=ereg_replace("\n|\r|\t","",$this->Text); 77 + $this->Text=preg_replace("/\n|\r|\t/","",$this->Text);
78 $this->border=$border; 78 $this->border=$border;
79 $this->align=$align; 79 $this->align=$align;
80 $this->fill=$fill; 80 $this->fill=$fill;
@@ -121,7 +121,7 @@ class DocumentoDinamico extends FPDF @@ -121,7 +121,7 @@ class DocumentoDinamico extends FPDF
121 121
122 public function Padding() 122 public function Padding()
123 { 123 {
124 - if (ereg("^.+,",$this->Padding)) { 124 + if (preg_match("/^.+,/",$this->Padding)) {
125 $tab=explode(",",$this->Padding); 125 $tab=explode(",",$this->Padding);
126 $this->lPadding=$tab[0]; 126 $this->lPadding=$tab[0];
127 $this->tPadding=$tab[1]; 127 $this->tPadding=$tab[1];
@@ -213,11 +213,11 @@ class DocumentoDinamico extends FPDF @@ -213,11 +213,11 @@ class DocumentoDinamico extends FPDF
213 if($style1=="N") 213 if($style1=="N")
214 break; 214 break;
215 else { 215 else {
216 - if(ereg("B",$style1)) 216 + if(preg_match("/B/",$style1))
217 $style['b']="B"; 217 $style['b']="B";
218 - if(ereg("I",$style1)) 218 + if(preg_match("/I/",$style1))
219 $style['i']="I"; 219 $style['i']="I";
220 - if(ereg("U",$style1)) 220 + if(preg_match("/U/",$style1))
221 $style['u']="U"; 221 $style['u']="U";
222 } 222 }
223 } 223 }
@@ -264,19 +264,19 @@ class DocumentoDinamico extends FPDF @@ -264,19 +264,19 @@ class DocumentoDinamico extends FPDF
264 { 264 {
265 $tab=array(); 265 $tab=array();
266 // Closing tag 266 // Closing tag
267 - if (ereg("^(</([^>]+)>).*",$text,$regs)) { 267 + if (preg_match("/^(<\/([^>]+)>).*/",$text,$regs)) {
268 $tab[1]="c"; 268 $tab[1]="c";
269 $tab[2]=trim($regs[2]); 269 $tab[2]=trim($regs[2]);
270 } 270 }
271 // Opening tag 271 // Opening tag
272 - else if (ereg("^(<([^>]+)>).*",$text,$regs)) {  
273 - $regs[2]=ereg_replace("^a","a ",$regs[2]); 272 + else if (preg_match("/^(<([^>]+)>).*/",$text,$regs)) {
  273 + $regs[2]=preg_replace("/^a/","a ",$regs[2]);
274 $tab[1]="o"; 274 $tab[1]="o";
275 $tab[2]=trim($regs[2]); 275 $tab[2]=trim($regs[2]);
276 276
277 // Presence of attributes 277 // Presence of attributes
278 - if (ereg("(.+) (.+)='(.+)' *",$regs[2])) {  
279 - $tab1=split(" +",$regs[2]); 278 + if (preg_match("/(.+) (.+)='(.+)' */",$regs[2])) {
  279 + $tab1=preg_split("/ +/",$regs[2]);
280 $tab[2]=trim($tab1[0]); 280 $tab[2]=trim($tab1[0]);
281 while (list($i,$couple)=each($tab1)) { 281 while (list($i,$couple)=each($tab1)) {
282 if ($i>0) { 282 if ($i>0) {
@@ -290,12 +290,12 @@ class DocumentoDinamico extends FPDF @@ -290,12 +290,12 @@ class DocumentoDinamico extends FPDF
290 } 290 }
291 } 291 }
292 // Space 292 // Space
293 - else if (ereg("^( ).*",$text,$regs)) { 293 + else if (preg_match("/^( ).*/",$text,$regs)) {
294 $tab[1]="s"; 294 $tab[1]="s";
295 $tab[2]=$regs[1]; 295 $tab[2]=$regs[1];
296 } 296 }
297 // Text 297 // Text
298 - else if (ereg("^([^< ]+).*",$text,$regs)) { 298 + else if (preg_match("/^([^< ]+).*/",$text,$regs)) {
299 $tab[1]="t"; 299 $tab[1]="t";
300 $tab[2]=trim($regs[1]); 300 $tab[2]=trim($regs[1]);
301 } 301 }
@@ -401,7 +401,7 @@ class DocumentoDinamico extends FPDF @@ -401,7 +401,7 @@ class DocumentoDinamico extends FPDF
401 $i=0; 401 $i=0;
402 } else { 402 } else {
403 preg_match( "/^(( *(<([^>]+)>)* *)*)(.*)/",$this->Text,$regs); 403 preg_match( "/^(( *(<([^>]+)>)* *)*)(.*)/",$this->Text,$regs);
404 - $regs[1]=ereg_replace(" ", "", $regs[1]); 404 + $regs[1]=preg_replace("/ /", "", $regs[1]);
405 $this->Text=$regs[1].$regs[5]; 405 $this->Text=$regs[1].$regs[5];
406 $i=-1; 406 $i=-1;
407 } 407 }
gestaoAdministrativa/fontes/PHP/framework/componentes/PDF/RRelatorioAgata.class.php
  Diff comments   View file @842bba7
@@ -111,7 +111,7 @@ var $stArquivoSxw; @@ -111,7 +111,7 @@ var $stArquivoSxw;
111 111
112 $obTConfiguracao->setDado( "exercicio" , $sessao>exercicio ); 112 $obTConfiguracao->setDado( "exercicio" , $sessao>exercicio );
113 foreach ($arPropriedades as $stParametro => $stValor) { 113 foreach ($arPropriedades as $stParametro => $stValor) {
114 - $obErro = $obTConfiguracao->pegaConfiguracao(&$stValor, $stParametro ); 114 + $obErro = $obTConfiguracao->pegaConfiguracao($stValor, $stParametro );
115 $arConfiguracao[$stParametro] = $stValor; 115 $arConfiguracao[$stParametro] = $stValor;
116 if ( $obErro->ocorreu() ) { 116 if ( $obErro->ocorreu() ) {
117 break; 117 break;
@@ -186,7 +186,7 @@ var $stArquivoSxw; @@ -186,7 +186,7 @@ var $stArquivoSxw;
186 186
187 $obTConfiguracao->setDado( "exercicio" , $sessao>exercicio ); 187 $obTConfiguracao->setDado( "exercicio" , $sessao>exercicio );
188 foreach ($arPropriedades as $stParametro => $stValor) { 188 foreach ($arPropriedades as $stParametro => $stValor) {
189 - $obErro = $obTConfiguracao->pegaConfiguracao(&$stValor, $stParametro ); 189 + $obErro = $obTConfiguracao->pegaConfiguracao($stValor, $stParametro );
190 $arConfiguracao[$stParametro] = $stValor; 190 $arConfiguracao[$stParametro] = $stValor;
191 if ( $obErro->ocorreu() ) { 191 if ( $obErro->ocorreu() ) {
192 break; 192 break;
@@ -341,7 +341,7 @@ var $stArquivoSxw; @@ -341,7 +341,7 @@ var $stArquivoSxw;
341 $obTAdministracaoModeloArquivosDocumentos = new TAdministracaoModeloArquivosDocumento(); 341 $obTAdministracaoModeloArquivosDocumentos = new TAdministracaoModeloArquivosDocumento();
342 $obTAdministracaoModeloArquivosDocumentos->setDado('cod_acao',$inCodAcao); 342 $obTAdministracaoModeloArquivosDocumentos->setDado('cod_acao',$inCodAcao);
343 $obTAdministracaoModeloArquivosDocumentos->setDado('cod_documento',$inCodDocumento); 343 $obTAdministracaoModeloArquivosDocumentos->setDado('cod_documento',$inCodDocumento);
344 - $obTAdministracaoModeloArquivosDocumentos->recuperaDocumentos(&$rsRecordSet); 344 + $obTAdministracaoModeloArquivosDocumentos->recuperaDocumentos($rsRecordSet);
345 345
346 return $rsRecordSet; 346 return $rsRecordSet;
347 } 347 }
gestaoAdministrativa/fontes/PHP/framework/componentes/mascara/Mascara.class.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * @package framework 33 * @package framework
34 * @subpackage componentes 34 * @subpackage componentes
35 35
36 -$Id: Mascara.class.php 64025 2015-11-20 14:41:43Z luciana $ 36 +$Id: Mascara.class.php 66022 2016-07-07 20:23:42Z fabio $
37 37
38 Casos de uso: uc-01.01.00 38 Casos de uso: uc-01.01.00
39 */ 39 */
@@ -112,9 +112,9 @@ function converterParaExpressaoRegular($prm) @@ -112,9 +112,9 @@ function converterParaExpressaoRegular($prm)
112 $parametro = $prm; 112 $parametro = $prm;
113 $tamanho = strlen($parametro); 113 $tamanho = strlen($parametro);
114 for ($x=0;$x<$tamanho;$x++) { 114 for ($x=0;$x<$tamanho;$x++) {
115 - if (eregi('[a-z]',$parametro[$x])) { 115 + if (preg_match('/[a-z]/',$parametro[$x])) {
116 $expReg .= "[A-".$parametro[$x]."]"; 116 $expReg .= "[A-".$parametro[$x]."]";
117 - } elseif (eregi('[0-9]',$parametro[$x])) { 117 + } elseif (preg_match('/[0-9]/',$parametro[$x])) {
118 $expReg .= "[0-".$parametro[$x]."]"; 118 $expReg .= "[0-".$parametro[$x]."]";
119 } else { 119 } else {
120 $expReg .= '\\'.$parametro[$x]; 120 $expReg .= '\\'.$parametro[$x];
gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportador.class.php
  Diff comments   View file @842bba7
@@ -30,7 +30,7 @@ @@ -30,7 +30,7 @@
30 * @author Desenvolvedor: Cassiano de Vasconcellos Ferreira 30 * @author Desenvolvedor: Cassiano de Vasconcellos Ferreira
31 * @author Documentor: Cassiano de Vasconcellos Ferreira 31 * @author Documentor: Cassiano de Vasconcellos Ferreira
32 32
33 - $Id: ArquivoExportador.class.php 65369 2016-05-17 11:50:21Z fabio $ 33 + $Id: ArquivoExportador.class.php 66167 2016-07-25 12:46:20Z fabio $
34 34
35 * @package framework 35 * @package framework
36 * @subpackage componentes 36 * @subpackage componentes
@@ -448,7 +448,7 @@ function FormataTipoDocumento() @@ -448,7 +448,7 @@ function FormataTipoDocumento()
448 break; 448 break;
449 case 'TCM_GO': 449 case 'TCM_GO':
450 // Array arquivo sequencial automático 450 // Array arquivo sequencial automático
451 - $arArquivoSequencial = array( "HML", "ABL", "HBL", "JGL"); 451 + $arArquivoSequencial = array( "HML", "ABL", "HBL", "JGL", "AEX");
452 $arArquivo = explode('_',$this->getNomeArquivo()); 452 $arArquivo = explode('_',$this->getNomeArquivo());
453 $arArquivo = explode('.',$arArquivo[1]); 453 $arArquivo = explode('.',$arArquivo[1]);
454 454
gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportadorBlocoColuna.class.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * @package framework 33 * @package framework
34 * @subpackage componentes 34 * @subpackage componentes
35 35
36 -$Id: ArquivoExportadorBlocoColuna.class.php 65369 2016-05-17 11:50:21Z fabio $ 36 +$Id: ArquivoExportadorBlocoColuna.class.php 66022 2016-07-07 20:23:42Z fabio $
37 37
38 Casos de uso: uc-01.01.00 38 Casos de uso: uc-01.01.00
39 */ 39 */
@@ -264,6 +264,17 @@ function FormataTipoDado($stCampo) @@ -264,6 +264,17 @@ function FormataTipoDado($stCampo)
264 $stCampo = str_replace("\r\n"," ",$stCampo); 264 $stCampo = str_replace("\r\n"," ",$stCampo);
265 $stCampo = str_replace("\n"," ",$stCampo); 265 $stCampo = str_replace("\n"," ",$stCampo);
266 $stCampo = str_replace(chr(10)," ",$stCampo); 266 $stCampo = str_replace(chr(10)," ",$stCampo);
  267 +
  268 + switch ( trim($this->roBloco->roArquivo->getTipoDocumento()) ) {
  269 + case "TCE_MG":
  270 + $stCampo = preg_replace ("[;]", "", $stCampo);
  271 + if ( $stCampo == '' ) {
  272 + $stCampo = ' ';
  273 + } else if ( $stCampo == null ) {
  274 + $stCampo = ' ';
  275 + }
  276 + break;
  277 + }
267 break; 278 break;
268 case "NUMERICO_ZEROS_ESQ": 279 case "NUMERICO_ZEROS_ESQ":
269 $this->stAlinhamento = 'D'; 280 $this->stAlinhamento = 'D';
gestaoAdministrativa/fontes/PHP/framework/importacao/ArquivoImportadorColuna.class.php
  Diff comments   View file @842bba7
@@ -201,7 +201,7 @@ function Validar($stCampo) @@ -201,7 +201,7 @@ function Validar($stCampo)
201 } 201 }
202 break; 202 break;
203 case "INTEIRO": 203 case "INTEIRO":
204 - if (!ereg ("^[0-9]{1,10}$",$stCampo) || $stCampo > 2147483647 ) { 204 + if (!preg_match ("/^[0-9]{1,10}$/",$stCampo) || $stCampo > 2147483647 ) {
205 $this->roArquivoImportador->obErro->setDescricao('O tipo de dado da coluna '.$this->stCampo.' do arquivo '.$this->roArquivoImportador->getNomeArquivo().' não confere. '); 205 $this->roArquivoImportador->obErro->setDescricao('O tipo de dado da coluna '.$this->stCampo.' do arquivo '.$this->roArquivoImportador->getNomeArquivo().' não confere. ');
206 } 206 }
207 break; 207 break;
@@ -210,7 +210,7 @@ function Validar($stCampo) @@ -210,7 +210,7 @@ function Validar($stCampo)
210 if ( count($arTamanho)<=1 ) { 210 if ( count($arTamanho)<=1 ) {
211 $this->roArquivoImportador->obErro->setDescricao("Utilize o tipo INTEIRO ou informe o tamanho com formato numérico. Ex: 15.4"); 211 $this->roArquivoImportador->obErro->setDescricao("Utilize o tipo INTEIRO ou informe o tamanho com formato numérico. Ex: 15.4");
212 } else { 212 } else {
213 - if (!ereg ("^[0-9]{1,".($arTamanho[0]-$arTamanho[1])."}([.][0-9]{1,".$arTamanho[1]."}){0,}$",$stCampo) ) { 213 + if (!preg_match ("/^[0-9]{1,".($arTamanho[0]-$arTamanho[1])."}([.][0-9]{1,".$arTamanho[1]."}){0,}$/",$stCampo) ) {
214 $this->roArquivoImportador->obErro->setDescricao('O tipo de dado da coluna '.$this->stCampo.' do arquivo '.$this->roArquivoImportador->getNomeArquivo().' não confere. '); 214 $this->roArquivoImportador->obErro->setDescricao('O tipo de dado da coluna '.$this->stCampo.' do arquivo '.$this->roArquivoImportador->getNomeArquivo().' não confere. ');
215 } 215 }
216 } 216 }
gestaoAdministrativa/fontes/PHP/framework/importacao/teste.php
  Diff comments   View file @842bba7
@@ -23,7 +23,7 @@ @@ -23,7 +23,7 @@
23 */ 23 */
24 ?> 24 ?>
25 <?php 25 <?php
26 - if ( ereg ("^[0-9]{1,10}([.][0-9]{1,4}) {0,}$","1.1 ") ) 26 + if ( preg_match ("/^[0-9]{1,10}([.][0-9]{1,4}) {0,}$/","1.1 ") )
27 echo "true"; 27 echo "true";
28 else 28 else
29 echo "false"; 29 echo "false";
gestaoAdministrativa/fontes/PHP/framework/instancias/index/msgs.php
  Diff comments   View file @842bba7
@@ -38,7 +38,7 @@ Casos de uso: uc-01.01.00 @@ -38,7 +38,7 @@ Casos de uso: uc-01.01.00
38 38
39 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; 39 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
40 include_once (CAM_FW_LEGADO."dataBaseLegado.class.php" ); 40 include_once (CAM_FW_LEGADO."dataBaseLegado.class.php" );
41 -if (!(session_is_registered("sessao"))) { 41 +if (!(isset($_SESSION['sessao']))) {
42 header( "location:login.php?".Sessao::getId()."&erro=2" ); 42 header( "location:login.php?".Sessao::getId()."&erro=2" );
43 } 43 }
44 ?> 44 ?>
gestaoAdministrativa/fontes/PHP/framework/legado/cabecalho.php
  Diff comments   View file @842bba7
@@ -39,7 +39,7 @@ Casos de uso: uc-01.01.00 @@ -39,7 +39,7 @@ Casos de uso: uc-01.01.00
39 error_reporting(); 39 error_reporting();
40 //------- PHP TRACK VARS ---------------------------------// 40 //------- PHP TRACK VARS ---------------------------------//
41 //Captura variávis do POST 41 //Captura variávis do POST
42 -$posts = $HTTP_POST_VARS; 42 +$posts = $_POST;
43 if (is_array($posts)) { 43 if (is_array($posts)) {
44 while (list($keyPost,$valPost) = each($posts)) { 44 while (list($keyPost,$valPost) = each($posts)) {
45 $valorPost = $valPost; 45 $valorPost = $valPost;
@@ -48,7 +48,7 @@ if (is_array($posts)) { @@ -48,7 +48,7 @@ if (is_array($posts)) {
48 } 48 }
49 49
50 //Captura variávis do GET 50 //Captura variávis do GET
51 -$gets = $HTTP_GET_VARS; 51 +$gets = $_GET;
52 if (is_array($gets)) { 52 if (is_array($gets)) {
53 while (list($keyGets,$valGets) = each($gets)) { 53 while (list($keyGets,$valGets) = each($gets)) {
54 $valorGets = $valGets; 54 $valorGets = $valGets;
@@ -56,7 +56,7 @@ if (is_array($gets)) { @@ -56,7 +56,7 @@ if (is_array($gets)) {
56 } 56 }
57 } 57 }
58 //Captura variávis dos COOKIES 58 //Captura variávis dos COOKIES
59 -$cookies = $HTTP_COOKIE_VARS; 59 +$cookies = $_COOKIE;
60 if (is_array($cookies)) { 60 if (is_array($cookies)) {
61 while (list($keyCookies,$valCookies) = each($cookies)) { 61 while (list($keyCookies,$valCookies) = each($cookies)) {
62 $valorCookies = $valCookies; 62 $valorCookies = $valCookies;
@@ -64,7 +64,7 @@ if (is_array($cookies)) { @@ -64,7 +64,7 @@ if (is_array($cookies)) {
64 } 64 }
65 } 65 }
66 //Captura variávis do SESSION 66 //Captura variávis do SESSION
67 -$sessions = $HTTP_SESSION_VARS; 67 +$sessions = $_SESSION;
68 if (is_array($sessions)) { 68 if (is_array($sessions)) {
69 while (list($keySessions,$valSessions) = each($sessions)) { 69 while (list($keySessions,$valSessions) = each($sessions)) {
70 $valorSessions = $valSessions; 70 $valorSessions = $valSessions;
@@ -212,7 +212,7 @@ if ($codigomodulo != 0) { @@ -212,7 +212,7 @@ if ($codigomodulo != 0) {
212 ?> 212 ?>
213 </head><body leftmargin=0 topmargin=0> 213 </head><body leftmargin=0 topmargin=0>
214 <?php 214 <?php
215 -if (!(session_is_registered("sessao"))) 215 +if (!(isset($_SESSION["sessao"])))
216 echo "<script type='text/javascript'> 216 echo "<script type='text/javascript'>
217 window.location='".$stCaminho."index.php' 217 window.location='".$stCaminho."index.php'
218 </script>"; 218 </script>";
gestaoAdministrativa/fontes/PHP/framework/legado/pdf/relatorioPdfLegado.class.php
  Diff comments   View file @842bba7
@@ -112,7 +112,7 @@ class relatorioPdfLegado @@ -112,7 +112,7 @@ class relatorioPdfLegado
112 public function carregaDados() 112 public function carregaDados()
113 { 113 {
114 $this->xml_parser = xml_parser_create(); 114 $this->xml_parser = xml_parser_create();
115 - xml_set_object($this->xml_parser,&$this); 115 + xml_set_object($this->xml_parser,$this);
116 xml_set_element_handler($this->xml_parser, "elementoInicio", "elementoFim"); 116 xml_set_element_handler($this->xml_parser, "elementoInicio", "elementoFim");
117 117
118 if (!($fp = fopen($this->sScriptFile, "r"))) { 118 if (!($fp = fopen($this->sScriptFile, "r"))) {
gestaoAdministrativa/fontes/PHP/framework/legado/sessaoLegado.class.php
  Diff comments   View file @842bba7
@@ -210,8 +210,8 @@ class sessao @@ -210,8 +210,8 @@ class sessao
210 { 210 {
211 session_start(); //inicializa a sessão 211 session_start(); //inicializa a sessão
212 $this->id = "PHPSESSID=".session_id(); 212 $this->id = "PHPSESSID=".session_id();
213 - if(session_is_registered("sessao")) //Testa/Registra/Valida a Sessão  
214 213
  214 + if(isset($_SESSION['sessao']))
215 return true; 215 return true;
216 else 216 else
217 return false; 217 return false;
@@ -220,13 +220,8 @@ class sessao @@ -220,13 +220,8 @@ class sessao
220 /*** Método de Destruição de Sessão ***/ 220 /*** Método de Destruição de Sessão ***/
221 public function destroiSessao() 221 public function destroiSessao()
222 { 222 {
223 - if (session_unregister("sessao")) { //Destrói as variáveis da sessão  
224 - session_destroy(); //Destrói a sessão  
225 -  
226 - return true;  
227 - } else {  
228 - return false;  
229 - } 223 + unset($_SESSION['sessao']); //Destrói as variáveis da sessão
  224 + session_destroy(); //Destrói a sessão
230 } 225 }
231 226
232 /*** Método de Geração do número randômico - Jorge***/ 227 /*** Método de Geração do número randômico - Jorge***/
@@ -235,9 +230,9 @@ class sessao @@ -235,9 +230,9 @@ class sessao
235 $aux = explode("&",$this->id); 230 $aux = explode("&",$this->id);
236 $sAux = $aux[0]; 231 $sAux = $aux[0];
237 $sRnd = "&iURLRandomica=".hoje(true).agora(true,true); 232 $sRnd = "&iURLRandomica=".hoje(true).agora(true,true);
238 - $sAux = $sAux.ereg_replace ("-", "", $sRnd); 233 + $sAux = $sAux.preg_replace ("/-/", "", $sRnd);
239 $this->id = $sAux; 234 $this->id = $sAux;
240 } 235 }
241 } 236 }
242 -session_register("sessao"); 237 +$_REQUEST["sessao"] = "";
243 ?> 238 ?>
gestaoAdministrativa/fontes/PHP/framework/popupsLegado/bem/procuraBem.php
  Diff comments   View file @842bba7
@@ -299,7 +299,7 @@ switch ($ctrl) { @@ -299,7 +299,7 @@ switch ($ctrl) {
299 299
300 case 1: 300 case 1:
301 301
302 - while ( list( $key, $val ) = each( $HTTP_POST_VARS ) ) { 302 + while ( list( $key, $val ) = each( $_POST ) ) {
303 $variavel = $key; 303 $variavel = $key;
304 $$variavel = $val; 304 $$variavel = $val;
305 $aVarWhere[$key] = $val; 305 $aVarWhere[$key] = $val;
gestaoAdministrativa/fontes/PHP/protocolo/classes/mapeamento/TClassificacao.class.php
  Diff comments   View file @842bba7
@@ -43,7 +43,7 @@ include_once CLA_PERSISTENTE; @@ -43,7 +43,7 @@ include_once CLA_PERSISTENTE;
43 43
44 class TClassificacao extends Persistente 44 class TClassificacao extends Persistente
45 { 45 {
46 - public function TClassificacao() 46 + public function __construct()
47 { 47 {
48 parent::Persistente(); 48 parent::Persistente();
49 $this->setTabela('sw_classificacao'); 49 $this->setTabela('sw_classificacao');
@@ -82,4 +82,34 @@ class TClassificacao extends Persistente @@ -82,4 +82,34 @@ class TClassificacao extends Persistente
82 82
83 } 83 }
84 84
  85 + public function recuperaClassificacaoAssunto(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "")
  86 + {
  87 + $obErro = new Erro;
  88 + $obConexao = new Conexao;
  89 + $rsRecordSet = new RecordSet;
  90 + $stSql = $this->montaRecuperaClassificacaoAssunto().$stFiltro.$stGroup.$stOrdem;
  91 + $this->stDebug = $stSql;
  92 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "", $boTransacao );
  93 +
  94 + return $obErro;
  95 + }
  96 +
  97 + public function montaRecuperaClassificacaoAssunto()
  98 + {
  99 + $stSql = " SELECT
  100 + sw_classificacao.cod_classificacao
  101 + , sw_classificacao.nom_classificacao
  102 + , sw_assunto.cod_assunto
  103 + , sw_assunto.nom_assunto
  104 + FROM
  105 + sw_classificacao
  106 +
  107 + INNER JOIN sw_assunto
  108 + ON sw_assunto.cod_classificacao = sw_classificacao.cod_classificacao
  109 + ";
  110 +
  111 + return $stSql;
  112 +
  113 + }
  114 +
85 } 115 }
gestaoAdministrativa/fontes/PHP/protocolo/classes/mapeamento/TPROAssuntoAtributo.class.php
  Diff comments   View file @842bba7
@@ -37,43 +37,42 @@ $Date: 2006-09-18 08:38:09 -0300 (Seg, 18 Set 2006) $ @@ -37,43 +37,42 @@ $Date: 2006-09-18 08:38:09 -0300 (Seg, 18 Set 2006) $
37 37
38 Casos de uso: uc-01.06.93 38 Casos de uso: uc-01.06.93
39 */ 39 */
40 -include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';  
41 -include_once ( CLA_PERSISTENTE ); 40 +require_once CLA_PERSISTENTE;
42 41
43 class TPROAssuntoAtributo extends Persistente 42 class TPROAssuntoAtributo extends Persistente
44 { 43 {
45 -function TPROAssuntoAtributo()  
46 -{  
47 - parent::Persistente();  
48 - $this->setTabela('sw_assunto_atributo');  
49 - $this->setComplementoChave('cod_atributo,cod_classificacao,cod_assunto'); 44 + public function __construct()
  45 + {
  46 + parent::Persistente();
  47 + $this->setTabela('sw_assunto_atributo');
  48 + $this->setComplementoChave('cod_atributo,cod_classificacao,cod_assunto');
50 49
51 - $this->AddCampo('cod_atributo', 'integer',true, '',false,'TPROAtributoProtocolo');  
52 - $this->AddCampo('cod_assunto', 'integer',true, '',false,'TPROAssunto');  
53 - $this->AddCampo('cod_classificacao','integer',true, '',false,'TPROAssunto');  
54 -} 50 + $this->AddCampo('cod_atributo' ,'integer',true,'',false,'TPROAtributoProtocolo');
  51 + $this->AddCampo('cod_assunto' ,'integer',true,'',false,'TPROAssunto');
  52 + $this->AddCampo('cod_classificacao','integer',true,'',false,'TPROAssunto');
  53 + }
55 54
56 -function validaExclusao()  
57 -{  
58 - $obErro = new Erro();  
59 - include_once(CAM_GA_PROT_MAPEAMENTO."TPROAssuntoAtributoValor.class.php");  
60 - $obTPROAssuntoAtributoValor = new TPROAssuntoAtributoValor();  
61 - $stFiltro = ' WHERE cod_atributo='.$this->getDado('cod_atributo').' AND ';  
62 - $stFiltro .= ' cod_classificacao='.$this->getDado('cod_classificacao').' AND ';  
63 - $stFiltro .= ' cod_assunto='.$this->getDado('cod_assunto');  
64 - $obErro = $obTPROAssuntoAtributoValor->recuperaTodos($rsAtributoValor,$stFiltro);  
65 - if ( !$rsAtributoValor->eof() ) {  
66 - include_once(CAM_GA_PROT_MAPEAMENTO."TPROAtributoProtocolo.class.php");  
67 - $obTPROAtributoProtocolo = new TPROAtributoProtocolo();  
68 - $obTPROAtributoProtocolo->setDado('cod_atributo', $this->getDado('cod_atributo'));  
69 - $obTPROAtributoProtocolo->consultar();  
70 - $obErro->setDescricao('O atributo '.$obTPROAtributoProtocolo->getDado('nom_atributo').' do assunto selecionado não pode ser excluído, porque está relacionado a um ou mais processos!');  
71 - if ( Sessao::read('boTrataExcecao') ) {  
72 - Sessao::getExcecao()->setDescricao($obErro->getDescricao()); 55 + function validaExclusao($stFiltro = '', $boTransacao = '')
  56 + {
  57 + $obErro = new Erro();
  58 + include_once(CAM_GA_PROT_MAPEAMENTO."TPROAssuntoAtributoValor.class.php");
  59 + $obTPROAssuntoAtributoValor = new TPROAssuntoAtributoValor();
  60 + $stFiltro = ' WHERE cod_atributo='.$this->getDado('cod_atributo').' AND ';
  61 + $stFiltro .= ' cod_classificacao='.$this->getDado('cod_classificacao').' AND ';
  62 + $stFiltro .= ' cod_assunto='.$this->getDado('cod_assunto');
  63 + $obErro = $obTPROAssuntoAtributoValor->recuperaTodos($rsAtributoValor,$stFiltro);
  64 + if ( !$rsAtributoValor->eof() ) {
  65 + include_once(CAM_GA_PROT_MAPEAMENTO."TPROAtributoProtocolo.class.php");
  66 + $obTPROAtributoProtocolo = new TPROAtributoProtocolo();
  67 + $obTPROAtributoProtocolo->setDado('cod_atributo', $this->getDado('cod_atributo'));
  68 + $obTPROAtributoProtocolo->consultar();
  69 + $obErro->setDescricao('O atributo '.$obTPROAtributoProtocolo->getDado('nom_atributo').' do assunto selecionado não pode ser excluído, porque está relacionado a um ou mais processos!');
  70 + if ( Sessao::read('boTrataExcecao') ) {
  71 + Sessao::getExcecao()->setDescricao($obErro->getDescricao());
  72 + }
73 } 73 }
74 - }  
75 74
76 - return $obErro;  
77 -} 75 + return $obErro;
  76 + }
78 77
79 } 78 }
gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/FMManterAssunto.php
  Diff comments   View file @842bba7
@@ -283,7 +283,7 @@ while ( !$rsDocumento-&gt;eof() ) { @@ -283,7 +283,7 @@ while ( !$rsDocumento-&gt;eof() ) {
283 } else { 283 } else {
284 $obChkDocumento->setChecked(false); 284 $obChkDocumento->setChecked(false);
285 } 285 }
286 - $arDocumentos[] = version_compare(phpversion(), '5.0') < 0 ? $obChkDocumento : clone($obChkDocumento); 286 + $arDocumentos[] = clone $obChkDocumento;
287 $rsDocumento->proximo(); 287 $rsDocumento->proximo();
288 } 288 }
289 289
@@ -303,7 +303,7 @@ while ( !$rsAtributoProtocolo-&gt;eof() ) { @@ -303,7 +303,7 @@ while ( !$rsAtributoProtocolo-&gt;eof() ) {
303 } else { 303 } else {
304 $obChkAtributo->setChecked(false); 304 $obChkAtributo->setChecked(false);
305 } 305 }
306 - $arAtributos[] = version_compare(phpversion(), '5.0') < 0 ? $obChkAtributo : clone($obChkAtributo); 306 + $arAtributos[] = clone $obChkAtributo;
307 $rsAtributoProtocolo->proximo(); 307 $rsAtributoProtocolo->proximo();
308 } 308 }
309 309
gestaoAdministrativa/fontes/PHP/protocolo/protocolo/andamentoPadrao/incluiAndamentoPadrao.php
  Diff comments   View file @842bba7
@@ -31,7 +31,7 @@ @@ -31,7 +31,7 @@
31 31
32 Casos de uso: uc-01.06.97 32 Casos de uso: uc-01.06.97
33 33
34 - $Id: incluiAndamentoPadrao.php 62978 2015-07-14 14:49:57Z luciana $ 34 + $Id: incluiAndamentoPadrao.php 66022 2016-07-07 20:23:42Z fabio $
35 35
36 */ 36 */
37 37
@@ -258,6 +258,11 @@ case 1: @@ -258,6 +258,11 @@ case 1:
258 $dbEmp->vaiProximo(); 258 $dbEmp->vaiProximo();
259 } 259 }
260 260
  261 + include_once CAM_GA_PROT_MAPEAMENTO."TClassificacao.class.php";
  262 +
  263 + $obTClassificacao = new TClassificacao;
  264 + $obTClassificacao->recuperaClassificacaoAssunto($rsRecord, " WHERE sw_classificacao.cod_classificacao = ".$_REQUEST['codClassificacao']."
  265 + AND sw_assunto.cod_assunto = ".$_REQUEST['codAssunto']);
261 ?> 266 ?>
262 267
263 <form name="frm" action="incluiAndamentoPadrao.php?<?=Sessao::getId();?>&ctrl=1" method="POST" onSubmit="return Valida();"> 268 <form name="frm" action="incluiAndamentoPadrao.php?<?=Sessao::getId();?>&ctrl=1" method="POST" onSubmit="return Valida();">
@@ -270,15 +275,15 @@ case 1: @@ -270,15 +275,15 @@ case 1:
270 <tr> 275 <tr>
271 <td rowspan="3" class="label" width="30%">Classificação/Assunto</td> 276 <td rowspan="3" class="label" width="30%">Classificação/Assunto</td>
272 <?php 277 <?php
273 - $arCodClassifAssunto = validaMascaraDinamica($mascaraAssunto,$_REQUEST["codClassificacao"]."-".$_REQUEST["codAssunto"]); 278 + $arCodClassifAssunto = validaMascaraDinamica($mascaraAssunto,$_REQUEST['codClassificacao']."-".$_REQUEST['codAssunto']);
274 ?> 279 ?>
275 <td class="field"><?=$arCodClassifAssunto[1];?></td> 280 <td class="field"><?=$arCodClassifAssunto[1];?></td>
276 </tr> 281 </tr>
277 <tr> 282 <tr>
278 - <td class="field"><?=$stNomClassificacao;?></td> 283 + <td class="field"><?=$rsRecord->getCampo("nom_classificacao");?></td>
279 </tr> 284 </tr>
280 <tr> 285 <tr>
281 - <td class="field"><?=$stNomAssunto;?></td> 286 + <td class="field"><?=$rsRecord->getCampo("nom_assunto");?></td>
282 </tr> 287 </tr>
283 <tr> 288 <tr>
284 <td class="alt_dados" colspan=2>Dados para trâmite</td> 289 <td class="alt_dados" colspan=2>Dados para trâmite</td>
gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/desarquivaProcesso.php
  Diff comments   View file @842bba7
@@ -30,7 +30,7 @@ @@ -30,7 +30,7 @@
30 * @author Analista: Cassiano 30 * @author Analista: Cassiano
31 * @author Desenvolvedor: Cassiano 31 * @author Desenvolvedor: Cassiano
32 32
33 - $Id: desarquivaProcesso.php 62978 2015-07-14 14:49:57Z luciana $ 33 + $Id: desarquivaProcesso.php 66022 2016-07-07 20:23:42Z fabio $
34 34
35 Casos de uso: uc-01.06.98 35 Casos de uso: uc-01.06.98
36 */ 36 */
@@ -405,7 +405,7 @@ $anoExercicio = $_REQUEST[&quot;anoExercicio&quot;]; @@ -405,7 +405,7 @@ $anoExercicio = $_REQUEST[&quot;anoExercicio&quot;];
405 include '../situacaoProcesso.class.php'; 405 include '../situacaoProcesso.class.php';
406 406
407 $situacaoProcesso = new situacaoProcesso; 407 $situacaoProcesso = new situacaoProcesso;
408 -$situacaoProcesso->setaVariaveisArquivamento("3",$codProcesso,"",$anoExercicio); 408 +$situacaoProcesso->setaVariaveisArquivamento("3",$codProcesso,"",$anoExercicio,$stLocalizacaoFisica);
409 if ($situacaoProcesso->apagaArquivamento()) { 409 if ($situacaoProcesso->apagaArquivamento()) {
410 include '../../../framework/legado/auditoriaLegada.class.php'; 410 include '../../../framework/legado/auditoriaLegada.class.php';
411 $audicao = new auditoriaLegada; 411 $audicao = new auditoriaLegada;
gestaoAdministrativa/fontes/PLPGSQL/framework/concatenarArray.plsql
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * URBEM Soluções de Gestão Pública Ltda 33 * URBEM Soluções de Gestão Pública Ltda
34 * www.urbem.cnm.org.br 34 * www.urbem.cnm.org.br
35 * 35 *
36 -* $Id: concatenarArray.plsql 65784 2016-06-17 12:07:20Z fabio $ 36 +* $Id: concatenarArray.plsql 66189 2016-07-27 18:36:15Z fabio $
37 * 37 *
38 * Casos de uso: uc-01.01.00 38 * Casos de uso: uc-01.01.00
39 */ 39 */
gestaoAdministrativa/fontes/PLPGSQL/organograma/fn_migra_orgaos.plsql
  Diff comments   View file @842bba7
@@ -31,7 +31,7 @@ @@ -31,7 +31,7 @@
31 * @package URBEM 31 * @package URBEM
32 * @subpackage 32 * @subpackage
33 33
34 - * $Id:$ 34 + * $Id: fn_migra_orgaos.plsql 66167 2016-07-25 12:46:20Z fabio $
35 */ 35 */
36 36
37 CREATE OR REPLACE FUNCTION organograma.fn_migra_orgaos( inNumCgm INTEGER 37 CREATE OR REPLACE FUNCTION organograma.fn_migra_orgaos( inNumCgm INTEGER
@@ -230,6 +230,7 @@ BEGIN @@ -230,6 +230,7 @@ BEGIN
230 SELECT cod_configuracao 230 SELECT cod_configuracao
231 , exercicio 231 , exercicio
232 , sequencia 232 , sequencia
  233 + , MAX(timestamp) AS timestamp
233 FROM folhapagamento.configuracao_empenho 234 FROM folhapagamento.configuracao_empenho
234 WHERE vigencia >= ( 235 WHERE vigencia >= (
235 SELECT MAX(vigencia) 236 SELECT MAX(vigencia)
@@ -243,7 +244,7 @@ BEGIN @@ -243,7 +244,7 @@ BEGIN
243 '; 244 ';
244 FOR reRecordConta IN EXECUTE stSqlConta LOOP 245 FOR reRecordConta IN EXECUTE stSqlConta LOOP
245 246
246 - SELECT timestamp 247 + SELECT MAX(timestamp) AS timestamp
247 INTO tsTimestampIMA 248 INTO tsTimestampIMA
248 FROM folhapagamento.configuracao_empenho 249 FROM folhapagamento.configuracao_empenho
249 WHERE vigencia = ( 250 WHERE vigencia = (
@@ -281,7 +282,7 @@ BEGIN @@ -281,7 +282,7 @@ BEGIN
281 , exercicio 282 , exercicio
282 , sequencia 283 , sequencia
283 , now()::timestamp(3) 284 , now()::timestamp(3)
284 - , ( -- now()::date 285 + , (
285 SELECT dt_inicial 286 SELECT dt_inicial
286 FROM folhapagamento.periodo_movimentacao 287 FROM folhapagamento.periodo_movimentacao
287 WHERE cod_periodo_movimentacao = ( 288 WHERE cod_periodo_movimentacao = (
@@ -470,7 +471,6 @@ BEGIN @@ -470,7 +471,6 @@ BEGIN
470 SET cod_orgao = de_para_orgao.cod_orgao_new 471 SET cod_orgao = de_para_orgao.cod_orgao_new
471 FROM organograma.de_para_orgao 472 FROM organograma.de_para_orgao
472 WHERE configuracao_empenho_lotacao.cod_orgao = de_para_orgao.cod_orgao 473 WHERE configuracao_empenho_lotacao.cod_orgao = de_para_orgao.cod_orgao
473 - -- AND configuracao_empenho_lotacao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
474 AND configuracao_empenho_lotacao.timestamp IN ( 474 AND configuracao_empenho_lotacao.timestamp IN (
475 SELECT timestamp 475 SELECT timestamp
476 FROM folhapagamento.configuracao_empenho 476 FROM folhapagamento.configuracao_empenho
@@ -505,15 +505,15 @@ BEGIN @@ -505,15 +505,15 @@ BEGIN
505 FROM folhapagamento.configuracao_empenho 505 FROM folhapagamento.configuracao_empenho
506 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 506 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
507 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 507 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
508 - AND exercicio = '|| reRecordConta.exercicio ||' 508 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
509 AND sequencia = '|| reRecordConta.sequencia ||' 509 AND sequencia = '|| reRecordConta.sequencia ||'
510 ) 510 )
511 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 511 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
512 - AND exercicio = '|| reRecordConta.exercicio ||' 512 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
513 AND sequencia = '|| reRecordConta.sequencia ||' 513 AND sequencia = '|| reRecordConta.sequencia ||'
514 ) 514 )
515 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 515 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
516 - AND exercicio = '|| reRecordConta.exercicio ||' 516 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
517 AND sequencia = '|| reRecordConta.sequencia ||' 517 AND sequencia = '|| reRecordConta.sequencia ||'
518 GROUP BY cod_configuracao 518 GROUP BY cod_configuracao
519 , cod_orgao 519 , cod_orgao
@@ -555,6 +555,7 @@ BEGIN @@ -555,6 +555,7 @@ BEGIN
555 stSqlConta := ' 555 stSqlConta := '
556 SELECT cod_configuracao_lla 556 SELECT cod_configuracao_lla
557 , exercicio 557 , exercicio
  558 + , MAX(timestamp) AS timestamp
558 FROM folhapagamento.configuracao_empenho_lla 559 FROM folhapagamento.configuracao_empenho_lla
559 WHERE vigencia >= ( 560 WHERE vigencia >= (
560 SELECT MAX(vigencia) 561 SELECT MAX(vigencia)
@@ -567,7 +568,7 @@ BEGIN @@ -567,7 +568,7 @@ BEGIN
567 '; 568 ';
568 FOR reRecordConta IN EXECUTE stSqlConta LOOP 569 FOR reRecordConta IN EXECUTE stSqlConta LOOP
569 570
570 - SELECT timestamp 571 + SELECT MAX(timestamp) AS timestamp
571 INTO tsTimestampIMA 572 INTO tsTimestampIMA
572 FROM folhapagamento.configuracao_empenho_lla 573 FROM folhapagamento.configuracao_empenho_lla
573 WHERE vigencia = ( 574 WHERE vigencia = (
@@ -593,7 +594,7 @@ BEGIN @@ -593,7 +594,7 @@ BEGIN
593 SELECT cod_configuracao_lla 594 SELECT cod_configuracao_lla
594 , exercicio 595 , exercicio
595 , now()::timestamp(3) 596 , now()::timestamp(3)
596 - , ( -- now()::date 597 + , (
597 SELECT dt_inicial 598 SELECT dt_inicial
598 FROM folhapagamento.periodo_movimentacao 599 FROM folhapagamento.periodo_movimentacao
599 WHERE cod_periodo_movimentacao = ( 600 WHERE cod_periodo_movimentacao = (
@@ -695,7 +696,6 @@ BEGIN @@ -695,7 +696,6 @@ BEGIN
695 SET cod_orgao = de_para_orgao.cod_orgao_new 696 SET cod_orgao = de_para_orgao.cod_orgao_new
696 FROM organograma.de_para_orgao 697 FROM organograma.de_para_orgao
697 WHERE configuracao_empenho_lla_lotacao.cod_orgao = de_para_orgao.cod_orgao 698 WHERE configuracao_empenho_lla_lotacao.cod_orgao = de_para_orgao.cod_orgao
698 - -- AND configuracao_empenho_lla_lotacao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
699 AND configuracao_empenho_lla_lotacao.timestamp IN ( 699 AND configuracao_empenho_lla_lotacao.timestamp IN (
700 SELECT timestamp 700 SELECT timestamp
701 FROM folhapagamento.configuracao_empenho_lla 701 FROM folhapagamento.configuracao_empenho_lla
@@ -719,7 +719,7 @@ BEGIN @@ -719,7 +719,7 @@ BEGIN
719 , num_pao 719 , num_pao
720 , timestamp 720 , timestamp
721 FROM folhapagamento.configuracao_empenho_lla_lotacao 721 FROM folhapagamento.configuracao_empenho_lla_lotacao
722 - WHERE timestamp IN ( -- >= now()::timestamp(3) 722 + WHERE timestamp IN (
723 SELECT timestamp 723 SELECT timestamp
724 FROM folhapagamento.configuracao_empenho_lla 724 FROM folhapagamento.configuracao_empenho_lla
725 WHERE vigencia > ( 725 WHERE vigencia > (
@@ -727,13 +727,13 @@ BEGIN @@ -727,13 +727,13 @@ BEGIN
727 FROM folhapagamento.configuracao_empenho_lla 727 FROM folhapagamento.configuracao_empenho_lla
728 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 728 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
729 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 729 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
730 - AND exercicio = '|| reRecordConta.exercicio ||' 730 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
731 ) 731 )
732 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 732 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
733 - AND exercicio = '|| reRecordConta.exercicio ||' 733 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
734 ) 734 )
735 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 735 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
736 - AND exercicio = '|| reRecordConta.exercicio ||' 736 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
737 GROUP BY cod_configuracao_lla 737 GROUP BY cod_configuracao_lla
738 , cod_orgao 738 , cod_orgao
739 , exercicio 739 , exercicio
@@ -774,6 +774,7 @@ BEGIN @@ -774,6 +774,7 @@ BEGIN
774 stSqlConta := ' 774 stSqlConta := '
775 SELECT cod_empresa 775 SELECT cod_empresa
776 , num_orgao_banpara 776 , num_orgao_banpara
  777 + , MAX(timestamp) AS timestamp
777 FROM ima.configuracao_banpara 778 FROM ima.configuracao_banpara
778 WHERE vigencia >= ( 779 WHERE vigencia >= (
779 SELECT MAX(vigencia) 780 SELECT MAX(vigencia)
@@ -786,7 +787,7 @@ BEGIN @@ -786,7 +787,7 @@ BEGIN
786 '; 787 ';
787 FOR reRecordConta IN EXECUTE stSqlConta LOOP 788 FOR reRecordConta IN EXECUTE stSqlConta LOOP
788 789
789 - SELECT timestamp 790 + SELECT MAX(timestamp) AS timestamp
790 INTO tsTimestampIMA 791 INTO tsTimestampIMA
791 FROM ima.configuracao_banpara 792 FROM ima.configuracao_banpara
792 WHERE vigencia = ( 793 WHERE vigencia = (
@@ -814,7 +815,7 @@ BEGIN @@ -814,7 +815,7 @@ BEGIN
814 , num_orgao_banpara 815 , num_orgao_banpara
815 , descricao || ' MIGRA ORGANOGRAMA' 816 , descricao || ' MIGRA ORGANOGRAMA'
816 , now()::timestamp(3) 817 , now()::timestamp(3)
817 - , ( -- now()::date 818 + , (
818 SELECT dt_inicial 819 SELECT dt_inicial
819 FROM folhapagamento.periodo_movimentacao 820 FROM folhapagamento.periodo_movimentacao
820 WHERE cod_periodo_movimentacao = ( 821 WHERE cod_periodo_movimentacao = (
@@ -866,7 +867,6 @@ BEGIN @@ -866,7 +867,6 @@ BEGIN
866 SET cod_orgao = de_para_orgao.cod_orgao_new 867 SET cod_orgao = de_para_orgao.cod_orgao_new
867 FROM organograma.de_para_orgao 868 FROM organograma.de_para_orgao
868 WHERE configuracao_banpara_orgao.cod_orgao = de_para_orgao.cod_orgao 869 WHERE configuracao_banpara_orgao.cod_orgao = de_para_orgao.cod_orgao
869 - -- AND configuracao_banpara_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
870 AND configuracao_banpara_orgao.timestamp IN ( 870 AND configuracao_banpara_orgao.timestamp IN (
871 SELECT timestamp 871 SELECT timestamp
872 FROM ima.configuracao_banpara 872 FROM ima.configuracao_banpara
@@ -889,7 +889,7 @@ BEGIN @@ -889,7 +889,7 @@ BEGIN
889 , num_orgao_banpara 889 , num_orgao_banpara
890 , timestamp 890 , timestamp
891 FROM ima.configuracao_banpara_orgao 891 FROM ima.configuracao_banpara_orgao
892 - WHERE timestamp IN ( -- >= now()::timestamp(3) 892 + WHERE timestamp IN (
893 SELECT timestamp 893 SELECT timestamp
894 FROM ima.configuracao_banpara 894 FROM ima.configuracao_banpara
895 WHERE vigencia > ( 895 WHERE vigencia > (
@@ -942,6 +942,7 @@ BEGIN @@ -942,6 +942,7 @@ BEGIN
942 , cod_banco 942 , cod_banco
943 , cod_agencia 943 , cod_agencia
944 , cod_conta_corrente 944 , cod_conta_corrente
  945 + , MAX(timestamp) AS timestamp
945 FROM ima.configuracao_bb_conta 946 FROM ima.configuracao_bb_conta
946 WHERE vigencia >= ( 947 WHERE vigencia >= (
947 SELECT MAX(vigencia) 948 SELECT MAX(vigencia)
@@ -956,7 +957,7 @@ BEGIN @@ -956,7 +957,7 @@ BEGIN
956 '; 957 ';
957 FOR reRecordConta IN EXECUTE stSqlConta LOOP 958 FOR reRecordConta IN EXECUTE stSqlConta LOOP
958 959
959 - SELECT timestamp 960 + SELECT MAX(timestamp) AS timestamp
960 INTO tsTimestampIMA 961 INTO tsTimestampIMA
961 FROM ima.configuracao_bb_conta 962 FROM ima.configuracao_bb_conta
962 WHERE vigencia = ( 963 WHERE vigencia = (
@@ -992,7 +993,7 @@ BEGIN @@ -992,7 +993,7 @@ BEGIN
992 , cod_conta_corrente 993 , cod_conta_corrente
993 , descricao || ' MIGRA ORGANOGRAMA' 994 , descricao || ' MIGRA ORGANOGRAMA'
994 , now()::timestamp(3) 995 , now()::timestamp(3)
995 - , ( -- now()::date 996 + , (
996 SELECT dt_inicial 997 SELECT dt_inicial
997 FROM folhapagamento.periodo_movimentacao 998 FROM folhapagamento.periodo_movimentacao
998 WHERE cod_periodo_movimentacao = ( 999 WHERE cod_periodo_movimentacao = (
@@ -1058,7 +1059,6 @@ BEGIN @@ -1058,7 +1059,6 @@ BEGIN
1058 SET cod_orgao = de_para_orgao.cod_orgao_new 1059 SET cod_orgao = de_para_orgao.cod_orgao_new
1059 FROM organograma.de_para_orgao 1060 FROM organograma.de_para_orgao
1060 WHERE configuracao_bb_orgao.cod_orgao = de_para_orgao.cod_orgao 1061 WHERE configuracao_bb_orgao.cod_orgao = de_para_orgao.cod_orgao
1061 - -- AND configuracao_bb_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
1062 AND configuracao_bb_orgao.timestamp IN ( 1062 AND configuracao_bb_orgao.timestamp IN (
1063 SELECT timestamp 1063 SELECT timestamp
1064 FROM ima.configuracao_bb_conta 1064 FROM ima.configuracao_bb_conta
@@ -1089,7 +1089,7 @@ BEGIN @@ -1089,7 +1089,7 @@ BEGIN
1089 , timestamp 1089 , timestamp
1090 , cod_orgao 1090 , cod_orgao
1091 FROM ima.configuracao_bb_orgao 1091 FROM ima.configuracao_bb_orgao
1092 - WHERE timestamp IN ( -- >= now()::timestamp(3) 1092 + WHERE timestamp IN (
1093 SELECT timestamp 1093 SELECT timestamp
1094 FROM ima.configuracao_bb_conta 1094 FROM ima.configuracao_bb_conta
1095 WHERE vigencia > ( 1095 WHERE vigencia > (
@@ -1156,6 +1156,7 @@ BEGIN @@ -1156,6 +1156,7 @@ BEGIN
1156 , cod_banco 1156 , cod_banco
1157 , cod_agencia 1157 , cod_agencia
1158 , cod_conta_corrente 1158 , cod_conta_corrente
  1159 + , MAX(timestamp) AS timestamp
1159 FROM ima.configuracao_besc_conta 1160 FROM ima.configuracao_besc_conta
1160 WHERE vigencia >= ( 1161 WHERE vigencia >= (
1161 SELECT MAX(vigencia) 1162 SELECT MAX(vigencia)
@@ -1170,7 +1171,7 @@ BEGIN @@ -1170,7 +1171,7 @@ BEGIN
1170 '; 1171 ';
1171 FOR reRecordConta IN EXECUTE stSqlConta LOOP 1172 FOR reRecordConta IN EXECUTE stSqlConta LOOP
1172 1173
1173 - SELECT timestamp 1174 + SELECT MAX(timestamp) AS timestamp
1174 INTO tsTimestampIMA 1175 INTO tsTimestampIMA
1175 FROM ima.configuracao_besc_conta 1176 FROM ima.configuracao_besc_conta
1176 WHERE vigencia = ( 1177 WHERE vigencia = (
@@ -1206,7 +1207,7 @@ BEGIN @@ -1206,7 +1207,7 @@ BEGIN
1206 , cod_conta_corrente 1207 , cod_conta_corrente
1207 , descricao || ' MIGRA ORGANOGRAMA' 1208 , descricao || ' MIGRA ORGANOGRAMA'
1208 , now()::timestamp(3) 1209 , now()::timestamp(3)
1209 - , ( -- now()::date 1210 + , (
1210 SELECT dt_inicial 1211 SELECT dt_inicial
1211 FROM folhapagamento.periodo_movimentacao 1212 FROM folhapagamento.periodo_movimentacao
1212 WHERE cod_periodo_movimentacao = ( 1213 WHERE cod_periodo_movimentacao = (
@@ -1272,7 +1273,6 @@ BEGIN @@ -1272,7 +1273,6 @@ BEGIN
1272 SET cod_orgao = de_para_orgao.cod_orgao_new 1273 SET cod_orgao = de_para_orgao.cod_orgao_new
1273 FROM organograma.de_para_orgao 1274 FROM organograma.de_para_orgao
1274 WHERE configuracao_besc_orgao.cod_orgao = de_para_orgao.cod_orgao 1275 WHERE configuracao_besc_orgao.cod_orgao = de_para_orgao.cod_orgao
1275 - -- AND configuracao_besc_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
1276 AND configuracao_besc_orgao.timestamp IN ( 1276 AND configuracao_besc_orgao.timestamp IN (
1277 SELECT timestamp 1277 SELECT timestamp
1278 FROM ima.configuracao_besc_conta 1278 FROM ima.configuracao_besc_conta
@@ -1303,7 +1303,7 @@ BEGIN @@ -1303,7 +1303,7 @@ BEGIN
1303 , timestamp 1303 , timestamp
1304 , cod_orgao 1304 , cod_orgao
1305 FROM ima.configuracao_besc_orgao 1305 FROM ima.configuracao_besc_orgao
1306 - WHERE timestamp IN ( -- >= now()::timestamp(3) 1306 + WHERE timestamp IN (
1307 SELECT timestamp 1307 SELECT timestamp
1308 FROM ima.configuracao_besc_conta 1308 FROM ima.configuracao_besc_conta
1309 WHERE vigencia > ( 1309 WHERE vigencia > (
@@ -1370,6 +1370,7 @@ BEGIN @@ -1370,6 +1370,7 @@ BEGIN
1370 , cod_banco 1370 , cod_banco
1371 , cod_agencia 1371 , cod_agencia
1372 , cod_conta_corrente 1372 , cod_conta_corrente
  1373 + , MAX(timestamp) AS timestamp
1373 FROM ima.configuracao_banrisul_conta 1374 FROM ima.configuracao_banrisul_conta
1374 WHERE vigencia >= ( 1375 WHERE vigencia >= (
1375 SELECT MAX(vigencia) 1376 SELECT MAX(vigencia)
@@ -1384,7 +1385,7 @@ BEGIN @@ -1384,7 +1385,7 @@ BEGIN
1384 '; 1385 ';
1385 FOR reRecordConta IN EXECUTE stSqlConta LOOP 1386 FOR reRecordConta IN EXECUTE stSqlConta LOOP
1386 1387
1387 - SELECT timestamp 1388 + SELECT MAX(timestamp) AS timestamp
1388 INTO tsTimestampIMA 1389 INTO tsTimestampIMA
1389 FROM ima.configuracao_banrisul_conta 1390 FROM ima.configuracao_banrisul_conta
1390 WHERE vigencia = ( 1391 WHERE vigencia = (
@@ -1420,7 +1421,7 @@ BEGIN @@ -1420,7 +1421,7 @@ BEGIN
1420 , cod_conta_corrente 1421 , cod_conta_corrente
1421 , descricao || ' MIGRA ORGANOGRAMA' 1422 , descricao || ' MIGRA ORGANOGRAMA'
1422 , now()::timestamp(3) 1423 , now()::timestamp(3)
1423 - , ( -- now()::date 1424 + , (
1424 SELECT dt_inicial 1425 SELECT dt_inicial
1425 FROM folhapagamento.periodo_movimentacao 1426 FROM folhapagamento.periodo_movimentacao
1426 WHERE cod_periodo_movimentacao = ( 1427 WHERE cod_periodo_movimentacao = (
@@ -1486,7 +1487,6 @@ BEGIN @@ -1486,7 +1487,6 @@ BEGIN
1486 SET cod_orgao = de_para_orgao.cod_orgao_new 1487 SET cod_orgao = de_para_orgao.cod_orgao_new
1487 FROM organograma.de_para_orgao 1488 FROM organograma.de_para_orgao
1488 WHERE configuracao_banrisul_orgao.cod_orgao = de_para_orgao.cod_orgao 1489 WHERE configuracao_banrisul_orgao.cod_orgao = de_para_orgao.cod_orgao
1489 - -- AND configuracao_banrisul_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
1490 AND configuracao_banrisul_orgao.timestamp IN ( 1490 AND configuracao_banrisul_orgao.timestamp IN (
1491 SELECT timestamp 1491 SELECT timestamp
1492 FROM ima.configuracao_banrisul_conta 1492 FROM ima.configuracao_banrisul_conta
@@ -1517,7 +1517,7 @@ BEGIN @@ -1517,7 +1517,7 @@ BEGIN
1517 , timestamp 1517 , timestamp
1518 , cod_orgao 1518 , cod_orgao
1519 FROM ima.configuracao_banrisul_orgao 1519 FROM ima.configuracao_banrisul_orgao
1520 - WHERE timestamp IN ( -- >= now()::timestamp(3) 1520 + WHERE timestamp IN (
1521 SELECT timestamp 1521 SELECT timestamp
1522 FROM ima.configuracao_banrisul_conta 1522 FROM ima.configuracao_banrisul_conta
1523 WHERE vigencia > ( 1523 WHERE vigencia > (
@@ -1751,6 +1751,7 @@ BEGIN @@ -1751,6 +1751,7 @@ BEGIN
1751 SELECT cod_configuracao 1751 SELECT cod_configuracao
1752 , exercicio 1752 , exercicio
1753 , sequencia 1753 , sequencia
  1754 + , MAX(timestamp) AS timestamp
1754 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 1755 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1755 WHERE vigencia >= ( 1756 WHERE vigencia >= (
1756 SELECT MAX(vigencia) 1757 SELECT MAX(vigencia)
@@ -1765,35 +1766,35 @@ BEGIN @@ -1765,35 +1766,35 @@ BEGIN
1765 1766
1766 FOR reRecordConta IN EXECUTE stSqlConta LOOP 1767 FOR reRecordConta IN EXECUTE stSqlConta LOOP
1767 1768
1768 - stSqlRH := ' 1769 + stSqlUpdate := '
1769 UPDATE administracao.configuracao 1770 UPDATE administracao.configuracao
1770 SET valor = ( 1771 SET valor = (
1771 - SELECT timestamp 1772 + SELECT MAX(timestamp) AS timestamp
1772 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 1773 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1773 WHERE vigencia = ( 1774 WHERE vigencia = (
1774 SELECT MAX(vigencia) 1775 SELECT MAX(vigencia)
1775 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 1776 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1776 WHERE vigencia <= now()::date 1777 WHERE vigencia <= now()::date
1777 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1778 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1778 - AND exercicio = '|| reRecordConta.exercicio ||' 1779 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1779 AND sequencia = '|| reRecordConta.sequencia ||' 1780 AND sequencia = '|| reRecordConta.sequencia ||'
1780 ) 1781 )
1781 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1782 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1782 - AND exercicio = '|| reRecordConta.exercicio ||' 1783 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1783 AND sequencia = '|| reRecordConta.sequencia ||' 1784 AND sequencia = '|| reRecordConta.sequencia ||'
1784 ) 1785 )
1785 WHERE cod_modulo = 19 1786 WHERE cod_modulo = 19
1786 - AND exercicio = EXTRACT(year FROM now()) 1787 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
1787 AND parametro = ''timestamp_vigencia_RH'' 1788 AND parametro = ''timestamp_vigencia_RH''
1788 ; 1789 ;
1789 '; 1790 ';
1790 EXECUTE stSqlUpdate; 1791 EXECUTE stSqlUpdate;
1791 1792
1792 - SELECT valor 1793 + SELECT valor::TIMESTAMP
1793 INTO tsTimestampIMA 1794 INTO tsTimestampIMA
1794 FROM administracao.configuracao 1795 FROM administracao.configuracao
1795 WHERE cod_modulo = 19 1796 WHERE cod_modulo = 19
1796 - AND exercicio = EXTRACT(year FROM now()) 1797 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
1797 AND parametro = 'timestamp_vigencia_RH' 1798 AND parametro = 'timestamp_vigencia_RH'
1798 ; 1799 ;
1799 1800
@@ -1821,7 +1822,7 @@ BEGIN @@ -1821,7 +1822,7 @@ BEGIN
1821 , exercicio 1822 , exercicio
1822 , sequencia 1823 , sequencia
1823 , now()::timestamp(3) 1824 , now()::timestamp(3)
1824 - , ( -- now()::date 1825 + , (
1825 SELECT dt_inicial 1826 SELECT dt_inicial
1826 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao 1827 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
1827 WHERE cod_periodo_movimentacao = ( 1828 WHERE cod_periodo_movimentacao = (
@@ -1830,9 +1831,9 @@ BEGIN @@ -1830,9 +1831,9 @@ BEGIN
1830 ) 1831 )
1831 ) 1832 )
1832 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 1833 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1833 - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||' 1834 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1834 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1835 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1835 - AND exercicio = '|| reRecordConta.exercicio ||' 1836 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1836 AND sequencia = '|| reRecordConta.sequencia ||' 1837 AND sequencia = '|| reRecordConta.sequencia ||'
1837 ; 1838 ;
1838 '; 1839 ';
@@ -1853,9 +1854,9 @@ BEGIN @@ -1853,9 +1854,9 @@ BEGIN
1853 , sequencia 1854 , sequencia
1854 , now()::timestamp(3) 1855 , now()::timestamp(3)
1855 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao 1856 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao
1856 - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||' 1857 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1857 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1858 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1858 - AND exercicio = '|| reRecordConta.exercicio ||' 1859 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1859 AND sequencia = '|| reRecordConta.sequencia ||' 1860 AND sequencia = '|| reRecordConta.sequencia ||'
1860 ; 1861 ;
1861 '; 1862 ';
@@ -1878,7 +1879,7 @@ BEGIN @@ -1878,7 +1879,7 @@ BEGIN
1878 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_local 1879 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_local
1879 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 1880 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1880 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1881 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1881 - AND exercicio = '|| reRecordConta.exercicio ||' 1882 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1882 AND sequencia = '|| reRecordConta.sequencia ||' 1883 AND sequencia = '|| reRecordConta.sequencia ||'
1883 ; 1884 ;
1884 '; 1885 ';
@@ -1903,9 +1904,9 @@ BEGIN @@ -1903,9 +1904,9 @@ BEGIN
1903 , sequencia 1904 , sequencia
1904 , now()::timestamp(3) 1905 , now()::timestamp(3)
1905 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_atributo 1906 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_atributo
1906 - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||' 1907 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1907 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1908 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1908 - AND exercicio = '|| reRecordConta.exercicio ||' 1909 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1909 AND sequencia = '|| reRecordConta.sequencia ||' 1910 AND sequencia = '|| reRecordConta.sequencia ||'
1910 ; 1911 ;
1911 '; 1912 ';
@@ -1932,9 +1933,9 @@ BEGIN @@ -1932,9 +1933,9 @@ BEGIN
1932 , valor 1933 , valor
1933 , now()::timestamp(3) 1934 , now()::timestamp(3)
1934 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_atributo_valor 1935 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_atributo_valor
1935 - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||' 1936 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1936 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1937 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1937 - AND exercicio = '|| reRecordConta.exercicio ||' 1938 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1938 AND sequencia = '|| reRecordConta.sequencia ||' 1939 AND sequencia = '|| reRecordConta.sequencia ||'
1939 ; 1940 ;
1940 '; 1941 ';
@@ -1957,7 +1958,7 @@ BEGIN @@ -1957,7 +1958,7 @@ BEGIN
1957 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_situacao 1958 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_situacao
1958 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 1959 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1959 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1960 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1960 - AND exercicio = '|| reRecordConta.exercicio ||' 1961 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1961 AND sequencia = '|| reRecordConta.sequencia ||' 1962 AND sequencia = '|| reRecordConta.sequencia ||'
1962 ; 1963 ;
1963 '; 1964 ';
@@ -1980,7 +1981,7 @@ BEGIN @@ -1980,7 +1981,7 @@ BEGIN
1980 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_conta_despesa 1981 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_conta_despesa
1981 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 1982 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1982 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 1983 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1983 - AND exercicio = '|| reRecordConta.exercicio ||' 1984 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1984 AND sequencia = '|| reRecordConta.sequencia ||' 1985 AND sequencia = '|| reRecordConta.sequencia ||'
1985 ; 1986 ;
1986 '; 1987 ';
@@ -2003,7 +2004,7 @@ BEGIN @@ -2003,7 +2004,7 @@ BEGIN
2003 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_subdivisao 2004 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_subdivisao
2004 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2005 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2005 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2006 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2006 - AND exercicio = '|| reRecordConta.exercicio ||' 2007 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2007 AND sequencia = '|| reRecordConta.sequencia ||' 2008 AND sequencia = '|| reRecordConta.sequencia ||'
2008 ; 2009 ;
2009 '; 2010 ';
@@ -2026,7 +2027,7 @@ BEGIN @@ -2026,7 +2027,7 @@ BEGIN
2026 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_evento 2027 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_evento
2027 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2028 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2028 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2029 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2029 - AND exercicio = '|| reRecordConta.exercicio ||' 2030 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2030 AND sequencia = '|| reRecordConta.sequencia ||' 2031 AND sequencia = '|| reRecordConta.sequencia ||'
2031 ; 2032 ;
2032 '; 2033 ';
@@ -2037,7 +2038,6 @@ BEGIN @@ -2037,7 +2038,6 @@ BEGIN
2037 SET cod_orgao = de_para_orgao.cod_orgao_new 2038 SET cod_orgao = de_para_orgao.cod_orgao_new
2038 FROM organograma.de_para_orgao 2039 FROM organograma.de_para_orgao
2039 WHERE configuracao_empenho_lotacao.cod_orgao = de_para_orgao.cod_orgao 2040 WHERE configuracao_empenho_lotacao.cod_orgao = de_para_orgao.cod_orgao
2040 - -- AND configuracao_empenho_lotacao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
2041 AND configuracao_empenho_lotacao.timestamp IN ( 2041 AND configuracao_empenho_lotacao.timestamp IN (
2042 SELECT timestamp 2042 SELECT timestamp
2043 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 2043 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
@@ -2046,15 +2046,15 @@ BEGIN @@ -2046,15 +2046,15 @@ BEGIN
2046 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 2046 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
2047 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2047 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2048 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2048 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2049 - AND exercicio = '|| reRecordConta.exercicio ||' 2049 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2050 AND sequencia = '|| reRecordConta.sequencia ||' 2050 AND sequencia = '|| reRecordConta.sequencia ||'
2051 ) 2051 )
2052 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2052 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2053 - AND exercicio = '|| reRecordConta.exercicio ||' 2053 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2054 AND sequencia = '|| reRecordConta.sequencia ||' 2054 AND sequencia = '|| reRecordConta.sequencia ||'
2055 ) 2055 )
2056 AND configuracao_empenho_lotacao.cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2056 AND configuracao_empenho_lotacao.cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2057 - AND configuracao_empenho_lotacao.exercicio = '|| reRecordConta.exercicio ||' 2057 + AND configuracao_empenho_lotacao.exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2058 AND configuracao_empenho_lotacao.sequencia = '|| reRecordConta.sequencia ||' 2058 AND configuracao_empenho_lotacao.sequencia = '|| reRecordConta.sequencia ||'
2059 ; 2059 ;
2060 '; 2060 ';
@@ -2067,7 +2067,7 @@ BEGIN @@ -2067,7 +2067,7 @@ BEGIN
2067 , sequencia 2067 , sequencia
2068 , timestamp 2068 , timestamp
2069 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao 2069 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao
2070 - WHERE timestamp IN ( -- >= now()::timestamp(3) 2070 + WHERE timestamp IN (
2071 SELECT timestamp 2071 SELECT timestamp
2072 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 2072 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
2073 WHERE vigencia > ( 2073 WHERE vigencia > (
@@ -2075,15 +2075,15 @@ BEGIN @@ -2075,15 +2075,15 @@ BEGIN
2075 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho 2075 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
2076 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2076 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2077 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2077 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2078 - AND exercicio = '|| reRecordConta.exercicio ||' 2078 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2079 AND sequencia = '|| reRecordConta.sequencia ||' 2079 AND sequencia = '|| reRecordConta.sequencia ||'
2080 ) 2080 )
2081 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2081 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2082 - AND exercicio = '|| reRecordConta.exercicio ||' 2082 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2083 AND sequencia = '|| reRecordConta.sequencia ||' 2083 AND sequencia = '|| reRecordConta.sequencia ||'
2084 ) 2084 )
2085 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||' 2085 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2086 - AND exercicio = '|| reRecordConta.exercicio ||' 2086 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2087 AND sequencia = '|| reRecordConta.sequencia ||' 2087 AND sequencia = '|| reRecordConta.sequencia ||'
2088 GROUP BY cod_configuracao 2088 GROUP BY cod_configuracao
2089 , cod_orgao 2089 , cod_orgao
@@ -2097,9 +2097,9 @@ BEGIN @@ -2097,9 +2097,9 @@ BEGIN
2097 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao 2097 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao
2098 WHERE cod_configuracao = '|| reRecordRH.cod_configuracao ||' 2098 WHERE cod_configuracao = '|| reRecordRH.cod_configuracao ||'
2099 AND cod_orgao = '|| reRecordRH.cod_orgao ||' 2099 AND cod_orgao = '|| reRecordRH.cod_orgao ||'
2100 - AND exercicio = '|| reRecordRH.exercicio ||' 2100 + AND exercicio = '|| quote_literal(reRecordRH.exercicio) ||'
2101 AND sequencia = '|| reRecordRH.sequencia ||' 2101 AND sequencia = '|| reRecordRH.sequencia ||'
2102 - AND timestamp = '|| reRecordRH.timestamp ||' 2102 + AND timestamp = '|| quote_literal(reRecordRH.timestamp) ||'
2103 ; 2103 ;
2104 '; 2104 ';
2105 EXECUTE stSqlUpdate; 2105 EXECUTE stSqlUpdate;
@@ -2114,9 +2114,9 @@ BEGIN @@ -2114,9 +2114,9 @@ BEGIN
2114 VALUES 2114 VALUES
2115 ( '|| reRecordRH.cod_configuracao ||' 2115 ( '|| reRecordRH.cod_configuracao ||'
2116 , '|| reRecordRH.cod_orgao ||' 2116 , '|| reRecordRH.cod_orgao ||'
2117 - , '|| reRecordRH.exercicio ||' 2117 + , '|| quote_literal(reRecordRH.exercicio) ||'
2118 , '|| reRecordRH.sequencia ||' 2118 , '|| reRecordRH.sequencia ||'
2119 - , '|| reRecordRH.timestamp ||' 2119 + , '|| quote_literal(reRecordRH.timestamp) ||'
2120 ); 2120 );
2121 '; 2121 ';
2122 EXECUTE stSqlUpdate; 2122 EXECUTE stSqlUpdate;
@@ -2131,6 +2131,7 @@ BEGIN @@ -2131,6 +2131,7 @@ BEGIN
2131 stSqlConta := ' 2131 stSqlConta := '
2132 SELECT cod_configuracao_lla 2132 SELECT cod_configuracao_lla
2133 , exercicio 2133 , exercicio
  2134 + , MAX(timestamp) AS timestamp
2134 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2135 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2135 WHERE vigencia >= ( 2136 WHERE vigencia >= (
2136 SELECT MAX(vigencia) 2137 SELECT MAX(vigencia)
@@ -2144,33 +2145,33 @@ BEGIN @@ -2144,33 +2145,33 @@ BEGIN
2144 2145
2145 FOR reRecordConta IN EXECUTE stSqlConta LOOP 2146 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2146 2147
2147 - stSqlRH := ' 2148 + stSqlUpdate := '
2148 UPDATE administracao.configuracao 2149 UPDATE administracao.configuracao
2149 SET valor = ( 2150 SET valor = (
2150 - SELECT timestamp 2151 + SELECT MAX(timestamp) AS timestamp
2151 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2152 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2152 WHERE vigencia = ( 2153 WHERE vigencia = (
2153 SELECT MAX(vigencia) 2154 SELECT MAX(vigencia)
2154 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2155 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2155 WHERE vigencia <= now()::date 2156 WHERE vigencia <= now()::date
2156 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2157 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2157 - AND exercicio = '|| reRecordConta.exercicio ||' 2158 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2158 ) 2159 )
2159 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2160 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2160 - AND exercicio = '|| reRecordConta.exercicio ||' 2161 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2161 ) 2162 )
2162 WHERE cod_modulo = 19 2163 WHERE cod_modulo = 19
2163 - AND exercicio = EXTRACT(year FROM now()) 2164 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2164 AND parametro = ''timestamp_vigencia_RH'' 2165 AND parametro = ''timestamp_vigencia_RH''
2165 ; 2166 ;
2166 '; 2167 ';
2167 EXECUTE stSqlUpdate; 2168 EXECUTE stSqlUpdate;
2168 2169
2169 - SELECT valor 2170 + SELECT valor::TIMESTAMP
2170 INTO tsTimestampIMA 2171 INTO tsTimestampIMA
2171 FROM administracao.configuracao 2172 FROM administracao.configuracao
2172 WHERE cod_modulo = 19 2173 WHERE cod_modulo = 19
2173 - AND exercicio = EXTRACT(year FROM now()) 2174 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2174 AND parametro = 'timestamp_vigencia_RH' 2175 AND parametro = 'timestamp_vigencia_RH'
2175 ; 2176 ;
2176 2177
@@ -2188,7 +2189,7 @@ BEGIN @@ -2188,7 +2189,7 @@ BEGIN
2188 SELECT cod_configuracao_lla 2189 SELECT cod_configuracao_lla
2189 , exercicio 2190 , exercicio
2190 , now()::timestamp(3) 2191 , now()::timestamp(3)
2191 - , ( -- now()::date 2192 + , (
2192 SELECT dt_inicial 2193 SELECT dt_inicial
2193 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao 2194 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2194 WHERE cod_periodo_movimentacao = ( 2195 WHERE cod_periodo_movimentacao = (
@@ -2199,7 +2200,7 @@ BEGIN @@ -2199,7 +2200,7 @@ BEGIN
2199 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2200 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2200 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2201 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2201 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2202 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2202 - AND exercicio = '|| reRecordConta.exercicio ||' 2203 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2203 ; 2204 ;
2204 '; 2205 ';
2205 EXECUTE stSqlUpdate; 2206 EXECUTE stSqlUpdate;
@@ -2221,7 +2222,7 @@ BEGIN @@ -2221,7 +2222,7 @@ BEGIN
2221 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao 2222 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao
2222 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2223 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2223 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2224 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2224 - AND exercicio = '|| reRecordConta.exercicio ||' 2225 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2225 ; 2226 ;
2226 '; 2227 ';
2227 EXECUTE stSqlUpdate; 2228 EXECUTE stSqlUpdate;
@@ -2243,7 +2244,7 @@ BEGIN @@ -2243,7 +2244,7 @@ BEGIN
2243 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_local 2244 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_local
2244 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2245 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2245 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2246 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2246 - AND exercicio = '|| reRecordConta.exercicio ||' 2247 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2247 ; 2248 ;
2248 '; 2249 ';
2249 EXECUTE stSqlUpdate; 2250 EXECUTE stSqlUpdate;
@@ -2267,7 +2268,7 @@ BEGIN @@ -2267,7 +2268,7 @@ BEGIN
2267 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_atributo 2268 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_atributo
2268 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2269 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2269 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2270 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2270 - AND exercicio = '|| reRecordConta.exercicio ||' 2271 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2271 ; 2272 ;
2272 '; 2273 ';
2273 EXECUTE stSqlUpdate; 2274 EXECUTE stSqlUpdate;
@@ -2295,7 +2296,7 @@ BEGIN @@ -2295,7 +2296,7 @@ BEGIN
2295 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_atributo_valor 2296 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_atributo_valor
2296 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2297 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2297 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2298 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2298 - AND exercicio = '|| reRecordConta.exercicio ||' 2299 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2299 ; 2300 ;
2300 '; 2301 ';
2301 EXECUTE stSqlUpdate; 2302 EXECUTE stSqlUpdate;
@@ -2305,7 +2306,6 @@ BEGIN @@ -2305,7 +2306,6 @@ BEGIN
2305 SET cod_orgao = de_para_orgao.cod_orgao_new 2306 SET cod_orgao = de_para_orgao.cod_orgao_new
2306 FROM organograma.de_para_orgao 2307 FROM organograma.de_para_orgao
2307 WHERE configuracao_empenho_lla_lotacao.cod_orgao = de_para_orgao.cod_orgao 2308 WHERE configuracao_empenho_lla_lotacao.cod_orgao = de_para_orgao.cod_orgao
2308 - -- AND configuracao_empenho_lla_lotacao.timestamp >= now()::timestamp(3) -- tsTimestampIMA  
2309 AND configuracao_empenho_lla_lotacao.timestamp IN ( 2309 AND configuracao_empenho_lla_lotacao.timestamp IN (
2310 SELECT timestamp 2310 SELECT timestamp
2311 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2311 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
@@ -2314,13 +2314,13 @@ BEGIN @@ -2314,13 +2314,13 @@ BEGIN
2314 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2314 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2315 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2315 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2316 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2316 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2317 - AND exercicio = '|| reRecordConta.exercicio ||' 2317 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2318 ) 2318 )
2319 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2319 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2320 - AND exercicio = '|| reRecordConta.exercicio ||' 2320 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2321 ) 2321 )
2322 AND configuracao_empenho_lla_lotacao.cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2322 AND configuracao_empenho_lla_lotacao.cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2323 - AND configuracao_empenho_lla_lotacao.exercicio = '|| reRecordConta.exercicio ||' 2323 + AND configuracao_empenho_lla_lotacao.exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2324 ; 2324 ;
2325 2325
2326 '; 2326 ';
@@ -2332,7 +2332,7 @@ BEGIN @@ -2332,7 +2332,7 @@ BEGIN
2332 , num_pao 2332 , num_pao
2333 , timestamp 2333 , timestamp
2334 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao 2334 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao
2335 - WHERE timestamp IN ( -- >= now()::timestamp(3) 2335 + WHERE timestamp IN (
2336 SELECT timestamp 2336 SELECT timestamp
2337 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2337 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2338 WHERE vigencia > ( 2338 WHERE vigencia > (
@@ -2340,13 +2340,13 @@ BEGIN @@ -2340,13 +2340,13 @@ BEGIN
2340 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla 2340 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2341 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||' 2341 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2342 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2342 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2343 - AND exercicio = '|| reRecordConta.exercicio ||' 2343 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2344 ) 2344 )
2345 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2345 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2346 - AND exercicio = '|| reRecordConta.exercicio ||' 2346 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2347 ) 2347 )
2348 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||' 2348 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2349 - AND exercicio = '|| reRecordConta.exercicio ||' 2349 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2350 GROUP BY cod_configuracao_lla 2350 GROUP BY cod_configuracao_lla
2351 , cod_orgao 2351 , cod_orgao
2352 , exercicio 2352 , exercicio
@@ -2360,9 +2360,9 @@ BEGIN @@ -2360,9 +2360,9 @@ BEGIN
2360 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao 2360 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao
2361 WHERE cod_configuracao_lla = '|| reRecordRH.cod_configuracao_lla ||' 2361 WHERE cod_configuracao_lla = '|| reRecordRH.cod_configuracao_lla ||'
2362 AND cod_orgao = '|| reRecordRH.cod_orgao ||' 2362 AND cod_orgao = '|| reRecordRH.cod_orgao ||'
2363 - AND exercicio = '|| reRecordRH.exercicio ||' 2363 + AND exercicio = '|| quote_literal(reRecordRH.exercicio) ||'
2364 AND num_pao = '|| reRecordRH.num_pao ||' 2364 AND num_pao = '|| reRecordRH.num_pao ||'
2365 - AND timestamp = '|| reRecordRH.timestamp ||' 2365 + AND timestamp = '|| quote_literal(reRecordRH.timestamp) ||'
2366 ; 2366 ;
2367 '; 2367 ';
2368 EXECUTE stSqlUpdate; 2368 EXECUTE stSqlUpdate;
@@ -2378,9 +2378,9 @@ BEGIN @@ -2378,9 +2378,9 @@ BEGIN
2378 VALUES 2378 VALUES
2379 ( '|| reRecordRH.cod_configuracao_lla ||' 2379 ( '|| reRecordRH.cod_configuracao_lla ||'
2380 , '|| reRecordRH.cod_orgao ||' 2380 , '|| reRecordRH.cod_orgao ||'
2381 - , '|| reRecordRH.exercicio ||' 2381 + , '|| quote_literal(reRecordRH.exercicio) ||'
2382 , '|| reRecordRH.num_pao ||' 2382 , '|| reRecordRH.num_pao ||'
2383 - , '|| reRecordRH.timestamp ||' 2383 + , '|| quote_literal(reRecordRH.timestamp) ||'
2384 ); 2384 );
2385 '; 2385 ';
2386 EXECUTE stSqlUpdate; 2386 EXECUTE stSqlUpdate;
@@ -2395,6 +2395,7 @@ BEGIN @@ -2395,6 +2395,7 @@ BEGIN
2395 stSqlConta := ' 2395 stSqlConta := '
2396 SELECT cod_empresa 2396 SELECT cod_empresa
2397 , num_orgao_banpara 2397 , num_orgao_banpara
  2398 + , MAX(timestamp) AS timestamp
2398 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara 2399 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
2399 WHERE vigencia >= ( 2400 WHERE vigencia >= (
2400 SELECT MAX(vigencia) 2401 SELECT MAX(vigencia)
@@ -2407,10 +2408,10 @@ BEGIN @@ -2407,10 +2408,10 @@ BEGIN
2407 '; 2408 ';
2408 FOR reRecordConta IN EXECUTE stSqlConta LOOP 2409 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2409 2410
2410 - stSqlRH := ' 2411 + stSqlUpdate := '
2411 UPDATE administracao.configuracao 2412 UPDATE administracao.configuracao
2412 SET valor = ( 2413 SET valor = (
2413 - SELECT timestamp 2414 + SELECT MAX(timestamp) AS timestamp
2414 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara 2415 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
2415 WHERE vigencia = ( 2416 WHERE vigencia = (
2416 SELECT MAX(vigencia) 2417 SELECT MAX(vigencia)
@@ -2423,17 +2424,17 @@ BEGIN @@ -2423,17 +2424,17 @@ BEGIN
2423 AND num_orgao_banpara = '|| reRecordConta.num_orgao_banpara ||' 2424 AND num_orgao_banpara = '|| reRecordConta.num_orgao_banpara ||'
2424 ) 2425 )
2425 WHERE cod_modulo = 19 2426 WHERE cod_modulo = 19
2426 - AND exercicio = EXTRACT(year FROM now()) 2427 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2427 AND parametro = ''timestamp_vigencia_RH'' 2428 AND parametro = ''timestamp_vigencia_RH''
2428 ; 2429 ;
2429 '; 2430 ';
2430 EXECUTE stSqlUpdate; 2431 EXECUTE stSqlUpdate;
2431 2432
2432 - SELECT valor 2433 + SELECT valor::TIMESTAMP
2433 INTO tsTimestampIMA 2434 INTO tsTimestampIMA
2434 FROM administracao.configuracao 2435 FROM administracao.configuracao
2435 WHERE cod_modulo = 19 2436 WHERE cod_modulo = 19
2436 - AND exercicio = EXTRACT(year FROM now()) 2437 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2437 AND parametro = 'timestamp_vigencia_RH' 2438 AND parametro = 'timestamp_vigencia_RH'
2438 ; 2439 ;
2439 2440
@@ -2453,7 +2454,7 @@ BEGIN @@ -2453,7 +2454,7 @@ BEGIN
2453 , num_orgao_banpara 2454 , num_orgao_banpara
2454 , descricao || '' MIGRA ORGANOGRAMA'' 2455 , descricao || '' MIGRA ORGANOGRAMA''
2455 , now()::timestamp(3) 2456 , now()::timestamp(3)
2456 - , ( -- now()::date 2457 + , (
2457 SELECT dt_inicial 2458 SELECT dt_inicial
2458 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao 2459 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2459 WHERE cod_periodo_movimentacao = ( 2460 WHERE cod_periodo_movimentacao = (
@@ -2513,7 +2514,6 @@ BEGIN @@ -2513,7 +2514,6 @@ BEGIN
2513 SET cod_orgao = de_para_orgao.cod_orgao_new 2514 SET cod_orgao = de_para_orgao.cod_orgao_new
2514 FROM organograma.de_para_orgao 2515 FROM organograma.de_para_orgao
2515 WHERE configuracao_banpara_orgao.cod_orgao = de_para_orgao.cod_orgao 2516 WHERE configuracao_banpara_orgao.cod_orgao = de_para_orgao.cod_orgao
2516 - -- AND configuracao_banpara_orgao.timestamp >= now()::timestamp(3)  
2517 AND configuracao_banpara_orgao.timestamp IN ( 2517 AND configuracao_banpara_orgao.timestamp IN (
2518 SELECT timestamp 2518 SELECT timestamp
2519 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara 2519 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
@@ -2538,7 +2538,7 @@ BEGIN @@ -2538,7 +2538,7 @@ BEGIN
2538 , num_orgao_banpara 2538 , num_orgao_banpara
2539 , timestamp 2539 , timestamp
2540 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara_orgao 2540 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara_orgao
2541 - WHERE timestamp IN ( -->= now()::timestamp(3) 2541 + WHERE timestamp IN (
2542 SELECT timestamp 2542 SELECT timestamp
2543 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara 2543 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
2544 WHERE vigencia > ( 2544 WHERE vigencia > (
@@ -2596,6 +2596,7 @@ BEGIN @@ -2596,6 +2596,7 @@ BEGIN
2596 , cod_banco 2596 , cod_banco
2597 , cod_agencia 2597 , cod_agencia
2598 , cod_conta_corrente 2598 , cod_conta_corrente
  2599 + , MAX(timestamp) AS timestamp
2599 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta 2600 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta
2600 WHERE vigencia >= ( 2601 WHERE vigencia >= (
2601 SELECT MAX(vigencia) 2602 SELECT MAX(vigencia)
@@ -2610,10 +2611,10 @@ BEGIN @@ -2610,10 +2611,10 @@ BEGIN
2610 '; 2611 ';
2611 FOR reRecordConta IN EXECUTE stSqlConta LOOP 2612 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2612 2613
2613 - stSqlRH := ' 2614 + stSqlUpdate := '
2614 UPDATE administracao.configuracao 2615 UPDATE administracao.configuracao
2615 SET valor = ( 2616 SET valor = (
2616 - SELECT timestamp 2617 + SELECT MAX(timestamp) AS timestamp
2617 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta 2618 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta
2618 WHERE vigencia = ( 2619 WHERE vigencia = (
2619 SELECT MAX(vigencia) 2620 SELECT MAX(vigencia)
@@ -2630,17 +2631,17 @@ BEGIN @@ -2630,17 +2631,17 @@ BEGIN
2630 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||' 2631 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||'
2631 ) 2632 )
2632 WHERE cod_modulo = 19 2633 WHERE cod_modulo = 19
2633 - AND exercicio = EXTRACT(year FROM now()) 2634 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2634 AND parametro = ''timestamp_vigencia_RH'' 2635 AND parametro = ''timestamp_vigencia_RH''
2635 ; 2636 ;
2636 '; 2637 ';
2637 EXECUTE stSqlUpdate; 2638 EXECUTE stSqlUpdate;
2638 2639
2639 - SELECT valor 2640 + SELECT valor::TIMESTAMP
2640 INTO tsTimestampIMA 2641 INTO tsTimestampIMA
2641 FROM administracao.configuracao 2642 FROM administracao.configuracao
2642 WHERE cod_modulo = 19 2643 WHERE cod_modulo = 19
2643 - AND exercicio = EXTRACT(year FROM now()) 2644 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2644 AND parametro = 'timestamp_vigencia_RH' 2645 AND parametro = 'timestamp_vigencia_RH'
2645 ; 2646 ;
2646 2647
@@ -2664,7 +2665,7 @@ BEGIN @@ -2664,7 +2665,7 @@ BEGIN
2664 , cod_conta_corrente 2665 , cod_conta_corrente
2665 , descricao || '' MIGRA ORGANOGRAMA'' 2666 , descricao || '' MIGRA ORGANOGRAMA''
2666 , now()::timestamp(3) 2667 , now()::timestamp(3)
2667 - , ( -- now()::date 2668 + , (
2668 SELECT dt_inicial 2669 SELECT dt_inicial
2669 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao 2670 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2670 WHERE cod_periodo_movimentacao = ( 2671 WHERE cod_periodo_movimentacao = (
@@ -2738,7 +2739,6 @@ BEGIN @@ -2738,7 +2739,6 @@ BEGIN
2738 SET cod_orgao = de_para_orgao.cod_orgao_new 2739 SET cod_orgao = de_para_orgao.cod_orgao_new
2739 FROM organograma.de_para_orgao 2740 FROM organograma.de_para_orgao
2740 WHERE configuracao_bb_orgao.cod_orgao = de_para_orgao.cod_orgao 2741 WHERE configuracao_bb_orgao.cod_orgao = de_para_orgao.cod_orgao
2741 - -- AND configuracao_bb_orgao.timestamp >= now()::timestamp(3) --= '|| tsTimestampIMA ||'  
2742 AND configuracao_bb_orgao.timestamp IN ( 2742 AND configuracao_bb_orgao.timestamp IN (
2743 SELECT timestamp 2743 SELECT timestamp
2744 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta 2744 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta
@@ -2844,6 +2844,7 @@ BEGIN @@ -2844,6 +2844,7 @@ BEGIN
2844 , cod_banco 2844 , cod_banco
2845 , cod_agencia 2845 , cod_agencia
2846 , cod_conta_corrente 2846 , cod_conta_corrente
  2847 + , MAX(timestamp) AS timestamp
2847 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta 2848 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
2848 WHERE vigencia >= ( 2849 WHERE vigencia >= (
2849 SELECT MAX(vigencia) 2850 SELECT MAX(vigencia)
@@ -2858,10 +2859,10 @@ BEGIN @@ -2858,10 +2859,10 @@ BEGIN
2858 '; 2859 ';
2859 FOR reRecordConta IN EXECUTE stSqlConta LOOP 2860 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2860 2861
2861 - stSqlRH := ' 2862 + stSqlUpdate := '
2862 UPDATE administracao.configuracao 2863 UPDATE administracao.configuracao
2863 SET valor = ( 2864 SET valor = (
2864 - SELECT timestamp 2865 + SELECT MAX(timestamp) AS timestamp
2865 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta 2866 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
2866 WHERE vigencia = ( 2867 WHERE vigencia = (
2867 SELECT MAX(vigencia) 2868 SELECT MAX(vigencia)
@@ -2878,17 +2879,17 @@ BEGIN @@ -2878,17 +2879,17 @@ BEGIN
2878 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||' 2879 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||'
2879 ) 2880 )
2880 WHERE cod_modulo = 19 2881 WHERE cod_modulo = 19
2881 - AND exercicio = EXTRACT(year FROM now()) 2882 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2882 AND parametro = ''timestamp_vigencia_RH'' 2883 AND parametro = ''timestamp_vigencia_RH''
2883 ; 2884 ;
2884 '; 2885 ';
2885 EXECUTE stSqlUpdate; 2886 EXECUTE stSqlUpdate;
2886 2887
2887 - SELECT valor 2888 + SELECT valor::TIMESTAMP
2888 INTO tsTimestampIMA 2889 INTO tsTimestampIMA
2889 FROM administracao.configuracao 2890 FROM administracao.configuracao
2890 WHERE cod_modulo = 19 2891 WHERE cod_modulo = 19
2891 - AND exercicio = EXTRACT(year FROM now()) 2892 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2892 AND parametro = 'timestamp_vigencia_RH' 2893 AND parametro = 'timestamp_vigencia_RH'
2893 ; 2894 ;
2894 2895
@@ -2912,7 +2913,7 @@ BEGIN @@ -2912,7 +2913,7 @@ BEGIN
2912 , cod_conta_corrente 2913 , cod_conta_corrente
2913 , descricao || '' MIGRA ORGANOGRAMA'' 2914 , descricao || '' MIGRA ORGANOGRAMA''
2914 , now()::timestamp(3) 2915 , now()::timestamp(3)
2915 - , ( -- now()::date 2916 + , (
2916 SELECT dt_inicial 2917 SELECT dt_inicial
2917 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao 2918 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2918 WHERE cod_periodo_movimentacao = ( 2919 WHERE cod_periodo_movimentacao = (
@@ -2986,7 +2987,6 @@ BEGIN @@ -2986,7 +2987,6 @@ BEGIN
2986 SET cod_orgao = de_para_orgao.cod_orgao_new 2987 SET cod_orgao = de_para_orgao.cod_orgao_new
2987 FROM organograma.de_para_orgao 2988 FROM organograma.de_para_orgao
2988 WHERE configuracao_besc_orgao.cod_orgao = de_para_orgao.cod_orgao 2989 WHERE configuracao_besc_orgao.cod_orgao = de_para_orgao.cod_orgao
2989 - -- AND configuracao_besc_orgao.timestamp >= now()::timestamp(3)  
2990 AND configuracao_besc_orgao.timestamp IN ( 2990 AND configuracao_besc_orgao.timestamp IN (
2991 SELECT timestamp 2991 SELECT timestamp
2992 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta 2992 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
@@ -3019,7 +3019,7 @@ BEGIN @@ -3019,7 +3019,7 @@ BEGIN
3019 , timestamp 3019 , timestamp
3020 , cod_orgao 3020 , cod_orgao
3021 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_orgao 3021 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_orgao
3022 - WHERE timestamp IN ( -->= now()::timestamp(3) 3022 + WHERE timestamp IN (
3023 SELECT timestamp 3023 SELECT timestamp
3024 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta 3024 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
3025 WHERE vigencia > ( 3025 WHERE vigencia > (
@@ -3092,6 +3092,7 @@ BEGIN @@ -3092,6 +3092,7 @@ BEGIN
3092 , cod_banco 3092 , cod_banco
3093 , cod_agencia 3093 , cod_agencia
3094 , cod_conta_corrente 3094 , cod_conta_corrente
  3095 + , MAX(timestamp) AS timestamp
3095 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta 3096 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
3096 WHERE vigencia >= ( 3097 WHERE vigencia >= (
3097 SELECT MAX(vigencia) 3098 SELECT MAX(vigencia)
@@ -3106,10 +3107,10 @@ BEGIN @@ -3106,10 +3107,10 @@ BEGIN
3106 '; 3107 ';
3107 FOR reRecordConta IN EXECUTE stSqlConta LOOP 3108 FOR reRecordConta IN EXECUTE stSqlConta LOOP
3108 3109
3109 - stSqlRH := ' 3110 + stSqlUpdate := '
3110 UPDATE administracao.configuracao 3111 UPDATE administracao.configuracao
3111 SET valor = ( 3112 SET valor = (
3112 - SELECT timestamp 3113 + SELECT MAX(timestamp) AS timestamp
3113 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta 3114 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
3114 WHERE vigencia = ( 3115 WHERE vigencia = (
3115 SELECT MAX(vigencia) 3116 SELECT MAX(vigencia)
@@ -3126,17 +3127,18 @@ BEGIN @@ -3126,17 +3127,18 @@ BEGIN
3126 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||' 3127 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||'
3127 ) 3128 )
3128 WHERE cod_modulo = 19 3129 WHERE cod_modulo = 19
3129 - AND exercicio = EXTRACT(year FROM now()) 3130 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
3130 AND parametro = ''timestamp_vigencia_RH'' 3131 AND parametro = ''timestamp_vigencia_RH''
3131 ; 3132 ;
3132 '; 3133 ';
  3134 +
3133 EXECUTE stSqlUpdate; 3135 EXECUTE stSqlUpdate;
3134 3136
3135 - SELECT valor 3137 + SELECT valor::TIMESTAMP
3136 INTO tsTimestampIMA 3138 INTO tsTimestampIMA
3137 FROM administracao.configuracao 3139 FROM administracao.configuracao
3138 WHERE cod_modulo = 19 3140 WHERE cod_modulo = 19
3139 - AND exercicio = EXTRACT(year FROM now()) 3141 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
3140 AND parametro = 'timestamp_vigencia_RH' 3142 AND parametro = 'timestamp_vigencia_RH'
3141 ; 3143 ;
3142 3144
@@ -3160,7 +3162,7 @@ BEGIN @@ -3160,7 +3162,7 @@ BEGIN
3160 , cod_conta_corrente 3162 , cod_conta_corrente
3161 , descricao || '' MIGRA ORGANOGRAMA'' 3163 , descricao || '' MIGRA ORGANOGRAMA''
3162 , now()::timestamp(3) 3164 , now()::timestamp(3)
3163 - , ( -- now()::date 3165 + , (
3164 SELECT dt_inicial 3166 SELECT dt_inicial
3165 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao 3167 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
3166 WHERE cod_periodo_movimentacao = ( 3168 WHERE cod_periodo_movimentacao = (
@@ -3234,7 +3236,6 @@ BEGIN @@ -3234,7 +3236,6 @@ BEGIN
3234 SET cod_orgao = de_para_orgao.cod_orgao_new 3236 SET cod_orgao = de_para_orgao.cod_orgao_new
3235 FROM organograma.de_para_orgao 3237 FROM organograma.de_para_orgao
3236 WHERE configuracao_banrisul_orgao.cod_orgao = de_para_orgao.cod_orgao 3238 WHERE configuracao_banrisul_orgao.cod_orgao = de_para_orgao.cod_orgao
3237 - -- AND configuracao_banrisul_orgao.timestamp >= now()::timestamp(3)  
3238 AND configuracao_banrisul_orgao.timestamp IN ( 3239 AND configuracao_banrisul_orgao.timestamp IN (
3239 SELECT timestamp 3240 SELECT timestamp
3240 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta 3241 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
@@ -3267,7 +3268,7 @@ BEGIN @@ -3267,7 +3268,7 @@ BEGIN
3267 , timestamp 3268 , timestamp
3268 , cod_orgao 3269 , cod_orgao
3269 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_orgao 3270 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_orgao
3270 - WHERE timestamp IN ( -->= now()::timestamp(3) 3271 + WHERE timestamp IN (
3271 SELECT timestamp 3272 SELECT timestamp
3272 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta 3273 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
3273 WHERE vigencia > ( 3274 WHERE vigencia > (
@@ -3419,7 +3420,7 @@ BEGIN @@ -3419,7 +3420,7 @@ BEGIN
3419 stSqlUpdate := ' DELETE 3420 stSqlUpdate := ' DELETE
3420 FROM ponto_'|| reRecordEnt.cod_entidade ||'.configuracao_lotacao 3421 FROM ponto_'|| reRecordEnt.cod_entidade ||'.configuracao_lotacao
3421 WHERE cod_configuracao = '|| reRecordRH.cod_configuracao ||' 3422 WHERE cod_configuracao = '|| reRecordRH.cod_configuracao ||'
3422 - AND timestamp = '|| reRecordRH.timestamp ||' 3423 + AND timestamp = '|| quote_literal(reRecordRH.timestamp) ||'
3423 AND cod_orgao = '|| reRecordRH.cod_orgao ||' 3424 AND cod_orgao = '|| reRecordRH.cod_orgao ||'
3424 ; 3425 ;
3425 '; 3426 ';
@@ -3432,7 +3433,7 @@ BEGIN @@ -3432,7 +3433,7 @@ BEGIN
3432 ) 3433 )
3433 VALUES 3434 VALUES
3434 ( '|| reRecordRH.cod_configuracao ||' 3435 ( '|| reRecordRH.cod_configuracao ||'
3435 - , '|| reRecordRH.timestamp ||' 3436 + , '|| quote_literal(reRecordRH.timestamp) ||'
3436 , '|| reRecordRH.cod_orgao ||' 3437 , '|| reRecordRH.cod_orgao ||'
3437 ); 3438 );
3438 '; 3439 ';
gestaoAdministrativa/fontes/RPT/protocolo/report/design/assuntoAnalitico.rptdesign
  Diff comments   View file @842bba7
@@ -84,103 +84,36 @@ @@ -84,103 +84,36 @@
84 </scalar-parameter> 84 </scalar-parameter>
85 </parameters> 85 </parameters>
86 <data-sources> 86 <data-sources>
87 - <oda-data-source extensionID="org.eclipse.birt.report.data.oda.jdbc" name="postgres" id="1147" extends="urbem_221.postgres">  
88 - </oda-data-source> 87 + <oda-data-source extensionID="org.eclipse.birt.report.data.oda.jdbc" name="postgres" id="1147"
  88 + extends="urbem_221.postgres"/>
89 </data-sources> 89 </data-sources>
90 <data-sets> 90 <data-sets>
91 <oda-data-set extensionID="org.eclipse.birt.report.data.oda.jdbc.JdbcSelectDataSet" name="dsAssunto" id="1149"> 91 <oda-data-set extensionID="org.eclipse.birt.report.data.oda.jdbc.JdbcSelectDataSet" name="dsAssunto" id="1149">
92 - <list-property name="columnHints">  
93 - <structure>  
94 - <property name="columnName">codigo</property>  
95 - <text-property name="displayName">codigo</text-property>  
96 - </structure>  
97 - <structure>  
98 - <property name="columnName">nom_classificacao</property>  
99 - <text-property name="displayName">nom_classificacao</text-property>  
100 - </structure>  
101 - <structure>  
102 - <property name="columnName">nom_assunto</property>  
103 - <text-property name="displayName">nom_assunto</text-property>  
104 - </structure>  
105 - <structure>  
106 - <property name="columnName">cod_classificacao</property>  
107 - <text-property name="displayName">cod_classificacao</text-property>  
108 - </structure>  
109 - <structure>  
110 - <property name="columnName">cod_assunto</property>  
111 - <text-property name="displayName">cod_assunto</text-property>  
112 - </structure>  
113 - </list-property>  
114 - <structure name="cachedMetaData">  
115 - <list-property name="resultSet">  
116 - <structure>  
117 - <property name="position">1</property>  
118 - <property name="name">codigo</property>  
119 - <property name="dataType">string</property>  
120 - </structure>  
121 - <structure>  
122 - <property name="position">2</property>  
123 - <property name="name">nom_classificacao</property>  
124 - <property name="dataType">string</property>  
125 - </structure>  
126 - <structure>  
127 - <property name="position">3</property>  
128 - <property name="name">nom_assunto</property>  
129 - <property name="dataType">string</property>  
130 - </structure>  
131 - <structure>  
132 - <property name="position">4</property>  
133 - <property name="name">cod_classificacao</property>  
134 - <property name="dataType">integer</property>  
135 - </structure>  
136 - <structure>  
137 - <property name="position">5</property>  
138 - <property name="name">cod_assunto</property>  
139 - <property name="dataType">integer</property>  
140 - </structure>  
141 - </list-property>  
142 - </structure>  
143 - <method name="beforeOpen"><![CDATA[this.queryText = this.queryText + params["pOrdem"];]]></method>  
144 - <property name="dataSource">postgres</property>  
145 - <list-property name="resultSet">  
146 - <structure>  
147 - <property name="position">1</property>  
148 - <property name="name">codigo</property>  
149 - <property name="nativeName">codigo</property>  
150 - <property name="dataType">string</property>  
151 - <property name="nativeDataType">12</property>  
152 - </structure> 92 + <list-property name="columnHints"/>
  93 + <list-property name="parameters">
153 <structure> 94 <structure>
154 - <property name="position">2</property>  
155 - <property name="name">nom_classificacao</property>  
156 - <property name="nativeName">nom_classificacao</property> 95 + <property name="name">param_1</property>
  96 + <property name="paramName">exercicio</property>
157 <property name="dataType">string</property> 97 <property name="dataType">string</property>
158 - <property name="nativeDataType">12</property> 98 + <property name="position">1</property>
  99 + <property name="isInput">true</property>
  100 + <property name="isOutput">false</property>
159 </structure> 101 </structure>
160 <structure> 102 <structure>
161 - <property name="position">3</property>  
162 - <property name="name">nom_assunto</property>  
163 - <property name="nativeName">nom_assunto</property> 103 + <property name="name">param_2</property>
  104 + <property name="paramName">exercicio</property>
164 <property name="dataType">string</property> 105 <property name="dataType">string</property>
165 - <property name="nativeDataType">12</property>  
166 - </structure>  
167 - <structure>  
168 - <property name="position">4</property>  
169 - <property name="name">cod_classificacao</property>  
170 - <property name="nativeName">cod_classificacao</property>  
171 - <property name="dataType">integer</property>  
172 - <property name="nativeDataType">4</property>  
173 - </structure>  
174 - <structure>  
175 - <property name="position">5</property>  
176 - <property name="name">cod_assunto</property>  
177 - <property name="nativeName">cod_assunto</property>  
178 - <property name="dataType">integer</property>  
179 - <property name="nativeDataType">4</property> 106 + <property name="position">2</property>
  107 + <property name="isInput">true</property>
  108 + <property name="isOutput">false</property>
180 </structure> 109 </structure>
181 </list-property> 110 </list-property>
  111 + <structure name="cachedMetaData"/>
  112 + <method name="beforeOpen"><![CDATA[this.queryText = this.queryText + params["pOrdem"];]]></method>
  113 + <property name="dataSource">postgres</property>
  114 + <list-property name="resultSet"/>
182 <xml-property name="queryText"><![CDATA[SELECT 115 <xml-property name="queryText"><![CDATA[SELECT
183 - assunto.cod_classificacao || '.' || assunto.cod_assunto as codigo, 116 + LPAD(assunto.cod_classificacao::varchar, (SELECT CHAR_LENGTH(SPLIT_PART((SELECT valor FROM administracao.configuracao WHERE parametro = 'mascara_assunto' AND exercicio = ?), '.', 1))), '0') || '.' || LPAD(assunto.cod_assunto::varchar, (SELECT CHAR_LENGTH(SPLIT_PART((SELECT valor FROM administracao.configuracao WHERE parametro = 'mascara_assunto' AND exercicio = ?), '.', 2))), '0') AS codigo,
184 c.nom_classificacao, 117 c.nom_classificacao,
185 assunto.nom_assunto, 118 assunto.nom_assunto,
186 assunto.cod_classificacao, 119 assunto.cod_classificacao,
@@ -313,32 +246,28 @@ WHERE @@ -313,32 +246,28 @@ WHERE
313 </model:DesignValues>]]></xml-property> 246 </model:DesignValues>]]></xml-property>
314 </oda-data-set> 247 </oda-data-set>
315 <oda-data-set extensionID="org.eclipse.birt.report.data.oda.jdbc.JdbcSelectDataSet" name="dsAndamento" id="1286"> 248 <oda-data-set extensionID="org.eclipse.birt.report.data.oda.jdbc.JdbcSelectDataSet" name="dsAndamento" id="1286">
  249 + <list-property name="columnHints"/>
316 <list-property name="parameters"> 250 <list-property name="parameters">
317 <structure> 251 <structure>
318 <property name="name">param_1</property> 252 <property name="name">param_1</property>
319 - <property name="nativeName"></property>  
320 <property name="dataType">integer</property> 253 <property name="dataType">integer</property>
321 - <property name="nativeDataType">4</property>  
322 <property name="position">1</property> 254 <property name="position">1</property>
323 - <expression name="defaultValue">3</expression>  
324 - <property name="isOptional">false</property> 255 + <expression name="defaultValue" type="javascript">NULL</expression>
325 <property name="isInput">true</property> 256 <property name="isInput">true</property>
326 <property name="isOutput">false</property> 257 <property name="isOutput">false</property>
327 </structure> 258 </structure>
328 <structure> 259 <structure>
329 <property name="name">param_2</property> 260 <property name="name">param_2</property>
330 - <property name="nativeName"></property>  
331 <property name="dataType">integer</property> 261 <property name="dataType">integer</property>
332 - <property name="nativeDataType">4</property>  
333 <property name="position">2</property> 262 <property name="position">2</property>
334 - <expression name="defaultValue">1</expression>  
335 - <property name="isOptional">false</property> 263 + <expression name="defaultValue" type="javascript">NULL</expression>
336 <property name="isInput">true</property> 264 <property name="isInput">true</property>
337 <property name="isOutput">false</property> 265 <property name="isOutput">false</property>
338 </structure> 266 </structure>
339 </list-property> 267 </list-property>
340 <structure name="cachedMetaData"/> 268 <structure name="cachedMetaData"/>
341 <property name="dataSource">postgres</property> 269 <property name="dataSource">postgres</property>
  270 + <list-property name="resultSet"/>
342 <xml-property name="queryText"><![CDATA[ SELECT anda.cod_assunto, 271 <xml-property name="queryText"><![CDATA[ SELECT anda.cod_assunto,
343 anda.descricao, 272 anda.descricao,
344 anda.ordem, 273 anda.ordem,
@@ -355,49 +284,64 @@ WHERE @@ -355,49 +284,64 @@ WHERE
355 284
356 WHERE anda.cod_orgao = orgao.cod_orgao 285 WHERE anda.cod_orgao = orgao.cod_orgao
357 AND cod_assunto = ? 286 AND cod_assunto = ?
358 - AND cod_classificacao = ?]]></xml-property> 287 + AND cod_classificacao = ?
  288 + ORDER BY anda.ordem]]></xml-property>
359 <xml-property name="designerValues"><![CDATA[<?xml version="1.0" encoding="UTF-8"?> 289 <xml-property name="designerValues"><![CDATA[<?xml version="1.0" encoding="UTF-8"?>
360 <model:DesignValues xmlns:design="http://www.eclipse.org/datatools/connectivity/oda/design" xmlns:model="http://www.eclipse.org/birt/report/model/adapter/odaModel"> 290 <model:DesignValues xmlns:design="http://www.eclipse.org/datatools/connectivity/oda/design" xmlns:model="http://www.eclipse.org/birt/report/model/adapter/odaModel">
361 - <Version>1.0</Version>  
362 - <design:DataSetParameters>  
363 - <design:parameterDefinitions>  
364 - <design:inOutMode>In</design:inOutMode>  
365 - <design:attributes>  
366 - <design:name></design:name>  
367 - <design:position>1</design:position>  
368 - <design:nativeDataTypeCode>4</design:nativeDataTypeCode>  
369 - <design:nullability>Unknown</design:nullability>  
370 - </design:attributes>  
371 - <design:inputAttributes>  
372 - <design:elementAttributes>  
373 - <design:defaultScalarValue>3</design:defaultScalarValue>  
374 - <design:optional>false</design:optional>  
375 - </design:elementAttributes>  
376 - </design:inputAttributes>  
377 - </design:parameterDefinitions>  
378 - <design:parameterDefinitions>  
379 - <design:inOutMode>In</design:inOutMode>  
380 - <design:attributes>  
381 - <design:name></design:name>  
382 - <design:position>2</design:position>  
383 - <design:nativeDataTypeCode>4</design:nativeDataTypeCode>  
384 - <design:nullability>Unknown</design:nullability>  
385 - </design:attributes>  
386 - <design:inputAttributes>  
387 - <design:elementAttributes>  
388 - <design:defaultScalarValue>1</design:defaultScalarValue>  
389 - <design:optional>false</design:optional>  
390 - </design:elementAttributes>  
391 - </design:inputAttributes>  
392 - </design:parameterDefinitions>  
393 - </design:DataSetParameters> 291 + <Version>2.0</Version>
  292 + <DataSetParameters>
  293 + <parameter>
  294 + <design:ParameterDefinition>
  295 + <design:inOutMode>In</design:inOutMode>
  296 + <design:attributes>
  297 + <design:identifier>
  298 + <design:name></design:name>
  299 + <design:position>1</design:position>
  300 + </design:identifier>
  301 + <design:nativeDataTypeCode>4</design:nativeDataTypeCode>
  302 + <design:nullability>Unknown</design:nullability>
  303 + </design:attributes>
  304 + <design:inputAttributes>
  305 + <design:elementAttributes>
  306 + <design:defaultValues>
  307 + <design:values>CustomData value: 3, displayValue: null</design:values>
  308 + </design:defaultValues>
  309 + <design:optional>false</design:optional>
  310 + </design:elementAttributes>
  311 + </design:inputAttributes>
  312 + </design:ParameterDefinition>
  313 + </parameter>
  314 + <parameter>
  315 + <design:ParameterDefinition>
  316 + <design:inOutMode>In</design:inOutMode>
  317 + <design:attributes>
  318 + <design:identifier>
  319 + <design:name></design:name>
  320 + <design:position>2</design:position>
  321 + </design:identifier>
  322 + <design:nativeDataTypeCode>4</design:nativeDataTypeCode>
  323 + <design:nullability>Unknown</design:nullability>
  324 + </design:attributes>
  325 + <design:inputAttributes>
  326 + <design:elementAttributes>
  327 + <design:defaultValues>
  328 + <design:values>CustomData value: 1, displayValue: null</design:values>
  329 + </design:defaultValues>
  330 + <design:optional>false</design:optional>
  331 + </design:elementAttributes>
  332 + </design:inputAttributes>
  333 + </design:ParameterDefinition>
  334 + </parameter>
  335 + </DataSetParameters>
394 <design:ResultSets derivedMetaData="true"> 336 <design:ResultSets derivedMetaData="true">
395 <design:resultSetDefinitions> 337 <design:resultSetDefinitions>
396 <design:resultSetColumns> 338 <design:resultSetColumns>
397 <design:resultColumnDefinitions> 339 <design:resultColumnDefinitions>
398 <design:attributes> 340 <design:attributes>
399 - <design:name>cod_assunto</design:name>  
400 - <design:position>1</design:position> 341 + <design:identifier>
  342 + <design:name>cod_assunto</design:name>
  343 + <design:position>1</design:position>
  344 + </design:identifier>
401 <design:nativeDataTypeCode>4</design:nativeDataTypeCode> 345 <design:nativeDataTypeCode>4</design:nativeDataTypeCode>
402 <design:precision>10</design:precision> 346 <design:precision>10</design:precision>
403 <design:scale>0</design:scale> 347 <design:scale>0</design:scale>
@@ -415,8 +359,10 @@ WHERE @@ -415,8 +359,10 @@ WHERE
415 </design:resultColumnDefinitions> 359 </design:resultColumnDefinitions>
416 <design:resultColumnDefinitions> 360 <design:resultColumnDefinitions>
417 <design:attributes> 361 <design:attributes>
418 - <design:name>descricao</design:name>  
419 - <design:position>2</design:position> 362 + <design:identifier>
  363 + <design:name>descricao</design:name>
  364 + <design:position>2</design:position>
  365 + </design:identifier>
420 <design:nativeDataTypeCode>12</design:nativeDataTypeCode> 366 <design:nativeDataTypeCode>12</design:nativeDataTypeCode>
421 <design:precision>0</design:precision> 367 <design:precision>0</design:precision>
422 <design:scale>0</design:scale> 368 <design:scale>0</design:scale>
@@ -434,8 +380,10 @@ WHERE @@ -434,8 +380,10 @@ WHERE
434 </design:resultColumnDefinitions> 380 </design:resultColumnDefinitions>
435 <design:resultColumnDefinitions> 381 <design:resultColumnDefinitions>
436 <design:attributes> 382 <design:attributes>
437 - <design:name>nom_setor</design:name>  
438 - <design:position>3</design:position> 383 + <design:identifier>
  384 + <design:name>nom_setor</design:name>
  385 + <design:position>3</design:position>
  386 + </design:identifier>
439 <design:nativeDataTypeCode>12</design:nativeDataTypeCode> 387 <design:nativeDataTypeCode>12</design:nativeDataTypeCode>
440 <design:precision>60</design:precision> 388 <design:precision>60</design:precision>
441 <design:scale>0</design:scale> 389 <design:scale>0</design:scale>
@@ -453,8 +401,10 @@ WHERE @@ -453,8 +401,10 @@ WHERE
453 </design:resultColumnDefinitions> 401 </design:resultColumnDefinitions>
454 <design:resultColumnDefinitions> 402 <design:resultColumnDefinitions>
455 <design:attributes> 403 <design:attributes>
456 - <design:name>ordem</design:name>  
457 - <design:position>4</design:position> 404 + <design:identifier>
  405 + <design:name>ordem</design:name>
  406 + <design:position>4</design:position>
  407 + </design:identifier>
458 <design:nativeDataTypeCode>4</design:nativeDataTypeCode> 408 <design:nativeDataTypeCode>4</design:nativeDataTypeCode>
459 <design:precision>10</design:precision> 409 <design:precision>10</design:precision>
460 <design:scale>0</design:scale> 410 <design:scale>0</design:scale>
@@ -635,6 +585,7 @@ WHERE @@ -635,6 +585,7 @@ WHERE
635 <row id="1304"> 585 <row id="1304">
636 <cell id="1305"> 586 <cell id="1305">
637 <table id="1152"> 587 <table id="1152">
  588 + <property name="style">NewStyle</property>
638 <property name="marginTop">0pt</property> 589 <property name="marginTop">0pt</property>
639 <property name="width">100%</property> 590 <property name="width">100%</property>
640 <property name="dataSet">dsAssunto</property> 591 <property name="dataSet">dsAssunto</property>
@@ -667,16 +618,18 @@ WHERE @@ -667,16 +618,18 @@ WHERE
667 </list-property> 618 </list-property>
668 <property name="pageBreakInterval">50</property> 619 <property name="pageBreakInterval">50</property>
669 <column id="1171"> 620 <column id="1171">
670 - <property name="backgroundColor">#E6E6E6</property>  
671 - <property name="width">0.848in</property> 621 + <property name="backgroundColor">#FFFFFF</property>
  622 + <property name="width">1.24in</property>
  623 + </column>
  624 + <column id="1172">
  625 + <property name="width">6.4in</property>
672 </column> 626 </column>
673 - <column id="1172"/>  
674 <detail> 627 <detail>
675 <row id="1156"> 628 <row id="1156">
676 <cell id="1157"> 629 <cell id="1157">
677 <property name="colSpan">2</property> 630 <property name="colSpan">2</property>
678 <property name="rowSpan">1</property> 631 <property name="rowSpan">1</property>
679 - <property name="backgroundColor">#E6E6E6</property> 632 + <property name="backgroundColor">#FFFFFF</property>
680 <label id="1173"> 633 <label id="1173">
681 <property name="fontWeight">bold</property> 634 <property name="fontWeight">bold</property>
682 <text-property name="text">Assunto</text-property> 635 <text-property name="text">Assunto</text-property>
@@ -685,7 +638,7 @@ WHERE @@ -685,7 +638,7 @@ WHERE
685 </row> 638 </row>
686 <row id="1159"> 639 <row id="1159">
687 <cell id="1160"> 640 <cell id="1160">
688 - <property name="backgroundColor">#E6E6E6</property> 641 + <property name="backgroundColor">#FFFFFF</property>
689 <label id="1174"> 642 <label id="1174">
690 <text-property name="text">Código:</text-property> 643 <text-property name="text">Código:</text-property>
691 </label> 644 </label>
@@ -698,7 +651,7 @@ WHERE @@ -698,7 +651,7 @@ WHERE
698 </row> 651 </row>
699 <row id="1162"> 652 <row id="1162">
700 <cell id="1163"> 653 <cell id="1163">
701 - <property name="backgroundColor">#E6E6E6</property> 654 + <property name="backgroundColor">#FFFFFF</property>
702 <label id="1175"> 655 <label id="1175">
703 <text-property name="text">Classificação:</text-property> 656 <text-property name="text">Classificação:</text-property>
704 </label> 657 </label>
@@ -711,7 +664,7 @@ WHERE @@ -711,7 +664,7 @@ WHERE
711 </row> 664 </row>
712 <row id="1165"> 665 <row id="1165">
713 <cell id="1166"> 666 <cell id="1166">
714 - <property name="backgroundColor">#E6E6E6</property> 667 + <property name="backgroundColor">#FFFFFF</property>
715 <label id="1176"> 668 <label id="1176">
716 <text-property name="text">Assunto:</text-property> 669 <text-property name="text">Assunto:</text-property>
717 </label> 670 </label>
@@ -778,145 +731,133 @@ WHERE @@ -778,145 +731,133 @@ WHERE
778 </table> 731 </table>
779 </cell> 732 </cell>
780 </row> 733 </row>
781 - <row id="1219">  
782 - <cell id="1220"> 734 + <row id="1237">
  735 + <cell id="1238">
783 <property name="colSpan">2</property> 736 <property name="colSpan">2</property>
784 <property name="rowSpan">1</property> 737 <property name="rowSpan">1</property>
785 - <label id="1231">  
786 - <property name="fontWeight">bold</property>  
787 - <text-property name="text">Andamento Padrão</text-property>  
788 - </label>  
789 - </cell>  
790 - </row>  
791 - <row id="1222">  
792 - <cell id="1223">  
793 - <label id="1232">  
794 - <text-property name="text">Setor:</text-property>  
795 - </label>  
796 - </cell>  
797 - <cell id="1224">  
798 - <data id="1291"> 738 + <property name="backgroundColor">#FFFFFF</property>
  739 + <table id="6667">
  740 + <property name="width">100%</property>
799 <property name="dataSet">dsAndamento</property> 741 <property name="dataSet">dsAndamento</property>
800 - <list-property name="boundDataColumns">  
801 - <structure>  
802 - <property name="name">cod_assunto</property>  
803 - <expression name="expression">dataSetRow["cod_assunto"]</expression>  
804 - <property name="dataType">integer</property>  
805 - </structure>  
806 - <structure>  
807 - <property name="name">descricao</property>  
808 - <expression name="expression">dataSetRow["descricao"]</expression>  
809 - <property name="dataType">string</property>  
810 - </structure>  
811 - <structure>  
812 - <property name="name">nom_setor</property>  
813 - <expression name="expression">dataSetRow["nom_setor"]</expression>  
814 - <property name="dataType">string</property>  
815 - </structure> 742 + <list-property name="paramBindings">
816 <structure> 743 <structure>
817 - <property name="name">ordem</property>  
818 - <expression name="expression">dataSetRow["ordem"]</expression>  
819 - <property name="dataType">integer</property> 744 + <property name="paramName">param_1</property>
  745 + <simple-property-list name="expression">
  746 + <value type="javascript">row["cod_assunto"]</value>
  747 + </simple-property-list>
820 </structure> 748 </structure>
821 <structure> 749 <structure>
822 - <property name="name">nome_setor</property>  
823 - <text-property name="displayName">nom_setor</text-property>  
824 - <expression name="expression">row["nom_setor"]</expression>  
825 - <property name="dataType">string</property> 750 + <property name="paramName">param_2</property>
  751 + <simple-property-list name="expression">
  752 + <value type="javascript">row["cod_classificacao"]</value>
  753 + </simple-property-list>
826 </structure> 754 </structure>
827 </list-property> 755 </list-property>
828 - <property name="resultSetColumn">nome_setor</property>  
829 - </data>  
830 - </cell>  
831 - </row>  
832 - <row id="1225">  
833 - <cell id="1226">  
834 - <label id="1233">  
835 - <text-property name="text">Ordem:</text-property>  
836 - </label>  
837 - </cell>  
838 - <cell id="1227">  
839 - <data id="1292">  
840 - <property name="dataSet">dsAndamento</property>  
841 <list-property name="boundDataColumns"> 756 <list-property name="boundDataColumns">
842 <structure> 757 <structure>
843 - <property name="name">cod_assunto</property>  
844 - <expression name="expression">dataSetRow["cod_assunto"]</expression>  
845 - <property name="dataType">integer</property>  
846 - </structure>  
847 - <structure>  
848 - <property name="name">descricao</property>  
849 - <expression name="expression">dataSetRow["descricao"]</expression>  
850 - <property name="dataType">string</property>  
851 - </structure>  
852 - <structure>  
853 <property name="name">nom_setor</property> 758 <property name="name">nom_setor</property>
854 - <expression name="expression">dataSetRow["nom_setor"]</expression> 759 + <text-property name="displayName">nom_setor</text-property>
  760 + <expression name="expression" type="javascript">dataSetRow["nom_setor"]</expression>
855 <property name="dataType">string</property> 761 <property name="dataType">string</property>
  762 + <property name="allowExport">true</property>
856 </structure> 763 </structure>
857 <structure> 764 <structure>
858 <property name="name">ordem</property> 765 <property name="name">ordem</property>
859 - <expression name="expression">dataSetRow["ordem"]</expression>  
860 - <property name="dataType">integer</property>  
861 - </structure>  
862 - <structure>  
863 - <property name="name">num_ordem</property>  
864 <text-property name="displayName">ordem</text-property> 766 <text-property name="displayName">ordem</text-property>
865 - <expression name="expression">row["ordem"]</expression>  
866 - <property name="dataType">integer</property>  
867 - </structure>  
868 - </list-property>  
869 - <property name="resultSetColumn">num_ordem</property>  
870 - </data>  
871 - </cell>  
872 - </row>  
873 - <row id="1228">  
874 - <cell id="1229">  
875 - <label id="1234">  
876 - <text-property name="text">Descrição:</text-property>  
877 - </label>  
878 - </cell>  
879 - <cell id="1230">  
880 - <data id="1293">  
881 - <property name="dataSet">dsAndamento</property>  
882 - <list-property name="boundDataColumns">  
883 - <structure>  
884 - <property name="name">cod_assunto</property>  
885 - <expression name="expression">dataSetRow["cod_assunto"]</expression> 767 + <expression name="expression" type="javascript">dataSetRow['ordem']</expression>
886 <property name="dataType">integer</property> 768 <property name="dataType">integer</property>
  769 + <property name="allowExport">true</property>
887 </structure> 770 </structure>
888 <structure> 771 <structure>
889 <property name="name">descricao</property> 772 <property name="name">descricao</property>
890 - <expression name="expression">dataSetRow["descricao"]</expression>  
891 - <property name="dataType">string</property>  
892 - </structure>  
893 - <structure>  
894 - <property name="name">nom_setor</property>  
895 - <expression name="expression">dataSetRow["nom_setor"]</expression>  
896 - <property name="dataType">string</property>  
897 - </structure>  
898 - <structure>  
899 - <property name="name">ordem</property>  
900 - <expression name="expression">dataSetRow["ordem"]</expression>  
901 - <property name="dataType">integer</property>  
902 - </structure>  
903 - <structure>  
904 - <property name="name">nom_descricao</property>  
905 <text-property name="displayName">descricao</text-property> 773 <text-property name="displayName">descricao</text-property>
906 - <expression name="expression">row["descricao"]</expression> 774 + <expression name="expression" type="javascript">dataSetRow['descricao']</expression>
907 <property name="dataType">string</property> 775 <property name="dataType">string</property>
  776 + <property name="allowExport">true</property>
908 </structure> 777 </structure>
909 </list-property> 778 </list-property>
910 - <property name="resultSetColumn">nom_descricao</property>  
911 - </data> 779 + <column id="6683">
  780 + <property name="backgroundColor">#FFFFFF</property>
  781 + <property name="width">1.2395833333333333in</property>
  782 + </column>
  783 + <column id="6684">
  784 + <property name="width">6.4in</property>
  785 + </column>
  786 + <header>
  787 + <row id="6668">
  788 + <property name="backgroundColor">#E6E6E6</property>
  789 + <cell id="6669">
  790 + <property name="colSpan">2</property>
  791 + <property name="rowSpan">1</property>
  792 + <label id="1231">
  793 + <property name="fontWeight">bold</property>
  794 + <property name="textAlign">left</property>
  795 + <text-property name="text">Andamento Padrão</text-property>
  796 + </label>
  797 + </cell>
  798 + </row>
  799 + </header>
  800 + <detail>
  801 + <row id="6671">
  802 + <cell id="6672">
  803 + <label id="1232">
  804 + <text-property name="text">Setor:</text-property>
  805 + </label>
  806 + </cell>
  807 + <cell id="6673">
  808 + <text-data id="6685">
  809 + <expression name="valueExpr">row["nom_setor"]</expression>
  810 + <property name="contentType">html</property>
  811 + </text-data>
  812 + </cell>
  813 + </row>
  814 + <row id="6674">
  815 + <cell id="6675">
  816 + <label id="1233">
  817 + <text-property name="text">Ordem:</text-property>
  818 + </label>
  819 + </cell>
  820 + <cell id="6676">
  821 + <text-data id="6686">
  822 + <expression name="valueExpr">row["ordem"]</expression>
  823 + <property name="contentType">html</property>
  824 + </text-data>
  825 + </cell>
  826 + </row>
  827 + <row id="6677">
  828 + <cell id="6678">
  829 + <label id="1234">
  830 + <text-property name="text">Descrição:</text-property>
  831 + </label>
  832 + </cell>
  833 + <cell id="6679">
  834 + <text-data id="6687">
  835 + <expression name="valueExpr">row["descricao"]</expression>
  836 + <property name="contentType">html</property>
  837 + </text-data>
  838 + </cell>
  839 + </row>
  840 + </detail>
  841 + </table>
912 </cell> 842 </cell>
913 </row> 843 </row>
914 - <row id="1237">  
915 - <cell id="1238"> 844 + <row id="6692">
  845 + <cell id="6693">
916 <property name="colSpan">2</property> 846 <property name="colSpan">2</property>
917 <property name="rowSpan">1</property> 847 <property name="rowSpan">1</property>
918 <property name="backgroundColor">#FFFFFF</property> 848 <property name="backgroundColor">#FFFFFF</property>
919 - <label id="1240"/> 849 + <label id="6695"/>
  850 + </cell>
  851 + </row>
  852 + <row id="6688">
  853 + <cell id="6689">
  854 + <property name="colSpan">2</property>
  855 + <property name="rowSpan">1</property>
  856 + <property name="backgroundColor">#FFFFFF</property>
  857 + <label id="6691">
  858 + <property name="borderTopStyle">solid</property>
  859 + <property name="borderTopWidth">thin</property>
  860 + </label>
920 </cell> 861 </cell>
921 </row> 862 </row>
922 </detail> 863 </detail>
@@ -927,6 +868,5 @@ WHERE @@ -927,6 +868,5 @@ WHERE
927 </cell> 868 </cell>
928 </row> 869 </row>
929 </grid> 870 </grid>
930 - <label id="1306"/>  
931 </body> 871 </body>
932 </report> 872 </report>
gestaoAdministrativa/fontes/SQL/GA_2053.sql 0 → 100644
  Diff comments   View file @842bba7
@@ -0,0 +1,54 @@ @@ -0,0 +1,54 @@
  1 +/*
  2 + **********************************************************************************
  3 + * *
  4 + * @package URBEM CNM - Soluções em Gestão Pública *
  5 + * @copyright (c) 2013 Confederação Nacional de Municí­pos *
  6 + * @author Confederação Nacional de Municí­pios *
  7 + * *
  8 + * O URBEM CNM é um software livre; você pode redistribuí­-lo e/ou modificá-lo sob *
  9 + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do *
  10 + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. *
  11 + * *
  12 + * Este programa é distribuí­do na expectativa de que seja útil, porém, *
  13 + * SEM NENHUMA GARANTIA; nem mesmo a garantia implí­cita de COMERCIABILIDADE OU *
  14 + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU *
  15 + * para mais detalhes. *
  16 + * *
  17 + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" *
  18 + * com este programa; se não, escreva para a Free Software Foundation Inc., *
  19 + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
  20 + * *
  21 + **********************************************************************************
  22 +*/
  23 +/*
  24 +*
  25 +* Script de DDL e DML
  26 +*
  27 +* Versao 2.05.3
  28 +*
  29 +* Fabio Bertoldi - 20160720
  30 +*
  31 +*/
  32 +
  33 +----------------
  34 +-- Ticket #23995
  35 +----------------
  36 +
  37 +INSERT
  38 + INTO administracao.permissao
  39 + ( numcgm
  40 + , cod_acao
  41 + , ano_exercicio
  42 + )
  43 +SELECT 0 AS numcgm
  44 + , 2711 AS cod_acao
  45 + , '2016' AS ano_exercicio
  46 + WHERE 0 = (
  47 + SELECT COUNT(1)
  48 + FROM administracao.permissao
  49 + WHERE numcgm = 0
  50 + AND cod_acao = 2711
  51 + AND ano_exercicio = '2016'
  52 + )
  53 + ;
  54 +
gestaoAdministrativa/fontes/javaScript/compressed/ifuncoesJs.js
  Diff comments   View file @842bba7
1 -function mudaTelaPrincipal(sPag){parent.frames.telaPrincipal.location.replace(sPag)}function mudaTelaMensagem(sPag){parent.frames.telaMensagem.location.replace(sPag)}function mudaFrameOculto(sPag){parent.frames.oculto.location.replace(sPag)}function Hoje(){var a;var sHoje;a=new Date();lm_year=a.getYear();lm_year=((lm_year<1000)?((lm_year<70)?2000:1900):0)+lm_year;lm_month=a.getMonth()+1;lm_month=((lm_month<10)?"0":"")+lm_month;lm_day=a.getDate();lm_day=((lm_day<10)?"0":"")+lm_day;sHoje=lm_day+"-"+lm_month+"-"+lm_year;return sHoje}function Agora(){var a;var sAgora;a=new Date();lm_hour=a.getHours();lm_hour=((lm_hour<10)?"0":"")+lm_hour;lm_minute=a.getMinutes();lm_minute=((lm_minute<10)?"0":"")+lm_minute;lm_second=a.getSeconds();lm_second=((lm_second<10)?"0":"")+lm_second;sAgora=lm_hour+":"+lm_minute+":"+lm_second;return sAgora}function HojeAgora(){var sHoje=Hoje();var sHora=Agora();sAux="&sAgora="+sHoje+"_"+sHora;return sAux}function retornaData(campo){var data=Hoje();data=data.replace(/-/gi,"/");campo.value=data}function MostraCalendario(sForm,sCampo,sessao){var x=400;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/legado/data0100Legado.php?"+sessao+"&sForm="+sForm+"&sCampo="+sCampo;var wVolta=false;var sAux="wCal"+sessaoid+" = window.open(sArq,'wCal"+sessaoid+"','width=180px,height=180px,resizable=0,scrollbars=0,left='+x+',top='+y);";eval(sAux)}function MontaCSS(caminho){var sLinha;var sNavegador=navigator.appName;if(sNavegador=="Microsoft Internet Explorer"){sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ie.css>"}else{sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ns.css>"}document.write(sLinha)}function MontaCSSInclude(caminho){var sLinha;var sNavegador=navigator.appName;if(sNavegador=="Microsoft Internet Explorer"){sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ie.css>"}else{sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ns.css>"}document.write(sLinha)}function MontaCSSMenu(){var sLinha;var sNavegador=navigator.appName;if(sNavegador=="Microsoft Internet Explorer"){sLinha="<link rel=STYLESHEET type=text/css href=includes/stylos_ie_menu.css>"}else{sLinha="<link rel=STYLESHEET type=text/css href=includes/stylos_ns_menu.css>"}document.write(sLinha)}function AbreTela(sTela,iTamH,iTamV){var sNow=HojeAgora();var sArq=sTela+sNow;var sVar=sTela.substr(0,8);eval(sVar+'= window.open (sArq, "'+sVar+'", "width='+iTamH+",height="+iTamV+',resizable=1,scrollbars=1");')}function mnuEntra(obj){var sID=obj.id;eval("document.all."+sID+".style.backgroundColor = '#ccccff'");eval("document.all."+sID+".style.borderBottom = '1 solid #000080'");eval("document.all."+sID+".style.borderRight = '1 solid #000080'");eval("document.all."+sID+".style.borderLeft = '1 solid #ffffff'");eval("document.all."+sID+".style.borderTop = '1 solid #ffffff'")}function mnuSai(obj){var sID=obj.id;eval("document.all."+sID+".style.backgroundColor = '#526c9f'");eval("document.all."+sID+".style.borderBottom = '1 solid #dcdcdc'");eval("document.all."+sID+".style.borderRight = '1 solid #dcdcdc'");eval("document.all."+sID+".style.borderLeft = '1 solid #dcdcdc'");eval("document.all."+sID+".style.borderTop = '1 solid #dcdcdc'")}function alerta(msg){alert(msg)}function toFloat(strValor){if((strValor==null)||(strValor.length==0)){return 0}if(!isNaN(strValor)){return parseFloat(strValor)}retorno=limpaParaMascara(strValor,"valores");procurado=/,/;retorno=retorno.replace(/,/,".");if((retorno=="")||(isNaN(retorno))){return 0}return parseFloat(retorno)}function numericToFloat(stValor){stValor=stValor.replace(".","");stValor=stValor.replace(",",".");return parseFloat(stValor)}function incluiZerosAEsquerda(str,tamanho,permiteZero){retorno=str;if((str.length>0)&&(str.length<tamanho)&&((toFloat(str)!=0)||permiteZero)){for(i=(tamanho-str.length);i>0;i--){retorno="0"+retorno}return retorno}if(toFloat(str)==0&&!permiteZero){return""}else{return str}}function limpaZerosAEsquerda(inputString,tipo){outputString="";espacosAntes=0;if(tipo==1){re=/^0*$/;res=inputString.match(re);if(inputString.substr(0,1)!="-"&&res==null){inic=0}else{inic=1}}else{inic=0}for(i=inic;i<inputString.length;i++){if(inputString.charAt(i)=="0"){espacosAntes++}else{break}}outputString=inputString.substr(espacosAntes);return outputString}function trimString(inputString,trimLeft,trimRight){outputString="";espacosAntes=0;espacosDepois=0;if(trimLeft){for(i=0;i<inputString.length;i++){if(inputString.charAt(i)==" "){espacosAntes++}else{break}}}if(trimRight){for(i=inputString.length-1;i>0;i--){if(inputString.charAt(i)==" "){espacosDepois++}else{break}}}outputString=inputString.substr(espacosAntes);outputString=outputString.substr(0,(outputString.length-espacosDepois));return outputString}function formatoMonetario(oque,tipo){if(oque.value=="-"||oque.value==""){oque.value="";return }retorno="";for(contador=0;contador<oque.value.length;contador++){if((oque.value.charAt(contador)!=".")){retorno+=oque.value.charAt(contador)}}procurado=/,/;retorno=retorno.replace(procurado,".");retorno=retornaFormatoMonetario(retorno-0,tipo);oque.value=retorno}function formatoMonetarioSemCentavos(oque,tipo){if(oque.value=="-"||oque.value==""){oque.value="";return }retorno="";for(contador=0;contador<oque.value.length;contador++){if((oque.value.charAt(contador)!=".")){retorno+=oque.value.charAt(contador)}}procurado=/,/;retorno=retorno.replace(procurado,".");retorno=retornaFormatoMonetario(retorno-0,tipo);oque.value=retorno.substr(0,(retorno.length-3))}function retornaFormatoMonetario(valor,tipo){valorNegativo=false;retorno="";valor=toFloat(valor);if(valor<0){valorNegativo=true;valor=valor*(-1)}if(valor!=0||(tipo==1&&valor==0)){retorno=parteInteira(Math.floor(valor)+"")+parteFracao(valor);if(valorNegativo){retorno="-"+retorno}}return retorno}function retornaFormatoMonetarioInteiro(valor){if((valor-0)!=0){return parteInteira(Math.floor(valor-0)+"")}else{return""}}function parteInteira(valor){if(valor.length<=3){return(valor==""?"0":valor)}else{vezes=valor.length%3;retorno=(vezes==0?"":(valor.substring(0,vezes)));for(i=0;i<Math.floor(valor.length/3);i++){if((vezes==0)&&(i==0)){retorno+=valor.substring(vezes+3*i,vezes+3*i+3)}else{retorno+="."+valor.substring(vezes+3*i,vezes+3*i+3)}}retorno=retorno.replace(/-\./,"-");return(retorno)}}function parteFracao(resto){resto=Math.round(((resto)-Math.floor(resto))*100);return(resto<10?",0"+resto:","+resto)}function validaLengthData(oque,tipo,permiteZero){switch(tipo){case"visa":if(oque.value==""){return true}var StringVisa=limpaParaMascara(oque.value,"numeros");if(StringVisa.length<16){oque.value=limpaParaMascara(oque.value,"numeros");oque.value=incluiZerosAEsquerda(oque.value,16);if(digitoVisa(oque)!=1){mascara(oque,"cartao");alerta("Número do cartão inválido");oque.value="";oque.focus();return false}mascara(oque,"cartao",16)}return true;break;case"cc":if(oque.value==""||oque.value.length>=13){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<11){zeros="00000000000";retorno=retorno+zeros.substr(0,(11-retorno.length));if(retorno.length>=4){retorno=retorno.substr(0,4)+"-"+retorno.substr(4)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"-"+retorno.substr(10)}oque.value=retorno}if(!isContaCorrente(limpaParaMascara(oque.value,"numeros"))){alerta(oque.value+"\nConta Corrente inválida.");oque.value="";oque.focus();return false}return true;break;case"cep":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<8){zeros="00000000";retorno=retorno+zeros.substr(0,(8-retorno.length));if(retorno.length>=5){retorno=retorno.substr(0,5)+"-"+retorno.substr(5,7)}oque.value=retorno}if((limpaParaMascara(oque.value,"numeros")-0)==0){alerta(oque.value+"\nCEP inválido.");oque.value="";oque.focus();return false}break;case"cpf":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<11){cpf_zeros="00000000000";retorno=cpf_zeros.substr(0,(11-retorno.length))+retorno;if(retorno.length>=3){retorno=retorno.substr(0,3)+"."+retorno.substr(3)}if(retorno.length>=7){retorno=retorno.substr(0,7)+"."+retorno.substr(7)}if(retorno.length>=11){retorno=retorno.substr(0,11)+"-"+retorno.substr(11)}oque.value=retorno;if(retorno=="000.000.000-00"&&permiteZero){return true}if(!validaCPF(retorno)){alerta(oque.value+"\nCPF inválido.");oque.value="";oque.focus();return false}}break;case"cgc":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<14){cgc_zeros="00000000000000";retorno=cgc_zeros.substr(0,(14-retorno.length))+retorno;if(retorno.length>=2){retorno=retorno.substr(0,2)+"."+retorno.substr(2)}if(retorno.length>=6){retorno=retorno.substr(0,6)+"."+retorno.substr(6)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"/"+retorno.substr(10)}if(retorno.length>=15){retorno=retorno.substr(0,15)+"-"+retorno.substr(15)}oque.value=retorno;if(!validaCGC(retorno)){alerta(oque.value+"\nCNPJ inválido.");oque.value="";oque.focus();return false}}break;case"bdu":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");while(retorno.length<7){retorno="0"+retorno}retorno=retorno.substr(0,5)+"-"+retorno.substr(5,2);oque.value=retorno;if(!ValidaBDU(retorno)){alerta(oque.value+"\nBDU inválido.");oque.value="";oque.focus();return false}break}return true}function formataAoSair(campo,separador,digitosFracao,prePos,simbolo){if(campo.value.length==0){return }posicaoSeparador=campo.value.indexOf(separador);if(posicaoSeparador==-1){posicaoSeparador=campo.value.length}retorno=separador+limpaParaMascara(campo.value.substring(posicaoSeparador),"numeros");while(retorno.length<digitosFracao+separador.length){retorno=retorno+"0"}retorno=campo.value.substr(0,posicaoSeparador)+retorno;if(prePos==0){retorno=simbolo+retorno}if(prePos==1){retorno=retorno+simbolo}campo.value=retorno}function mascara(objEmFoco,tipo,tamanho1,tamanho2,sinal){if((event.keyCode==8)||(event.keyCode==13)||(event.keyCode==37)||(event.keyCode==39)||(event.keyCode==46)||(event.keyCode==16)||(event.keyCode==17)){return }tamanho1=toFloat(tamanho1);tamanho2=toFloat(tamanho2);retorno="";switch(tipo){case"cep":objEmFoco.maxLength=9;retorno=limpaParaMascara(objEmFoco.value,"numeros");retorno=retorno.substr(0,9);if(retorno.length>=8&&(retorno-0==0)){alerta(retorno.substr(0,5)+"-"+retorno.substr(5,7)+"\nCEP inválido.");objEmFoco.value="";objEmFoco.focus();return }if(retorno.length>=5){retorno=retorno.substr(0,5)+"-"+retorno.substr(5,7)}objEmFoco.value=retorno.substr(0,9);break;case"cpf":objEmFoco.maxLength=14;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=3){retorno=retorno.substr(0,3)+"."+retorno.substr(3)}if(retorno.length>=7){retorno=retorno.substr(0,7)+"."+retorno.substr(7)}if(retorno.length>=11){retorno=retorno.substr(0,11)+"-"+retorno.substr(11)}retorno=retorno.substr(0,14);objEmFoco.value=retorno;if(retorno=="000.000.000-00"&&tamanho1==1){return true}if(retorno.length>=14){if(!validaCPF(retorno)||retorno=="00000000000000"){alerta(objEmFoco.value+"\nCPF inválido.");objEmFoco.value="";objEmFoco.focus();return }}break;case"cgc":objEmFoco.maxLength=18;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"."+retorno.substr(2)}if(retorno.length>=6){retorno=retorno.substr(0,6)+"."+retorno.substr(6)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"/"+retorno.substr(10)}if(retorno.length>=15){retorno=retorno.substr(0,15)+"-"+retorno.substr(15)}objEmFoco.value=retorno.substr(0,18);if(retorno.length>=18){if(!validaCGC(retorno)){alerta(objEmFoco.value+"\nCNPJ inválido.");objEmFoco.value="";objEmFoco.focus();return }}break;case"ramal":objEmFoco.maxLength=4;retorno=limpaParaMascara(objEmFoco.value,"numeros");objEmFoco.value=retorno.substr(0,4);break;case"DD/MM/AA":objEmFoco.maxLength=8;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"/"+retorno.substr(2)}if(retorno.length>=5){retorno=retorno.substr(0,5)+"/"+retorno.substr(5)}objEmFoco.value=retorno.substr(0,8);if(retorno.length>=8){dataEmTeste=retorno.substr(0,6)+"20"+retorno.substr(6,2);if(!retornaValidaData(dataEmTeste)){objEmFoco.value="";objEmFoco.focus();return }}break;case"DD/MM/AAAA":objEmFoco.maxLength=10;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"/"+retorno.substr(2)}if(retorno.length>=5){retorno=retorno.substr(0,5)+"/"+retorno.substr(5)}objEmFoco.value=retorno.substr(0,10);if(retorno.length>=10){if(!retornaValidaData(objEmFoco.value,tamanho1)){objEmFoco.value="";objEmFoco.focus();return }}break;case"MM/AAAA":objEmFoco.maxLength=7;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"/"+retorno.substr(2)}objEmFoco.value=retorno.substr(0,7);if(retorno.length>=7){dataEmTeste="01/"+retorno;if(!retornaValidaData(dataEmTeste)){objEmFoco.value="";objEmFoco.focus();return }}break;case"numero":if(tamanho1!=0){objEmFoco.maxLength=tamanho1}retorno=limpaParaMascara(objEmFoco.value,"numeros");objEmFoco.value=retorno.substr(0,objEmFoco.maxLength);break;case"inteiro":if(tamanho1!=0){objEmFoco.maxLength=tamanho1}retorno=limpaZerosAEsquerda(limpaParaMascara(objEmFoco.value,"numeros"));objEmFoco.value=retorno.substr(0,objEmFoco.maxLength);break;case"valor":retorno=objEmFoco.value;if(tamanho1+tamanho2>0){objEmFoco.maxLength=tamanho1+1+tamanho2+Math.floor(tamanho1/3)}var isNeg=false;if(retorno.charAt(0)=="-"){isNeg=true;retorno=retorno.substring(1);objEmFoco.maxLength++}retorno=limpaParaMascara(retorno,"valores");var posPrimVirgula=retorno.indexOf(",");retorno=limpaParaMascara(retorno,"numeros");if(posPrimVirgula>0){valorInteiro=retorno.substr(0,posPrimVirgula);valorCentavo=retorno.substring(posPrimVirgula);if(retorno.charAt(0)=="0"){retorno="0,"+valorCentavo.substr(0,tamanho2)}else{valorInteiro=retornaFormatoMonetarioInteiro(valorInteiro);valorCentavo=valorCentavo.substr(0,tamanho2);retorno=valorInteiro+","+valorCentavo}}else{retorno=retorno.substr(0,tamanho1);retorno=retornaFormatoMonetarioInteiro(retorno)}if(retorno==""&&(event.keyCode==48||event.keyCode==96)){retorno="0"}if(isNeg){retorno="-"+retorno}objEmFoco.value=retorno;break;case"percentual":objEmFoco.maxLength=3;retorno=limpaParaMascara(objEmFoco.value,"numeros");objEmFoco.value=retorno.substr(0,3);break;case"cartao":objEmFoco.maxLength=19;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=4){retorno=retorno.substr(0,4)+" "+retorno.substr(4)}if(retorno.length>=9){retorno=retorno.substr(0,9)+" "+retorno.substr(9)}if(retorno.length>=14){retorno=retorno.substr(0,14)+" "+retorno.substr(14)}objEmFoco.value=retorno.substr(0,19);if(objEmFoco.value.length==19){if(!validaCartao(objEmFoco.value)){alerta(objEmFoco.value+"\nNúmero do Cartão inválido");objEmFoco.value="";objEmFoco.focus();return }}break;case"cc":objEmFoco.maxLength=13;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=4){retorno=retorno.substr(0,4)+"-"+retorno.substr(4)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"-"+retorno.substr(10)}objEmFoco.value=retorno.substr(0,13);if(objEmFoco.value.length==13){if(!isContaCorrente(objEmFoco.value)){alerta(objEmFoco.value+"\nConta corrente inválida");objEmFoco.value="";objEmFoco.focus();return }}break;case"HH:MM":objEmFoco.maxLength=5;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.substr(0,1)>2){retorno=""}if(retorno.substr(0,2)>23){retorno=retorno.substr(0,1)}if(retorno.substr(2,1)>5){retorno=retorno.substr(0,2)}if(retorno.length>=2){retorno=retorno.substr(0,2)+":"+retorno.substr(2)}objEmFoco.value=retorno.substr(0,5);break}}function limpaParaMascara(sujeira,filtro,tipo){numeros="0123456789";valores="0123456789,";letras="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛÃÕáéíóúàèìòùäëïöüâêîôûãõçÇ&ªº'\"|@_<>!#$%&*()={[}]?:+-.,;/\\0123456789 ";retorno2="";if(tipo==1){if(sujeira.substring(0,1)=="-"){ind=1}else{ind=0}}else{ind=0}switch(filtro){case"numeros":for(i=ind;i<sujeira.length;i++){if(numeros.indexOf(sujeira.charAt(i))>-1){retorno2+=sujeira.charAt(i)}}break;case"valores":for(i=ind;i<sujeira.length;i++){if(valores.indexOf(sujeira.charAt(i))>-1){retorno2+=sujeira.charAt(i)}}if(sujeira.charAt(0)=="-"){retorno2="-"+retorno2}break;case"letras":for(i=0;i<sujeira.length;i++){if(letras.indexOf(sujeira.charAt(i))>-1){retorno2+=sujeira.charAt(i)}}break}if(tipo==1){if(sujeira.substring(0,1)=="-"){retorno2="-"+retorno2}}return retorno2}function validaCPF(CPF){CPF=limpaParaMascara(CPF,"numeros");if(CPF.length!=11){for(countZeros=0;countZeros<((11-CPF.length)+2);countZeros++){CPF="0"+CPF}}if(CPF=="00000000000"){return false}soma=0;for(i=0;i<9;i++){soma=soma+eval(CPF.charAt(i)*(10-i))}Resto=11-(soma-(parseInt(soma/11)*11));if((Resto==10)||(Resto==11)){Resto=0}if(Resto!=eval((CPF.charAt(9)))){return false}soma=0;for(i=0;i<10;i++){soma=soma+eval(CPF.charAt(i)*(11-i))}Resto=11-(soma-(parseInt(soma/11)*11));if((Resto==10)||(Resto==11)){Resto=0}if(Resto!=eval((CPF.charAt(10)))){return false}return true}function VerificaCPF(valor){function moduloCPF(str){soma=0;ind=2;for(pos=str.length-1;pos>-1;pos=pos-1){soma=soma+(parseInt(str.charAt(pos))*ind);ind++;if(str.length>11){if(ind>9){ind=2}}}resto=soma-(Math.floor(soma/11)*11);if(resto<2){return 0}else{return 11-resto}}primeiro=valor.substr(1,1);falso=true;size=valor.length;if(size!=11){return false}size--;for(i=2;i<size-1;++i){proximo=(valor.substr(i,1));if(primeiro!=proximo){falso=false}}if(falso){return false}if(moduloCPF(valor.substring(0,valor.length-2))+""+moduloCPF(valor.substring(0,valor.length-1))!=valor.substring(valor.length-2,valor.length)){return false}return true}function validaCGC(field){field=limpaParaMascara(field,"numeros");if((field=="")||(field==" ")||(field=="00000000000000")){return false}if(field.length!=14){return false}first_digit=field.charAt(12);second_digit=field.charAt(13);field=field.substring(0,12);first_verified=calcMod11(field,5,2);second_verified=calcMod11(field+first_verified,6,2);if((first_verified==first_digit)&&(second_verified==second_digit)){return true}else{return false}}function VerificaCNPJ(valor){function moduloCNPJ(str){soma=0;ind=2;for(pos=str.length-1;pos>-1;pos=pos-1){soma=soma+(parseInt(str.charAt(pos))*ind);ind++;if(str.length>11){if(ind>9){ind=2}}}resto=soma-(Math.floor(soma/11)*11);if(resto<2){return 0}else{return 11-resto}}primeiro=valor.substr(1,1);falso=true;size=valor.length;if(size!=14){return false}size--;for(i=2;i<size-1;++i){proximo=(valor.substr(i,1));if(primeiro!=proximo){falso=false}}if(falso){return }if(moduloCNPJ(valor.substring(0,valor.length-2))+""+moduloCNPJ(valor.substring(0,valor.length-1))!=valor.substring(valor.length-2,valor.length)){return false}return true}function limpaCampo(field){t_field="";for(i=0;i<field.length;i++){if((field.charAt(i)!=".")&&(field.charAt(i)!="-")&&(field.charAt(i)!="/")&&(field.charAt(i)!=",")){t_field=t_field+field.charAt(i)}}return t_field}function formataCPF(paramCpf){cpfSemMascara=limpaParaMascara(paramCpf,"numeros");if(cpfSemMascara.length==11){cpfRetorno="";cpfRetorno+=cpfSemMascara.substr(0,3);cpfRetorno+=".";cpfRetorno+=cpfSemMascara.substr(3,3);cpfRetorno+=".";cpfRetorno+=cpfSemMascara.substr(6,3);cpfRetorno+="-";cpfRetorno+=cpfSemMascara.substr(9,2);return cpfRetorno}else{return paramCpf}}function formataCGC(paramCgc){cgcSemMascara=limpaParaMascara(paramCgc,"numeros");if(cgcSemMascara.length==14){cgcRetorno="";cgcRetorno=cgcSemMascara.substr(0,2);cgcRetorno+=".";cgcRetorno+=cgcSemMascara.substr(2,3);cgcRetorno+=".";cgcRetorno+=cgcSemMascara.substr(5,3);cgcRetorno+="/";cgcRetorno+=cgcSemMascara.substr(8,4);cgcRetorno+="-";cgcRetorno+=cgcSemMascara.substr(12,2);return cgcRetorno}else{return paramCgc}}function alertaDataInvalida(data,tipoTratamento){falhou=false;t_data=data.value;t_data=limpaCampo(t_data);dia=t_data.substr(0,2);mes=t_data.substr(2,2)-1;ano=t_data.substr(4,4);dataCorr=new Date();dataObj=new Date(ano,mes,dia);diaObj=dataObj.getDate();mesObj=dataObj.getMonth();anoObj=dataObj.getFullYear();if((t_data.length<8)||(dia!=diaObj)||(mes!=mesObj)||(ano!=anoObj)){falhou=true}if(tipoTratamento==0){if(dataObj>=dataCorr){falhou=true}}if(tipoTratamento==1){if(dataObj>dataCorr){falhou=true}}if(tipoTratamento==2&&data.value=="00/00/0000"){falhou=false}if(falhou){alerta("Data inválida");data.value="";if(!data.disabled){data.focus()}}}function dataValida(dataValor,tipoTeste){dataValor=limpaCampo(dataValor);dia=dataValor.substr(0,2);mes=dataValor.substr(2,2)-1;ano=dataValor.substr(4,4);dataObj=new Date(ano,mes,dia);diaObj=dataObj.getDate();mesObj=dataObj.getMonth();anoObj=dataObj.getFullYear();dataObj.setHours(0);dataObj.setMinutes(0);dataObj.setSeconds(0);dataObj.setMilliseconds(0);dataCorr=new Date();diaCorr=dataCorr.getDate();mesCorr=dataCorr.getMonth();anoCorr=dataCorr.getFullYear();dataCorr.setHours(0);dataCorr.setMinutes(0);dataCorr.setSeconds(0);dataCorr.setMilliseconds(0);data120=new Date(anoCorr-120,mesCorr,diaCorr);data120.setHours(0);data120.setMinutes(0);data120.setSeconds(0);data120.setMilliseconds(0);if((dataValor.length<8)||(dia!=diaObj)||(mes!=mesObj)||(ano!=anoObj)){return false}switch(tipoTeste){case"anterior":if(dataObj>=dataCorr){return false}break;case"ult120anos":if(dataObj<data120){return false}if(dataObj>=dataCorr){return false}break;case"futura":if(dataObj<=dataCorr){return false}break;case"futuraOUigual":if(dataObj<dataCorr){return false}break;case"anteriorOUigual":if(dataObj>dataCorr){return false}break;case"2mesesMMAAAA":dia="01";dataObj=new Date(ano,mes,dia);dataObj.setHours(0);dataObj.setMinutes(0);dataObj.setSeconds(0);dataObj.setMilliseconds(0);if(mesCorr>=2){mesCorr-=2}else{anoCorr-=1;if(mesCorr==0){mesCorr=10}if(mesCorr==1){mesCorr=11}}data2meses=new Date(anoCorr,mesCorr,dia);data2meses.setHours(0);data2meses.setMinutes(0);data2meses.setSeconds(0);data2meses.setMilliseconds(0);if(dataObj<data2meses){return false}break}return true}function retornaValidaData(t_data,tipoTratamento){falhou=false;t_data=limpaCampo(t_data);dia=t_data.substr(0,2);mes=t_data.substr(2,2)-1;ano=t_data.substr(4,4);dataCorr=new Date();dataObj=new Date(ano,mes,dia);diaObj=dataObj.getDate();mesObj=dataObj.getMonth();anoObj=dataObj.getFullYear();if((t_data.length<8)||(dia!=diaObj)||(mes!=mesObj)||(ano!=anoObj)){falhou=true}if(tipoTratamento&&tipoTratamento==2&&t_data=="00000000"){falhou=false}if(falhou){return false}else{return true}}function imprimir(){var WebBrowser='<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';document.body.insertAdjacentHTML("beforeEnd",WebBrowser);window.onerror=printerrortrap;WebBrowser1.ExecWB(6,2);window.onerror=null;WebBrowser1.outerHTML=""}function printerrortrap(){alerta("Impressão do documento não ocorreu.");window.onerror=null;WebBrowser1.outerHTML="";return true}function manipulaDatas(strData,nDias,futuroOuPassado){dateArray=strData.split("/");sdate=new Date(dateArray[2],dateArray[1]-1,dateArray[0]);if(futuroOuPassado=="+"){sdate.setDate(sdate.getDate()+nDias)}if(futuroOuPassado=="-"){sdate.setDate(sdate.getDate()-nDias)}var dia=sdate.getDate();var mes=sdate.getMonth()+1;if(dia<10){dia="0"+dia}if(mes<10){mes="0"+mes}return dia+"/"+mes+"/"+sdate.getFullYear()}function periodoDatas(dataFimPeriodo,dataInicioPeriodo){dateFim=new Date(dataFimPeriodo.substring(6,10),dataFimPeriodo.substring(3,5)-1,dataFimPeriodo.substring(0,2));dateInicio=new Date(dataInicioPeriodo.substring(6,10),dataInicioPeriodo.substring(3,5)-1,dataInicioPeriodo.substring(0,2));return((dateFim-dateInicio)/86400000)}function dateToddmmaaaa(objDate){var dia=objDate.getDate();var mes=objDate.getMonth()+1;if(dia<10){dia="0"+dia}if(mes<10){mes="0"+mes}return dia+"/"+mes+"/"+objDate.getFullYear()}function toData(stringData){if(stringData.substr(0,1)=="0"){dia=stringData.substr(1,1)}else{dia=stringData.substr(0,2)}if(stringData.substr(3,1)=="0"){mes=(stringData.substr(4,1)-1)}else{mes=(stringData.substr(3,2)-1)}ano=stringData.substr(6,4);tmp_Data=new Date(ano,mes,dia,0,0,0,0);corrigeBugTimeZoneGMT3(tmp_Data);return(tmp_Data)}function limitaTexto(objText,limiteChars){if(objText.value.length>limiteChars){objText.value=objText.value.substr(0,limiteChars);return(false)}return(true)}function getRandom(){return Math.random()}function desabilitaCampo(str){arrDesabilita=new Array();arrDesabilita=str.split(",");for(i=0;i<arrDesabilita.length;i++){obj=document.getElementById(arrHabilita[i]);if(obj!=null){obj.disabled=true}}}function habilitaCampo(str){arrHabilita=new Array();arrHabilita=str.split(",");for(i=0;i<arrHabilita.length;i++){obj=document.getElementById(arrHabilita[i]);if(obj!=null){obj.disabled=false}}}function placeFocus(){if(document.forms.length>0){var field=document.forms[0];for(i=0;i<field.length;i++){if((field.elements[i].type=="text")||(field.elements[i].type=="textarea")||(field.elements[i].type.toString().charAt(0)=="s")){document.forms[0].elements[i].focus();break}}}}function obrigatorio(campo){if(campo.value==""){alert("Este campo é um campo Obrigatório\nPor favor, complete seu preenchimento.");return false}}function MostraImageUpload(sessao){var x=400;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/legado/imagens/uploadImageLegado.php?"+sessao;var wVolta=false;var sAux="up"+sessaoid+" = window.open(sArq,'up"+sessaoid+"','width=400px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function validaDecimais(fieldName,fieldValue,decal){if(fieldValue.indexOf(",")==-1){fieldValue+=","}dectext=fieldValue.substring(fieldValue.indexOf(",")+1,fieldValue.length);if(dectext.length!=decal){alert("Por favor, use um número com "+decal+" casas decimais.");fieldName.focus();return false}}function validaNumeros(fieldName){fieldValue=fieldName.value;retorno=fieldValue.replace(",",".");if(isNaN(retorno)){alert("Você deve usar apenas números.");fieldName.focus();return false}}function abreAjuda(sessao){var x=10;var y=10;var sessaoid=sessao.substr(10,6);var sArq="ajuda/index.php?"+sessao;var wVolta=false;var sAux="hlp"+sessaoid+" = window.open(sArq,'hlp"+sessaoid+"','width=500px,height=300px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaMensagem(erro,tipo){var x=350;var y=200;var sArq="../../includes/mensagem.php?mensagem="+erro+"&tipo="+tipo;mensagem=window.open(sArq,"mensagem","width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y)}function alertaConfirma(template,pagina,chave,valor,men){var x=350;var y=200;var sArq="../../includes/mensagem.php?mensagem="+men+"&tipo="+template+"&chave="+chave+"&valor="+valor+"&pag="+pagina;var wVolta=false;mensagem=window.open(sArq,"mensagem","width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y)}function alertaDecisao(pagina,men){var x=350;var y=200;var sArq="../../includes/mensagem.php?mensagem="+men+"&tipo=decisao&pag="+pagina;var wVolta=false;mensagem=window.open(sArq,"mensagem","width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y)}function MostraEstados(nomeform,nomeestado,codestado,nommunicipio,codmunicipio,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/estados.php?"+sessao+"&nomForm="+nomeform+"&nomEstado="+nomeestado+"&codEstado="+codestado+"&nomMunicipio="+nommunicipio+"&codMunicipio="+codmunicipio;var wVolta=false;var sAux="mest"+sessaoid+" = window.open(sArq,'mest"+sessaoid+"','width=300px,height=120px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function autoTab(input,len,e){var isNN=(navigator.appName.indexOf("Netscape")!=-1);var keyCode=(isNN)?e.which:e.keyCode;var filter=(isNN)?[0,8,9]:[0,8,9,16,17,18,37,38,39,40,46];if(input.value.length>=len&&!containsElement(filter,keyCode)){input.value=input.value.slice(0,len);input.form[(getIndex(input)+1)%input.form.length].focus()}function containsElement(arr,ele){var found=false,index=0;while(!found&&index<arr.length){if(arr[index]==ele){found=true}else{index++}}return found}function getIndex(input){var index=-1,i=0,found=false;while(i<input.form.length&&index==-1){if(input.form[i]==input){index=i}else{i++}}return index}return true}function formataNumeroDecimais(fld,milSep,decSep,e){var sep=0;var key="";var i=j=0;var len=len2=0;var strCheck="0123456789";var aux=aux2="";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}len=fld.value.length;for(i=0;i<len;i++){if((fld.value.charAt(i)!="0")&&(fld.value.charAt(i)!=decSep)){break}}aux="";for(;i<len;i++){if(strCheck.indexOf(fld.value.charAt(i))!=-1){aux+=fld.value.charAt(i)}}aux+=key;len=aux.length;if(len==0){fld.value=""}if(len==1){fld.value="0"+decSep+"0"+aux}if(len==2){fld.value="0"+decSep+aux}if(len>2){aux2="";for(j=0,i=len-3;i>=0;i--){if(j==3){aux2+=milSep;j=0}aux2+=aux.charAt(i);j++}fld.value="";len2=aux2.length;for(i=len2-1;i>=0;i--){fld.value+=aux2.charAt(i)}fld.value+=decSep+aux.substr(len-2,len)}return false}function formataNumeroDecimaisNegativos(fld,milSep,decSep,e){var sep=0;var key="";var i=j=0;var len=len2=0;var strCheck="-0123456789";var aux=aux2="";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}len=fld.value.length;for(i=0;i<len;i++){if((fld.value.charAt(i)!="0")&&(fld.value.charAt(i)!=decSep)){break}}aux="";for(;i<len;i++){if(strCheck.indexOf(fld.value.charAt(i))!=-1){aux+=fld.value.charAt(i)}}aux+=key;len=aux.length;if(len==0){fld.value=""}if(len==1){fld.value="0"+decSep+"0"+aux}if(len==2){fld.value="0"+decSep+aux}if(len>2){aux2="";for(j=0,i=len-3;i>=0;i--){if(j==3){aux2+=milSep;j=0}aux2+=aux.charAt(i);j++}fld.value="";len2=aux2.length;for(i=len2-1;i>=0;i--){fld.value+=aux2.charAt(i)}fld.value+=decSep+aux.substr(len-2,len)}return false}function procuraBem(nomeform,campobem,sessao){var x=200;var y=120;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoPatrimonial/fontes/PHP/patrimonio/popups/bem/procuraBem.php?"+sessao+"&nomForm="+nomeform+"&campoBem="+campobem;var wVolta=false;var sAux="prbem"+sessaoid+" = window.open(sArq,'prbem"+sessaoid+"','width=650px,height=500px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function alertaAviso(objeto,tipo,chamada,sessao,caminho){var x=350;var y=200;var sessaoid=sessao.substr(10,6);if(caminho==undefined){caminho=""}var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/instancias/index/mensagem.php?"+sessao+"&tipo="+tipo+"&chamada="+chamada+"&obj="+objeto;mudaTelaMensagem(sArq)}function alertaAvisoNivel2(objeto,tipo,chamada,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="alerta.inc.php?"+sessao+"&tipo="+tipo+"&chamada="+chamada+"&obj="+objeto;var sAux="window.open(sArq,'','width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestao(pagina,chave,valor,objeto,tipo,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/popups/alerta/alerta.php?"+sessao+"&tipo="+tipo+"&chamada=sn&chave="+chave+"&valor="+valor+"&pagQuestao="+pagina+"&obj="+objeto;var wVolta=false;var sAux="window.open(sArq,'','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestaoFabio(pagina,tipo,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/alerta.inc.php?"+sessao+"&tipo="+tipo+"&chamada=pp&chave="+chave+"&valor="+valor+"&pag="+pagina+"&obj="+objeto;var wVolta=false;var sAux="msgc"+sessaoid+" = window.open(sArq,'msgc"+sessaoid+"','width=350px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestaoPopUp(pagina,tipo,sessao){var x=350;var y=200;var valor="pp_excluir";var chave="cod";var sessaoid=sessao.substr(10,6);var sArq="../../popups/alertaGenerico.inc.php?"+sessao+"&tipo="+tipo+"&chamada=pp&chave="+chave+"&valor="+valor+"&pag="+pagina;var wVolta=false;var sAux="msgc"+sessaoid+" = window.open(sArq,'msgc"+sessaoid+"','width=350px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestao2(pagina,tipo,sessao){var x=350;var y=200;var valor="teste";var chave=1;var sessaoid=sessao.substr(10,6);var sArq="../../../framework/popups/alerta/alerta.php?"+sessao+"&tipo="+tipo+"&chamada=sn&chave="+chave+"&valor="+valor+"&pagQuestao="+pagina;var wVolta=false;var sAux="msgc"+sessaoid+" = window.open(sArq,'msgc"+sessaoid+"','width=350px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestaoOculto(pagina,chave,valor,objeto,tipo,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/alerta.inc.php?"+sessao+"&tipo="+tipo+"&chamada=oculto&chave="+chave+"&valor="+valor+"&pag="+pagina+"&obj="+objeto;var wVolta=false;var sAux="msgd"+sessaoid+" = window.open(sArq,'msgd"+sessaoid+"','width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaSubmit(objeto,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/alerta.inc.php?"+sessao+"&tipo=ccform&chamada=ccform&chave=&valor=&pag=&obj="+objeto;var wVolta=false;var sAux="msge"+sessaoid+" = window.open(sArq,'msge"+sessaoid+"','width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraLocal(nomeform,campolocal,campoexercicio,sessao){var x=350;var y=200;var sArq="../../includes/procuraLocal.php?"+sessao+"&nomForm="+nomeform+"&campoBem="+campolocal+"&campoexercicio="+campoexercicio;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prloc"+sessaoid+" = window.open(sArq,'prloc"+sessaoid+"','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraSetor(nomeform,camponomesetor,camposetor,campoexercicio,sessao){var x=350;var y=200;var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/popupsLegado/setor/procuraSetor.php?"+sessao+"&nomForm="+nomeform+"&campoNomeSetor="+camponomesetor+"&campoSetor="+camposetor+"&campoexercicio="+campoexercicio;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prset"+sessaoid+" = window.open(sArq,'prset"+sessaoid+"','width=550px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraVeiculo(nomeform,campoveiculo,sessao){var x=350;var y=200;var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/popupsLegado/veiculo/procuraVeiculo.php?"+sessao+"&nomForm="+nomeform+"&campoCodVeiculo="+campoveiculo;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prvei"+sessaoid+" = window.open(sArq,'prvei"+sessaoid+"','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraMotorista(nomeform,camponommotorista,campocodmotorista,sessao){var x=350;var y=200;var sArq="../../includes/procuraMotorista.php?"+sessao+"&nomForm="+nomeform+"&campoNomMotorista="+camponommotorista+"&campoCodMotorista="+campocodmotorista;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prmot"+sessaoid+" = window.open(sArq,'prmot"+sessaoid+"','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraProcesso(nomeform,campocodprocesso,campoexercicio,sessao){var x=200;var y=140;var sArq="../../includes/procuraProcesso.php?"+sessao+"&nomForm="+nomeform+"&campoCodProcesso="+campocodprocesso+"&campoExercicio="+campoexercicio;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prpro"+sessaoid+" = window.open(sArq,'prpro"+sessaoid+"','width=400px,height=390px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraContaDespesa(nomeform,camponomeconta,campoconta,sessao){var x=200;var y=180;var sArq="../../includes/procuraContaDespesa.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prcde"+sessaoid+" = window.open(sArq,'prcde"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraContaReceita(nomeform,camponomeconta,campoconta,camporeduzido,reduzido,sessao){var x=200;var y=180;var sArq="../../includes/procuraContaReceita.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta+"&campoCodReduz="+camporeduzido+"&reduzido="+reduzido;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prcre"+sessaoid+" = window.open(sArq,'prcre"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procurarCgm(nomeform,camponum,camponom,tipodebusca,sessao,innerHtml){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/CGM/popups/cgm/FLProcurarCgm.php?"+sessao+"&nomForm="+nomeform+"&campoNum="+camponum+"&campoNom="+camponom+"&tipoBusca="+tipodebusca+"&innerHtml="+innerHtml;var wVolta=false;var sAux="window.open(sArq,'','width=800px,height=550px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraPlanoConta(nomeform,camponomeconta,campoconta,campocodplano,reduzido,sessao,innerHtml){var x=200;var y=180;var sArq="../../includes/procuraPlanoConta.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta+"&campoCodPlano="+campocodplano+"&reduzido="+reduzido+"&innerHtml="+innerHtml;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prpco"+sessaoid+" = window.open(sArq,'prpco"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraProgramaTrabalho(nomeform,camponomeconta,campoconta,campocoddespesa,sessao){var x=200;var y=180;var sArq="../../includes/procuraProgramaTrabalho.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta+"&campoCodDespesa="+campocoddespesa;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prptb"+sessaoid+" = window.open(sArq,'prptb"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function isNumber(fld,e){var key="";var strCheck="0123456789.";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}}function isNumeric(fld,e){var key="";var strCheck="0123456789";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}}function isValido(fld,e,dominio){var key="";var strCheck=dominio;var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}}function maxTextArea(campo,limite,e,blur){var key="";var strCheck="";var whichCode=(window.Event)?e.which:e.keyCode;if(blur){campo.value=campo.value.substring(0,limite);return true}if(campo.value.length>limite){campo.value=campo.value.substring(0,limite);return false}}function procuraDomicilio(nomeform,campocoddomicilio,campologradouro,sessao){var x=200;var y=140;var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/CSE/popups/domicilio/procuraDomicilio.php?"+sessao+"&nomForm="+nomeform+"&campoCodDomicilio="+campocoddomicilio+"&campoLogradouro="+campologradouro;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="window.open(sArq,'','width=500px,height=350px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function limpaSelect(sCampo,iOption){var campo=sCampo;var tam=campo.options.length;while(tam>=iOption){campo.options[tam]=null;tam=tam-1}if(iOption>0){campo.options[0].selected=true}}function procuraAutorizacaoEmpenho(nomeform,campoautorizacao,flag,sessao){var x=200;var y=140;var sArq="../../includes/procuraAutorizacaoEmpenho.php?"+sessao+"&nomForm="+nomeform+"&flag="+flag+"&campoAutorizacao="+campoautorizacao;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="window.open(sArq,'','width=450px,height=350px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraEmpenho(nomeform,campoempenho,sessao){var x=200;var y=140;var sArq="../../includes/procuraEmpenho.php?"+sessao+"&nomForm="+nomeform+"&campoEmpenho="+campoempenho;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prem"+sessaoid+" = window.open(sArq,'prem"+sessaoid+"','width=450px,height=350px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function mostraDadosProcesso(tipo,sessao){var x=200;var y=140;var sArq="../../includes/mostraDadosProcesso.php?"+sessao+"&tipo="+tipo;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prem"+sessaoid+" = window.open(sArq,'mdpr"+sessaoid+"','width=450px,height=350px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraGenerica(nomeform,campocodigo,campodescricao,tabela,atributocod,atributonom,orderby,titulo,label,sessao){var x=200;var y=180;var sArq="../../includes/procuraGenerica.php?"+sessao+"&nomForm="+nomeform+"&campoCodigo="+campocodigo+"&campoDescricao="+campodescricao+"&tabela="+tabela+"&atributoCod="+atributocod+"&atributoNom="+atributonom+"&orderBy="+orderby+"&titulo="+titulo+"&label="+label;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prcde"+sessaoid+" = window.open(sArq,'prcde"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function verificaData(campoData){if(campoData.value.length){var stErro=false;if(campoData.value.substr(0,2)<1||campoData.value.substr(0,2)>31){stErro=true}if(campoData.value.substr(3,2)<1||campoData.value.substr(3,2)>12){stErro=true}if(campoData.value.substr(3,2)==4||campoData.value.substr(3,2)==6||campoData.value.substr(3,2)==9||campoData.value.substr(3,2)==11){if(campoData.value.substr(0,2)>30){stErro=true}}if(campoData.value.substr(3,2)==2){var bissexto=Number(campoData.value.substr(6,4))%4;if(bissexto!=0&&campoData.value.substr(0,2)>28){stErro=true}if(bissexto==0&&campoData.value.substr(0,2)>29){stErro=true}}if(stErro){campoData.focus();return false}else{return true}}else{return true}}function filtraMascara(campo){var expReg=new RegExp("[^a-zA-Z0-9]","g");var inCont=0;var novoCampo="";var tmpCampo;while(campo.length>inCont){tmpCampo=campo.substr(inCont,1);if(!expReg.test(tmpCampo)){novoCampo+=tmpCampo}inCont++}return novoCampo}function validaCaracter(masc,caracter,posicao){var caracterMasc=masc.charAt(posicao);var expRegCharNumber=new RegExp("[a-zA-Z0-9]","ig");if(expRegCharNumber.test(caracterMasc)){if(isNaN(caracterMasc)){var expValReg=new RegExp("[a-"+caracterMasc+"]","ig")}else{var expValReg=new RegExp("[0-"+caracterMasc+"]")}return expValReg.test(caracter)}else{return false}}function mascaraDinamico(mascara,campo,evento){var expReg=new RegExp("[^a-zA-Z0-9]","g");var expRegTmp;var arExecExp=expReg.exec(mascara);var stCampoNovo="";var stMascaraTmp=mascara.substr(arExecExp.index+1);var campoMasc=filtraMascara(campo.value);var inContIndex=1;var inCont=0;var flagIndex=true;var whichCode=(window.Event)?evento.which:evento.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}while(inCont<campoMasc.length&&stCampoNovo.length<mascara.length){caracter=campoMasc.substr(inCont,1);if(validaCaracter(mascara,caracter,inContIndex-1)){stCampoNovo+=caracter;expRegTmp=new RegExp("[^a-zA-Z0-9]","g");if(expRegTmp.test(stMascaraTmp)||flagIndex){if(arExecExp.index==inContIndex){stCampoNovo+=arExecExp[0];arExecExp=expReg.exec(mascara);inContIndex++;stMascaraTmp=mascara.substr(inContIndex);flagIndex=false}}}inCont++;inContIndex++}campo.value=stCampoNovo;return false}function mascaraCPF(campo,evento){return mascaraDinamico("999.999.999-99",campo,evento)}function mascaraCNPJ(campo,evento){return mascaraDinamico("99.999.999/9999-99",campo,evento)}function mascaraCEP(campo,evento){return mascaraDinamico("99999-999",campo,evento)}function mascaraData(campo,evento){return mascaraDinamico("99/99/9999",campo,evento)}function limpaZerosMoeda(valor){while(valor.substr(0,1)=="0"){valor=valor.substr(1,valor.length)}return valor}function montaMilharMoeda(valor){if(valor!="0"){var expReg=new RegExp("[^0-9-]","g");valor=valor.replace(expReg,"");valor=limpaZerosMoeda(valor);var tamanho=valor.length;var pos=tamanho-3;var milhar="";var cont=0;while(pos>0&&tamanho>3){if(valor.substr(0,pos)!="-"){valor=valor.substr(0,pos)+"."+valor.substr(pos,tamanho)}tamanho=valor.length;pos=pos-3}}return valor}function formataMoeda(campo,decimais,evento,negativo){var moeda="";if(campo.value.length>0){var virgPos=campo.value.search(",");if(virgPos>=0){if(campo.value.search("-")==0&&negativo){stMenos=campo.value.substring(1,campo.value.length)}else{stMenos=campo.value}var arMoeda=stMenos.split(",");while(arMoeda[1].length<decimais){arMoeda[1]+="0"}var milhar=montaMilharMoeda(arMoeda[0]);if(milhar.length==0){milhar="0"}moeda=milhar+","+arMoeda[1]}else{var zeros="";while(zeros.length<decimais){zeros+="0"}if(campo.value.search("-")==0&&negativo){stMenos=campo.value.substring(1,campo.value.length)}else{stMenos=campo.value}moeda=montaMilharMoeda(stMenos)+","+zeros}if(campo.value.search("-")==0&&negativo){campo.value="-"+moeda}else{campo.value=moeda}}return true}function mascaraMoeda(campo,decimais,evento,negativo){var virgPos=campo.value.search(",");var stMenos="";if((evento.keyCode!=9)){if((evento.keyCode!=16)){if(evento.keyCode==109){if(negativo){if(campo.value.length!=1){campo.value=campo.value.substring(0,campo.value.length-1)}}else{campo.value=campo.value.substring(0,campo.value.length-1)}}else{if(evento.keyCode==188){if((campo.value.length-(decimais+1))>virgPos){campo.value=campo.value.replace(",","")}else{if(campo.value.length==1){campo.value="0,"}}}else{if(campo.value.search("-")==0&&negativo){stMenos=campo.value.substring(1,campo.value.length)}else{stMenos=campo.value}var arMoeda=stMenos.split(",");var inMoeda=montaMilharMoeda(arMoeda[0]);if(typeof (arMoeda[1])!="undefined"){if(inMoeda.length==0){inMoeda="0"}stMenos=inMoeda+","+arMoeda[1].substr(0,decimais)}else{stMenos=inMoeda}if(campo.value.search("-")==0&&negativo){campo.value="-"+stMenos}else{campo.value=stMenos}}}}}}function mascaraNumerico(campo,tamanho,decimais,evento,negativo){RegExpMenos=new RegExp("-","g");var boValorNegativo=false;if((evento.keyCode!=9)){if((evento.keyCode!=16)){if((evento.keyCode!=0)){if((campo.value.length<(tamanho-(decimais+2)))||(campo.value.search(",")!="-1")||(evento.keyCode==8)){if(negativo){if(evento.keyCode==109){boValorNegativo=true}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode!=107&&evento.keyCode!=61)){boValorNegativo=true}}if((campo.value.charAt(0)!="-")&&(evento.keyCode==109)){campo.maxLength=campo.maxLength+1}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode==107||evento.keyCode==61)){campo.maxLength=campo.maxLength-1}}}campo.value=campo.value.replace(RegExpMenos,"");var virgPos=campo.value.search(",");if(evento.keyCode==188){if((campo.value.length-(decimais+1))>virgPos){campo.value=campo.value.replace(",","")}else{if(campo.value.length==1){campo.value="0,"}}}else{var arMoeda=campo.value.split(",");var inMoeda=montaMilharMoeda(arMoeda[0]);if(typeof (arMoeda[1])!="undefined"){if(inMoeda.length==0){inMoeda="0"}campo.value=inMoeda+","+arMoeda[1].substr(0,decimais)}else{campo.value=inMoeda}}if(negativo){if(boValorNegativo){campo.value="-"+campo.value}}}else{campo.value=campo.value+","}}else{campo.value=campo.value.replace(/\^|~|´|`/g,"")}}}}function mascaraNumericoBR(campo,tamanho,decimais,evento,negativo){RegExpMenos=new RegExp("-","g");var boValorNegativo=false;if((evento.keyCode!=9)){if((evento.keyCode!=16)){if((evento.keyCode!=0)){campo.value=campo.value.replace(/[\.]/g,"");if((campo.value.length<(tamanho-decimais))||(campo.value.search(",")!="-1")||(evento.keyCode==8)){if(negativo){if(evento.keyCode==109){boValorNegativo=true}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode!=107&&evento.keyCode!=61)){boValorNegativo=true}}if((campo.value.charAt(0)!="-")&&(evento.keyCode==109)){campo.maxLength=campo.maxLength+1}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode==107||evento.keyCode==61)){campo.maxLength=campo.maxLength-1}}}campo.value=campo.value.replace(RegExpMenos,"");var virgPos=campo.value.search(",");if(evento.keyCode==188||evento.keyCode==108){if((campo.value.length-(decimais+1))>virgPos){campo.value=campo.value.replace(",","")}else{if(campo.value==","){campo.value="0,"}}}else{var arMoeda=campo.value.split(",");var inMoeda=montaMilharMoeda(arMoeda[0]);if(typeof (arMoeda[1])!="undefined"){if(inMoeda.length==0){inMoeda="0"}campo.value=inMoeda+","+arMoeda[1].substr(0,decimais)}else{campo.value=inMoeda}}if(negativo){if(boValorNegativo){campo.value="-"+campo.value}}}else{var inMoeda=montaMilharMoeda(campo.value);campo.value=inMoeda+","}}else{campo.value=campo.value.replace(/\^|~|´|`/g,"")}}}}function validaCharMoeda(campo,evento){var arMoeda=campo.value.split(",");if(navigator.appName=="Netscape"){var teclaPress=evento.which}else{var teclaPress=evento.keyCode}var retorno=true;var expReg=new RegExp("[0-9,-]","g");var novo=String.fromCharCode(teclaPress);if(!validaTecla(evento.keyCode)){if(novo.search(expReg)){retorno=false}else{var strTemp=campo.value+String.fromCharCode(teclaPress);if(strTemp.search(",")!=strTemp.lastIndexOf(",")){retorno=false}}}return retorno}function validaTecla(tecla){var retorno=false;if(navigator.appName=="Netscape"){switch(tecla){case 8:retorno=true;break;case 9:retorno=true;break;case 13:retorno=true;break;case 20:retorno=true;break;case 27:retorno=true;break;case 33:retorno=true;break;case 34:retorno=true;break;case 35:retorno=true;break;case 36:retorno=true;break;case 37:retorno=true;break;case 38:retorno=true;break;case 39:retorno=true;break;case 40:retorno=true;break;case 45:retorno=true;break;case 46:retorno=true;break}}else{switch(tecla){case 8:retorno=true;break}}return retorno}function preencheCampo(selecionado,preenchido){var iIndice=0;var formulario=selecionado.form.name;var d=eval("document."+formulario);var iIndex;if(selecionado.type=="select-one"&&selecionado.value.toUpperCase()=="XXX"){preenchido.value="";return true}else{preenchido.value=selecionado.value;if(preenchido.type=="select-one"&&preenchido.value!=selecionado.value){alertaAviso("@Valor inválido. ("+selecionado.value+")","form","erro","<?=$sessao->id?>");preenchido.selectedIndex=0;return false}else{for(var iCont=1;iCont<d.elements.length;iCont++){if(d.elements[iCont].name==selecionado.name){break}}if(selecionado.type=="select-one"){iIndex=iCont+1}else{iIndex=iCont+2}if((d.elements.length-iIndex)>0){d.elements[iIndex].focus()}return true}}return true}function preencheCA(variavel,valor){var targetTmp=document.frm.target;document.frm.target="oculto";var actionTmp=document.frm.action;document.frm.action+="&variavel="+variavel+"&valor="+escape(valor)+"&ctrl=100&controle=100";document.frm.submit();document.frm.target=targetTmp}function preencheCA_ano(variavel,valor){ano=valor.substr((valor.length)-4,4);valor=valor.substr(0,(valor.length)-4);var targetTmp=document.frm.target;document.frm.target="oculto";var actionTmp=document.frm.action;document.frm.action+="&anoOrgao="+ano+"&variavel="+variavel+"&valor="+escape(valor)+"&ctrl=100&controle=100";document.frm.submit();document.frm.target=targetTmp}function validaCombo(iCod,campo){var cod=iCod;var val;var erro=true;var f=document.frm;var tam=campo.options.length-1;while(tam>=0){val=campo.options[tam].value;if(cod==val){campo.options[tam].selected=true;erro=false}tam=tam-1}if(erro){return false}else{return true}}function abrePopUp(arquivo,nomeform,camponum,camponom,tipodebusca,sessao,width,height){if(width==""){width=800}if(height==""){height=550}var x=0;var y=0;var sessaoid=sessao.substr(10,6);var sArq="../../popups/popups/"+arquivo+"?"+sessao+"&nomForm="+nomeform+"&campoNum="+camponum+"&campoNom="+camponom+"&tipoBusca="+tipodebusca;var sAux="prcgm"+sessaoid+" = window.open(sArq,'prcgm"+sessaoid+"','width="+width+",height="+height+",resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function formataValor(campo){campo.value=filtraCampo(campo);vr=campo.value;tam=vr.length;if(tam<=2){campo.value=vr}if((tam>2)&&(tam<=5)){campo.value=vr.substr(0,tam-2)+","+vr.substr(tam-2,tam)}if((tam>=6)&&(tam<=8)){campo.value=vr.substr(0,tam-5)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}if((tam>=9)&&(tam<=11)){campo.value=vr.substr(0,tam-8)+"."+vr.substr(tam-8,3)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}if((tam>=12)&&(tam<=14)){campo.value=vr.substr(0,tam-11)+"."+vr.substr(tam-11,3)+"."+vr.substr(tam-8,3)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}if((tam>=15)&&(tam<=18)){campo.value=vr.substr(0,tam-14)+"."+vr.substr(tam-14,3)+"."+vr.substr(tam-11,3)+"."+vr.substr(tam-8,3)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}}function filtraCampo(campo){var s="";var cp="";var regra=new RegExp("[0-9]");vr=campo.value;tam=vr.length;for(i=0;i<tam;i++){var conferir=regra.exec(vr.substring(i,i+1));if(vr.substring(i,i+1)!="/"&&vr.substring(i,i+1)!="-"&&vr.substring(i,i+1)!="."&&vr.substring(i,i+1)!=","&&conferir!=null){s=s+vr.substring(i,i+1)}}campo.value=s;return cp=campo.value}function atualizaFormataValor(campo){campo.value=filtraCampo(campo);vr=campo.value;tam=vr.length;if(tam<=2){campo.value=campo.value+",00"}else{formataValor(campo)}};  
2 \ No newline at end of file 1 \ No newline at end of file
  2 +function mudaTelaPrincipal(sPag){parent.frames.telaPrincipal.location.replace(sPag)}function mudaTelaMensagem(sPag){parent.frames.telaMensagem.location.replace(sPag)}function mudaFrameOculto(sPag){parent.frames.oculto.location.replace(sPag)}function Hoje(){var a;var sHoje;a=new Date();lm_year=a.getYear();lm_year=((lm_year<1000)?((lm_year<70)?2000:1900):0)+lm_year;lm_month=a.getMonth()+1;lm_month=((lm_month<10)?"0":"")+lm_month;lm_day=a.getDate();lm_day=((lm_day<10)?"0":"")+lm_day;sHoje=lm_day+"-"+lm_month+"-"+lm_year;return sHoje}function Agora(){var a;var sAgora;a=new Date();lm_hour=a.getHours();lm_hour=((lm_hour<10)?"0":"")+lm_hour;lm_minute=a.getMinutes();lm_minute=((lm_minute<10)?"0":"")+lm_minute;lm_second=a.getSeconds();lm_second=((lm_second<10)?"0":"")+lm_second;sAgora=lm_hour+":"+lm_minute+":"+lm_second;return sAgora}function HojeAgora(){var sHoje=Hoje();var sHora=Agora();sAux="&sAgora="+sHoje+"_"+sHora;return sAux}function retornaData(campo){var data=Hoje();data=data.replace(/-/gi,"/");campo.value=data}function MostraCalendario(sForm,sCampo,sessao){var x=400;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/legado/data0100Legado.php?"+sessao+"&sForm="+sForm+"&sCampo="+sCampo;var wVolta=false;var sAux="wCal"+sessaoid+" = window.open(sArq,'wCal"+sessaoid+"','width=180px,height=180px,resizable=0,scrollbars=0,left='+x+',top='+y);";eval(sAux)}function MontaCSS(caminho){var sLinha;var sNavegador=navigator.appName;if(sNavegador=="Microsoft Internet Explorer"){sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ie.css>"}else{sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ns.css>"}document.write(sLinha)}function MontaCSSInclude(caminho){var sLinha;var sNavegador=navigator.appName;if(sNavegador=="Microsoft Internet Explorer"){sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ie.css>"}else{sLinha="<link rel=STYLESHEET type=text/css href="+caminho+"includes/stylos_ns.css>"}document.write(sLinha)}function MontaCSSMenu(){var sLinha;var sNavegador=navigator.appName;if(sNavegador=="Microsoft Internet Explorer"){sLinha="<link rel=STYLESHEET type=text/css href=includes/stylos_ie_menu.css>"}else{sLinha="<link rel=STYLESHEET type=text/css href=includes/stylos_ns_menu.css>"}document.write(sLinha)}function AbreTela(sTela,iTamH,iTamV){var sNow=HojeAgora();var sArq=sTela+sNow;var sVar=sTela.substr(0,8);eval(sVar+'= window.open (sArq, "'+sVar+'", "width='+iTamH+",height="+iTamV+',resizable=1,scrollbars=1");')}function mnuEntra(obj){var sID=obj.id;eval("document.all."+sID+".style.backgroundColor = '#ccccff'");eval("document.all."+sID+".style.borderBottom = '1 solid #000080'");eval("document.all."+sID+".style.borderRight = '1 solid #000080'");eval("document.all."+sID+".style.borderLeft = '1 solid #ffffff'");eval("document.all."+sID+".style.borderTop = '1 solid #ffffff'")}function mnuSai(obj){var sID=obj.id;eval("document.all."+sID+".style.backgroundColor = '#526c9f'");eval("document.all."+sID+".style.borderBottom = '1 solid #dcdcdc'");eval("document.all."+sID+".style.borderRight = '1 solid #dcdcdc'");eval("document.all."+sID+".style.borderLeft = '1 solid #dcdcdc'");eval("document.all."+sID+".style.borderTop = '1 solid #dcdcdc'")}function alerta(msg){alert(msg)}function toFloat(strValor){if((strValor==null)||(strValor.length==0)){return 0}if(!isNaN(strValor)){return parseFloat(strValor)}retorno=limpaParaMascara(strValor,"valores");procurado=/,/;retorno=retorno.replace(/,/,".");if((retorno=="")||(isNaN(retorno))){return 0}return parseFloat(retorno)}function numericToFloat(stValor){stValor=stValor.replace(".","");stValor=stValor.replace(",",".");return parseFloat(stValor)}function incluiZerosAEsquerda(str,tamanho,permiteZero){retorno=str;if((str.length>0)&&(str.length<tamanho)&&((toFloat(str)!=0)||permiteZero)){for(i=(tamanho-str.length);i>0;i--){retorno="0"+retorno}return retorno}if(toFloat(str)==0&&!permiteZero){return""}else{return str}}function limpaZerosAEsquerda(inputString,tipo){outputString="";espacosAntes=0;if(tipo==1){re=/^0*$/;res=inputString.match(re);if(inputString.substr(0,1)!="-"&&res==null){inic=0}else{inic=1}}else{inic=0}for(i=inic;i<inputString.length;i++){if(inputString.charAt(i)=="0"){espacosAntes++}else{break}}outputString=inputString.substr(espacosAntes);return outputString}function trimString(inputString,trimLeft,trimRight){outputString="";espacosAntes=0;espacosDepois=0;if(trimLeft){for(i=0;i<inputString.length;i++){if(inputString.charAt(i)==" "){espacosAntes++}else{break}}}if(trimRight){for(i=inputString.length-1;i>0;i--){if(inputString.charAt(i)==" "){espacosDepois++}else{break}}}outputString=inputString.substr(espacosAntes);outputString=outputString.substr(0,(outputString.length-espacosDepois));return outputString}function formatoMonetario(oque,tipo){if(oque.value=="-"||oque.value==""){oque.value="";return }retorno="";for(contador=0;contador<oque.value.length;contador++){if((oque.value.charAt(contador)!=".")){retorno+=oque.value.charAt(contador)}}procurado=/,/;retorno=retorno.replace(procurado,".");retorno=retornaFormatoMonetario(retorno-0,tipo);oque.value=retorno}function formatoMonetarioSemCentavos(oque,tipo){if(oque.value=="-"||oque.value==""){oque.value="";return }retorno="";for(contador=0;contador<oque.value.length;contador++){if((oque.value.charAt(contador)!=".")){retorno+=oque.value.charAt(contador)}}procurado=/,/;retorno=retorno.replace(procurado,".");retorno=retornaFormatoMonetario(retorno-0,tipo);oque.value=retorno.substr(0,(retorno.length-3))}function retornaFormatoMonetario(valor,tipo){valorNegativo=false;retorno="";valor=toFloat(valor);if(valor<0){valorNegativo=true;valor=valor*(-1)}if(valor!=0||(tipo==1&&valor==0)){retorno=parteInteira(Math.floor(valor)+"")+parteFracao(valor);if(valorNegativo){retorno="-"+retorno}}return retorno}function retornaFormatoMonetarioInteiro(valor){if((valor-0)!=0){return parteInteira(Math.floor(valor-0)+"")}else{return""}}function parteInteira(valor){if(valor.length<=3){return(valor==""?"0":valor)}else{vezes=valor.length%3;retorno=(vezes==0?"":(valor.substring(0,vezes)));for(i=0;i<Math.floor(valor.length/3);i++){if((vezes==0)&&(i==0)){retorno+=valor.substring(vezes+3*i,vezes+3*i+3)}else{retorno+="."+valor.substring(vezes+3*i,vezes+3*i+3)}}retorno=retorno.replace(/-\./,"-");return(retorno)}}function parteFracao(resto){resto=Math.round(((resto)-Math.floor(resto))*100);return(resto<10?",0"+resto:","+resto)}function validaLengthData(oque,tipo,permiteZero){switch(tipo){case"visa":if(oque.value==""){return true}var StringVisa=limpaParaMascara(oque.value,"numeros");if(StringVisa.length<16){oque.value=limpaParaMascara(oque.value,"numeros");oque.value=incluiZerosAEsquerda(oque.value,16);if(digitoVisa(oque)!=1){mascara(oque,"cartao");alerta("Número do cartão inválido");oque.value="";oque.focus();return false}mascara(oque,"cartao",16)}return true;break;case"cc":if(oque.value==""||oque.value.length>=13){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<11){zeros="00000000000";retorno=retorno+zeros.substr(0,(11-retorno.length));if(retorno.length>=4){retorno=retorno.substr(0,4)+"-"+retorno.substr(4)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"-"+retorno.substr(10)}oque.value=retorno}if(!isContaCorrente(limpaParaMascara(oque.value,"numeros"))){alerta(oque.value+"\nConta Corrente inválida.");oque.value="";oque.focus();return false}return true;break;case"cep":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<8){zeros="00000000";retorno=retorno+zeros.substr(0,(8-retorno.length));if(retorno.length>=5){retorno=retorno.substr(0,5)+"-"+retorno.substr(5,7)}oque.value=retorno}if((limpaParaMascara(oque.value,"numeros")-0)==0){alerta(oque.value+"\nCEP inválido.");oque.value="";oque.focus();return false}break;case"cpf":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<11){cpf_zeros="00000000000";retorno=cpf_zeros.substr(0,(11-retorno.length))+retorno;if(retorno.length>=3){retorno=retorno.substr(0,3)+"."+retorno.substr(3)}if(retorno.length>=7){retorno=retorno.substr(0,7)+"."+retorno.substr(7)}if(retorno.length>=11){retorno=retorno.substr(0,11)+"-"+retorno.substr(11)}oque.value=retorno;if(retorno=="000.000.000-00"&&permiteZero){return true}if(!validaCPF(retorno)){alerta(oque.value+"\nCPF inválido.");oque.value="";oque.focus();return false}}break;case"cgc":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");if(retorno.length<14){cgc_zeros="00000000000000";retorno=cgc_zeros.substr(0,(14-retorno.length))+retorno;if(retorno.length>=2){retorno=retorno.substr(0,2)+"."+retorno.substr(2)}if(retorno.length>=6){retorno=retorno.substr(0,6)+"."+retorno.substr(6)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"/"+retorno.substr(10)}if(retorno.length>=15){retorno=retorno.substr(0,15)+"-"+retorno.substr(15)}oque.value=retorno;if(!validaCGC(retorno)){alerta(oque.value+"\nCNPJ inválido.");oque.value="";oque.focus();return false}}break;case"bdu":if(oque.value==""){return true}retorno="";retorno=limpaParaMascara(oque.value,"numeros");while(retorno.length<7){retorno="0"+retorno}retorno=retorno.substr(0,5)+"-"+retorno.substr(5,2);oque.value=retorno;if(!ValidaBDU(retorno)){alerta(oque.value+"\nBDU inválido.");oque.value="";oque.focus();return false}break}return true}function formataAoSair(campo,separador,digitosFracao,prePos,simbolo){if(campo.value.length==0){return }posicaoSeparador=campo.value.indexOf(separador);if(posicaoSeparador==-1){posicaoSeparador=campo.value.length}retorno=separador+limpaParaMascara(campo.value.substring(posicaoSeparador),"numeros");while(retorno.length<digitosFracao+separador.length){retorno=retorno+"0"}retorno=campo.value.substr(0,posicaoSeparador)+retorno;if(prePos==0){retorno=simbolo+retorno}if(prePos==1){retorno=retorno+simbolo}campo.value=retorno}function mascara(objEmFoco,tipo,tamanho1,tamanho2,sinal){if((event.keyCode==8)||(event.keyCode==13)||(event.keyCode==37)||(event.keyCode==39)||(event.keyCode==46)||(event.keyCode==16)||(event.keyCode==17)){return }tamanho1=toFloat(tamanho1);tamanho2=toFloat(tamanho2);retorno="";switch(tipo){case"cep":objEmFoco.maxLength=9;retorno=limpaParaMascara(objEmFoco.value,"numeros");retorno=retorno.substr(0,9);if(retorno.length>=8&&(retorno-0==0)){alerta(retorno.substr(0,5)+"-"+retorno.substr(5,7)+"\nCEP inválido.");objEmFoco.value="";objEmFoco.focus();return }if(retorno.length>=5){retorno=retorno.substr(0,5)+"-"+retorno.substr(5,7)}objEmFoco.value=retorno.substr(0,9);break;case"cpf":objEmFoco.maxLength=14;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=3){retorno=retorno.substr(0,3)+"."+retorno.substr(3)}if(retorno.length>=7){retorno=retorno.substr(0,7)+"."+retorno.substr(7)}if(retorno.length>=11){retorno=retorno.substr(0,11)+"-"+retorno.substr(11)}retorno=retorno.substr(0,14);objEmFoco.value=retorno;if(retorno=="000.000.000-00"&&tamanho1==1){return true}if(retorno.length>=14){if(!validaCPF(retorno)||retorno=="00000000000000"){alerta(objEmFoco.value+"\nCPF inválido.");objEmFoco.value="";objEmFoco.focus();return }}break;case"cgc":objEmFoco.maxLength=18;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"."+retorno.substr(2)}if(retorno.length>=6){retorno=retorno.substr(0,6)+"."+retorno.substr(6)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"/"+retorno.substr(10)}if(retorno.length>=15){retorno=retorno.substr(0,15)+"-"+retorno.substr(15)}objEmFoco.value=retorno.substr(0,18);if(retorno.length>=18){if(!validaCGC(retorno)){alerta(objEmFoco.value+"\nCNPJ inválido.");objEmFoco.value="";objEmFoco.focus();return }}break;case"ramal":objEmFoco.maxLength=4;retorno=limpaParaMascara(objEmFoco.value,"numeros");objEmFoco.value=retorno.substr(0,4);break;case"DD/MM/AA":objEmFoco.maxLength=8;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"/"+retorno.substr(2)}if(retorno.length>=5){retorno=retorno.substr(0,5)+"/"+retorno.substr(5)}objEmFoco.value=retorno.substr(0,8);if(retorno.length>=8){dataEmTeste=retorno.substr(0,6)+"20"+retorno.substr(6,2);if(!retornaValidaData(dataEmTeste)){objEmFoco.value="";objEmFoco.focus();return }}break;case"DD/MM/AAAA":objEmFoco.maxLength=10;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"/"+retorno.substr(2)}if(retorno.length>=5){retorno=retorno.substr(0,5)+"/"+retorno.substr(5)}objEmFoco.value=retorno.substr(0,10);if(retorno.length>=10){if(!retornaValidaData(objEmFoco.value,tamanho1)){objEmFoco.value="";objEmFoco.focus();return }}break;case"MM/AAAA":objEmFoco.maxLength=7;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=2){retorno=retorno.substr(0,2)+"/"+retorno.substr(2)}objEmFoco.value=retorno.substr(0,7);if(retorno.length>=7){dataEmTeste="01/"+retorno;if(!retornaValidaData(dataEmTeste)){objEmFoco.value="";objEmFoco.focus();return }}break;case"numero":if(tamanho1!=0){objEmFoco.maxLength=tamanho1}retorno=limpaParaMascara(objEmFoco.value,"numeros");objEmFoco.value=retorno.substr(0,objEmFoco.maxLength);break;case"inteiro":if(tamanho1!=0){objEmFoco.maxLength=tamanho1}retorno=limpaZerosAEsquerda(limpaParaMascara(objEmFoco.value,"numeros"));objEmFoco.value=retorno.substr(0,objEmFoco.maxLength);break;case"valor":retorno=objEmFoco.value;if(tamanho1+tamanho2>0){objEmFoco.maxLength=tamanho1+1+tamanho2+Math.floor(tamanho1/3)}var isNeg=false;if(retorno.charAt(0)=="-"){isNeg=true;retorno=retorno.substring(1);objEmFoco.maxLength++}retorno=limpaParaMascara(retorno,"valores");var posPrimVirgula=retorno.indexOf(",");retorno=limpaParaMascara(retorno,"numeros");if(posPrimVirgula>0){valorInteiro=retorno.substr(0,posPrimVirgula);valorCentavo=retorno.substring(posPrimVirgula);if(retorno.charAt(0)=="0"){retorno="0,"+valorCentavo.substr(0,tamanho2)}else{valorInteiro=retornaFormatoMonetarioInteiro(valorInteiro);valorCentavo=valorCentavo.substr(0,tamanho2);retorno=valorInteiro+","+valorCentavo}}else{retorno=retorno.substr(0,tamanho1);retorno=retornaFormatoMonetarioInteiro(retorno)}if(retorno==""&&(event.keyCode==48||event.keyCode==96)){retorno="0"}if(isNeg){retorno="-"+retorno}objEmFoco.value=retorno;break;case"percentual":objEmFoco.maxLength=3;retorno=limpaParaMascara(objEmFoco.value,"numeros");objEmFoco.value=retorno.substr(0,3);break;case"cartao":objEmFoco.maxLength=19;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=4){retorno=retorno.substr(0,4)+" "+retorno.substr(4)}if(retorno.length>=9){retorno=retorno.substr(0,9)+" "+retorno.substr(9)}if(retorno.length>=14){retorno=retorno.substr(0,14)+" "+retorno.substr(14)}objEmFoco.value=retorno.substr(0,19);if(objEmFoco.value.length==19){if(!validaCartao(objEmFoco.value)){alerta(objEmFoco.value+"\nNúmero do Cartão inválido");objEmFoco.value="";objEmFoco.focus();return }}break;case"cc":objEmFoco.maxLength=13;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.length>=4){retorno=retorno.substr(0,4)+"-"+retorno.substr(4)}if(retorno.length>=10){retorno=retorno.substr(0,10)+"-"+retorno.substr(10)}objEmFoco.value=retorno.substr(0,13);if(objEmFoco.value.length==13){if(!isContaCorrente(objEmFoco.value)){alerta(objEmFoco.value+"\nConta corrente inválida");objEmFoco.value="";objEmFoco.focus();return }}break;case"HH:MM":objEmFoco.maxLength=5;retorno=limpaParaMascara(objEmFoco.value,"numeros");if(retorno.substr(0,1)>2){retorno=""}if(retorno.substr(0,2)>23){retorno=retorno.substr(0,1)}if(retorno.substr(2,1)>5){retorno=retorno.substr(0,2)}if(retorno.length>=2){retorno=retorno.substr(0,2)+":"+retorno.substr(2)}objEmFoco.value=retorno.substr(0,5);break}}function limpaParaMascara(sujeira,filtro,tipo){numeros="0123456789";valores="0123456789,";letras="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛÃÕáéíóúàèìòùäëïöüâêîôûãõçÇ&ªº'\"|@_<>!#$%&*()={[}]?:+-.,;/\\0123456789 ";retorno2="";if(tipo==1){if(sujeira.substring(0,1)=="-"){ind=1}else{ind=0}}else{ind=0}switch(filtro){case"numeros":for(i=ind;i<sujeira.length;i++){if(numeros.indexOf(sujeira.charAt(i))>-1){retorno2+=sujeira.charAt(i)}}break;case"valores":for(i=ind;i<sujeira.length;i++){if(valores.indexOf(sujeira.charAt(i))>-1){retorno2+=sujeira.charAt(i)}}if(sujeira.charAt(0)=="-"){retorno2="-"+retorno2}break;case"letras":for(i=0;i<sujeira.length;i++){if(letras.indexOf(sujeira.charAt(i))>-1){retorno2+=sujeira.charAt(i)}}break}if(tipo==1){if(sujeira.substring(0,1)=="-"){retorno2="-"+retorno2}}return retorno2}function validaCPF(CPF){CPF=limpaParaMascara(CPF,"numeros");if(CPF.length!=11){for(countZeros=0;countZeros<((11-CPF.length)+2);countZeros++){CPF="0"+CPF}}if(CPF=="00000000000"){return false}soma=0;for(i=0;i<9;i++){soma=soma+eval(CPF.charAt(i)*(10-i))}Resto=11-(soma-(parseInt(soma/11)*11));if((Resto==10)||(Resto==11)){Resto=0}if(Resto!=eval((CPF.charAt(9)))){return false}soma=0;for(i=0;i<10;i++){soma=soma+eval(CPF.charAt(i)*(11-i))}Resto=11-(soma-(parseInt(soma/11)*11));if((Resto==10)||(Resto==11)){Resto=0}if(Resto!=eval((CPF.charAt(10)))){return false}return true}function VerificaCPF(valor){function moduloCPF(str){soma=0;ind=2;for(pos=str.length-1;pos>-1;pos=pos-1){soma=soma+(parseInt(str.charAt(pos))*ind);ind++;if(str.length>11){if(ind>9){ind=2}}}resto=soma-(Math.floor(soma/11)*11);if(resto<2){return 0}else{return 11-resto}}primeiro=valor.substr(1,1);falso=true;size=valor.length;if(size!=11){return false}size--;for(i=2;i<size-1;++i){proximo=(valor.substr(i,1));if(primeiro!=proximo){falso=false}}if(falso){return false}if(moduloCPF(valor.substring(0,valor.length-2))+""+moduloCPF(valor.substring(0,valor.length-1))!=valor.substring(valor.length-2,valor.length)){return false}return true}function validaCGC(field){field=limpaParaMascara(field,"numeros");if((field=="")||(field==" ")||(field=="00000000000000")){return false}if(field.length!=14){return false}first_digit=field.charAt(12);second_digit=field.charAt(13);field=field.substring(0,12);first_verified=calcMod11(field,5,2);second_verified=calcMod11(field+first_verified,6,2);if((first_verified==first_digit)&&(second_verified==second_digit)){return true}else{return false}}function VerificaCNPJ(valor){function moduloCNPJ(str){soma=0;ind=2;for(pos=str.length-1;pos>-1;pos=pos-1){soma=soma+(parseInt(str.charAt(pos))*ind);ind++;if(str.length>11){if(ind>9){ind=2}}}resto=soma-(Math.floor(soma/11)*11);if(resto<2){return 0}else{return 11-resto}}primeiro=valor.substr(1,1);falso=true;size=valor.length;if(size!=14){return false}size--;for(i=2;i<size-1;++i){proximo=(valor.substr(i,1));if(primeiro!=proximo){falso=false}}if(falso){return }if(moduloCNPJ(valor.substring(0,valor.length-2))+""+moduloCNPJ(valor.substring(0,valor.length-1))!=valor.substring(valor.length-2,valor.length)){return false}return true}function limpaCampo(field){t_field="";for(i=0;i<field.length;i++){if((field.charAt(i)!=".")&&(field.charAt(i)!="-")&&(field.charAt(i)!="/")&&(field.charAt(i)!=",")){t_field=t_field+field.charAt(i)}}return t_field}function formataCPF(paramCpf){cpfSemMascara=limpaParaMascara(paramCpf,"numeros");if(cpfSemMascara.length==11){cpfRetorno="";cpfRetorno+=cpfSemMascara.substr(0,3);cpfRetorno+=".";cpfRetorno+=cpfSemMascara.substr(3,3);cpfRetorno+=".";cpfRetorno+=cpfSemMascara.substr(6,3);cpfRetorno+="-";cpfRetorno+=cpfSemMascara.substr(9,2);return cpfRetorno}else{return paramCpf}}function formataCGC(paramCgc){cgcSemMascara=limpaParaMascara(paramCgc,"numeros");if(cgcSemMascara.length==14){cgcRetorno="";cgcRetorno=cgcSemMascara.substr(0,2);cgcRetorno+=".";cgcRetorno+=cgcSemMascara.substr(2,3);cgcRetorno+=".";cgcRetorno+=cgcSemMascara.substr(5,3);cgcRetorno+="/";cgcRetorno+=cgcSemMascara.substr(8,4);cgcRetorno+="-";cgcRetorno+=cgcSemMascara.substr(12,2);return cgcRetorno}else{return paramCgc}}function alertaDataInvalida(data,tipoTratamento){falhou=false;t_data=data.value;t_data=limpaCampo(t_data);dia=t_data.substr(0,2);mes=t_data.substr(2,2)-1;ano=t_data.substr(4,4);dataCorr=new Date();dataObj=new Date(ano,mes,dia);diaObj=dataObj.getDate();mesObj=dataObj.getMonth();anoObj=dataObj.getFullYear();if((t_data.length<8)||(dia!=diaObj)||(mes!=mesObj)||(ano!=anoObj)){falhou=true}if(tipoTratamento==0){if(dataObj>=dataCorr){falhou=true}}if(tipoTratamento==1){if(dataObj>dataCorr){falhou=true}}if(tipoTratamento==2&&data.value=="00/00/0000"){falhou=false}if(falhou){alerta("Data inválida");data.value="";if(!data.disabled){data.focus()}}}function dataValida(dataValor,tipoTeste){dataValor=limpaCampo(dataValor);dia=dataValor.substr(0,2);mes=dataValor.substr(2,2)-1;ano=dataValor.substr(4,4);dataObj=new Date(ano,mes,dia);diaObj=dataObj.getDate();mesObj=dataObj.getMonth();anoObj=dataObj.getFullYear();dataObj.setHours(0);dataObj.setMinutes(0);dataObj.setSeconds(0);dataObj.setMilliseconds(0);dataCorr=new Date();diaCorr=dataCorr.getDate();mesCorr=dataCorr.getMonth();anoCorr=dataCorr.getFullYear();dataCorr.setHours(0);dataCorr.setMinutes(0);dataCorr.setSeconds(0);dataCorr.setMilliseconds(0);data120=new Date(anoCorr-120,mesCorr,diaCorr);data120.setHours(0);data120.setMinutes(0);data120.setSeconds(0);data120.setMilliseconds(0);if((dataValor.length<8)||(dia!=diaObj)||(mes!=mesObj)||(ano!=anoObj)){return false}switch(tipoTeste){case"anterior":if(dataObj>=dataCorr){return false}break;case"ult120anos":if(dataObj<data120){return false}if(dataObj>=dataCorr){return false}break;case"futura":if(dataObj<=dataCorr){return false}break;case"futuraOUigual":if(dataObj<dataCorr){return false}break;case"anteriorOUigual":if(dataObj>dataCorr){return false}break;case"2mesesMMAAAA":dia="01";dataObj=new Date(ano,mes,dia);dataObj.setHours(0);dataObj.setMinutes(0);dataObj.setSeconds(0);dataObj.setMilliseconds(0);if(mesCorr>=2){mesCorr-=2}else{anoCorr-=1;if(mesCorr==0){mesCorr=10}if(mesCorr==1){mesCorr=11}}data2meses=new Date(anoCorr,mesCorr,dia);data2meses.setHours(0);data2meses.setMinutes(0);data2meses.setSeconds(0);data2meses.setMilliseconds(0);if(dataObj<data2meses){return false}break}return true}function retornaValidaData(t_data,tipoTratamento){falhou=false;t_data=limpaCampo(t_data);dia=t_data.substr(0,2);mes=t_data.substr(2,2)-1;ano=t_data.substr(4,4);dataCorr=new Date();dataObj=new Date(ano,mes,dia);diaObj=dataObj.getDate();mesObj=dataObj.getMonth();anoObj=dataObj.getFullYear();if((t_data.length<8)||(dia!=diaObj)||(mes!=mesObj)||(ano!=anoObj)){falhou=true}if(tipoTratamento&&tipoTratamento==2&&t_data=="00000000"){falhou=false}if(falhou){return false}else{return true}}function imprimir(){var WebBrowser='<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';document.body.insertAdjacentHTML("beforeEnd",WebBrowser);window.onerror=printerrortrap;WebBrowser1.ExecWB(6,2);window.onerror=null;WebBrowser1.outerHTML=""}function printerrortrap(){alerta("Impressão do documento não ocorreu.");window.onerror=null;WebBrowser1.outerHTML="";return true}function manipulaDatas(strData,nDias,futuroOuPassado){dateArray=strData.split("/");sdate=new Date(dateArray[2],dateArray[1]-1,dateArray[0]);if(futuroOuPassado=="+"){sdate.setDate(sdate.getDate()+nDias)}if(futuroOuPassado=="-"){sdate.setDate(sdate.getDate()-nDias)}var dia=sdate.getDate();var mes=sdate.getMonth()+1;if(dia<10){dia="0"+dia}if(mes<10){mes="0"+mes}return dia+"/"+mes+"/"+sdate.getFullYear()}function periodoDatas(dataFimPeriodo,dataInicioPeriodo){dateFim=new Date(dataFimPeriodo.substring(6,10),dataFimPeriodo.substring(3,5)-1,dataFimPeriodo.substring(0,2));dateInicio=new Date(dataInicioPeriodo.substring(6,10),dataInicioPeriodo.substring(3,5)-1,dataInicioPeriodo.substring(0,2));return((dateFim-dateInicio)/86400000)}function dateToddmmaaaa(objDate){var dia=objDate.getDate();var mes=objDate.getMonth()+1;if(dia<10){dia="0"+dia}if(mes<10){mes="0"+mes}return dia+"/"+mes+"/"+objDate.getFullYear()}function toData(stringData){if(stringData.substr(0,1)=="0"){dia=stringData.substr(1,1)}else{dia=stringData.substr(0,2)}if(stringData.substr(3,1)=="0"){mes=(stringData.substr(4,1)-1)}else{mes=(stringData.substr(3,2)-1)}ano=stringData.substr(6,4);tmp_Data=new Date(ano,mes,dia,0,0,0,0);corrigeBugTimeZoneGMT3(tmp_Data);return(tmp_Data)}function limitaTexto(objText,limiteChars){if(objText.value.length>limiteChars){objText.value=objText.value.substr(0,limiteChars);return(false)}return(true)}function getRandom(){return Math.random()}function desabilitaCampo(str){arrDesabilita=new Array();arrDesabilita=str.split(",");for(i=0;i<arrDesabilita.length;i++){obj=document.getElementById(arrHabilita[i]);if(obj!=null){obj.disabled=true}}}function habilitaCampo(str){arrHabilita=new Array();arrHabilita=str.split(",");for(i=0;i<arrHabilita.length;i++){obj=document.getElementById(arrHabilita[i]);if(obj!=null){obj.disabled=false}}}function placeFocus(){if(document.forms.length>0){var field=document.forms[0];for(i=0;i<field.length;i++){if((field.elements[i].type=="text")||(field.elements[i].type=="textarea")||(field.elements[i].type.toString().charAt(0)=="s")){document.forms[0].elements[i].focus();break}}}}function obrigatorio(campo){if(campo.value==""){alert("Este campo é um campo Obrigatório\nPor favor, complete seu preenchimento.");return false}}function MostraImageUpload(sessao){var x=400;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/legado/imagens/uploadImageLegado.php?"+sessao;var wVolta=false;var sAux="up"+sessaoid+" = window.open(sArq,'up"+sessaoid+"','width=400px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function validaDecimais(fieldName,fieldValue,decal){if(fieldValue.indexOf(",")==-1){fieldValue+=","}dectext=fieldValue.substring(fieldValue.indexOf(",")+1,fieldValue.length);if(dectext.length!=decal){alert("Por favor, use um número com "+decal+" casas decimais.");fieldName.focus();return false}}function validaNumeros(fieldName){fieldValue=fieldName.value;retorno=fieldValue.replace(",",".");if(isNaN(retorno)){alert("Você deve usar apenas números.");fieldName.focus();return false}}function abreAjuda(sessao){var x=10;var y=10;var sessaoid=sessao.substr(10,6);var sArq="ajuda/index.php?"+sessao;var wVolta=false;var sAux="hlp"+sessaoid+" = window.open(sArq,'hlp"+sessaoid+"','width=500px,height=300px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaMensagem(erro,tipo){var x=350;var y=200;var sArq="../../includes/mensagem.php?mensagem="+erro+"&tipo="+tipo;mensagem=window.open(sArq,"mensagem","width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y)}function alertaConfirma(template,pagina,chave,valor,men){var x=350;var y=200;var sArq="../../includes/mensagem.php?mensagem="+men+"&tipo="+template+"&chave="+chave+"&valor="+valor+"&pag="+pagina;var wVolta=false;mensagem=window.open(sArq,"mensagem","width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y)}function alertaDecisao(pagina,men){var x=350;var y=200;var sArq="../../includes/mensagem.php?mensagem="+men+"&tipo=decisao&pag="+pagina;var wVolta=false;mensagem=window.open(sArq,"mensagem","width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y)}function MostraEstados(nomeform,nomeestado,codestado,nommunicipio,codmunicipio,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/estados.php?"+sessao+"&nomForm="+nomeform+"&nomEstado="+nomeestado+"&codEstado="+codestado+"&nomMunicipio="+nommunicipio+"&codMunicipio="+codmunicipio;var wVolta=false;var sAux="mest"+sessaoid+" = window.open(sArq,'mest"+sessaoid+"','width=300px,height=120px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function autoTab(input,len,e){var isNN=(navigator.appName.indexOf("Netscape")!=-1);var keyCode=(isNN)?e.which:e.keyCode;var filter=(isNN)?[0,8,9]:[0,8,9,16,17,18,37,38,39,40,46];if(input.value.length>=len&&!containsElement(filter,keyCode)){input.value=input.value.slice(0,len);input.form[(getIndex(input)+1)%input.form.length].focus()}function containsElement(arr,ele){var found=false,index=0;while(!found&&index<arr.length){if(arr[index]==ele){found=true}else{index++}}return found}function getIndex(input){var index=-1,i=0,found=false;while(i<input.form.length&&index==-1){if(input.form[i]==input){index=i}else{i++}}return index}return true}function formataNumeroDecimais(fld,milSep,decSep,e){var sep=0;var key="";var i=j=0;var len=len2=0;var strCheck="0123456789";var aux=aux2="";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}len=fld.value.length;for(i=0;i<len;i++){if((fld.value.charAt(i)!="0")&&(fld.value.charAt(i)!=decSep)){break}}aux="";for(;i<len;i++){if(strCheck.indexOf(fld.value.charAt(i))!=-1){aux+=fld.value.charAt(i)}}aux+=key;len=aux.length;if(len==0){fld.value=""}if(len==1){fld.value="0"+decSep+"0"+aux}if(len==2){fld.value="0"+decSep+aux}if(len>2){aux2="";for(j=0,i=len-3;i>=0;i--){if(j==3){aux2+=milSep;j=0}aux2+=aux.charAt(i);j++}fld.value="";len2=aux2.length;for(i=len2-1;i>=0;i--){fld.value+=aux2.charAt(i)}fld.value+=decSep+aux.substr(len-2,len)}return false}function formataNumeroDecimaisNegativos(fld,milSep,decSep,e){var sep=0;var key="";var i=j=0;var len=len2=0;var strCheck="-0123456789";var aux=aux2="";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}len=fld.value.length;for(i=0;i<len;i++){if((fld.value.charAt(i)!="0")&&(fld.value.charAt(i)!=decSep)){break}}aux="";for(;i<len;i++){if(strCheck.indexOf(fld.value.charAt(i))!=-1){aux+=fld.value.charAt(i)}}aux+=key;len=aux.length;if(len==0){fld.value=""}if(len==1){fld.value="0"+decSep+"0"+aux}if(len==2){fld.value="0"+decSep+aux}if(len>2){aux2="";for(j=0,i=len-3;i>=0;i--){if(j==3){aux2+=milSep;j=0}aux2+=aux.charAt(i);j++}fld.value="";len2=aux2.length;for(i=len2-1;i>=0;i--){fld.value+=aux2.charAt(i)}fld.value+=decSep+aux.substr(len-2,len)}return false}function procuraBem(nomeform,campobem,sessao){var x=200;var y=120;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoPatrimonial/fontes/PHP/patrimonio/popups/bem/procuraBem.php?"+sessao+"&nomForm="+nomeform+"&campoBem="+campobem;var wVolta=false;var sAux="prbem"+sessaoid+" = window.open(sArq,'prbem"+sessaoid+"','width=650px,height=500px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function alertaAviso(objeto,tipo,chamada,sessao,caminho){var x=350;var y=200;var sessaoid=sessao.substr(10,6);if(caminho==undefined){caminho=""}var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/instancias/index/mensagem.php?"+sessao+"&tipo="+tipo+"&chamada="+chamada+"&obj="+objeto;mudaTelaMensagem(sArq)}function alertaAvisoNivel2(objeto,tipo,chamada,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="alerta.inc.php?"+sessao+"&tipo="+tipo+"&chamada="+chamada+"&obj="+objeto;var sAux="window.open(sArq,'','width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestao(pagina,chave,valor,objeto,tipo,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/popups/alerta/alerta.php?"+sessao+"&tipo="+tipo+"&chamada=sn&chave="+chave+"&valor="+valor+"&pagQuestao="+pagina+"&obj="+objeto;var wVolta=false;var sAux="window.open(sArq,'','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestaoFabio(pagina,tipo,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/alerta.inc.php?"+sessao+"&tipo="+tipo+"&chamada=pp&chave="+chave+"&valor="+valor+"&pag="+pagina+"&obj="+objeto;var wVolta=false;var sAux="msgc"+sessaoid+" = window.open(sArq,'msgc"+sessaoid+"','width=350px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestaoPopUp(pagina,tipo,sessao){var x=350;var y=200;var valor="pp_excluir";var chave="cod";var sessaoid=sessao.substr(10,6);var sArq="../../popups/alertaGenerico.inc.php?"+sessao+"&tipo="+tipo+"&chamada=pp&chave="+chave+"&valor="+valor+"&pag="+pagina;var wVolta=false;var sAux="msgc"+sessaoid+" = window.open(sArq,'msgc"+sessaoid+"','width=350px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestao2(pagina,tipo,sessao){var x=350;var y=200;var valor="teste";var chave=1;var sessaoid=sessao.substr(10,6);var sArq="../../../framework/popups/alerta/alerta.php?"+sessao+"&tipo="+tipo+"&chamada=sn&chave="+chave+"&valor="+valor+"&pagQuestao="+pagina;var wVolta=false;var sAux="msgc"+sessaoid+" = window.open(sArq,'msgc"+sessaoid+"','width=350px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaQuestaoOculto(pagina,chave,valor,objeto,tipo,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/alerta.inc.php?"+sessao+"&tipo="+tipo+"&chamada=oculto&chave="+chave+"&valor="+valor+"&pag="+pagina+"&obj="+objeto;var wVolta=false;var sAux="msgd"+sessaoid+" = window.open(sArq,'msgd"+sessaoid+"','width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function alertaSubmit(objeto,sessao){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../includes/alerta.inc.php?"+sessao+"&tipo=ccform&chamada=ccform&chave=&valor=&pag=&obj="+objeto;var wVolta=false;var sAux="msge"+sessaoid+" = window.open(sArq,'msge"+sessaoid+"','width=300px,height=200px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraLocal(nomeform,campolocal,campoexercicio,sessao){var x=350;var y=200;var sArq="../../includes/procuraLocal.php?"+sessao+"&nomForm="+nomeform+"&campoBem="+campolocal+"&campoexercicio="+campoexercicio;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prloc"+sessaoid+" = window.open(sArq,'prloc"+sessaoid+"','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraSetor(nomeform,camponomesetor,camposetor,campoexercicio,sessao){var x=350;var y=200;var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/popupsLegado/setor/procuraSetor.php?"+sessao+"&nomForm="+nomeform+"&campoNomeSetor="+camponomesetor+"&campoSetor="+camposetor+"&campoexercicio="+campoexercicio;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prset"+sessaoid+" = window.open(sArq,'prset"+sessaoid+"','width=550px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraVeiculo(nomeform,campoveiculo,sessao){var x=350;var y=200;var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/framework/popupsLegado/veiculo/procuraVeiculo.php?"+sessao+"&nomForm="+nomeform+"&campoCodVeiculo="+campoveiculo;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prvei"+sessaoid+" = window.open(sArq,'prvei"+sessaoid+"','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraMotorista(nomeform,camponommotorista,campocodmotorista,sessao){var x=350;var y=200;var sArq="../../includes/procuraMotorista.php?"+sessao+"&nomForm="+nomeform+"&campoNomMotorista="+camponommotorista+"&campoCodMotorista="+campocodmotorista;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prmot"+sessaoid+" = window.open(sArq,'prmot"+sessaoid+"','width=350px,height=250px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function procuraProcesso(nomeform,campocodprocesso,campoexercicio,sessao){var x=200;var y=140;var sArq="../../includes/procuraProcesso.php?"+sessao+"&nomForm="+nomeform+"&campoCodProcesso="+campocodprocesso+"&campoExercicio="+campoexercicio;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prpro"+sessaoid+" = window.open(sArq,'prpro"+sessaoid+"','width=400px,height=390px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraContaDespesa(nomeform,camponomeconta,campoconta,sessao){var x=200;var y=180;var sArq="../../includes/procuraContaDespesa.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prcde"+sessaoid+" = window.open(sArq,'prcde"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraContaReceita(nomeform,camponomeconta,campoconta,camporeduzido,reduzido,sessao){var x=200;var y=180;var sArq="../../includes/procuraContaReceita.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta+"&campoCodReduz="+camporeduzido+"&reduzido="+reduzido;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prcre"+sessaoid+" = window.open(sArq,'prcre"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procurarCgm(nomeform,camponum,camponom,tipodebusca,sessao,innerHtml){var x=350;var y=200;var sessaoid=sessao.substr(10,6);var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/CGM/popups/cgm/FLProcurarCgm.php?"+sessao+"&nomForm="+nomeform+"&campoNum="+camponum+"&campoNom="+camponom+"&tipoBusca="+tipodebusca+"&innerHtml="+innerHtml;var wVolta=false;var sAux="window.open(sArq,'','width=800px,height=550px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraPlanoConta(nomeform,camponomeconta,campoconta,campocodplano,reduzido,sessao,innerHtml){var x=200;var y=180;var sArq="../../includes/procuraPlanoConta.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta+"&campoCodPlano="+campocodplano+"&reduzido="+reduzido+"&innerHtml="+innerHtml;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prpco"+sessaoid+" = window.open(sArq,'prpco"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraProgramaTrabalho(nomeform,camponomeconta,campoconta,campocoddespesa,sessao){var x=200;var y=180;var sArq="../../includes/procuraProgramaTrabalho.php?"+sessao+"&nomForm="+nomeform+"&campoNomeConta="+camponomeconta+"&campoCodConta="+campoconta+"&campoCodDespesa="+campocoddespesa;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prptb"+sessaoid+" = window.open(sArq,'prptb"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function isNumber(fld,e){var key="";var strCheck="0123456789.";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}}function isNumeric(fld,e){var key="";var strCheck="0123456789";var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}}function isValido(fld,e,dominio){var key="";var strCheck=dominio;var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1){return false}}function maxTextArea(campo,limite,e,blur){var key="";var strCheck="";var whichCode=(window.Event)?e.which:e.keyCode;if(blur){campo.value=campo.value.substring(0,limite);return true}if(campo.value.length>limite){campo.value=campo.value.substring(0,limite);return false}}function procuraDomicilio(nomeform,campocoddomicilio,campologradouro,sessao){var x=200;var y=140;var sArq="../../../../../../gestaoAdministrativa/fontes/PHP/CSE/popups/domicilio/procuraDomicilio.php?"+sessao+"&nomForm="+nomeform+"&campoCodDomicilio="+campocoddomicilio+"&campoLogradouro="+campologradouro;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="window.open(sArq,'','width=500px,height=350px,resizable=1,scrollbars=0,left="+x+",top="+y+"');";eval(sAux)}function limpaSelect(sCampo,iOption){var campo=sCampo;var tam=campo.options.length;while(tam>=iOption){campo.options[tam]=null;tam=tam-1}if(iOption>0){campo.options[0].selected=true}}function procuraAutorizacaoEmpenho(nomeform,campoautorizacao,flag,sessao){var x=200;var y=140;var sArq="../../includes/procuraAutorizacaoEmpenho.php?"+sessao+"&nomForm="+nomeform+"&flag="+flag+"&campoAutorizacao="+campoautorizacao;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="window.open(sArq,'','width=450px,height=350px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraEmpenho(nomeform,campoempenho,sessao){var x=200;var y=140;var sArq="../../includes/procuraEmpenho.php?"+sessao+"&nomForm="+nomeform+"&campoEmpenho="+campoempenho;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prem"+sessaoid+" = window.open(sArq,'prem"+sessaoid+"','width=450px,height=350px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function mostraDadosProcesso(tipo,sessao){var x=200;var y=140;var sArq="../../includes/mostraDadosProcesso.php?"+sessao+"&tipo="+tipo;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prem"+sessaoid+" = window.open(sArq,'mdpr"+sessaoid+"','width=450px,height=350px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function procuraGenerica(nomeform,campocodigo,campodescricao,tabela,atributocod,atributonom,orderby,titulo,label,sessao){var x=200;var y=180;var sArq="../../includes/procuraGenerica.php?"+sessao+"&nomForm="+nomeform+"&campoCodigo="+campocodigo+"&campoDescricao="+campodescricao+"&tabela="+tabela+"&atributoCod="+atributocod+"&atributoNom="+atributonom+"&orderBy="+orderby+"&titulo="+titulo+"&label="+label;var sessaoid=sessao.substr(10,6);var wVolta=false;var sAux="prcde"+sessaoid+" = window.open(sArq,'prcde"+sessaoid+"','width=450px,height=250px,resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function verificaData(campoData){if(campoData.value.length){var stErro=false;if(campoData.value.substr(0,2)<1||campoData.value.substr(0,2)>31){stErro=true}if(campoData.value.substr(3,2)<1||campoData.value.substr(3,2)>12){stErro=true}if(campoData.value.substr(3,2)==4||campoData.value.substr(3,2)==6||campoData.value.substr(3,2)==9||campoData.value.substr(3,2)==11){if(campoData.value.substr(0,2)>30){stErro=true}}if(campoData.value.substr(3,2)==2){var bissexto=Number(campoData.value.substr(6,4))%4;if(bissexto!=0&&campoData.value.substr(0,2)>28){stErro=true}if(bissexto==0&&campoData.value.substr(0,2)>29){stErro=true}}if(stErro){campoData.focus();return false}else{return true}}else{return true}}function filtraMascara(campo){var expReg=new RegExp("[^a-zA-Z0-9]","g");var inCont=0;var novoCampo="";var tmpCampo;while(campo.length>inCont){tmpCampo=campo.substr(inCont,1);if(!expReg.test(tmpCampo)){novoCampo+=tmpCampo}inCont++}return novoCampo}function validaCaracter(masc,caracter,posicao){var caracterMasc=masc.charAt(posicao);var expRegCharNumber=new RegExp("[a-zA-Z0-9]","ig");if(expRegCharNumber.test(caracterMasc)){if(isNaN(caracterMasc)){var expValReg=new RegExp("[a-"+caracterMasc+"]","ig")}else{var expValReg=new RegExp("[0-"+caracterMasc+"]")}return expValReg.test(caracter)}else{return false}}function mascaraDinamico(mascara,campo,evento){var expReg=new RegExp("[^a-zA-Z0-9]","g");var expRegTmp;var arExecExp=expReg.exec(mascara);var stCampoNovo="";var stMascaraTmp=mascara.substr(arExecExp.index+1);var campoMasc=filtraMascara(campo.value);var inContIndex=1;var inCont=0;var flagIndex=true;var whichCode=(window.Event)?evento.which:evento.keyCode;if(whichCode==13){return true}if(whichCode==0){return true}if(whichCode==1){return true}if(whichCode==2){return true}if(whichCode==3){return true}if(whichCode==4){return true}if(whichCode==5){return true}if(whichCode==6){return true}if(whichCode==7){return true}if(whichCode==8){return true}if(whichCode==9){return true}if(whichCode==10){return true}while(inCont<campoMasc.length&&stCampoNovo.length<mascara.length){caracter=campoMasc.substr(inCont,1);if(validaCaracter(mascara,caracter,inContIndex-1)){stCampoNovo+=caracter;expRegTmp=new RegExp("[^a-zA-Z0-9]","g");if(expRegTmp.test(stMascaraTmp)||flagIndex){if(arExecExp.index==inContIndex){stCampoNovo+=arExecExp[0];arExecExp=expReg.exec(mascara);inContIndex++;stMascaraTmp=mascara.substr(inContIndex);flagIndex=false}}}inCont++;inContIndex++}campo.value=stCampoNovo;return false}function mascaraCPF(campo,evento){return mascaraDinamico("999.999.999-99",campo,evento)}function mascaraCNPJ(campo,evento){return mascaraDinamico("99.999.999/9999-99",campo,evento)}function mascaraCEP(campo,evento){return mascaraDinamico("99999-999",campo,evento)}function mascaraData(campo,evento){return mascaraDinamico("99/99/9999",campo,evento)}function limpaZerosMoeda(valor){while(valor.substr(0,1)=="0"){valor=valor.substr(1,valor.length)}return valor}function montaMilharMoeda(valor){if(valor!="0"){var expReg=new RegExp("[^0-9-]","g");valor=valor.replace(expReg,"");valor=limpaZerosMoeda(valor);var tamanho=valor.length;var pos=tamanho-3;var milhar="";var cont=0;while(pos>0&&tamanho>3){if(valor.substr(0,pos)!="-"){valor=valor.substr(0,pos)+"."+valor.substr(pos,tamanho)}tamanho=valor.length;pos=pos-3}}return valor}function formataMoeda(campo,decimais,evento,negativo){var moeda="";if(campo.value.length>0){var virgPos=campo.value.search(",");if(virgPos>=0){if(campo.value.search("-")==0&&negativo){stMenos=campo.value.substring(1,campo.value.length)}else{stMenos=campo.value}var arMoeda=stMenos.split(",");while(arMoeda[1].length<decimais){arMoeda[1]+="0"}var milhar=montaMilharMoeda(arMoeda[0]);if(milhar.length==0){milhar="0"}moeda=milhar+","+arMoeda[1]}else{var zeros="";while(zeros.length<decimais){zeros+="0"}if(campo.value.search("-")==0&&negativo){stMenos=campo.value.substring(1,campo.value.length)}else{stMenos=campo.value}moeda=montaMilharMoeda(stMenos)+","+zeros}if(campo.value.search("-")==0&&negativo){campo.value="-"+moeda}else{campo.value=moeda}}return true}function mascaraMoeda(campo,decimais,evento,negativo){var virgPos=campo.value.search(",");var stMenos="";if((evento.keyCode!=9)){if((evento.keyCode!=16)){if(evento.keyCode==109){if(negativo){if(campo.value.length!=1){campo.value=campo.value.substring(0,campo.value.length-1)}}else{campo.value=campo.value.substring(0,campo.value.length-1)}}else{if(evento.keyCode==188){if((campo.value.length-(decimais+1))>virgPos){campo.value=campo.value.replace(",","")}else{if(campo.value.length==1){campo.value="0,"}}}else{if(campo.value.search("-")==0&&negativo){stMenos=campo.value.substring(1,campo.value.length)}else{stMenos=campo.value}var arMoeda=stMenos.split(",");var inMoeda=montaMilharMoeda(arMoeda[0]);if(typeof (arMoeda[1])!="undefined"){if(inMoeda.length==0){inMoeda="0"}stMenos=inMoeda+","+arMoeda[1].substr(0,decimais)}else{stMenos=inMoeda}if(campo.value.search("-")==0&&negativo){campo.value="-"+stMenos}else{campo.value=stMenos}}}}}}function mascaraNumerico(campo,tamanho,decimais,evento,negativo){RegExpMenos=new RegExp("-","g");var boValorNegativo=false;if((evento.keyCode!=9)){if((evento.keyCode!=16)){if((evento.keyCode!=0)){if((campo.value.length<(tamanho-(decimais+2)))||(campo.value.search(",")!="-1")||(evento.keyCode==8)){if(negativo){if(evento.keyCode==109){boValorNegativo=true}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode!=107&&evento.keyCode!=61)){boValorNegativo=true}}if((campo.value.charAt(0)!="-")&&(evento.keyCode==109)){campo.maxLength=campo.maxLength+1}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode==107||evento.keyCode==61)){campo.maxLength=campo.maxLength-1}}}campo.value=campo.value.replace(RegExpMenos,"");var virgPos=campo.value.search(",");if(evento.keyCode==188||evento.keyCode==108){if((campo.value.length-(decimais+1))>virgPos){campo.value=campo.value.replace(",","")}else{if(campo.value.length==1){campo.value="0,"}}}else{var arMoeda=campo.value.split(",");var inMoeda=montaMilharMoeda(arMoeda[0]);if(typeof (arMoeda[1])!="undefined"){if(inMoeda.length==0){inMoeda="0"}campo.value=inMoeda+","+arMoeda[1].substr(0,decimais)}else{campo.value=inMoeda}}if(negativo){if(boValorNegativo){campo.value="-"+campo.value}}}else{campo.value=campo.value+","}}else{campo.value=campo.value.replace(/\^|~|´|`/g,"")}}}}function mascaraNumericoBR(campo,tamanho,decimais,evento,negativo){RegExpMenos=new RegExp("-","g");var boValorNegativo=false;if((evento.keyCode!=9)){if((evento.keyCode!=16)){if((evento.keyCode!=0)){campo.value=campo.value.replace(/[\.]/g,"");if((campo.value.length<(tamanho-decimais))||(campo.value.search(",")!="-1")||(evento.keyCode==8)){if(negativo){if(evento.keyCode==109){boValorNegativo=true}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode!=107&&evento.keyCode!=61)){boValorNegativo=true}}if((campo.value.charAt(0)!="-")&&(evento.keyCode==109)){campo.maxLength=campo.maxLength+1}else{if((campo.value.charAt(0)=="-")&&(evento.keyCode==107||evento.keyCode==61)){campo.maxLength=campo.maxLength-1}}}campo.value=campo.value.replace(RegExpMenos,"");var virgPos=campo.value.search(",");if(evento.keyCode==188||evento.keyCode==108){if((campo.value.length-(decimais+1))>virgPos){campo.value=campo.value.replace(",","")}else{if(campo.value==","){campo.value="0,"}}}else{var arMoeda=campo.value.split(",");var inMoeda=montaMilharMoeda(arMoeda[0]);if(typeof (arMoeda[1])!="undefined"){if(inMoeda.length==0){inMoeda="0"}campo.value=inMoeda+","+arMoeda[1].substr(0,decimais)}else{campo.value=inMoeda}}if(negativo){if(boValorNegativo){campo.value="-"+campo.value}}}else{var inMoeda=montaMilharMoeda(campo.value);campo.value=inMoeda+","}}else{campo.value=campo.value.replace(/\^|~|´|`/g,"")}}}}function validaCharMoeda(campo,evento){var arMoeda=campo.value.split(",");if(navigator.appName=="Netscape"){var teclaPress=evento.which}else{var teclaPress=evento.keyCode}var retorno=true;var expReg=new RegExp("[0-9,-]","g");var novo=String.fromCharCode(teclaPress);if(!validaTecla(evento.keyCode)){if(novo.search(expReg)){retorno=false}else{var strTemp=campo.value+String.fromCharCode(teclaPress);if(strTemp.search(",")!=strTemp.lastIndexOf(",")){retorno=false}}}return retorno}function validaTecla(tecla){var retorno=false;if(navigator.appName=="Netscape"){switch(tecla){case 8:retorno=true;break;case 9:retorno=true;break;case 13:retorno=true;break;case 20:retorno=true;break;case 27:retorno=true;break;case 33:retorno=true;break;case 34:retorno=true;break;case 35:retorno=true;break;case 36:retorno=true;break;case 37:retorno=true;break;case 38:retorno=true;break;case 39:retorno=true;break;case 40:retorno=true;break;case 45:retorno=true;break;case 46:retorno=true;break}}else{switch(tecla){case 8:retorno=true;break}}return retorno}function preencheCampo(selecionado,preenchido){var iIndice=0;var formulario=selecionado.form.name;var d=eval("document."+formulario);var iIndex;if(selecionado.type=="select-one"&&selecionado.value.toUpperCase()=="XXX"){preenchido.value="";return true}else{preenchido.value=selecionado.value;if(preenchido.type=="select-one"&&preenchido.value!=selecionado.value){alertaAviso("@Valor inválido. ("+selecionado.value+")","form","erro","<?=$sessao->id?>");preenchido.selectedIndex=0;return false}else{for(var iCont=1;iCont<d.elements.length;iCont++){if(d.elements[iCont].name==selecionado.name){break}}if(selecionado.type=="select-one"){iIndex=iCont+1}else{iIndex=iCont+2}if((d.elements.length-iIndex)>0){d.elements[iIndex].focus()}return true}}return true}function preencheCA(variavel,valor){var targetTmp=document.frm.target;document.frm.target="oculto";var actionTmp=document.frm.action;document.frm.action+="&variavel="+variavel+"&valor="+escape(valor)+"&ctrl=100&controle=100";document.frm.submit();document.frm.target=targetTmp}function preencheCA_ano(variavel,valor){ano=valor.substr((valor.length)-4,4);valor=valor.substr(0,(valor.length)-4);var targetTmp=document.frm.target;document.frm.target="oculto";var actionTmp=document.frm.action;document.frm.action+="&anoOrgao="+ano+"&variavel="+variavel+"&valor="+escape(valor)+"&ctrl=100&controle=100";document.frm.submit();document.frm.target=targetTmp}function validaCombo(iCod,campo){var cod=iCod;var val;var erro=true;var f=document.frm;var tam=campo.options.length-1;while(tam>=0){val=campo.options[tam].value;if(cod==val){campo.options[tam].selected=true;erro=false}tam=tam-1}if(erro){return false}else{return true}}function abrePopUp(arquivo,nomeform,camponum,camponom,tipodebusca,sessao,width,height){if(width==""){width=800}if(height==""){height=550}var x=0;var y=0;var sessaoid=sessao.substr(10,6);var sArq="../../popups/popups/"+arquivo+"?"+sessao+"&nomForm="+nomeform+"&campoNum="+camponum+"&campoNom="+camponom+"&tipoBusca="+tipodebusca;var sAux="prcgm"+sessaoid+" = window.open(sArq,'prcgm"+sessaoid+"','width="+width+",height="+height+",resizable=1,scrollbars=1,left="+x+",top="+y+"');";eval(sAux)}function formataValor(campo){campo.value=filtraCampo(campo);vr=campo.value;tam=vr.length;if(tam<=2){campo.value=vr}if((tam>2)&&(tam<=5)){campo.value=vr.substr(0,tam-2)+","+vr.substr(tam-2,tam)}if((tam>=6)&&(tam<=8)){campo.value=vr.substr(0,tam-5)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}if((tam>=9)&&(tam<=11)){campo.value=vr.substr(0,tam-8)+"."+vr.substr(tam-8,3)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}if((tam>=12)&&(tam<=14)){campo.value=vr.substr(0,tam-11)+"."+vr.substr(tam-11,3)+"."+vr.substr(tam-8,3)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}if((tam>=15)&&(tam<=18)){campo.value=vr.substr(0,tam-14)+"."+vr.substr(tam-14,3)+"."+vr.substr(tam-11,3)+"."+vr.substr(tam-8,3)+"."+vr.substr(tam-5,3)+","+vr.substr(tam-2,tam)}}function filtraCampo(campo){var s="";var cp="";var regra=new RegExp("[0-9]");vr=campo.value;tam=vr.length;for(i=0;i<tam;i++){var conferir=regra.exec(vr.substring(i,i+1));if(vr.substring(i,i+1)!="/"&&vr.substring(i,i+1)!="-"&&vr.substring(i,i+1)!="."&&vr.substring(i,i+1)!=","&&conferir!=null){s=s+vr.substring(i,i+1)}}campo.value=s;return cp=campo.value}function atualizaFormataValor(campo){campo.value=filtraCampo(campo);vr=campo.value;tam=vr.length;if(tam<=2){campo.value=campo.value+",00"}else{formataValor(campo)}};
3 \ No newline at end of file 3 \ No newline at end of file
gestaoAdministrativa/fontes/javaScript/ifuncoesJs.js
  Diff comments   View file @842bba7
@@ -2391,7 +2391,7 @@ function mascaraNumerico( campo, tamanho, decimais, evento, negativo ){ @@ -2391,7 +2391,7 @@ function mascaraNumerico( campo, tamanho, decimais, evento, negativo ){
2391 //evento.keyCode == 188 é a virgula 2391 //evento.keyCode == 188 é a virgula
2392 //VERIFICA SE O USUARIO TENTOU COLOCAR A VIRGULA NUMA POSICAO INVALIDA 2392 //VERIFICA SE O USUARIO TENTOU COLOCAR A VIRGULA NUMA POSICAO INVALIDA
2393 //SE ISSO OCORRER A VIRGULA SERA APAGADA 2393 //SE ISSO OCORRER A VIRGULA SERA APAGADA
2394 - if( evento.keyCode == 188 ){ 2394 + if( evento.keyCode == 188 || evento.keyCode == 108){
2395 if( (campo.value.length - (decimais + 1)) > virgPos ){ 2395 if( (campo.value.length - (decimais + 1)) > virgPos ){
2396 campo.value = campo.value.replace(',',''); 2396 campo.value = campo.value.replace(',','');
2397 }else if( campo.value.length == 1 ){ 2397 }else if( campo.value.length == 1 ){
gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadeConfiguracaoLancamentoReceita.class.php
  Diff comments   View file @842bba7
@@ -33,12 +33,14 @@ @@ -33,12 +33,14 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Mapeamento 34 * @subpackage Mapeamento
35 35
  36 + $Id: TContabilidadeConfiguracaoLancamentoReceita.class.php 66167 2016-07-25 12:46:20Z fabio $
  37 +
36 * Casos de uso: uc-02.03.03 38 * Casos de uso: uc-02.03.03
37 uc-02.02.04 39 uc-02.02.04
38 */ 40 */
39 41
40 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; 42 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
41 -include_once ( CLA_PERSISTENTE ); 43 +include_once CLA_PERSISTENTE;
42 44
43 class TContabilidadeConfiguracaoLancamentoReceita extends Persistente 45 class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
44 { 46 {
@@ -46,7 +48,7 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente @@ -46,7 +48,7 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
46 * Método Construtor 48 * Método Construtor
47 * @access Private 49 * @access Private
48 */ 50 */
49 - public function TContabilidadeConfiguracaoLancamentoReceita() 51 + public function __construct()
50 { 52 {
51 parent::Persistente(); 53 parent::Persistente();
52 $this->setTabela('contabilidade.configuracao_lancamento_receita'); 54 $this->setTabela('contabilidade.configuracao_lancamento_receita');
@@ -58,7 +60,6 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente @@ -58,7 +60,6 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
58 $this->AddCampo('exercicio','char',true,'04',true,true); 60 $this->AddCampo('exercicio','char',true,'04',true,true);
59 $this->AddCampo('cod_conta_receita','integer',true,'',true,true); 61 $this->AddCampo('cod_conta_receita','integer',true,'',true,true);
60 $this->AddCampo('estorno','boolean',true,'',true,false); 62 $this->AddCampo('estorno','boolean',true,'',true,false);
61 -  
62 } 63 }
63 64
64 /** 65 /**
@@ -89,7 +90,8 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente @@ -89,7 +90,8 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
89 WHEN plano_conta.cod_estrutural LIKE '1.2.3.%' THEN 90 WHEN plano_conta.cod_estrutural LIKE '1.2.3.%' THEN
90 'alienacaoBens' 91 'alienacaoBens'
91 WHEN plano_conta.cod_estrutural LIKE '1.1.2.3.%' 92 WHEN plano_conta.cod_estrutural LIKE '1.1.2.3.%'
92 - OR plano_conta.cod_estrutural LIKE '1.1.2.4.%' THEN 93 + OR plano_conta.cod_estrutural LIKE '1.1.2.4.%'
  94 + OR plano_conta.cod_estrutural LIKE '1.1.2.5.1.%' THEN
93 'dividaAtiva' 95 'dividaAtiva'
94 ELSE 96 ELSE
95 'arrecadacaoDireta' 97 'arrecadacaoDireta'
gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadeLancamentoEmpenhoAnulado.class.php 0 → 100644
  Diff comments   View file @842bba7
@@ -0,0 +1,65 @@ @@ -0,0 +1,65 @@
  1 +<?php
  2 +/*
  3 + **********************************************************************************
  4 + * *
  5 + * @package URBEM CNM - Soluções em Gestão Pública *
  6 + * @copyright (c) 2013 Confederação Nacional de Municípos *
  7 + * @author Confederação Nacional de Municípios *
  8 + * *
  9 + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob *
  10 + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do *
  11 + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. *
  12 + * *
  13 + * Este programa é distribuído na expectativa de que seja útil, porém, *
  14 + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU *
  15 + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU *
  16 + * para mais detalhes. *
  17 + * *
  18 + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" *
  19 + * com este programa; se não, escreva para a Free Software Foundation Inc., *
  20 + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
  21 + * *
  22 + **********************************************************************************
  23 +*/
  24 +?>
  25 +<?php
  26 +/**
  27 + * Classe de mapeamento da tabela CONTABILIDADE.LANCAMENTO_EMPENHO_ANULADO
  28 + * Data de Criação: 06/07/2016
  29 +
  30 + * @author Analista: Gelson Wolowski Gonçalves
  31 + * @author Desenvolvedor: Michel Teixeira
  32 +
  33 + * @package URBEM
  34 + * @subpackage Mapeamento
  35 +
  36 + $Id: TContabilidadeLancamentoEmpenhoAnulado.class.php 66022 2016-07-07 20:23:42Z fabio $
  37 +*/
  38 +
  39 +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
  40 +include_once CLA_PERSISTENTE;
  41 +
  42 +class TContabilidadeLancamentoEmpenhoAnulado extends Persistente
  43 +{
  44 + /**
  45 + * Método Construtor
  46 + * @access Private
  47 + */
  48 + function __construct()
  49 + {
  50 + parent::Persistente();
  51 + $this->setTabela('contabilidade.lancamento_empenho_anulado');
  52 +
  53 + $this->setCampoCod('');
  54 + $this->setComplementoChave('exercicio,cod_lote,tipo,sequencia,cod_entidade,exercicio_anulacao,cod_empenho_anulacao,timestamp_anulacao');
  55 +
  56 + $this->AddCampo('exercicio' , 'char' ,true,'04',true,true);
  57 + $this->AddCampo('cod_lote' , 'integer' ,true, '',true,true);
  58 + $this->AddCampo('tipo' , 'char' ,true, '1',true,true);
  59 + $this->AddCampo('sequencia' , 'integer' ,true, '',true,true);
  60 + $this->AddCampo('cod_entidade' , 'integer' ,true, '',true,true);
  61 + $this->AddCampo('exercicio_anulacao' , 'char' ,true,'04',true,true);
  62 + $this->AddCampo('cod_empenho_anulacao' , 'integer' ,true, '',true,true);
  63 + $this->AddCampo('timestamp_anulacao' , 'timestamp',true, '',true,true);
  64 + }
  65 +}
gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadeLancamentoReceita.class.php
  Diff comments   View file @842bba7
@@ -33,35 +33,15 @@ @@ -33,35 +33,15 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Mapeamento 34 * @subpackage Mapeamento
35 35
36 - $Revision: 30668 $  
37 - $Name$  
38 - $Autor: $  
39 - $Date: 2006-07-05 17:51:50 -0300 (Qua, 05 Jul 2006) $ 36 + $Id: TContabilidadeLancamentoReceita.class.php 66167 2016-07-25 12:46:20Z fabio $
40 37
41 * Casos de uso: uc-02.02.05 38 * Casos de uso: uc-02.02.05
42 uc-02.01.06 39 uc-02.01.06
43 */ 40 */
44 41
45 -/*  
46 -$Log$  
47 -Revision 1.8 2006/07/05 20:50:14 cleisson  
48 -Adicionada tag Log aos arquivos  
49 -  
50 -*/  
51 -  
52 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; 42 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
53 -include_once ( CLA_PERSISTENTE ); 43 +include_once CLA_PERSISTENTE;
54 44
55 -/**  
56 - * Efetua conexão com a tabela CONTABILIDADE.LANCAMENTO_RECEITA  
57 - * Data de Criação: 01/11/2004  
58 -  
59 - * @author Analista: Jorge B. Ribarr  
60 - * @author Desenvolvedor: Anderson R. M. Buzo  
61 -  
62 - * @package URBEM  
63 - * @subpackage Mapeamento  
64 -*/  
65 class TContabilidadeLancamentoReceita extends Persistente 45 class TContabilidadeLancamentoReceita extends Persistente
66 { 46 {
67 /** 47 /**
@@ -258,12 +238,15 @@ function recuperaExistenciaReceita(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem = &quot; @@ -258,12 +238,15 @@ function recuperaExistenciaReceita(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem = &quot;
258 238
259 function montaRecuperaExistenciaReceita() 239 function montaRecuperaExistenciaReceita()
260 { 240 {
261 - $stSql = " SELECT \n";  
262 - $stSql .= " count(cod_receita) as total \n";  
263 - $stSql .= " FROM \n";  
264 - $stSql .= " contabilidade.lancamento_receita \n";  
265 - $stSql .= " WHERE \n";  
266 - $stSql .= " exercicio = '".$this->getDado('exercicio')."' \n"; 241 + $stSql = " SELECT
  242 + count(cod_receita) as total
  243 + FROM
  244 + contabilidade.lancamento_receita
  245 + WHERE exercicio = '".$this->getDado('exercicio')."'
  246 + ";
  247 +
  248 + if($this->getDado('cod_receita'))
  249 + $stSql .= " AND cod_receita = ".$this->getDado('cod_receita')." \n";
267 250
268 return $stSql; 251 return $stSql;
269 } 252 }
gestaoFinanceira/fontes/PHP/contabilidade/classes/negocio/RContabilidadeLancamentoReceita.class.php
  Diff comments   View file @842bba7
@@ -33,12 +33,7 @@ @@ -33,12 +33,7 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Regra 34 * @subpackage Regra
35 35
36 - $Id: RContabilidadeLancamentoReceita.class.php 59820 2014-09-12 18:17:20Z luciana $  
37 -  
38 - $Revision: 30668 $  
39 - $Name$  
40 - $Autor: $  
41 - $Date: 2007-07-13 16:18:44 -0300 (Sex, 13 Jul 2007) $ 36 + $Id: RContabilidadeLancamentoReceita.class.php 66167 2016-07-25 12:46:20Z fabio $
42 37
43 * Casos de uso: uc-02.02.05 38 * Casos de uso: uc-02.02.05
44 uc-02.02.16 39 uc-02.02.16
@@ -46,9 +41,9 @@ @@ -46,9 +41,9 @@
46 uc-02.03.28 41 uc-02.03.28
47 */ 42 */
48 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; 43 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
49 -include_once ( CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoValor.class.php" );  
50 -include_once ( CAM_GF_CONT_NEGOCIO."RContabilidadeDesdobramentoReceita.class.php" );  
51 -include_once ( CAM_GF_ORC_NEGOCIO."ROrcamentoReceita.class.php" ); 44 +include_once CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoValor.class.php";
  45 +include_once CAM_GF_CONT_NEGOCIO."RContabilidadeDesdobramentoReceita.class.php";
  46 +include_once CAM_GF_ORC_NEGOCIO."ROrcamentoReceita.class.php";
52 47
53 class RContabilidadeLancamentoReceita extends RContabilidadeLancamentoValor 48 class RContabilidadeLancamentoReceita extends RContabilidadeLancamentoValor
54 { 49 {
@@ -632,11 +627,15 @@ function listar(&amp;$rsLista, $stOrder = &quot;&quot;, $obTransacao = &quot;&quot;) @@ -632,11 +627,15 @@ function listar(&amp;$rsLista, $stOrder = &quot;&quot;, $obTransacao = &quot;&quot;)
632 */ 627 */
633 function consultarExistenciaReceita($boTransacao = "") 628 function consultarExistenciaReceita($boTransacao = "")
634 { 629 {
635 - include_once ( CAM_GF_CONT_MAPEAMENTO."TContabilidadeLancamentoReceita.class.php" ); 630 + include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeLancamentoReceita.class.php";
636 $obTContabilidadeLancamentoReceita = new TContabilidadeLancamentoReceita; 631 $obTContabilidadeLancamentoReceita = new TContabilidadeLancamentoReceita;
637 632
638 $obTContabilidadeLancamentoReceita->setDado( "exercicio", $this->obRContabilidadeLancamento->obRContabilidadeLote->getExercicio() ); 633 $obTContabilidadeLancamentoReceita->setDado( "exercicio", $this->obRContabilidadeLancamento->obRContabilidadeLote->getExercicio() );
  634 + if($this->obROrcamentoReceita->getCodReceita())
  635 + $obTContabilidadeLancamentoReceita->setDado( "cod_receita", $this->obROrcamentoReceita->getCodReceita() );
  636 +
639 $obErro = $obTContabilidadeLancamentoReceita->recuperaExistenciaReceita( $rsRecordSet, $boTransacao ); 637 $obErro = $obTContabilidadeLancamentoReceita->recuperaExistenciaReceita( $rsRecordSet, $boTransacao );
  638 +
640 if ( !$obErro->ocorreu() ) { 639 if ( !$obErro->ocorreu() ) {
641 $this->inCountReceitaExercicio = $rsRecordSet->getCampo( "total" ); 640 $this->inCountReceitaExercicio = $rsRecordSet->getCampo( "total" );
642 } 641 }
gestaoFinanceira/fontes/PHP/contabilidade/instancias/configuracao/OCConfigurarLancamentosReceita.php
  Diff comments   View file @842bba7
@@ -27,115 +27,98 @@ @@ -27,115 +27,98 @@
27 * Formulário oculto 27 * Formulário oculto
28 * Data de criação : 21/10/2011 28 * Data de criação : 21/10/2011
29 29
30 - * @author Analista: Tonismar Bernardo  
31 - * @author Programador: Davi Aroldi 30 + * @author Analista: Tonismar Bernardo
  31 + * @author Programador: Davi Aroldi
32 32
  33 + $Id: OCConfigurarLancamentosReceita.php 66167 2016-07-25 12:46:20Z fabio $
33 */ 34 */
34 35
35 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; 36 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
36 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; 37 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
37 -include_once( CAM_GF_CONT_MAPEAMENTO."TContabilidadePlanoContaTCEMS.class.php" );  
38 -include_once( CAM_GF_CONT_MAPEAMENTO."TContabilidadeConfiguracaoLancamentoReceita.class.php" );  
39 -include_once(CAM_GRH_ENT_MAPEAMENTO."TEntidade.class.php"); 38 +include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadePlanoContaTCEMS.class.php";
  39 +include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeConfiguracaoLancamentoReceita.class.php";
  40 +include_once CAM_GRH_ENT_MAPEAMENTO."TEntidade.class.php";
40 41
41 function montaLancamentoReceita() 42 function montaLancamentoReceita()
42 { 43 {
43 - $obTContabilidadeConfiguracaoLancamentoReceita = new TContabilidadeConfiguracaoLancamentoReceita;  
44 - $stFiltro = " WHERE configuracao_lancamento_receita.cod_conta_receita = ".$_REQUEST['cod_conta_receita']."  
45 - AND configuracao_lancamento_receita.estorno = 'false'  
46 - AND configuracao_lancamento_receita.exercicio = '".Sessao::getExercicio()."' ";  
47 - $obTContabilidadeConfiguracaoLancamentoReceita->recuperaContasConfiguracaoReceita( $rsRecordSet, $stFiltro ); 44 + $obTContabilidadeConfiguracaoLancamentoReceita = new TContabilidadeConfiguracaoLancamentoReceita;
  45 + $stFiltro = " WHERE configuracao_lancamento_receita.cod_conta_receita = ".$_REQUEST['cod_conta_receita']."
  46 + AND configuracao_lancamento_receita.estorno = 'false'
  47 + AND configuracao_lancamento_receita.exercicio = '".Sessao::getExercicio()."' ";
  48 + $obTContabilidadeConfiguracaoLancamentoReceita->recuperaContasConfiguracaoReceita( $rsRecordSet, $stFiltro );
  49 +
  50 + $stJs = "";
  51 + $stJs .= " jQuery('#codContaReceitaLista').val(".$_REQUEST['cod_conta_receita']."); \n";
  52 +
  53 + if ($rsRecordSet->getNumLinhas() > 0) {
  54 + while (!$rsRecordSet->eof()) {
  55 + $stJs .= " jQuery('#".$rsRecordSet->getCampo('tipo_arrecadacao')."').attr('checked', true); \n";
  56 + $stJs .= montaCombos($rsRecordSet->getCampo('cod_conta_receita'), $rsRecordSet->getCampo('tipo_arrecadacao'));
  57 + $stJs .= " jQuery('#stLancamentoCreditoReceita').val(".$rsRecordSet->getCampo('cod_conta')."); \n";
  58 +
  59 + $rsRecordSet->proximo();
  60 + }
  61 + } else {
  62 + $stJs .= " jQuery('#arrecadacaoDireta').attr('checked', true); \n";
  63 + $stJs .= montaCombos($_REQUEST['cod_conta_receita'], 'arrecadacaoDireta');
  64 + $stJs .= " jQuery('#stLancamentoCreditoReceita').val(''); \n";
  65 + }
  66 +
  67 + return $stJs;
  68 +}
48 69
49 - $stJs = "";  
50 - $stJs .= " jQuery('#codContaReceitaLista').val(".$_REQUEST['cod_conta_receita']."); \n"; 70 +function montaCombos($inCodDespesa, $stValorRadio = "")
  71 +{
  72 + $obTContabilidadePlanoConta = new TContabilidadePlanoContaTCEMS;
  73 + $stOrdem = " ORDER BY pc.cod_estrutural ";
  74 + $stJs = "";
  75 +
  76 + switch ($stValorRadio) {
  77 + case "arrecadacaoDireta":
  78 + $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."' \n";
  79 + $stFiltro .= " AND ( pc.cod_estrutural like '4.%' ) ";
  80 + break;
51 81
52 - if ($rsRecordSet->getNumLinhas() > 0) {  
53 - while (!$rsRecordSet->eof()) { 82 + case "operacoesCredito":
  83 + $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."' \n";
  84 + $stFiltro .= " AND pc.cod_estrutural like '2.1.2.%' ";
  85 + break;
54 86
55 - $stJs .= " jQuery('#".$rsRecordSet->getCampo('tipo_arrecadacao')."').attr('checked', true); \n";  
56 - $stJs .= montaCombos($rsRecordSet->getCampo('cod_conta_receita'), $rsRecordSet->getCampo('tipo_arrecadacao'));  
57 - $stJs .= " jQuery('#stLancamentoCreditoReceita').val(".$rsRecordSet->getCampo('cod_conta')."); \n"; 87 + case "alienacaoBens":
  88 + $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."' \n";
  89 + $stFiltro .= " AND pc.cod_estrutural like '1.2.3.%' ";
  90 + break;
58 91
59 - $rsRecordSet->proximo(); 92 + case "dividaAtiva":
  93 + $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."' \n";
  94 + if(Sessao::getExercicio()>=2015)
  95 + $stFiltro .= " AND ( pc.cod_estrutural like '1.1.2.3.%' OR pc.cod_estrutural like '1.1.2.4.%' OR pc.cod_estrutural like '1.1.2.5.1%' )";
  96 + else
  97 + $stFiltro .= " AND ( pc.cod_estrutural like '1.1.2.3.%' OR pc.cod_estrutural like '1.1.2.4.%')";
  98 + break;
60 } 99 }
61 - } else {  
62 - $stJs .= " jQuery('#arrecadacaoDireta').attr('checked', true); \n";  
63 - $stJs .= montaCombos($_REQUEST['cod_conta_receita'], 'arrecadacaoDireta');  
64 - $stJs .= " jQuery('#stLancamentoCreditoReceita').val(''); \n";  
65 - }  
66 100
67 - return $stJs;  
68 -} 101 + $obTContabilidadePlanoConta->recuperaContaPlanoAnalitica($rsCredito, $stFiltro, $stOrdem);
69 102
70 -function montaCombos($inCodDespesa, $stValorRadio = "")  
71 -{  
72 - $obTContabilidadePlanoConta = new TContabilidadePlanoContaTCEMS;  
73 - $stOrdem = " ORDER BY pc.cod_estrutural ";  
74 - $stJs = "";  
75 -  
76 - switch ($stValorRadio) {  
77 - case "arrecadacaoDireta":  
78 - $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."'  
79 - AND ( pc.cod_estrutural like '4.%'  
80 - /*OR pc.cod_estrutural like '4.1.2.%'  
81 - OR pc.cod_estrutural like '4.1.3.%'  
82 - OR pc.cod_estrutural like '4.2.0.%'  
83 - OR pc.cod_estrutural like '4.2.1.%'  
84 - OR pc.cod_estrutural like '4.2.2.%'  
85 - OR pc.cod_estrutural like '4.2.3.%'  
86 - OR pc.cod_estrutural like '4.2.4.%'  
87 - OR pc.cod_estrutural like '4.3.0.%'  
88 - OR pc.cod_estrutural like '4.3.1.%'  
89 - OR pc.cod_estrutural like '4.3.2.%'  
90 - OR pc.cod_estrutural like '4.3.3.%'  
91 - OR pc.cod_estrutural like '4.4.0.%'  
92 - OR pc.cod_estrutural like '4.4.1.%'  
93 - OR pc.cod_estrutural like '4.4.2.%'  
94 - OR pc.cod_estrutural like '4.4.4.%'  
95 - OR pc.cod_estrutural like '4.4.5.%'  
96 - OR pc.cod_estrutural like '4.4.9.%'*/ ) ";  
97 - break;  
98 - case "operacoesCredito":  
99 - $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."'  
100 - AND pc.cod_estrutural like '2.1.2.%' ";  
101 - break;  
102 -  
103 - case "alienacaoBens":  
104 - $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."'  
105 - AND pc.cod_estrutural like '1.2.3.%' ";  
106 - break;  
107 -  
108 - case "dividaAtiva":  
109 - $stFiltro = " AND pc.exercicio = '".Sessao::getExercicio()."'  
110 - AND ( pc.cod_estrutural like '1.1.2.3.%' OR pc.cod_estrutural like '1.1.2.4.%' )";  
111 - break;  
112 - }  
113 -  
114 - $obTContabilidadePlanoConta->recuperaContaPlanoAnalitica($rsCredito, $stFiltro, $stOrdem);  
115 -  
116 - $stJs .= "jQuery('#stLancamentoCreditoReceita').find('option').remove().end().append('<option value=\'\'>Selecione</option>'); \n";  
117 -  
118 - while (!$rsCredito->eof()) {  
119 - $stJs .= "jQuery('#stLancamentoCreditoReceita').append('<option value=\'".$rsCredito->getCampo('cod_conta')."\'>".$rsCredito->getCampo('cod_estrutural')." - ".$rsCredito->getCampo('nom_conta')."</option>'); \n";  
120 - $rsCredito->proximo();  
121 - }  
122 -  
123 - return $stJs; 103 + $stJs .= "jQuery('#stLancamentoCreditoReceita').find('option').remove().end().append('<option value=\'\'>Selecione</option>'); \n";
  104 +
  105 + while (!$rsCredito->eof()) {
  106 + $stJs .= "jQuery('#stLancamentoCreditoReceita').append('<option value=\'".$rsCredito->getCampo('cod_conta')."\'>".$rsCredito->getCampo('cod_estrutural')." - ".$rsCredito->getCampo('nom_conta')."</option>'); \n";
  107 + $rsCredito->proximo();
  108 + }
  109 +
  110 + return $stJs;
124 } 111 }
125 112
126 $stJs = ''; 113 $stJs = '';
127 -switch ($_REQUEST['stCtrl']) { 114 +switch ($request->get('stCtrl')) {
128 case 'montaLancamentoReceita': 115 case 'montaLancamentoReceita':
129 $stJs .= montaLancamentoReceita(); 116 $stJs .= montaLancamentoReceita();
130 - break; 117 + break;
131 118
132 case 'carregaContasLancamento': 119 case 'carregaContasLancamento':
133 - $stJs .= montaCombos($_REQUEST['cod_conta_receita'], $_REQUEST['valor_radio']);  
134 - break;  
135 -  
136 - default:  
137 - # code...  
138 - break; 120 + $stJs .= montaCombos($request->get('cod_conta_receita'), $request->get('valor_radio'));
  121 + break;
139 } 122 }
140 123
141 echo ($stJs); 124 echo ($stJs);
gestaoFinanceira/fontes/PHP/contabilidade/instancias/encerramento/FLGerarRestosAPagar.php
  Diff comments   View file @842bba7
@@ -33,26 +33,14 @@ @@ -33,26 +33,14 @@
33 33
34 * @ignore 34 * @ignore
35 35
36 - $Revision: 30668 $  
37 - $Name$  
38 - $Autor: $  
39 - $Date: 2006-12-27 19:23:46 -0200 (Qua, 27 Dez 2006) $ 36 + $Id: FLGerarRestosAPagar.php 66167 2016-07-25 12:46:20Z fabio $
40 37
41 * Casos de uso: uc-02.02.31 38 * Casos de uso: uc-02.02.31
42 */ 39 */
43 40
44 -/*  
45 -$Log$  
46 -Revision 1.3 2006/12/27 21:23:31 cleisson  
47 -UC 02.02.31  
48 -  
49 -Revision 1.2 2006/07/05 20:50:57 cleisson  
50 -Adicionada tag Log aos arquivos  
51 -  
52 -*/  
53 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; 41 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
54 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; 42 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php';
55 -include_once ( CAM_GA_ADM_NEGOCIO."RConfiguracaoConfiguracao.class.php" ); 43 +include_once CAM_GA_ADM_NEGOCIO."RConfiguracaoConfiguracao.class.php";
56 include_once CAM_GF_ORC_COMPONENTES."ITextBoxSelectEntidadeGeral.class.php"; 44 include_once CAM_GF_ORC_COMPONENTES."ITextBoxSelectEntidadeGeral.class.php";
57 45
58 //Define o nome dos arquivos PHP 46 //Define o nome dos arquivos PHP
@@ -87,11 +75,15 @@ $obHdnEval-&gt;setName ( &quot;stEval&quot; ); @@ -87,11 +75,15 @@ $obHdnEval-&gt;setName ( &quot;stEval&quot; );
87 $obHdnEval->setValue ( $stEval ); 75 $obHdnEval->setValue ( $stEval );
88 76
89 $obRConfiguracao = new RConfiguracaoConfiguracao; 77 $obRConfiguracao = new RConfiguracaoConfiguracao;
90 -$arCodEntidade = array();  
91 78
92 if (Sessao::getExercicio() >= '2013') { 79 if (Sessao::getExercicio() >= '2013') {
93 - $obRConfiguracao->obTConfiguracao->recuperaTodos($rsConfiguracao, " WHERE parametro like 'virada_GF_entidade%' AND exercicio = '".Sessao::getExercicio()."'  
94 - AND cod_modulo = 10"); 80 + $arCodEntidade = array();
  81 +
  82 + $stFiltro = " WHERE parametro like 'virada_GF_entidade%'";
  83 + $stFiltro .= " AND exercicio = '".Sessao::getExercicio()."'";
  84 + $stFiltro .= " AND cod_modulo = 10";
  85 +
  86 + $obRConfiguracao->obTConfiguracao->recuperaTodos($rsConfiguracao, $stFiltro);
95 foreach ($rsConfiguracao->arElementos as $index => $value) { 87 foreach ($rsConfiguracao->arElementos as $index => $value) {
96 if ($value['valor'] == 'T') { 88 if ($value['valor'] == 'T') {
97 $arCodEntidade[] = substr($value['parametro'],19); 89 $arCodEntidade[] = substr($value['parametro'],19);
@@ -106,14 +98,12 @@ if (Sessao::getExercicio() &gt;= &#39;2013&#39;) { @@ -106,14 +98,12 @@ if (Sessao::getExercicio() &gt;= &#39;2013&#39;) {
106 $obISelectEntidadeUsuarioCredito->obTextBox->setName ( "inCodEntidadeCredito" ); 98 $obISelectEntidadeUsuarioCredito->obTextBox->setName ( "inCodEntidadeCredito" );
107 $obISelectEntidadeUsuarioCredito->obSelect->setName ( "stNomEntidadeCredito" ); 99 $obISelectEntidadeUsuarioCredito->obSelect->setName ( "stNomEntidadeCredito" );
108 $obISelectEntidadeUsuarioCredito->obSelect->setId ( "stNomEntidadeCredito" ); 100 $obISelectEntidadeUsuarioCredito->obSelect->setId ( "stNomEntidadeCredito" );
109 - $obISelectEntidadeUsuarioCredito->obTextBox->setNull ( true );  
110 - $obISelectEntidadeUsuarioCredito->obSelect->setNull ( true );  
111 - $obISelectEntidadeUsuarioCredito->setNull ( true );  
112 - $obISelectEntidadeUsuarioCredito->setObrigatorioBarra ( true ); 101 + $obISelectEntidadeUsuarioCredito->setNull ( false );
113 $obISelectEntidadeUsuarioCredito->obSelect->obEvento->setOnChange("montaParametrosGET('verificaEntidade','inCodEntidadeCredito');"); 102 $obISelectEntidadeUsuarioCredito->obSelect->obEvento->setOnChange("montaParametrosGET('verificaEntidade','inCodEntidadeCredito');");
114 103
115 $stObs = "Este processo é lento devido aos cálculos de restos a pagar.<BR>Recomenda-se que o mesmo seja executado após o término do expediente."; 104 $stObs = "Este processo é lento devido aos cálculos de restos a pagar.<BR>Recomenda-se que o mesmo seja executado após o término do expediente.";
116 105
  106 + $jsOnLoad = "jq('#Ok').attr('disabled',true);";
117 } else { 107 } else {
118 $obRConfiguracao = new RConfiguracaoConfiguracao; 108 $obRConfiguracao = new RConfiguracaoConfiguracao;
119 $obRConfiguracao->setParametro('virada_GF'); 109 $obRConfiguracao->setParametro('virada_GF');
gestaoFinanceira/fontes/PHP/contabilidade/instancias/encerramento/OCGerarRestosAPagar.php
  Diff comments   View file @842bba7
@@ -33,10 +33,7 @@ @@ -33,10 +33,7 @@
33 33
34 * @ignore 34 * @ignore
35 35
36 - $Revision: 30668 $  
37 - $Name$  
38 - $Autor: $  
39 - $Date: 2006-12-27 19:23:46 -0200 (Qua, 27 Dez 2006) $ 36 + $Id: OCGerarRestosAPagar.php 66167 2016-07-25 12:46:20Z fabio $
40 37
41 * Casos de uso: uc-02.02.31 38 * Casos de uso: uc-02.02.31
42 */ 39 */
@@ -44,24 +41,31 @@ @@ -44,24 +41,31 @@
44 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; 41 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
45 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; 42 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
46 43
47 -function verificaEntidades($arCodEntidade) 44 +function verificaEntidades($arCodEntidade, $inCodEntidadeCredito)
48 { 45 {
  46 + $boRestoGerado = FALSE;
49 foreach ($arCodEntidade as $array) { 47 foreach ($arCodEntidade as $array) {
50 - if ($array == $_REQUEST['inCodEntidadeCredito']) {  
51 - $stJs .= "jq('#lblObs').html('Este processo já foi executado! Se deseja prosseguir faça a Anulação de Restos à pagar primeiro!');\n  
52 - jq('#Ok').attr('disabled',true);\n";  
53 - } else {  
54 - $stJs .= "jq('#lblObs').html('Este processo é lento devido aos cálculos de restos a pagar.<BR>Recomenda-se que o mesmo seja executado após o término do expediente.');\n  
55 - jq('#Ok').attr('disabled',false);\n"; 48 + if ($array == $inCodEntidadeCredito) {
  49 + $stJs = "jq('#lblObs').html('Este processo já foi executado! Se deseja prosseguir faça a Anulação de Restos à pagar primeiro!');\n";
  50 + $stJs .= "jq('#Ok').attr('disabled',true);\n";
  51 +
  52 + $boRestoGerado = TRUE;
  53 + break;
56 } 54 }
57 } 55 }
58 56
  57 + if(!$boRestoGerado){
  58 + $stJs = "jq('#lblObs').html('Este processo é lento devido aos cálculos de restos a pagar.<BR>Recomenda-se que o mesmo seja executado após o término do expediente.');\n";
  59 + if(!empty($inCodEntidadeCredito))
  60 + $stJs .= "jq('#Ok').attr('disabled',false);\n";
  61 + }
  62 +
59 return $stJs; 63 return $stJs;
60 } 64 }
61 65
62 -switch ($_REQUEST['stCtrl']) { 66 +switch ($request->get('stCtrl')) {
63 case 'verificaEntidade': 67 case 'verificaEntidade':
64 - $stJs = verificaEntidades(Sessao::read('arCodEntidade')); 68 + $stJs = verificaEntidades(Sessao::read('arCodEntidade'), $request->get('inCodEntidadeCredito'));
65 echo $stJs; 69 echo $stJs;
66 70
67 break; 71 break;
gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemostrativoFluxoCaixa.php
  Diff comments   View file @842bba7
@@ -45,6 +45,7 @@ $pgProc = &quot;PR&quot;.$stPrograma.&quot;.php&quot;; @@ -45,6 +45,7 @@ $pgProc = &quot;PR&quot;.$stPrograma.&quot;.php&quot;;
45 $pgJS = "JS".$stPrograma.".js"; 45 $pgJS = "JS".$stPrograma.".js";
46 46
47 //Define Birt 47 //Define Birt
  48 +//relatorioFluxoCaixa.rptdesign
48 $preview = new PreviewBirt(2,9,13); 49 $preview = new PreviewBirt(2,9,13);
49 $preview->setTitulo('Relatorio Demostrativo de Fluxo Caixa'); 50 $preview->setTitulo('Relatorio Demostrativo de Fluxo Caixa');
50 $preview->setVersaoBirt('2.5.0'); 51 $preview->setVersaoBirt('2.5.0');
gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/FEmpenhoSituacaoAutorizacaoEmpenho.class.php
  Diff comments   View file @842bba7
@@ -147,6 +147,7 @@ class FEmpenhoSituacaoAutorizacaoEmpenho extends Persistente @@ -147,6 +147,7 @@ class FEmpenhoSituacaoAutorizacaoEmpenho extends Persistente
147 , retorno.liquidado 147 , retorno.liquidado
148 , retorno.pago 148 , retorno.pago
149 , retorno.empenhadoapagar 149 , retorno.empenhadoapagar
  150 + , retorno.emissao
150 ORDER BY retorno.autorizacao 151 ORDER BY retorno.autorizacao
151 "; 152 ";
152 return $stSql; 153 return $stSql;
gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Mapeamento 34 * @subpackage Mapeamento
35 35
36 - * $Id: TEmpenhoEmpenho.class.php 65369 2016-05-17 11:50:21Z fabio $ 36 + * $Id: TEmpenhoEmpenho.class.php 66022 2016-07-07 20:23:42Z fabio $
37 37
38 * Casos de uso: uc-02.01.23 38 * Casos de uso: uc-02.01.23
39 uc-02.03.03 39 uc-02.03.03
@@ -4789,7 +4789,7 @@ select empenho.cod_entidade @@ -4789,7 +4789,7 @@ select empenho.cod_entidade
4789 ,substring(conta_despesa.cod_estrutural from 9 for 2) as cod_modalidade 4789 ,substring(conta_despesa.cod_estrutural from 9 for 2) as cod_modalidade
4790 ,substring(conta_despesa.cod_estrutural from 12 for 2) as cod_elemento 4790 ,substring(conta_despesa.cod_estrutural from 12 for 2) as cod_elemento
4791 ,recurso.cod_fonte 4791 ,recurso.cod_fonte
4792 - ,substring(despesa.num_pao from 1 for 2) as cod_tipo_acao 4792 + ,substring(despesa.num_pao::VARCHAR from 1 for 2) as cod_tipo_acao
4793 ,despesa.num_pao 4793 ,despesa.num_pao
4794 ,total_empenho.vl_total 4794 ,total_empenho.vl_total
4795 ,historico.nom_historico 4795 ,historico.nom_historico
gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoOrdemPagamento.class.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Mapeamento 34 * @subpackage Mapeamento
35 35
36 - $Id: TEmpenhoOrdemPagamento.class.php 65514 2016-05-30 13:31:14Z fabio $ 36 + $Id: TEmpenhoOrdemPagamento.class.php 66022 2016-07-07 20:23:42Z fabio $
37 37
38 * Casos de uso: uc-02.03.12,uc-02.03.16,uc-02.03.05,uc-02.04.05,uc-02.03.28 38 * Casos de uso: uc-02.03.12,uc-02.03.16,uc-02.03.05,uc-02.04.05,uc-02.03.28
39 */ 39 */
@@ -2618,6 +2618,7 @@ class TEmpenhoOrdemPagamento extends Persistente @@ -2618,6 +2618,7 @@ class TEmpenhoOrdemPagamento extends Persistente
2618 $stSql .=" ,aopr.exercicio \n"; 2618 $stSql .=" ,aopr.exercicio \n";
2619 $stSql .=" ,aopr.cod_ordem \n"; 2619 $stSql .=" ,aopr.cod_ordem \n";
2620 $stSql .=" ,aopr.cod_entidade \n"; 2620 $stSql .=" ,aopr.cod_entidade \n";
  2621 + $stSql .=" ,aopr.sequencial \n";
2621 $stSql .=" FROM tesouraria.arrecadacao_ordem_pagamento_retencao as aopr \n"; 2622 $stSql .=" FROM tesouraria.arrecadacao_ordem_pagamento_retencao as aopr \n";
2622 $stSql .=" WHERE aopr.cod_entidade = ".$this->getDado('cod_entidade')." \n"; 2623 $stSql .=" WHERE aopr.cod_entidade = ".$this->getDado('cod_entidade')." \n";
2623 $stSql .=" AND aopr.cod_ordem = ".$this->getDado('cod_ordem')." \n"; 2624 $stSql .=" AND aopr.cod_ordem = ".$this->getDado('cod_ordem')." \n";
@@ -2635,6 +2636,7 @@ class TEmpenhoOrdemPagamento extends Persistente @@ -2635,6 +2636,7 @@ class TEmpenhoOrdemPagamento extends Persistente
2635 $stSql .=" AND arrec.exercicio = opr.exercicio \n"; 2636 $stSql .=" AND arrec.exercicio = opr.exercicio \n";
2636 $stSql .=" AND arrec.cod_ordem = opr.cod_ordem \n"; 2637 $stSql .=" AND arrec.cod_ordem = opr.cod_ordem \n";
2637 $stSql .=" AND arrec.cod_entidade = opr.cod_entidade \n"; 2638 $stSql .=" AND arrec.cod_entidade = opr.cod_entidade \n";
  2639 + $stSql .=" AND arrec.sequencial = opr.sequencial \n";
2638 $stSql .=" ) \n"; 2640 $stSql .=" ) \n";
2639 $stSql .=" LEFT JOIN ( SELECT topr.cod_lote \n"; 2641 $stSql .=" LEFT JOIN ( SELECT topr.cod_lote \n";
2640 $stSql .=" ,topr.tipo \n"; 2642 $stSql .=" ,topr.tipo \n";
gestaoFinanceira/fontes/PHP/empenho/classes/negocio/REmpenhoEmpenho.class.php
  Diff comments   View file @842bba7
@@ -35,7 +35,7 @@ @@ -35,7 +35,7 @@
35 * @package URBEM 35 * @package URBEM
36 * @subpackage Regra 36 * @subpackage Regra
37 37
38 - $Id: REmpenhoEmpenho.class.php 65514 2016-05-30 13:31:14Z fabio $ 38 + $Id: REmpenhoEmpenho.class.php 66022 2016-07-07 20:23:42Z fabio $
39 39
40 * Casos de uso: uc-02.01.23 40 * Casos de uso: uc-02.01.23
41 uc-02.01.08 41 uc-02.01.08
@@ -1030,31 +1030,33 @@ function emitirEmpenhoDiverso($boTransacao = &quot;&quot;) @@ -1030,31 +1030,33 @@ function emitirEmpenhoDiverso($boTransacao = &quot;&quot;)
1030 */ 1030 */
1031 function anular($boTransacao = "") 1031 function anular($boTransacao = "")
1032 { 1032 {
1033 - include_once ( CAM_GF_EMP_MAPEAMENTO ."TEmpenhoEmpenho.class.php" );  
1034 - include_once ( CAM_GF_EMP_MAPEAMENTO ."TEmpenhoEmpenhoAnulado.class.php" );  
1035 - include_once ( CAM_GF_EMP_MAPEAMENTO ."TEmpenhoEmpenhoAnuladoItem.class.php" );  
1036 - include_once ( CAM_GF_EMP_MAPEAMENTO ."FEmpenhoEmpenhoEmissaoAnulacao.class.php" );  
1037 - include_once ( CAM_GF_EMP_MAPEAMENTO ."FEmpenhoEmpenhoEmissaoAnulacaoTCEMS.class.php");  
1038 - include_once ( CAM_GF_EMP_MAPEAMENTO ."FEmpenhoEmpenhoEstornoRestosAPagar.class.php" );  
1039 - include_once ( CAM_GF_CONT_MAPEAMENTO ."TContabilidadeEmpenhamento.class.php" );  
1040 - include_once ( CAM_GF_CONT_MAPEAMENTO ."TContabilidadeLancamentoEmpenho.class.php" );  
1041 - $obTContabilidadeLancamentoEmpenho = new TContabilidadeLancamentoEmpenho;  
1042 - $obTContabilidadeEmpenhamento = new TContabilidadeEmpenhamento;  
1043 - $obFEmpenhoEmpenhoEstornoRestosAPagar = new FEmpenhoEmpenhoEstornoRestosAPagar;  
1044 - $obTEmpenhoEmpenhoAnuladoItem = new TEmpenhoEmpenhoAnuladoItem;  
1045 - $obTEmpenhoEmpenhoAnulado = new TEmpenhoEmpenhoAnulado;  
1046 - $obTEmpenhoEmpenho = new TEmpenhoEmpenho; 1033 + include_once CAM_GF_EMP_MAPEAMENTO."TEmpenhoEmpenho.class.php";
  1034 + include_once CAM_GF_EMP_MAPEAMENTO."TEmpenhoEmpenhoAnulado.class.php";
  1035 + include_once CAM_GF_EMP_MAPEAMENTO."TEmpenhoEmpenhoAnuladoItem.class.php";
  1036 + include_once CAM_GF_EMP_MAPEAMENTO."FEmpenhoEmpenhoEmissaoAnulacao.class.php";
  1037 + include_once CAM_GF_EMP_MAPEAMENTO."FEmpenhoEmpenhoEmissaoAnulacaoTCEMS.class.php";
  1038 + include_once CAM_GF_EMP_MAPEAMENTO."FEmpenhoEmpenhoEstornoRestosAPagar.class.php";
  1039 + include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeEmpenhamento.class.php";
  1040 + include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeLancamentoEmpenho.class.php";
  1041 + include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeLancamentoEmpenhoAnulado.class.php";
  1042 +
  1043 + $obTContabilidadeLancamentoEmpenhoAnulado = new TContabilidadeLancamentoEmpenhoAnulado;
  1044 + $obTContabilidadeLancamentoEmpenho = new TContabilidadeLancamentoEmpenho;
  1045 + $obTContabilidadeEmpenhamento = new TContabilidadeEmpenhamento;
  1046 + $obFEmpenhoEmpenhoEstornoRestosAPagar = new FEmpenhoEmpenhoEstornoRestosAPagar;
  1047 + $obTEmpenhoEmpenhoAnuladoItem = new TEmpenhoEmpenhoAnuladoItem;
  1048 + $obTEmpenhoEmpenhoAnulado = new TEmpenhoEmpenhoAnulado;
  1049 + $obTEmpenhoEmpenho = new TEmpenhoEmpenho;
1047 1050
1048 $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); 1051 $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao );
1049 1052
1050 - if (Sessao::getExercicio() > '2012') {  
1051 - $obFEmpenhoEmpenhoEmissaoAnulacao = new FEmpenhoEmpenhoEmissaoAnulacaoTCEMS;  
1052 - } else {  
1053 - $obFEmpenhoEmpenhoEmissaoAnulacao = new FEmpenhoEmpenhoEmissaoAnulacao;  
1054 - } 1053 + if (Sessao::getExercicio() > '2012')
  1054 + $obFEmpenhoEmpenhoEmissaoAnulacao = new FEmpenhoEmpenhoEmissaoAnulacaoTCEMS;
  1055 + else
  1056 + $obFEmpenhoEmpenhoEmissaoAnulacao = new FEmpenhoEmpenhoEmissaoAnulacao;
1055 1057
1056 if ( !$obErro->ocorreu() ) { 1058 if ( !$obErro->ocorreu() ) {
1057 - if ( !$obErro->ocorreu() ) { 1059 + if ( !$obErro->ocorreu() ) {
1058 if (SistemaLegado::comparaDatas($this->getDtEmpenho(),$this->getDtAnulacao())) { 1060 if (SistemaLegado::comparaDatas($this->getDtEmpenho(),$this->getDtAnulacao())) {
1059 $obErro->setDescricao( "A data da anulação deve ser posterior ou igual à data do empenho." ); 1061 $obErro->setDescricao( "A data da anulação deve ser posterior ou igual à data do empenho." );
1060 } 1062 }
@@ -1146,7 +1148,7 @@ function anular($boTransacao = &quot;&quot;) @@ -1146,7 +1148,7 @@ function anular($boTransacao = &quot;&quot;)
1146 } 1148 }
1147 } 1149 }
1148 } 1150 }
1149 - 1151 +
1150 if ( !$obErro->ocorreu() ) { 1152 if ( !$obErro->ocorreu() ) {
1151 $obTContabilidadeLancamentoEmpenho->setDado( 'cod_lote' , $inCodLote ); 1153 $obTContabilidadeLancamentoEmpenho->setDado( 'cod_lote' , $inCodLote );
1152 $obTContabilidadeLancamentoEmpenho->setDado( 'tipo' , 'E' ); 1154 $obTContabilidadeLancamentoEmpenho->setDado( 'tipo' , 'E' );
@@ -1168,6 +1170,18 @@ function anular($boTransacao = &quot;&quot;) @@ -1168,6 +1170,18 @@ function anular($boTransacao = &quot;&quot;)
1168 } 1170 }
1169 1171
1170 if ( !$obErro->ocorreu() ) { 1172 if ( !$obErro->ocorreu() ) {
  1173 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'exercicio' , $this->stExercicioEmissao );
  1174 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'cod_lote' , $inCodLote );
  1175 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'tipo' , 'E' );
  1176 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'sequencia' , $inSequencia );
  1177 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'cod_entidade' , $this->obROrcamentoEntidade->getCodigoEntidade() );
  1178 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'exercicio_anulacao' , $this->stExercicio );
  1179 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'cod_empenho_anulacao' , $this->inCodEmpenho );
  1180 + $obTContabilidadeLancamentoEmpenhoAnulado->setDado( 'timestamp_anulacao' , $stDataAnulacao );
  1181 + $obErro = $obTContabilidadeLancamentoEmpenhoAnulado->inclusao( $boTransacao );
  1182 + }
  1183 +
  1184 + if ( !$obErro->ocorreu() ) {
1171 $this->obREmpenhoAutorizacaoEmpenho->setCodPreEmpenho($this->inCodPreEmpenho ); 1185 $this->obREmpenhoAutorizacaoEmpenho->setCodPreEmpenho($this->inCodPreEmpenho );
1172 $this->obREmpenhoAutorizacaoEmpenho->obROrcamentoEntidade->setCodigoEntidade($this->obROrcamentoEntidade->getCodigoEntidade() ); 1186 $this->obREmpenhoAutorizacaoEmpenho->obROrcamentoEntidade->setCodigoEntidade($this->obROrcamentoEntidade->getCodigoEntidade() );
1173 $this->obREmpenhoAutorizacaoEmpenho->setExercicio($this->stExercicio) ; 1187 $this->obREmpenhoAutorizacaoEmpenho->setExercicio($this->stExercicio) ;
gestaoFinanceira/fontes/PHP/empenho/instancias/autorizacao/OCManterAutorizacao.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 33
34 * @ignore 34 * @ignore
35 35
36 - $Id: OCManterAutorizacao.php 65752 2016-06-14 19:27:13Z fabio $ 36 + $Id: OCManterAutorizacao.php 66167 2016-07-25 12:46:20Z fabio $
37 37
38 * Casos de uso: uc-02.03.02 38 * Casos de uso: uc-02.03.02
39 uc-02.01.08 39 uc-02.01.08
@@ -901,10 +901,11 @@ switch ($stCtrl) { @@ -901,10 +901,11 @@ switch ($stCtrl) {
901 $obTAdministracaoConfiguracaoEntidade->setDado("parametro" , "data_fixa_autorizacao"); 901 $obTAdministracaoConfiguracaoEntidade->setDado("parametro" , "data_fixa_autorizacao");
902 $obTAdministracaoConfiguracaoEntidade->recuperaPorChave($rsConfiguracao); 902 $obTAdministracaoConfiguracaoEntidade->recuperaPorChave($rsConfiguracao);
903 $stDtFixaAutorizacao = trim($rsConfiguracao->getCampo('valor')); 903 $stDtFixaAutorizacao = trim($rsConfiguracao->getCampo('valor'));
  904 + $js .= "jq('#stDtAutorizacao').attr('readonly', false);";
904 905
905 if(!empty($stDtFixaAutorizacao)){ 906 if(!empty($stDtFixaAutorizacao)){
906 $js .= "jq('#stDtAutorizacao').val('".$stDtFixaAutorizacao."');"; 907 $js .= "jq('#stDtAutorizacao').val('".$stDtFixaAutorizacao."');";
907 - $js .= LiberaDataAutorizacao('false'); 908 + $js .= "jq('#stDtAutorizacao').attr('readonly', true);";
908 }else{ 909 }else{
909 $obREmpenhoAutorizacaoEmpenho->obROrcamentoEntidade->setCodigoEntidade($request->get('inCodEntidade')); 910 $obREmpenhoAutorizacaoEmpenho->obROrcamentoEntidade->setCodigoEntidade($request->get('inCodEntidade'));
910 $obREmpenhoAutorizacaoEmpenho->setExercicio(Sessao::getExercicio()); 911 $obREmpenhoAutorizacaoEmpenho->setExercicio(Sessao::getExercicio());
gestaoFinanceira/fontes/PHP/ldo/classes/excecao/RLDOExcecao.class.php
  Diff comments   View file @842bba7
@@ -42,9 +42,9 @@ class RLDOExcecao extends LDOExcecao @@ -42,9 +42,9 @@ class RLDOExcecao extends LDOExcecao
42 parent::__construct($stMensagem, $arAnotacoes); 42 parent::__construct($stMensagem, $arAnotacoes);
43 } 43 }
44 44
45 - public function recuperarMensagem() 45 + public function recuperarMensagem($stMsg = 'Negócio')
46 { 46 {
47 - return parent::recuperarMensagem('Negócio'); 47 + return parent::recuperarMensagem($stMsg);
48 } 48 }
49 } 49 }
50 50
gestaoFinanceira/fontes/PHP/ldo/classes/excecao/VLDOExcecao.class.php
  Diff comments   View file @842bba7
@@ -42,9 +42,9 @@ class VLDOExcecao extends LDOExcecao @@ -42,9 +42,9 @@ class VLDOExcecao extends LDOExcecao
42 parent::__construct($stMensagem, $arAnotacoes); 42 parent::__construct($stMensagem, $arAnotacoes);
43 } 43 }
44 44
45 - public function recuperarMensagem() 45 + public function recuperarMensagem($stMsg = 'Visão')
46 { 46 {
47 - return parent::recuperarMensagem('Visão'); 47 + return parent::recuperarMensagem($stMsg);
48 } 48 }
49 } 49 }
50 50
gestaoFinanceira/fontes/PHP/ldo/classes/negocio/RLDOManterAcao.class.php
  Diff comments   View file @842bba7
@@ -452,7 +452,7 @@ class RLDOManterAcao extends RLDOPadrao implements IRLDOPadrao @@ -452,7 +452,7 @@ class RLDOManterAcao extends RLDOPadrao implements IRLDOPadrao
452 $stFiltro .= " AND unidade.exercicio = '" . Sessao::getExercicio() . "'"; 452 $stFiltro .= " AND unidade.exercicio = '" . Sessao::getExercicio() . "'";
453 $stOrdem = ''; 453 $stOrdem = '';
454 454
455 - $obErro = $this->obTOrcamentoUnidade->recuperaRelacionamento(&$rsOrcamentario, $stFiltro, $stOrdem, $obTransacao); 455 + $obErro = $this->obTOrcamentoUnidade->recuperaRelacionamento($rsOrcamentario, $stFiltro, $stOrdem, $obTransacao);
456 456
457 return $rsOrcamentario; 457 return $rsOrcamentario;
458 } 458 }
gestaoFinanceira/fontes/PHP/ldo/classes/negocio/RLDOManterConfiguracao.class.php
  Diff comments   View file @842bba7
@@ -67,7 +67,7 @@ class RLDOManterConfiguracao extends RLDOPadrao implements IRLDOPadrao @@ -67,7 +67,7 @@ class RLDOManterConfiguracao extends RLDOPadrao implements IRLDOPadrao
67 return $rsRecordSet; 67 return $rsRecordSet;
68 } 68 }
69 69
70 - public static function recuperarInstancia() 70 + public static function recuperarInstancia($ob = NULL)
71 { 71 {
72 return parent::recuperarInstancia(__CLASS__); 72 return parent::recuperarInstancia(__CLASS__);
73 } 73 }
gestaoFinanceira/fontes/PHP/ldo/classes/negocio/RLDOManterRenunciaReceita.class.php
  Diff comments   View file @842bba7
@@ -58,7 +58,7 @@ class RLDOManterRenunciaReceita extends RLDOPadrao implements IRLDOPadrao @@ -58,7 +58,7 @@ class RLDOManterRenunciaReceita extends RLDOPadrao implements IRLDOPadrao
58 * 58 *
59 * @return RLDOManterRenunciaReceita 59 * @return RLDOManterRenunciaReceita
60 */ 60 */
61 - public static function recuperarInstancia() 61 + public static function recuperarInstancia($ob = NULL)
62 { 62 {
63 return parent::recuperarInstancia(__CLASS__); 63 return parent::recuperarInstancia(__CLASS__);
64 } 64 }
gestaoFinanceira/fontes/PHP/ldo/classes/negocio/RLDOManterTipoIndicador.class.php
  Diff comments   View file @842bba7
@@ -57,7 +57,7 @@ class RLDOManterTipoIndicador extends RLDOPadrao implements IRLDOPadrao @@ -57,7 +57,7 @@ class RLDOManterTipoIndicador extends RLDOPadrao implements IRLDOPadrao
57 * Recupera a instância da classe 57 * Recupera a instância da classe
58 * @return void 58 * @return void
59 */ 59 */
60 - public static function recuperarInstancia() 60 + public static function recuperarInstancia($ob = NULL)
61 { 61 {
62 return parent::recuperarInstancia(__CLASS__); 62 return parent::recuperarInstancia(__CLASS__);
63 } 63 }
gestaoFinanceira/fontes/PHP/ldo/classes/visao/VLDOEvolucaoDivida.class.php
  Diff comments   View file @842bba7
@@ -82,7 +82,7 @@ class VLDOEvolucaoDivida @@ -82,7 +82,7 @@ class VLDOEvolucaoDivida
82 //verifica se o ldo ja esta cadastrado 82 //verifica se o ldo ja esta cadastrado
83 $this->obModel->obRLDOLDO->listar($rsLDO); 83 $this->obModel->obRLDOLDO->listar($rsLDO);
84 if ($rsLDO->getNumLinhas() <= 0) { 84 if ($rsLDO->getNumLinhas() <= 0) {
85 - $this->obModel->obRLDOLDO->incluir(&$boTransacao); 85 + $this->obModel->obRLDOLDO->incluir($boTransacao);
86 } 86 }
87 87
88 $arExercicio[1] = $arParam['inAno'] - 3; 88 $arExercicio[1] = $arParam['inAno'] - 3;
gestaoFinanceira/fontes/PHP/ldo/classes/visao/VLDOManterConfiguracao.class.php
  Diff comments   View file @842bba7
@@ -57,7 +57,7 @@ class VLDOManterConfiguracao extends VLDOPadrao implements IVLDOPadrao @@ -57,7 +57,7 @@ class VLDOManterConfiguracao extends VLDOPadrao implements IVLDOPadrao
57 * Recupera a instância da classe 57 * Recupera a instância da classe
58 * @return void 58 * @return void
59 */ 59 */
60 - public static function recuperarInstancia() 60 + public static function recuperarInstancia($ob = NULL)
61 { 61 {
62 return parent::recuperarInstancia(__CLASS__); 62 return parent::recuperarInstancia(__CLASS__);
63 } 63 }
gestaoFinanceira/fontes/PHP/ldo/classes/visao/VLDOManterRenunciaReceita.class.php
  Diff comments   View file @842bba7
@@ -44,7 +44,7 @@ class VLDOManterRenunciaReceita extends VLDOPadrao implements IVLDOPadrao @@ -44,7 +44,7 @@ class VLDOManterRenunciaReceita extends VLDOPadrao implements IVLDOPadrao
44 * 44 *
45 * @return VLDOManterRenunciaReceita 45 * @return VLDOManterRenunciaReceita
46 */ 46 */
47 - public static function recuperarInstancia() 47 + public static function recuperarInstancia($ob = NULL)
48 { 48 {
49 return parent::recuperarInstancia(__CLASS__); 49 return parent::recuperarInstancia(__CLASS__);
50 } 50 }
gestaoFinanceira/fontes/PHP/ldo/classes/visao/VLDOManterTipoIndicador.class.php
  Diff comments   View file @842bba7
@@ -45,7 +45,7 @@ class VLDOManterTipoIndicador extends VLDOPadrao implements IVLDOPadrao @@ -45,7 +45,7 @@ class VLDOManterTipoIndicador extends VLDOPadrao implements IVLDOPadrao
45 * Recupera a instância da classe 45 * Recupera a instância da classe
46 * @return void 46 * @return void
47 */ 47 */
48 - public static function recuperarInstancia() 48 + public static function recuperarInstancia($ob = NULL)
49 { 49 {
50 return parent::recuperarInstancia(__CLASS__); 50 return parent::recuperarInstancia(__CLASS__);
51 } 51 }
gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php
  Diff comments   View file @842bba7
@@ -33,12 +33,7 @@ @@ -33,12 +33,7 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Mapeamento 34 * @subpackage Mapeamento
35 35
36 - $Id: TOrcamentoDespesa.class.php 64993 2016-04-18 17:39:57Z fabio $  
37 -  
38 - $Revision: 30668 $  
39 - $Name$  
40 - $Author: diogo.zarpelon $  
41 - $Date: 2008-03-28 10:07:48 -0300 (Sex, 28 Mar 2008) $ 36 + $Id: TOrcamentoDespesa.class.php 66167 2016-07-25 12:46:20Z fabio $
42 37
43 * Casos de uso: uc-02.01.06 38 * Casos de uso: uc-02.01.06
44 uc-02.01.26 39 uc-02.01.26
@@ -383,10 +378,17 @@ public function montaRecuperaDotacao() @@ -383,10 +378,17 @@ public function montaRecuperaDotacao()
383 $stSql .= " SSUP.cod_suplementacao = S.cod_suplementacao AND \n"; 378 $stSql .= " SSUP.cod_suplementacao = S.cod_suplementacao AND \n";
384 $stSql .= " SSUP.exercicio = S.exercicio \n"; 379 $stSql .= " SSUP.exercicio = S.exercicio \n";
385 $stSql .= " \n"; 380 $stSql .= " \n";
  381 + $stSql .= " AND S.cod_tipo <> 16 \n";
  382 + $stSql .= " AND ( select sa.cod_suplementacao \n";
  383 + $stSql .= " from orcamento.suplementacao_anulada as sa \n";
  384 + $stSql .= " where sa.exercicio = S.exercicio \n";
  385 + $stSql .= " and sa.cod_suplementacao = S.cod_suplementacao \n";
  386 + $stSql .= " ) IS NULL \n";
  387 + $stSql .= " \n";
386 388
387 if($this->getDado("stDataInicial")) 389 if($this->getDado("stDataInicial"))
388 $stSql .= " AND S.dt_suplementacao BETWEEN to_date('".$this->getDado("stDataInicial")."'::varchar,'dd/mm/yyyy') AND to_date('".$this->getDado("stDataFinal")."'::varchar,'dd/mm/yyyy') \n"; 390 $stSql .= " AND S.dt_suplementacao BETWEEN to_date('".$this->getDado("stDataInicial")."'::varchar,'dd/mm/yyyy') AND to_date('".$this->getDado("stDataFinal")."'::varchar,'dd/mm/yyyy') \n";
389 - $stSql .= " GROUP BY SSUP.cod_despesa, SSUP.exercicio \n"; 391 + $stSql .= " GROUP BY SSUP.cod_despesa, SSUP.exercicio \n";
390 $stSql .= " ) as SS ON \n"; 392 $stSql .= " ) as SS ON \n";
391 $stSql .= " D.cod_despesa = SS.cod_despesa AND \n"; 393 $stSql .= " D.cod_despesa = SS.cod_despesa AND \n";
392 $stSql .= " D.exercicio = SS.exercicio \n"; 394 $stSql .= " D.exercicio = SS.exercicio \n";
@@ -402,10 +404,17 @@ public function montaRecuperaDotacao() @@ -402,10 +404,17 @@ public function montaRecuperaDotacao()
402 $stSql .= " SRED.cod_suplementacao = S.cod_suplementacao AND \n"; 404 $stSql .= " SRED.cod_suplementacao = S.cod_suplementacao AND \n";
403 $stSql .= " SRED.exercicio = S.exercicio \n"; 405 $stSql .= " SRED.exercicio = S.exercicio \n";
404 $stSql .= " \n"; 406 $stSql .= " \n";
  407 + $stSql .= " AND S.cod_tipo <> 16 \n";
  408 + $stSql .= " AND ( select sa.cod_suplementacao \n";
  409 + $stSql .= " from orcamento.suplementacao_anulada as sa \n";
  410 + $stSql .= " where sa.exercicio = S.exercicio \n";
  411 + $stSql .= " and sa.cod_suplementacao = S.cod_suplementacao \n";
  412 + $stSql .= " ) IS NULL \n";
  413 + $stSql .= " \n";
405 414
406 if($this->getDado("stDataInicial")) 415 if($this->getDado("stDataInicial"))
407 $stSql .= " AND S.dt_suplementacao BETWEEN to_date('".$this->getDado("stDataInicial")."'::varchar,'dd/mm/yyyy') AND to_date('".$this->getDado("stDataFinal")."'::varchar,'dd/mm/yyyy') \n"; 416 $stSql .= " AND S.dt_suplementacao BETWEEN to_date('".$this->getDado("stDataInicial")."'::varchar,'dd/mm/yyyy') AND to_date('".$this->getDado("stDataFinal")."'::varchar,'dd/mm/yyyy') \n";
408 - $stSql .= " GROUP BY SRED.cod_despesa, SRED.exercicio \n"; 417 + $stSql .= " GROUP BY SRED.cod_despesa, SRED.exercicio \n";
409 418
410 $stSql .= " ) as SR ON \n"; 419 $stSql .= " ) as SR ON \n";
411 $stSql .= " D.cod_despesa = SR.cod_despesa AND \n"; 420 $stSql .= " D.cod_despesa = SR.cod_despesa AND \n";
@@ -2216,7 +2225,7 @@ public function montaRecuperaProjetoAtividade() @@ -2216,7 +2225,7 @@ public function montaRecuperaProjetoAtividade()
2216 select despesa.exercicio 2225 select despesa.exercicio
2217 , despesa.cod_funcao 2226 , despesa.cod_funcao
2218 , despesa.cod_subfuncao 2227 , despesa.cod_subfuncao
2219 - , substr(despesa.num_pao, 1, 2) as tipo_acao 2228 + , substr(despesa.num_pao::VARCHAR, 1, 2) as tipo_acao
2220 , despesa.num_pao 2229 , despesa.num_pao
2221 , pao.nom_pao 2230 , pao.nom_pao
2222 from orcamento.despesa 2231 from orcamento.despesa
@@ -2253,7 +2262,7 @@ public function montaRecuperaFonteRecursosDotacao() @@ -2253,7 +2262,7 @@ public function montaRecuperaFonteRecursosDotacao()
2253 select despesa.exercicio 2262 select despesa.exercicio
2254 , '9' as tipo_dotacao 2263 , '9' as tipo_dotacao
2255 , despesa.num_unidade 2264 , despesa.num_unidade
2256 - , substr(despesa.num_pao, 1, 2) as tipo_acao 2265 + , substr(despesa.num_pao::VARCHAR, 1, 2) as tipo_acao
2257 , num_pao 2266 , num_pao
2258 , substr(conta_despesa.cod_estrutural, 1, 1) as categoria_economica 2267 , substr(conta_despesa.cod_estrutural, 1, 1) as categoria_economica
2259 , substr(conta_despesa.cod_estrutural, 3, 1) as grupo_natureza_despesa 2268 , substr(conta_despesa.cod_estrutural, 3, 1) as grupo_natureza_despesa
gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoReceita.class.php
  Diff comments   View file @842bba7
@@ -27,22 +27,14 @@ @@ -27,22 +27,14 @@
27 * @author Analista: Jorge B. Ribarr 27 * @author Analista: Jorge B. Ribarr
28 * @author Desenvolvedor: Marcelo B. Paulino 28 * @author Desenvolvedor: Marcelo B. Paulino
29 29
30 - $Id: TOrcamentoReceita.class.php 64492 2016-03-03 14:06:18Z fabio $ 30 + $Id: TOrcamentoReceita.class.php 66167 2016-07-25 12:46:20Z fabio $
31 31
32 * Casos de uso: uc-02.01.06, uc-02.04.04, uc-02.01.34, uc-02.04.03 32 * Casos de uso: uc-02.01.06, uc-02.04.04, uc-02.01.34, uc-02.04.03
33 */ 33 */
34 34
35 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; 35 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
36 -include_once ( CLA_PERSISTENTE ); 36 +include_once CLA_PERSISTENTE;
37 37
38 -/**  
39 - * Efetua conexão com a tabela ORCAMENTO.RECEITA  
40 - * Data de Criação: 13/07/2004  
41 -  
42 - * @author Analista: Jorge B. Ribarr  
43 - * @author Desenvolvedor: Marcelo B. Paulino  
44 -  
45 -*/  
46 class TOrcamentoReceita extends Persistente 38 class TOrcamentoReceita extends Persistente
47 { 39 {
48 /** 40 /**
@@ -1363,9 +1355,9 @@ function recuperaLancamentosCreditosReceber(&amp;$rsRecordSet, $boTransacao = &quot;&quot;) @@ -1363,9 +1355,9 @@ function recuperaLancamentosCreditosReceber(&amp;$rsRecordSet, $boTransacao = &quot;&quot;)
1363 1355
1364 function montaRecuperaLancamentosCreditosReceber() 1356 function montaRecuperaLancamentosCreditosReceber()
1365 { 1357 {
1366 - $stSql = " 1358 + $stSql = "
1367 SELECT 1359 SELECT
1368 - '".Sessao::getExercicio()."' AS exercicio 1360 + receita.exercicio
1369 , receita.cod_entidade 1361 , receita.cod_entidade
1370 , receita.vl_original 1362 , receita.vl_original
1371 , receita.cod_receita 1363 , receita.cod_receita
@@ -1376,47 +1368,49 @@ function montaRecuperaLancamentosCreditosReceber() @@ -1376,47 +1368,49 @@ function montaRecuperaLancamentosCreditosReceber()
1376 , plano_conta.cod_estrutural AS cod_estrutural_plano 1368 , plano_conta.cod_estrutural AS cod_estrutural_plano
1377 , conta_receita.cod_conta 1369 , conta_receita.cod_conta
1378 , configuracao_lancamento_receita.cod_conta 1370 , configuracao_lancamento_receita.cod_conta
1379 -  
1380 - , ( select plano_conta.cod_estrutural 1371 +
  1372 + , ( select plano_conta.cod_estrutural
1381 from contabilidade.plano_conta 1373 from contabilidade.plano_conta
1382 where plano_conta.cod_conta = configuracao_lancamento_receita.cod_conta 1374 where plano_conta.cod_conta = configuracao_lancamento_receita.cod_conta
1383 - and plano_conta.exercicio = configuracao_lancamento_receita.exercicio ) as cod_estrutural_credito  
1384 -  
1385 - , ( select plano_analitica.cod_plano 1375 + and plano_conta.exercicio = configuracao_lancamento_receita.exercicio ) as cod_estrutural_credito
  1376 +
  1377 + , ( select plano_analitica.cod_plano
1386 from contabilidade.plano_conta 1378 from contabilidade.plano_conta
1387 inner join contabilidade.plano_analitica 1379 inner join contabilidade.plano_analitica
1388 on plano_analitica.cod_conta = plano_conta.cod_conta 1380 on plano_analitica.cod_conta = plano_conta.cod_conta
1389 and plano_analitica.exercicio = plano_conta.exercicio 1381 and plano_analitica.exercicio = plano_conta.exercicio
1390 where plano_conta.cod_conta = configuracao_lancamento_receita.cod_conta 1382 where plano_conta.cod_conta = configuracao_lancamento_receita.cod_conta
1391 - and plano_conta.exercicio = configuracao_lancamento_receita.exercicio ) as cod_plano_credito  
1392 - 1383 + and plano_conta.exercicio = configuracao_lancamento_receita.exercicio ) as cod_plano_credito
  1384 +
1393 from orcamento.receita 1385 from orcamento.receita
1394 - 1386 +
1395 inner join orcamento.conta_receita 1387 inner join orcamento.conta_receita
1396 on conta_receita.cod_conta = receita.cod_conta 1388 on conta_receita.cod_conta = receita.cod_conta
1397 and conta_receita.exercicio = receita.exercicio 1389 and conta_receita.exercicio = receita.exercicio
1398 - 1390 +
1399 inner join orcamento.receita_credito_tributario 1391 inner join orcamento.receita_credito_tributario
1400 on receita_credito_tributario.cod_receita = receita.cod_receita 1392 on receita_credito_tributario.cod_receita = receita.cod_receita
1401 and receita_credito_tributario.exercicio = receita.exercicio 1393 and receita_credito_tributario.exercicio = receita.exercicio
1402 - 1394 +
1403 inner join contabilidade.plano_analitica 1395 inner join contabilidade.plano_analitica
1404 on plano_analitica.cod_conta = receita_credito_tributario.cod_conta 1396 on plano_analitica.cod_conta = receita_credito_tributario.cod_conta
1405 and plano_analitica.exercicio = receita_credito_tributario.exercicio 1397 and plano_analitica.exercicio = receita_credito_tributario.exercicio
1406 - 1398 +
1407 inner join contabilidade.plano_conta 1399 inner join contabilidade.plano_conta
1408 on plano_conta.cod_conta = receita_credito_tributario.cod_conta 1400 on plano_conta.cod_conta = receita_credito_tributario.cod_conta
1409 and plano_conta.exercicio = receita_credito_tributario.exercicio 1401 and plano_conta.exercicio = receita_credito_tributario.exercicio
1410 - 1402 +
1411 inner join contabilidade.configuracao_lancamento_receita 1403 inner join contabilidade.configuracao_lancamento_receita
1412 on configuracao_lancamento_receita.cod_conta_receita = conta_receita.cod_conta 1404 on configuracao_lancamento_receita.cod_conta_receita = conta_receita.cod_conta
1413 and configuracao_lancamento_receita.exercicio = conta_receita.exercicio 1405 and configuracao_lancamento_receita.exercicio = conta_receita.exercicio
1414 - and configuracao_lancamento_receita.estorno = false  
1415 -  
1416 - WHERE receita.credito_tributario = true  
1417 - AND receita.cod_entidade = ".$this->getDado('cod_entidade')."  
1418 - AND receita.vl_original > 0 ";  
1419 - 1406 + and configuracao_lancamento_receita.estorno = false
  1407 +
  1408 + WHERE receita.credito_tributario = true
  1409 + AND receita.cod_entidade = ".$this->getDado('cod_entidade')."
  1410 + AND receita.vl_original > 0
  1411 + AND receita.exercicio = '".Sessao::getExercicio()."'
  1412 + ";
  1413 +
1420 return $stSql; 1414 return $stSql;
1421 } 1415 }
1422 1416
gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoSuplementacao.class.php
  Diff comments   View file @842bba7
@@ -35,7 +35,7 @@ @@ -35,7 +35,7 @@
35 * @package URBEM 35 * @package URBEM
36 * @subpackage Mapeamento 36 * @subpackage Mapeamento
37 37
38 - $Id: TOrcamentoSuplementacao.class.php 65369 2016-05-17 11:50:21Z fabio $ 38 + $Id: TOrcamentoSuplementacao.class.php 66167 2016-07-25 12:46:20Z fabio $
39 39
40 * Casos de uso: uc-02.01.24 40 * Casos de uso: uc-02.01.24
41 uc-02.01.07 41 uc-02.01.07
@@ -153,7 +153,7 @@ function recuperaRelacionamentoRecurso(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem @@ -153,7 +153,7 @@ function recuperaRelacionamentoRecurso(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem
153 if( $stOrdem ) 153 if( $stOrdem )
154 $stOrdem = ( strpos( 'ORDER BY', $stOrdem ) ) ? $stOrdem : ' ORDER BY '.$stOrdem; 154 $stOrdem = ( strpos( 'ORDER BY', $stOrdem ) ) ? $stOrdem : ' ORDER BY '.$stOrdem;
155 155
156 - $stSql = $this->montaRecuperaRelacionamentoRecurso($boTransacao).$stCondicao.$stOrdem; 156 + $stSql = $this->montaRecuperaRelacionamentoRecurso().$stCondicao.$stOrdem;
157 $this->setDebug( $stSql ); 157 $this->setDebug( $stSql );
158 $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); 158 $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao );
159 159
@@ -165,122 +165,193 @@ function recuperaRelacionamentoRecurso(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem @@ -165,122 +165,193 @@ function recuperaRelacionamentoRecurso(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem
165 * @access Private 165 * @access Private
166 * @return String $stSql 166 * @return String $stSql
167 */ 167 */
168 -function montaRecuperaRelacionamentoRecurso($boTransacao = "")  
169 -{  
170 - $stSql .= "SELECT OS.exercicio \n";  
171 - $stSql .= " ,OS.cod_suplementacao \n";  
172 - $stSql .= " ,OS.cod_tipo \n";  
173 - $stSql .= " ,CTT.nom_tipo \n";  
174 - $stSql .= " ,OS.cod_norma \n";  
175 - $stSql .= " ,OS.motivo \n";  
176 - if (Sessao::getExercicio() > '2012') {  
177 - $stSql .= " ,CASE WHEN OSS.cod_entidade IS NOT NULL THEN \n";  
178 - $stSql .= " OSS.cod_entidade \n";  
179 - $stSql .= " ELSE \n";  
180 - $stSql .= " OSR.cod_entidade \n";  
181 - $stSql .= " END as cod_entidade \n";  
182 - } else {  
183 - $stSql .= " ,CTD.cod_entidade \n";  
184 - }  
185 - $stSql .= " ,TO_CHAR( OS.dt_suplementacao, 'dd/mm/yyyy' ) AS dt_suplementacao \n";  
186 - $stSql .= " ,SUM(coalesce( OSS.valor, 0.00 )) AS vl_suplementado \n";  
187 - $stSql .= " ,SUM(coalesce( OSR.valor, 0.00 )) AS vl_reduzido \n";  
188 - $stSql .= "FROM orcamento.suplementacao AS OS \n";  
189 - $stSql .= "LEFT JOIN ( SELECT OSS.exercicio \n";  
190 - $stSql .= " ,OSS.cod_suplementacao \n";  
191 - $stSql .= " ,MAX( OSS.cod_despesa ) as cod_despesa \n";  
192 - $stSql .= " ,MAX( RECURSO.cod_recurso ) as cod_recurso \n";  
193 - $stSql .= " ,sum( OSS.valor ) as valor \n";  
194 - if (Sessao::getExercicio() > '2012') {  
195 - $stSql .= " ,OD.cod_entidade \n";  
196 - }  
197 - $stSql .= " FROM orcamento.suplementacao_suplementada AS OSS \n";  
198 - $stSql .= " ,orcamento.despesa AS OD \n";  
199 - $stSql .= " ,orcamento.recurso('".$this->getDado('stExercicio')."') AS RECURSO \n";  
200 - $stSql .= " WHERE \n";  
201 - $stSql .= " OSS.cod_despesa = OD.cod_despesa \n";  
202 - $stSql .= " AND OSS.exercicio = OD.exercicio \n";  
203 - $stSql .= " AND OD.cod_recurso = RECURSO.cod_recurso \n";  
204 - $stSql .= " AND OD.exercicio = RECURSO.exercicio \n";  
205 - if($this->getDado('inCodDetalhamento'))  
206 - $stSql .= " AND RECURSO.cod_detalhamento = ".$this->getDado('inCodDetalhamento')." \n";  
207 - if($this->getDado('stDestinacaoRecurso'))  
208 - $stSql .= " AND RECURSO.masc_recurso_red like '".$this->getDado('stDestinacaoRecurso')."%' \n";  
209 - $stSql .= " GROUP BY OSS.exercicio \n";  
210 - $stSql .= " ,OSS.cod_suplementacao \n";  
211 - $stSql .= " ,RECURSO.cod_recurso \n";  
212 - if (Sessao::getExercicio() > '2012') {  
213 - $stSql .= " ,OD.cod_entidade \n";  
214 - }  
215 - $stSql .= " ORDER BY OSS.exercicio \n";  
216 - $stSql .= " ,OSS.cod_suplementacao \n";  
217 - $stSql .= " ,RECURSO.cod_recurso \n";  
218 - $stSql .= ") AS OSS ON( OS.exercicio = OSS.exercicio \n";  
219 - $stSql .= " AND OS.cod_suplementacao = OSS.cod_suplementacao ) \n";  
220 - $stSql .= "LEFT JOIN ( SELECT OSR.exercicio \n";  
221 - $stSql .= " ,OSR.cod_suplementacao \n";  
222 - $stSql .= " ,MAX( OSR.cod_despesa ) as cod_despesa \n";  
223 - $stSql .= " ,sum( OSR.valor ) AS valor \n";  
224 - if (Sessao::getExercicio() > '2012') {  
225 - $stSql .= " ,OD.cod_entidade \n";  
226 - }  
227 - $stSql .= " FROM orcamento.suplementacao_reducao AS OSR \n";  
228 - if (Sessao::getExercicio() > '2012') {  
229 - $stSql .= " INNER JOIN orcamento.despesa AS OD \n";  
230 - $stSql .= " ON OSR.cod_despesa = OD.cod_despesa \n";  
231 - $stSql .= " AND OSR.exercicio = OD.exercicio \n";  
232 - }  
233 - $stSql .= " GROUP BY OSR.exercicio \n";  
234 - $stSql .= " ,OSR.cod_suplementacao \n";  
235 - if (Sessao::getExercicio() > '2012') {  
236 - $stSql .= " ,OD.cod_entidade \n";  
237 - }  
238 - $stSql .= " ORDER BY OSR.exercicio \n";  
239 - $stSql .= " ,OSR.cod_suplementacao \n";  
240 - $stSql .= ") AS OSR ON( OS.exercicio = OSR.exercicio \n";  
241 - $stSql .= " AND OS.cod_suplementacao = OSR.cod_suplementacao ) \n";  
242 - $stSql .= "LEFT JOIN orcamento.suplementacao_anulada AS OSA \n";  
243 - $stSql .= "ON( OS.cod_suplementacao = OSA.cod_suplementacao_anulacao \n";  
244 - $stSql .= "AND OS.exercicio = OSA.exercicio ) \n";  
245 - if (Sessao::getExercicio() > '2012') {  
246 - $stSql .= " LEFT JOIN contabilidade.tipo_transferencia AS CTT \n";  
247 - $stSql .= " ON OS.cod_tipo = CTT.cod_tipo \n";  
248 - $stSql .= " AND OS.exercicio = CTT.exercicio \n";  
249 - $stSql .= " LEFT JOIN contabilidade.transferencia_despesa AS CTD \n";  
250 - $stSql .= " ON OS.cod_tipo = CTD.cod_tipo \n";  
251 - $stSql .= " AND OS.exercicio = CTD.exercicio \n";  
252 - $stSql .= " AND OS.cod_suplementacao = CTD.cod_suplementacao \n";  
253 - $stSql .= " WHERE OSA.cod_suplementacao is null \n";  
254 - } else {  
255 - $stSql .= " ,contabilidade.tipo_transferencia AS CTT \n";  
256 - $stSql .= " ,contabilidade.transferencia_despesa AS CTD \n";  
257 - $stSql .= "WHERE OS.cod_tipo = CTT.cod_tipo \n";  
258 - $stSql .= "AND OS.exercicio = CTT.exercicio \n";  
259 - $stSql .= "AND OS.cod_tipo = CTD.cod_tipo \n";  
260 - $stSql .= "AND OS.exercicio = CTD.exercicio \n";  
261 - $stSql .= "AND OS.cod_suplementacao = CTD.cod_suplementacao \n";  
262 - $stSql .= "AND CTD.tipo = 'S' \n";  
263 - $stSql .= "AND OSA.cod_suplementacao is null \n";  
264 - }  
265 - $stSql .= "AND OS.cod_tipo != 16 \n";  
266 - $stSql .= $this->getDado('stFiltro'). " \n";  
267 - $stSql .= "GROUP BY OS.exercicio \n";  
268 - $stSql .= " ,OS.cod_suplementacao \n";  
269 - $stSql .= " ,OS.cod_tipo \n";  
270 - $stSql .= " ,CTT.nom_tipo \n";  
271 - $stSql .= " ,OS.cod_norma \n";  
272 - $stSql .= " ,OS.motivo \n";  
273 - $stSql .= " ,OS.dt_suplementacao \n";  
274 - if (Sessao::getExercicio() > '2012') {  
275 - $stSql .= " ,OSR.cod_entidade \n";  
276 - $stSql .= " ,OSS.cod_entidade \n";  
277 - } else {  
278 - $stSql .= " ,CTD.cod_entidade \n"; 168 +function montaRecuperaRelacionamentoRecurso()
  169 +{
  170 + if(Sessao::getExercicio()>=2013){
  171 + $stSql = "SELECT OS.exercicio
  172 + ,OS.cod_suplementacao
  173 + ,OS.cod_tipo
  174 + ,CTT.nom_tipo
  175 + ,OS.cod_norma
  176 + ,OS.motivo
  177 + ,CASE WHEN OSS.cod_entidade IS NOT NULL THEN
  178 + OSS.cod_entidade
  179 + ELSE
  180 + OSR.cod_entidade
  181 + END as cod_entidade
  182 + ,TO_CHAR( OS.dt_suplementacao, 'dd/mm/yyyy' ) AS dt_suplementacao
  183 + ,orcamento.fn_totaliza_suplementacao( OS.exercicio, OS.cod_suplementacao ) AS vl_suplementado
  184 + ,coalesce( OSR.valor, 0.00 ) AS vl_reduzido
  185 + FROM orcamento.suplementacao AS OS
  186 + LEFT JOIN ( SELECT OSS.exercicio
  187 + ,OSS.cod_suplementacao
  188 + ,MAX( OSS.cod_despesa ) as cod_despesa
  189 + ,MAX( RECURSO.cod_recurso ) as cod_recurso
  190 + ,sum( OSS.valor ) as valor
  191 + ,OD.cod_entidade
  192 + FROM orcamento.suplementacao_suplementada AS OSS
  193 + ,orcamento.despesa AS OD
  194 + ,orcamento.recurso('".$this->getDado('stExercicio')."') AS RECURSO
  195 + WHERE
  196 + OSS.cod_despesa = OD.cod_despesa
  197 + AND OSS.exercicio = OD.exercicio
  198 + AND OD.cod_recurso = RECURSO.cod_recurso
  199 + AND OD.exercicio = RECURSO.exercicio \n";
  200 + if($this->getDado('inCodDetalhamento'))
  201 + $stSql .= " AND RECURSO.cod_detalhamento = ".$this->getDado('inCodDetalhamento')." \n";
  202 + if($this->getDado('stDestinacaoRecurso'))
  203 + $stSql .= " AND RECURSO.masc_recurso_red like '".$this->getDado('stDestinacaoRecurso')."%' \n";
  204 + if($this->getDado('inCodDespesa'))
  205 + $stSql .= " AND OSS.cod_despesa = ".$this->getDado('inCodDespesa')." \n";
  206 + $stSql .= " GROUP BY OSS.exercicio
  207 + ,OSS.cod_suplementacao
  208 + ,RECURSO.cod_recurso
  209 + ,OD.cod_entidade
  210 + ORDER BY OSS.exercicio
  211 + ,OSS.cod_suplementacao
  212 + ,RECURSO.cod_recurso
  213 + ) AS OSS
  214 + ON OS.exercicio = OSS.exercicio
  215 + AND OS.cod_suplementacao = OSS.cod_suplementacao
  216 + LEFT JOIN ( SELECT OSR.exercicio
  217 + ,OSR.cod_suplementacao
  218 + ,MAX( OSR.cod_despesa ) as cod_despesa
  219 + ,( select sum( suplementacao_reducao.valor )
  220 + from orcamento.suplementacao_reducao
  221 + where suplementacao_reducao.exercicio = OSR.exercicio
  222 + and suplementacao_reducao.cod_suplementacao = OSR.cod_suplementacao
  223 + ) AS valor
  224 + ,OD.cod_entidade
  225 + FROM orcamento.suplementacao_reducao AS OSR
  226 + INNER JOIN orcamento.despesa AS OD
  227 + ON OSR.cod_despesa = OD.cod_despesa
  228 + AND OSR.exercicio = OD.exercicio
  229 + WHERE OSR.exercicio = '".$this->getDado('stExercicio')."' \n";
  230 + if($this->getDado('inCodDespesa'))
  231 + $stSql .= " AND OSR.cod_despesa = ".$this->getDado('inCodDespesa')." \n";
  232 + $stSql .= " GROUP BY OSR.exercicio
  233 + ,OSR.cod_suplementacao
  234 + ,OD.cod_entidade
  235 + ORDER BY OSR.exercicio
  236 + ,OSR.cod_suplementacao
  237 + ) AS OSR
  238 + ON OS.exercicio = OSR.exercicio
  239 + AND OS.cod_suplementacao = OSR.cod_suplementacao
  240 + LEFT JOIN orcamento.suplementacao_anulada AS OSA
  241 + ON ( OS.cod_suplementacao = OSA.cod_suplementacao_anulacao
  242 + OR OSR.cod_suplementacao = OSA.cod_suplementacao
  243 + )
  244 + AND OS.exercicio = OSA.exercicio
  245 + LEFT JOIN contabilidade.tipo_transferencia AS CTT
  246 + ON OS.cod_tipo = CTT.cod_tipo
  247 + AND OS.exercicio = CTT.exercicio
  248 + LEFT JOIN contabilidade.transferencia_despesa AS CTD
  249 + ON OS.cod_tipo = CTD.cod_tipo
  250 + AND OS.exercicio = CTD.exercicio
  251 + AND OS.cod_suplementacao = CTD.cod_suplementacao
  252 + WHERE OS.exercicio = '".$this->getDado('stExercicio')."' \n";
  253 + if($this->getDado('inCodDespesa'))
  254 + $stSql .= " AND ( OSS.cod_despesa = ".$this->getDado('inCodDespesa')." OR OSR.cod_despesa = ".$this->getDado('inCodDespesa')." ) \n";
  255 + $stSql .= $this->getDado('stFiltro');
  256 + $stSql .= "GROUP BY OS.exercicio
  257 + ,OS.cod_suplementacao
  258 + ,OS.cod_tipo
  259 + ,CTT.nom_tipo
  260 + ,OS.cod_norma
  261 + ,OS.motivo
  262 + ,OS.dt_suplementacao
  263 + ,OSR.cod_entidade
  264 + ,OSS.cod_entidade
  265 + ,OSR.valor \n";
  266 + }else{
  267 + $stSql = "SELECT OS.exercicio
  268 + ,OS.cod_suplementacao
  269 + ,OS.cod_tipo
  270 + ,CTT.nom_tipo
  271 + ,OS.cod_norma
  272 + ,OS.motivo
  273 + ,CTD.cod_entidade
  274 + ,TO_CHAR( OS.dt_suplementacao, 'dd/mm/yyyy' ) AS dt_suplementacao
  275 + ,orcamento.fn_totaliza_suplementacao( OS.exercicio, OS.cod_suplementacao ) AS vl_suplementado
  276 + ,coalesce( OSR.valor, 0.00 ) AS vl_reduzido
  277 + FROM orcamento.suplementacao AS OS
  278 + LEFT JOIN ( SELECT OSS.exercicio
  279 + ,OSS.cod_suplementacao
  280 + ,MAX( OSS.cod_despesa ) as cod_despesa
  281 + ,MAX( RECURSO.cod_recurso ) as cod_recurso
  282 + ,( select sum( suplementacao_reducao.valor )
  283 + from orcamento.suplementacao_reducao
  284 + where suplementacao_reducao.exercicio = OSR.exercicio
  285 + and suplementacao_reducao.cod_suplementacao = OSR.cod_suplementacao
  286 + ) AS valor
  287 + FROM orcamento.suplementacao_suplementada AS OSS
  288 + ,orcamento.despesa AS OD
  289 + ,orcamento.recurso('".$this->getDado('stExercicio')."') AS RECURSO
  290 + WHERE
  291 + OSS.cod_despesa = OD.cod_despesa
  292 + AND OSS.exercicio = OD.exercicio
  293 + AND OD.cod_recurso = RECURSO.cod_recurso
  294 + AND OD.exercicio = RECURSO.exercicio \n";
  295 + if($this->getDado('inCodDetalhamento'))
  296 + $stSql .= " AND RECURSO.cod_detalhamento = ".$this->getDado('inCodDetalhamento')." \n";
  297 + if($this->getDado('stDestinacaoRecurso'))
  298 + $stSql .= " AND RECURSO.masc_recurso_red like '".$this->getDado('stDestinacaoRecurso')."%' \n";
  299 + if($this->getDado('inCodDespesa'))
  300 + $stSql .= " AND OSS.cod_despesa = ".$this->getDado('inCodDespesa')." \n";
  301 + $stSql .= " GROUP BY OSS.exercicio
  302 + ,OSS.cod_suplementacao
  303 + ,RECURSO.cod_recurso
  304 + ORDER BY OSS.exercicio
  305 + ,OSS.cod_suplementacao
  306 + ,RECURSO.cod_recurso
  307 + ) AS OSS
  308 + ON OS.exercicio = OSS.exercicio
  309 + AND OS.cod_suplementacao = OSS.cod_suplementacao
  310 + LEFT JOIN ( SELECT OSR.exercicio
  311 + ,OSR.cod_suplementacao
  312 + ,MAX( OSR.cod_despesa ) as cod_despesa
  313 + ,sum( OSR.valor ) AS valor
  314 + FROM orcamento.suplementacao_reducao AS OSR
  315 + WHERE OSR.exercicio = '".$this->getDado('stExercicio')."' \n";
  316 + if($this->getDado('inCodDespesa'))
  317 + $stSql .= " AND OSR.cod_despesa = ".$this->getDado('inCodDespesa')." \n";
  318 + $stSql .= " GROUP BY OSR.exercicio
  319 + ,OSR.cod_suplementacao
  320 + ORDER BY OSR.exercicio
  321 + ,OSR.cod_suplementacao
  322 + ) AS OSR
  323 + ON OS.exercicio = OSR.exercicio
  324 + AND OS.cod_suplementacao = OSR.cod_suplementacao
  325 + LEFT JOIN orcamento.suplementacao_anulada AS OSA
  326 + ON ( OS.cod_suplementacao = OSA.cod_suplementacao_anulacao
  327 + OR OSR.cod_suplementacao = OSA.cod_suplementacao
  328 + )
  329 + AND OS.exercicio = OSA.exercicio
  330 + ,contabilidade.tipo_transferencia AS CTT
  331 + ,contabilidade.transferencia_despesa AS CTD
  332 + WHERE OS.cod_tipo = CTT.cod_tipo
  333 + AND OS.exercicio = CTT.exercicio
  334 + AND OS.cod_tipo = CTD.cod_tipo
  335 + AND OS.exercicio = CTD.exercicio
  336 + AND OS.cod_suplementacao = CTD.cod_suplementacao
  337 + AND CTD.tipo = 'S'
  338 + AND OS.exercicio = '".$this->getDado('stExercicio')."' \n";
  339 + if($this->getDado('inCodDespesa'))
  340 + $stSql .= " AND ( OSS.cod_despesa = ".$this->getDado('inCodDespesa')." OR OSR.cod_despesa = ".$this->getDado('inCodDespesa')." ) \n";
  341 + $stSql .= $this->getDado('stFiltro');
  342 + $stSql .= "GROUP BY OS.exercicio
  343 + ,OS.cod_suplementacao
  344 + ,OS.cod_tipo
  345 + ,CTT.nom_tipo
  346 + ,OS.cod_norma
  347 + ,OS.motivo
  348 + ,OS.dt_suplementacao
  349 + ,CTD.cod_entidade
  350 + ,OSR.valor \n";
279 } 351 }
280 352
281 return $stSql; 353 return $stSql;
282 } 354 }
283 -  
284 /** 355 /**
285 * Executa um Select no banco de dados a partir do comando SQL 356 * Executa um Select no banco de dados a partir do comando SQL
286 * @access Public 357 * @access Public
@@ -309,23 +380,23 @@ function recuperaConsultaSuplementacao(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $boTrans @@ -309,23 +380,23 @@ function recuperaConsultaSuplementacao(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $boTrans
309 **/ 380 **/
310 function montaRecuperaConsultaSuplementacao() 381 function montaRecuperaConsultaSuplementacao()
311 { 382 {
312 - $stSQL .= "SELECT \n";  
313 - $stSQL .= " S.cod_suplementacao , \n";  
314 - $stSQL .= " S.exercicio , \n";  
315 - $stSQL .= " S.cod_norma , \n";  
316 - $stSQL .= " S.cod_tipo , \n";  
317 - $stSQL .= " TO_CHAR(S.dt_suplementacao,'dd/mm/yyyy') AS dt_suplementacao, \n";  
318 - $stSQL .= " TO_CHAR(SE.dt_suplementacao,'dd/mm/yyyy') AS dt_anulacao, \n";  
319 - $stSQL .= " S.motivo, \n";  
320 - $stSQL .= " orcamento.fn_totaliza_suplementacao( S.exercicio, S.cod_suplementacao ) AS vl_suplementacao \n";  
321 - $stSQL .= "FROM \n";  
322 - $stSQL .= " orcamento.suplementacao S \n";  
323 - $stSQL .= " LEFT JOIN orcamento.suplementacao_anulada SA ON \n";  
324 - $stSQL .= " ( S.exercicio = SA.exercicio AND S.cod_suplementacao = SA.cod_suplementacao ) \n";  
325 - $stSQL .= " LEFT JOIN orcamento.suplementacao SE ON \n";  
326 - $stSQL .= " ( SE.exercicio = SA.exercicio AND SA.cod_suplementacao_anulacao = SE.cod_suplementacao ) \n";  
327 - $stSQL .= "WHERE \n";  
328 - $stSQL .= " S.cod_tipo <> 16 \n"; 383 + $stSQL = "SELECT
  384 + S.cod_suplementacao,
  385 + S.exercicio,
  386 + S.cod_norma,
  387 + S.cod_tipo,
  388 + TO_CHAR(S.dt_suplementacao,'dd/mm/yyyy') AS dt_suplementacao,
  389 + TO_CHAR(SE.dt_suplementacao,'dd/mm/yyyy') AS dt_anulacao,
  390 + S.motivo,
  391 + orcamento.fn_totaliza_suplementacao( S.exercicio, S.cod_suplementacao ) AS vl_suplementacao
  392 + FROM
  393 + orcamento.suplementacao S
  394 + LEFT JOIN orcamento.suplementacao_anulada SA ON
  395 + ( S.exercicio = SA.exercicio AND S.cod_suplementacao = SA.cod_suplementacao )
  396 + LEFT JOIN orcamento.suplementacao SE ON
  397 + ( SE.exercicio = SA.exercicio AND SA.cod_suplementacao_anulacao = SE.cod_suplementacao )
  398 + WHERE
  399 + S.cod_suplementacao IS NOT NULL \n";
329 400
330 return $stSQL; 401 return $stSQL;
331 } 402 }
@@ -1561,7 +1632,7 @@ select suplementacao.exercicio @@ -1561,7 +1632,7 @@ select suplementacao.exercicio
1561 end as tipo_texto_juridico 1632 end as tipo_texto_juridico
1562 , suplementacao.cod_norma 1633 , suplementacao.cod_norma
1563 , despesa.num_unidade 1634 , despesa.num_unidade
1564 - , substr(despesa.num_pao, 1, 2) as tipo_acao 1635 + , substr(despesa.num_pao::VARCHAR, 1, 2) as tipo_acao
1565 , despesa.num_pao 1636 , despesa.num_pao
1566 , substr(conta_despesa.cod_estrutural, 1, 1) as categoria_economica 1637 , substr(conta_despesa.cod_estrutural, 1, 1) as categoria_economica
1567 , substr(conta_despesa.cod_estrutural, 3, 1) as grupo_natureza_despesa 1638 , substr(conta_despesa.cod_estrutural, 3, 1) as grupo_natureza_despesa
@@ -1597,7 +1668,7 @@ select suplementacao.exercicio @@ -1597,7 +1668,7 @@ select suplementacao.exercicio
1597 on recurso.exercicio = despesa.exercicio 1668 on recurso.exercicio = despesa.exercicio
1598 and recurso.cod_recurso = despesa.cod_recurso 1669 and recurso.cod_recurso = despesa.cod_recurso
1599 1670
1600 -where suplementacao.exercicio = ". $this->getDado('exercicio')." 1671 +where suplementacao.exercicio = '". $this->getDado('exercicio')."'
1601 and despesa.cod_entidade IN ( ". $this->getDado('cod_entidade')." ) 1672 and despesa.cod_entidade IN ( ". $this->getDado('cod_entidade')." )
1602 and suplementacao.dt_suplementacao >= to_date( '". $this->getDado('dt_inicial')."', 'dd/mm/yyyy' ) 1673 and suplementacao.dt_suplementacao >= to_date( '". $this->getDado('dt_inicial')."', 'dd/mm/yyyy' )
1603 and suplementacao.dt_suplementacao <= to_date( '". $this->getDado('dt_final')."', 'dd/mm/yyyy' ) 1674 and suplementacao.dt_suplementacao <= to_date( '". $this->getDado('dt_final')."', 'dd/mm/yyyy' )
@@ -1640,7 +1711,7 @@ select case when norma.cod_tipo_norma = 1 then &#39;1&#39; @@ -1640,7 +1711,7 @@ select case when norma.cod_tipo_norma = 1 then &#39;1&#39;
1640 join orcamento.recurso 1711 join orcamento.recurso
1641 on recurso.exercicio = despesa.exercicio 1712 on recurso.exercicio = despesa.exercicio
1642 and recurso.cod_recurso = despesa.cod_recurso 1713 and recurso.cod_recurso = despesa.cod_recurso
1643 - where suplementacao.exercicio = ". $this->getDado('exercicio')." 1714 + where suplementacao.exercicio = '". $this->getDado('exercicio')."'
1644 and despesa.cod_entidade in ( ". $this->getDado('cod_entidade')." ) 1715 and despesa.cod_entidade in ( ". $this->getDado('cod_entidade')." )
1645 and suplementacao.dt_suplementacao >= to_date( '". $this->getDado('dt_inicial')."', 'dd/mm/yyyy' ) 1716 and suplementacao.dt_suplementacao >= to_date( '". $this->getDado('dt_inicial')."', 'dd/mm/yyyy' )
1646 and suplementacao.dt_suplementacao < to_date( '". $this->getDado('dt_final')."', 'dd/mm/yyyy' ) 1717 and suplementacao.dt_suplementacao < to_date( '". $this->getDado('dt_final')."', 'dd/mm/yyyy' )
gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoUnidade.class.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Mapeamento 34 * @subpackage Mapeamento
35 35
36 - $Id: TOrcamentoUnidade.class.php 59820 2014-09-12 18:17:20Z luciana $ 36 + $Id: TOrcamentoUnidade.class.php 66022 2016-07-07 20:23:42Z fabio $
37 37
38 $Revision: 30668 $ 38 $Revision: 30668 $
39 $Name$ 39 $Name$
@@ -57,7 +57,7 @@ class TOrcamentoUnidade extends Persistente @@ -57,7 +57,7 @@ class TOrcamentoUnidade extends Persistente
57 * Método Construtor 57 * Método Construtor
58 * @access Private 58 * @access Private
59 */ 59 */
60 -function TOrcamentoUnidade() 60 +function __construct()
61 { 61 {
62 parent::Persistente(); 62 parent::Persistente();
63 $this->setTabela('orcamento.unidade'); 63 $this->setTabela('orcamento.unidade');
@@ -232,7 +232,7 @@ $stSql = &quot; @@ -232,7 +232,7 @@ $stSql = &quot;
232 JOIN orcamento.orgao 232 JOIN orcamento.orgao
233 ON orcamento.orgao.exercicio = orcamento.unidade.exercicio 233 ON orcamento.orgao.exercicio = orcamento.unidade.exercicio
234 AND orcamento.orgao.num_orgao = orcamento.unidade.num_orgao 234 AND orcamento.orgao.num_orgao = orcamento.unidade.num_orgao
235 - WHERE orcamento.unidade.exercicio = ".$this->getDado('exercicio'); 235 + WHERE orcamento.unidade.exercicio = '".$this->getDado('exercicio')."'";
236 236
237 return $stSql; 237 return $stSql;
238 } 238 }
@@ -260,7 +260,7 @@ function montaRecuperaOrgaoUnidadeOrcamentaria() @@ -260,7 +260,7 @@ function montaRecuperaOrgaoUnidadeOrcamentaria()
260 JOIN orcamento.orgao 260 JOIN orcamento.orgao
261 ON orcamento.orgao.exercicio = orcamento.unidade.exercicio 261 ON orcamento.orgao.exercicio = orcamento.unidade.exercicio
262 AND orcamento.orgao.num_orgao = orcamento.unidade.num_orgao 262 AND orcamento.orgao.num_orgao = orcamento.unidade.num_orgao
263 - WHERE orcamento.unidade.exercicio = ".$this->getDado('exercicio')." 263 + WHERE orcamento.unidade.exercicio = '".$this->getDado('exercicio')."'
264 AND orcamento.unidade.num_orgao = ".$this->getDado('num_orgao')." 264 AND orcamento.unidade.num_orgao = ".$this->getDado('num_orgao')."
265 AND orcamento.unidade.num_unidade = ".$this->getDado('num_unidade'); 265 AND orcamento.unidade.num_unidade = ".$this->getDado('num_unidade');
266 266
gestaoFinanceira/fontes/PHP/orcamento/classes/negocio/ROrcamentoSuplementacao.class.php
  Diff comments   View file @842bba7
@@ -1195,8 +1195,8 @@ function listarSuplementacaoDespesa(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;) @@ -1195,8 +1195,8 @@ function listarSuplementacaoDespesa(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;)
1195 */ 1195 */
1196 function listarSuplementacao(&$rsLista, $stOrder = "", $boTransacao = "") 1196 function listarSuplementacao(&$rsLista, $stOrder = "", $boTransacao = "")
1197 { 1197 {
1198 - include_once ( CAM_GF_ORC_MAPEAMENTO."TOrcamentoSuplementacao.class.php" );  
1199 - $obTOrcamentoSuplementacao = new TOrcamentoSuplementacao; 1198 + include_once CAM_GF_ORC_MAPEAMENTO."TOrcamentoSuplementacao.class.php";
  1199 + $obTOrcamentoSuplementacao = new TOrcamentoSuplementacao;
1200 1200
1201 $stFiltro = ""; 1201 $stFiltro = "";
1202 if( $this->inCodSuplementacao ) 1202 if( $this->inCodSuplementacao )
@@ -1218,7 +1218,7 @@ function listarSuplementacao(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;) @@ -1218,7 +1218,7 @@ function listarSuplementacao(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;)
1218 $stFiltro .= " OS.dt_suplementacao = TO_DATE( '".$this->stDtLancamento."', 'dd/mm/yyyy' ) AND "; 1218 $stFiltro .= " OS.dt_suplementacao = TO_DATE( '".$this->stDtLancamento."', 'dd/mm/yyyy' ) AND ";
1219 1219
1220 if( $this->obROrcamentoDespesa->getCodDespesa() ) 1220 if( $this->obROrcamentoDespesa->getCodDespesa() )
1221 - $stFiltro .= " OSS.cod_despesa = ".$this->obROrcamentoDespesa->getCodDespesa(). " AND"; 1221 + $obTOrcamentoSuplementacao->setDado( 'inCodDespesa', $this->obROrcamentoDespesa->getCodDespesa() );
1222 1222
1223 if( $this->obROrcamentoDespesa->obROrcamentoRecurso->getCodRecurso() ) 1223 if( $this->obROrcamentoDespesa->obROrcamentoRecurso->getCodRecurso() )
1224 $stFiltro .= " OSS.cod_recurso = ".$this->obROrcamentoDespesa->obROrcamentoRecurso->getCodRecurso(). " AND"; 1224 $stFiltro .= " OSS.cod_recurso = ".$this->obROrcamentoDespesa->obROrcamentoRecurso->getCodRecurso(). " AND";
@@ -1233,21 +1233,11 @@ function listarSuplementacao(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;) @@ -1233,21 +1233,11 @@ function listarSuplementacao(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;)
1233 } 1233 }
1234 1234
1235 if ($this->inSituacao == '2') { 1235 if ($this->inSituacao == '2') {
1236 - $stFiltro .= " NOT EXISTS ( SELECT 1 \n";  
1237 - $stFiltro .= " FROM orcamento.suplementacao_anulada o_sa \n";  
1238 - $stFiltro .= " WHERE o_sa.cod_suplementacao = OS.cod_suplementacao \n";  
1239 - $stFiltro .= " AND o_sa.exercicio = '".$this->stExercicio."' \n";  
1240 - $stFiltro .= " ) \n"; 1236 + $stFiltro .= " OSA.cod_suplementacao IS NULL \n";
1241 $stFiltro .= " AND"; 1237 $stFiltro .= " AND";
1242 -// $stFiltro .= " OS.cod_suplementacao NOT IN ( select cod_suplementacao from orcamento.suplementacao_anulada where exercicio = '".$this->stExercicio."' ) AND";  
1243 } elseif ($this->inSituacao == '3') { 1238 } elseif ($this->inSituacao == '3') {
1244 - $stFiltro .= " EXISTS ( SELECT 1 \n";  
1245 - $stFiltro .= " FROM orcamento.suplementacao_anulada o_sa \n";  
1246 - $stFiltro .= " WHERE o_sa.cod_suplementacao = OS.cod_suplementacao \n";  
1247 - $stFiltro .= " AND o_sa.exercicio = '".$this->stExercicio."' \n";  
1248 - $stFiltro .= " ) \n"; 1239 + $stFiltro .= " OSA.cod_suplementacao IS NOT NULL \n";
1249 $stFiltro .= " AND"; 1240 $stFiltro .= " AND";
1250 -// $stFiltro .= " OS.cod_suplementacao IN ( select cod_suplementacao from orcamento.suplementacao_anulada where exercicio = '".$this->stExercicio."' ) AND";  
1251 } 1241 }
1252 1242
1253 $stFiltro = ($stFiltro) ? ' AND '.substr($stFiltro,0,(strlen($stFiltro)-4)):''; 1243 $stFiltro = ($stFiltro) ? ' AND '.substr($stFiltro,0,(strlen($stFiltro)-4)):'';
gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRReceita.php
  Diff comments   View file @842bba7
@@ -31,12 +31,7 @@ @@ -31,12 +31,7 @@
31 31
32 * @ignore 32 * @ignore
33 33
34 - $Id: PRReceita.php 63523 2015-09-08 19:51:38Z luciana $  
35 -  
36 - $Revision: 31912 $  
37 - $Name$  
38 - $Autor: $  
39 - $Date: 2008-02-19 08:17:10 -0300 (Ter, 19 Fev 2008) $ 34 + $Id: PRReceita.php 66167 2016-07-25 12:46:20Z fabio $
40 35
41 * Casos de uso: uc-02.01.06 36 * Casos de uso: uc-02.01.06
42 */ 37 */
@@ -102,13 +97,12 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -102,13 +97,12 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
102 $obErro = new Erro; 97 $obErro = new Erro;
103 $obTransacao = new Transacao; 98 $obTransacao = new Transacao;
104 $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); 99 $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao );
105 - 100 +
106 $rsValidaReceita = new RecordSet(); 101 $rsValidaReceita = new RecordSet();
107 $obTOrcamentoReceita->setDado('classificacao_receita' , $request->get('inCodReceita')); 102 $obTOrcamentoReceita->setDado('classificacao_receita' , $request->get('inCodReceita'));
108 $obTOrcamentoReceita->setDado('exercicio_classificacao', Sessao::getExercicio() ); 103 $obTOrcamentoReceita->setDado('exercicio_classificacao', Sessao::getExercicio() );
109 $obTOrcamentoReceita->verificaClassificacaoReceita($rsValidaReceita, $boTransacao); 104 $obTOrcamentoReceita->verificaClassificacaoReceita($rsValidaReceita, $boTransacao);
110 -  
111 - 105 +
112 if ($rsValidaReceita->getNumLinhas() > 0 ){ 106 if ($rsValidaReceita->getNumLinhas() > 0 ){
113 if( $rsValidaReceita->getCampo('bo_validacao') == 'false' ) { 107 if( $rsValidaReceita->getCampo('bo_validacao') == 'false' ) {
114 if($rsValidaReceita->getCampo('descricao') == 'anterior') { 108 if($rsValidaReceita->getCampo('descricao') == 'anterior') {
@@ -122,7 +116,6 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -122,7 +116,6 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
122 } 116 }
123 117
124 if(!$obErro->ocorreu()){ 118 if(!$obErro->ocorreu()){
125 -  
126 $inSumConta = verificaValorConta( $request->get('inCodReceita'), $boTransacao ); 119 $inSumConta = verificaValorConta( $request->get('inCodReceita'), $boTransacao );
127 if ( $inSumConta > 0.00 ) { 120 if ( $inSumConta > 0.00 ) {
128 $obErro->setDescricao('Já houveram movimentações na classificação informada ('.$request->get('inCodReceita').')'); 121 $obErro->setDescricao('Já houveram movimentações na classificação informada ('.$request->get('inCodReceita').')');
@@ -132,28 +125,28 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -132,28 +125,28 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
132 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->consultar( $rsRubrica, $boTransacao ); 125 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->consultar( $rsRubrica, $boTransacao );
133 $obROrcamentoReceita->setCreditoTributario ( $request->get('boCreditoTributario') == "S" ? true : false ); 126 $obROrcamentoReceita->setCreditoTributario ( $request->get('boCreditoTributario') == "S" ? true : false );
134 $inCodConta = $rsRubrica->getCampo( 'cod_conta' ); 127 $inCodConta = $rsRubrica->getCampo( 'cod_conta' );
135 - 128 +
136 if($request->get('nuValorOriginal')) 129 if($request->get('nuValorOriginal'))
137 $obROrcamentoReceita->setValorOriginal ( $request->get('nuValorOriginal') ); 130 $obROrcamentoReceita->setValorOriginal ( $request->get('nuValorOriginal') );
138 else 131 else
139 $obROrcamentoReceita->setValorOriginal ( 0.00 ); 132 $obROrcamentoReceita->setValorOriginal ( 0.00 );
140 - 133 +
141 $obROrcamentoReceita->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') ); 134 $obROrcamentoReceita->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
142 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setCodConta( $inCodConta ); 135 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setCodConta( $inCodConta );
143 - 136 +
144 if ($boDestinacao) { 137 if ($boDestinacao) {
145 $stFiltro .= " WHERE cod_conta = ".$inCodConta; 138 $stFiltro .= " WHERE cod_conta = ".$inCodConta;
146 $stFiltro .= " AND exercicio = ".Sessao::getExercicio(); 139 $stFiltro .= " AND exercicio = ".Sessao::getExercicio();
147 $stFiltro .= " AND cod_entidade = ".$request->get('inCodEntidade'); 140 $stFiltro .= " AND cod_entidade = ".$request->get('inCodEntidade');
148 $obTOrcamentoReceita->recuperaTodos($rsReceita,$stFiltro, '', $boTransacao); 141 $obTOrcamentoReceita->recuperaTodos($rsReceita,$stFiltro, '', $boTransacao);
149 - 142 +
150 if ($rsReceita->getNumLinhas() >= 1 ) { 143 if ($rsReceita->getNumLinhas() >= 1 ) {
151 $obErro->setDescricao("A Classificação de Receita informada já foi cadastrada no exercício de (".Sessao::getExercicio().")"); 144 $obErro->setDescricao("A Classificação de Receita informada já foi cadastrada no exercício de (".Sessao::getExercicio().")");
152 } 145 }
153 - 146 +
154 if (!$obErro->ocorreu()) { 147 if (!$obErro->ocorreu()) {
155 $arDestinacaoRecurso = explode('.',$request->get('stDestinacaoRecurso')); 148 $arDestinacaoRecurso = explode('.',$request->get('stDestinacaoRecurso'));
156 - 149 +
157 $stFiltroBuscaExiste = ' WHERE exercicio = '.Sessao::getExercicio().' '; 150 $stFiltroBuscaExiste = ' WHERE exercicio = '.Sessao::getExercicio().' ';
158 $stFiltroBuscaExiste .= ' AND cod_uso = '.$arDestinacaoRecurso[0].' '; 151 $stFiltroBuscaExiste .= ' AND cod_uso = '.$arDestinacaoRecurso[0].' ';
159 $stFiltroBuscaExiste .= ' AND cod_destinacao = '.$arDestinacaoRecurso[1].' '; 152 $stFiltroBuscaExiste .= ' AND cod_destinacao = '.$arDestinacaoRecurso[1].' ';
@@ -161,7 +154,7 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -161,7 +154,7 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
161 $stFiltroBuscaExiste .= ' AND cod_detalhamento = '.$arDestinacaoRecurso[3].' '; 154 $stFiltroBuscaExiste .= ' AND cod_detalhamento = '.$arDestinacaoRecurso[3].' ';
162 $obTOrcamentoRecursoDestinacao->recuperaTodos($rsDestinacao, $stFiltroBuscaExiste, '', $boTransacao); 155 $obTOrcamentoRecursoDestinacao->recuperaTodos($rsDestinacao, $stFiltroBuscaExiste, '', $boTransacao);
163 $inCodRecursoExiste = $rsDestinacao->getCampo('cod_recurso'); 156 $inCodRecursoExiste = $rsDestinacao->getCampo('cod_recurso');
164 - 157 +
165 if ($inCodRecursoExiste == '') { 158 if ($inCodRecursoExiste == '') {
166 $obTOrcamentoRecurso->setDado("exercicio", Sessao::getExercicio() ); 159 $obTOrcamentoRecurso->setDado("exercicio", Sessao::getExercicio() );
167 $obTOrcamentoRecurso->proximoCod( $inCodRecurso, $boTransacao ); 160 $obTOrcamentoRecurso->proximoCod( $inCodRecurso, $boTransacao );
@@ -175,16 +168,16 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -175,16 +168,16 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
175 $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2]); 168 $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2]);
176 $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3]); 169 $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3]);
177 $obErro = $obTOrcamentoRecursoDestinacao->inclusao( $boTransacao ); 170 $obErro = $obTOrcamentoRecursoDestinacao->inclusao( $boTransacao );
178 - 171 +
179 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso ( $inCodRecurso ); 172 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso ( $inCodRecurso );
180 } 173 }
181 - 174 +
182 if (Sessao::getExercicio() > '2008') { 175 if (Sessao::getExercicio() > '2008') {
183 $obTOrcamentoEspecificacaoDestinacaoRecurso->setDado('exercicio', Sessao::getExercicio()); 176 $obTOrcamentoEspecificacaoDestinacaoRecurso->setDado('exercicio', Sessao::getExercicio());
184 $obTOrcamentoEspecificacaoDestinacaoRecurso->setDado('cod_especificacao', $arDestinacaoRecurso[2]); 177 $obTOrcamentoEspecificacaoDestinacaoRecurso->setDado('cod_especificacao', $arDestinacaoRecurso[2]);
185 $obTOrcamentoEspecificacaoDestinacaoRecurso->recuperaPorChave($rsEspecificacao, $boTransacao); 178 $obTOrcamentoEspecificacaoDestinacaoRecurso->recuperaPorChave($rsEspecificacao, $boTransacao);
186 $stNomEspecificacao = $rsEspecificacao->getCampo('descricao'); 179 $stNomEspecificacao = $rsEspecificacao->getCampo('descricao');
187 - 180 +
188 // Verifica qual o cod_recurso que possui conta contabil vinculada C 181 // Verifica qual o cod_recurso que possui conta contabil vinculada C
189 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio()); 182 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio());
190 $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", ''); 183 $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", '');
@@ -194,11 +187,11 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -194,11 +187,11 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
194 $obTOrcamentoRecursoDestinacao->setDado('cod_especificacao', $arDestinacaoRecurso[2]); 187 $obTOrcamentoRecursoDestinacao->setDado('cod_especificacao', $arDestinacaoRecurso[2]);
195 $obTOrcamentoRecursoDestinacao->setDado('cod_estrutural', "'2.9.3.2.0.00.00.%'"); 188 $obTOrcamentoRecursoDestinacao->setDado('cod_estrutural', "'2.9.3.2.0.00.00.%'");
196 $obTOrcamentoRecursoDestinacao->recuperaRecursoVinculoConta($rsContaRecursoC, '', '', $boTransacao); 189 $obTOrcamentoRecursoDestinacao->recuperaRecursoVinculoConta($rsContaRecursoC, '', '', $boTransacao);
197 - 190 +
198 $inCodRecursoBuscaC = $rsContaRecursoC->getCampo('cod_recurso'); 191 $inCodRecursoBuscaC = $rsContaRecursoC->getCampo('cod_recurso');
199 - 192 +
200 if ($inCodRecursoBuscaC == '') { 193 if ($inCodRecursoBuscaC == '') {
201 - 194 +
202 if (!$obErro->ocorreu()) { 195 if (!$obErro->ocorreu()) {
203 $obRContabilidadePlanoBancoC = new RContabilidadePlanoBanco; 196 $obRContabilidadePlanoBancoC = new RContabilidadePlanoBanco;
204 $obRContabilidadePlanoBancoC->setCodEstrutural('2.9.3.2.0.00.00.'); 197 $obRContabilidadePlanoBancoC->setCodEstrutural('2.9.3.2.0.00.00.');
@@ -216,22 +209,22 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -216,22 +209,22 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
216 $obRContabilidadePlanoBancoC->setNatSaldo('C'); 209 $obRContabilidadePlanoBancoC->setNatSaldo('C');
217 $obRContabilidadePlanoBancoC->obROrcamentoRecurso->setCodRecurso($inCodRecurso); 210 $obRContabilidadePlanoBancoC->obROrcamentoRecurso->setCodRecurso($inCodRecurso);
218 $obRContabilidadePlanoBancoC->setContaAnalitica(true); 211 $obRContabilidadePlanoBancoC->setContaAnalitica(true);
219 - 212 +
220 $obErro = $obRContabilidadePlanoBancoC->salvar($boTransacao); 213 $obErro = $obRContabilidadePlanoBancoC->salvar($boTransacao);
221 } else { 214 } else {
222 SistemaLegado::exibeAviso("Limite de Contas Excedido","n_incluir","erro"); 215 SistemaLegado::exibeAviso("Limite de Contas Excedido","n_incluir","erro");
223 } 216 }
224 } 217 }
225 } 218 }
226 - 219 +
227 // Verifica qual o cod_recurso que possui conta contabil vinculada D 220 // Verifica qual o cod_recurso que possui conta contabil vinculada D
228 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio()); 221 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio());
229 $obTOrcamentoRecursoDestinacao->setDado('cod_especificacao', $arDestinacaoRecurso[2]); 222 $obTOrcamentoRecursoDestinacao->setDado('cod_especificacao', $arDestinacaoRecurso[2]);
230 $obTOrcamentoRecursoDestinacao->setDado('cod_estrutural', "'1.9.3.2.0.00.00.%'"); 223 $obTOrcamentoRecursoDestinacao->setDado('cod_estrutural', "'1.9.3.2.0.00.00.%'");
231 $obTOrcamentoRecursoDestinacao->recuperaRecursoVinculoConta($rsContaRecursoD, '', '', $boTransacao); 224 $obTOrcamentoRecursoDestinacao->recuperaRecursoVinculoConta($rsContaRecursoD, '', '', $boTransacao);
232 - 225 +
233 $inCodRecursoBuscaD = $rsContaRecursoD->getCampo('cod_recurso'); 226 $inCodRecursoBuscaD = $rsContaRecursoD->getCampo('cod_recurso');
234 - 227 +
235 if ($inCodRecursoBuscaD == '') { 228 if ($inCodRecursoBuscaD == '') {
236 if (!$obErro->ocorreu()) { 229 if (!$obErro->ocorreu()) {
237 $obRContabilidadePlanoBancoD = new RContabilidadePlanoBanco; 230 $obRContabilidadePlanoBancoD = new RContabilidadePlanoBanco;
@@ -250,7 +243,7 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -250,7 +243,7 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
250 $obRContabilidadePlanoBancoD->setNatSaldo('D'); 243 $obRContabilidadePlanoBancoD->setNatSaldo('D');
251 $obRContabilidadePlanoBancoD->obROrcamentoRecurso->setCodRecurso($inCodRecurso); 244 $obRContabilidadePlanoBancoD->obROrcamentoRecurso->setCodRecurso($inCodRecurso);
252 $obRContabilidadePlanoBancoD->setContaAnalitica(true); 245 $obRContabilidadePlanoBancoD->setContaAnalitica(true);
253 - 246 +
254 $obErro = $obRContabilidadePlanoBancoD->salvar($boTransacao); 247 $obErro = $obRContabilidadePlanoBancoD->salvar($boTransacao);
255 } else { 248 } else {
256 SistemaLegado::exibeAviso("Limite de Contas Excedido","n_incluir","erro"); 249 SistemaLegado::exibeAviso("Limite de Contas Excedido","n_incluir","erro");
@@ -267,18 +260,18 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -267,18 +260,18 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
267 $stFiltro .= " AND exercicio = '".Sessao::getExercicio()."'"; 260 $stFiltro .= " AND exercicio = '".Sessao::getExercicio()."'";
268 $stFiltro .= " AND cod_entidade = ".$request->get('inCodEntidade'); 261 $stFiltro .= " AND cod_entidade = ".$request->get('inCodEntidade');
269 $obTOrcamentoReceita->recuperaTodos($rsReceita, $stFiltro, '', $boTransacao); 262 $obTOrcamentoReceita->recuperaTodos($rsReceita, $stFiltro, '', $boTransacao);
270 - 263 +
271 if ($rsReceita->getNumLinhas() >= 1 ) { 264 if ($rsReceita->getNumLinhas() >= 1 ) {
272 $obErro->setDescricao("A Classificação de Receita informada já foi cadastrada no exercício de (".Sessao::getExercicio().")"); 265 $obErro->setDescricao("A Classificação de Receita informada já foi cadastrada no exercício de (".Sessao::getExercicio().")");
273 } 266 }
274 - 267 +
275 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($request->get('inCodRecurso')); 268 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($request->get('inCodRecurso'));
276 } 269 }
277 - 270 +
278 if (!$obErro->ocorreu()) { 271 if (!$obErro->ocorreu()) {
279 $obErro = $obROrcamentoReceita->salvar($boTransacao); 272 $obErro = $obROrcamentoReceita->salvar($boTransacao);
280 $inCodReceita = $obROrcamentoReceita->getCodReceita(); 273 $inCodReceita = $obROrcamentoReceita->getCodReceita();
281 - 274 +
282 if (!$obErro->ocorreu()) { 275 if (!$obErro->ocorreu()) {
283 if ($request->get('boCreditoTributario') == "S") { 276 if ($request->get('boCreditoTributario') == "S") {
284 if ($request->get('inCodContaCreditoTributario') != '') { 277 if ($request->get('inCodContaCreditoTributario') != '') {
@@ -286,14 +279,14 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -286,14 +279,14 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
286 $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita' , $inCodReceita); 279 $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita' , $inCodReceita);
287 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio()); 280 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio());
288 $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $request->get('inCodContaCreditoTributario')); 281 $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $request->get('inCodContaCreditoTributario'));
289 - 282 +
290 $obErro = $obTOrcamentoReceitaCreditoTributario->inclusao($boTransacao); 283 $obErro = $obTOrcamentoReceitaCreditoTributario->inclusao($boTransacao);
291 } else { 284 } else {
292 $obErro->setDescricao("A conta de Crédito Tributário deve ser escolhida"); 285 $obErro->setDescricao("A conta de Crédito Tributário deve ser escolhida");
293 } 286 }
294 } 287 }
295 } 288 }
296 - 289 +
297 if ( !$obErro->ocorreu() ) { 290 if ( !$obErro->ocorreu() ) {
298 $obErro = lancarMetasReceita($boTransacao); 291 $obErro = lancarMetasReceita($boTransacao);
299 } 292 }
@@ -315,33 +308,33 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -315,33 +308,33 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
315 $obErro = new Erro; 308 $obErro = new Erro;
316 $obTransacao = new Transacao; 309 $obTransacao = new Transacao;
317 $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); 310 $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao );
318 - include_once ( CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoReceita.class.php"); 311 + include_once CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoReceita.class.php";
319 312
320 //busca o codigo da conta da Classificação de Receita informada 313 //busca o codigo da conta da Classificação de Receita informada
321 - $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setMascClassificacao( $_REQUEST['inCodEstrutural'] ); 314 + $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setMascClassificacao( $request->get('inCodEstrutural') );
322 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->consultar( $rsRubrica, $boTransacao ); 315 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->consultar( $rsRubrica, $boTransacao );
323 316
324 $inCodConta = $rsRubrica->getCampo( 'cod_conta' ); 317 $inCodConta = $rsRubrica->getCampo( 'cod_conta' );
325 318
326 - $obROrcamentoReceita->setCodReceita ( $_POST['inCodFixacaoReceita'] );  
327 - $obROrcamentoReceita->setValorOriginal ( $_POST['nuValorOriginal'] );  
328 - $obROrcamentoReceita->setCreditoTributario ( $_POST['boCreditoTributario'] == "S" ? true : false );  
329 - $obROrcamentoReceita->obROrcamentoEntidade->setCodigoEntidade ( $_POST['inCodEntidade'] ); 319 + $obROrcamentoReceita->setCodReceita ( $request->get('inCodFixacaoReceita') );
  320 + $obROrcamentoReceita->setValorOriginal ( $request->get('nuValorOriginal') );
  321 + $obROrcamentoReceita->setCreditoTributario ( $request->get('boCreditoTributario') == "S" ? true : false );
  322 + $obROrcamentoReceita->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
330 323
331 if ($boDestinacao) { 324 if ($boDestinacao) {
332 - $arDestinacaoRecurso = explode('.',$_REQUEST['stDestinacaoRecurso']); 325 + $arDestinacaoRecurso = explode('.',$request->get('stDestinacaoRecurso'));
333 326
334 if (Sessao::getExercicio() < '2009') { 327 if (Sessao::getExercicio() < '2009') {
335 $obTOrcamentoRecursoDestinacao->setDado("exercicio", Sessao::getExercicio() ); 328 $obTOrcamentoRecursoDestinacao->setDado("exercicio", Sessao::getExercicio() );
336 - $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", $_REQUEST['inCodRecurso'] );  
337 - $obTOrcamentoRecursoDestinacao->setDado("cod_uso", $arDestinacaoRecurso[0] );  
338 - $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", $arDestinacaoRecurso[1] );  
339 - $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2] );  
340 - $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3] ); 329 + $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", $request->get('inCodRecurso') );
  330 + $obTOrcamentoRecursoDestinacao->setDado("cod_uso", $arDestinacaoRecurso[0] );
  331 + $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", $arDestinacaoRecurso[1] );
  332 + $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2] );
  333 + $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3] );
341 $obTOrcamentoRecursoDestinacao->alteracao( $boTransacao ); 334 $obTOrcamentoRecursoDestinacao->alteracao( $boTransacao );
342 } else { 335 } else {
343 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio()); 336 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio());
344 - $obTOrcamentoRecursoDestinacao->setDado('cod_recurso', $_REQUEST['inCodRecurso']); 337 + $obTOrcamentoRecursoDestinacao->setDado('cod_recurso', $request->get('inCodRecurso'));
345 $obTOrcamentoRecursoDestinacao->setDado("cod_uso", ''); 338 $obTOrcamentoRecursoDestinacao->setDado("cod_uso", '');
346 $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", ''); 339 $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", '');
347 $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", ''); 340 $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", '');
@@ -466,11 +459,11 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -466,11 +459,11 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
466 459
467 if ($inCodRecursoExiste == '') { 460 if ($inCodRecursoExiste == '') {
468 $obTOrcamentoRecursoDestinacao->setDado("exercicio", Sessao::getExercicio() ); 461 $obTOrcamentoRecursoDestinacao->setDado("exercicio", Sessao::getExercicio() );
469 - $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", $_REQUEST['inCodRecurso'] );  
470 - $obTOrcamentoRecursoDestinacao->setDado("cod_uso", $arDestinacaoRecurso[0] );  
471 - $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", $arDestinacaoRecurso[1] );  
472 - $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2] );  
473 - $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3] ); 462 + $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", $request->get('inCodRecurso') );
  463 + $obTOrcamentoRecursoDestinacao->setDado("cod_uso", $arDestinacaoRecurso[0] );
  464 + $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", $arDestinacaoRecurso[1] );
  465 + $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2] );
  466 + $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3] );
474 $obTOrcamentoRecursoDestinacao->alteracao( $boTransacao ); 467 $obTOrcamentoRecursoDestinacao->alteracao( $boTransacao );
475 } else { 468 } else {
476 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($inCodRecursoExiste); 469 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($inCodRecursoExiste);
@@ -478,32 +471,32 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -478,32 +471,32 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
478 } 471 }
479 } 472 }
480 } else { 473 } else {
481 - $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($_POST['inCodRecurso']); 474 + $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($request->get('inCodRecurso'));
482 } 475 }
483 476
484 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setCodConta($inCodConta); 477 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setCodConta($inCodConta);
485 $obErro = $obROrcamentoReceita->salvar($boTransacao); 478 $obErro = $obROrcamentoReceita->salvar($boTransacao);
486 479
487 - $obTOrcamentoReceita->setDado('cod_receita' , $_POST['inCodFixacaoReceita'] ); 480 + $obTOrcamentoReceita->setDado('cod_receita' , $request->get('inCodFixacaoReceita') );
488 $obTOrcamentoReceita->setDado('exercicio' , Sessao::getExercicio()); 481 $obTOrcamentoReceita->setDado('exercicio' , Sessao::getExercicio());
489 $obTOrcamentoReceita->recuperaPorChave($rsOrcamentoReceita, $boTransacao); 482 $obTOrcamentoReceita->recuperaPorChave($rsOrcamentoReceita, $boTransacao);
490 -  
491 - $obTOrcamentoReceita->setDado('cod_entidade' ,$_POST['inCodEntidade']);  
492 - $obTOrcamentoReceita->setDado('cod_recurso' ,$_POST['inCodRecurso']);  
493 - $obTOrcamentoReceita->setDado('cod_conta' ,$rsOrcamentoReceita->getCampo('cod_conta'));  
494 - $obTOrcamentoReceita->setDado('credito_tributario',$_POST['boCreditoTributario'] == "S" ? true : false);  
495 - $obTOrcamentoReceita->setDado('vl_original' , $_POST['nuValorOriginal']); 483 +
  484 + $obTOrcamentoReceita->setDado('cod_entidade' , $request->get('inCodEntidade'));
  485 + $obTOrcamentoReceita->setDado('cod_recurso' , $request->get('inCodRecurso'));
  486 + $obTOrcamentoReceita->setDado('cod_conta' , $rsOrcamentoReceita->getCampo('cod_conta'));
  487 + $obTOrcamentoReceita->setDado('credito_tributario', $request->get('boCreditoTributario') == "S" ? true : false);
  488 + $obTOrcamentoReceita->setDado('vl_original' , $request->get('nuValorOriginal'));
496 $obErro = $obTOrcamentoReceita->alteracao($boTransacao); 489 $obErro = $obTOrcamentoReceita->alteracao($boTransacao);
497 - 490 +
498 if (!$obErro->ocorreu() ) { 491 if (!$obErro->ocorreu() ) {
499 - if ($_POST['boCreditoTributario'] == "S") {  
500 - if ($_POST['inCodContaCreditoTributario'] != '') { 492 + if ($request->get('boCreditoTributario') == "S") {
  493 + if ($request->get('inCodContaCreditoTributario') != '') {
501 $obTOrcamentoReceitaCreditoTributario = new TOrcamentoReceitaCreditoTributario; 494 $obTOrcamentoReceitaCreditoTributario = new TOrcamentoReceitaCreditoTributario;
502 $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita' , $obROrcamentoReceita->getCodReceita()); 495 $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita' , $obROrcamentoReceita->getCodReceita());
503 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio()); 496 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio());
504 $obTOrcamentoReceitaCreditoTributario->recuperaPorChave($rsContaCreditoTributario, $boTransacao); 497 $obTOrcamentoReceitaCreditoTributario->recuperaPorChave($rsContaCreditoTributario, $boTransacao);
505 - $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $_POST['inCodContaCreditoTributario']);  
506 - 498 + $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $request->get('inCodContaCreditoTributario'));
  499 +
507 if ($rsContaCreditoTributario->getNumLinhas() > 0) { 500 if ($rsContaCreditoTributario->getNumLinhas() > 0) {
508 $obErro = $obTOrcamentoReceitaCreditoTributario->alteracao($boTransacao); 501 $obErro = $obTOrcamentoReceitaCreditoTributario->alteracao($boTransacao);
509 } else { 502 } else {
@@ -534,12 +527,12 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -534,12 +527,12 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
534 } 527 }
535 $stFiltro .= "pg=".$sessao->link['pg']."&"; 528 $stFiltro .= "pg=".$sessao->link['pg']."&";
536 $stFiltro .= "pos=".$sessao->link['pos']."&"; 529 $stFiltro .= "pos=".$sessao->link['pos']."&";
537 - $stFiltro .= "stAcao=".$_REQUEST['stAcao']; 530 + $stFiltro .= "stAcao=".$request->get('stAcao');
538 531
539 $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro ); 532 $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro );
540 533
541 if ( !$obErro->ocorreu() ) { 534 if ( !$obErro->ocorreu() ) {
542 - SistemaLegado::alertaAviso($pgList, $_POST['inCodFixacaoReceita']."/".$obROrcamentoReceita->getExercicio(), "alterar", "aviso", Sessao::getId(), "../"); 535 + SistemaLegado::alertaAviso($pgList, $request->get('inCodFixacaoReceita')."/".$obROrcamentoReceita->getExercicio(), "alterar", "aviso", Sessao::getId(), "../");
543 } else { 536 } else {
544 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); 537 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro");
545 } 538 }
@@ -551,19 +544,20 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -551,19 +544,20 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
551 include_once ( CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoReceita.class.php"); 544 include_once ( CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoReceita.class.php");
552 $obRContablidadeLancamentoReceita = new RContabilidadeLancamentoReceita; 545 $obRContablidadeLancamentoReceita = new RContabilidadeLancamentoReceita;
553 $obRContablidadeLancamentoReceita->obRContabilidadeLancamento->obRContabilidadeLote->setExercicio ( Sessao::getExercicio() ); 546 $obRContablidadeLancamentoReceita->obRContabilidadeLancamento->obRContabilidadeLote->setExercicio ( Sessao::getExercicio() );
  547 + $obRContablidadeLancamentoReceita->obROrcamentoReceita->setCodReceita( $request->get('inCodReceita') );
554 $obRContablidadeLancamentoReceita->consultarExistenciaReceita(); 548 $obRContablidadeLancamentoReceita->consultarExistenciaReceita();
555 549
556 if ( $obRContablidadeLancamentoReceita->getCountReceitaExercicio() == 0) { 550 if ( $obRContablidadeLancamentoReceita->getCountReceitaExercicio() == 0) {
557 include_once( CAM_GF_CONT_MAPEAMENTO."TContabilidadeDesdobramentoReceita.class.php" ); 551 include_once( CAM_GF_CONT_MAPEAMENTO."TContabilidadeDesdobramentoReceita.class.php" );
558 $obTContabilidadeDesdobramentoReceita = new TContabilidadeDesdobramentoReceita; 552 $obTContabilidadeDesdobramentoReceita = new TContabilidadeDesdobramentoReceita;
559 $obTContabilidadeDesdobramentoReceita->setDado( "exercicio", Sessao::getExercicio() ); 553 $obTContabilidadeDesdobramentoReceita->setDado( "exercicio", Sessao::getExercicio() );
560 - $obTContabilidadeDesdobramentoReceita->setDado( "cod_receita", $_GET['inCodReceita'] ); 554 + $obTContabilidadeDesdobramentoReceita->setDado( "cod_receita", $request->get('inCodReceita') );
561 555
562 $obErro = $obTContabilidadeDesdobramentoReceita->verificaReceitaSecundaria( $boSecundaria ); 556 $obErro = $obTContabilidadeDesdobramentoReceita->verificaReceitaSecundaria( $boSecundaria );
563 557
564 if (!$obErro->ocorreu() && !$boSecundaria ) { 558 if (!$obErro->ocorreu() && !$boSecundaria ) {
565 $obTOrcamentoReceitaCreditoTributario = new TOrcamentoReceitaCreditoTributario; 559 $obTOrcamentoReceitaCreditoTributario = new TOrcamentoReceitaCreditoTributario;
566 - $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita', $_GET['inCodReceita']); 560 + $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita', $request->get('inCodReceita'));
567 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio()); 561 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio());
568 562
569 $obTOrcamentoReceitaCreditoTributario->recuperaPorChave($rsContaCreditoTributario, $boTransacao); 563 $obTOrcamentoReceitaCreditoTributario->recuperaPorChave($rsContaCreditoTributario, $boTransacao);
@@ -572,20 +566,20 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -572,20 +566,20 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
572 $obTOrcamentoReceitaCreditoTributario->exclusao($boTransacao); 566 $obTOrcamentoReceitaCreditoTributario->exclusao($boTransacao);
573 } 567 }
574 568
575 - $obROrcamentoReceita->setCodReceita( $_GET['inCodReceita'] ); 569 + $obROrcamentoReceita->setCodReceita( $request->get('inCodReceita') );
576 $obROrcamentoReceita->setExercicio ( Sessao::getExercicio() ); 570 $obROrcamentoReceita->setExercicio ( Sessao::getExercicio() );
577 $obErro = $obROrcamentoReceita->excluir(); 571 $obErro = $obROrcamentoReceita->excluir();
578 - if ($boDestinacao && $_REQUEST['inCodRecurso'] && !$obErro->ocorreu() ) {  
579 - include_once( CAM_GF_ORC_MAPEAMENTO."TOrcamentoRecursoDestinacao.class.php" ); 572 + if ($boDestinacao && $request->get('inCodRecurso') && !$obErro->ocorreu() ) {
  573 + include_once CAM_GF_ORC_MAPEAMENTO."TOrcamentoRecursoDestinacao.class.php";
580 $obTOrcamentoRecursoDestinacao = new TOrcamentoRecursoDestinacao; 574 $obTOrcamentoRecursoDestinacao = new TOrcamentoRecursoDestinacao;
581 - $obTOrcamentoRecursoDestinacao->setDado("exercicio", Sessao::getExercicio() );  
582 - $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", $_REQUEST['inCodRecurso'] ); 575 + $obTOrcamentoRecursoDestinacao->setDado("exercicio", Sessao::getExercicio() );
  576 + $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", $request->get('inCodRecurso') );
583 $obTOrcamentoRecursoDestinacao->exclusao(); 577 $obTOrcamentoRecursoDestinacao->exclusao();
584 578
585 - include_once( CAM_GF_ORC_MAPEAMENTO."TOrcamentoRecurso.class.php" ); 579 + include_once CAM_GF_ORC_MAPEAMENTO."TOrcamentoRecurso.class.php";
586 $obTOrcamentoRecurso = new TOrcamentoRecurso; 580 $obTOrcamentoRecurso = new TOrcamentoRecurso;
587 $obTOrcamentoRecurso->setDado("exercicio", Sessao::getExercicio() ); 581 $obTOrcamentoRecurso->setDado("exercicio", Sessao::getExercicio() );
588 - $obTOrcamentoRecurso->setDado("cod_recurso", $_REQUEST['inCodRecurso'] ); 582 + $obTOrcamentoRecurso->setDado("cod_recurso", $request->get('inCodRecurso') );
589 $obTOrcamentoRecurso->exclusao(); 583 $obTOrcamentoRecurso->exclusao();
590 } 584 }
591 } else { 585 } else {
@@ -602,10 +596,10 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) { @@ -602,10 +596,10 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
602 } 596 }
603 $stFiltro .= "pg=".$sessao->transf4['pg']."&"; 597 $stFiltro .= "pg=".$sessao->transf4['pg']."&";
604 $stFiltro .= "pos=".$sessao->transf4['pos']."&"; 598 $stFiltro .= "pos=".$sessao->transf4['pos']."&";
605 - $stFiltro .= "stAcao=".$_REQUEST['stAcao']; 599 + $stFiltro .= "stAcao=".$request->get('stAcao');
606 600
607 if ( !$obErro->ocorreu() ) { 601 if ( !$obErro->ocorreu() ) {
608 - SistemaLegado::alertaAviso($pgList."?stAcao=excluir", $_GET['inCodReceita']."/".$obROrcamentoReceita->getExercicio() ,"excluir","aviso", Sessao::getId(), "../"); 602 + SistemaLegado::alertaAviso($pgList."?stAcao=excluir", $request->get('inCodReceita')."/".$obROrcamentoReceita->getExercicio() ,"excluir","aviso", Sessao::getId(), "../");
609 } else { 603 } else {
610 SistemaLegado::alertaAviso($pgList."?stAcao=excluir", urlencode($obErro->getDescricao()) ,"n_excluir","erro", Sessao::getId(), "../"); 604 SistemaLegado::alertaAviso($pgList."?stAcao=excluir", urlencode($obErro->getDescricao()) ,"n_excluir","erro", Sessao::getId(), "../");
611 } 605 }
@@ -666,13 +660,13 @@ function lancarMetasReceita($boTransacao = &quot;&quot;) @@ -666,13 +660,13 @@ function lancarMetasReceita($boTransacao = &quot;&quot;)
666 for ($inContColunas = 1; $inContColunas <= $inNumColunas; $inContColunas++) { 660 for ($inContColunas = 1; $inContColunas <= $inNumColunas; $inContColunas++) {
667 $inValor = "vlValor_".$inContColunas; 661 $inValor = "vlValor_".$inContColunas;
668 662
669 - $inValor = str_replace( ".", "" , $_POST[$inValor] ); 663 + $inValor = str_replace( ".", "" , $request->get($inValor) );
670 $inValor = str_replace( ",", ".", $inValor ); 664 $inValor = str_replace( ",", ".", $inValor );
671 $arValor[$inContColunas] = $inValor; 665 $arValor[$inContColunas] = $inValor;
672 $vlTotal += $inValor; 666 $vlTotal += $inValor;
673 } 667 }
674 668
675 - $vlTotal = $_POST['TotalValor'] ; 669 + $vlTotal = $request->get('TotalValor');
676 $vlTotal = str_replace( ".", "" , $vlTotal ); 670 $vlTotal = str_replace( ".", "" , $vlTotal );
677 $vlTotal = str_replace( ",", ".", $vlTotal ); 671 $vlTotal = str_replace( ",", ".", $vlTotal );
678 672
gestaoFinanceira/fontes/PHP/ppa/classes/negocio/RPPAManterRegiao.class.php
  Diff comments   View file @842bba7
@@ -101,34 +101,34 @@ class RPPAManterRegiao @@ -101,34 +101,34 @@ class RPPAManterRegiao
101 return $this->callMapeamento( $stMapeamento, $stMetodo, $stCriterio, $stOrdem ); 101 return $this->callMapeamento( $stMapeamento, $stMetodo, $stCriterio, $stOrdem );
102 } 102 }
103 103
104 - public function incluir(&$_REQUEST) 104 + public function incluir(Request $request)
105 { 105 {
106 $obMapeamento = new TPPARegiao; 106 $obMapeamento = new TPPARegiao;
107 - $obMapeamento->proximoCod($_REQUEST['inCodRegiao']);  
108 - $obMapeamento->setDado('cod_regiao', $_REQUEST['inCodRegiao']);  
109 - $obMapeamento->setDado('nome', stripslashes($_REQUEST['stNome']));  
110 - $obMapeamento->setDado('descricao', stripslashes($_REQUEST['stDescricao']));  
111 - $obErro = $obMapeamento->inclusao(); 107 + $obMapeamento->proximoCod($inCodRegiao, $boTransacao);
  108 + $obMapeamento->setDado('cod_regiao', $inCodRegiao);
  109 + $obMapeamento->setDado('nome', stripslashes($request->get('stNome')));
  110 + $obMapeamento->setDado('descricao', stripslashes($request->get('stDescricao')));
  111 + $obErro = $obMapeamento->inclusao($boTransacao);
112 112
113 return $obErro; 113 return $obErro;
114 } 114 }
115 115
116 - public function alterar($_REQUEST) 116 + public function alterar(Request $request)
117 { 117 {
118 $obMapeamento = new TPPARegiao; 118 $obMapeamento = new TPPARegiao;
119 - $obMapeamento->setDado('cod_regiao', $_REQUEST['inCodRegiao']);  
120 - $obMapeamento->setDado('nome', stripslashes($_REQUEST['stNome']));  
121 - $obMapeamento->setDado('descricao', stripslashes($_REQUEST['stDescricao'])); 119 + $obMapeamento->setDado('cod_regiao', $request->get('inCodRegiao'));
  120 + $obMapeamento->setDado('nome', stripslashes($request->get('stNome')));
  121 + $obMapeamento->setDado('descricao', stripslashes($request->get('stDescricao')));
122 122
123 $obErro = $obMapeamento->alteracao(); 123 $obErro = $obMapeamento->alteracao();
124 124
125 return $obErro; 125 return $obErro;
126 } 126 }
127 127
128 - public function excluir($_REQUEST) 128 + public function excluir(Request $request)
129 { 129 {
130 # Recupera ppa.ppa_acao 130 # Recupera ppa.ppa_acao
131 - $stFiltro = ' where cod_regiao = ' . $_REQUEST['inCodRegiao']; 131 + $stFiltro = ' where cod_regiao = ' . $request->get('inCodRegiao');
132 $rsAcoes = $this->callMapeamento('TPPAAcaoDados', 'recuperaTodos', $stFiltro); 132 $rsAcoes = $this->callMapeamento('TPPAAcaoDados', 'recuperaTodos', $stFiltro);
133 133
134 $arRetorno = array(); 134 $arRetorno = array();
@@ -142,7 +142,7 @@ class RPPAManterRegiao @@ -142,7 +142,7 @@ class RPPAManterRegiao
142 } 142 }
143 143
144 $obMapeamento = new TPPARegiao; 144 $obMapeamento = new TPPARegiao;
145 - $obMapeamento->setDado('cod_regiao', $_REQUEST['inCodRegiao']); 145 + $obMapeamento->setDado('cod_regiao', $request->get('inCodRegiao'));
146 $obErro = $obMapeamento->exclusao(); 146 $obErro = $obMapeamento->exclusao();
147 147
148 $arRetorno['stMensagem'] = 'Região não pode ser excluída, pois a mesma está vinculada a ações ou histórico do ppa.'; 148 $arRetorno['stMensagem'] = 'Região não pode ser excluída, pois a mesma está vinculada a ações ou histórico do ppa.';
gestaoFinanceira/fontes/PHP/ppa/classes/visao/VPPAManterReceita.class.php
  Diff comments   View file @842bba7
@@ -73,12 +73,12 @@ class VPPAManterReceita @@ -73,12 +73,12 @@ class VPPAManterReceita
73 /** 73 /**
74 * Executa ação recebida na página de processamento (PR). 74 * Executa ação recebida na página de processamento (PR).
75 */ 75 */
76 - public function executarAcao($_REQUEST) 76 + public function executarAcao(Request $request)
77 { 77 {
78 Sessao::setTrataExcecao( true ); 78 Sessao::setTrataExcecao( true );
79 - $stMetodo = $_REQUEST['stAcao']; 79 + $stMetodo = $request->get('stAcao');
80 if (is_string($stMetodo)) { 80 if (is_string($stMetodo)) {
81 - $this->$stMetodo($_REQUEST); 81 + $this->$stMetodo($request);
82 } 82 }
83 Sessao::encerraExcecao(); 83 Sessao::encerraExcecao();
84 } 84 }
gestaoFinanceira/fontes/PHP/ppa/classes/visao/VPPAManterRegiao.class.php
  Diff comments   View file @842bba7
@@ -152,7 +152,7 @@ class VPPAManterRegiao @@ -152,7 +152,7 @@ class VPPAManterRegiao
152 /** 152 /**
153 * 153 *
154 */ 154 */
155 - public function listarRegioes($_REQUEST) 155 + public function listarRegioes(Request $request)
156 { 156 {
157 $rsRegioes = $this->obNegocio->getListaRegioes(); 157 $rsRegioes = $this->obNegocio->getListaRegioes();
158 $obLista = $this->montarListaRegioes($rsRegioes, false); 158 $obLista = $this->montarListaRegioes($rsRegioes, false);
@@ -166,59 +166,59 @@ class VPPAManterRegiao @@ -166,59 +166,59 @@ class VPPAManterRegiao
166 return $this->obNegocio->getListaRegioes(); 166 return $this->obNegocio->getListaRegioes();
167 } 167 }
168 168
169 - public function listar($_REQUEST) 169 + public function listar(Request $request)
170 { 170 {
171 - $stNome = stripslashes($_REQUEST['stNome']);  
172 - $stDescricao = stripslashes($_REQUEST['stDescricao']); 171 + $stNome = stripslashes($request->get('stNome'));
  172 + $stDescricao = stripslashes($request->get('stDescricao'));
173 $rsRegioes = $this->obNegocio->getListaRegioes('', $stNome, $stDescricao); 173 $rsRegioes = $this->obNegocio->getListaRegioes('', $stNome, $stDescricao);
174 - $obLista = $this->montarListaRegioes($rsRegioes, true, $_REQUEST['stAcao']); 174 + $obLista = $this->montarListaRegioes($rsRegioes, true, $request->get('stAcao'));
175 $obLista->show(); 175 $obLista->show();
176 } 176 }
177 177
178 - public function incluir($_REQUEST) 178 + public function incluir(Request $request)
179 { 179 {
180 - $obErro = $this->obNegocio->incluir($_REQUEST); 180 + $obErro = $this->obNegocio->incluir($request);
181 if ($obErro->ocorreu()) { 181 if ($obErro->ocorreu()) {
182 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()), 'n_incluir', 'erro'); 182 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()), 'n_incluir', 'erro');
183 } else { 183 } else {
184 - $pgDestino = 'FMManterRegioes.php?stAcao=' . $_REQUEST['stAcao'];  
185 - SistemaLegado::alertaAviso($pgDestino, $_REQUEST['inCodRegiao'], 'incluir', 'aviso', Sessao::getId(), '../'); 184 + $pgDestino = 'FMManterRegioes.php?stAcao=' . $request->get('stAcao');
  185 + SistemaLegado::alertaAviso($pgDestino, $request->get('inCodRegiao'), 'incluir', 'aviso', Sessao::getId(), '../');
186 } 186 }
187 } 187 }
188 188
189 - public function alterar($_REQUEST) 189 + public function alterar(Request $request)
190 { 190 {
191 - $obErro = $this->obNegocio->alterar($_REQUEST); 191 + $obErro = $this->obNegocio->alterar($request);
192 if ($obErro->ocorreu()) { 192 if ($obErro->ocorreu()) {
193 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()), 'n_alterar', 'erro'); 193 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()), 'n_alterar', 'erro');
194 } else { 194 } else {
195 - $pgDestino = 'LSManterRegioes.php?stAcao=' . $_REQUEST['stAcao'];  
196 - SistemaLegado::alertaAviso($pgDestino, $_REQUEST['inCodRegiao'], 'alterar', 'aviso', Sessao::getId(), '../'); 195 + $pgDestino = 'LSManterRegioes.php?stAcao=' . $request->get('stAcao');
  196 + SistemaLegado::alertaAviso($pgDestino, $request->get('inCodRegiao'), 'alterar', 'aviso', Sessao::getId(), '../');
197 } 197 }
198 } 198 }
199 199
200 - public function excluir($_REQUEST) 200 + public function excluir(Request $request)
201 { 201 {
202 - $arRetorno = $this->obNegocio->excluir($_REQUEST); 202 + $arRetorno = $this->obNegocio->excluir($request);
203 203
204 if ($arRetorno['boOcorreu']) { 204 if ($arRetorno['boOcorreu']) {
205 SistemaLegado::alertaAviso('LSManterRegioes.php?stAcao=excluir', $arRetorno['stMensagem'], $arRetorno['stAcao'], 'aviso', Sessao::getId()); 205 SistemaLegado::alertaAviso('LSManterRegioes.php?stAcao=excluir', $arRetorno['stMensagem'], $arRetorno['stAcao'], 'aviso', Sessao::getId());
206 } else { 206 } else {
207 - SistemaLegado::alertaAviso('LSManterRegioes.php?stAcao=excluir', $_REQUEST['inCodRegiao'], 'excluir', 'aviso', Sessao::getId()); 207 + SistemaLegado::alertaAviso('LSManterRegioes.php?stAcao=excluir', $request->get('inCodRegiao'), 'excluir', 'aviso', Sessao::getId());
208 } 208 }
209 } 209 }
210 210
211 /** 211 /**
212 * Executa ação recebida na página de processamento (PR). 212 * Executa ação recebida na página de processamento (PR).
213 */ 213 */
214 - public function executarAcao($_REQUEST) 214 + public function executarAcao(Request $request)
215 { 215 {
216 Sessao::setTrataExcecao( true ); 216 Sessao::setTrataExcecao( true );
217 217
218 - $stMetodo = $_REQUEST['stAcao']; 218 + $stMetodo = $request->get('stAcao');
219 219
220 if (is_string($stMetodo)) { 220 if (is_string($stMetodo)) {
221 - $this->$stMetodo($_REQUEST); 221 + $this->$stMetodo($request);
222 } 222 }
223 223
224 Sessao::encerraExcecao(); 224 Sessao::encerraExcecao();
gestaoFinanceira/fontes/PHP/ppa/instancias/receita/PRManterReceita.php
  Diff comments   View file @842bba7
@@ -31,7 +31,7 @@ @@ -31,7 +31,7 @@
31 * @author Marcio Medeiros <marcio.medeiros@cnm.org.br> 31 * @author Marcio Medeiros <marcio.medeiros@cnm.org.br>
32 * 32 *
33 * 33 *
34 - * $Id: PRManterReceita.php 59820 2014-09-12 18:17:20Z luciana $ 34 + * $Id: PRManterReceita.php 66022 2016-07-07 20:23:42Z fabio $
35 * Casos de uso: uc-02.09.05 35 * Casos de uso: uc-02.09.05
36 */ 36 */
37 37
@@ -44,6 +44,6 @@ include CAM_GF_PPA_CLASSES.&quot;visao/VPPAManterReceita.class.php&quot;; @@ -44,6 +44,6 @@ include CAM_GF_PPA_CLASSES.&quot;visao/VPPAManterReceita.class.php&quot;;
44 44
45 $obRegraReceita = new RPPAManterReceita(); 45 $obRegraReceita = new RPPAManterReceita();
46 $obVisaoReceita = new VPPAManterReceita( $obRegraReceita ); 46 $obVisaoReceita = new VPPAManterReceita( $obRegraReceita );
47 -$obVisaoReceita->executarAcao($_REQUEST); 47 +$obVisaoReceita->executarAcao($request);
48 48
49 ?> 49 ?>
gestaoFinanceira/fontes/PHP/ppa/instancias/regioes/FLManterRegioes.php
  Diff comments   View file @842bba7
@@ -50,13 +50,10 @@ $pgProc = &quot;PR&quot;.$stPrograma.&quot;.php&quot;; @@ -50,13 +50,10 @@ $pgProc = &quot;PR&quot;.$stPrograma.&quot;.php&quot;;
50 $pgOcul = "OC".$stPrograma.".php"; 50 $pgOcul = "OC".$stPrograma.".php";
51 $pgJS = "JS".$stPrograma.".js"; 51 $pgJS = "JS".$stPrograma.".js";
52 52
53 -$sessao->link = "";  
54 -  
55 -unset($sessao->filtro); 53 +Sessao::write("link","");
56 54
57 //Define a função do arquivo, ex: incluir, excluir, alterar, consultar, etc 55 //Define a função do arquivo, ex: incluir, excluir, alterar, consultar, etc
58 -$stAcao = $_GET['stAcao'] ? $_GET['stAcao'] : $_POST['stAcao'];  
59 - 56 +$stAcao = $request->get('stAcao');
60 if (empty($stAcao)) { 57 if (empty($stAcao)) {
61 $stAcao = "excluir"; 58 $stAcao = "excluir";
62 } 59 }
gestaoFinanceira/fontes/PHP/ppa/instancias/regioes/JSManterRegioes.php
  Diff comments   View file @842bba7
@@ -44,7 +44,7 @@ function CancelarCL() @@ -44,7 +44,7 @@ function CancelarCL()
44 { 44 {
45 <?php 45 <?php
46 $link = Sessao::read( "link" ); 46 $link = Sessao::read( "link" );
47 - $stLink = "&pg=".$link["pg"]."&pos=".$link["pos"]."&stAcao=".$_REQUEST['stAcao']; 47 + $stLink = "&pg=".Sessao::read("pg")."&pos=".Sessao::read( "pos" )."&stAcao=".$_REQUEST['stAcao'];
48 ?> 48 ?>
49 mudaTelaPrincipal("<?=$pgList.'?'.Sessao::getId().$stLink;?>"); 49 mudaTelaPrincipal("<?=$pgList.'?'.Sessao::getId().$stLink;?>");
50 } 50 }
gestaoFinanceira/fontes/PHP/ppa/instancias/regioes/LSManterRegioes.php
  Diff comments   View file @842bba7
@@ -64,7 +64,7 @@ $stCaminho = CAM_GF_PPA_INSTANCIAS.&quot;regioes/&quot;; @@ -64,7 +64,7 @@ $stCaminho = CAM_GF_PPA_INSTANCIAS.&quot;regioes/&quot;;
64 $obTPPARegiao = new TPPARegiao; 64 $obTPPARegiao = new TPPARegiao;
65 65
66 //Define a função do arquivo, ex: incluir, excluir, alterar, consultar, etc 66 //Define a função do arquivo, ex: incluir, excluir, alterar, consultar, etc
67 -$stAcao = $_GET['stAcao'] ? $_GET['stAcao'] : $_POST['stAcao']; 67 +$stAcao = $request->get('stAcao');
68 if ( empty( $stAcao ) ) { 68 if ( empty( $stAcao ) ) {
69 $stAcao = "alterar"; 69 $stAcao = "alterar";
70 } 70 }
@@ -75,20 +75,27 @@ switch ($stAcao) { @@ -75,20 +75,27 @@ switch ($stAcao) {
75 DEFAULT : $pgProx = $pgForm; 75 DEFAULT : $pgProx = $pgForm;
76 } 76 }
77 77
78 -if ($_GET["pg"] and $_GET["pos"]) {  
79 - $sessao->link["pg"] = $_GET["pg"];  
80 - $sessao->link["pos"] = $_GET["pos"];  
81 -} elseif ( is_array($sessao->link) ) {  
82 - $_GET = $sessao->link;  
83 - $_REQUEST = $sessao->link;  
84 -} else {  
85 - foreach ($_REQUEST as $key => $valor) {  
86 - $sessao->link[$key] = $valor; 78 +$pg = $request->get('pg', 0);
  79 +$pos = $request->get('pos', 0);
  80 +
  81 +if ( !Sessao::read('paginando') ) {
  82 + foreach ($request->getAll() as $stCampo => $stValor) {
  83 + $arFiltro[$stCampo] = $stValor;
87 } 84 }
  85 + Sessao::write('pg', $pg);
  86 + Sessao::write('pos', $pos);
  87 + Sessao::write('paginando', true);
  88 + Sessao::write('filtro', $arFiltro);
  89 +} else {
  90 + Sessao::write('pg', $pg);
  91 + Sessao::write('pos',$pos);
  92 + $arFiltro = Sessao::read('filtro');
88 } 93 }
  94 +// Foi neecessário reescrever sobre o Objeto Request para receber os novos parametros.
  95 +$request = new Request($_REQUEST);
89 96
90 $obRegra = new RPPAManterRegiao(); 97 $obRegra = new RPPAManterRegiao();
91 $obVisao = new VPPAManterRegiao( $obRegra ); 98 $obVisao = new VPPAManterRegiao( $obRegra );
92 -$obVisao->listar($_REQUEST); 99 +$obVisao->listar($request);
93 100
94 ?> 101 ?>
gestaoFinanceira/fontes/PHP/ppa/instancias/regioes/PRManterRegioes.php
  Diff comments   View file @842bba7
@@ -55,6 +55,6 @@ $pgOcul = &quot;OC&quot;.$stPrograma.&quot;.php&quot;; @@ -55,6 +55,6 @@ $pgOcul = &quot;OC&quot;.$stPrograma.&quot;.php&quot;;
55 55
56 $obRegraRegiao = new RPPAManterRegiao(); 56 $obRegraRegiao = new RPPAManterRegiao();
57 $obVisaoRegiao = new VPPAManterRegiao( $obRegraRegiao ); 57 $obVisaoRegiao = new VPPAManterRegiao( $obRegraRegiao );
58 -$obVisaoRegiao->executarAcao($_REQUEST); 58 +$obVisaoRegiao->executarAcao($request);
59 59
60 ?> 60 ?>
gestaoFinanceira/fontes/PHP/tesouraria/classes/componentes/IMontaContaCheque.class.php
  Diff comments   View file @842bba7
@@ -125,7 +125,7 @@ class IMontaContaCheque extends Componente @@ -125,7 +125,7 @@ class IMontaContaCheque extends Componente
125 $this->setVinculoPlanoBanco(false); 125 $this->setVinculoPlanoBanco(false);
126 } 126 }
127 127
128 - public function setObrigatorioBarra() 128 + public function setObrigatorioBarra($valor = true)
129 { 129 {
130 $this->obBscCheque->setNull(true); 130 $this->obBscCheque->setNull(true);
131 $this->obBscCheque->setObrigatorioBarra(true); 131 $this->obBscCheque->setObrigatorioBarra(true);
gestaoFinanceira/fontes/PHP/tesouraria/classes/controle/CTesourariaCheque.class.php
  Diff comments   View file @842bba7
@@ -45,7 +45,7 @@ class CTesourariaCheque @@ -45,7 +45,7 @@ class CTesourariaCheque
45 * 45 *
46 * @return void 46 * @return void
47 */ 47 */
48 - public function __construct(&$obModel) 48 + public function __construct($obModel)
49 { 49 {
50 $this->obModel = $obModel; 50 $this->obModel = $obModel;
51 } 51 }
@@ -60,7 +60,7 @@ class CTesourariaCheque @@ -60,7 +60,7 @@ class CTesourariaCheque
60 * @return void 60 * @return void
61 */ 61 */
62 public function incluir($arParam) 62 public function incluir($arParam)
63 - { 63 + {
64 $this->obModel->obRMONContaCorrente->obRMONAgencia->obRMONBanco->stNumBanco = $arParam['inCodBancoTxt' ]; 64 $this->obModel->obRMONContaCorrente->obRMONAgencia->obRMONBanco->stNumBanco = $arParam['inCodBancoTxt' ];
65 $this->obModel->obRMONContaCorrente->obRMONAgencia->stNumAgencia = $arParam['stNumAgenciaTxt']; 65 $this->obModel->obRMONContaCorrente->obRMONAgencia->stNumAgencia = $arParam['stNumAgenciaTxt'];
66 $this->obModel->obRMONContaCorrente->stNumeroConta = $arParam['stContaCorrente']; 66 $this->obModel->obRMONContaCorrente->stNumeroConta = $arParam['stContaCorrente'];
@@ -177,6 +177,8 @@ class CTesourariaCheque @@ -177,6 +177,8 @@ class CTesourariaCheque
177 public function emitir($arParam) 177 public function emitir($arParam)
178 { 178 {
179 $obErro = new Erro(); 179 $obErro = new Erro();
  180 + $obTransacao = new Transacao;
  181 + $obErro =$obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
180 $arCheques = Sessao::read('arCheque'); 182 $arCheques = Sessao::read('arCheque');
181 183
182 if (count($arCheques) == 0) { 184 if (count($arCheques) == 0) {
@@ -204,32 +206,36 @@ class CTesourariaCheque @@ -204,32 +206,36 @@ class CTesourariaCheque
204 break; 206 break;
205 case 'transferencia': 207 case 'transferencia':
206 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arParam['inCodLote']; 208 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arParam['inCodLote'];
207 - $this->obModel->roRTesourariaBoletim->stExercicio = $arParam['stExercicio'];  
208 - $this->obModel->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arParam['inCodEntidade'];  
209 - $this->obModel->obRTesourariaAutenticacao->stTipo = $arParam['stTipo']; 209 + $this->obModel->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio = $arParam['stExercicio'];
  210 + $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arParam['inCodEntidade'];
  211 + $this->obModel->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo = $arParam['stTipo'];
210 212
211 break; 213 break;
212 -  
213 } 214 }
214 - //Percorre todos o array de cheques inserindo os dados nas tabelas necessarias  
215 - foreach ($arCheques as $arCheque) {  
216 - if (!$obErro->ocorreu()) {  
217 - $this->obModel->stNumCheque = $arCheque['num_cheque' ];  
218 - $this->obModel->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco = $arCheque['cod_banco' ];  
219 - $this->obModel->obRMONContaCorrente->obRMONAgencia->inCodAgencia = $arCheque['cod_agencia' ];  
220 - $this->obModel->obRMONContaCorrente->inCodigoConta = $arCheque['cod_conta_corrente'];  
221 - $this->obModel->stDtEmissao = $arParam ['stDtEmissao' ];  
222 - $this->obModel->flValor = $arCheque['valor' ];  
223 - $this->obModel->stDescricao = $arCheque['descricao' ];  
224 - if ($arParam['stTipoEmissaoCheque'] == 'ordem_pagamento') {  
225 - $obErro = $this->obModel->emitirPorOP();  
226 - } elseif ($arParam['stTipoEmissaoCheque'] == 'despesa_extra') {  
227 - $obErro = $this->obModel->emitirPorReciboExtra($arParam);  
228 - } else {  
229 - $obErro = $this->obModel->emitirPorTransferencia();  
230 - }  
231 - if ($obErro->ocorreu()) {  
232 - break; 215 +
  216 + $obErro = $this->obModel->obTTesourariaChequeEmissao->recuperaNow($stTimestamp, $boTransacao);
  217 + if (!$obErro->ocorreu()) {
  218 + //Percorre todos o array de cheques inserindo os dados nas tabelas necessarias
  219 + foreach ($arCheques as $arCheque) {
  220 + if (!$obErro->ocorreu()) {
  221 + $this->obModel->stNumCheque = $arCheque['num_cheque' ];
  222 + $this->obModel->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco = $arCheque['cod_banco' ];
  223 + $this->obModel->obRMONContaCorrente->obRMONAgencia->inCodAgencia = $arCheque['cod_agencia' ];
  224 + $this->obModel->obRMONContaCorrente->inCodigoConta = $arCheque['cod_conta_corrente'];
  225 + $this->obModel->stDtEmissao = $arParam ['stDtEmissao' ];
  226 + $this->obModel->flValor = $arCheque['valor' ];
  227 + $this->obModel->stDescricao = $arCheque['descricao' ];
  228 + $this->obModel->stTimestampEmissao = $stTimestamp;
  229 + if ($arParam['stTipoEmissaoCheque'] == 'ordem_pagamento') {
  230 + $obErro = $this->obModel->emitirPorOP($boTransacao);
  231 + } elseif ($arParam['stTipoEmissaoCheque'] == 'despesa_extra') {
  232 + $obErro = $this->obModel->emitirPorReciboExtra($arParam,$boTransacao);
  233 + } else {
  234 + $obErro = $this->obModel->emitirPorTransferencia($boTransacao);
  235 + }
  236 + if ($obErro->ocorreu()) {
  237 + break;
  238 + }
233 } 239 }
234 } 240 }
235 } 241 }
@@ -238,6 +244,7 @@ class CTesourariaCheque @@ -238,6 +244,7 @@ class CTesourariaCheque
238 if (!$obErro->ocorreu()) { 244 if (!$obErro->ocorreu()) {
239 $stMensagem = 'Cheque(s) emitido(s) com sucesso'; 245 $stMensagem = 'Cheque(s) emitido(s) com sucesso';
240 SistemaLegado::alertaAviso('LSManterImprimirCheque.php' . '?' . Sessao::getId() . '&stAcao='.$arParam['stAcao'], $stMensagem,'aviso', Sessao::getId(), "../"); 246 SistemaLegado::alertaAviso('LSManterImprimirCheque.php' . '?' . Sessao::getId() . '&stAcao='.$arParam['stAcao'], $stMensagem,'aviso', Sessao::getId(), "../");
  247 + $obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obModel->obTTesourariaChequeEmissao);
241 } else { 248 } else {
242 sistemaLegado::exibeAviso($obErro->getDescricao(), 'n_incluir', 'erro'); 249 sistemaLegado::exibeAviso($obErro->getDescricao(), 'n_incluir', 'erro');
243 } 250 }
@@ -720,9 +727,9 @@ class CTesourariaCheque @@ -720,9 +727,9 @@ class CTesourariaCheque
720 break; 727 break;
721 case 'transferencia': 728 case 'transferencia':
722 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arParam['inCodLote']; 729 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arParam['inCodLote'];
723 - $this->obModel->roRTesourariaBoletim->stExercicio = $arParam['stExercicio'];  
724 - $this->obModel->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arParam['inCodEntidade'];  
725 - $this->obModel->obRTesourariaAutenticacao->stTipo = $arParam['stTipo']; 730 + $this->obModel->obRTesourariaTransferencia->roRTesourariaBoletim->setExercicio = $arParam['stExercicio'];
  731 + $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arParam['inCodEntidade'];
  732 + $this->obModel->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo = $arParam['stTipo'];
726 $this->obModel->listChequesTransferencia($rsCheque); 733 $this->obModel->listChequesTransferencia($rsCheque);
727 734
728 break; 735 break;
@@ -1028,9 +1035,9 @@ class CTesourariaCheque @@ -1028,9 +1035,9 @@ class CTesourariaCheque
1028 if (strstr($stKey,'transferencia')) { 1035 if (strstr($stKey,'transferencia')) {
1029 $arTransferencia = explode('_',$stKey); 1036 $arTransferencia = explode('_',$stKey);
1030 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arTransferencia[1]; 1037 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arTransferencia[1];
1031 - $this->obModel->obRContabilidadeLancamentoValor->bRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arTransferencia[2];  
1032 - $this->obModel->roRTesourariaBoletim->stExercicio = $arTransferencia[3];  
1033 - $this->obModel->obRTesourariaAutenticacao->stTipo = $arTransferencia[4]; 1038 + $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->bRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arTransferencia[2];
  1039 + $this->obModel->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio = $arTransferencia[3];
  1040 + $this->obModel->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo = $arTransferencia[4];
1034 1041
1035 $this->obModel->listChequesTransferencia($rsCheque); 1042 $this->obModel->listChequesTransferencia($rsCheque);
1036 1043
@@ -1073,9 +1080,9 @@ class CTesourariaCheque @@ -1073,9 +1080,9 @@ class CTesourariaCheque
1073 if (strstr($stKey,'transferencia')) { 1080 if (strstr($stKey,'transferencia')) {
1074 $arTransferencia = explode('_',$stKey); 1081 $arTransferencia = explode('_',$stKey);
1075 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arTransferencia[1]; 1082 $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote = $arTransferencia[1];
1076 - $this->obModel->obRContabilidadeLancamentoValor->bRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arTransferencia[2];  
1077 - $this->obModel->roRTesourariaBoletim->stExercicio = $arTransferencia[3];  
1078 - $this->obModel->obRTesourariaAutenticacao->stTipo = $arTransferencia[4]; 1083 + $this->obModel->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->bRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade = $arTransferencia[2];
  1084 + $this->obModel->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio = $arTransferencia[3];
  1085 + $this->obModel->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo = $arTransferencia[4];
1079 1086
1080 $this->obModel->listChequesTransferencia($rsCheque); 1087 $this->obModel->listChequesTransferencia($rsCheque);
1081 1088
gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaChequeEmissao.class.php
  Diff comments   View file @842bba7
@@ -53,16 +53,18 @@ class TTesourariaChequeEmissao extends Persistente @@ -53,16 +53,18 @@ class TTesourariaChequeEmissao extends Persistente
53 $this->setCampoCod (''); 53 $this->setCampoCod ('');
54 $this->setComplementoChave('cod_agencia, cod_banco, cod_conta_corrente, num_cheque'); 54 $this->setComplementoChave('cod_agencia, cod_banco, cod_conta_corrente, num_cheque');
55 55
56 - $this->AddCampo('cod_agencia' ,'integer', true , '' , true , true );  
57 - $this->AddCampo('cod_banco' ,'integer', true , '' , true , true );  
58 - $this->AddCampo('cod_conta_corrente' ,'integer', true , '' , true , true );  
59 - $this->AddCampo('num_cheque' ,'varchar', true , '15' , true , true );  
60 - $this->AddCampo('data_emissao' ,'date' , true , '' , false, false);  
61 - $this->AddCampo('valor' ,'numeric', true , '14,2' , false, false);  
62 - $this->AddCampo('descricao' ,'text' , false, '' , false, false); 56 + $this->AddCampo('cod_agencia' ,'integer' , true , '' , true , true );
  57 + $this->AddCampo('cod_banco' ,'integer' , true , '' , true , true );
  58 + $this->AddCampo('cod_conta_corrente' ,'integer' , true , '' , true , true );
  59 + $this->AddCampo('num_cheque' ,'varchar' , true , '15' , true , true );
  60 + $this->AddCampo('data_emissao' ,'date' , true , '' , false, false);
  61 + $this->AddCampo('valor' ,'numeric' , true , '14,2' , false, false);
  62 + $this->AddCampo('descricao' ,'text' , false, '' , false, false);
  63 + $this->AddCampo('timestamp_emissao' ,'timestamp' , true , '' , true , false );
63 } 64 }
64 -  
65 - /** 65 +
  66 +
  67 + /**
66 * Método que retorna os cheques analitico vinculadoa emissao 68 * Método que retorna os cheques analitico vinculadoa emissao
67 * 69 *
68 * @author Analista Tonismar Bernardo <tonismar.bernardo@cnm.org.br> 70 * @author Analista Tonismar Bernardo <tonismar.bernardo@cnm.org.br>
@@ -74,7 +76,20 @@ class TTesourariaChequeEmissao extends Persistente @@ -74,7 +76,20 @@ class TTesourariaChequeEmissao extends Persistente
74 * 76 *
75 * @return object $rsRecordSet 77 * @return object $rsRecordSet
76 */ 78 */
77 - public function getChequeEmissao(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 79 + function getChequeEmissao(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  80 + {
  81 + $obErro = new Erro;
  82 + $obConexao = new Conexao;
  83 + $rsRecordSet = new RecordSet;
  84 +
  85 + $stSql = $this->recuperaChequeEmissao().$stFiltro;
  86 + $this->setDebug( $stSql );
  87 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  88 +
  89 + return $obErro;
  90 + }
  91 +
  92 + public function recuperaChequeEmissao()
78 { 93 {
79 $stSql = " 94 $stSql = "
80 SELECT cheque.num_cheque 95 SELECT cheque.num_cheque
@@ -280,7 +295,7 @@ class TTesourariaChequeEmissao extends Persistente @@ -280,7 +295,7 @@ class TTesourariaChequeEmissao extends Persistente
280 ON agencia.cod_banco = banco.cod_banco 295 ON agencia.cod_banco = banco.cod_banco
281 "; 296 ";
282 297
283 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 298 + return $stSql;
284 } 299 }
285 300
286 /** 301 /**
@@ -295,7 +310,20 @@ class TTesourariaChequeEmissao extends Persistente @@ -295,7 +310,20 @@ class TTesourariaChequeEmissao extends Persistente
295 * 310 *
296 * @return object $rsRecordSet 311 * @return object $rsRecordSet
297 */ 312 */
298 - public function getChequeAnulacao(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 313 +
  314 + function getChequeAnulacao(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  315 + {
  316 + $obErro = new Erro;
  317 + $obConexao = new Conexao;
  318 + $rsRecordSet = new RecordSet;
  319 +
  320 + $stSql = $this->recuperaChequeAnulacao().$stFiltro;
  321 + $this->setDebug( $stSql );
  322 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  323 +
  324 + return $obErro;
  325 + }
  326 + public function recuperaChequeAnulacao()
299 { 327 {
300 $stSql = " 328 $stSql = "
301 SELECT cheque.num_cheque 329 SELECT cheque.num_cheque
@@ -541,7 +569,9 @@ class TTesourariaChequeEmissao extends Persistente @@ -541,7 +569,9 @@ class TTesourariaChequeEmissao extends Persistente
541 AND cheque_emissao.timestamp_emissao = cheque_emissao_anulada.timestamp_emissao 569 AND cheque_emissao.timestamp_emissao = cheque_emissao_anulada.timestamp_emissao
542 "; 570 ";
543 571
544 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 572 + return $stSql;
545 } 573 }
  574 +
  575 +public function __destruct(){}
546 576
547 } 577 }
gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaChequeEmissaoOrdemPagamento.class.php
  Diff comments   View file @842bba7
@@ -30,7 +30,7 @@ @@ -30,7 +30,7 @@
30 * @package Tesouraria 30 * @package Tesouraria
31 * @author Analista Tonismar Bernardo <tonismar.bernardo@cnm.org.br> 31 * @author Analista Tonismar Bernardo <tonismar.bernardo@cnm.org.br>
32 * @author Desenvolvedor Henrique Boaventura <henrique.boaventura@cnm.org.br> 32 * @author Desenvolvedor Henrique Boaventura <henrique.boaventura@cnm.org.br>
33 - * $Id:$ 33 + * $Id: TTesourariaChequeEmissaoOrdemPagamento.class.php 66022 2016-07-07 20:23:42Z fabio $
34 */ 34 */
35 35
36 include_once CLA_PERSISTENTE; 36 include_once CLA_PERSISTENTE;
@@ -60,6 +60,7 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente @@ -60,6 +60,7 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
60 $this->AddCampo('cod_banco' ,'integer' , true, '' ,true , true); 60 $this->AddCampo('cod_banco' ,'integer' , true, '' ,true , true);
61 $this->AddCampo('cod_conta_corrente' ,'integer' , true, '' ,true , true); 61 $this->AddCampo('cod_conta_corrente' ,'integer' , true, '' ,true , true);
62 $this->AddCampo('num_cheque' ,'varchar' , true, '15',true , true); 62 $this->AddCampo('num_cheque' ,'varchar' , true, '15',true , true);
  63 + $this->AddCampo('timestamp_emissao' ,'timestamp', true, '' ,true , false );
63 } 64 }
64 65
65 /** 66 /**
@@ -74,7 +75,21 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente @@ -74,7 +75,21 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
74 * 75 *
75 * @return object $rsRecordSet 76 * @return object $rsRecordSet
76 */ 77 */
77 - public function recuperaChequesOPSaldo(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 78 +
  79 + function recuperaChequesOPSaldo(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  80 + {
  81 + $obErro = new Erro;
  82 + $obConexao = new Conexao;
  83 + $rsRecordSet = new RecordSet;
  84 +
  85 + $stSql = $this->getChequesOPSaldo().$stFiltro;
  86 + $this->setDebug( $stSql );
  87 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  88 +
  89 + return $obErro;
  90 + }
  91 +
  92 + public function getChequesOPSaldo()
78 { 93 {
79 $stSql = " 94 $stSql = "
80 SELECT ordem_pagamento.nom_entidade 95 SELECT ordem_pagamento.nom_entidade
@@ -152,7 +167,7 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente @@ -152,7 +167,7 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
152 AND ordem_pagamento.cod_entidade = ordem_pagamento_retencao.cod_entidade 167 AND ordem_pagamento.cod_entidade = ordem_pagamento_retencao.cod_entidade
153 "; 168 ";
154 169
155 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 170 + return $stSql;
156 } 171 }
157 172
158 /** 173 /**
@@ -167,7 +182,20 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente @@ -167,7 +182,20 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
167 * 182 *
168 * @return object $rsRecordSet 183 * @return object $rsRecordSet
169 */ 184 */
170 - public function listChequesEmissaoOP(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 185 + function listChequesEmissaoOP(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  186 + {
  187 + $obErro = new Erro;
  188 + $obConexao = new Conexao;
  189 + $rsRecordSet = new RecordSet;
  190 +
  191 + $stSql = $this->recuperaListChequesEmissaoOP($stFiltro);
  192 + $this->setDebug( $stSql );
  193 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  194 +
  195 + return $obErro;
  196 + }
  197 +
  198 + public function recuperaListChequesEmissaoOP( $stFiltro = "" )
171 { 199 {
172 $stSql = " 200 $stSql = "
173 SELECT cheque.num_cheque 201 SELECT cheque.num_cheque
@@ -244,13 +272,26 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente @@ -244,13 +272,26 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
244 "; 272 ";
245 273
246 if ($stFiltro != '') { 274 if ($stFiltro != '') {
247 - $stFiltro = " WHERE " . substr($stFiltro,0,-4); 275 + $stSql .= " WHERE " . substr($stFiltro,0,-4);
248 } 276 }
249 277
250 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 278 + return $stSql;
251 } 279 }
252 -  
253 - public function recuperaPorChaveNaoAnulada(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 280 +
  281 + function recuperaPorChaveNaoAnulada(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  282 + {
  283 + $obErro = new Erro;
  284 + $obConexao = new Conexao;
  285 + $rsRecordSet = new RecordSet;
  286 +
  287 + $stSql = $this->getPorChaveNaoAnulada().$stFiltro;
  288 + $this->setDebug( $stSql );
  289 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  290 +
  291 + return $obErro;
  292 + }
  293 +
  294 + public function getPorChaveNaoAnulada()
254 { 295 {
255 $stSql = " SELECT 296 $stSql = " SELECT
256 cheque_emissao_ordem_pagamento.* 297 cheque_emissao_ordem_pagamento.*
@@ -269,8 +310,9 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente @@ -269,8 +310,9 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
269 AND cheque_emissao_ordem_pagamento.exercicio = '".$this->getDado('exercicio')."' 310 AND cheque_emissao_ordem_pagamento.exercicio = '".$this->getDado('exercicio')."'
270 AND cheque_emissao_ordem_pagamento.cod_entidade = ".$this->getDado('cod_entidade'); 311 AND cheque_emissao_ordem_pagamento.cod_entidade = ".$this->getDado('cod_entidade');
271 312
272 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao);  
273 - 313 + return $stSql;
274 } 314 }
275 315
  316 + public function __destruct(){}
  317 +
276 } 318 }
gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaChequeEmissaoReciboExtra.class.php
  Diff comments   View file @842bba7
@@ -53,14 +53,15 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente @@ -53,14 +53,15 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
53 $this->setCampoCod (''); 53 $this->setCampoCod ('');
54 $this->setComplementoChave('cod_recibo_extra, cod_entidade, exercicio, tipo_recibo, cod_agencia, cod_banco, cod_conta_corrente, num_cheque'); 54 $this->setComplementoChave('cod_recibo_extra, cod_entidade, exercicio, tipo_recibo, cod_agencia, cod_banco, cod_conta_corrente, num_cheque');
55 55
56 - $this->AddCampo('cod_recibo_extra' ,'integer', true , '' , true , true );  
57 - $this->AddCampo('cod_entidade' ,'integer', true , '' , true , true );  
58 - $this->AddCampo('exercicio' ,'varchar', true , '4' , true , true );  
59 - $this->AddCampo('tipo_recibo' ,'varchar', true , '1' , true , true );  
60 - $this->AddCampo('cod_agencia' ,'integer', true , '' , true , true );  
61 - $this->AddCampo('cod_banco' ,'integer', true , '' , true , true );  
62 - $this->AddCampo('cod_conta_corrente' ,'integer', true , '' , true , true );  
63 - $this->AddCampo('num_cheque' ,'varchar', true , '15' , true , true ); 56 + $this->AddCampo('cod_recibo_extra' ,'integer' , true , '' , true , true );
  57 + $this->AddCampo('cod_entidade' ,'integer' , true , '' , true , true );
  58 + $this->AddCampo('exercicio' ,'varchar' , true , '4' , true , true );
  59 + $this->AddCampo('tipo_recibo' ,'varchar' , true , '1' , true , true );
  60 + $this->AddCampo('cod_agencia' ,'integer' , true , '' , true , true );
  61 + $this->AddCampo('cod_banco' ,'integer' , true , '' , true , true );
  62 + $this->AddCampo('cod_conta_corrente' ,'integer' , true , '' , true , true );
  63 + $this->AddCampo('num_cheque' ,'varchar' , true , '15' , true , true );
  64 + $this->AddCampo('timestamp_emissao' ,'timestamp' , true , '' , true , false );
64 } 65 }
65 66
66 /** 67 /**
@@ -75,7 +76,21 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente @@ -75,7 +76,21 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
75 * 76 *
76 * @return object $rsRecordSet 77 * @return object $rsRecordSet
77 */ 78 */
78 - public function recuperaChequeReciboExtraSaldo(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 79 +
  80 + function recuperaChequeReciboExtraSaldo(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  81 + {
  82 + $obErro = new Erro;
  83 + $obConexao = new Conexao;
  84 + $rsRecordSet = new RecordSet;
  85 +
  86 + $stSql = $this->getChequeReciboExtraSaldo().$stFiltro;
  87 + $this->setDebug( $stSql );
  88 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  89 +
  90 + return $obErro;
  91 + }
  92 +
  93 + public function getChequeReciboExtraSaldo()
79 { 94 {
80 $stSql = " 95 $stSql = "
81 SELECT recibo_extra.cod_recibo_extra 96 SELECT recibo_extra.cod_recibo_extra
@@ -143,7 +158,7 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente @@ -143,7 +158,7 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
143 ) 158 )
144 AND (recibo_extra.valor - COALESCE(cheque_emissao_recibo_extra.valor,0.00)) > 0 "; 159 AND (recibo_extra.valor - COALESCE(cheque_emissao_recibo_extra.valor,0.00)) > 0 ";
145 160
146 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 161 + return $stSql;
147 } 162 }
148 163
149 /** 164 /**
@@ -158,7 +173,20 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente @@ -158,7 +173,20 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
158 * 173 *
159 * @return object $rsRecordSet 174 * @return object $rsRecordSet
160 */ 175 */
161 - public function listChequesEmissaoReciboExtra(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 176 + function listChequesEmissaoReciboExtra(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  177 + {
  178 + $obErro = new Erro;
  179 + $obConexao = new Conexao;
  180 + $rsRecordSet = new RecordSet;
  181 +
  182 + $stSql = $this->recuperaChequesEmissaoReciboExtra().$stFiltro;
  183 + $this->setDebug( $stSql );
  184 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  185 +
  186 + return $obErro;
  187 + }
  188 +
  189 + public function recuperaChequesEmissaoReciboExtra()
162 { 190 {
163 $stSql = " 191 $stSql = "
164 SELECT cheque.num_cheque 192 SELECT cheque.num_cheque
@@ -227,7 +255,9 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente @@ -227,7 +255,9 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
227 AND plano_banco.exercicio = '" . Sessao::getExercicio() . "' 255 AND plano_banco.exercicio = '" . Sessao::getExercicio() . "'
228 "; 256 ";
229 257
230 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 258 + return $stSql;
231 } 259 }
  260 +
  261 + public function __destruct(){}
232 262
233 } 263 }
gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaChequeEmissaoTransferencia.class.php
  Diff comments   View file @842bba7
@@ -53,17 +53,32 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente @@ -53,17 +53,32 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
53 $this->setCampoCod (''); 53 $this->setCampoCod ('');
54 $this->setComplementoChave('cod_lote, cod_entidade, exercicio, tipo, cod_agencia, cod_banco, cod_conta_corrente, num_cheque'); 54 $this->setComplementoChave('cod_lote, cod_entidade, exercicio, tipo, cod_agencia, cod_banco, cod_conta_corrente, num_cheque');
55 55
56 - $this->AddCampo('cod_lote' ,'integer', true , '' , true , true );  
57 - $this->AddCampo('cod_entidade' ,'integer', true , '' , true , true );  
58 - $this->AddCampo('exercicio' ,'varchar', true , '4' , true , true );  
59 - $this->AddCampo('tipo' ,'varchar', true , '1' , true , true );  
60 - $this->AddCampo('cod_agencia' ,'integer', true , '' , true , true );  
61 - $this->AddCampo('cod_banco' ,'integer', true , '' , true , true );  
62 - $this->AddCampo('cod_conta_corrente' ,'integer', true , '' , true , true );  
63 - $this->AddCampo('num_cheque' ,'varchar', true , '15' , true , true ); 56 + $this->AddCampo('cod_lote' ,'integer' , true , '' , true , true );
  57 + $this->AddCampo('cod_entidade' ,'integer' , true , '' , true , true );
  58 + $this->AddCampo('exercicio' ,'varchar' , true , '4' , true , true );
  59 + $this->AddCampo('tipo' ,'varchar' , true , '1' , true , true );
  60 + $this->AddCampo('cod_agencia' ,'integer' , true , '' , true , true );
  61 + $this->AddCampo('cod_banco' ,'integer' , true , '' , true , true );
  62 + $this->AddCampo('cod_conta_corrente' ,'integer' , true , '' , true , true );
  63 + $this->AddCampo('num_cheque' ,'varchar' , true , '15' , true , true );
  64 + $this->AddCampo('timestamp_emissao' ,'timestamp' , true , '' , true , false );
64 } 65 }
65 -  
66 - public function recuperaChequeTransferenciaSaldo(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 66 +
  67 +
  68 + function recuperaChequeTransferenciaSaldo(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  69 + {
  70 + $obErro = new Erro;
  71 + $obConexao = new Conexao;
  72 + $rsRecordSet = new RecordSet;
  73 +
  74 + $stSql = $this->getChequeTransferenciaSaldo();
  75 + $this->setDebug( $stSql );
  76 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  77 +
  78 + return $obErro;
  79 + }
  80 +
  81 + public function getChequeTransferenciaSaldo()
67 { 82 {
68 $stSql = " 83 $stSql = "
69 SELECT 84 SELECT
@@ -205,7 +220,7 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente @@ -205,7 +220,7 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
205 220
206 "; 221 ";
207 222
208 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 223 + return $stSql;
209 } 224 }
210 225
211 /** 226 /**
@@ -220,7 +235,21 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente @@ -220,7 +235,21 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
220 * 235 *
221 * @return object $rsRecordSet 236 * @return object $rsRecordSet
222 */ 237 */
223 - public function listChequesEmissaoTransferencia(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 238 +
  239 + function listChequesEmissaoTransferencia(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  240 + {
  241 + $obErro = new Erro;
  242 + $obConexao = new Conexao;
  243 + $rsRecordSet = new RecordSet;
  244 +
  245 + $stSql = $this->recuperaChequesEmissaoTransferencia().$stFiltro;
  246 + $this->setDebug( $stSql );
  247 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  248 +
  249 + return $obErro;
  250 + }
  251 +
  252 + public function recuperaChequesEmissaoTransferencia()
224 { 253 {
225 $stSql = " 254 $stSql = "
226 SELECT cheque.num_cheque 255 SELECT cheque.num_cheque
@@ -282,7 +311,7 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente @@ -282,7 +311,7 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
282 ON agencia.cod_banco = banco.cod_banco 311 ON agencia.cod_banco = banco.cod_banco
283 "; 312 ";
284 313
285 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 314 + return $stSql;
286 } 315 }
287 316
288 /** 317 /**
@@ -297,7 +326,21 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente @@ -297,7 +326,21 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
297 * 326 *
298 * @return object $rsRecordSet 327 * @return object $rsRecordSet
299 */ 328 */
300 - public function listChequesEmissaoTransferenciaBaixa(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") 329 +
  330 + function listChequesEmissaoTransferenciaBaixa(&$rsRecordSet, $stFiltro = "",$stOrder="",$boTransacao="")
  331 + {
  332 + $obErro = new Erro;
  333 + $obConexao = new Conexao;
  334 + $rsRecordSet = new RecordSet;
  335 +
  336 + $stSql = $this->recuperaChequesEmissaoTransferenciaBaixa();
  337 + $this->setDebug( $stSql );
  338 + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql );
  339 +
  340 + return $obErro;
  341 + }
  342 +
  343 + public function recuperaChequesEmissaoTransferenciaBaixa()
301 { 344 {
302 $stSql = " 345 $stSql = "
303 SELECT 346 SELECT
@@ -505,7 +548,8 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente @@ -505,7 +548,8 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
505 AND cheque_emissao_transferencia.tipo = t.tipo 548 AND cheque_emissao_transferencia.tipo = t.tipo
506 "; 549 ";
507 550
508 - return $this->executaRecuperaSql($stSql,$rsRecordSet,$stFiltro,$stOrder,$boTransacao); 551 + return $stSql;
509 } 552 }
510 553
  554 + public function __destruct(){}
511 } 555 }
gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaCheque.class.php
  Diff comments   View file @842bba7
@@ -76,6 +76,7 @@ class RTesourariaCheque @@ -76,6 +76,7 @@ class RTesourariaCheque
76 $stTimestampEmissao, 76 $stTimestampEmissao,
77 $stTimestampBaixa, 77 $stTimestampBaixa,
78 $stAcao; 78 $stAcao;
  79 +
79 80
80 /** 81 /**
81 * Método contrutor, instancia as classes necessarias. 82 * Método contrutor, instancia as classes necessarias.
@@ -170,10 +171,10 @@ class RTesourariaCheque @@ -170,10 +171,10 @@ class RTesourariaCheque
170 * 171 *
171 * @return object $obErro 172 * @return object $obErro
172 */ 173 */
173 - public function emitirPorOP($boTransacao = '') 174 + public function emitirPorOP($boTransacao)
174 { 175 {
175 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao); 176 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
176 - 177 +
177 //Insere na table tesouraria.emissao_cheque 178 //Insere na table tesouraria.emissao_cheque
178 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque ); 179 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque );
179 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco); 180 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco);
@@ -182,7 +183,8 @@ class RTesourariaCheque @@ -182,7 +183,8 @@ class RTesourariaCheque
182 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor ); 183 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor );
183 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao ); 184 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao );
184 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao ); 185 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao );
185 - $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao); 186 + $this->obTTesourariaChequeEmissao->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
  187 + $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao);
186 188
187 if (!$obErro->ocorreu()) { 189 if (!$obErro->ocorreu()) {
188 //Insere na table tesouraria.emissao_cheque_ordem_pagamento 190 //Insere na table tesouraria.emissao_cheque_ordem_pagamento
@@ -193,11 +195,12 @@ class RTesourariaCheque @@ -193,11 +195,12 @@ class RTesourariaCheque
193 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('cod_ordem' ,$this->obREmpenhoOrdemPagamento->inCodigoOrdem ); 195 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('cod_ordem' ,$this->obREmpenhoOrdemPagamento->inCodigoOrdem );
194 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('exercicio' ,$this->obREmpenhoOrdemPagamento->stExercicio ); 196 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('exercicio' ,$this->obREmpenhoOrdemPagamento->stExercicio );
195 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('cod_entidade' ,$this->obREmpenhoOrdemPagamento->obROrcamentoEntidade->inCodigoEntidade); 197 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('cod_entidade' ,$this->obREmpenhoOrdemPagamento->obROrcamentoEntidade->inCodigoEntidade);
  198 + $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('timestamp_emissao' ,$this->stTimestampEmissao );
  199 +
196 $obErro = $this->obTTesourariaChequeEmissaoOrdemPagamento->inclusao($boTransacao); 200 $obErro = $this->obTTesourariaChequeEmissaoOrdemPagamento->inclusao($boTransacao);
197 } 201 }
198 -  
199 - $this->obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obTTesourariaChequeEmissaoOrdemPagamento);  
200 - 202 +
  203 + $this->obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obTTesourariaChequeEmissao);
201 return $obErro; 204 return $obErro;
202 } 205 }
203 206
@@ -210,10 +213,10 @@ class RTesourariaCheque @@ -210,10 +213,10 @@ class RTesourariaCheque
210 * 213 *
211 * @return object $obErro 214 * @return object $obErro
212 */ 215 */
213 - public function emitirPorTransferencia($boTransacao = '') 216 + public function emitirPorTransferencia($boTransacao)
214 { 217 {
215 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao); 218 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
216 - 219 +
217 //Insere na table tesouraria.emissao_cheque 220 //Insere na table tesouraria.emissao_cheque
218 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque ); 221 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque );
219 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco); 222 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco);
@@ -222,6 +225,7 @@ class RTesourariaCheque @@ -222,6 +225,7 @@ class RTesourariaCheque
222 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor ); 225 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor );
223 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao ); 226 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao );
224 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao ); 227 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao );
  228 + $this->obTTesourariaChequeEmissao->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
225 $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao); 229 $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao);
226 230
227 if (!$obErro->ocorreu()) { 231 if (!$obErro->ocorreu()) {
@@ -231,13 +235,14 @@ class RTesourariaCheque @@ -231,13 +235,14 @@ class RTesourariaCheque
231 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_agencia' ,$this->obRMONContaCorrente->obRMONAgencia->inCodAgencia ); 235 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_agencia' ,$this->obRMONContaCorrente->obRMONAgencia->inCodAgencia );
232 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_conta_corrente',$this->obRMONContaCorrente->inCodigoConta ); 236 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_conta_corrente',$this->obRMONContaCorrente->inCodigoConta );
233 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_lote' ,$this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote); 237 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_lote' ,$this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote);
234 - $this->obTTesourariaChequeEmissaoTransferencia->setDado ('exercicio' ,$this->roRTesourariaBoletim->stExercicio);  
235 - $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_entidade' ,$this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade);  
236 - $this->obTTesourariaChequeEmissaoTransferencia->setDado ('tipo' ,$this->obRTesourariaAutenticacao->stTipo); 238 + $this->obTTesourariaChequeEmissaoTransferencia->setDado ('exercicio' ,$this->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio);
  239 + $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_entidade' ,$this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade);
  240 + $this->obTTesourariaChequeEmissaoTransferencia->setDado ('tipo' ,$this->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo);
  241 + $this->obTTesourariaChequeEmissaoTransferencia->setDado ('timestamp_emissao' ,$this->stTimestampEmissao );
237 $obErro = $this->obTTesourariaChequeEmissaoTransferencia->inclusao($boTransacao); 242 $obErro = $this->obTTesourariaChequeEmissaoTransferencia->inclusao($boTransacao);
238 } 243 }
239 -  
240 - $this->obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obTTesourariaChequeEmissaoTransferencia); 244 +
  245 + $this->obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obTTesourariaChequeEmissao);
241 246
242 return $obErro; 247 return $obErro;
243 } 248 }
@@ -251,10 +256,10 @@ class RTesourariaCheque @@ -251,10 +256,10 @@ class RTesourariaCheque
251 * 256 *
252 * @return object $obErro 257 * @return object $obErro
253 */ 258 */
254 - public function emitirPorReciboExtra($arParam, $boTransacao = '') 259 + public function emitirPorReciboExtra($arParam, $boTransacao)
255 { 260 {
256 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao); 261 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
257 - 262 +
258 //Insere na table tesouraria.emissao_cheque 263 //Insere na table tesouraria.emissao_cheque
259 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque ); 264 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque );
260 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco); 265 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco);
@@ -263,6 +268,7 @@ class RTesourariaCheque @@ -263,6 +268,7 @@ class RTesourariaCheque
263 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor ); 268 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor );
264 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao ); 269 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao );
265 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao ); 270 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao );
  271 + $this->obTTesourariaChequeEmissao->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
266 $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao); 272 $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao);
267 273
268 if (!$obErro->ocorreu()) { 274 if (!$obErro->ocorreu()) {
@@ -275,10 +281,11 @@ class RTesourariaCheque @@ -275,10 +281,11 @@ class RTesourariaCheque
275 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('exercicio' ,$arParam['stExercicio'] ); 281 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('exercicio' ,$arParam['stExercicio'] );
276 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('cod_entidade' ,$arParam['inCodEntidade'] ); 282 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('cod_entidade' ,$arParam['inCodEntidade'] );
277 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('tipo_recibo' ,'D' ); 283 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('tipo_recibo' ,'D' );
  284 + $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
278 $obErro = $this->obTTesourariaChequeEmissaoReciboExtra->inclusao($boTransacao); 285 $obErro = $this->obTTesourariaChequeEmissaoReciboExtra->inclusao($boTransacao);
279 } 286 }
280 287
281 - $this->obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obTTesourariaChequeEmissaoReciboExtra); 288 + $this->obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obTTesourariaChequeEmissao);
282 289
283 return $obErro; 290 return $obErro;
284 } 291 }
@@ -515,11 +522,11 @@ class RTesourariaCheque @@ -515,11 +522,11 @@ class RTesourariaCheque
515 case 'transferencia': 522 case 'transferencia':
516 $stFiltro .= " AND cheque_emissao_transferencia.num_cheque IS NOT NULL "; 523 $stFiltro .= " AND cheque_emissao_transferencia.num_cheque IS NOT NULL ";
517 $stFiltro .= " AND cheque_emissao_transferencia.cod_tipo = 5 "; 524 $stFiltro .= " AND cheque_emissao_transferencia.cod_tipo = 5 ";
518 - if ($this->roRTesourariaBoletim->stExercicio) {  
519 - $stFiltro .= " AND cheque_emissao_transferencia.exercicio = '" . $this->roRTesourariaBoletim->stExercicio . "' "; 525 + if ($this->obModel->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio) {
  526 + $stFiltro .= " AND cheque_emissao_transferencia.exercicio = '" . $this->obModel->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio . "' ";
520 } 527 }
521 - if ($this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade) {  
522 - $stFiltro .= ' AND cheque_emissao_transferencia.cod_entidade = ' . $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade . ' '; 528 + if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade) {
  529 + $stFiltro .= ' AND cheque_emissao_transferencia.cod_entidade = ' .$this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade. ' ';
523 } 530 }
524 if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->inContaCredito) { 531 if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->inContaCredito) {
525 $stFiltro .= " AND cheque_emissao_transferencia.cod_plano_credito = " . $this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->inContaCredito ." "; 532 $stFiltro .= " AND cheque_emissao_transferencia.cod_plano_credito = " . $this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->inContaCredito ." ";
@@ -771,14 +778,14 @@ class RTesourariaCheque @@ -771,14 +778,14 @@ class RTesourariaCheque
771 if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote) { 778 if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote) {
772 $stFiltro .= ' cheque_emissao_transferencia.cod_lote = ' . $this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote . ' AND'; 779 $stFiltro .= ' cheque_emissao_transferencia.cod_lote = ' . $this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote . ' AND';
773 } 780 }
774 - if ($this->roRTesourariaBoletim->stExercicio) {  
775 - $stFiltro .= " cheque_emissao_transferencia.exercicio = '" . $this->roRTesourariaBoletim->stExercicio . "' AND "; 781 + if ($this->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio) {
  782 + $stFiltro .= " cheque_emissao_transferencia.exercicio = '" . $this->obRTesourariaTransferencia->roRTesourariaBoletim->stExercicio . "' AND ";
776 } 783 }
777 - if ($this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade) {  
778 - $stFiltro .= ' cheque_emissao_transferencia.cod_entidade = ' . $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade . ' AND'; 784 + if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade) {
  785 + $stFiltro .= ' cheque_emissao_transferencia.cod_entidade = ' . $this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->inCodigoEntidade . ' AND';
779 } 786 }
780 - if ($this->obRTesourariaAutenticacao->stTipo) {  
781 - $stFiltro .= " cheque_emissao_transferencia.tipo = '" . $this->obRTesourariaAutenticacao->stTipo . "' AND "; 787 + if ($this->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo) {
  788 + $stFiltro .= " cheque_emissao_transferencia.tipo = '" . $this->obRTesourariaTransferencia->obRTesourariaAutenticacao->stTipo . "' AND ";
782 } 789 }
783 790
784 if ($stFiltro != '') { 791 if ($stFiltro != '') {
gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaTransferencia.class.php
  Diff comments   View file @842bba7
@@ -33,7 +33,7 @@ @@ -33,7 +33,7 @@
33 * @package URBEM 33 * @package URBEM
34 * @subpackage Regra 34 * @subpackage Regra
35 35
36 - $Id: RTesourariaTransferencia.class.php 64224 2015-12-21 11:43:42Z luciana $ 36 + $Id: RTesourariaTransferencia.class.php 66167 2016-07-25 12:46:20Z fabio $
37 37
38 $Revision: 30668 $ 38 $Revision: 30668 $
39 $Name: $ 39 $Name: $
@@ -280,6 +280,12 @@ function transferir($boTransacao = &quot;&quot;) @@ -280,6 +280,12 @@ function transferir($boTransacao = &quot;&quot;)
280 if ( !$obErro->ocorreu() ) { 280 if ( !$obErro->ocorreu() ) {
281 $obErro = $this->roRTesourariaBoletim->incluir( $boTransacao ); 281 $obErro = $this->roRTesourariaBoletim->incluir( $boTransacao );
282 282
  283 + if ( !$obErro->ocorreu() and ($_REQUEST['inCodDocTipo'] == 1 OR $_REQUEST['inCodDocTipo'] == 2 OR $_REQUEST['inCodDocTipo'] == 3 OR $_REQUEST['inCodDocTipo'] == 99 )) {
  284 + if($_REQUEST['nroDoc'] == ''){
  285 + $obErro->setDescricao( 'Necessário preencher o campo Nr. Documento.' );
  286 + }
  287 + }
  288 +
283 if ( !$obErro->ocorreu() ) { 289 if ( !$obErro->ocorreu() ) {
284 $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->setTipo( "T" ); 290 $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->setTipo( "T" );
285 $obErro = $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->buscaProximoCodigo($boTransacao); 291 $obErro = $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->buscaProximoCodigo($boTransacao);
@@ -316,6 +322,7 @@ function transferir($boTransacao = &quot;&quot;) @@ -316,6 +322,7 @@ function transferir($boTransacao = &quot;&quot;)
316 $obErro = $obTTesourariaTransferencia->inclusao( $boTransacao ); 322 $obErro = $obTTesourariaTransferencia->inclusao( $boTransacao );
317 323
318 if (!$obErro->ocorreu()) { 324 if (!$obErro->ocorreu()) {
  325 +
319 if (SistemaLegado::isAL($boTransacao)) { 326 if (SistemaLegado::isAL($boTransacao)) {
320 include_once ( CAM_GPC_TCEAL_MAPEAMENTO ."TTipoPagamento.class.php" ); 327 include_once ( CAM_GPC_TCEAL_MAPEAMENTO ."TTipoPagamento.class.php" );
321 if ($_REQUEST['cmbTipoPagamento'] == 1) { 328 if ($_REQUEST['cmbTipoPagamento'] == 1) {
@@ -332,7 +339,25 @@ function transferir($boTransacao = &quot;&quot;) @@ -332,7 +339,25 @@ function transferir($boTransacao = &quot;&quot;)
332 $obTTipoPagamento->setDado( 'descricao' , $_REQUEST['stDescricao']); 339 $obTTipoPagamento->setDado( 'descricao' , $_REQUEST['stDescricao']);
333 $obErro = $obTTipoPagamento->inclusao( $boTransacao ); 340 $obErro = $obTTipoPagamento->inclusao( $boTransacao );
334 } 341 }
335 - 342 +
  343 + //###TCEMG
  344 + if ( !$obErro->ocorreu() ) {
  345 +
  346 + $boTipoDocTCEMG = $_REQUEST['boTipoDocTCEMG'];
  347 +
  348 + if ($boTipoDocTCEMG) {
  349 + require_once CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGTransferenciaTipoDocumento.class.php";
  350 + $obTTCEMGTransferenciaTipoDocumento = new TTCEMGTransferenciaTipoDocumento;
  351 + $obTTCEMGTransferenciaTipoDocumento->setDado( 'cod_entidade' , $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->obROrcamentoEntidade->getCodigoEntidade() );
  352 + $obTTCEMGTransferenciaTipoDocumento->setDado( 'exercicio' , $this->roRTesourariaBoletim->getExercicio() );
  353 + $obTTCEMGTransferenciaTipoDocumento->setDado( 'cod_lote' , $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->getCodLote() );
  354 + $obTTCEMGTransferenciaTipoDocumento->setDado( 'tipo' , $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->getTipo() );
  355 + $obTTCEMGTransferenciaTipoDocumento->setDado( 'cod_tipo_documento', $_REQUEST['inCodDocTipo'] );
  356 + $obTTCEMGTransferenciaTipoDocumento->setDado( 'num_documento' , $_REQUEST['nroDoc'] );
  357 + $obErro = $obTTCEMGTransferenciaTipoDocumento->inclusao($boTransacao);
  358 + }
  359 + }
  360 +
336 if ( !$obErro->ocorreu() ) { 361 if ( !$obErro->ocorreu() ) {
337 // INSERT NO BANCO PARA TOCANTINS 362 // INSERT NO BANCO PARA TOCANTINS
338 if ( $inCodUf == 27 AND $_REQUEST['inCodTipoPagamento'] ) { 363 if ( $inCodUf == 27 AND $_REQUEST['inCodTipoPagamento'] ) {
@@ -570,8 +595,7 @@ function transferir($boTransacao = &quot;&quot;) @@ -570,8 +595,7 @@ function transferir($boTransacao = &quot;&quot;)
570 } 595 }
571 } 596 }
572 597
573 -  
574 - 598 + SistemaLegado::LiberaFrames();
575 $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obTTesourariaTransferencia ); 599 $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obTTesourariaTransferencia );
576 600
577 return $obErro; 601 return $obErro;
gestaoFinanceira/fontes/PHP/tesouraria/instancias/cheques/FMManterEmitirCheque.php
  Diff comments   View file @842bba7
@@ -43,7 +43,7 @@ include CAM_GF_TES_COMPONENTES . &#39;IMontaContaCheque.class.php&#39;; @@ -43,7 +43,7 @@ include CAM_GF_TES_COMPONENTES . &#39;IMontaContaCheque.class.php&#39;;
43 43
44 $stAcao = $request->get('stAcao'); 44 $stAcao = $request->get('stAcao');
45 $pgOcul = 'OCManterEmitirCheque.php'; 45 $pgOcul = 'OCManterEmitirCheque.php';
46 -$pgList = 'LSManterEmitirCheque.php?stAcao=' . $_REQUEST['stAcao']; 46 +$pgList = 'LSManterEmitirCheque.php?stAcao=' . $stAcao;
47 47
48 include 'JSManterEmitirCheque.js'; 48 include 'JSManterEmitirCheque.js';
49 49
@@ -67,20 +67,20 @@ $obHdnAcao-&gt;setValue ($stAcao ); @@ -67,20 +67,20 @@ $obHdnAcao-&gt;setValue ($stAcao );
67 $obHdnTipoEmissao = new Hidden(); 67 $obHdnTipoEmissao = new Hidden();
68 $obHdnTipoEmissao->setName ('stTipoEmissaoCheque' ); 68 $obHdnTipoEmissao->setName ('stTipoEmissaoCheque' );
69 $obHdnTipoEmissao->setId ('stTipoEmissaoCheque' ); 69 $obHdnTipoEmissao->setId ('stTipoEmissaoCheque' );
70 -$obHdnTipoEmissao->setValue ($_REQUEST['stTipoEmissaoCheque']); 70 +$obHdnTipoEmissao->setValue ($request->get('stTipoEmissaoCheque'));
71 71
72 //Instancia um TextBox para o exercicio 72 //Instancia um TextBox para o exercicio
73 $obTxtExercicio = new TextBox(); 73 $obTxtExercicio = new TextBox();
74 $obTxtExercicio->setName ('stExercicio'); 74 $obTxtExercicio->setName ('stExercicio');
75 $obTxtExercicio->setId ('stExercicio'); 75 $obTxtExercicio->setId ('stExercicio');
76 $obTxtExercicio->setRotulo ('Exercício' ); 76 $obTxtExercicio->setRotulo ('Exercício' );
77 -$obTxtExercicio->setValue ($_REQUEST['stExercicio']); 77 +$obTxtExercicio->setValue ($request->get('stExercicio'));
78 $obTxtExercicio->setLabel (true ); 78 $obTxtExercicio->setLabel (true );
79 79
80 //Instancia o componente ILabelEntidade 80 //Instancia o componente ILabelEntidade
81 $obILabelEntidade = new ILabelEntidade($obForm ); 81 $obILabelEntidade = new ILabelEntidade($obForm );
82 -$obILabelEntidade->setCodEntidade ($_REQUEST['inCodEntidade']);  
83 -$obILabelEntidade->setExercicio ($_REQUEST['stExercicio'] ); 82 +$obILabelEntidade->setCodEntidade ($request->get('inCodEntidade'));
  83 +$obILabelEntidade->setExercicio ($request->get('stExercicio') );
84 $obILabelEntidade->setMostraCodigo (true ); 84 $obILabelEntidade->setMostraCodigo (true );
85 85
86 //Instancia um objeto Formulario 86 //Instancia um objeto Formulario
@@ -88,26 +88,26 @@ $obFormulario = new Formulario(); @@ -88,26 +88,26 @@ $obFormulario = new Formulario();
88 $obFormulario->addForm ($obForm ); 88 $obFormulario->addForm ($obForm );
89 $obFormulario->addHidden ($obHdnAcao ); 89 $obFormulario->addHidden ($obHdnAcao );
90 $obFormulario->addHidden ($obHdnTipoEmissao ); 90 $obFormulario->addHidden ($obHdnTipoEmissao );
91 -switch ($_REQUEST['stTipoEmissaoCheque']) { 91 +switch ($request->get('stTipoEmissaoCheque')) {
92 case 'ordem_pagamento': 92 case 'ordem_pagamento':
93 //Instancia um TextBox para a OP 93 //Instancia um TextBox para a OP
94 $obTxtOrdem = new TextBox(); 94 $obTxtOrdem = new TextBox();
95 $obTxtOrdem->setName ('inCodOrdem'); 95 $obTxtOrdem->setName ('inCodOrdem');
96 $obTxtOrdem->setId ('inCodOrdem'); 96 $obTxtOrdem->setId ('inCodOrdem');
97 $obTxtOrdem->setRotulo ('Nr. da OP' ); 97 $obTxtOrdem->setRotulo ('Nr. da OP' );
98 - $obTxtOrdem->setValue ($_REQUEST['inCodOrdem']); 98 + $obTxtOrdem->setValue ($request->get('inCodOrdem'));
99 $obTxtOrdem->setLabel (true ); 99 $obTxtOrdem->setLabel (true );
100 100
101 //Instancia um label para o valor da OP 101 //Instancia um label para o valor da OP
102 $obLblValorOp = new Label(); 102 $obLblValorOp = new Label();
103 $obLblValorOp->setRotulo ('Valor da OP'); 103 $obLblValorOp->setRotulo ('Valor da OP');
104 - $obLblValorOp->setValue ($_REQUEST['flValor']); 104 + $obLblValorOp->setValue ($request->get('flValor'));
105 105
106 //Instancia um label para o valor da retencao 106 //Instancia um label para o valor da retencao
107 $obTxtValorRetencao = new TextBox(); 107 $obTxtValorRetencao = new TextBox();
108 $obTxtValorRetencao->setRotulo ('Valor da Retenção'); 108 $obTxtValorRetencao->setRotulo ('Valor da Retenção');
109 $obTxtValorRetencao->setName ('flValorRetencao' ); 109 $obTxtValorRetencao->setName ('flValorRetencao' );
110 - $obTxtValorRetencao->setValue ($_REQUEST['flValorRetencao']); 110 + $obTxtValorRetencao->setValue ($request->get('flValorRetencao'));
111 $obTxtValorRetencao->setLabel (true); 111 $obTxtValorRetencao->setLabel (true);
112 112
113 $obFormulario->addTitulo ('Dados da Emissão por Ordem de Pagamento'); 113 $obFormulario->addTitulo ('Dados da Emissão por Ordem de Pagamento');
@@ -121,12 +121,12 @@ case &#39;transferencia&#39;: @@ -121,12 +121,12 @@ case &#39;transferencia&#39;:
121 //instancia hidden para o cod_lote 121 //instancia hidden para o cod_lote
122 $obHdnCodLote = new Hidden(); 122 $obHdnCodLote = new Hidden();
123 $obHdnCodLote->setName ('inCodLote'); 123 $obHdnCodLote->setName ('inCodLote');
124 - $obHdnCodLote->setValue ($_REQUEST['inCodLote']); 124 + $obHdnCodLote->setValue ($request->get('inCodLote'));
125 125
126 //instancia um hidden para o tipo 126 //instancia um hidden para o tipo
127 $obHdnTipo = new Hidden(); 127 $obHdnTipo = new Hidden();
128 $obHdnTipo->setName ('stTipo' ); 128 $obHdnTipo->setName ('stTipo' );
129 - $obHdnTipo->setValue ($_REQUEST['stTipo']); 129 + $obHdnTipo->setValue ($request->get('stTipo'));
130 130
131 //Instancia o componente IIntervaloPopUpContaBanco 131 //Instancia o componente IIntervaloPopUpContaBanco
132 include CAM_GF_CONT_COMPONENTES . 'IPopUpContaBanco.class.php'; 132 include CAM_GF_CONT_COMPONENTES . 'IPopUpContaBanco.class.php';
@@ -137,8 +137,8 @@ case &#39;transferencia&#39;: @@ -137,8 +137,8 @@ case &#39;transferencia&#39;:
137 $obIPopUpContaBancoDebito->setRotulo ('Conta Débito' ); 137 $obIPopUpContaBancoDebito->setRotulo ('Conta Débito' );
138 $obIPopUpContaBancoDebito->setTitle ('Informe a conta débito'); 138 $obIPopUpContaBancoDebito->setTitle ('Informe a conta débito');
139 $obIPopUpContaBancoDebito->setNull (true ); 139 $obIPopUpContaBancoDebito->setNull (true );
140 - $obIPopUpContaBancoDebito->setValue ($_REQUEST['stNomPlanoDebito']);  
141 - $obIPopUpContaBancoDebito->obCampoCod->setValue ($_REQUEST['inCodPlanoDebito']); 140 + $obIPopUpContaBancoDebito->setValue ($request->get('stNomPlanoDebito'));
  141 + $obIPopUpContaBancoDebito->obCampoCod->setValue ($request->get('inCodPlanoDebito'));
142 $obIPopUpContaBancoDebito->setLabel (true); 142 $obIPopUpContaBancoDebito->setLabel (true);
143 143
144 $obIPopUpContaBancoCredito = new IPopUpContaBanco(); 144 $obIPopUpContaBancoCredito = new IPopUpContaBanco();
@@ -148,8 +148,8 @@ case &#39;transferencia&#39;: @@ -148,8 +148,8 @@ case &#39;transferencia&#39;:
148 $obIPopUpContaBancoCredito->setRotulo ('Conta Crédito' ); 148 $obIPopUpContaBancoCredito->setRotulo ('Conta Crédito' );
149 $obIPopUpContaBancoCredito->setTitle ('Informe a conta crédito'); 149 $obIPopUpContaBancoCredito->setTitle ('Informe a conta crédito');
150 $obIPopUpContaBancoCredito->setNull (true ); 150 $obIPopUpContaBancoCredito->setNull (true );
151 - $obIPopUpContaBancoCredito->setValue ($_REQUEST['stNomPlanoCredito']);  
152 - $obIPopUpContaBancoCredito->obCampoCod->setValue ($_REQUEST['inCodPlanoCredito']); 151 + $obIPopUpContaBancoCredito->setValue ($request->get('stNomPlanoCredito'));
  152 + $obIPopUpContaBancoCredito->obCampoCod->setValue ($request->get('inCodPlanoCredito'));
153 $obIPopUpContaBancoCredito->setLabel (true); 153 $obIPopUpContaBancoCredito->setLabel (true);
154 154
155 $obFormulario->addTitulo ('Dados da Emissão por Transferência'); 155 $obFormulario->addTitulo ('Dados da Emissão por Transferência');
@@ -168,7 +168,7 @@ case &#39;despesa_extra&#39;: @@ -168,7 +168,7 @@ case &#39;despesa_extra&#39;:
168 $obTxtReciboExtra->setName ('inCodReciboExtra' ); 168 $obTxtReciboExtra->setName ('inCodReciboExtra' );
169 $obTxtReciboExtra->setId ('inCodReciboExtra' ); 169 $obTxtReciboExtra->setId ('inCodReciboExtra' );
170 $obTxtReciboExtra->setRotulo ('Nr. do Recibo Extra' ); 170 $obTxtReciboExtra->setRotulo ('Nr. do Recibo Extra' );
171 - $obTxtReciboExtra->setValue ($_REQUEST['inCodReciboExtra']); 171 + $obTxtReciboExtra->setValue ($request->get('inCodReciboExtra'));
172 $obTxtReciboExtra->setLabel (true ); 172 $obTxtReciboExtra->setLabel (true );
173 173
174 $obFormulario->addTitulo ('Dados da Emissão por Despesa Extra'); 174 $obFormulario->addTitulo ('Dados da Emissão por Despesa Extra');
@@ -185,22 +185,22 @@ $obTxtCredor = new TextBox(); @@ -185,22 +185,22 @@ $obTxtCredor = new TextBox();
185 $obTxtCredor->setName ('stNomCredor' ); 185 $obTxtCredor->setName ('stNomCredor' );
186 $obTxtCredor->setId ('stNomCredor' ); 186 $obTxtCredor->setId ('stNomCredor' );
187 $obTxtCredor->setRotulo ('Credor' ); 187 $obTxtCredor->setRotulo ('Credor' );
188 -$obTxtCredor->setValue ($_REQUEST['stNomCredor']); 188 +$obTxtCredor->setValue ($request->get('stNomCredor'));
189 $obTxtCredor->setLabel (true ); 189 $obTxtCredor->setLabel (true );
190 190
191 -if ($_REQUEST['stTipoEmissaoCheque'] == 'ordem_pagamento') {  
192 - $flValorCheque = str_replace(',','.',str_replace('.','',$_REQUEST['flValor']));  
193 - $flValorCheque -= str_replace(',','.',str_replace('.','',$_REQUEST['flValorRetencao'])); 191 +if ($request->get('stTipoEmissaoCheque') == 'ordem_pagamento') {
  192 + $flValorCheque = str_replace(',','.',str_replace('.','',$request->get('flValor')));
  193 + $flValorCheque -= str_replace(',','.',str_replace('.','',$request->get('flValorRetencao')));
194 $flValorCheque = number_format($flValorCheque,2,',','.'); 194 $flValorCheque = number_format($flValorCheque,2,',','.');
195 } else { 195 } else {
196 - $flValorCheque = $_REQUEST['flValor']; 196 + $flValorCheque = $request->get('flValor');
197 } 197 }
198 198
199 //Instancia um textbox para o valor 199 //Instancia um textbox para o valor
200 $obTxtValorTotal = new TextBox(); 200 $obTxtValorTotal = new TextBox();
201 $obTxtValorTotal->setName ('flValorTotal'); 201 $obTxtValorTotal->setName ('flValorTotal');
202 $obTxtValorTotal->setId ('flValorTotal'); 202 $obTxtValorTotal->setId ('flValorTotal');
203 -if ($_REQUEST['stTipoEmissaoCheque'] == 'ordem_pagamento') { 203 +if ($request->get('stTipoEmissaoCheque') == 'ordem_pagamento') {
204 $obTxtValorTotal->setRotulo ('Valor Líquido'); 204 $obTxtValorTotal->setRotulo ('Valor Líquido');
205 } else { 205 } else {
206 $obTxtValorTotal->setRotulo ('Valor Total'); 206 $obTxtValorTotal->setRotulo ('Valor Total');
@@ -211,7 +211,7 @@ $obTxtValorTotal-&gt;setLabel (true ); @@ -211,7 +211,7 @@ $obTxtValorTotal-&gt;setLabel (true );
211 $obHdnDataCheque = new Hidden(); 211 $obHdnDataCheque = new Hidden();
212 $obHdnDataCheque->setName ('stDtCheque' ); 212 $obHdnDataCheque->setName ('stDtCheque' );
213 $obHdnDataCheque->setId ('stDtCheque' ); 213 $obHdnDataCheque->setId ('stDtCheque' );
214 -$obHdnDataCheque->setValue ($_REQUEST['stDataCheque']); 214 +$obHdnDataCheque->setValue ($request->get('stDataCheque'));
215 215
216 //Instancia um date para a data de emissao 216 //Instancia um date para a data de emissao
217 $obDtEmissao = new Data (); 217 $obDtEmissao = new Data ();
@@ -221,8 +221,8 @@ $obDtEmissao-&gt;setRotulo (&#39;Data de Emissão&#39; ); @@ -221,8 +221,8 @@ $obDtEmissao-&gt;setRotulo (&#39;Data de Emissão&#39; );
221 $obDtEmissao->setTitle ('Informe a data de emissão'); 221 $obDtEmissao->setTitle ('Informe a data de emissão');
222 $obDtEmissao->obEvento->setOnChange("montaParametrosGET('verificaDataEmissao','stDtEmissao,stDtCheque');"); 222 $obDtEmissao->obEvento->setOnChange("montaParametrosGET('verificaDataEmissao','stDtEmissao,stDtCheque');");
223 $obDtEmissao->setNull (false ); 223 $obDtEmissao->setNull (false );
224 -$obDtEmissao->setValue ($_REQUEST['stDataCheque'] );  
225 -if ($_REQUEST['stTipoEmissaoCheque'] == 'transferencia') { 224 +$obDtEmissao->setValue ($request->get('stDataCheque') );
  225 +if ($request->get('stTipoEmissaoCheque') == 'transferencia') {
226 $obDtEmissao->setLabel(true); 226 $obDtEmissao->setLabel(true);
227 } 227 }
228 228
@@ -232,12 +232,12 @@ $obSpnChequeEmissao-&gt;setId (&#39;spnChequeEmissao&#39;); @@ -232,12 +232,12 @@ $obSpnChequeEmissao-&gt;setId (&#39;spnChequeEmissao&#39;);
232 232
233 //Instancia o componente IMontaContaCheque 233 //Instancia o componente IMontaContaCheque
234 $obIMontaContaCheque = new IMontaContaCheque(); 234 $obIMontaContaCheque = new IMontaContaCheque();
235 -$obIMontaContaCheque->setObrigatorioBarra (); 235 +$obIMontaContaCheque->setObrigatorioBarra (true);
236 $obIMontaContaCheque->setTipoBusca ('naoEmitidos'); 236 $obIMontaContaCheque->setTipoBusca ('naoEmitidos');
237 $obIMontaContaCheque->setVinculoPlanoBanco (true); 237 $obIMontaContaCheque->setVinculoPlanoBanco (true);
238 -$obIMontaContaCheque->setCodEntidadeVinculo ($_REQUEST['inCodEntidade']); 238 +$obIMontaContaCheque->setCodEntidadeVinculo ($request->get('inCodEntidade'));
239 239
240 -if ($_REQUEST['stTipoEmissaoCheque'] == 'transferencia') { 240 +if ($request->get('stTipoEmissaoCheque') == 'transferencia') {
241 //Caso seja uma emissao por transferencia, busca os dados da conta credito 241 //Caso seja uma emissao por transferencia, busca os dados da conta credito
242 $obController->buscaContaBanco($_REQUEST); 242 $obController->buscaContaBanco($_REQUEST);
243 $stNumBanco = $obController->obModel->obRContabilidadePlanoBanco->obRMONAgencia->obRMONBanco->stNumBanco; 243 $stNumBanco = $obController->obModel->obRContabilidadePlanoBanco->obRMONAgencia->obRMONBanco->stNumBanco;
@@ -249,7 +249,6 @@ $obController-&gt;buscaContaBanco($_REQUEST); @@ -249,7 +249,6 @@ $obController-&gt;buscaContaBanco($_REQUEST);
249 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->stNumAgencia = $stNumAgencia; 249 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->stNumAgencia = $stNumAgencia;
250 $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->obCampoCod->setValue($stNumContaCorrente); 250 $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->obCampoCod->setValue($stNumContaCorrente);
251 $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->setLabel(true); 251 $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->setLabel(true);
252 - $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->setLabel(true);  
253 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->obTextBoxSelectAgencia->setLabel(true); 252 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->obTextBoxSelectAgencia->setLabel(true);
254 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->obITextBoxSelectBanco->setLabel(true); 253 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->obITextBoxSelectBanco->setLabel(true);
255 } 254 }
@@ -262,8 +261,8 @@ $obValorCheque-&gt;setRotulo (&#39;Valor do Cheque&#39; ); @@ -262,8 +261,8 @@ $obValorCheque-&gt;setRotulo (&#39;Valor do Cheque&#39; );
262 $obValorCheque->setTitle ('Informe o valor do Cheque'); 261 $obValorCheque->setTitle ('Informe o valor do Cheque');
263 $obValorCheque->setObrigatorioBarra(true ); 262 $obValorCheque->setObrigatorioBarra(true );
264 $obValorCheque->setNegativo (false ); 263 $obValorCheque->setNegativo (false );
265 -if ($_REQUEST['stTipoEmissaoCheque'] == 'despesa_extra') {  
266 - $obValorCheque->setValue ($_REQUEST['flValor'] ); 264 +if ($request->get('stTipoEmissaoCheque') == 'despesa_extra') {
  265 + $obValorCheque->setValue ($request->get('flValor') );
267 $obValorCheque->setLabel (true ); 266 $obValorCheque->setLabel (true );
268 } 267 }
269 268
@@ -298,7 +297,7 @@ $obBtnLimpar-&gt;obEvento-&gt;setOnClick(&#39;limparCheque();&#39;); @@ -298,7 +297,7 @@ $obBtnLimpar-&gt;obEvento-&gt;setOnClick(&#39;limparCheque();&#39;);
298 297
299 $obFormulario->addHidden ($obHdnDataCheque ); 298 $obFormulario->addHidden ($obHdnDataCheque );
300 $obFormulario->addComponente ($obTxtCredor ); 299 $obFormulario->addComponente ($obTxtCredor );
301 -if ($_REQUEST['stTipoEmissaoCheque'] == 'ordem_pagamento') { 300 +if ($request->get('stTipoEmissaoCheque') == 'ordem_pagamento') {
302 $obFormulario->addComponente ($obLblValorOp ); 301 $obFormulario->addComponente ($obLblValorOp );
303 $obFormulario->addComponente ($obTxtValorRetencao); 302 $obFormulario->addComponente ($obTxtValorRetencao);
304 } 303 }
gestaoFinanceira/fontes/PHP/tesouraria/instancias/pagamentos/FMManterPagamentoExtra.php
  Diff comments   View file @842bba7
@@ -32,7 +32,7 @@ @@ -32,7 +32,7 @@
32 * 32 *
33 * @ignore 33 * @ignore
34 * 34 *
35 - * $Id: FMManterPagamentoExtra.php 63744 2015-10-05 12:29:03Z luciana $ 35 + * $Id: FMManterPagamentoExtra.php 66167 2016-07-25 12:46:20Z fabio $
36 * 36 *
37 * Casos de uso: uc-02.04.27 37 * Casos de uso: uc-02.04.27
38 */ 38 */
@@ -44,6 +44,8 @@ include_once( CAM_GF_ORC_COMPONENTES.&quot;ITextBoxSelectEntidadeUsuario.class.php&quot;); @@ -44,6 +44,8 @@ include_once( CAM_GF_ORC_COMPONENTES.&quot;ITextBoxSelectEntidadeUsuario.class.php&quot;);
44 include_once( CAM_GF_EMP_COMPONENTES."IPopUpCredor.class.php"); 44 include_once( CAM_GF_EMP_COMPONENTES."IPopUpCredor.class.php");
45 include_once ( CAM_GF_EMP_MAPEAMENTO.'TEmpenhoConfiguracao.class.php' ); 45 include_once ( CAM_GF_EMP_MAPEAMENTO.'TEmpenhoConfiguracao.class.php' );
46 include_once ( CAM_GPC_TCEPE_MAPEAMENTO.'TTCEPETipoTransferencia.class.php' ); 46 include_once ( CAM_GPC_TCEPE_MAPEAMENTO.'TTCEPETipoTransferencia.class.php' );
  47 +include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeEncerramentoMes.class.php";
  48 +
47 49
48 //Define o nome dos arquivos PHP 50 //Define o nome dos arquivos PHP
49 $stPrograma = "ManterPagamentoExtra"; 51 $stPrograma = "ManterPagamentoExtra";
@@ -59,10 +61,14 @@ if ( empty( $stAcao ) ) { @@ -59,10 +61,14 @@ if ( empty( $stAcao ) ) {
59 $stAcao = "incluir"; 61 $stAcao = "incluir";
60 } 62 }
61 63
  64 +$obAdministracaoConfiguracao = new TAdministracaoConfiguracao;
  65 +$obAdministracaoConfiguracao->recuperaTodos($rsAdministracaoConfiguracao, " WHERE configuracao.parametro = 'seta_tipo_documento_tcemg'");
  66 +$boMostrarComboTipoDocTcemg = $rsAdministracaoConfiguracao->getCampo('valor');
  67 +
62 //valida a utilização da rotina de encerramento do mês contábil 68 //valida a utilização da rotina de encerramento do mês contábil
63 $mesAtual = date('m'); 69 $mesAtual = date('m');
64 $boUtilizarEncerramentoMes = SistemaLegado::pegaConfiguracao('utilizar_encerramento_mes', 9); 70 $boUtilizarEncerramentoMes = SistemaLegado::pegaConfiguracao('utilizar_encerramento_mes', 9);
65 -include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeEncerramentoMes.class.php"; 71 +
66 $obTContabilidadeEncerramentoMes = new TContabilidadeEncerramentoMes; 72 $obTContabilidadeEncerramentoMes = new TContabilidadeEncerramentoMes;
67 $obTContabilidadeEncerramentoMes->setDado('exercicio', Sessao::getExercicio()); 73 $obTContabilidadeEncerramentoMes->setDado('exercicio', Sessao::getExercicio());
68 $obTContabilidadeEncerramentoMes->setDado('situacao', 'F'); 74 $obTContabilidadeEncerramentoMes->setDado('situacao', 'F');
@@ -83,16 +89,16 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame @@ -83,16 +89,16 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
83 $obTEmpenhoConfiguracao->consultar (); 89 $obTEmpenhoConfiguracao->consultar ();
84 $tipoNumeracao = $obTEmpenhoConfiguracao->getDado( 'valor' ); 90 $tipoNumeracao = $obTEmpenhoConfiguracao->getDado( 'valor' );
85 91
  92 + $inCodHistorico = $request->get('inCodHistorico');
  93 + $stNomHistorico = $request->get('stNomHistorico');
  94 + Sessao::write('inCodPlanoCredito', $request->get('inCodPlanoCredito'));
  95 + Sessao::write('stNomContaCredito', $request->get('stNomContaCredito'));
  96 + Sessao::write('inCodEntidade' , $request->get('inCodEntidade'));
  97 +
86 $obForm = new Form; 98 $obForm = new Form;
87 $obForm->setAction( $pgProc ); 99 $obForm->setAction( $pgProc );
88 $obForm->setTarget( "oculto" ); 100 $obForm->setTarget( "oculto" );
89 -  
90 - $inCodHistorico = $_REQUEST['inCodHistorico'];  
91 - $stNomHistorico = $_REQUEST['stNomHistorico'];  
92 - Sessao::write('inCodPlanoCredito', $_REQUEST['inCodPlanoCredito']);  
93 - Sessao::write('stNomContaCredito', $_REQUEST['stNomContaCredito']);  
94 - Sessao::write('inCodEntidade' , $_REQUEST['inCodEntidade']);  
95 - 101 +
96 //Define o objeto da ação stAcao 102 //Define o objeto da ação stAcao
97 $obHdnAcao = new Hidden; 103 $obHdnAcao = new Hidden;
98 $obHdnAcao->setName ( "stAcao" ); 104 $obHdnAcao->setName ( "stAcao" );
@@ -106,6 +112,10 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame @@ -106,6 +112,10 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
106 $obHdnDtRecibo->setName ( "stDtRecibo" ); 112 $obHdnDtRecibo->setName ( "stDtRecibo" );
107 $obHdnDtRecibo->setId( "stDtRecibo" ); 113 $obHdnDtRecibo->setId( "stDtRecibo" );
108 $obHdnDtRecibo->setValue( $stDtRecibo ); 114 $obHdnDtRecibo->setValue( $stDtRecibo );
  115 +
  116 + $obHdnBoTipoDocTCEMG = new Hidden;
  117 + $obHdnBoTipoDocTCEMG->setName ( "boTipoDocTCEMG" );
  118 + $obHdnBoTipoDocTCEMG->setValue( $boMostrarComboTipoDocTcemg );
109 119
110 $stHdnValor = " 120 $stHdnValor = "
111 if (!document.frm.inCodBoletim) { 121 if (!document.frm.inCodBoletim) {
@@ -279,7 +289,26 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame @@ -279,7 +289,26 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
279 $obTxtValor->setSize (17 ); 289 $obTxtValor->setSize (17 );
280 $obTxtValor->setMaxLength(17 ); 290 $obTxtValor->setMaxLength(17 );
281 $obTxtValor->setMinValue (0.01 ); 291 $obTxtValor->setMinValue (0.01 );
282 - 292 +
  293 + if ($boMostrarComboTipoDocTcemg == 'true' AND Sessao::getExercicio() >= '2016' ) {
  294 + require_once CAM_GF_EMP_MAPEAMENTO.'TEmpenhoTipoDocumentoTcemgInterna.class.php';
  295 + $obTEmpenhoTipoDocumentoTcemgInterna = new TEmpenhoTipoDocumentoTcemgInterna;
  296 + $obTEmpenhoTipoDocumentoTcemgInterna->recuperaTodos($rstipoDocumento);
  297 +
  298 + $obCboDocTipo = new Select;
  299 + $obCboDocTipo->setName('inCodDocTipo');
  300 + $obCboDocTipo->setId('inCodDocTipo');
  301 + $obCboDocTipo->setRotulo('Tipo de Documento');
  302 + $obCboDocTipo->setCampoDesc('[cod_tipo] - [descricao]');
  303 + $obCboDocTipo->setCampoId('cod_tipo');
  304 + $obCboDocTipo->addOption('', 'Selecione');
  305 + $obCboDocTipo->preencheCombo( $rstipoDocumento );
  306 + $obCboDocTipo->setNull(false);
  307 + $obCboDocTipo->obEvento->setOnChange("montaParametrosGET('montaDocumento')");
  308 +
  309 + $obSpnNroDocumento = new Span;
  310 + $obSpnNroDocumento->setId( 'spnNroDocumento');
  311 + }
283 // Define o objeto para o tipo de pagamento 312 // Define o objeto para o tipo de pagamento
284 if (SistemaLegado::isAL()) { 313 if (SistemaLegado::isAL()) {
285 $obTipoPagamento = new Select; 314 $obTipoPagamento = new Select;
@@ -335,7 +364,6 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame @@ -335,7 +364,6 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
335 $obSpnTipoTransferencia = new Span(); 364 $obSpnTipoTransferencia = new Span();
336 $obSpnTipoTransferencia->setId ('spnTipoTransferencia'); 365 $obSpnTipoTransferencia->setId ('spnTipoTransferencia');
337 366
338 -  
339 //****************************************// 367 //****************************************//
340 //Monta FORMULARIO 368 //Monta FORMULARIO
341 //****************************************// 369 //****************************************//
@@ -353,6 +381,8 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame @@ -353,6 +381,8 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
353 $obFormulario->addHidden ( $obHdnVlSaldoContaAnaliticaBR ); 381 $obFormulario->addHidden ( $obHdnVlSaldoContaAnaliticaBR );
354 $obFormulario->addHidden ( $obHdnTipoRecibo ); 382 $obFormulario->addHidden ( $obHdnTipoRecibo );
355 $obFormulario->addHidden ( $obHdnDtRecibo ); 383 $obFormulario->addHidden ( $obHdnDtRecibo );
  384 + $obFormulario->addHidden ( $obHdnBoTipoDocTCEMG );
  385 +
356 $obFormulario->addComponente( $obTxtCodBarras ); 386 $obFormulario->addComponente( $obTxtCodBarras );
357 387
358 $obFormulario->addComponente( $obIEntidade ); 388 $obFormulario->addComponente( $obIEntidade );
@@ -361,12 +391,17 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame @@ -361,12 +391,17 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
361 $obFormulario->addSpan ( $obSpnBoletim ); 391 $obFormulario->addSpan ( $obSpnBoletim );
362 $obFormulario->addHidden ($obHdnDtBoletim); 392 $obFormulario->addHidden ($obHdnDtBoletim);
363 $obFormulario->addComponente( $obICredor ); 393 $obFormulario->addComponente( $obICredor );
364 - //$obFormulario->addComponente( $obIRecurso ); 394 +
365 if ( !(SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio(), $boTransacao ) == 11 && SistemaLegado::pegaConfiguracao('cod_municipio', 2, Sessao::getExercicio(), $boTransacao ) == 79 && SistemaLegado::comparaDatas($stDataFinalAno, $stDataAtual, true))) 395 if ( !(SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio(), $boTransacao ) == 11 && SistemaLegado::pegaConfiguracao('cod_municipio', 2, Sessao::getExercicio(), $boTransacao ) == 79 && SistemaLegado::comparaDatas($stDataFinalAno, $stDataAtual, true)))
366 $obIMontaRecursoDestinacao->geraFormulario ( $obFormulario ); 396 $obIMontaRecursoDestinacao->geraFormulario ( $obFormulario );
367 $obFormulario->addComponente( $obBscHistorico ); 397 $obFormulario->addComponente( $obBscHistorico );
368 $obFormulario->addSpan ( $obSpanContas ); 398 $obFormulario->addSpan ( $obSpanContas );
369 $obFormulario->addComponente( $obTxtValor ); 399 $obFormulario->addComponente( $obTxtValor );
  400 + if ($boMostrarComboTipoDocTcemg == 'true' AND Sessao::getExercicio() >= '2016' ) {
  401 + $obFormulario->addComponente( $obCboDocTipo );
  402 + $obFormulario->addSpan( $obSpnNroDocumento );
  403 + }
  404 +
370 $obFormulario->addSpan( $obSpnTipoTransferencia ); 405 $obFormulario->addSpan( $obSpnTipoTransferencia );
371 //ALAGOAS 406 //ALAGOAS
372 if (SistemaLegado::isAL()) { 407 if (SistemaLegado::isAL()) {
gestaoFinanceira/fontes/PHP/tesouraria/instancias/pagamentos/OCManterPagamentoExtra.php
  Diff comments   View file @842bba7
@@ -478,7 +478,39 @@ function montaDescricaoTipoPagamento($inTIpoPagamento) @@ -478,7 +478,39 @@ function montaDescricaoTipoPagamento($inTIpoPagamento)
478 return $stJs; 478 return $stJs;
479 } 479 }
480 480
  481 +function montaDocumento($inCodTipoDocumento)
  482 +{
  483 + if ($inCodTipoDocumento == 5 OR $inCodTipoDocumento == 4 ) {
  484 + $stJs = "d.getElementById('spnNroDocumento').innerHTML = '';\r\n";
  485 + }else{
  486 + $obTxtNumeroDocumento = new TextBox;
  487 + $obTxtNumeroDocumento->setName ( "nroDoc" );
  488 + $obTxtNumeroDocumento->setId ( "nroDoc" );
  489 + $obTxtNumeroDocumento->setRotulo ( "Nr. Documento" );
  490 + $obTxtNumeroDocumento->setTitle ( "Informe o Número do Documento." );
  491 + $obTxtNumeroDocumento->setDecimais ( 0 );
  492 + $obTxtNumeroDocumento->setinteiro ( true );
  493 + $obTxtNumeroDocumento->setSize ( 15 );
  494 + $obTxtNumeroDocumento->setMaxLength( 15 );
  495 +
  496 + $obFormulario = new Formulario;
  497 + $obFormulario->addComponente ( $obTxtNumeroDocumento);
  498 + $obFormulario->montaInnerHtml();
  499 + $stHTML = $obFormulario->getHTML();
  500 + $stHTML = str_replace( "\n" ,"" ,$stHTML );
  501 + $stHTML = str_replace( chr(13) ,"<br>" ,$stHTML );
  502 + $stHTML = str_replace( " " ,"" ,$stHTML );
  503 + $stHTML = str_replace( "'","\\'",$stHTML );
  504 + $stHTML = str_replace( "\\\'","\\'",$stHTML );
  505 +
  506 + $stJs = "d.getElementById('spnNroDocumento').innerHTML = '".$stHTML."';\r\n";
  507 + }
  508 + return $stJs;
  509 +}
  510 +
  511 +
481 switch ($_REQUEST['stCtrl']) { 512 switch ($_REQUEST['stCtrl']) {
  513 +
482 case 'limparCampos': 514 case 'limparCampos':
483 $stJs = limparCampos(); 515 $stJs = limparCampos();
484 break; 516 break;
@@ -499,7 +531,6 @@ case &#39;alteraBoletim&#39;: @@ -499,7 +531,6 @@ case &#39;alteraBoletim&#39;:
499 $stJs .= "jQuery('#stDtBoletim').val('');\r\n"; 531 $stJs .= "jQuery('#stDtBoletim').val('');\r\n";
500 SistemaLegado::executaFrameOculto( "LiberaFrames(true,false);".$stJs ); 532 SistemaLegado::executaFrameOculto( "LiberaFrames(true,false);".$stJs );
501 } 533 }
502 - //exit;  
503 534
504 break; 535 break;
505 case 'buscaBoletim': 536 case 'buscaBoletim':
@@ -524,6 +555,9 @@ case &#39;verificaCodBarras&#39;: @@ -524,6 +555,9 @@ case &#39;verificaCodBarras&#39;:
524 case 'montaDescricaoTipoPagamento': 555 case 'montaDescricaoTipoPagamento':
525 $stJs = montaDescricaoTipoPagamento($_GET['cmbTipoPagamento']); 556 $stJs = montaDescricaoTipoPagamento($_GET['cmbTipoPagamento']);
526 break; 557 break;
  558 +case 'montaDocumento':
  559 + $stJs = montaDocumento($_REQUEST['inCodDocTipo']);
  560 + break;
527 } 561 }
528 562
529 if ($stJs) { 563 if ($stJs) {
gestaoFinanceira/fontes/PHP/tesouraria/instancias/pagamentos/PRManterPagamentoCheque.php
  Diff comments   View file @842bba7
@@ -44,7 +44,7 @@ require_once CAM_GF_TES_NEGOCIO.&quot;RTesourariaConfiguracao.class.php&quot;; @@ -44,7 +44,7 @@ require_once CAM_GF_TES_NEGOCIO.&quot;RTesourariaConfiguracao.class.php&quot;;
44 require_once CAM_GF_TES_MAPEAMENTO."TTesourariaPagamento.class.php"; 44 require_once CAM_GF_TES_MAPEAMENTO."TTesourariaPagamento.class.php";
45 include CAM_GF_TES_NEGOCIO . 'RTesourariaCheque.class.php'; 45 include CAM_GF_TES_NEGOCIO . 'RTesourariaCheque.class.php';
46 46
47 -$stAcao = $_POST["stAcao"] ? $_POST["stAcao"] : $_GET["stAcao"]; 47 +$stAcao = $request->get("stAcao");
48 48
49 //Define o nome dos arquivos PHP 49 //Define o nome dos arquivos PHP
50 $stPrograma = "ManterPagamento"; 50 $stPrograma = "ManterPagamento";
@@ -63,11 +63,20 @@ $arCheques = Sessao::read(&#39;arCheque&#39;); @@ -63,11 +63,20 @@ $arCheques = Sessao::read(&#39;arCheque&#39;);
63 $arNotas = Sessao::read('arNota'); 63 $arNotas = Sessao::read('arNota');
64 $arPagamento = array(); 64 $arPagamento = array();
65 65
66 -list( $inCodBoletim , $stDtBoletim ) = explode ( ':' , $_REQUEST[ 'inCodBoletim' ] ); 66 +$inCodBoletim = $request->get('inCodBoletim');
  67 +
  68 +list( $inCodBoletim , $stDtBoletim ) = explode ( ':' , $inCodBoletim );
  69 +
  70 +$boFlagTransacao = false;
  71 +
  72 +$obErro = new Erro();
  73 +$obTransacao = new Transacao();
  74 +$obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
  75 +
  76 +if(!$obErro->ocorreu()){
67 77
68 switch ($stAcao) { 78 switch ($stAcao) {
69 case 'incluir': 79 case 'incluir':
70 - $obErro = new Erro();  
71 foreach ($arCheques as $arCheque) { 80 foreach ($arCheques as $arCheque) {
72 $inCount = 0; 81 $inCount = 0;
73 if (SistemaLegado::comparaDatas($arCheque['data_emissao'],$stDtBoletim)) { 82 if (SistemaLegado::comparaDatas($arCheque['data_emissao'],$stDtBoletim)) {
@@ -93,7 +102,7 @@ switch ($stAcao) { @@ -93,7 +102,7 @@ switch ($stAcao) {
93 $arNotaLiquidacao[0]['ex_empenho' ] = $stExercicioEmpenho; 102 $arNotaLiquidacao[0]['ex_empenho' ] = $stExercicioEmpenho;
94 $arNotaLiquidacao[0]['dt_nota' ] = $stDtBoletim; 103 $arNotaLiquidacao[0]['dt_nota' ] = $stDtBoletim;
95 $arNotaLiquidacao[0]['valor_pagar' ] = number_format($arPagamentoAux['valor'],2,',','.'); 104 $arNotaLiquidacao[0]['valor_pagar' ] = number_format($arPagamentoAux['valor'],2,',','.');
96 - $arNotaLiquidacao[0]['max_valor_pagar'] = $_POST['nuValorPagamento']; 105 + $arNotaLiquidacao[0]['max_valor_pagar'] = $request->get('nuValorPagamento');
97 106
98 $arNotaPaga[0]['cod_nota' ] = $inCodNota; 107 $arNotaPaga[0]['cod_nota' ] = $inCodNota;
99 $arNotaPaga[0]['exercicio' ] = $stExercicioLiquidacao; 108 $arNotaPaga[0]['exercicio' ] = $stExercicioLiquidacao;
@@ -102,7 +111,7 @@ switch ($stAcao) { @@ -102,7 +111,7 @@ switch ($stAcao) {
102 $arNotaPaga[0]['ex_empenho' ] = $stExercicioEmpenho; 111 $arNotaPaga[0]['ex_empenho' ] = $stExercicioEmpenho;
103 $arNotaPaga[0]['dt_nota' ] = $stDtBoletim; 112 $arNotaPaga[0]['dt_nota' ] = $stDtBoletim;
104 $arNotaPaga[0]['vl_pago' ] = $arPagamentoAux['valor']; 113 $arNotaPaga[0]['vl_pago' ] = $arPagamentoAux['valor'];
105 - $arNotaPaga[0]['vl_a_pagar' ] = $_POST['nuValorPagamento']; 114 + $arNotaPaga[0]['vl_a_pagar' ] = $request->get('nuValorPagamento');
106 $arNotaPaga[0]['numero_documento'] = $arCheque['num_cheque']; 115 $arNotaPaga[0]['numero_documento'] = $arCheque['num_cheque'];
107 116
108 $arPagamentoAux['nota_liquidacao'] = $arNotaLiquidacao; 117 $arPagamentoAux['nota_liquidacao'] = $arNotaLiquidacao;
@@ -121,7 +130,7 @@ switch ($stAcao) { @@ -121,7 +130,7 @@ switch ($stAcao) {
121 $arNotaLiquidacao[0]['ex_empenho' ] = $stExercicioEmpenho; 130 $arNotaLiquidacao[0]['ex_empenho' ] = $stExercicioEmpenho;
122 $arNotaLiquidacao[0]['dt_nota' ] = $stDtBoletim; 131 $arNotaLiquidacao[0]['dt_nota' ] = $stDtBoletim;
123 $arNotaLiquidacao[0]['valor_pagar' ] = number_format($arPagamentoAux['valor'],2,',','.'); 132 $arNotaLiquidacao[0]['valor_pagar' ] = number_format($arPagamentoAux['valor'],2,',','.');
124 - $arNotaLiquidacao[0]['max_valor_pagar'] = $_POST['nuValorPagamento']; 133 + $arNotaLiquidacao[0]['max_valor_pagar'] = $request->get('nuValorPagamento');
125 134
126 $arNotaPaga[0]['cod_nota' ] = $inCodNota; 135 $arNotaPaga[0]['cod_nota' ] = $inCodNota;
127 $arNotaPaga[0]['exercicio' ] = $stExercicioLiquidacao; 136 $arNotaPaga[0]['exercicio' ] = $stExercicioLiquidacao;
@@ -130,7 +139,7 @@ switch ($stAcao) { @@ -130,7 +139,7 @@ switch ($stAcao) {
130 $arNotaPaga[0]['ex_empenho' ] = $stExercicioEmpenho; 139 $arNotaPaga[0]['ex_empenho' ] = $stExercicioEmpenho;
131 $arNotaPaga[0]['dt_nota' ] = $stDtBoletim; 140 $arNotaPaga[0]['dt_nota' ] = $stDtBoletim;
132 $arNotaPaga[0]['vl_pago' ] = $arPagamentoAux['valor']; 141 $arNotaPaga[0]['vl_pago' ] = $arPagamentoAux['valor'];
133 - $arNotaPaga[0]['vl_a_pagar' ] = $_POST['nuValorPagamento']; 142 + $arNotaPaga[0]['vl_a_pagar' ] = $request->get('nuValorPagamento');
134 $arNotaPaga[0]['numero_documento'] = $arCheque['num_cheque']; 143 $arNotaPaga[0]['numero_documento'] = $arCheque['num_cheque'];
135 144
136 $arPagamentoAux['nota_liquidacao'] = $arNotaLiquidacao; 145 $arPagamentoAux['nota_liquidacao'] = $arNotaLiquidacao;
@@ -152,11 +161,11 @@ switch ($stAcao) { @@ -152,11 +161,11 @@ switch ($stAcao) {
152 $obRTesourariaBoletim->setExercicio ( Sessao::getExercicio() ); 161 $obRTesourariaBoletim->setExercicio ( Sessao::getExercicio() );
153 $obRTesourariaBoletim->setCodBoletim ( $inCodBoletim ); 162 $obRTesourariaBoletim->setCodBoletim ( $inCodBoletim );
154 $obRTesourariaBoletim->setDataBoletim( $stDtBoletim ); 163 $obRTesourariaBoletim->setDataBoletim( $stDtBoletim );
155 - $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $_POST['inCodEntidade'] ); 164 + $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
156 $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->obRCGM->setNumCGM( Sessao::read('numCgm') ); 165 $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->obRCGM->setNumCGM( Sessao::read('numCgm') );
157 - $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->setTimestampUsuario( $_POST['stTimestampUsuario'] );  
158 - $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setCodTerminal( $_POST['inCodTerminal'] );  
159 - $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setTimestampTerminal( $_POST['stTimestampTerminal'] ); 166 + $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->setTimestampUsuario( $request->get('stTimestampUsuario') );
  167 + $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setCodTerminal( $request->get('inCodTerminal') );
  168 + $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setTimestampTerminal( $request->get('stTimestampTerminal') );
160 $obRTesourariaBoletim->addPagamento(); 169 $obRTesourariaBoletim->addPagamento();
161 170
162 //se e o segundo cheque que esta sendo pago, nao faz a retencao 171 //se e o segundo cheque que esta sendo pago, nao faz a retencao
@@ -172,20 +181,19 @@ switch ($stAcao) { @@ -172,20 +181,19 @@ switch ($stAcao) {
172 $stTimestamp = substr($stAno.'-'.$stMes.'-'.$stDia.' '.date('H:i:s.ms'),0,-1); 181 $stTimestamp = substr($stAno.'-'.$stMes.'-'.$stDia.' '.date('H:i:s.ms'),0,-1);
173 } 182 }
174 $obRTesourariaBoletim->roUltimoPagamento->setTimestamp( $stTimestamp ); 183 $obRTesourariaBoletim->roUltimoPagamento->setTimestamp( $stTimestamp );
175 -  
176 - $obErro = new Erro;  
177 - if ($_POST['inCodOrdem']) {  
178 - if (SistemaLegado::comparaDatas($_POST['stDtEmissaoOrdem'],$stDtBoletim)) { 184 +
  185 + if ( $request->get('inCodOrdem') ) {
  186 + if (SistemaLegado::comparaDatas($request->get('stDtEmissaoOrdem'),$stDtBoletim)) {
179 $obErro->setDescricao("A data do pagamento é anterior à data de emissão da OP"); 187 $obErro->setDescricao("A data do pagamento é anterior à data de emissão da OP");
180 } 188 }
181 } 189 }
182 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setCodigoOrdem ( $_POST['inCodOrdem'] );  
183 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setExercicio ( $_POST['stExercicioOrdem'] ); 190 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setCodigoOrdem ( $request->get('inCodOrdem') );
  191 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setExercicio ( $request->get('stExercicioOrdem') );
184 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setDataVencimento( '31/12/'.Sessao::getExercicio() ); 192 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setDataVencimento( '31/12/'.Sessao::getExercicio() );
185 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->obROrcamentoEntidade->setCodigoEntidade($_POST['inCodEntidade']); 193 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->obROrcamentoEntidade->setCodigoEntidade($request->get('inCodEntidade'));
186 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obRContabilidadePlanoContaAnalitica->setCodPlano ( $arPagamento['cod_plano'] ); 194 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obRContabilidadePlanoContaAnalitica->setCodPlano ( $arPagamento['cod_plano'] );
187 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obRContabilidadePlanoContaAnalitica->setExercicio( Sessao::getExercicio() ); 195 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obRContabilidadePlanoContaAnalitica->setExercicio( Sessao::getExercicio() );
188 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setObservacao( $_POST['stObservacoes'] ); 196 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setObservacao( $request->get('stObservacoes') );
189 197
190 if (!$obErro->ocorreu()) { 198 if (!$obErro->ocorreu()) {
191 if ($nuTotalPagamento == '0.00') { 199 if ($nuTotalPagamento == '0.00') {
@@ -198,7 +206,7 @@ switch ($stAcao) { @@ -198,7 +206,7 @@ switch ($stAcao) {
198 } 206 }
199 $obRTesourariaBoletim->roUltimoPagamento->boCheque = true; 207 $obRTesourariaBoletim->roUltimoPagamento->boCheque = true;
200 if (!$obErro->ocorreu()) { 208 if (!$obErro->ocorreu()) {
201 - $obErro = $obRTesourariaBoletim->roUltimoPagamento->pagar(); 209 + $obErro = $obRTesourariaBoletim->roUltimoPagamento->pagar($boTransacao);
202 } 210 }
203 211
204 $boRetencao = $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->getRetencao(); 212 $boRetencao = $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->getRetencao();
@@ -206,7 +214,7 @@ switch ($stAcao) { @@ -206,7 +214,7 @@ switch ($stAcao) {
206 if ($obRTesourariaBoletim->roUltimoPagamento->obRTesourariaAutenticacao->getDescricao()) { 214 if ($obRTesourariaBoletim->roUltimoPagamento->obRTesourariaAutenticacao->getDescricao()) {
207 Sessao::write('pagamento',true); 215 Sessao::write('pagamento',true);
208 } 216 }
209 - $nomAcao = SistemaLegado::pegaDado("nom_acao","administracao.acao"," where cod_acao = ".Sessao::read('acao')); 217 + $nomAcao = SistemaLegado::pegaDado("nom_acao","administracao.acao"," where cod_acao = ".Sessao::read('acao'),$boTransacao);
210 218
211 if ( !$obErro->ocorreu() ) { 219 if ( !$obErro->ocorreu() ) {
212 $inCodOrdem = $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->getCodigoOrdem(); 220 $inCodOrdem = $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->getCodigoOrdem();
@@ -215,8 +223,9 @@ switch ($stAcao) { @@ -215,8 +223,9 @@ switch ($stAcao) {
215 //adicionado para que pegue as informações de pagamento que não foram anuladas ainda para gerar após os registros da tabela 223 //adicionado para que pegue as informações de pagamento que não foram anuladas ainda para gerar após os registros da tabela
216 //tcepb.pagamento_origem_recursos_interna 224 //tcepb.pagamento_origem_recursos_interna
217 $obTTesourariaPagamento = new TTesourariaPagamento; 225 $obTTesourariaPagamento = new TTesourariaPagamento;
218 - $stFiltroPagamentos = " where cod_nota=".$_REQUEST['inCodNota'];  
219 - $stFiltroPagamentos .= " and exercicio='".$_REQUEST['stExercicioLiquidacao']."' "; 226 + $stFiltroPagamentos = " where cod_nota=".$request->get('inCodNota');
  227 + $stFiltroPagamentos .= " and exercicio='".$request->get('stExercicioLiquidacao')."' ";
  228 + $stFiltroPagamentos .= " and cod_entidade = ".$request->get('inCodEntidade');
220 $stFiltroPagamentos .=" 229 $stFiltroPagamentos .="
221 AND NOT EXISTS ( SELECT 1 FROM tesouraria.pagamento_estornado 230 AND NOT EXISTS ( SELECT 1 FROM tesouraria.pagamento_estornado
222 WHERE pagamento.cod_nota = pagamento_estornado.cod_nota 231 WHERE pagamento.cod_nota = pagamento_estornado.cod_nota
@@ -230,55 +239,64 @@ switch ($stAcao) { @@ -230,55 +239,64 @@ switch ($stAcao) {
230 AND pagamento_origem_recursos_interna.cod_entidade = pagamento.cod_entidade ) 239 AND pagamento_origem_recursos_interna.cod_entidade = pagamento.cod_entidade )
231 240
232 "; 241 ";
233 - $obTTesourariaPagamento->recuperaTodos($rsPagamentos,$stFiltroPagamentos);  
234 -  
235 - if (isset($_POST['inCodOrigemRecurso'])) {  
236 - $arOrigemRecurso = explode('-', $_POST['inCodOrigemRecurso']);  
237 - require_once CAM_GPC_TPB_MAPEAMENTO."TTPBPagamentoOrigemRecursosInterna.class.php";  
238 - while (!$rsPagamentos->eof()) {  
239 - $obTTPBPagamentoOrigemRecursosInterna = new TTPBPagamentoOrigemRecursosInterna;  
240 - $obTTPBPagamentoOrigemRecursosInterna->setDado('cod_entidade', $_POST['inCodEntidade']);  
241 - $obTTPBPagamentoOrigemRecursosInterna->setDado('exercicio', $_POST['stExercicioLiquidacao']);  
242 - $obTTPBPagamentoOrigemRecursosInterna->setDado('cod_nota', $_POST['inCodNota']);  
243 - $obTTPBPagamentoOrigemRecursosInterna->setDado('cod_origem_recursos', $arOrigemRecurso[0]);  
244 - $obTTPBPagamentoOrigemRecursosInterna->setDado('exercicio_origem_recurso', $arOrigemRecurso[1]);  
245 - $obTTPBPagamentoOrigemRecursosInterna->setDado('timestamp', $rsPagamentos->getCampo('timestamp') );  
246 - $obErro = $obTTPBPagamentoOrigemRecursosInterna->inclusao($boTransacao);  
247 -  
248 - if ($obErro->ocorreu()) {  
249 - SistemaLegado::exibeAviso(urlencode("Erro ao executar Pagamento de Origem de Recursos Interna (".$obErro->getDescricao().")"),"","erro");  
250 - SistemaLegado::LiberaFrames();  
251 - break; 242 + $obErro = $obTTesourariaPagamento->recuperaTodos($rsPagamentos,$stFiltroPagamentos,'',$boTransacao);
  243 +
  244 + if (!$obErro->ocorreu()) {
  245 + if ($request->get('inCodOrigemRecurso')) {
  246 + $inCodOrigemRecursos = $request->get('inCodOrigemRecurso');
  247 + $arOrigemRecurso = explode('-', $inCodOrigemRecursos);
  248 + require_once CAM_GPC_TPB_MAPEAMENTO."TTPBPagamentoOrigemRecursosInterna.class.php";
  249 + while (!$rsPagamentos->eof()) {
  250 + $obTTPBPagamentoOrigemRecursosInterna = new TTPBPagamentoOrigemRecursosInterna;
  251 + $obTTPBPagamentoOrigemRecursosInterna->setDado('cod_entidade', $request->get('inCodEntidade'));
  252 + $obTTPBPagamentoOrigemRecursosInterna->setDado('exercicio', $request->get('stExercicioLiquidacao'));
  253 + $obTTPBPagamentoOrigemRecursosInterna->setDado('cod_nota', $request->get('inCodNota'));
  254 + $obTTPBPagamentoOrigemRecursosInterna->setDado('cod_origem_recursos', $arOrigemRecurso[0]);
  255 + $obTTPBPagamentoOrigemRecursosInterna->setDado('exercicio_origem_recurso', $arOrigemRecurso[1]);
  256 + $obTTPBPagamentoOrigemRecursosInterna->setDado('timestamp', $rsPagamentos->getCampo('timestamp') );
  257 + $obErro = $obTTPBPagamentoOrigemRecursosInterna->inclusao($boTransacao);
  258 +
  259 + if ($obErro->ocorreu()) {
  260 + SistemaLegado::exibeAviso(urlencode("Erro ao executar Pagamento de Origem de Recursos Interna (".$obErro->getDescricao().")"),"","erro");
  261 + SistemaLegado::LiberaFrames();
  262 + exit();
  263 + }
  264 + $rsPagamentos->proximo();
252 } 265 }
253 - $rsPagamentos->proximo();  
254 } 266 }
255 } 267 }
256 -  
257 - ###TCEAL  
258 - $obAdministracaoConfiguracao = new TAdministracaoConfiguracao();  
259 - $obAdministracaoConfiguracao->recuperaTodos($rsAdministracaoConfiguracao, " WHERE exercicio = '".Sessao::getExercicio()."' and cod_modulo = 2 and parametro = 'cod_uf'");  
260 - $inCodUf = $rsAdministracaoConfiguracao->getCampo('valor');  
261 - $stSiglaUf = SistemaLegado::pegaDado("sigla_uf","sw_uf","where cod_uf = ".$inCodUf."");  
262 - $rsPagamentos->setPrimeiroElemento();  
263 - if ($stSiglaUf == "AL") {  
264 - require_once CAM_GPC_TCEAL_MAPEAMENTO."TTCEALPagamentoTipoDocumento.class.php";  
265 - $rsDocumentoCheque = new RecordSet();  
266 - $obTTCEALPagamentoTipoDocumento = new TTCEALPagamentoTipoDocumento();  
267 - $obTTCEALPagamentoTipoDocumento->setDado('cod_entidade', $arPagamento['nota_paga'][0]['cod_entidade']);  
268 - $obTTCEALPagamentoTipoDocumento->setDado('exercicio', $arPagamento['nota_paga'][0]['exercicio']);  
269 - $obTTCEALPagamentoTipoDocumento->setDado('cod_nota', $arPagamento['nota_paga'][0]['cod_nota']);  
270 - $obTTCEALPagamentoTipoDocumento->setDado('cod_tipo_documento',2);  
271 - $obTTCEALPagamentoTipoDocumento->setDado('timestamp', $rsPagamentos->getCampo('timestamp') );  
272 - $obTTCEALPagamentoTipoDocumento->setDado('num_documento', $arPagamento['nota_paga'][0]['numero_documento'] );  
273 - $obErro = $obTTCEALPagamentoTipoDocumento->recuperaPorChave($rsDocumentoCheque, "","",$boTransacao);  
274 - if ( $rsDocumentoCheque->getNumLinhas() < 0 ) {  
275 - $obErro = $obTTCEALPagamentoTipoDocumento->inclusao($boTransacao);  
276 - }  
277 - if ( $obErro->ocorreu() ) {  
278 - SistemaLegado::exibeAviso(urlencode("Erro ao executar Pagamento de Origem de Recursos Interna (".$obErro->getDescricao().")"),"","erro");  
279 - SistemaLegado::LiberaFrames(); 268 +
  269 + if (!$obErro->ocorreu()) {
  270 + ###TCEAL
  271 + $obAdministracaoConfiguracao = new TAdministracaoConfiguracao();
  272 + $obErro = $obAdministracaoConfiguracao->recuperaTodos($rsAdministracaoConfiguracao, " WHERE exercicio = '".Sessao::getExercicio()."' and cod_modulo = 2 and parametro = 'cod_uf'",'',$boTransacao);
  273 + if (!$obErro->ocorreu()) {
  274 + $inCodUf = $rsAdministracaoConfiguracao->getCampo('valor');
  275 + $stSiglaUf = SistemaLegado::pegaDado("sigla_uf","sw_uf","where cod_uf = ".$inCodUf."",$boTransacao);
  276 + $rsPagamentos->setPrimeiroElemento();
  277 + if ($stSiglaUf == "AL") {
  278 + require_once CAM_GPC_TCEAL_MAPEAMENTO."TTCEALPagamentoTipoDocumento.class.php";
  279 + $rsDocumentoCheque = new RecordSet();
  280 + $obTTCEALPagamentoTipoDocumento = new TTCEALPagamentoTipoDocumento();
  281 + $obTTCEALPagamentoTipoDocumento->setDado('cod_entidade', $arPagamento['nota_paga'][0]['cod_entidade']);
  282 + $obTTCEALPagamentoTipoDocumento->setDado('exercicio', $arPagamento['nota_paga'][0]['exercicio']);
  283 + $obTTCEALPagamentoTipoDocumento->setDado('cod_nota', $arPagamento['nota_paga'][0]['cod_nota']);
  284 + $obTTCEALPagamentoTipoDocumento->setDado('cod_tipo_documento',2);
  285 + $obTTCEALPagamentoTipoDocumento->setDado('timestamp', $rsPagamentos->getCampo('timestamp') );
  286 + $obTTCEALPagamentoTipoDocumento->setDado('num_documento', TRIM($arPagamento['nota_paga'][0]['numero_documento']) );
  287 + $obErro = $obTTCEALPagamentoTipoDocumento->recuperaPorChave($rsDocumentoCheque, "","",$boTransacao);
  288 + if (!$obErro->ocorreu()) {
  289 + if ( $rsDocumentoCheque->getNumLinhas() < 0 ) {
  290 + $obErro = $obTTCEALPagamentoTipoDocumento->inclusao($boTransacao);
  291 + }
  292 + }
  293 + if ( $obErro->ocorreu() ) {
  294 + SistemaLegado::exibeAviso(urlencode("Erro ao executar Pagamento de Origem de Recursos Interna (".$obErro->getDescricao().")"),"","erro");
  295 + SistemaLegado::LiberaFrames();
  296 + exit();
  297 + }
  298 + }
280 } 299 }
281 -  
282 }//fim TCEAL 300 }//fim TCEAL
283 } 301 }
284 } 302 }
@@ -289,17 +307,20 @@ switch ($stAcao) { @@ -289,17 +307,20 @@ switch ($stAcao) {
289 $obRTesourariaCheque->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco = $arCheque['cod_banco' ]; 307 $obRTesourariaCheque->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco = $arCheque['cod_banco' ];
290 $obRTesourariaCheque->obRMONContaCorrente->obRMONAgencia->inCodAgencia = $arCheque['cod_agencia' ]; 308 $obRTesourariaCheque->obRMONContaCorrente->obRMONAgencia->inCodAgencia = $arCheque['cod_agencia' ];
291 $obRTesourariaCheque->obRMONContaCorrente->inCodigoConta = $arCheque['cod_conta_corrente']; 309 $obRTesourariaCheque->obRMONContaCorrente->inCodigoConta = $arCheque['cod_conta_corrente'];
292 -  
293 - $obRTesourariaCheque->baixarChequeEmissao($boTransacao); 310 +
  311 + if (!$obErro->ocorreu()) {
  312 + $obErro = $obRTesourariaCheque->baixarChequeEmissao($boTransacao);
  313 + }
294 } 314 }
295 } 315 }
296 } 316 }
297 317
298 if (!$obErro->ocorreu()) { 318 if (!$obErro->ocorreu()) {
  319 + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obRTesourariaCheque->obTTesourariaChequeEmissaoBaixa);
299 if ( $obRTesourariaConfiguracao->getFormaComprovacao() ) { 320 if ( $obRTesourariaConfiguracao->getFormaComprovacao() ) {
300 - SistemaLegado::alertaAviso($pgAutenticacao."?".( $_REQUEST['boPagarOutra'] ? $stPagarOutraAuth : "pg_volta=../pagamentos/".$pgList ),"Pagamento Concluído com Sucesso! (OP ".$inCodOrdem."/".$stExercicioOrdem.")","","aviso", Sessao::getId(), "../"); 321 + SistemaLegado::alertaAviso($pgAutenticacao."?".( $request->get('boPagarOutra') ? $stPagarOutraAuth : "pg_volta=../pagamentos/".$pgList ),"Pagamento Concluído com Sucesso! (OP ".$inCodOrdem."/".$stExercicioOrdem.")","","aviso", Sessao::getId(), "../");
301 } else { 322 } else {
302 - SistemaLegado::alertaAviso(($_REQUEST['boPagarOutra'] ? $stPagarOutra : $pgList),"Pagamento Concluído com Sucesso! (OP ".$inCodOrdem."/".$stExercicioOrdem.")","","aviso", Sessao::getId(), "../"); 323 + SistemaLegado::alertaAviso(($request->get('boPagarOutra') ? $stPagarOutra : $pgList),"Pagamento Concluído com Sucesso! (OP ".$inCodOrdem."/".$stExercicioOrdem.")","","aviso", Sessao::getId(), "../");
303 } 324 }
304 } else { 325 } else {
305 SistemaLegado::exibeAviso(urlencode("Erro ao executar ação: ".$nomAcao." (".$obErro->getDescricao().")"),"","erro"); 326 SistemaLegado::exibeAviso(urlencode("Erro ao executar ação: ".$nomAcao." (".$obErro->getDescricao().")"),"","erro");
@@ -313,11 +334,11 @@ switch ($stAcao) { @@ -313,11 +334,11 @@ switch ($stAcao) {
313 $obRTesourariaBoletim->setExercicio ( Sessao::getExercicio() ); 334 $obRTesourariaBoletim->setExercicio ( Sessao::getExercicio() );
314 $obRTesourariaBoletim->setCodBoletim ( $inCodBoletim ); 335 $obRTesourariaBoletim->setCodBoletim ( $inCodBoletim );
315 $obRTesourariaBoletim->setDataBoletim( $stDtBoletim ); 336 $obRTesourariaBoletim->setDataBoletim( $stDtBoletim );
316 - $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $_POST['inCodEntidade'] ); 337 + $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
317 $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->obRCGM->setNumCGM( Sessao::read('numCgm') ); 338 $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->obRCGM->setNumCGM( Sessao::read('numCgm') );
318 - $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->setTimestampUsuario( $_POST['stTimestampUsuario'] );  
319 - $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setCodTerminal( $_POST['inCodTerminal'] );  
320 - $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setTimestampTerminal( $_POST['stTimestampTerminal'] ); 339 + $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->setTimestampUsuario( $request->get('stTimestampUsuario') );
  340 + $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setCodTerminal( $request->get('inCodTerminal') );
  341 + $obRTesourariaBoletim->obRTesourariaUsuarioTerminal->roRTesourariaTerminal->setTimestampTerminal( $request->get('stTimestampTerminal') );
321 $obRTesourariaBoletim->addPagamento(); 342 $obRTesourariaBoletim->addPagamento();
322 343
323 $obRTesourariaConfiguracao = new RTesourariaConfiguracao(); 344 $obRTesourariaConfiguracao = new RTesourariaConfiguracao();
@@ -334,7 +355,6 @@ switch ($stAcao) { @@ -334,7 +355,6 @@ switch ($stAcao) {
334 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->stTimestampAnulada = $stAno.'-'.$stMes.'-'.$stDia.' '.date('H:i:s.ms'); 355 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->stTimestampAnulada = $stAno.'-'.$stMes.'-'.$stDia.' '.date('H:i:s.ms');
335 $stDtEstorno = $stAno.$stMes.$stDia; 356 $stDtEstorno = $stAno.$stMes.$stDia;
336 } 357 }
337 - $obErro = new Erro;  
338 358
339 $arrNota = Sessao::read('arNota'); 359 $arrNota = Sessao::read('arNota');
340 360
@@ -348,9 +368,12 @@ switch ($stAcao) { @@ -348,9 +368,12 @@ switch ($stAcao) {
348 list( $inCodEmpenho, $stExercicioEmpenho ) = explode( '/', $arNota['empenho'] ); 368 list( $inCodEmpenho, $stExercicioEmpenho ) = explode( '/', $arNota['empenho'] );
349 list( $inCodNota , $stExercicioLiquidacao ) = explode( '/', $arNota['liquidacao'] ); 369 list( $inCodNota , $stExercicioLiquidacao ) = explode( '/', $arNota['liquidacao'] );
350 370
351 - $nuValorPagar = str_replace(',','.',str_replace('.','',$_POST["nuValorPagar_".($inCount+1)] )); /// Valor do Estorno 371 + $nuValorPagar = $request->get("nuValorPagar_".$inCount+1);
  372 + $nuValorPagarOriginal = $request->get("nuValorOriginal_".$inCount+1);
  373 +
  374 + $nuValorPagar = str_replace(',','.',str_replace('.','',$nuValorPagar )); /// Valor do Estorno
352 $nuValorEstornar = $arNota['vl_estornar']; // Valor Prestado Contas 375 $nuValorEstornar = $arNota['vl_estornar']; // Valor Prestado Contas
353 - $nuValorOriginal = str_replace(',','.',str_replace('.','',$_POST["nuValorOriginal_".($inCount+1)] )); 376 + $nuValorOriginal = str_replace(',','.',str_replace('.','',$nuValorPagarOriginal ));
354 377
355 if ($nuValorEstornar != $nuValorOriginal) { 378 if ($nuValorEstornar != $nuValorOriginal) {
356 $nuValorOriginal = $nuValorEstornar; 379 $nuValorOriginal = $nuValorEstornar;
@@ -371,7 +394,7 @@ switch ($stAcao) { @@ -371,7 +394,7 @@ switch ($stAcao) {
371 $arNotaPaga[$inPos]['dt_nota'] = $stDtBoletim; 394 $arNotaPaga[$inPos]['dt_nota'] = $stDtBoletim;
372 $arNotaPaga[$inPos]['timestamp'] = $arNota['timestamp']; 395 $arNotaPaga[$inPos]['timestamp'] = $arNota['timestamp'];
373 $arNotaPaga[$inPos]['vl_estornado'] = $nuValorPagar; 396 $arNotaPaga[$inPos]['vl_estornado'] = $nuValorPagar;
374 - $arNotaPaga[$inPos]['vl_pago'] = $_POST['nuValorPagamento']; 397 + $arNotaPaga[$inPos]['vl_pago'] = $request->get('nuValorPagamento');
375 $arNotaPaga[$inPos]['cod_plano'] = $arNota['cod_plano']; 398 $arNotaPaga[$inPos]['cod_plano'] = $arNota['cod_plano'];
376 $arNotaPaga[$inPos]['cod_plano_retencao'] = $arNota['cod_plano_retencao']; 399 $arNotaPaga[$inPos]['cod_plano_retencao'] = $arNota['cod_plano_retencao'];
377 $arNotaPaga[$inPos]['exercicio_plano'] = $arNota['exercicio_plano']; 400 $arNotaPaga[$inPos]['exercicio_plano'] = $arNota['exercicio_plano'];
@@ -392,12 +415,13 @@ switch ($stAcao) { @@ -392,12 +415,13 @@ switch ($stAcao) {
392 } 415 }
393 if ($nuTotalEstorno > 0.00) { 416 if ($nuTotalEstorno > 0.00) {
394 if ($stDtEstorno >= $stMaiorData) { 417 if ($stDtEstorno >= $stMaiorData) {
395 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setCodigoOrdem ( $_POST['inCodOrdem'] );  
396 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setExercicio ( $_POST['stExercicioOrdem'] );  
397 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setValorAnulado ( number_format( $_POST['nuValorPagamento'], 2, ',', '.' ) );  
398 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->obROrcamentoEntidade->setCodigoEntidade($_POST['inCodEntidade']); 418 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setCodigoOrdem ( $request->get('inCodOrdem') );
  419 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setExercicio ( $request->get('stExercicioOrdem') );
  420 + $nuValorPagamento = $request->get('nuValorPagamento');
  421 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->setValorAnulado ( number_format( $nuValorPagamento, 2, ',', '.' ) );
  422 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->obROrcamentoEntidade->setCodigoEntidade($request->get('inCodEntidade'));
399 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setDataPagamento( $dtMaiorData ); // data de pgto mais recente das notas com valor a estornar 423 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setDataPagamento( $dtMaiorData ); // data de pgto mais recente das notas com valor a estornar
400 - $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setObservacao( $_POST['stMotivo'] ); 424 + $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setObservacao( $request->get('stMotivo') );
401 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setValoresPagos( $arNotaPaga ); 425 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setValoresPagos( $arNotaPaga );
402 } else { 426 } else {
403 $obErro->setDescricao('A data do boletim deve ser igual ou superior à data do pagamento mais recente com valor a estornar informado ('.$dtMaiorData.').'); 427 $obErro->setDescricao('A data do boletim deve ser igual ou superior à data do pagamento mais recente com valor a estornar informado ('.$dtMaiorData.').');
@@ -429,19 +453,19 @@ switch ($stAcao) { @@ -429,19 +453,19 @@ switch ($stAcao) {
429 Sessao::write('pagamento',true); 453 Sessao::write('pagamento',true);
430 } 454 }
431 455
432 - $nomAcao = SistemaLegado::pegaDado("nom_acao","administracao.acao"," where cod_acao = ".Sessao::read('acao')); 456 + $nomAcao = SistemaLegado::pegaDado("nom_acao","administracao.acao"," where cod_acao = ".Sessao::read('acao'),$boTransacao);
433 if ( !$obErro->ocorreu() ) { 457 if ( !$obErro->ocorreu() ) {
  458 + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obRTesourariaCheque->obTTesourariaChequeEmissaoBaixa);
434 if( $obRTesourariaConfiguracao->getFormaComprovacao() ) 459 if( $obRTesourariaConfiguracao->getFormaComprovacao() )
435 - SistemaLegado::alertaAviso($pgAutenticacao."?pg_volta=../pagamentos/".$pgList."&".Sessao::getId(),"Estorno de Pagamento Concluído com Sucesso! (OP: ".$_POST['inCodOrdem'] . "/" . Sessao::getExercicio().")","","aviso", Sessao::getId(), "../"); 460 + SistemaLegado::alertaAviso($pgAutenticacao."?pg_volta=../pagamentos/".$pgList."&".Sessao::getId(),"Estorno de Pagamento Concluído com Sucesso! (OP: ".$request->get('inCodOrdem') . "/" . Sessao::getExercicio().")","","aviso", Sessao::getId(), "../");
436 else 461 else
437 - SistemaLegado::alertaAviso($pgList,"Estorno de Pagamento Concluído com Sucesso! (OP: ".$_POST['inCodOrdem'] . "/" . Sessao::getExercicio().")","","aviso", Sessao::getId(), "../"); 462 + SistemaLegado::alertaAviso($pgList,"Estorno de Pagamento Concluído com Sucesso! (OP: ".$request->get('inCodOrdem') . "/" . Sessao::getExercicio().")","","aviso", Sessao::getId(), "../");
438 } else { 463 } else {
439 SistemaLegado::exibeAviso(urlencode("Erro ao executar ação: ".$nomAcao." (".$obErro->getDescricao().")"),"n_estornar","erro"); 464 SistemaLegado::exibeAviso(urlencode("Erro ao executar ação: ".$nomAcao." (".$obErro->getDescricao().")"),"n_estornar","erro");
440 SistemaLegado::LiberaFrames(); 465 SistemaLegado::LiberaFrames();
441 } 466 }
442 467
443 break; 468 break;
444 -  
445 -}  
446 - 469 +}//End Switch
  470 +}//IF obErro
447 ?> 471 ?>
gestaoFinanceira/fontes/PLPGSQL/contabilidade/FContabilidadeAberturaRestosPagarRecurso.plsql
  Diff comments   View file @842bba7
@@ -30,7 +30,7 @@ @@ -30,7 +30,7 @@
30 30
31 * @package URBEM 31 * @package URBEM
32 32
33 - * $Id: FContabilidadeAberturaRestosPagarRecurso.plsql 65125 2016-04-26 19:57:17Z fabio $ 33 + * $Id: FContabilidadeAberturaRestosPagarRecurso.plsql 66167 2016-07-25 12:46:20Z fabio $
34 */ 34 */
35 35
36 CREATE OR REPLACE FUNCTION contabilidade.fn_abertura_restos_pagar_recurso(varchar,varchar,varchar) RETURNS SETOF RECORD AS $$ 36 CREATE OR REPLACE FUNCTION contabilidade.fn_abertura_restos_pagar_recurso(varchar,varchar,varchar) RETURNS SETOF RECORD AS $$
@@ -246,9 +246,10 @@ BEGIN @@ -246,9 +246,10 @@ BEGIN
246 LEFT JOIN empenho.restos_pre_empenho 246 LEFT JOIN empenho.restos_pre_empenho
247 ON restos_pre_empenho.exercicio = liquidado.exercicio 247 ON restos_pre_empenho.exercicio = liquidado.exercicio
248 AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho 248 AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho
  249 +
249 LEFT JOIN orcamento.recurso AS recurso_restos 250 LEFT JOIN orcamento.recurso AS recurso_restos
250 - ON restos_pre_empenho.recurso = recurso_restos.cod_recurso  
251 - AND restos_pre_empenho.exercicio = liquidado.exercicio 251 + ON recurso_restos.cod_recurso = restos_pre_empenho.recurso
  252 + AND recurso_restos.exercicio = restos_pre_empenho.exercicio
252 253
253 GROUP BY busca_recurso.cod_recurso 254 GROUP BY busca_recurso.cod_recurso
254 , restos_pre_empenho.recurso 255 , restos_pre_empenho.recurso
@@ -456,9 +457,10 @@ BEGIN @@ -456,9 +457,10 @@ BEGIN
456 LEFT JOIN empenho.restos_pre_empenho 457 LEFT JOIN empenho.restos_pre_empenho
457 ON restos_pre_empenho.exercicio = liquidado.exercicio 458 ON restos_pre_empenho.exercicio = liquidado.exercicio
458 AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho 459 AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho
  460 +
459 LEFT JOIN orcamento.recurso AS recurso_restos 461 LEFT JOIN orcamento.recurso AS recurso_restos
460 - ON restos_pre_empenho.recurso = recurso_restos.cod_recurso  
461 - AND restos_pre_empenho.exercicio = liquidado.exercicio 462 + ON recurso_restos.cod_recurso = restos_pre_empenho.recurso
  463 + AND recurso_restos.exercicio = restos_pre_empenho.exercicio
462 464
463 GROUP BY busca_recurso.cod_recurso 465 GROUP BY busca_recurso.cod_recurso
464 , restos_pre_empenho.recurso 466 , restos_pre_empenho.recurso
@@ -641,9 +643,10 @@ BEGIN @@ -641,9 +643,10 @@ BEGIN
641 LEFT JOIN empenho.restos_pre_empenho 643 LEFT JOIN empenho.restos_pre_empenho
642 ON restos_pre_empenho.exercicio = empenhado.exercicio 644 ON restos_pre_empenho.exercicio = empenhado.exercicio
643 AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho 645 AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho
  646 +
644 LEFT JOIN orcamento.recurso AS recurso_restos 647 LEFT JOIN orcamento.recurso AS recurso_restos
645 - ON restos_pre_empenho.recurso = recurso_restos.cod_recurso  
646 - AND restos_pre_empenho.exercicio = empenhado.exercicio 648 + ON recurso_restos.cod_recurso = restos_pre_empenho.recurso
  649 + AND recurso_restos.exercicio = restos_pre_empenho.exercicio
647 650
648 GROUP BY busca_recurso.cod_recurso 651 GROUP BY busca_recurso.cod_recurso
649 , restos_pre_empenho.recurso 652 , restos_pre_empenho.recurso
@@ -824,9 +827,10 @@ BEGIN @@ -824,9 +827,10 @@ BEGIN
824 LEFT JOIN empenho.restos_pre_empenho 827 LEFT JOIN empenho.restos_pre_empenho
825 ON restos_pre_empenho.exercicio = empenhado.exercicio 828 ON restos_pre_empenho.exercicio = empenhado.exercicio
826 AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho 829 AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho
  830 +
827 LEFT JOIN orcamento.recurso AS recurso_restos 831 LEFT JOIN orcamento.recurso AS recurso_restos
828 - ON restos_pre_empenho.recurso = recurso_restos.cod_recurso  
829 - AND restos_pre_empenho.exercicio = empenhado.exercicio 832 + ON recurso_restos.cod_recurso = restos_pre_empenho.recurso
  833 + AND recurso_restos.exercicio = restos_pre_empenho.exercicio
830 834
831 GROUP BY busca_recurso.cod_recurso 835 GROUP BY busca_recurso.cod_recurso
832 , restos_pre_empenho.recurso 836 , restos_pre_empenho.recurso
gestaoFinanceira/fontes/PLPGSQL/contabilidade/balancoFinanceiro.plsql
  Diff comments   View file @842bba7
@@ -23,7 +23,7 @@ @@ -23,7 +23,7 @@
23 /* Script de função PLPGSQL 23 /* Script de função PLPGSQL
24 * URBEM Soluções de Gestão Pública Ltda 24 * URBEM Soluções de Gestão Pública Ltda
25 * www.urbem.cnm.org.br 25 * www.urbem.cnm.org.br
26 -$Id: balancoFinanceiro.plsql 64492 2016-03-03 14:06:18Z fabio $ 26 +$Id: balancoFinanceiro.plsql 66022 2016-07-07 20:23:42Z fabio $
27 */ 27 */
28 28
29 29
@@ -54,6 +54,9 @@ DECLARE @@ -54,6 +54,9 @@ DECLARE
54 totalIII NUMERIC; 54 totalIII NUMERIC;
55 totalIV NUMERIC; 55 totalIV NUMERIC;
56 totalV NUMERIC; 56 totalV NUMERIC;
  57 +
  58 + stFiltroTrans VARCHAR := '';
  59 + stFiltroExtra VARCHAR := '';
57 60
58 BEGIN 61 BEGIN
59 62
@@ -64,24 +67,24 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval @@ -64,24 +67,24 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
64 --Relacionando colunas das tabelas com o tipo de despesa selecionado no filtro 67 --Relacionando colunas das tabelas com o tipo de despesa selecionado no filtro
65 IF (stTipoDespesa = 'E') THEN 68 IF (stTipoDespesa = 'E') THEN
66 stDespesa := '(empenhado_per - anulado_per) as valor'; 69 stDespesa := '(empenhado_per - anulado_per) as valor';
67 - 70 +
68 IF (stExercicio >= '2014') THEN 71 IF (stExercicio >= '2014') THEN
69 stDespesaAnterior := '(empenhado_per_anterior - anulado_per_anterior) as valor_anterior'; 72 stDespesaAnterior := '(empenhado_per_anterior - anulado_per_anterior) as valor_anterior';
70 END IF; 73 END IF;
71 - 74 +
72 END IF; 75 END IF;
73 - 76 +
74 IF (stTipoDespesa = 'L') THEN 77 IF (stTipoDespesa = 'L') THEN
75 stDespesa := 'liquidado_per as valor'; 78 stDespesa := 'liquidado_per as valor';
76 - 79 +
77 IF (stExercicio >= '2014') THEN 80 IF (stExercicio >= '2014') THEN
78 stDespesaAnterior := 'liquidado_per_anterior as valor_anterior'; 81 stDespesaAnterior := 'liquidado_per_anterior as valor_anterior';
79 END IF; 82 END IF;
80 END IF; 83 END IF;
81 - 84 +
82 IF (stTipoDespesa = 'P') THEN 85 IF (stTipoDespesa = 'P') THEN
83 stDespesa := 'pago_per as valor'; 86 stDespesa := 'pago_per as valor';
84 - 87 +
85 IF (stExercicio >= '2014') THEN 88 IF (stExercicio >= '2014') THEN
86 stDespesaAnterior := 'pago_per_anterior as valor_anterior'; 89 stDespesaAnterior := 'pago_per_anterior as valor_anterior';
87 END IF; 90 END IF;
@@ -96,18 +99,18 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -96,18 +99,18 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
96 IF(stExercicio >= '2014' )THEN 99 IF(stExercicio >= '2014' )THEN
97 stSql := stSql || ',ABS(SUM(arrecadado_periodo_anterior)) as arrecadado_periodo_anterior'; 100 stSql := stSql || ',ABS(SUM(arrecadado_periodo_anterior)) as arrecadado_periodo_anterior';
98 END IF; 101 END IF;
99 - 102 +
100 stSql := stSql || ' 103 stSql := stSql || '
101 FROM( 104 FROM(
102 SELECT 105 SELECT
103 descricao 106 descricao
104 ,SUM(arrecadado_periodo) as arrecadado_periodo 107 ,SUM(arrecadado_periodo) as arrecadado_periodo
105 '; 108 ';
106 - 109 +
107 IF(stExercicio >= '2014' )THEN 110 IF(stExercicio >= '2014' )THEN
108 stSql := stSql || ',SUM(arrecadado_periodo_anterior) as arrecadado_periodo_anterior'; 111 stSql := stSql || ',SUM(arrecadado_periodo_anterior) as arrecadado_periodo_anterior';
109 END IF; 112 END IF;
110 - 113 +
111 stSql := stSql ||' 114 stSql := stSql ||'
112 FROM( 115 FROM(
113 SELECT 116 SELECT
@@ -128,29 +131,28 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -128,29 +131,28 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
128 ,recurso 131 ,recurso
129 ,arrecadado_periodo 132 ,arrecadado_periodo
130 '; 133 ';
131 - 134 +
132 IF(stExercicio >= '2014' )THEN 135 IF(stExercicio >= '2014' )THEN
133 stSql := stSql || ',0.00 AS arrecadado_periodo_anterior'; 136 stSql := stSql || ',0.00 AS arrecadado_periodo_anterior';
134 END IF; 137 END IF;
135 -  
136 -  
137 - stSql := stSql || ' 138 +
  139 + stSql := stSql || '
138 FROM orcamento.fn_balancete_receita('|| quote_literal(stExercicio) ||' 140 FROM orcamento.fn_balancete_receita('|| quote_literal(stExercicio) ||'
139 ,'''' 141 ,''''
140 ,'|| quote_literal(dtInicial) ||' 142 ,'|| quote_literal(dtInicial) ||'
141 ,'|| quote_literal(dtFinal) ||' 143 ,'|| quote_literal(dtFinal) ||'
142 ,'|| quote_literal(stCodEntidade) ||' 144 ,'|| quote_literal(stCodEntidade) ||'
143 - ,'''','''','''','''','''','''','''')  
144 - as retorno(  
145 - cod_estrutural varchar,  
146 - receita integer,  
147 - recurso varchar,  
148 - descricao varchar,  
149 - valor_previsto numeric,  
150 - arrecadado_periodo numeric,  
151 - arrecadado_ano numeric,  
152 - diferenca numeric  
153 - ) 145 + ,'''','''','''','''','''','''',''''
  146 + ) as retorno(
  147 + cod_estrutural varchar,
  148 + receita integer,
  149 + recurso varchar,
  150 + descricao varchar,
  151 + valor_previsto numeric,
  152 + arrecadado_periodo numeric,
  153 + arrecadado_ano numeric,
  154 + diferenca numeric
  155 + )
154 WHERE receita IS NOT NULL 156 WHERE receita IS NOT NULL
155 '; 157 ';
156 IF(stExercicio >= '2014' )THEN 158 IF(stExercicio >= '2014' )THEN
@@ -174,34 +176,34 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -174,34 +176,34 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
174 END as descricao 176 END as descricao
175 ,recurso_anterior AS recurso 177 ,recurso_anterior AS recurso
176 ,0.00 AS arrecadado_periodo 178 ,0.00 AS arrecadado_periodo
177 - ,COALESCE(arrecadado_periodo_anterior, 0.00) AS arrecadado_periodo_anterior 179 + ,COALESCE(arrecadado_periodo_anterior, 0.00) AS arrecadado_periodo_anterior
178 FROM orcamento.fn_balancete_receita('|| quote_literal(stExercicioAnterior) ||' 180 FROM orcamento.fn_balancete_receita('|| quote_literal(stExercicioAnterior) ||'
179 ,'''' 181 ,''''
180 ,'|| quote_literal(dtInicialAnterior) ||' 182 ,'|| quote_literal(dtInicialAnterior) ||'
181 ,'|| quote_literal(dtFinalAnterior) ||' 183 ,'|| quote_literal(dtFinalAnterior) ||'
182 ,'|| quote_literal(stCodEntidade) ||' 184 ,'|| quote_literal(stCodEntidade) ||'
183 - ,'''','''','''','''','''','''','''')  
184 - AS exercicio_anterior(  
185 - cod_estrutural_anterior varchar,  
186 - receita_anterior integer,  
187 - recurso_anterior varchar,  
188 - descricao_anterior varchar,  
189 - valor_previsto_anterior numeric,  
190 - arrecadado_periodo_anterior numeric,  
191 - arrecadado_ano_anterior numeric,  
192 - diferenca_anterior numeric  
193 - ) 185 + ,'''','''','''','''','''','''',''''
  186 + ) AS exercicio_anterior(
  187 + cod_estrutural_anterior varchar,
  188 + receita_anterior integer,
  189 + recurso_anterior varchar,
  190 + descricao_anterior varchar,
  191 + valor_previsto_anterior numeric,
  192 + arrecadado_periodo_anterior numeric,
  193 + arrecadado_ano_anterior numeric,
  194 + diferenca_anterior numeric
  195 + )
194 WHERE receita_anterior IS NOT NULL 196 WHERE receita_anterior IS NOT NULL
195 '; 197 ';
196 END IF; 198 END IF;
197 stSql := stSql || ' 199 stSql := stSql || '
198 ) as tbl 200 ) as tbl
199 WHERE descricao IS NOT NULL 201 WHERE descricao IS NOT NULL
200 - GROUP BY descricao,recurso 202 + GROUP BY descricao,recurso
201 ) resultado 203 ) resultado
202 GROUP BY descricao 204 GROUP BY descricao
203 '; 205 ';
204 - 206 +
205 EXECUTE stSql; 207 EXECUTE stSql;
206 208
207 --Criando tabela para armazenar despesas referente a sua classificao para calculo futuro 209 --Criando tabela para armazenar despesas referente a sua classificao para calculo futuro
@@ -220,7 +222,7 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -220,7 +222,7 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
220 , SUM(pago_ano_anterior) AS pago_ano_anterior 222 , SUM(pago_ano_anterior) AS pago_ano_anterior
221 FROM ( 223 FROM (
222 SELECT 224 SELECT
223 - classificacao 225 + classificacao
224 ,num_recurso 226 ,num_recurso
225 ,'|| stDespesa ||' 227 ,'|| stDespesa ||'
226 ,0.00 as valor_anterior 228 ,0.00 as valor_anterior
@@ -236,50 +238,50 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -236,50 +238,50 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
236 ,'' AND od.cod_entidade IN ('|| stCodEntidade ||')'' 238 ,'' AND od.cod_entidade IN ('|| stCodEntidade ||')''
237 ,'|| quote_literal(dtInicial) ||' 239 ,'|| quote_literal(dtInicial) ||'
238 ,'|| quote_literal(dtFinal) ||' 240 ,'|| quote_literal(dtFinal) ||'
239 - ,'''','''','''','''','''' ,'''','''', '''' )  
240 - AS retorno(  
241 - exercicio char(4),  
242 - cod_despesa integer,  
243 - cod_entidade integer,  
244 - cod_programa integer,  
245 - cod_conta integer,  
246 - num_pao integer,  
247 - num_orgao integer,  
248 - num_unidade integer,  
249 - cod_recurso integer,  
250 - cod_funcao integer,  
251 - cod_subfuncao integer,  
252 - tipo_conta varchar,  
253 - vl_original numeric,  
254 - dt_criacao date,  
255 - classificacao varchar,  
256 - descricao varchar,  
257 - num_recurso varchar,  
258 - nom_recurso varchar,  
259 - nom_orgao varchar,  
260 - nom_unidade varchar,  
261 - nom_funcao varchar,  
262 - nom_subfuncao varchar,  
263 - nom_programa varchar,  
264 - nom_pao varchar,  
265 - empenhado_ano numeric,  
266 - empenhado_per numeric,  
267 - anulado_ano numeric,  
268 - anulado_per numeric,  
269 - pago_ano numeric,  
270 - pago_per numeric,  
271 - liquidado_ano numeric,  
272 - liquidado_per numeric,  
273 - saldo_inicial numeric,  
274 - suplementacoes numeric,  
275 - reducoes numeric,  
276 - total_creditos numeric,  
277 - credito_suplementar numeric,  
278 - credito_especial numeric, 241 + ,'''','''','''','''','''' ,'''','''', ''''
  242 + ) AS retorno(
  243 + exercicio char(4),
  244 + cod_despesa integer,
  245 + cod_entidade integer,
  246 + cod_programa integer,
  247 + cod_conta integer,
  248 + num_pao integer,
  249 + num_orgao integer,
  250 + num_unidade integer,
  251 + cod_recurso integer,
  252 + cod_funcao integer,
  253 + cod_subfuncao integer,
  254 + tipo_conta varchar,
  255 + vl_original numeric,
  256 + dt_criacao date,
  257 + classificacao varchar,
  258 + descricao varchar,
  259 + num_recurso varchar,
  260 + nom_recurso varchar,
  261 + nom_orgao varchar,
  262 + nom_unidade varchar,
  263 + nom_funcao varchar,
  264 + nom_subfuncao varchar,
  265 + nom_programa varchar,
  266 + nom_pao varchar,
  267 + empenhado_ano numeric,
  268 + empenhado_per numeric,
  269 + anulado_ano numeric,
  270 + anulado_per numeric,
  271 + pago_ano numeric,
  272 + pago_per numeric,
  273 + liquidado_ano numeric,
  274 + liquidado_per numeric,
  275 + saldo_inicial numeric,
  276 + suplementacoes numeric,
  277 + reducoes numeric,
  278 + total_creditos numeric,
  279 + credito_suplementar numeric,
  280 + credito_especial numeric,
279 credito_extraordinario numeric, 281 credito_extraordinario numeric,
280 num_programa varchar, 282 num_programa varchar,
281 num_acao varchar 283 num_acao varchar
282 - ) 284 + )
283 '; 285 ';
284 286
285 IF(stExercicio::integer >= 2014 )THEN 287 IF(stExercicio::integer >= 2014 )THEN
@@ -290,59 +292,59 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -290,59 +292,59 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
290 classificacao_anterior AS classificacao 292 classificacao_anterior AS classificacao
291 ,num_recurso_anterior AS num_recurso 293 ,num_recurso_anterior AS num_recurso
292 ,0.00 AS valor 294 ,0.00 AS valor
293 - ,'|| stDespesaAnterior ||'  
294 - ,0.00 AS empenhado_ano  
295 - ,0.00 AS anulado_ano  
296 - ,0.00 AS liquidado_ano  
297 - ,0.00 AS pago_ano 295 + ,'|| stDespesaAnterior ||'
  296 + ,0.00 AS empenhado_ano
  297 + ,0.00 AS anulado_ano
  298 + ,0.00 AS liquidado_ano
  299 + ,0.00 AS pago_ano
298 ,empenhado_ano_anterior 300 ,empenhado_ano_anterior
299 - ,anulado_ano_anterior  
300 - ,liquidado_ano_anterior  
301 - ,pago_ano_anterior 301 + ,anulado_ano_anterior
  302 + ,liquidado_ano_anterior
  303 + ,pago_ano_anterior
302 FROM orcamento.fn_balancete_despesa('|| quote_literal(stExercicioAnterior) ||' 304 FROM orcamento.fn_balancete_despesa('|| quote_literal(stExercicioAnterior) ||'
303 ,'' AND od.cod_entidade IN ('|| stCodEntidade ||')'' 305 ,'' AND od.cod_entidade IN ('|| stCodEntidade ||')''
304 ,'|| quote_literal(dtInicialAnterior) ||' 306 ,'|| quote_literal(dtInicialAnterior) ||'
305 ,'|| quote_literal(dtFinalAnterior) ||' 307 ,'|| quote_literal(dtFinalAnterior) ||'
306 - ,'''','''','''','''','''' ,'''','''', '''' )  
307 - AS retorno_anterior(  
308 - exercicio_anterior char(4),  
309 - cod_despesa_anterior integer,  
310 - cod_entidade_anterior integer,  
311 - cod_programa_anterior integer,  
312 - cod_conta_anterior integer,  
313 - num_pao_anterior integer,  
314 - num_orgao_anterior integer,  
315 - num_unidade_anterior integer,  
316 - cod_recurso_anterior integer,  
317 - cod_funcao_anterior integer,  
318 - cod_subfuncao_anterior integer,  
319 - tipo_conta_anterior varchar,  
320 - vl_original_anterior numeric,  
321 - dt_criacao_anterior date,  
322 - classificacao_anterior varchar,  
323 - descricao_anterior varchar,  
324 - num_recurso_anterior varchar,  
325 - nom_recurso_anterior varchar,  
326 - nom_orgao_anterior varchar,  
327 - nom_unidade_anterior varchar,  
328 - nom_funcao_anterior varchar,  
329 - nom_subfuncao_anterior varchar,  
330 - nom_programa_anterior varchar,  
331 - nom_pao_anterior varchar,  
332 - empenhado_ano_anterior numeric,  
333 - empenhado_per_anterior numeric,  
334 - anulado_ano_anterior numeric,  
335 - anulado_per_anterior numeric,  
336 - pago_ano_anterior numeric,  
337 - pago_per_anterior numeric,  
338 - liquidado_ano_anterior numeric,  
339 - liquidado_per_anterior numeric,  
340 - saldo_inicial_anterior numeric,  
341 - suplementacoes_anterior numeric,  
342 - reducoes_anterior numeric,  
343 - total_creditos_anterior numeric,  
344 - credito_suplementar_anterior numeric,  
345 - credito_especial_anterior numeric, 308 + ,'''','''','''','''','''' ,'''','''', ''''
  309 + ) AS retorno_anterior(
  310 + exercicio_anterior char(4),
  311 + cod_despesa_anterior integer,
  312 + cod_entidade_anterior integer,
  313 + cod_programa_anterior integer,
  314 + cod_conta_anterior integer,
  315 + num_pao_anterior integer,
  316 + num_orgao_anterior integer,
  317 + num_unidade_anterior integer,
  318 + cod_recurso_anterior integer,
  319 + cod_funcao_anterior integer,
  320 + cod_subfuncao_anterior integer,
  321 + tipo_conta_anterior varchar,
  322 + vl_original_anterior numeric,
  323 + dt_criacao_anterior date,
  324 + classificacao_anterior varchar,
  325 + descricao_anterior varchar,
  326 + num_recurso_anterior varchar,
  327 + nom_recurso_anterior varchar,
  328 + nom_orgao_anterior varchar,
  329 + nom_unidade_anterior varchar,
  330 + nom_funcao_anterior varchar,
  331 + nom_subfuncao_anterior varchar,
  332 + nom_programa_anterior varchar,
  333 + nom_pao_anterior varchar,
  334 + empenhado_ano_anterior numeric,
  335 + empenhado_per_anterior numeric,
  336 + anulado_ano_anterior numeric,
  337 + anulado_per_anterior numeric,
  338 + pago_ano_anterior numeric,
  339 + pago_per_anterior numeric,
  340 + liquidado_ano_anterior numeric,
  341 + liquidado_per_anterior numeric,
  342 + saldo_inicial_anterior numeric,
  343 + suplementacoes_anterior numeric,
  344 + reducoes_anterior numeric,
  345 + total_creditos_anterior numeric,
  346 + credito_suplementar_anterior numeric,
  347 + credito_especial_anterior numeric,
346 credito_extraordinario_anterior numeric, 348 credito_extraordinario_anterior numeric,
347 num_programa varchar, 349 num_programa varchar,
348 num_acao varchar 350 num_acao varchar
@@ -353,7 +355,7 @@ IF (stTipoDespesa = &#39;E&#39;) THEN @@ -353,7 +355,7 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
353 stSql := stSql || ' 355 stSql := stSql || '
354 ) AS calculo_despesas 356 ) AS calculo_despesas
355 GROUP BY classificacao 357 GROUP BY classificacao
356 - , num_recurso 358 + , num_recurso
357 '; 359 ';
358 360
359 EXECUTE stSql; 361 EXECUTE stSql;
@@ -370,8 +372,7 @@ EXECUTE stSql; @@ -370,8 +372,7 @@ EXECUTE stSql;
370 WHERE classificacao like '3%' 372 WHERE classificacao like '3%'
371 OR classificacao like '4%') 373 OR classificacao like '4%')
372 ); 374 );
373 -  
374 - 375 +
375 ELSE 376 ELSE
376 INSERT INTO tmp_calculo_despesas(classificacao,valor) VALUES('despesas_orcamentarias' 377 INSERT INTO tmp_calculo_despesas(classificacao,valor) VALUES('despesas_orcamentarias'
377 , (SELECT sum(valor) as valor 378 , (SELECT sum(valor) as valor
@@ -385,41 +386,41 @@ EXECUTE stSql; @@ -385,41 +386,41 @@ EXECUTE stSql;
385 IF (stTipoDespesa = 'E') THEN 386 IF (stTipoDespesa = 'E') THEN
386 --INSERT para colocar inscricao_restos_pagar_processados e inscricao_restos_pagar_nao_processados 387 --INSERT para colocar inscricao_restos_pagar_processados e inscricao_restos_pagar_nao_processados
387 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_processados' 388 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_processados'
388 - , (SELECT  
389 - ( 389 + , (SELECT
  390 + (
390 SUM(liquidado_ano) - SUM(pago_ano) 391 SUM(liquidado_ano) - SUM(pago_ano)
391 ) 392 )
392 FROM tmp_calculo_despesas) 393 FROM tmp_calculo_despesas)
393 - , (SELECT  
394 - ( 394 + , (SELECT
  395 + (
395 SUM(liquidado_ano_anterior) - SUM(pago_ano_anterior) 396 SUM(liquidado_ano_anterior) - SUM(pago_ano_anterior)
396 ) 397 )
397 FROM tmp_calculo_despesas) 398 FROM tmp_calculo_despesas)
398 ); 399 );
399 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_nao_processados' 400 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_nao_processados'
400 - , (SELECT  
401 - ( 401 + , (SELECT
  402 + (
402 (SUM(empenhado_ano) - SUM(anulado_ano)) - SUM(liquidado_ano) 403 (SUM(empenhado_ano) - SUM(anulado_ano)) - SUM(liquidado_ano)
403 ) 404 )
404 FROM tmp_calculo_despesas) 405 FROM tmp_calculo_despesas)
405 - , (SELECT  
406 - ( 406 + , (SELECT
  407 + (
407 (SUM(empenhado_ano_anterior) - SUM(anulado_ano_anterior)) - SUM(liquidado_ano_anterior) 408 (SUM(empenhado_ano_anterior) - SUM(anulado_ano_anterior)) - SUM(liquidado_ano_anterior)
408 ) 409 )
409 FROM tmp_calculo_despesas) 410 FROM tmp_calculo_despesas)
410 ); 411 );
411 END IF; 412 END IF;
412 - 413 +
413 IF (stTipoDespesa = 'L') THEN 414 IF (stTipoDespesa = 'L') THEN
414 --INSERT para colocar inscricao_restos_pagar_processados 415 --INSERT para colocar inscricao_restos_pagar_processados
415 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_processados' 416 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_processados'
416 - , (SELECT  
417 - ( 417 + , (SELECT
  418 + (
418 SUM(liquidado_ano) - SUM(pago_ano) 419 SUM(liquidado_ano) - SUM(pago_ano)
419 ) 420 )
420 FROM tmp_calculo_despesas) 421 FROM tmp_calculo_despesas)
421 - , (SELECT  
422 - ( 422 + , (SELECT
  423 + (
423 SUM(liquidado_ano_anterior) - SUM(pago_ano_anterior) 424 SUM(liquidado_ano_anterior) - SUM(pago_ano_anterior)
424 ) 425 )
425 FROM tmp_calculo_despesas 426 FROM tmp_calculo_despesas
@@ -452,8 +453,19 @@ EXECUTE stSql; @@ -452,8 +453,19 @@ EXECUTE stSql;
452 GROUP BY descricao 453 GROUP BY descricao
453 '; 454 ';
454 EXECUTE stSql; 455 EXECUTE stSql;
455 -  
456 - 456 +
  457 +--FILTRO LANÇAMENTO DIFERENTE DE TIPO 'M'
  458 +stFiltroTrans := 'cod_entidade IN ('|| stCodEntidade ||')
  459 + AND cod_estrutural SIMILAR TO ''4.5.1.1%|3.5.1.1%|4.5.1.2%|3.5.1.2%|4.5.1.3%|3.5.1.3%''
  460 + AND tipo != ''M'' ';
  461 +
  462 +stFiltroExtra := 'cod_entidade IN ('|| stCodEntidade ||')
  463 + AND ( cod_estrutural NOT SIMILAR TO ''4.5.1.1%|3.5.1.1%|4.5.1.2%|3.5.1.2%|4.5.1.3%|3.5.1.3%|2.1.8%|1.1.3.5%|1.1.3.8%''
  464 + OR ( cod_estrutural LIKE ''2.1.8%'' AND tipo != ''M'' )
  465 + OR ( cod_estrutural LIKE ''1.1.3.5%'' AND tipo != ''M'' )
  466 + OR ( cod_estrutural LIKE ''1.1.3.8%'' AND tipo != ''M'' )
  467 + ) ';
  468 +
457 --Criando tabela para armazenar saldos referente ao cod_estrutural 469 --Criando tabela para armazenar saldos referente ao cod_estrutural
458 stSql := ' CREATE TEMPORARY TABLE fluxo_caixa_saldo AS 470 stSql := ' CREATE TEMPORARY TABLE fluxo_caixa_saldo AS
459 SELECT descricao 471 SELECT descricao
@@ -465,41 +477,41 @@ EXECUTE stSql; @@ -465,41 +477,41 @@ EXECUTE stSql;
465 ,(sum(vl_saldo_creditos_anterior)) AS vl_saldo_creditos_anterior 477 ,(sum(vl_saldo_creditos_anterior)) AS vl_saldo_creditos_anterior
466 ,(sum(vl_saldo_atual_anterior)) AS vl_saldo_atual_anterior 478 ,(sum(vl_saldo_atual_anterior)) AS vl_saldo_atual_anterior
467 ,(sum(vl_saldo_inicial_anterior)) AS vl_saldo_inicial_anterior 479 ,(sum(vl_saldo_inicial_anterior)) AS vl_saldo_inicial_anterior
468 - FROM (  
469 - SELECT 480 + FROM (
  481 + SELECT
470 CASE'; 482 CASE';
471 - IF (stExercicio::integer >= 2014) THEN  
472 - stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' ';  
473 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro'''; 483 + IF (stExercicio::integer >= 2014)
  484 + THEN stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' ';
  485 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro''';
474 END IF; 486 END IF;
475 - stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados''';  
476 -  
477 - IF (stExercicio::integer >= 2014) THEN  
478 - stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5%'' OR cod_estrutural like ''1.1.3.8%'' ) AND indicador_superavit = ''financeiro''';  
479 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro'''; 487 + stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados''';
  488 +
  489 + IF (stExercicio::integer >= 2014)
  490 + THEN stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5%'' OR cod_estrutural like ''1.1.3.8%'' ) AND indicador_superavit = ''financeiro''';
  491 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro''';
480 END IF; 492 END IF;
481 - stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados_saldo''';  
482 -  
483 - IF (stExercicio::integer >= 2014) THEN  
484 - stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5.0%'' OR cod_estrutural like ''1.1.3.8.0%'' )  
485 - THEN ''outros_recebimentos_ext''';  
486 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' AND indicador_superavit = ''financeiro''  
487 - THEN ''valores_restituiveis'''; 493 + stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados_saldo''';
  494 +
  495 + IF (stExercicio::integer >= 2014)
  496 + THEN stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5.0%'' OR cod_estrutural like ''1.1.3.8.0%'' )
  497 + THEN ''outros_recebimentos_ext''';
  498 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' AND indicador_superavit = ''financeiro''
  499 + THEN ''valores_restituiveis''';
488 END IF; 500 END IF;
489 -  
490 - IF (stExercicio::integer >= 2014) THEN  
491 - stSql := stSql || ' WHEN (cod_estrutural like ''1.1.1%'' OR cod_estrutural like ''1.1.4.1%'' ) AND cod_sistema IN (1,2)';  
492 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.1.0%'''; 501 +
  502 + IF (stExercicio::integer >= 2014)
  503 + THEN stSql := stSql || ' WHEN (cod_estrutural like ''1.1.1%'' OR cod_estrutural like ''1.1.4.1%'' ) AND cod_sistema IN (1,2)';
  504 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.1.0%''';
493 END IF; 505 END IF;
494 - stSql := stSql || ' 506 + stSql := stSql || '
495 THEN ''caixa_equivalentes'' 507 THEN ''caixa_equivalentes''
496 WHEN cod_estrutural like ''4.5.1.1.0%'' 508 WHEN cod_estrutural like ''4.5.1.1.0%''
497 THEN ''transferencias_recebidas_orcamentaria'' 509 THEN ''transferencias_recebidas_orcamentaria''
498 WHEN cod_estrutural like ''3.5.1.1.0%'' 510 WHEN cod_estrutural like ''3.5.1.1.0%''
499 THEN ''tranferencias_concedidas_orcamentaria'' 511 THEN ''tranferencias_concedidas_orcamentaria''
500 - WHEN cod_estrutural like ''4.5.1.2.0%'' 512 + WHEN cod_estrutural like ''4.5.1.2.0%''
501 THEN ''transferencias_recebidas_independentes_orcamentaria'' 513 THEN ''transferencias_recebidas_independentes_orcamentaria''
502 - WHEN cod_estrutural like ''3.5.1.2.0%'' 514 + WHEN cod_estrutural like ''3.5.1.2.0%''
503 THEN ''transferencias_concedidas_independentes_orcamentaria'' 515 THEN ''transferencias_concedidas_independentes_orcamentaria''
504 WHEN cod_estrutural like ''4.5.1.3.0%'' 516 WHEN cod_estrutural like ''4.5.1.3.0%''
505 THEN ''transferencias_recebidas_cobertura'' 517 THEN ''transferencias_recebidas_cobertura''
@@ -518,43 +530,43 @@ EXECUTE stSql; @@ -518,43 +530,43 @@ EXECUTE stSql;
518 ,0.00 AS vl_saldo_creditos_anterior 530 ,0.00 AS vl_saldo_creditos_anterior
519 ,0.00 AS vl_saldo_atual_anterior 531 ,0.00 AS vl_saldo_atual_anterior
520 ,0.00 AS vl_saldo_inicial_anterior 532 ,0.00 AS vl_saldo_inicial_anterior
521 - ,cod_estrutural 533 + ,cod_estrutural
522 FROM ( SELECT * 534 FROM ( SELECT *
523 FROM contabilidade.fn_rl_balancete_verificacao_transferencias('|| quote_literal(stExercicio) ||' 535 FROM contabilidade.fn_rl_balancete_verificacao_transferencias('|| quote_literal(stExercicio) ||'
524 - ,''cod_entidade IN ('|| stCodEntidade ||') ''  
525 - ,'|| quote_literal(dtInicial) ||'  
526 - ,'|| quote_literal(dtFinal) ||'  
527 - ,''A''::CHAR)  
528 - AS retorno  
529 - ( cod_estrutural varchar  
530 - ,nivel integer  
531 - ,nom_conta varchar  
532 - ,cod_sistema integer  
533 - ,indicador_superavit char(12)  
534 - ,vl_saldo_anterior numeric  
535 - ,vl_saldo_debitos numeric  
536 - ,vl_saldo_creditos numeric  
537 - ,vl_saldo_atual numeric  
538 - ) 536 + ,'|| quote_literal(stFiltroTrans) ||'
  537 + ,'|| quote_literal(dtInicial) ||'
  538 + ,'|| quote_literal(dtFinal) ||'
  539 + ,''A''::CHAR
  540 + ) AS retorno
  541 + ( cod_estrutural varchar
  542 + ,nivel integer
  543 + ,nom_conta varchar
  544 + ,cod_sistema integer
  545 + ,indicador_superavit char(12)
  546 + ,vl_saldo_anterior numeric
  547 + ,vl_saldo_debitos numeric
  548 + ,vl_saldo_creditos numeric
  549 + ,vl_saldo_atual numeric
  550 + )
539 WHERE cod_estrutural SIMILAR TO ''4.5.1.1.0%|3.5.1.1.0%|4.5.1.2.0%|3.5.1.2.0%|4.5.1.3.0%|3.5.1.3%'' 551 WHERE cod_estrutural SIMILAR TO ''4.5.1.1.0%|3.5.1.1.0%|4.5.1.2.0%|3.5.1.2.0%|4.5.1.3.0%|3.5.1.3%''
540 UNION 552 UNION
541 SELECT retorno.* 553 SELECT retorno.*
542 FROM contabilidade.fn_rl_balancete_verificacao('|| quote_literal(stExercicio) ||' 554 FROM contabilidade.fn_rl_balancete_verificacao('|| quote_literal(stExercicio) ||'
543 - ,''cod_entidade IN ('|| stCodEntidade ||') ''  
544 - ,'|| quote_literal(dtInicial) ||'  
545 - ,'|| quote_literal(dtFinal) ||'  
546 - ,''A''::CHAR)  
547 - AS retorno  
548 - ( cod_estrutural varchar  
549 - ,nivel integer  
550 - ,nom_conta varchar  
551 - ,cod_sistema integer  
552 - ,indicador_superavit char(12)  
553 - ,vl_saldo_anterior numeric  
554 - ,vl_saldo_debitos numeric  
555 - ,vl_saldo_creditos numeric  
556 - ,vl_saldo_atual numeric  
557 - ) 555 + ,'|| quote_literal(stFiltroExtra) ||'
  556 + ,'|| quote_literal(dtInicial) ||'
  557 + ,'|| quote_literal(dtFinal) ||'
  558 + ,''A''::CHAR
  559 + ) AS retorno
  560 + ( cod_estrutural varchar
  561 + ,nivel integer
  562 + ,nom_conta varchar
  563 + ,cod_sistema integer
  564 + ,indicador_superavit char(12)
  565 + ,vl_saldo_anterior numeric
  566 + ,vl_saldo_debitos numeric
  567 + ,vl_saldo_creditos numeric
  568 + ,vl_saldo_atual numeric
  569 + )
558 JOIN contabilidade.plano_conta 570 JOIN contabilidade.plano_conta
559 ON plano_conta.exercicio = '|| quote_literal(stExercicio) ||' 571 ON plano_conta.exercicio = '|| quote_literal(stExercicio) ||'
560 AND plano_conta.cod_estrutural = retorno.cod_estrutural 572 AND plano_conta.cod_estrutural = retorno.cod_estrutural
@@ -563,43 +575,43 @@ EXECUTE stSql; @@ -563,43 +575,43 @@ EXECUTE stSql;
563 ) AS retorno 575 ) AS retorno
564 GROUP BY descricao 576 GROUP BY descricao
565 , cod_estrutural 577 , cod_estrutural
566 - 578 +
567 UNION ALL 579 UNION ALL
568 -  
569 - SELECT 580 +
  581 + SELECT
570 CASE'; 582 CASE';
571 - IF (stExercicio::integer >= 2014) THEN  
572 - stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' ';  
573 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro'''; 583 + IF (stExercicio::integer >= 2014)
  584 + THEN stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' ';
  585 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro''';
574 END IF; 586 END IF;
575 - stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados''';  
576 -  
577 - IF (stExercicio::integer >= 2014) THEN  
578 - stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5%'' OR cod_estrutural like ''1.1.3.8%'' ) AND indicador_superavit = ''financeiro''';  
579 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro'''; 587 + stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados''';
  588 +
  589 + IF (stExercicio::integer >= 2014)
  590 + THEN stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5%'' OR cod_estrutural like ''1.1.3.8%'' ) AND indicador_superavit = ''financeiro''';
  591 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.3%'' AND indicador_superavit = ''financeiro''';
580 END IF; 592 END IF;
581 - stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados_saldo''';  
582 -  
583 - IF (stExercicio::integer >= 2014) THEN  
584 - stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5.0%'' OR cod_estrutural like ''1.1.3.8.0%'' )  
585 - THEN ''outros_recebimentos_ext''';  
586 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' AND indicador_superavit = ''financeiro''  
587 - THEN ''valores_restituiveis'''; 593 + stSql := stSql || ' THEN ''depositos_restituiveis_valores_vinculados_saldo''';
  594 +
  595 + IF (stExercicio::integer >= 2014)
  596 + THEN stSql := stSql || ' WHEN (cod_estrutural like ''1.1.3.5.0%'' OR cod_estrutural like ''1.1.3.8.0%'' )
  597 + THEN ''outros_recebimentos_ext''';
  598 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''2.1.8%'' AND indicador_superavit = ''financeiro''
  599 + THEN ''valores_restituiveis''';
588 END IF; 600 END IF;
589 -  
590 - IF (stExercicio::integer >= 2014) THEN  
591 - stSql := stSql || ' WHEN (cod_estrutural like ''1.1.1%'' OR cod_estrutural like ''1.1.4.1%'' ) AND cod_sistema IN (1,2)';  
592 - ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.1.0%'''; 601 +
  602 + IF (stExercicio::integer >= 2014)
  603 + THEN stSql := stSql || ' WHEN (cod_estrutural like ''1.1.1%'' OR cod_estrutural like ''1.1.4.1%'' ) AND cod_sistema IN (1,2)';
  604 + ELSE stSql := stSql || ' WHEN cod_estrutural like ''1.1.1.0%''';
593 END IF; 605 END IF;
594 - stSql := stSql || ' 606 + stSql := stSql || '
595 THEN ''caixa_equivalentes'' 607 THEN ''caixa_equivalentes''
596 WHEN cod_estrutural like ''4.5.1.1.0%'' 608 WHEN cod_estrutural like ''4.5.1.1.0%''
597 THEN ''transferencias_recebidas_orcamentaria'' 609 THEN ''transferencias_recebidas_orcamentaria''
598 WHEN cod_estrutural like ''3.5.1.1.0%'' 610 WHEN cod_estrutural like ''3.5.1.1.0%''
599 THEN ''tranferencias_concedidas_orcamentaria'' 611 THEN ''tranferencias_concedidas_orcamentaria''
600 - WHEN cod_estrutural like ''4.5.1.2.0%'' 612 + WHEN cod_estrutural like ''4.5.1.2.0%''
601 THEN ''transferencias_recebidas_independentes_orcamentaria'' 613 THEN ''transferencias_recebidas_independentes_orcamentaria''
602 - WHEN cod_estrutural like ''3.5.1.2.0%'' 614 + WHEN cod_estrutural like ''3.5.1.2.0%''
603 THEN ''transferencias_concedidas_independentes_orcamentaria'' 615 THEN ''transferencias_concedidas_independentes_orcamentaria''
604 WHEN cod_estrutural like ''4.5.1.3.0%'' 616 WHEN cod_estrutural like ''4.5.1.3.0%''
605 THEN ''transferencias_recebidas_cobertura'' 617 THEN ''transferencias_recebidas_cobertura''
@@ -618,43 +630,43 @@ EXECUTE stSql; @@ -618,43 +630,43 @@ EXECUTE stSql;
618 ,(sum(vl_saldo_creditos)) AS vl_saldo_creditos_anterior 630 ,(sum(vl_saldo_creditos)) AS vl_saldo_creditos_anterior
619 ,(sum(vl_saldo_atual)) AS vl_saldo_atual_anterior 631 ,(sum(vl_saldo_atual)) AS vl_saldo_atual_anterior
620 ,(sum(vl_saldo_anterior)) AS vl_saldo_inicial_anterior 632 ,(sum(vl_saldo_anterior)) AS vl_saldo_inicial_anterior
621 - ,cod_estrutural 633 + ,cod_estrutural
622 FROM ( SELECT * 634 FROM ( SELECT *
623 FROM contabilidade.fn_rl_balancete_verificacao_transferencias('|| quote_literal(stExercicioAnterior) ||' 635 FROM contabilidade.fn_rl_balancete_verificacao_transferencias('|| quote_literal(stExercicioAnterior) ||'
624 - ,''cod_entidade IN ('|| stCodEntidade ||') ''  
625 - ,'|| quote_literal(dtInicialAnterior) ||'  
626 - ,'|| quote_literal(dtFinalAnterior) ||'  
627 - ,''A''::CHAR)  
628 - AS retorno  
629 - ( cod_estrutural varchar  
630 - ,nivel integer  
631 - ,nom_conta varchar  
632 - ,cod_sistema integer  
633 - ,indicador_superavit char(12)  
634 - ,vl_saldo_anterior numeric  
635 - ,vl_saldo_debitos numeric  
636 - ,vl_saldo_creditos numeric  
637 - ,vl_saldo_atual numeric  
638 - ) 636 + ,'|| quote_literal(stFiltroTrans) ||'
  637 + ,'|| quote_literal(dtInicialAnterior) ||'
  638 + ,'|| quote_literal(dtFinalAnterior) ||'
  639 + ,''A''::CHAR
  640 + ) AS retorno
  641 + (cod_estrutural varchar
  642 + ,nivel integer
  643 + ,nom_conta varchar
  644 + ,cod_sistema integer
  645 + ,indicador_superavit char(12)
  646 + ,vl_saldo_anterior numeric
  647 + ,vl_saldo_debitos numeric
  648 + ,vl_saldo_creditos numeric
  649 + ,vl_saldo_atual numeric
  650 + )
639 WHERE cod_estrutural SIMILAR TO ''4.5.1.1.0%|3.5.1.1.0%|4.5.1.2.0%|3.5.1.2.0%|4.5.1.3.0%|3.5.1.3%'' 651 WHERE cod_estrutural SIMILAR TO ''4.5.1.1.0%|3.5.1.1.0%|4.5.1.2.0%|3.5.1.2.0%|4.5.1.3.0%|3.5.1.3%''
640 UNION 652 UNION
641 SELECT retorno.* 653 SELECT retorno.*
642 FROM contabilidade.fn_rl_balancete_verificacao('|| quote_literal(stExercicioAnterior) ||' 654 FROM contabilidade.fn_rl_balancete_verificacao('|| quote_literal(stExercicioAnterior) ||'
643 - ,''cod_entidade IN ('|| stCodEntidade ||') ''  
644 - ,'|| quote_literal(dtInicialAnterior) ||'  
645 - ,'|| quote_literal(dtFinalAnterior) ||'  
646 - ,''A''::CHAR)  
647 - AS retorno  
648 - ( cod_estrutural varchar  
649 - ,nivel integer  
650 - ,nom_conta varchar  
651 - ,cod_sistema integer  
652 - ,indicador_superavit char(12)  
653 - ,vl_saldo_anterior numeric  
654 - ,vl_saldo_debitos numeric  
655 - ,vl_saldo_creditos numeric  
656 - ,vl_saldo_atual numeric  
657 - ) 655 + ,'|| quote_literal(stFiltroExtra) ||'
  656 + ,'|| quote_literal(dtInicialAnterior) ||'
  657 + ,'|| quote_literal(dtFinalAnterior) ||'
  658 + ,''A''::CHAR
  659 + ) AS retorno
  660 + (cod_estrutural varchar
  661 + ,nivel integer
  662 + ,nom_conta varchar
  663 + ,cod_sistema integer
  664 + ,indicador_superavit char(12)
  665 + ,vl_saldo_anterior numeric
  666 + ,vl_saldo_debitos numeric
  667 + ,vl_saldo_creditos numeric
  668 + ,vl_saldo_atual numeric
  669 + )
658 JOIN contabilidade.plano_conta 670 JOIN contabilidade.plano_conta
659 ON plano_conta.exercicio = '|| quote_literal(stExercicio) ||' 671 ON plano_conta.exercicio = '|| quote_literal(stExercicio) ||'
660 AND plano_conta.cod_estrutural = retorno.cod_estrutural 672 AND plano_conta.cod_estrutural = retorno.cod_estrutural
@@ -665,8 +677,9 @@ EXECUTE stSql; @@ -665,8 +677,9 @@ EXECUTE stSql;
665 , cod_estrutural 677 , cod_estrutural
666 ) AS fluxo_caixa_saldo 678 ) AS fluxo_caixa_saldo
667 WHERE descricao IS NOT NULL 679 WHERE descricao IS NOT NULL
668 - GROUP BY descricao 680 + GROUP BY descricao
669 '; 681 ';
  682 +
670 EXECUTE stSql; 683 EXECUTE stSql;
671 684
672 --SELECT para armazenar saldos referente ao cod_estrutural relativos às Transferências, pois não podem possuir histórico = 8 685 --SELECT para armazenar saldos referente ao cod_estrutural relativos às Transferências, pois não podem possuir histórico = 8
@@ -692,18 +705,18 @@ stSql := &#39;SELECT @@ -692,18 +705,18 @@ stSql := &#39;SELECT
692 ,''cod_entidade IN ('|| stCodEntidade ||') '' 705 ,''cod_entidade IN ('|| stCodEntidade ||') ''
693 ,'|| quote_literal(dtInicial) ||' 706 ,'|| quote_literal(dtInicial) ||'
694 ,'|| quote_literal(dtFinal) ||' 707 ,'|| quote_literal(dtFinal) ||'
695 - ,''A''::CHAR)  
696 - AS retorno  
697 - ( cod_estrutural varchar  
698 - , nivel integer  
699 - , nom_conta varchar  
700 - , cod_sistema integer  
701 - , indicador_superavit char(12)  
702 - , vl_saldo_anterior numeric  
703 - , vl_saldo_debitos numeric  
704 - , vl_saldo_creditos numeric  
705 - , vl_saldo_atual numeric  
706 - ) 708 + ,''A''::CHAR
  709 + ) AS retorno
  710 + (cod_estrutural varchar
  711 + ,nivel integer
  712 + ,nom_conta varchar
  713 + ,cod_sistema integer
  714 + ,indicador_superavit char(12)
  715 + ,vl_saldo_anterior numeric
  716 + ,vl_saldo_debitos numeric
  717 + ,vl_saldo_creditos numeric
  718 + ,vl_saldo_atual numeric
  719 + )
707 720
708 UNION 721 UNION
709 722
@@ -716,18 +729,18 @@ stSql := &#39;SELECT @@ -716,18 +729,18 @@ stSql := &#39;SELECT
716 ,''cod_entidade IN ('|| stCodEntidade ||') '' 729 ,''cod_entidade IN ('|| stCodEntidade ||') ''
717 ,'|| quote_literal(dtInicialAnterior) ||' 730 ,'|| quote_literal(dtInicialAnterior) ||'
718 ,'|| quote_literal(dtFinalAnterior) ||' 731 ,'|| quote_literal(dtFinalAnterior) ||'
719 - ,''A''::CHAR)  
720 - AS retorno  
721 - ( cod_estrutural varchar  
722 - , nivel integer  
723 - , nom_conta varchar  
724 - , cod_sistema integer  
725 - , indicador_superavit char(12)  
726 - , vl_saldo_anterior numeric  
727 - , vl_saldo_debitos numeric  
728 - , vl_saldo_creditos numeric  
729 - , vl_saldo_atual numeric  
730 - ) 732 + ,''A''::CHAR
  733 + ) AS retorno
  734 + (cod_estrutural varchar
  735 + ,nivel integer
  736 + ,nom_conta varchar
  737 + ,cod_sistema integer
  738 + ,indicador_superavit char(12)
  739 + ,vl_saldo_anterior numeric
  740 + ,vl_saldo_debitos numeric
  741 + ,vl_saldo_creditos numeric
  742 + ,vl_saldo_atual numeric
  743 + )
731 ) AS retorno 744 ) AS retorno
732 WHERE cod_estrutural SIMILAR TO ''6.3.2.2.0%|6.3.1.4.0%'' 745 WHERE cod_estrutural SIMILAR TO ''6.3.2.2.0%|6.3.1.4.0%''
733 GROUP BY descricao 746 GROUP BY descricao
@@ -747,39 +760,39 @@ END LOOP; @@ -747,39 +760,39 @@ END LOOP;
747 IF (stExercicio::integer >= 2014) THEN 760 IF (stExercicio::integer >= 2014) THEN
748 stSql :=' CREATE TEMPORARY TABLE resultado_financeiro AS 761 stSql :=' CREATE TEMPORARY TABLE resultado_financeiro AS
749 SELECT * FROM( 762 SELECT * FROM(
750 - SELECT 763 + SELECT
751 descricao 764 descricao
752 - ,vl_saldo_anterior as valor_anterior  
753 - ,vl_saldo_debitos as valor_debito  
754 - ,vl_saldo_creditos as valor_credito  
755 - ,vl_saldo_atual as valor 765 + ,vl_saldo_anterior as valor_anterior
  766 + ,vl_saldo_debitos as valor_debito
  767 + ,vl_saldo_creditos as valor_credito
  768 + ,vl_saldo_atual as valor
756 ,vl_saldo_debitos_anterior as valor_debito_anterior 769 ,vl_saldo_debitos_anterior as valor_debito_anterior
757 ,vl_saldo_creditos_anterior as valor_credito_anterior 770 ,vl_saldo_creditos_anterior as valor_credito_anterior
758 ,vl_saldo_atual_anterior as valor_atual_anterior 771 ,vl_saldo_atual_anterior as valor_atual_anterior
759 ,vl_saldo_inicial_anterior as valor_inicial_anterior 772 ,vl_saldo_inicial_anterior as valor_inicial_anterior
760 FROM fluxo_caixa_saldo 773 FROM fluxo_caixa_saldo
761 UNION 774 UNION
762 - SELECT 775 + SELECT
763 descricao 776 descricao
764 ,arrecadado_periodo_anterior as valor_anterior 777 ,arrecadado_periodo_anterior as valor_anterior
765 - ,0 as valor_debito  
766 - ,0 as valor_credito  
767 - ,arrecadado_periodo as valor  
768 - ,0 as valor_debito_anterior  
769 - ,0 as valor_credito_anterior  
770 - ,0 as valor_atual_anterior 778 + ,0 as valor_debito
  779 + ,0 as valor_credito
  780 + ,arrecadado_periodo as valor
  781 + ,0 as valor_debito_anterior
  782 + ,0 as valor_credito_anterior
  783 + ,0 as valor_atual_anterior
771 ,0 as valor_inicial_anterior 784 ,0 as valor_inicial_anterior
772 FROM fluxo_caixa_receita 785 FROM fluxo_caixa_receita
773 UNION 786 UNION
774 - SELECT 787 + SELECT
775 descricao 788 descricao
776 ,valor_anterior as valor_anterior 789 ,valor_anterior as valor_anterior
777 - ,0 as valor_debito  
778 - ,0 as valor_credito 790 + ,0 as valor_debito
  791 + ,0 as valor_credito
779 ,valor as valor 792 ,valor as valor
780 - ,0 as valor_debito_anterior  
781 - ,0 as valor_credito_anterior  
782 - ,0 as valor_atual_anterior 793 + ,0 as valor_debito_anterior
  794 + ,0 as valor_credito_anterior
  795 + ,0 as valor_atual_anterior
783 ,0 as valor_inicial_anterior 796 ,0 as valor_inicial_anterior
784 FROM tmp_despesas 797 FROM tmp_despesas
785 )as tbl 798 )as tbl
@@ -791,28 +804,28 @@ IF (stExercicio::integer &gt;= 2014) THEN @@ -791,28 +804,28 @@ IF (stExercicio::integer &gt;= 2014) THEN
791 ELSE 804 ELSE
792 stSql :=' CREATE TEMPORARY TABLE resultado_financeiro AS 805 stSql :=' CREATE TEMPORARY TABLE resultado_financeiro AS
793 SELECT * FROM( 806 SELECT * FROM(
794 - SELECT 807 + SELECT
795 descricao 808 descricao
796 - ,vl_saldo_anterior as valor_anterior  
797 - ,vl_saldo_debitos as valor_debito  
798 - ,vl_saldo_creditos as valor_credito  
799 - ,vl_saldo_atual as valor 809 + ,vl_saldo_anterior as valor_anterior
  810 + ,vl_saldo_debitos as valor_debito
  811 + ,vl_saldo_creditos as valor_credito
  812 + ,vl_saldo_atual as valor
800 FROM fluxo_caixa_saldo 813 FROM fluxo_caixa_saldo
801 UNION 814 UNION
802 - SELECT 815 + SELECT
803 descricao 816 descricao
804 - ,0 as valor_anterior  
805 - ,0 as valor_debito  
806 - ,0 as valor_credito  
807 - ,arrecadado_periodo as valor 817 + ,0 as valor_anterior
  818 + ,0 as valor_debito
  819 + ,0 as valor_credito
  820 + ,arrecadado_periodo as valor
808 FROM fluxo_caixa_receita 821 FROM fluxo_caixa_receita
809 UNION 822 UNION
810 - SELECT 823 + SELECT
811 descricao 824 descricao
812 - ,0 as valor_anterior  
813 - ,0 as valor_debito  
814 - ,0 as valor_credito  
815 - ,valor 825 + ,0 as valor_anterior
  826 + ,0 as valor_debito
  827 + ,0 as valor_credito
  828 + ,valor
816 FROM tmp_despesas 829 FROM tmp_despesas
817 )as tbl 830 )as tbl
818 WHERE descricao <> '''' 831 WHERE descricao <> ''''
@@ -832,10 +845,10 @@ END IF; @@ -832,10 +845,10 @@ END IF;
832 ,valor_dispendios NUMERIC 845 ,valor_dispendios NUMERIC
833 ,valor_dispendios_anterior NUMERIC 846 ,valor_dispendios_anterior NUMERIC
834 ) 847 )
835 - '; 848 + ';
  849 +
836 EXECUTE stSql; 850 EXECUTE stSql;
837 -  
838 - 851 +
839 --CRIANDO DESCRICOES 852 --CRIANDO DESCRICOES
840 --RECEITAS POR RECURSO 853 --RECEITAS POR RECURSO
841 arDescricao[0] := 'Receita Orçamentária(I)'; 854 arDescricao[0] := 'Receita Orçamentária(I)';
@@ -974,12 +987,12 @@ END IF; @@ -974,12 +987,12 @@ END IF;
974 987
975 --INSERIR Descricoes na Tabela 988 --INSERIR Descricoes na Tabela
976 FOR i IN 0..27 LOOP 989 FOR i IN 0..27 LOOP
977 - INSERT INTO relatorio_financeiro( ordem  
978 - ,descricao_ingressos  
979 - ,valor_ingresso  
980 - ,valor_ingresso_anterior  
981 - ,descricao_dispendios  
982 - ,valor_dispendios 990 + INSERT INTO relatorio_financeiro( ordem
  991 + ,descricao_ingressos
  992 + ,valor_ingresso
  993 + ,valor_ingresso_anterior
  994 + ,descricao_dispendios
  995 + ,valor_dispendios
983 ,valor_dispendios_anterior) 996 ,valor_dispendios_anterior)
984 VALUES( i 997 VALUES( i
985 ,arDescricao[i] 998 ,arDescricao[i]
@@ -997,22 +1010,22 @@ END IF; @@ -997,22 +1010,22 @@ END IF;
997 SET valor_ingresso = COALESCE((SELECT ABS(valor_credito) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00) 1010 SET valor_ingresso = COALESCE((SELECT ABS(valor_credito) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
998 ,valor_ingresso_anterior = COALESCE((SELECT ABS(valor_credito_anterior) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00) 1011 ,valor_ingresso_anterior = COALESCE((SELECT ABS(valor_credito_anterior) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
999 WHERE ordem = 20; 1012 WHERE ordem = 20;
1000 - 1013 +
1001 UPDATE relatorio_financeiro 1014 UPDATE relatorio_financeiro
1002 SET valor_dispendios = COALESCE((SELECT ABS(valor_debito) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00) 1015 SET valor_dispendios = COALESCE((SELECT ABS(valor_debito) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
1003 ,valor_dispendios_anterior = COALESCE((SELECT ABS(valor_debito_anterior) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00) 1016 ,valor_dispendios_anterior = COALESCE((SELECT ABS(valor_debito_anterior) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
1004 WHERE ordem = 20; 1017 WHERE ordem = 20;
1005 - 1018 +
1006 UPDATE relatorio_financeiro 1019 UPDATE relatorio_financeiro
1007 SET valor_ingresso = COALESCE((SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00) 1020 SET valor_ingresso = COALESCE((SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1008 ,valor_ingresso_anterior = COALESCE((SELECT valor_inicial_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00) 1021 ,valor_ingresso_anterior = COALESCE((SELECT valor_inicial_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1009 WHERE ordem = 25; 1022 WHERE ordem = 25;
1010 - 1023 +
1011 UPDATE relatorio_financeiro 1024 UPDATE relatorio_financeiro
1012 SET valor_dispendios = COALESCE((SELECT valor FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00) 1025 SET valor_dispendios = COALESCE((SELECT valor FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1013 ,valor_dispendios_anterior = COALESCE((SELECT valor_atual_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00) 1026 ,valor_dispendios_anterior = COALESCE((SELECT valor_atual_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1014 WHERE ordem = 25; 1027 WHERE ordem = 25;
1015 - 1028 +
1016 IF (stExercicio::integer >= 2014) THEN 1029 IF (stExercicio::integer >= 2014) THEN
1017 UPDATE relatorio_financeiro 1030 UPDATE relatorio_financeiro
1018 SET valor_ingresso = COALESCE((SELECT valor_debito FROM resultado_financeiro WHERE descricao = 'outros_recebimentos_ext'),0.00) 1031 SET valor_ingresso = COALESCE((SELECT valor_debito FROM resultado_financeiro WHERE descricao = 'outros_recebimentos_ext'),0.00)
@@ -1023,7 +1036,7 @@ END IF; @@ -1023,7 +1036,7 @@ END IF;
1023 , valor_ingresso_anterior = COALESCE((SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'valores_restituiveis'),0.00) 1036 , valor_ingresso_anterior = COALESCE((SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'valores_restituiveis'),0.00)
1024 WHERE ordem = 21; 1037 WHERE ordem = 21;
1025 END IF; 1038 END IF;
1026 - 1039 +
1027 IF (stExercicio::integer >= 2014) THEN 1040 IF (stExercicio::integer >= 2014) THEN
1028 UPDATE relatorio_financeiro 1041 UPDATE relatorio_financeiro
1029 SET valor_dispendios = COALESCE((SELECT valor_credito FROM resultado_financeiro WHERE descricao = 'outros_recebimentos_ext'),0.00) 1042 SET valor_dispendios = COALESCE((SELECT valor_credito FROM resultado_financeiro WHERE descricao = 'outros_recebimentos_ext'),0.00)
@@ -1070,7 +1083,7 @@ END IF; @@ -1070,7 +1083,7 @@ END IF;
1070 SET valor_ingresso = (SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes') 1083 SET valor_ingresso = (SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
1071 , valor_ingresso_anterior = (SELECT valor_inicial_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes') 1084 , valor_ingresso_anterior = (SELECT valor_inicial_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
1072 WHERE ordem = 24; 1085 WHERE ordem = 24;
1073 - 1086 +
1074 UPDATE relatorio_financeiro 1087 UPDATE relatorio_financeiro
1075 SET valor_dispendios = (SELECT valor FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes') 1088 SET valor_dispendios = (SELECT valor FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
1076 ,valor_dispendios_anterior = (SELECT valor_atual_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes') 1089 ,valor_dispendios_anterior = (SELECT valor_atual_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
@@ -1083,14 +1096,14 @@ END IF; @@ -1083,14 +1096,14 @@ END IF;
1083 valor_ingresso = (SELECT SUM(valor_ingresso)FROM relatorio_financeiro where ordem IN (7,8)) 1096 valor_ingresso = (SELECT SUM(valor_ingresso)FROM relatorio_financeiro where ordem IN (7,8))
1084 ,valor_ingresso_anterior = (SELECT SUM(valor_ingresso_anterior) as valor FROM relatorio_financeiro where ordem IN (7,8)) 1097 ,valor_ingresso_anterior = (SELECT SUM(valor_ingresso_anterior) as valor FROM relatorio_financeiro where ordem IN (7,8))
1085 WHERE ordem IN (6); 1098 WHERE ordem IN (6);
1086 - 1099 +
1087 --Receitas Orcamentarias 1.0.0.0 + 2.0.0.0 + 7.0.0.0 - 9.0.0.0 1100 --Receitas Orcamentarias 1.0.0.0 + 2.0.0.0 + 7.0.0.0 - 9.0.0.0
1088 UPDATE relatorio_financeiro 1101 UPDATE relatorio_financeiro
1089 - SET valor_ingresso = ( (SELECT SUM(valor_ingresso)as valor_ingresso FROM relatorio_financeiro WHERE ordem IN (2,3))  
1090 - -  
1091 - (SELECT valor_ingresso FROM relatorio_financeiro WHERE ordem IN (6))  
1092 - )  
1093 - ,valor_ingresso_anterior = ( (SELECT SUM(valor_ingresso_anterior)as valor_ingresso_anterior FROM relatorio_financeiro WHERE ordem IN (2,3)) 1102 + SET valor_ingresso = ( (SELECT SUM(valor_ingresso)as valor_ingresso FROM relatorio_financeiro WHERE ordem IN (2,3))
  1103 + -
  1104 + (SELECT valor_ingresso FROM relatorio_financeiro WHERE ordem IN (6))
  1105 + )
  1106 + ,valor_ingresso_anterior = ( (SELECT SUM(valor_ingresso_anterior)as valor_ingresso_anterior FROM relatorio_financeiro WHERE ordem IN (2,3))
1094 - 1107 -
1095 (SELECT valor_ingresso_anterior FROM relatorio_financeiro WHERE ordem IN (6)) 1108 (SELECT valor_ingresso_anterior FROM relatorio_financeiro WHERE ordem IN (6))
1096 ) 1109 )
@@ -1113,7 +1126,7 @@ END IF; @@ -1113,7 +1126,7 @@ END IF;
1113 totalIII:= (SELECT SUM(ABS(valor_ingresso_anterior)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21)); 1126 totalIII:= (SELECT SUM(ABS(valor_ingresso_anterior)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21));
1114 totalIV := (SELECT SUM(valor_ingresso_anterior) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25)); 1127 totalIV := (SELECT SUM(valor_ingresso_anterior) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25));
1115 totalV := totalI + totalII + totalIII + totalIV; 1128 totalV := totalI + totalII + totalIII + totalIV;
1116 - 1129 +
1117 UPDATE relatorio_financeiro 1130 UPDATE relatorio_financeiro
1118 SET valor_ingresso_anterior = totalV 1131 SET valor_ingresso_anterior = totalV
1119 WHERE ordem = 27; 1132 WHERE ordem = 27;
@@ -1124,7 +1137,7 @@ END IF; @@ -1124,7 +1137,7 @@ END IF;
1124 totalIII:= (SELECT SUM(ABS(valor_dispendios)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21)); 1137 totalIII:= (SELECT SUM(ABS(valor_dispendios)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21));
1125 totalIV := (SELECT SUM(valor_dispendios) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25)); 1138 totalIV := (SELECT SUM(valor_dispendios) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25));
1126 totalV := totalI + totalII + totalIII + totalIV; 1139 totalV := totalI + totalII + totalIII + totalIV;
1127 - 1140 +
1128 UPDATE relatorio_financeiro 1141 UPDATE relatorio_financeiro
1129 SET valor_dispendios = totalV 1142 SET valor_dispendios = totalV
1130 WHERE ordem = 27; 1143 WHERE ordem = 27;
@@ -1135,11 +1148,11 @@ END IF; @@ -1135,11 +1148,11 @@ END IF;
1135 totalIII:= (SELECT SUM(ABS(valor_dispendios_anterior)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21)); 1148 totalIII:= (SELECT SUM(ABS(valor_dispendios_anterior)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21));
1136 totalIV := (SELECT SUM(valor_dispendios_anterior) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25)); 1149 totalIV := (SELECT SUM(valor_dispendios_anterior) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25));
1137 totalV := totalI + totalII + totalIII + totalIV; 1150 totalV := totalI + totalII + totalIII + totalIV;
1138 - 1151 +
1139 UPDATE relatorio_financeiro 1152 UPDATE relatorio_financeiro
1140 SET valor_dispendios_anterior = totalV 1153 SET valor_dispendios_anterior = totalV
1141 WHERE ordem = 27; 1154 WHERE ordem = 27;
1142 - 1155 +
1143 --TRANTANDO COLUNAS PARA FICAR EM BRANCO 1156 --TRANTANDO COLUNAS PARA FICAR EM BRANCO
1144 UPDATE relatorio_financeiro 1157 UPDATE relatorio_financeiro
1145 SET 1158 SET
@@ -1152,7 +1165,7 @@ END IF; @@ -1152,7 +1165,7 @@ END IF;
1152 valor_dispendios = null 1165 valor_dispendios = null
1153 ,valor_dispendios_anterior = null 1166 ,valor_dispendios_anterior = null
1154 WHERE descricao_dispendios = ''; 1167 WHERE descricao_dispendios = '';
1155 - 1168 +
1156 UPDATE relatorio_financeiro 1169 UPDATE relatorio_financeiro
1157 SET 1170 SET
1158 valor_ingresso = null 1171 valor_ingresso = null
@@ -1160,7 +1173,7 @@ END IF; @@ -1160,7 +1173,7 @@ END IF;
1160 ,valor_dispendios = null 1173 ,valor_dispendios = null
1161 ,valor_dispendios_anterior = null 1174 ,valor_dispendios_anterior = null
1162 WHERE ordem in (11,17,23); 1175 WHERE ordem in (11,17,23);
1163 - 1176 +
1164 --RETIRANDO O SINAL DO QUADRO DE Recebimentos Extra-Orçamentários e Pagamentos Extraorçamentários 1177 --RETIRANDO O SINAL DO QUADRO DE Recebimentos Extra-Orçamentários e Pagamentos Extraorçamentários
1165 UPDATE relatorio_financeiro 1178 UPDATE relatorio_financeiro
1166 SET 1179 SET
@@ -1203,13 +1216,12 @@ END IF; @@ -1203,13 +1216,12 @@ END IF;
1203 1216
1204 IF (inMovimentacao = 0) THEN 1217 IF (inMovimentacao = 0) THEN
1205 UPDATE relatorio_financeiro 1218 UPDATE relatorio_financeiro
1206 - SET 1219 + SET
1207 valor_ingresso_anterior = 0.00 1220 valor_ingresso_anterior = 0.00
1208 ,valor_dispendios_anterior = 0.00 1221 ,valor_dispendios_anterior = 0.00
1209 WHERE ordem NOT IN (1,4,5,9,10,11,15,16,17,22,23,26); 1222 WHERE ordem NOT IN (1,4,5,9,10,11,15,16,17,22,23,26);
1210 END IF; 1223 END IF;
1211 1224
1212 -  
1213 stSql :='SELECT * FROM relatorio_financeiro ORDER by ordem'; 1225 stSql :='SELECT * FROM relatorio_financeiro ORDER by ordem';
1214 1226
1215 FOR reRegistro IN EXECUTE stSql 1227 FOR reRegistro IN EXECUTE stSql
gestaoFinanceira/fontes/PLPGSQL/contabilidade/encerramentoAnualLancamentos2013.plsql
  Diff comments   View file @842bba7
@@ -23,6 +23,13 @@ @@ -23,6 +23,13 @@
23 -- 23 --
24 -- Função Encerramento Anual 2006 VAriações Patrimoniais. 24 -- Função Encerramento Anual 2006 VAriações Patrimoniais.
25 -- 25 --
  26 +
  27 +/* @package URBEM
  28 + * @subpackage
  29 +
  30 + * $Id: encerramentoAnualLancamentos2013.plsql 66167 2016-07-25 12:46:20Z fabio $
  31 + */
  32 +
26 CREATE OR REPLACE FUNCTION contabilidade.encerramentoAnualLancamentosVariacoesPatrimoniais2013( varExercicio VARCHAR(4), intCodEntidade INTEGER ) 33 CREATE OR REPLACE FUNCTION contabilidade.encerramentoAnualLancamentosVariacoesPatrimoniais2013( varExercicio VARCHAR(4), intCodEntidade INTEGER )
27 RETURNS VOID as $$ 34 RETURNS VOID as $$
28 DECLARE 35 DECLARE
@@ -239,15 +246,24 @@ BEGIN @@ -239,15 +246,24 @@ BEGIN
239 WHERE cod_historico = intCodHistorico 246 WHERE cod_historico = intCodHistorico
240 AND exercicio = varExercicio); 247 AND exercicio = varExercicio);
241 248
242 - -- Ticket #22953 pede para apurar o saldo e fazer o lancamento das contas 6.3.1.4, 5.3.1.1, 6.3.2.2, 5.3.2.1  
243 - -- Ticket #22953 pede para apurar o saldo e fazer o lancamento das contas 6.3.1.9.1, 5.3.1.2, 6.3.2.9.9, 5.3.2.2 249 + -- Ticket #24022 pede para apurar o saldo e fazer o lancamento das contas 6.3.1.4, 5.3.1.2, 6.3.2.2, 5.3.2.2
  250 + -- Ticket #24022 pede para apurar o saldo e fazer o lancamento das contas 6.3.1.9.1, 5.3.1.2, 6.3.2.9.9, 5.3.2.2
244 IF ( varExercicio >= '2014' ) THEN 251 IF ( varExercicio >= '2014' ) THEN
245 - --APURA O SALDO E FAZ O LANCAMENTO DAS CONTAS 6.3.1.4, 6.3.2.2, 6.3.1.9.1 E 6.3.2.9.9 PARA CREDITAR NAS CONTAS 5.3.1.1, 5.3.2.1, 5.3.1.2 E 5.3.2.2 RESPECTIVAMENTE 252 + --APURA O SALDO E FAZ O LANCAMENTO DAS CONTAS 6.3.1.4, 6.3.2.2, 6.3.1.9.1 E 6.3.2.9.9 PARA CREDITAR NAS CONTAS 5.3.1.2, 5.3.2.2, 5.3.1.2 E 5.3.2.2 RESPECTIVAMENTE
246 stSql := ' SELECT plano_conta.cod_estrutural 253 stSql := ' SELECT plano_conta.cod_estrutural
247 , plano_analitica.cod_plano 254 , plano_analitica.cod_plano
248 , coalesce(total_credito.valor,0.00) AS valor_cre 255 , coalesce(total_credito.valor,0.00) AS valor_cre
249 , coalesce(total_debito.valor,0.00) AS valor_deb 256 , coalesce(total_debito.valor,0.00) AS valor_deb
250 , ABS(coalesce(( COALESCE(abs(-(total_credito.valor)),0) - COALESCE(total_debito.valor,0) ),0.00)) AS saldo 257 , ABS(coalesce(( COALESCE(abs(-(total_credito.valor)),0) - COALESCE(total_debito.valor,0) ),0.00)) AS saldo
  258 + , CASE WHEN plano_conta.cod_estrutural LIKE ''6.3.1.4%''
  259 + THEN 3
  260 + WHEN plano_conta.cod_estrutural LIKE ''6.3.2.2%''
  261 + THEN 4
  262 + WHEN plano_conta.cod_estrutural LIKE ''6.3.1.9.1%''
  263 + THEN 1
  264 + WHEN plano_conta.cod_estrutural LIKE ''6.3.2.9.9%''
  265 + THEN 2
  266 + END AS ordem
251 FROM contabilidade.plano_conta 267 FROM contabilidade.plano_conta
252 , contabilidade.plano_analitica 268 , contabilidade.plano_analitica
253 LEFT JOIN ( SELECT cod_plano, conta_debito.exercicio, SUM(vl_lancamento) AS valor 269 LEFT JOIN ( SELECT cod_plano, conta_debito.exercicio, SUM(vl_lancamento) AS valor
@@ -288,7 +304,7 @@ BEGIN @@ -288,7 +304,7 @@ BEGIN
288 OR plano_conta.cod_estrutural LIKE ''6.3.2.9.9%'' 304 OR plano_conta.cod_estrutural LIKE ''6.3.2.9.9%''
289 ) 305 )
290 AND NOT ( total_debito.valor IS NULL AND total_credito.valor IS NULL ) 306 AND NOT ( total_debito.valor IS NULL AND total_credito.valor IS NULL )
291 - ORDER BY plano_conta.cod_estrutural '; 307 + ORDER BY ordem ';
292 For recLancamento IN EXECUTE stSql 308 For recLancamento IN EXECUTE stSql
293 LOOP 309 LOOP
294 IF recLancamento.saldo != 0 THEN 310 IF recLancamento.saldo != 0 THEN
@@ -303,9 +319,9 @@ BEGIN @@ -303,9 +319,9 @@ BEGIN
303 END IF; 319 END IF;
304 320
305 IF substr(recLancamento.cod_estrutural,1,15) = '6.3.1.4.0.00.00' THEN 321 IF substr(recLancamento.cod_estrutural,1,15) = '6.3.1.4.0.00.00' THEN
306 - intSeqIns := FazerLancamento('6.3.1.4.0.00.00.00.00.00','5.3.1.1.0.00.00.00.00.00',intCodHistorico,varExercicio,RecLancamento.saldo,'',intCodlote,CAST('M' AS VARCHAR),intCodEntidade); 322 + intSeqIns := FazerLancamento('6.3.1.4.0.00.00.00.00.00','5.3.1.2.0.00.00.00.00.00',intCodHistorico,varExercicio,RecLancamento.saldo,'',intCodlote,CAST('M' AS VARCHAR),intCodEntidade);
307 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.2.2.0.00.00' THEN 323 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.2.2.0.00.00' THEN
308 - intSeqIns := FazerLancamento('6.3.2.2.0.00.00.00.00.00','5.3.2.1.0.00.00.00.00.00',intCodHistorico,varExercicio,RecLancamento.saldo,'',intCodlote,CAST('M' AS VARCHAR),intCodEntidade); 324 + intSeqIns := FazerLancamento('6.3.2.2.0.00.00.00.00.00','5.3.2.2.0.00.00.00.00.00',intCodHistorico,varExercicio,RecLancamento.saldo,'',intCodlote,CAST('M' AS VARCHAR),intCodEntidade);
309 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.1.9.1.00.00' THEN 325 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.1.9.1.00.00' THEN
310 intSeqIns := FazerLancamento('6.3.1.9.1.00.00.00.00.00','5.3.1.2.0.00.00.00.00.00',intCodHistorico,varExercicio,RecLancamento.saldo,'',intCodlote,CAST('M' AS VARCHAR),intCodEntidade); 326 intSeqIns := FazerLancamento('6.3.1.9.1.00.00.00.00.00','5.3.1.2.0.00.00.00.00.00',intCodHistorico,varExercicio,RecLancamento.saldo,'',intCodlote,CAST('M' AS VARCHAR),intCodEntidade);
311 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.2.9.9.00.00' THEN 327 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.2.9.9.00.00' THEN
@@ -380,7 +396,7 @@ BEGIN @@ -380,7 +396,7 @@ BEGIN
380 END IF; 396 END IF;
381 END IF; 397 END IF;
382 END LOOP; 398 END LOOP;
383 - END IF; ---- FIM Ticket #22953, APURACAO DE SALDOS E LANCAMENTOS 399 + END IF; ---- FIM Ticket #24022, APURACAO DE SALDOS E LANCAMENTOS
384 400
385 stSql := ' SELECT plano_conta.cod_estrutural 401 stSql := ' SELECT plano_conta.cod_estrutural
386 , plano_analitica.cod_plano 402 , plano_analitica.cod_plano
gestaoFinanceira/fontes/PLPGSQL/contabilidade/relatorioFluxoCaixa.plsql
  Diff comments   View file @842bba7
@@ -23,6 +23,7 @@ @@ -23,6 +23,7 @@
23 /* Script de função PLPGSQL 23 /* Script de função PLPGSQL
24 * URBEM Soluções de Gestão Pública Ltda 24 * URBEM Soluções de Gestão Pública Ltda
25 * www.urbem.cnm.org.br 25 * www.urbem.cnm.org.br
  26 + $Id: relatorioFluxoCaixa.plsql 66022 2016-07-07 20:23:42Z fabio $
26 */ 27 */
27 28
28 29
@@ -43,6 +44,9 @@ DECLARE @@ -43,6 +44,9 @@ DECLARE
43 i INTEGER; 44 i INTEGER;
44 valoresAux NUMERIC; 45 valoresAux NUMERIC;
45 valoresAnteriorAux NUMERIC; 46 valoresAnteriorAux NUMERIC;
  47 +
  48 + stFiltroTrans VARCHAR := '';
  49 + stFiltroExtra VARCHAR := '';
46 BEGIN 50 BEGIN
47 51
48 52
@@ -823,7 +827,22 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval @@ -823,7 +827,22 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
823 '; 827 ';
824 828
825 EXECUTE stSql; 829 EXECUTE stSql;
826 - 830 +
  831 + --FILTRO LANÇAMENTO DIFERENTE DE TIPO 'M'
  832 + stFiltroTrans := 'cod_entidade IN ('|| stCodEntidade ||')
  833 + AND cod_estrutural SIMILAR TO ''2.1.8%|1.1.3%''
  834 + AND tipo != ''M'' ';
  835 +
  836 + stFiltroExtra := 'cod_entidade IN ('|| stCodEntidade ||')
  837 + AND ( cod_estrutural SIMILAR TO ''6.3.2.2%|6.3.1.4%''
  838 + OR ( cod_estrutural LIKE ''4.5.1.1%'' AND tipo != ''M'' )
  839 + OR ( cod_estrutural LIKE ''3.5.1.1%'' AND tipo != ''M'' )
  840 + OR ( cod_estrutural LIKE ''4.5.1.2%'' AND tipo != ''M'' )
  841 + OR ( cod_estrutural LIKE ''3.5.1.2%'' AND tipo != ''M'' )
  842 + OR ( cod_estrutural LIKE ''4.5.1.3%'' AND tipo != ''M'' )
  843 + OR ( cod_estrutural LIKE ''3.5.1.3%'' AND tipo != ''M'' )
  844 + ) ';
  845 +
827 stSql := ' 846 stSql := '
828 CREATE TEMPORARY TABLE fluxo_balanco_financeiro AS 847 CREATE TEMPORARY TABLE fluxo_balanco_financeiro AS
829 SELECT descricao 848 SELECT descricao
@@ -850,7 +869,7 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval @@ -850,7 +869,7 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
850 , 0.00::NUMERIC AS saldo_creditos_anterior 869 , 0.00::NUMERIC AS saldo_creditos_anterior
851 , 0.00::NUMERIC AS saldo_final_anterior 870 , 0.00::NUMERIC AS saldo_final_anterior
852 FROM contabilidade.fn_rl_balancete_verificacao( '''||stExercicio||''' 871 FROM contabilidade.fn_rl_balancete_verificacao( '''||stExercicio||'''
853 - , ''cod_entidade IN ('|| stCodEntidade ||') '' 872 + , '|| quote_literal(stFiltroTrans) ||'
854 , '''||dtInicial||''' 873 , '''||dtInicial||'''
855 , '''||dtFinal||''' 874 , '''||dtFinal||'''
856 , ''A''::char 875 , ''A''::char
@@ -885,7 +904,7 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval @@ -885,7 +904,7 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
885 , SUM(vl_saldo_creditos_anterior) AS saldo_creditos_anterior 904 , SUM(vl_saldo_creditos_anterior) AS saldo_creditos_anterior
886 , SUM(vl_saldo_atual_anterior) AS saldo_final_anterior 905 , SUM(vl_saldo_atual_anterior) AS saldo_final_anterior
887 FROM contabilidade.fn_rl_balancete_verificacao( '''||stExercicioAnterior||''' 906 FROM contabilidade.fn_rl_balancete_verificacao( '''||stExercicioAnterior||'''
888 - , ''cod_entidade IN ('|| stCodEntidade ||') '' 907 + , '|| quote_literal(stFiltroTrans) ||'
889 , '''||dtInicialAnterior||''' 908 , '''||dtInicialAnterior||'''
890 , '''||dtFinalAnterior||''' 909 , '''||dtFinalAnterior||'''
891 , ''A''::char 910 , ''A''::char
@@ -932,11 +951,12 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval @@ -932,11 +951,12 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
932 , 0.00::NUMERIC AS saldo_creditos_anterior 951 , 0.00::NUMERIC AS saldo_creditos_anterior
933 , 0.00::NUMERIC AS saldo_final_anterior 952 , 0.00::NUMERIC AS saldo_final_anterior
934 FROM contabilidade.fn_rl_balancete_verificacao_transferencias( '''||stExercicio||''' 953 FROM contabilidade.fn_rl_balancete_verificacao_transferencias( '''||stExercicio||'''
935 - , ''cod_entidade IN ('|| stCodEntidade ||') '' 954 + , '|| quote_literal(stFiltroExtra) ||'
936 , '''||dtInicial||''' 955 , '''||dtInicial||'''
937 , '''||dtFinal||''' 956 , '''||dtFinal||'''
938 , ''A''::CHAR 957 , ''A''::CHAR
939 ) 958 )
  959 +
940 AS retorno ( cod_estrutural varchar 960 AS retorno ( cod_estrutural varchar
941 , nivel integer 961 , nivel integer
942 , nom_conta varchar 962 , nom_conta varchar
@@ -975,8 +995,8 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval @@ -975,8 +995,8 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
975 , SUM(vl_saldo_debitos) AS saldo_debitos_anterior 995 , SUM(vl_saldo_debitos) AS saldo_debitos_anterior
976 , SUM(vl_saldo_creditos) AS saldo_creditos_anterior 996 , SUM(vl_saldo_creditos) AS saldo_creditos_anterior
977 , SUM(vl_saldo_atual) AS saldo_final_anterior 997 , SUM(vl_saldo_atual) AS saldo_final_anterior
978 - FROM contabilidade.fn_rl_balancete_verificacao_transferencias( ''2014''  
979 - , ''cod_entidade IN ('|| stCodEntidade ||') '' 998 + FROM contabilidade.fn_rl_balancete_verificacao_transferencias( '''||stExercicioAnterior||'''
  999 + , '|| quote_literal(stFiltroExtra) ||'
980 , '''||dtInicialAnterior||''' 1000 , '''||dtInicialAnterior||'''
981 , '''||dtFinalAnterior||''' 1001 , '''||dtFinalAnterior||'''
982 , ''A''::CHAR 1002 , ''A''::CHAR
gestaoFinanceira/fontes/PLPGSQL/empenho/empenhoEmpenhadoPagoLiquidado.plsql
  Diff comments   View file @842bba7
@@ -357,15 +357,29 @@ BEGIN @@ -357,15 +357,29 @@ BEGIN
357 END IF; 357 END IF;
358 358
359 stSql := stSql || 359 stSql := stSql ||
360 - ' empenho.nota_liquidacao_item_anulado AS nlia 360 + '( SELECT nlia.exercicio
  361 + ,nlia.cod_nota
  362 + ,nlia.cod_entidade
  363 + ,nlia.num_item
  364 + ,nlia.cod_pre_empenho
  365 + ,nlia.exercicio_item
  366 + ,SUM(nlia.vl_anulado) AS vl_anulado
  367 + FROM empenho.nota_liquidacao_item_anulado AS nlia
  368 + WHERE to_date(to_char(nlia.timestamp,''dd/mm/yyyy''),''dd/mm/yyyy'') BETWEEN to_date(''' || stDtInicial || ''',''dd/mm/yyyy'') AND to_date(''' || stDtFinal || ''',''dd/mm/yyyy'')
  369 + GROUP BY nlia.exercicio
  370 + ,nlia.cod_nota
  371 + ,nlia.cod_entidade
  372 + ,nlia.num_item
  373 + ,nlia.cod_pre_empenho
  374 + ,nlia.exercicio_item
  375 + ) as nlia
361 ON nli.exercicio = nlia.exercicio 376 ON nli.exercicio = nlia.exercicio
362 AND nli.cod_nota = nlia.cod_nota 377 AND nli.cod_nota = nlia.cod_nota
363 AND nli.cod_entidade = nlia.cod_entidade 378 AND nli.cod_entidade = nlia.cod_entidade
364 AND nli.num_item = nlia.num_item 379 AND nli.num_item = nlia.num_item
365 AND nli.cod_pre_empenho = nlia.cod_pre_empenho 380 AND nli.cod_pre_empenho = nlia.cod_pre_empenho
366 AND nli.exercicio_item = nlia.exercicio_item 381 AND nli.exercicio_item = nlia.exercicio_item
367 - AND to_date(to_char(nlia.timestamp,''dd/mm/yyyy''),''dd/mm/yyyy'') BETWEEN to_date(''' || stDtInicial || ''',''dd/mm/yyyy'') AND to_date(''' || stDtFinal || ''',''dd/mm/yyyy'')';  
368 - 382 + ';
369 end if; 383 end if;
370 384
371 if (stSituacao = '4') then 385 if (stSituacao = '4') then
gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacaoDataAtualEmpenho.plsql
  Diff comments   View file @842bba7
@@ -30,7 +30,7 @@ @@ -30,7 +30,7 @@
30 * @package URBEM 30 * @package URBEM
31 * @subpackage 31 * @subpackage
32 32
33 - $Id:$ 33 + $Id: saldoDotacaoDataAtualEmpenho.plsql 66167 2016-07-25 12:46:20Z fabio $
34 */ 34 */
35 CREATE OR REPLACE FUNCTION empenho.fn_saldo_dotacao_data_atual_empenho(VARCHAR,INTEGER,VARCHAR,VARCHAR,INTEGER,VARCHAR) RETURNS NUMERIC AS $$ 35 CREATE OR REPLACE FUNCTION empenho.fn_saldo_dotacao_data_atual_empenho(VARCHAR,INTEGER,VARCHAR,VARCHAR,INTEGER,VARCHAR) RETURNS NUMERIC AS $$
36 DECLARE 36 DECLARE
@@ -40,7 +40,7 @@ DECLARE @@ -40,7 +40,7 @@ DECLARE
40 stDataEmpenho ALIAS FOR $4; 40 stDataEmpenho ALIAS FOR $4;
41 inEntidade ALIAS FOR $5; 41 inEntidade ALIAS FOR $5;
42 stTipoEmissao ALIAS FOR $6; 42 stTipoEmissao ALIAS FOR $6;
43 - 43 +
44 nuTotal NUMERIC := 0.00; 44 nuTotal NUMERIC := 0.00;
45 nuValorOriginal NUMERIC := 0.00; 45 nuValorOriginal NUMERIC := 0.00;
46 nuTotalItens NUMERIC := 0.00; 46 nuTotalItens NUMERIC := 0.00;
@@ -56,50 +56,50 @@ BEGIN @@ -56,50 +56,50 @@ BEGIN
56 -- stTipoEmissao 56 -- stTipoEmissao
57 -- 'E' = Empenhos 57 -- 'E' = Empenhos
58 -- 'R' = Reservas 58 -- 'R' = Reservas
59 - 59 +
60 dtInicioExercicio := '01/01/' || stExercicio; 60 dtInicioExercicio := '01/01/' || stExercicio;
61 - 61 +
62 -- Recupera a data do empenho e seta a data do empenho 62 -- Recupera a data do empenho e seta a data do empenho
63 - SELECT 63 + SELECT
64 CASE WHEN (MAX(dt_empenho) < TO_DATE(dtInicioExercicio,'dd/mm/yyyy')) OR (MAX(dt_empenho) IS NULL) 64 CASE WHEN (MAX(dt_empenho) < TO_DATE(dtInicioExercicio,'dd/mm/yyyy')) OR (MAX(dt_empenho) IS NULL)
65 - THEN dtInicioExercicio  
66 - ELSE TO_CHAR(MAX(dt_empenho),'dd/mm/yyyy') 65 + THEN dtInicioExercicio
  66 + ELSE TO_CHAR(MAX(dt_empenho),'dd/mm/yyyy')
67 END AS dataEmpenho 67 END AS dataEmpenho
68 INTO 68 INTO
69 - dtEmpenho  
70 - FROM empenho.empenho AS e  
71 - LEFT JOIN ( SELECT COALESCE(sum(vl_total),0.00) - COALESCE(sum(vl_anulado),0.00) AS valor  
72 - , ea.cod_empenho  
73 - , ea.cod_entidade  
74 - , ea.exercicio  
75 - FROM empenho.empenho_anulado as ea  
76 - INNER JOIN ( SELECT sum(vl_anulado) as vl_anulado  
77 - , ipe.vl_total  
78 - , eai.cod_empenho  
79 - , eai.cod_entidade  
80 - , eai.exercicio  
81 - FROM empenho.empenho_anulado_item eai  
82 - INNER JOIN empenho.item_pre_empenho AS ipe  
83 - ON ipe.exercicio = eai.exercicio  
84 - AND ipe.cod_pre_empenho = eai.cod_pre_empenho  
85 - AND ipe.num_item = eai.num_item  
86 - GROUP BY ipe.vl_total, eai.cod_empenho, eai.cod_entidade, eai.exercicio 69 + dtEmpenho
  70 + FROM empenho.empenho AS e
  71 + LEFT JOIN ( SELECT COALESCE(sum(vl_total),0.00) - COALESCE(sum(vl_anulado),0.00) AS valor
  72 + , ea.cod_empenho
  73 + , ea.cod_entidade
  74 + , ea.exercicio
  75 + FROM empenho.empenho_anulado as ea
  76 + INNER JOIN ( SELECT sum(vl_anulado) as vl_anulado
  77 + , ipe.vl_total
  78 + , eai.cod_empenho
  79 + , eai.cod_entidade
  80 + , eai.exercicio
  81 + FROM empenho.empenho_anulado_item eai
  82 + INNER JOIN empenho.item_pre_empenho AS ipe
  83 + ON ipe.exercicio = eai.exercicio
  84 + AND ipe.cod_pre_empenho = eai.cod_pre_empenho
  85 + AND ipe.num_item = eai.num_item
  86 + GROUP BY ipe.vl_total, eai.cod_empenho, eai.cod_entidade, eai.exercicio
87 ) AS itens 87 ) AS itens
88 - ON itens.cod_empenho = ea.cod_empenho  
89 - AND itens.exercicio = ea.exercicio  
90 - AND itens.cod_entidade = ea.cod_entidade  
91 - WHERE ea.exercicio = stExercicio  
92 - GROUP BY ea.cod_empenho, ea.cod_entidade, ea.exercicio 88 + ON itens.cod_empenho = ea.cod_empenho
  89 + AND itens.exercicio = ea.exercicio
  90 + AND itens.cod_entidade = ea.cod_entidade
  91 + WHERE ea.exercicio = stExercicio
  92 + GROUP BY ea.cod_empenho, ea.cod_entidade, ea.exercicio
93 ) AS it 93 ) AS it
94 - ON it.cod_empenho = e.cod_empenho  
95 - AND it.exercicio = e.exercicio  
96 - AND it.cod_entidade = e.cod_entidade  
97 - 94 + ON it.cod_empenho = e.cod_empenho
  95 + AND it.exercicio = e.exercicio
  96 + AND it.cod_entidade = e.cod_entidade
  97 +
98 WHERE e.cod_empenho IS NOT NULL 98 WHERE e.cod_empenho IS NOT NULL
99 - AND (it.valor != 0.00 OR it.valor IS NULL) 99 + AND (it.valor != 0.00 OR it.valor IS NULL)
100 AND e.cod_entidade IN ( inEntidade ) 100 AND e.cod_entidade IN ( inEntidade )
101 AND e.exercicio = stExercicio; 101 AND e.exercicio = stExercicio;
102 - 102 +
103 IF stDataEmpenho <> '' THEN 103 IF stDataEmpenho <> '' THEN
104 dtEmpenho := stDataEmpenho; 104 dtEmpenho := stDataEmpenho;
105 END IF; 105 END IF;
@@ -115,7 +115,7 @@ BEGIN @@ -115,7 +115,7 @@ BEGIN
115 AND exercicio = stExercicio; 115 AND exercicio = stExercicio;
116 116
117 IF stTipoEmissao = 'E' THEN 117 IF stTipoEmissao = 'E' THEN
118 - 118 +
119 -- Valor total dos itens, leva me consideração a data final passada como parametro 119 -- Valor total dos itens, leva me consideração a data final passada como parametro
120 SELECT 120 SELECT
121 COALESCE(sum(vl_total),0.00) 121 COALESCE(sum(vl_total),0.00)
@@ -128,21 +128,21 @@ BEGIN @@ -128,21 +128,21 @@ BEGIN
128 , empenho.empenho AS em 128 , empenho.empenho AS em
129 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho 129 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
130 AND pd.exercicio = pe.exercicio 130 AND pd.exercicio = pe.exercicio
131 - 131 +
132 AND pe.cod_pre_empenho = it.cod_pre_empenho 132 AND pe.cod_pre_empenho = it.cod_pre_empenho
133 AND pe.exercicio = it.exercicio 133 AND pe.exercicio = it.exercicio
134 - 134 +
135 AND pe.cod_pre_empenho = em.cod_pre_empenho 135 AND pe.cod_pre_empenho = em.cod_pre_empenho
136 AND pe.exercicio = em.exercicio 136 AND pe.exercicio = em.exercicio
137 - 137 +
138 AND pd.exercicio = stExercicio 138 AND pd.exercicio = stExercicio
139 AND pd.cod_despesa = inCodDespesa 139 AND pd.cod_despesa = inCodDespesa
140 - 140 +
141 AND em.dt_empenho BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 141 AND em.dt_empenho BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
142 AND TO_DATE(dtEmpenho,'dd/mm/yyyy'); 142 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
143 - 143 +
144 ELSEIF stTipoEmissao = 'R' THEN 144 ELSEIF stTipoEmissao = 'R' THEN
145 - 145 +
146 -- Valor total dos itens, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo 146 -- Valor total dos itens, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo
147 SELECT 147 SELECT
148 COALESCE(sum(vl_total),0.00) 148 COALESCE(sum(vl_total),0.00)
@@ -155,20 +155,20 @@ BEGIN @@ -155,20 +155,20 @@ BEGIN
155 , empenho.empenho AS em 155 , empenho.empenho AS em
156 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho 156 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
157 AND pd.exercicio = pe.exercicio 157 AND pd.exercicio = pe.exercicio
158 - 158 +
159 AND pe.cod_pre_empenho = it.cod_pre_empenho 159 AND pe.cod_pre_empenho = it.cod_pre_empenho
160 AND pe.exercicio = it.exercicio 160 AND pe.exercicio = it.exercicio
161 - 161 +
162 AND pe.cod_pre_empenho = em.cod_pre_empenho 162 AND pe.cod_pre_empenho = em.cod_pre_empenho
163 AND pe.exercicio = em.exercicio 163 AND pe.exercicio = em.exercicio
164 - 164 +
165 AND pd.exercicio = stExercicio 165 AND pd.exercicio = stExercicio
166 AND pd.cod_despesa = inCodDespesa; 166 AND pd.cod_despesa = inCodDespesa;
167 167
168 END IF; 168 END IF;
169 - 169 +
170 IF stTipoEmissao = 'E' THEN 170 IF stTipoEmissao = 'E' THEN
171 - 171 +
172 -- Valor de reserva 172 -- Valor de reserva
173 SELECT 173 SELECT
174 COALESCE(sum(vl_reserva),0.00) 174 COALESCE(sum(vl_reserva),0.00)
@@ -176,21 +176,21 @@ BEGIN @@ -176,21 +176,21 @@ BEGIN
176 nuValorReserva 176 nuValorReserva
177 FROM 177 FROM
178 orcamento.reserva_saldos AS re 178 orcamento.reserva_saldos AS re
179 - 179 +
180 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa 180 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
181 ON re.cod_reserva = rsa.cod_reserva 181 ON re.cod_reserva = rsa.cod_reserva
182 AND re.exercicio = rsa.exercicio 182 AND re.exercicio = rsa.exercicio
183 - 183 +
184 WHERE re.exercicio = stExercicio 184 WHERE re.exercicio = stExercicio
185 AND re.cod_despesa = inCodDespesa 185 AND re.cod_despesa = inCodDespesa
186 - 186 +
187 AND re.dt_validade_final <= TO_DATE(stDataAtual, 'yyyy-mm-dd') 187 AND re.dt_validade_final <= TO_DATE(stDataAtual, 'yyyy-mm-dd')
188 AND re.dt_inclusao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 188 AND re.dt_inclusao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
189 AND TO_DATE(dtEmpenho,'dd/mm/yyyy') 189 AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
190 AND rsa.cod_reserva IS NULL; 190 AND rsa.cod_reserva IS NULL;
191 191
192 ELSEIF stTipoEmissao = 'R' THEN 192 ELSEIF stTipoEmissao = 'R' THEN
193 - 193 +
194 -- Valor de reserva levando em consideração todo o período 194 -- Valor de reserva levando em consideração todo o período
195 SELECT 195 SELECT
196 COALESCE(sum(vl_reserva),0.00) 196 COALESCE(sum(vl_reserva),0.00)
@@ -198,19 +198,19 @@ BEGIN @@ -198,19 +198,19 @@ BEGIN
198 nuValorReserva 198 nuValorReserva
199 FROM 199 FROM
200 orcamento.reserva_saldos AS re 200 orcamento.reserva_saldos AS re
201 - 201 +
202 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa 202 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
203 ON re.cod_reserva = rsa.cod_reserva 203 ON re.cod_reserva = rsa.cod_reserva
204 AND re.exercicio = rsa.exercicio 204 AND re.exercicio = rsa.exercicio
205 - 205 +
206 WHERE re.exercicio = stExercicio 206 WHERE re.exercicio = stExercicio
207 AND re.cod_despesa = inCodDespesa 207 AND re.cod_despesa = inCodDespesa
208 - 208 +
209 AND re.dt_validade_final <= TO_DATE(stDataAtual, 'yyyy-mm-dd') 209 AND re.dt_validade_final <= TO_DATE(stDataAtual, 'yyyy-mm-dd')
210 AND rsa.cod_reserva IS NULL; 210 AND rsa.cod_reserva IS NULL;
211 - 211 +
212 END IF; 212 END IF;
213 - 213 +
214 IF stTipoEmissao = 'E' THEN 214 IF stTipoEmissao = 'E' THEN
215 -- Valor Anulado, leva me consideração a data final passada como parametro 215 -- Valor Anulado, leva me consideração a data final passada como parametro
216 SELECT 216 SELECT
@@ -224,20 +224,20 @@ BEGIN @@ -224,20 +224,20 @@ BEGIN
224 , empenho.item_pre_empenho AS it 224 , empenho.item_pre_empenho AS it
225 , empenho.empenho_anulado_item AS ei 225 , empenho.empenho_anulado_item AS ei
226 , empenho.empenho_anulado AS ea 226 , empenho.empenho_anulado AS ea
227 - 227 +
228 WHERE de.cod_despesa = pd.cod_despesa 228 WHERE de.cod_despesa = pd.cod_despesa
229 AND de.exercicio = pd.exercicio 229 AND de.exercicio = pd.exercicio
230 - 230 +
231 AND pd.cod_pre_empenho = pe.cod_pre_empenho 231 AND pd.cod_pre_empenho = pe.cod_pre_empenho
232 AND pd.exercicio = pe.exercicio 232 AND pd.exercicio = pe.exercicio
233 - 233 +
234 AND pe.cod_pre_empenho = it.cod_pre_empenho 234 AND pe.cod_pre_empenho = it.cod_pre_empenho
235 AND pe.exercicio = it.exercicio 235 AND pe.exercicio = it.exercicio
236 - 236 +
237 AND it.cod_pre_empenho = ei.cod_pre_empenho 237 AND it.cod_pre_empenho = ei.cod_pre_empenho
238 AND it.num_item = ei.num_item 238 AND it.num_item = ei.num_item
239 AND it.exercicio = ei.exercicio 239 AND it.exercicio = ei.exercicio
240 - 240 +
241 AND ei.cod_empenho = ea.cod_empenho 241 AND ei.cod_empenho = ea.cod_empenho
242 AND ei.exercicio = ea.exercicio 242 AND ei.exercicio = ea.exercicio
243 AND ei.cod_entidade = ea.cod_entidade 243 AND ei.cod_entidade = ea.cod_entidade
@@ -245,11 +245,11 @@ BEGIN @@ -245,11 +245,11 @@ BEGIN
245 245
246 AND de.exercicio = stExercicio 246 AND de.exercicio = stExercicio
247 AND de.cod_despesa = inCodDespesa 247 AND de.cod_despesa = inCodDespesa
248 - 248 +
249 AND TO_DATE(to_char(EA.timestamp,'dd/mm/yyyy'),'dd/mm/yyyy') BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 249 AND TO_DATE(to_char(EA.timestamp,'dd/mm/yyyy'),'dd/mm/yyyy') BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
250 AND TO_DATE(dtEmpenho,'dd/mm/yyyy'); 250 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
251 ELSEIF stTipoEmissao = 'R' THEN 251 ELSEIF stTipoEmissao = 'R' THEN
252 - 252 +
253 -- Valor Anulado, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo 253 -- Valor Anulado, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo
254 SELECT 254 SELECT
255 COALESCE(sum(ei.vl_anulado),0.00) 255 COALESCE(sum(ei.vl_anulado),0.00)
@@ -262,20 +262,20 @@ BEGIN @@ -262,20 +262,20 @@ BEGIN
262 , empenho.item_pre_empenho AS it 262 , empenho.item_pre_empenho AS it
263 , empenho.empenho_anulado_item AS ei 263 , empenho.empenho_anulado_item AS ei
264 , empenho.empenho_anulado AS ea 264 , empenho.empenho_anulado AS ea
265 - 265 +
266 WHERE de.cod_despesa = pd.cod_despesa 266 WHERE de.cod_despesa = pd.cod_despesa
267 AND de.exercicio = pd.exercicio 267 AND de.exercicio = pd.exercicio
268 - 268 +
269 AND pd.cod_pre_empenho = pe.cod_pre_empenho 269 AND pd.cod_pre_empenho = pe.cod_pre_empenho
270 AND pd.exercicio = pe.exercicio 270 AND pd.exercicio = pe.exercicio
271 - 271 +
272 AND pe.cod_pre_empenho = it.cod_pre_empenho 272 AND pe.cod_pre_empenho = it.cod_pre_empenho
273 AND pe.exercicio = it.exercicio 273 AND pe.exercicio = it.exercicio
274 - 274 +
275 AND it.cod_pre_empenho = ei.cod_pre_empenho 275 AND it.cod_pre_empenho = ei.cod_pre_empenho
276 AND it.num_item = ei.num_item 276 AND it.num_item = ei.num_item
277 AND it.exercicio = ei.exercicio 277 AND it.exercicio = ei.exercicio
278 - 278 +
279 AND ei.cod_empenho = ea.cod_empenho 279 AND ei.cod_empenho = ea.cod_empenho
280 AND ei.exercicio = ea.exercicio 280 AND ei.exercicio = ea.exercicio
281 AND ei.cod_entidade = ea.cod_entidade 281 AND ei.cod_entidade = ea.cod_entidade
@@ -283,11 +283,11 @@ BEGIN @@ -283,11 +283,11 @@ BEGIN
283 283
284 AND de.exercicio = stExercicio 284 AND de.exercicio = stExercicio
285 AND de.cod_despesa = inCodDespesa; 285 AND de.cod_despesa = inCodDespesa;
286 - 286 +
287 END IF; 287 END IF;
288 - 288 +
289 IF stTipoEmissao = 'E' THEN 289 IF stTipoEmissao = 'E' THEN
290 - 290 +
291 -- Valor suplementado 291 -- Valor suplementado
292 SELECT 292 SELECT
293 COALESCE( sum(valor), 0.00 ) 293 COALESCE( sum(valor), 0.00 )
@@ -295,23 +295,25 @@ BEGIN @@ -295,23 +295,25 @@ BEGIN
295 nuValorSuplementado 295 nuValorSuplementado
296 FROM 296 FROM
297 orcamento.suplementacao_suplementada 297 orcamento.suplementacao_suplementada
298 - , orcamento.suplementacao AS S  
299 - 298 + , orcamento.suplementacao AS S
  299 +
300 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao 300 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
301 AND suplementacao_suplementada.exercicio = S.exercicio 301 AND suplementacao_suplementada.exercicio = S.exercicio
302 302
  303 + AND S.cod_tipo <> 16
  304 +
303 AND suplementacao_suplementada.cod_despesa = inCodDespesa 305 AND suplementacao_suplementada.cod_despesa = inCodDespesa
304 AND suplementacao_suplementada.exercicio = stExercicio 306 AND suplementacao_suplementada.exercicio = stExercicio
305 AND S.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 307 AND S.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
306 - AND TO_DATE(dtEmpenho,'dd/mm/yyyy') 308 + AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
307 AND NOT EXISTS ( SELECT 1 309 AND NOT EXISTS ( SELECT 1
308 FROM orcamento.suplementacao_anulada osa 310 FROM orcamento.suplementacao_anulada osa
309 WHERE cod_suplementacao = S.cod_suplementacao 311 WHERE cod_suplementacao = S.cod_suplementacao
310 AND osa.exercicio = stExercicio 312 AND osa.exercicio = stExercicio
311 ); 313 );
312 - 314 +
313 ELSEIF stTipoEmissao = 'R' THEN 315 ELSEIF stTipoEmissao = 'R' THEN
314 - 316 +
315 -- Valor suplementado 317 -- Valor suplementado
316 SELECT 318 SELECT
317 COALESCE( sum(valor), 0.00 ) 319 COALESCE( sum(valor), 0.00 )
@@ -319,11 +321,13 @@ BEGIN @@ -319,11 +321,13 @@ BEGIN
319 nuValorSuplementado 321 nuValorSuplementado
320 FROM 322 FROM
321 orcamento.suplementacao_suplementada 323 orcamento.suplementacao_suplementada
322 - , orcamento.suplementacao AS S  
323 - 324 + , orcamento.suplementacao AS S
  325 +
324 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao 326 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
325 AND suplementacao_suplementada.exercicio = S.exercicio 327 AND suplementacao_suplementada.exercicio = S.exercicio
326 328
  329 + AND S.cod_tipo <> 16
  330 +
327 AND suplementacao_suplementada.cod_despesa = inCodDespesa 331 AND suplementacao_suplementada.cod_despesa = inCodDespesa
328 AND suplementacao_suplementada.exercicio = stExercicio 332 AND suplementacao_suplementada.exercicio = stExercicio
329 AND NOT EXISTS ( SELECT 1 333 AND NOT EXISTS ( SELECT 1
@@ -333,21 +337,21 @@ BEGIN @@ -333,21 +337,21 @@ BEGIN
333 ); 337 );
334 338
335 END IF; 339 END IF;
336 - 340 +
337 IF stTipoEmissao = 'E' THEN 341 IF stTipoEmissao = 'E' THEN
338 - 342 +
339 -- Valor da Suplementação Reduzida 343 -- Valor da Suplementação Reduzida
340 SELECT 344 SELECT
341 COALESCE( sum(valor), 0.00 ) 345 COALESCE( sum(valor), 0.00 )
342 INTO 346 INTO
343 nuValorReduzido 347 nuValorReduzido
344 FROM orcamento.suplementacao_reducao 348 FROM orcamento.suplementacao_reducao
345 - 349 +
346 INNER JOIN orcamento.suplementacao 350 INNER JOIN orcamento.suplementacao
347 ON suplementacao.exercicio = suplementacao_reducao.exercicio 351 ON suplementacao.exercicio = suplementacao_reducao.exercicio
348 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao 352 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao
349 -  
350 - WHERE suplementacao_reducao.cod_despesa = inCodDespesa 353 +
  354 + WHERE suplementacao_reducao.cod_despesa = inCodDespesa
351 AND suplementacao_reducao.exercicio = stExercicio 355 AND suplementacao_reducao.exercicio = stExercicio
352 AND suplementacao.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 356 AND suplementacao.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
353 AND TO_DATE(dtEmpenho,'dd/mm/yyyy') 357 AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
@@ -357,21 +361,21 @@ BEGIN @@ -357,21 +361,21 @@ BEGIN
357 WHERE cod_suplementacao = suplementacao.cod_suplementacao 361 WHERE cod_suplementacao = suplementacao.cod_suplementacao
358 AND osa.exercicio = stExercicio 362 AND osa.exercicio = stExercicio
359 ); 363 );
360 - 364 +
361 ELSEIF stTipoEmissao = 'R' THEN 365 ELSEIF stTipoEmissao = 'R' THEN
362 - 366 +
363 -- Valor da Suplementação Reduzida 367 -- Valor da Suplementação Reduzida
364 SELECT 368 SELECT
365 COALESCE( sum(valor), 0.00 ) 369 COALESCE( sum(valor), 0.00 )
366 INTO 370 INTO
367 nuValorReduzido 371 nuValorReduzido
368 FROM orcamento.suplementacao_reducao 372 FROM orcamento.suplementacao_reducao
369 - 373 +
370 INNER JOIN orcamento.suplementacao 374 INNER JOIN orcamento.suplementacao
371 ON suplementacao.exercicio = suplementacao_reducao.exercicio 375 ON suplementacao.exercicio = suplementacao_reducao.exercicio
372 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao 376 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao
373 -  
374 - WHERE suplementacao_reducao.cod_despesa = inCodDespesa 377 +
  378 + WHERE suplementacao_reducao.cod_despesa = inCodDespesa
375 AND suplementacao_reducao.exercicio = stExercicio 379 AND suplementacao_reducao.exercicio = stExercicio
376 AND cod_tipo <> 16 380 AND cod_tipo <> 16
377 AND NOT EXISTS ( SELECT 1 381 AND NOT EXISTS ( SELECT 1
gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacaoDataEmpenho.plsql
  Diff comments   View file @842bba7
@@ -30,7 +30,7 @@ @@ -30,7 +30,7 @@
30 * @package URBEM 30 * @package URBEM
31 * @subpackage 31 * @subpackage
32 32
33 - $Id:$ 33 + $Id: saldoDotacaoDataEmpenho.plsql 66167 2016-07-25 12:46:20Z fabio $
34 */ 34 */
35 CREATE OR REPLACE FUNCTION empenho.fn_saldo_dotacao_data_empenho(VARCHAR,INTEGER,VARCHAR,INTEGER,VARCHAR) RETURNS NUMERIC AS $$ 35 CREATE OR REPLACE FUNCTION empenho.fn_saldo_dotacao_data_empenho(VARCHAR,INTEGER,VARCHAR,INTEGER,VARCHAR) RETURNS NUMERIC AS $$
36 DECLARE 36 DECLARE
@@ -39,7 +39,7 @@ DECLARE @@ -39,7 +39,7 @@ DECLARE
39 stDataEmpenho ALIAS FOR $3; 39 stDataEmpenho ALIAS FOR $3;
40 inEntidade ALIAS FOR $4; 40 inEntidade ALIAS FOR $4;
41 stTipoEmissao ALIAS FOR $5; 41 stTipoEmissao ALIAS FOR $5;
42 - 42 +
43 nuTotal NUMERIC := 0.00; 43 nuTotal NUMERIC := 0.00;
44 nuValorOriginal NUMERIC := 0.00; 44 nuValorOriginal NUMERIC := 0.00;
45 nuTotalItens NUMERIC := 0.00; 45 nuTotalItens NUMERIC := 0.00;
@@ -51,60 +51,60 @@ DECLARE @@ -51,60 +51,60 @@ DECLARE
51 dtEmpenho VARCHAR := ''; 51 dtEmpenho VARCHAR := '';
52 dtInicioExercicio VARCHAR := ''; 52 dtInicioExercicio VARCHAR := '';
53 BEGIN 53 BEGIN
54 - 54 +
55 -- stTipoEmissao 55 -- stTipoEmissao
56 -- 'E' = Empenhos 56 -- 'E' = Empenhos
57 -- 'R' = Reservas 57 -- 'R' = Reservas
58 - 58 +
59 dtInicioExercicio := '01/01/' || stExercicio; 59 dtInicioExercicio := '01/01/' || stExercicio;
60 - 60 +
61 -- Recupera a data do empenho e seta a data 61 -- Recupera a data do empenho e seta a data
62 - SELECT 62 + SELECT
63 CASE WHEN (MAX(dt_empenho) < TO_DATE(dtInicioExercicio,'dd/mm/yyyy')) OR (MAX(dt_empenho) IS NULL) 63 CASE WHEN (MAX(dt_empenho) < TO_DATE(dtInicioExercicio,'dd/mm/yyyy')) OR (MAX(dt_empenho) IS NULL)
64 - THEN dtInicioExercicio  
65 - ELSE  
66 - TO_CHAR(MAX(dt_empenho),'dd/mm/yyyy') 64 + THEN dtInicioExercicio
  65 + ELSE
  66 + TO_CHAR(MAX(dt_empenho),'dd/mm/yyyy')
67 END AS dataEmpenho 67 END AS dataEmpenho
68 INTO 68 INTO
69 - dtEmpenho  
70 - FROM  
71 - empenho.empenho AS e  
72 - LEFT JOIN ( SELECT COALESCE(sum(vl_total),0.00) - COALESCE(sum(vl_anulado),0.00) AS valor  
73 - , ea.cod_empenho  
74 - , ea.cod_entidade  
75 - , ea.exercicio  
76 - FROM empenho.empenho_anulado AS ea  
77 - INNER JOIN ( SELECT sum(vl_anulado) AS vl_anulado  
78 - , ipe.vl_total  
79 - , eai.cod_empenho  
80 - , eai.cod_entidade  
81 - , eai.exercicio  
82 - FROM empenho.empenho_anulado_item eai  
83 - JOIN empenho.item_pre_empenho as ipe  
84 - ON ( ipe.exercicio = eai.exercicio  
85 - AND ipe.cod_pre_empenho = eai.cod_pre_empenho  
86 - AND ipe.num_item = eai.num_item  
87 - )  
88 - GROUP BY ipe.vl_total, eai.cod_empenho, eai.cod_entidade, eai.exercicio 69 + dtEmpenho
  70 + FROM
  71 + empenho.empenho AS e
  72 + LEFT JOIN ( SELECT COALESCE(sum(vl_total),0.00) - COALESCE(sum(vl_anulado),0.00) AS valor
  73 + , ea.cod_empenho
  74 + , ea.cod_entidade
  75 + , ea.exercicio
  76 + FROM empenho.empenho_anulado AS ea
  77 + INNER JOIN ( SELECT sum(vl_anulado) AS vl_anulado
  78 + , ipe.vl_total
  79 + , eai.cod_empenho
  80 + , eai.cod_entidade
  81 + , eai.exercicio
  82 + FROM empenho.empenho_anulado_item eai
  83 + JOIN empenho.item_pre_empenho as ipe
  84 + ON ( ipe.exercicio = eai.exercicio
  85 + AND ipe.cod_pre_empenho = eai.cod_pre_empenho
  86 + AND ipe.num_item = eai.num_item
  87 + )
  88 + GROUP BY ipe.vl_total, eai.cod_empenho, eai.cod_entidade, eai.exercicio
89 ) AS itens 89 ) AS itens
90 - ON itens.cod_empenho = ea.cod_empenho  
91 - AND itens.exercicio = ea.exercicio  
92 - AND itens.cod_entidade = ea.cod_entidade  
93 - WHERE ea.exercicio = stExercicio  
94 - GROUP BY ea.cod_empenho, ea.cod_entidade, ea.exercicio 90 + ON itens.cod_empenho = ea.cod_empenho
  91 + AND itens.exercicio = ea.exercicio
  92 + AND itens.cod_entidade = ea.cod_entidade
  93 + WHERE ea.exercicio = stExercicio
  94 + GROUP BY ea.cod_empenho, ea.cod_entidade, ea.exercicio
95 ) AS it 95 ) AS it
96 - ON it.cod_empenho = e.cod_empenho  
97 - AND it.exercicio = e.exercicio  
98 - AND it.cod_entidade = e.cod_entidade 96 + ON it.cod_empenho = e.cod_empenho
  97 + AND it.exercicio = e.exercicio
  98 + AND it.cod_entidade = e.cod_entidade
99 WHERE e.cod_empenho IS NOT NULL 99 WHERE e.cod_empenho IS NOT NULL
100 - AND (it.valor != 0.00 or it.valor IS NULL) 100 + AND (it.valor != 0.00 or it.valor IS NULL)
101 AND e.cod_entidade IN (inEntidade) 101 AND e.cod_entidade IN (inEntidade)
102 AND e.exercicio = stExercicio; 102 AND e.exercicio = stExercicio;
103 - 103 +
104 IF stDataEmpenho <> '' THEN 104 IF stDataEmpenho <> '' THEN
105 dtEmpenho := stDataEmpenho; 105 dtEmpenho := stDataEmpenho;
106 END IF; 106 END IF;
107 - 107 +
108 -- Valor Original 108 -- Valor Original
109 SELECT 109 SELECT
110 COALESCE(vl_original,0.00) 110 COALESCE(vl_original,0.00)
@@ -114,9 +114,9 @@ BEGIN @@ -114,9 +114,9 @@ BEGIN
114 orcamento.despesa 114 orcamento.despesa
115 WHERE cod_despesa = inCodDespesa 115 WHERE cod_despesa = inCodDespesa
116 AND exercicio = stExercicio; 116 AND exercicio = stExercicio;
117 - 117 +
118 IF stTipoEmissao = 'E' THEN 118 IF stTipoEmissao = 'E' THEN
119 - 119 +
120 -- Valor total dos itens, leva me consideração a data final passada como parametro 120 -- Valor total dos itens, leva me consideração a data final passada como parametro
121 SELECT 121 SELECT
122 COALESCE(sum(vl_total),0.00) 122 COALESCE(sum(vl_total),0.00)
@@ -129,21 +129,21 @@ BEGIN @@ -129,21 +129,21 @@ BEGIN
129 , empenho.empenho AS em 129 , empenho.empenho AS em
130 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho 130 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
131 AND pd.exercicio = pe.exercicio 131 AND pd.exercicio = pe.exercicio
132 - 132 +
133 AND pe.cod_pre_empenho = it.cod_pre_empenho 133 AND pe.cod_pre_empenho = it.cod_pre_empenho
134 AND pe.exercicio = it.exercicio 134 AND pe.exercicio = it.exercicio
135 - 135 +
136 AND pe.cod_pre_empenho = em.cod_pre_empenho 136 AND pe.cod_pre_empenho = em.cod_pre_empenho
137 AND pe.exercicio = em.exercicio 137 AND pe.exercicio = em.exercicio
138 - 138 +
139 AND pd.exercicio = stExercicio 139 AND pd.exercicio = stExercicio
140 AND pd.cod_despesa = inCodDespesa 140 AND pd.cod_despesa = inCodDespesa
141 - 141 +
142 AND em.dt_empenho BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 142 AND em.dt_empenho BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
143 AND TO_DATE(dtEmpenho,'dd/mm/yyyy'); 143 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
144 - 144 +
145 ELSEIF stTipoEmissao = 'R' THEN 145 ELSEIF stTipoEmissao = 'R' THEN
146 - 146 +
147 -- Valor total dos itens, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo 147 -- Valor total dos itens, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo
148 SELECT 148 SELECT
149 COALESCE(sum(vl_total),0.00) 149 COALESCE(sum(vl_total),0.00)
@@ -156,31 +156,31 @@ BEGIN @@ -156,31 +156,31 @@ BEGIN
156 , empenho.empenho AS em 156 , empenho.empenho AS em
157 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho 157 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
158 AND pd.exercicio = pe.exercicio 158 AND pd.exercicio = pe.exercicio
159 - 159 +
160 AND pe.cod_pre_empenho = it.cod_pre_empenho 160 AND pe.cod_pre_empenho = it.cod_pre_empenho
161 AND pe.exercicio = it.exercicio 161 AND pe.exercicio = it.exercicio
162 - 162 +
163 AND pe.cod_pre_empenho = em.cod_pre_empenho 163 AND pe.cod_pre_empenho = em.cod_pre_empenho
164 AND pe.exercicio = em.exercicio 164 AND pe.exercicio = em.exercicio
165 - 165 +
166 AND pd.exercicio = stExercicio 166 AND pd.exercicio = stExercicio
167 AND pd.cod_despesa = inCodDespesa; 167 AND pd.cod_despesa = inCodDespesa;
168 168
169 END IF; 169 END IF;
170 170
171 IF stTipoEmissao = 'E' THEN 171 IF stTipoEmissao = 'E' THEN
172 - 172 +
173 -- Valor de reserva 173 -- Valor de reserva
174 SELECT COALESCE(sum(vl_reserva),0.00) 174 SELECT COALESCE(sum(vl_reserva),0.00)
175 INTO 175 INTO
176 nuValorReserva 176 nuValorReserva
177 FROM 177 FROM
178 orcamento.reserva_saldos AS re 178 orcamento.reserva_saldos AS re
179 - 179 +
180 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa 180 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
181 ON re.cod_reserva = rsa.cod_reserva 181 ON re.cod_reserva = rsa.cod_reserva
182 AND re.exercicio = rsa.exercicio 182 AND re.exercicio = rsa.exercicio
183 - 183 +
184 WHERE re.exercicio = stExercicio 184 WHERE re.exercicio = stExercicio
185 AND re.cod_despesa = inCodDespesa 185 AND re.cod_despesa = inCodDespesa
186 AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd') 186 AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd')
@@ -188,28 +188,28 @@ BEGIN @@ -188,28 +188,28 @@ BEGIN
188 AND TO_DATE(dtEmpenho,'dd/mm/yyyy') 188 AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
189 AND EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio 189 AND EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio
190 AND rsa.cod_reserva IS NULL; 190 AND rsa.cod_reserva IS NULL;
191 - 191 +
192 ELSEIF stTipoEmissao = 'R' THEN 192 ELSEIF stTipoEmissao = 'R' THEN
193 - 193 +
194 -- Valor de reserva levando em consideração todo o período 194 -- Valor de reserva levando em consideração todo o período
195 SELECT COALESCE(sum(vl_reserva),0.00) 195 SELECT COALESCE(sum(vl_reserva),0.00)
196 INTO 196 INTO
197 nuValorReserva 197 nuValorReserva
198 FROM 198 FROM
199 orcamento.reserva_saldos AS re 199 orcamento.reserva_saldos AS re
200 - 200 +
201 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa 201 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
202 ON re.cod_reserva = rsa.cod_reserva 202 ON re.cod_reserva = rsa.cod_reserva
203 AND re.exercicio = rsa.exercicio 203 AND re.exercicio = rsa.exercicio
204 - 204 +
205 WHERE re.exercicio = stExercicio 205 WHERE re.exercicio = stExercicio
206 AND re.cod_despesa = inCodDespesa 206 AND re.cod_despesa = inCodDespesa
207 AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd') 207 AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd')
208 AND EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio 208 AND EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio
209 AND rsa.cod_reserva IS NULL; 209 AND rsa.cod_reserva IS NULL;
210 - 210 +
211 END IF; 211 END IF;
212 - 212 +
213 IF stTipoEmissao = 'E' THEN 213 IF stTipoEmissao = 'E' THEN
214 -- Valor Anulado, leva me consideração a data final passada como parametro 214 -- Valor Anulado, leva me consideração a data final passada como parametro
215 SELECT 215 SELECT
@@ -223,20 +223,20 @@ BEGIN @@ -223,20 +223,20 @@ BEGIN
223 , empenho.item_pre_empenho AS it 223 , empenho.item_pre_empenho AS it
224 , empenho.empenho_anulado_item AS ei 224 , empenho.empenho_anulado_item AS ei
225 , empenho.empenho_anulado AS ea 225 , empenho.empenho_anulado AS ea
226 - 226 +
227 WHERE de.cod_despesa = pd.cod_despesa 227 WHERE de.cod_despesa = pd.cod_despesa
228 AND de.exercicio = pd.exercicio 228 AND de.exercicio = pd.exercicio
229 - 229 +
230 AND pd.cod_pre_empenho = pe.cod_pre_empenho 230 AND pd.cod_pre_empenho = pe.cod_pre_empenho
231 AND pd.exercicio = pe.exercicio 231 AND pd.exercicio = pe.exercicio
232 - 232 +
233 AND pe.cod_pre_empenho = it.cod_pre_empenho 233 AND pe.cod_pre_empenho = it.cod_pre_empenho
234 AND pe.exercicio = it.exercicio 234 AND pe.exercicio = it.exercicio
235 - 235 +
236 AND it.cod_pre_empenho = ei.cod_pre_empenho 236 AND it.cod_pre_empenho = ei.cod_pre_empenho
237 AND it.num_item = ei.num_item 237 AND it.num_item = ei.num_item
238 AND it.exercicio = ei.exercicio 238 AND it.exercicio = ei.exercicio
239 - 239 +
240 AND ei.cod_empenho = ea.cod_empenho 240 AND ei.cod_empenho = ea.cod_empenho
241 AND ei.exercicio = ea.exercicio 241 AND ei.exercicio = ea.exercicio
242 AND ei.cod_entidade = ea.cod_entidade 242 AND ei.cod_entidade = ea.cod_entidade
@@ -244,11 +244,11 @@ BEGIN @@ -244,11 +244,11 @@ BEGIN
244 244
245 AND de.exercicio = stExercicio 245 AND de.exercicio = stExercicio
246 AND de.cod_despesa = inCodDespesa 246 AND de.cod_despesa = inCodDespesa
247 - 247 +
248 AND TO_DATE(to_char(EA.timestamp,'dd/mm/yyyy'),'dd/mm/yyyy') BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 248 AND TO_DATE(to_char(EA.timestamp,'dd/mm/yyyy'),'dd/mm/yyyy') BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
249 AND TO_DATE(dtEmpenho,'dd/mm/yyyy'); 249 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
250 ELSEIF stTipoEmissao = 'R' THEN 250 ELSEIF stTipoEmissao = 'R' THEN
251 - 251 +
252 -- Valor Anulado, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo 252 -- Valor Anulado, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo
253 SELECT 253 SELECT
254 COALESCE(sum(ei.vl_anulado),0.00) 254 COALESCE(sum(ei.vl_anulado),0.00)
@@ -261,20 +261,20 @@ BEGIN @@ -261,20 +261,20 @@ BEGIN
261 , empenho.item_pre_empenho AS it 261 , empenho.item_pre_empenho AS it
262 , empenho.empenho_anulado_item AS ei 262 , empenho.empenho_anulado_item AS ei
263 , empenho.empenho_anulado AS ea 263 , empenho.empenho_anulado AS ea
264 - 264 +
265 WHERE de.cod_despesa = pd.cod_despesa 265 WHERE de.cod_despesa = pd.cod_despesa
266 AND de.exercicio = pd.exercicio 266 AND de.exercicio = pd.exercicio
267 - 267 +
268 AND pd.cod_pre_empenho = pe.cod_pre_empenho 268 AND pd.cod_pre_empenho = pe.cod_pre_empenho
269 AND pd.exercicio = pe.exercicio 269 AND pd.exercicio = pe.exercicio
270 - 270 +
271 AND pe.cod_pre_empenho = it.cod_pre_empenho 271 AND pe.cod_pre_empenho = it.cod_pre_empenho
272 AND pe.exercicio = it.exercicio 272 AND pe.exercicio = it.exercicio
273 - 273 +
274 AND it.cod_pre_empenho = ei.cod_pre_empenho 274 AND it.cod_pre_empenho = ei.cod_pre_empenho
275 AND it.num_item = ei.num_item 275 AND it.num_item = ei.num_item
276 AND it.exercicio = ei.exercicio 276 AND it.exercicio = ei.exercicio
277 - 277 +
278 AND ei.cod_empenho = ea.cod_empenho 278 AND ei.cod_empenho = ea.cod_empenho
279 AND ei.exercicio = ea.exercicio 279 AND ei.exercicio = ea.exercicio
280 AND ei.cod_entidade = ea.cod_entidade 280 AND ei.cod_entidade = ea.cod_entidade
@@ -282,11 +282,11 @@ BEGIN @@ -282,11 +282,11 @@ BEGIN
282 282
283 AND de.exercicio = stExercicio 283 AND de.exercicio = stExercicio
284 AND de.cod_despesa = inCodDespesa; 284 AND de.cod_despesa = inCodDespesa;
285 - 285 +
286 END IF; 286 END IF;
287 287
288 IF stTipoEmissao = 'E' THEN 288 IF stTipoEmissao = 'E' THEN
289 - 289 +
290 -- Valor suplementado 290 -- Valor suplementado
291 SELECT 291 SELECT
292 COALESCE( sum(valor), 0.00 ) 292 COALESCE( sum(valor), 0.00 )
@@ -294,23 +294,26 @@ BEGIN @@ -294,23 +294,26 @@ BEGIN
294 nuValorSuplementado 294 nuValorSuplementado
295 FROM 295 FROM
296 orcamento.suplementacao_suplementada 296 orcamento.suplementacao_suplementada
297 - , orcamento.suplementacao AS S  
298 - 297 + , orcamento.suplementacao AS S
  298 +
299 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao 299 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
300 AND suplementacao_suplementada.exercicio = S.exercicio 300 AND suplementacao_suplementada.exercicio = S.exercicio
301 301
302 AND suplementacao_suplementada.cod_despesa = inCodDespesa 302 AND suplementacao_suplementada.cod_despesa = inCodDespesa
303 AND suplementacao_suplementada.exercicio = stExercicio 303 AND suplementacao_suplementada.exercicio = stExercicio
  304 +
  305 + AND S.cod_tipo <> 16
  306 +
304 AND S.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy') 307 AND S.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
305 - AND TO_DATE(dtEmpenho,'dd/mm/yyyy') 308 + AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
306 AND NOT EXISTS ( SELECT 1 309 AND NOT EXISTS ( SELECT 1
307 FROM orcamento.suplementacao_anulada osa 310 FROM orcamento.suplementacao_anulada osa
308 WHERE cod_suplementacao = S.cod_suplementacao 311 WHERE cod_suplementacao = S.cod_suplementacao
309 AND osa.exercicio = stExercicio 312 AND osa.exercicio = stExercicio
310 ); 313 );
311 - 314 +
312 ELSEIF stTipoEmissao = 'R' THEN 315 ELSEIF stTipoEmissao = 'R' THEN
313 - 316 +
314 -- Valor suplementado 317 -- Valor suplementado
315 SELECT 318 SELECT
316 COALESCE( sum(valor), 0.00 ) 319 COALESCE( sum(valor), 0.00 )
@@ -318,13 +321,16 @@ BEGIN @@ -318,13 +321,16 @@ BEGIN
318 nuValorSuplementado 321 nuValorSuplementado
319 FROM 322 FROM
320 orcamento.suplementacao_suplementada 323 orcamento.suplementacao_suplementada
321 - , orcamento.suplementacao AS S  
322 - 324 + , orcamento.suplementacao AS S
  325 +
323 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao 326 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
324 AND suplementacao_suplementada.exercicio = S.exercicio 327 AND suplementacao_suplementada.exercicio = S.exercicio
325 328
326 AND suplementacao_suplementada.cod_despesa = inCodDespesa 329 AND suplementacao_suplementada.cod_despesa = inCodDespesa
327 AND suplementacao_suplementada.exercicio = stExercicio 330 AND suplementacao_suplementada.exercicio = stExercicio
  331 +
  332 + AND S.cod_tipo <> 16
  333 +
328 AND NOT EXISTS ( SELECT 1 334 AND NOT EXISTS ( SELECT 1
329 FROM orcamento.suplementacao_anulada osa 335 FROM orcamento.suplementacao_anulada osa
330 WHERE cod_suplementacao = S.cod_suplementacao 336 WHERE cod_suplementacao = S.cod_suplementacao
@@ -332,16 +338,16 @@ BEGIN @@ -332,16 +338,16 @@ BEGIN
332 ); 338 );
333 339
334 END IF; 340 END IF;
335 - 341 +
336 IF stTipoEmissao = 'E' THEN 342 IF stTipoEmissao = 'E' THEN
337 - 343 +
338 -- Valor da Suplementação Reduzida 344 -- Valor da Suplementação Reduzida
339 SELECT 345 SELECT
340 COALESCE( sum(valor), 0.00 ) 346 COALESCE( sum(valor), 0.00 )
341 INTO 347 INTO
342 nuValorReduzido 348 nuValorReduzido
343 FROM orcamento.suplementacao_reducao 349 FROM orcamento.suplementacao_reducao
344 - 350 +
345 INNER JOIN orcamento.suplementacao 351 INNER JOIN orcamento.suplementacao
346 ON suplementacao.exercicio = suplementacao_reducao.exercicio 352 ON suplementacao.exercicio = suplementacao_reducao.exercicio
347 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao 353 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao
@@ -356,21 +362,21 @@ BEGIN @@ -356,21 +362,21 @@ BEGIN
356 WHERE cod_suplementacao = suplementacao.cod_suplementacao 362 WHERE cod_suplementacao = suplementacao.cod_suplementacao
357 AND osa.exercicio = stExercicio 363 AND osa.exercicio = stExercicio
358 ); 364 );
359 - 365 +
360 ELSEIF stTipoEmissao = 'R' THEN 366 ELSEIF stTipoEmissao = 'R' THEN
361 - 367 +
362 -- Valor da Suplementação Reduzida 368 -- Valor da Suplementação Reduzida
363 SELECT 369 SELECT
364 COALESCE( sum(valor), 0.00 ) 370 COALESCE( sum(valor), 0.00 )
365 INTO 371 INTO
366 nuValorReduzido 372 nuValorReduzido
367 FROM orcamento.suplementacao_reducao 373 FROM orcamento.suplementacao_reducao
368 - 374 +
369 INNER JOIN orcamento.suplementacao 375 INNER JOIN orcamento.suplementacao
370 ON suplementacao.exercicio = suplementacao_reducao.exercicio 376 ON suplementacao.exercicio = suplementacao_reducao.exercicio
371 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao 377 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao
372 -  
373 - WHERE suplementacao_reducao.cod_despesa = inCodDespesa 378 +
  379 + WHERE suplementacao_reducao.cod_despesa = inCodDespesa
374 AND suplementacao_reducao.exercicio = stExercicio 380 AND suplementacao_reducao.exercicio = stExercicio
375 AND cod_tipo <> 16 381 AND cod_tipo <> 16
376 AND NOT EXISTS ( SELECT 1 382 AND NOT EXISTS ( SELECT 1
gestaoFinanceira/fontes/PLPGSQL/orcamento/tipoContaReceita.plsql
  Diff comments   View file @842bba7
@@ -26,45 +26,36 @@ @@ -26,45 +26,36 @@
26 * URBEM Soluções de Gestão Pública Ltda 26 * URBEM Soluções de Gestão Pública Ltda
27 * www.urbem.cnm.org.br 27 * www.urbem.cnm.org.br
28 * 28 *
29 -* $Revision: 12203 $  
30 -* $Name$  
31 -* $Author: cleisson $  
32 -* $Date: 2006-07-05 17:51:50 -0300 (Qua, 05 Jul 2006) $ 29 +* $Id: tipoContaReceita.plsql 66022 2016-07-07 20:23:42Z fabio $
33 * 30 *
34 * Casos de uso: uc-02.08.01 31 * Casos de uso: uc-02.08.01
35 */ 32 */
36 33
37 -/*  
38 -$Log$  
39 -Revision 1.6 2006/07/05 20:38:05 cleisson  
40 -Adicionada tag Log aos arquivos  
41 -  
42 -*/  
43 -  
44 CREATE OR REPLACE FUNCTION orcamento.fn_tipo_conta_receita(varchar,varchar) RETURNS VARCHAR AS $$ 34 CREATE OR REPLACE FUNCTION orcamento.fn_tipo_conta_receita(varchar,varchar) RETURNS VARCHAR AS $$
45 DECLARE 35 DECLARE
46 - stExercicio ALIAS FOR $1 ;  
47 - stMask ALIAS FOR $2 ;  
48 - stMascaraReduzida VARCHAR := '' ;  
49 - stSql VARCHAR := '' ;  
50 - inOut INTEGER := 0 ;  
51 - stRetorno VARCHAR := '' ; 36 + stExercicio ALIAS FOR $1;
  37 + stMask ALIAS FOR $2;
  38 + stMascaraReduzida VARCHAR := '';
  39 + stSql VARCHAR := '';
  40 + inOut INTEGER := 0;
  41 + stRetorno VARCHAR := '';
52 BEGIN 42 BEGIN
53 43
  44 + stMascaraReduzida := publico.fn_mascarareduzida(stMask);
  45 +
54 SELECT count(*) into inOut 46 SELECT count(*) into inOut
55 - FROM orcamento.receita  
56 -INNER JOIN orcamento.conta_receita  
57 - ON conta_receita.cod_conta = receita.cod_conta  
58 - AND conta_receita.exercicio = receita.exercicio  
59 - WHERE conta_receita.cod_estrutural = stMask  
60 - AND receita.exercicio = stExercicio; 47 + FROM orcamento.conta_receita
  48 + WHERE conta_receita.cod_estrutural like stMascaraReduzida ||'%'
  49 + AND conta_receita.cod_estrutural <> stMask
  50 + AND conta_receita.exercicio = stExercicio;
  51 +
  52 + IF inOut = 0 THEN
  53 + stRetorno := 'A';
  54 + ELSE
  55 + stRetorno := 'S';
  56 + END IF;
61 57
62 - IF inOut = 0 THEN  
63 - stRetorno := 'S';  
64 - ELSE  
65 - stRetorno := 'A';  
66 - END IF;  
67 - RETURN stRetorno; 58 + RETURN stRetorno;
68 END; 59 END;
69 $$ language 'plpgsql'; 60 $$ language 'plpgsql';
70 61