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 90 municipio=>$municipio,
91 91 bairro=>$bairro,
92 92 //cep=>$cep1.$cep2,
93   - cep=>ereg_replace('[^a-zA-Z0-9]','',$cep),
  93 + cep=>preg_replace('/[^a-zA-Z0-9]/','',$cep),
94 94 tipoLogradouroCorresp=>$tipoLogradouroCorresp,
95 95 logradouroCorresp=>$logradouroCorresp,
96 96 numeroCorresp=>$numeroCorresp,
... ... @@ -100,7 +100,7 @@ switch ($controle) {
100 100 municipioCorresp=>$municipioCorresp,
101 101 bairroCorresp=>$bairroCorresp,
102 102 //cepCorresp=>$cepCorresp1.$cepCorresp2,
103   - cepCorresp=>ereg_replace('[^a-zA-Z0-9]','',$cepCorresp),
  103 + cepCorresp=>preg_replace('/[^a-zA-Z0-9]/','',$cepCorresp),
104 104 foneRes=>$dddRes.$foneRes,
105 105 ramalRes=>$ramalRes,
106 106 foneCom=>$dddCom.$foneCom,
... ... @@ -111,10 +111,10 @@ switch ($controle) {
111 111 codResp=>Sessao::read('numCgm'),
112 112 pessoa=>$pessoa,
113 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 115 inscEst=>$inscEstadual,
116 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 118 rg=>$rg,
119 119 orgaoEmissor=>$orgaoEmissor,
120 120 //dtEmissaoRg=>$dtEmissaoRg3."-".$dtEmissaoRg2."-".$dtEmissaoRg1,
... ... @@ -241,7 +241,7 @@ if ($pessoa == "fisica") {
241 241 <?php
242 242 }
243 243 if (isset($pessoa)) {
244   - $dados = $HTTP_POST_VARS;
  244 + $dados = $_POST;
245 245 $dados[pessoa] = $pessoa;
246 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 57 $pgProc = "PR".$stPrograma.".php?".Sessao::getId()."&stAcao=$stAcao";
58 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 62 Sessao::setTrataExcecao( true );
63 63  
... ... @@ -133,7 +133,7 @@ if ($_POST[&#39;boPessoa&#39;]==&#39;fisica&#39;) {
133 133 $obTCGMPessoaFisica = new TCGMPessoaFisica;
134 134 $obTCGMPessoaFisica->setDado('numcgm' ,$inNumCGM);
135 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 137 $obTCGMPessoaFisica->setDado('rg' ,$_POST['stRG']);
138 138 $obTCGMPessoaFisica->setDado('orgao_emissor' ,$_POST['stOrgaoEmissor']);
139 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 225 case 2:
226 226 $js = "";
227 227 $ok = true;
228   - $vet = $HTTP_POST_VARS;
  228 + $vet = $_POST;
229 229 //Verifica se já existe o registro a ser incluido
230 230 if (!comparaValor("nom_empresa", $nomEmpresa, "cse.empresa","And cod_empresa <> '".$codEmpresa."' ",1)) {
231 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 140 case 1:
141 141 $js = "";
142 142 $ok = true;
143   - $vet = $HTTP_POST_VARS;
  143 + $vet = $_POST;
144 144 $vet[cnpj] = preg_replace( "/[^0-9a-zA-Z]/","", $cnpj);
145 145 //Verifica se já existe o registro a ser incluido
146 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 188 $cse = new cse();
189 189  
190 190 $objeto = $nomExame;
191   - if ($cse->incluirExame($HTTP_POST_VARS) ) {
  191 + if ($cse->incluirExame($_POST) ) {
192 192 //Insere auditoria
193 193 $audicao = new auditoriaLegada;
194 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 250 $cse = new cse();
251 251  
252 252 $objeto = $nomPrograma;
253   - if ($cse->alterarPrograma($HTTP_POST_VARS) ) {
  253 + if ($cse->alterarPrograma($_POST) ) {
254 254 //Insere auditoria
255 255 $audicao = new auditoriaLegada;
256 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 146 $cse = new cse();
147 147  
148 148 $objeto = $nomPrograma;
149   - if ($cse->incluirPrograma($HTTP_POST_VARS) ) {
  149 + if ($cse->incluirPrograma($_POST) ) {
150 150 //Insere auditoria
151 151 $audicao = new auditoriaLegada;
152 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 51 if ($alterar == 1) {
52 52 $alterar = 0;
53 53 $obj = new cse();
54   - $arr = $obj->retornaTratamento($HTTP_GET_VARS);
  54 + $arr = $obj->retornaTratamento($_GET);
55 55 $sessao->transf['cse'][2] = $arr[cse];
56 56 $sessao->transf[exame] = $arr[exame];
57 57 $sessao->transf[internacao] = $arr[internacao];
... ... @@ -76,7 +76,7 @@ if (!(isset($ctrl))) {
76 76  
77 77 if ($ctrl >= 2) {
78 78 if (isset($ctrlant)) {
79   - $sessao->transf['cse'][$ctrlant] = $HTTP_POST_VARS;
  79 + $sessao->transf['cse'][$ctrlant] = $_POST;
80 80 }
81 81 $aAbas = array(2=>"Prescrição", 3=>"Exames", 4=>"Internações");
82 82 //$aAbas = array(2=>"Dados Tratamento", 3=>"Dados Exames", 4=>"Dados Internações");
... ... @@ -593,7 +593,7 @@ case 1:
593 593 $js = "";
594 594 $ok = true;
595 595 /*** Faz a validação dos campos ***/
596   - $sessao->transf['cse'][$ctrlAtual] = $HTTP_POST_VARS;
  596 + $sessao->transf['cse'][$ctrlAtual] = $_POST;
597 597  
598 598 //Grava os campos do vetor como variáveis
599 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 51 if ($alterar == 1) {
52 52 $alterar = 0;
53 53 $obj = new cse();
54   - $arr = $obj->retornaTratamento($HTTP_GET_VARS);
  54 + $arr = $obj->retornaTratamento($_GET);
55 55 $sessao->transf['cse'][2] = $arr[cse];
56 56 $sessao->transf[exame] = $arr[exame];
57 57 $sessao->transf[internacao] = $arr[internacao];
... ... @@ -76,7 +76,7 @@ if (!(isset($ctrl))) {
76 76  
77 77 if ($ctrl >= 2) {
78 78 if (isset($ctrlant)) {
79   - $sessao->transf['cse'][$ctrlant] = $HTTP_POST_VARS;
  79 + $sessao->transf['cse'][$ctrlant] = $_POST;
80 80 }
81 81 $aAbas = array(2=>"Prescrição", 3=>"Exames", 4=>"Internações");
82 82 //$aAbas = array(2=>"Dados Tratamento", 3=>"Dados Exames", 4=>"Dados Internações");
... ... @@ -481,7 +481,7 @@ case 1:
481 481 $js = "";
482 482 $ok = true;
483 483 /*** Faz a validação dos campos ***/
484   - $sessao->transf['cse'][$ctrlAtual] = $HTTP_POST_VARS;
  484 + $sessao->transf['cse'][$ctrlAtual] = $_POST;
485 485  
486 486 //Grava os campos do vetor como variáveis
487 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 61  
62 62 if ($ctrl >= 0) {
63 63 if (isset($ctrlant)) {
64   - $sessao->transf['cse'][$ctrlant] = $HTTP_POST_VARS;
  64 + $sessao->transf['cse'][$ctrlant] = $_POST;
65 65 }
66 66 $aAbas = array("Prescrição", "Exames", "Internações");
67 67 ?>
... ... @@ -492,7 +492,7 @@ case 1:
492 492 $js = "f.controle.value = 0; \n";
493 493 $ok = true;
494 494 /*** Faz a validação dos campos ***/
495   - $sessao->transf['cse'][$ctrlAtual] = $HTTP_POST_VARS;
  495 + $sessao->transf['cse'][$ctrlAtual] = $_POST;
496 496  
497 497 //Grava os campos do vetor como variáveis
498 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 31 * @author Analista: Cassiano
32 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 36 Casos de uso: uc-01.03.94
37 37  
... ... @@ -57,7 +57,7 @@ $comboSet = $_REQUEST[&#39;comboSet&#39;];
57 57  
58 58 if (isset($comboSet)) {
59 59  
60   - while ( list( $key, $val ) = each( $HTTP_POST_VARS ) ) {
  60 + while ( list( $key, $val ) = each( $_POST ) ) {
61 61 $variavel = $key;
62 62 $$variavel = $val;
63 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 71  
72 72 $stSql = $this->montaExecutaFuncao($stParametros);
73 73 $this->setDebug($stSql);
74   - $obErro = $obConexao->executaSQL( &$rsRecordset, $stSql, $boTransacao );
  74 + $obErro = $obConexao->executaSQL( $rsRecordset, $stSql, $boTransacao );
75 75  
76 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 71  
72 72 $stSql = $this->montaExecutaFuncao($stParametros);
73 73 $this->setDebug($stSql);
74   - $obErro = $obConexao->executaSQL( &$rsRecordset, $stSql, $boTransacao );
  74 + $obErro = $obConexao->executaSQL( $rsRecordset, $stSql, $boTransacao );
75 75  
76 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 90 $obErro->setDescricao("Erro de Sintaxe. Revise a documentação.");
91 91 }
92 92 unset($$stVariavelInicial);
93   - if (ereg($stCondicao, '$')) {
  93 + if (preg_match("/".$stCondicao."/", '$')) {
94 94 unset($$stCondicao);
95 95 }
96 96  
... ... @@ -154,7 +154,7 @@ switch ($stAcao) {
154 154 $obErro->setDescricao("Erro de Sintaxe. Revise a documentação.");
155 155 }
156 156 unset($$stVariavelInicial);
157   - if (ereg($stCondicao, '$')) {
  157 + if (preg_match("/".$stCondicao."/", '$')) {
158 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 214 {
215 215 //session_start(); //inicializa a sessão
216 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 219 return true;
220 220 else
221 221 return false;
... ... @@ -224,13 +224,8 @@ class SessaoLegada
224 224 /*** Método de Destruição de Sessão ***/
225 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 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 558  
559 559 }
560 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 563 /* coloca ordenção determinada pelo componente */
564 564 $stSql.= " order by " . $GridPaging['sort'] . " " . $GridPaging['dir'];
565 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 91 */
92 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 144 */
145 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 150 * Remove a Ocorrencia de uma Expressão Regular
... ... @@ -160,6 +160,6 @@ function removerOcorrencias()
160 160 */
161 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 262 }
263 263 if ($boOk) {
264 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 266 $rsRecordSet->setCorrente( $this->rsRecordSet->getCorrente()+1 );
267 267 while ( !$rsRecordSet->eof() ) {
268 268 $stCampo = $rsRecordSet->getCampo( $this->stNameReduzido );
... ... @@ -446,7 +446,7 @@ function montaHTML()
446 446 for ($iCount=$inicio; $iCount<$contador; $iCount++) {
447 447 $stValueTMP = explode ("-", $stValue);
448 448 $stValueTMP = $stValueTMP[0];
449   - $stValueTMP = ereg_replace ("[0-9]","0",$stValueTMP);
  449 + $stValueTMP = preg_replace ("/[0-9]/","0",$stValueTMP);
450 450  
451 451 //Insere no array de Todos o codigo reduzido e o nome da variavel do orgão
452 452 $arTodos[implode('.',$arCampoReduzido)] = implode('_',$arCampoReduzido).'_'.$iCount;
... ... @@ -469,7 +469,7 @@ function montaHTML()
469 469  
470 470 $stValueTMP = explode ("-", $stValue);
471 471 $stValueTMP = $stValueTMP[0];
472   - $stValueTMP = ereg_replace ("[0-9]","0",$stValueTMP);
  472 + $stValueTMP = preg_replace ("/[0-9]/","0",$stValueTMP);
473 473  
474 474 //Verifica se este registro nulo já foi criado, caso tenha sido ele ignora este código
475 475 if (!$arTodosNulos[$nome3Aux . $stNomeInicial]) {
... ...
gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/Lista.class.php
  Diff comments   View file @842bba7
... ... @@ -32,7 +32,7 @@
32 32 * @package framework
33 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 37 * Casos de uso: uc-01.01.00
38 38  
... ... @@ -817,11 +817,11 @@ function montaHTML()
817 817 }
818 818  
819 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 822 if (strtolower(get_class($arObDado))=='dadocomponente') {
823 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 826 // VERIFICACAO DE EDICAO OU NAO DOS COMPONENTES INCLUÍDOS NA LISTA //
827 827 if ( $obRecordSet->getCampo('disabled') != '' ) {
... ... @@ -1021,7 +1021,7 @@ function montaHTML()
1021 1021 $stAcao = "";
1022 1022 if ( count( $arAcao ) ) {
1023 1023 foreach ($arAcao as $obAcao) {
1024   - $obAcao = version_compare(phpversion(), '5.0') < 0 ? $obAcao : clone($obAcao);
  1024 + $obAcao = clone $obAcao;
1025 1025  
1026 1026 $arLink = $obAcao->getCampo();
1027 1027 $stLink = "";
... ...
gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/MontaAtributos.class.php
  Diff comments   View file @842bba7
... ... @@ -34,7 +34,7 @@
34 34 * @package framework
35 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 39 Casos de uso: uc-01.01.00
40 40  
... ... @@ -239,6 +239,7 @@ function geraFormulario(&amp;$obFormulario)
239 239 $obAtributo->setMaxLength ( 500 );
240 240 $obAtributo->setNull ( ($this->rsRecordSet->getCampo('nao_nulo')=='t')?true:false );
241 241 $obAtributo->setLabel (($this->rsRecordSet->getCampo('label')==true)?true:false);
  242 + $obAtributo->setTitle ($this->rsRecordSet->getCampo('ajuda'));
242 243 break;
243 244 //case 'Texto':
244 245 case '2':
... ... @@ -258,6 +259,7 @@ function geraFormulario(&amp;$obFormulario)
258 259 $obAtributo->setNull ( ($this->rsRecordSet->getCampo('nao_nulo')=='t')?true:false );
259 260 $obAtributo->setMascara ( $this->rsRecordSet->getCampo('mascara') );
260 261 $obAtributo->setLabel (($this->rsRecordSet->getCampo('label')==true)?true:false);
  262 + $obAtributo->setTitle ($this->rsRecordSet->getCampo('ajuda'));
261 263 break;
262 264 //case 'Lista':
263 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 74 $this->wLine=$w;
75 75 $this->hLine=$h;
76 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 78 $this->border=$border;
79 79 $this->align=$align;
80 80 $this->fill=$fill;
... ... @@ -121,7 +121,7 @@ class DocumentoDinamico extends FPDF
121 121  
122 122 public function Padding()
123 123 {
124   - if (ereg("^.+,",$this->Padding)) {
  124 + if (preg_match("/^.+,/",$this->Padding)) {
125 125 $tab=explode(",",$this->Padding);
126 126 $this->lPadding=$tab[0];
127 127 $this->tPadding=$tab[1];
... ... @@ -213,11 +213,11 @@ class DocumentoDinamico extends FPDF
213 213 if($style1=="N")
214 214 break;
215 215 else {
216   - if(ereg("B",$style1))
  216 + if(preg_match("/B/",$style1))
217 217 $style['b']="B";
218   - if(ereg("I",$style1))
  218 + if(preg_match("/I/",$style1))
219 219 $style['i']="I";
220   - if(ereg("U",$style1))
  220 + if(preg_match("/U/",$style1))
221 221 $style['u']="U";
222 222 }
223 223 }
... ... @@ -264,19 +264,19 @@ class DocumentoDinamico extends FPDF
264 264 {
265 265 $tab=array();
266 266 // Closing tag
267   - if (ereg("^(</([^>]+)>).*",$text,$regs)) {
  267 + if (preg_match("/^(<\/([^>]+)>).*/",$text,$regs)) {
268 268 $tab[1]="c";
269 269 $tab[2]=trim($regs[2]);
270 270 }
271 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 274 $tab[1]="o";
275 275 $tab[2]=trim($regs[2]);
276 276  
277 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 280 $tab[2]=trim($tab1[0]);
281 281 while (list($i,$couple)=each($tab1)) {
282 282 if ($i>0) {
... ... @@ -290,12 +290,12 @@ class DocumentoDinamico extends FPDF
290 290 }
291 291 }
292 292 // Space
293   - else if (ereg("^( ).*",$text,$regs)) {
  293 + else if (preg_match("/^( ).*/",$text,$regs)) {
294 294 $tab[1]="s";
295 295 $tab[2]=$regs[1];
296 296 }
297 297 // Text
298   - else if (ereg("^([^< ]+).*",$text,$regs)) {
  298 + else if (preg_match("/^([^< ]+).*/",$text,$regs)) {
299 299 $tab[1]="t";
300 300 $tab[2]=trim($regs[1]);
301 301 }
... ... @@ -401,7 +401,7 @@ class DocumentoDinamico extends FPDF
401 401 $i=0;
402 402 } else {
403 403 preg_match( "/^(( *(<([^>]+)>)* *)*)(.*)/",$this->Text,$regs);
404   - $regs[1]=ereg_replace(" ", "", $regs[1]);
  404 + $regs[1]=preg_replace("/ /", "", $regs[1]);
405 405 $this->Text=$regs[1].$regs[5];
406 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 111  
112 112 $obTConfiguracao->setDado( "exercicio" , $sessao>exercicio );
113 113 foreach ($arPropriedades as $stParametro => $stValor) {
114   - $obErro = $obTConfiguracao->pegaConfiguracao(&$stValor, $stParametro );
  114 + $obErro = $obTConfiguracao->pegaConfiguracao($stValor, $stParametro );
115 115 $arConfiguracao[$stParametro] = $stValor;
116 116 if ( $obErro->ocorreu() ) {
117 117 break;
... ... @@ -186,7 +186,7 @@ var $stArquivoSxw;
186 186  
187 187 $obTConfiguracao->setDado( "exercicio" , $sessao>exercicio );
188 188 foreach ($arPropriedades as $stParametro => $stValor) {
189   - $obErro = $obTConfiguracao->pegaConfiguracao(&$stValor, $stParametro );
  189 + $obErro = $obTConfiguracao->pegaConfiguracao($stValor, $stParametro );
190 190 $arConfiguracao[$stParametro] = $stValor;
191 191 if ( $obErro->ocorreu() ) {
192 192 break;
... ... @@ -341,7 +341,7 @@ var $stArquivoSxw;
341 341 $obTAdministracaoModeloArquivosDocumentos = new TAdministracaoModeloArquivosDocumento();
342 342 $obTAdministracaoModeloArquivosDocumentos->setDado('cod_acao',$inCodAcao);
343 343 $obTAdministracaoModeloArquivosDocumentos->setDado('cod_documento',$inCodDocumento);
344   - $obTAdministracaoModeloArquivosDocumentos->recuperaDocumentos(&$rsRecordSet);
  344 + $obTAdministracaoModeloArquivosDocumentos->recuperaDocumentos($rsRecordSet);
345 345  
346 346 return $rsRecordSet;
347 347 }
... ...
gestaoAdministrativa/fontes/PHP/framework/componentes/mascara/Mascara.class.php
  Diff comments   View file @842bba7
... ... @@ -33,7 +33,7 @@
33 33 * @package framework
34 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 38 Casos de uso: uc-01.01.00
39 39 */
... ... @@ -112,9 +112,9 @@ function converterParaExpressaoRegular($prm)
112 112 $parametro = $prm;
113 113 $tamanho = strlen($parametro);
114 114 for ($x=0;$x<$tamanho;$x++) {
115   - if (eregi('[a-z]',$parametro[$x])) {
  115 + if (preg_match('/[a-z]/',$parametro[$x])) {
116 116 $expReg .= "[A-".$parametro[$x]."]";
117   - } elseif (eregi('[0-9]',$parametro[$x])) {
  117 + } elseif (preg_match('/[0-9]/',$parametro[$x])) {
118 118 $expReg .= "[0-".$parametro[$x]."]";
119 119 } else {
120 120 $expReg .= '\\'.$parametro[$x];
... ...
gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportador.class.php
  Diff comments   View file @842bba7
... ... @@ -30,7 +30,7 @@
30 30 * @author Desenvolvedor: Cassiano de Vasconcellos Ferreira
31 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 35 * @package framework
36 36 * @subpackage componentes
... ... @@ -448,7 +448,7 @@ function FormataTipoDocumento()
448 448 break;
449 449 case 'TCM_GO':
450 450 // Array arquivo sequencial automático
451   - $arArquivoSequencial = array( "HML", "ABL", "HBL", "JGL");
  451 + $arArquivoSequencial = array( "HML", "ABL", "HBL", "JGL", "AEX");
452 452 $arArquivo = explode('_',$this->getNomeArquivo());
453 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 33 * @package framework
34 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 38 Casos de uso: uc-01.01.00
39 39 */
... ... @@ -264,6 +264,17 @@ function FormataTipoDado($stCampo)
264 264 $stCampo = str_replace("\r\n"," ",$stCampo);
265 265 $stCampo = str_replace("\n"," ",$stCampo);
266 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 278 break;
268 279 case "NUMERICO_ZEROS_ESQ":
269 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 201 }
202 202 break;
203 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 205 $this->roArquivoImportador->obErro->setDescricao('O tipo de dado da coluna '.$this->stCampo.' do arquivo '.$this->roArquivoImportador->getNomeArquivo().' não confere. ');
206 206 }
207 207 break;
... ... @@ -210,7 +210,7 @@ function Validar($stCampo)
210 210 if ( count($arTamanho)<=1 ) {
211 211 $this->roArquivoImportador->obErro->setDescricao("Utilize o tipo INTEIRO ou informe o tamanho com formato numérico. Ex: 15.4");
212 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 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 23 */
24 24 ?>
25 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 27 echo "true";
28 28 else
29 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 38  
39 39 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
40 40 include_once (CAM_FW_LEGADO."dataBaseLegado.class.php" );
41   -if (!(session_is_registered("sessao"))) {
  41 +if (!(isset($_SESSION['sessao']))) {
42 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 39 error_reporting();
40 40 //------- PHP TRACK VARS ---------------------------------//
41 41 //Captura variávis do POST
42   -$posts = $HTTP_POST_VARS;
  42 +$posts = $_POST;
43 43 if (is_array($posts)) {
44 44 while (list($keyPost,$valPost) = each($posts)) {
45 45 $valorPost = $valPost;
... ... @@ -48,7 +48,7 @@ if (is_array($posts)) {
48 48 }
49 49  
50 50 //Captura variávis do GET
51   -$gets = $HTTP_GET_VARS;
  51 +$gets = $_GET;
52 52 if (is_array($gets)) {
53 53 while (list($keyGets,$valGets) = each($gets)) {
54 54 $valorGets = $valGets;
... ... @@ -56,7 +56,7 @@ if (is_array($gets)) {
56 56 }
57 57 }
58 58 //Captura variávis dos COOKIES
59   -$cookies = $HTTP_COOKIE_VARS;
  59 +$cookies = $_COOKIE;
60 60 if (is_array($cookies)) {
61 61 while (list($keyCookies,$valCookies) = each($cookies)) {
62 62 $valorCookies = $valCookies;
... ... @@ -64,7 +64,7 @@ if (is_array($cookies)) {
64 64 }
65 65 }
66 66 //Captura variávis do SESSION
67   -$sessions = $HTTP_SESSION_VARS;
  67 +$sessions = $_SESSION;
68 68 if (is_array($sessions)) {
69 69 while (list($keySessions,$valSessions) = each($sessions)) {
70 70 $valorSessions = $valSessions;
... ... @@ -212,7 +212,7 @@ if ($codigomodulo != 0) {
212 212 ?>
213 213 </head><body leftmargin=0 topmargin=0>
214 214 <?php
215   -if (!(session_is_registered("sessao")))
  215 +if (!(isset($_SESSION["sessao"])))
216 216 echo "<script type='text/javascript'>
217 217 window.location='".$stCaminho."index.php'
218 218 </script>";
... ...
gestaoAdministrativa/fontes/PHP/framework/legado/pdf/relatorioPdfLegado.class.php
  Diff comments   View file @842bba7
... ... @@ -112,7 +112,7 @@ class relatorioPdfLegado
112 112 public function carregaDados()
113 113 {
114 114 $this->xml_parser = xml_parser_create();
115   - xml_set_object($this->xml_parser,&$this);
  115 + xml_set_object($this->xml_parser,$this);
116 116 xml_set_element_handler($this->xml_parser, "elementoInicio", "elementoFim");
117 117  
118 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 210 {
211 211 session_start(); //inicializa a sessão
212 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 215 return true;
216 216 else
217 217 return false;
... ... @@ -220,13 +220,8 @@ class sessao
220 220 /*** Método de Destruição de Sessão ***/
221 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 227 /*** Método de Geração do número randômico - Jorge***/
... ... @@ -235,9 +230,9 @@ class sessao
235 230 $aux = explode("&",$this->id);
236 231 $sAux = $aux[0];
237 232 $sRnd = "&iURLRandomica=".hoje(true).agora(true,true);
238   - $sAux = $sAux.ereg_replace ("-", "", $sRnd);
  233 + $sAux = $sAux.preg_replace ("/-/", "", $sRnd);
239 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 299  
300 300 case 1:
301 301  
302   - while ( list( $key, $val ) = each( $HTTP_POST_VARS ) ) {
  302 + while ( list( $key, $val ) = each( $_POST ) ) {
303 303 $variavel = $key;
304 304 $$variavel = $val;
305 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 43  
44 44 class TClassificacao extends Persistente
45 45 {
46   - public function TClassificacao()
  46 + public function __construct()
47 47 {
48 48 parent::Persistente();
49 49 $this->setTabela('sw_classificacao');
... ... @@ -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 37  
38 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 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 283 } else {
284 284 $obChkDocumento->setChecked(false);
285 285 }
286   - $arDocumentos[] = version_compare(phpversion(), '5.0') < 0 ? $obChkDocumento : clone($obChkDocumento);
  286 + $arDocumentos[] = clone $obChkDocumento;
287 287 $rsDocumento->proximo();
288 288 }
289 289  
... ... @@ -303,7 +303,7 @@ while ( !$rsAtributoProtocolo-&gt;eof() ) {
303 303 } else {
304 304 $obChkAtributo->setChecked(false);
305 305 }
306   - $arAtributos[] = version_compare(phpversion(), '5.0') < 0 ? $obChkAtributo : clone($obChkAtributo);
  306 + $arAtributos[] = clone $obChkAtributo;
307 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 31  
32 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 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 268 <form name="frm" action="incluiAndamentoPadrao.php?<?=Sessao::getId();?>&ctrl=1" method="POST" onSubmit="return Valida();">
... ... @@ -270,15 +275,15 @@ case 1:
270 275 <tr>
271 276 <td rowspan="3" class="label" width="30%">Classificação/Assunto</td>
272 277 <?php
273   - $arCodClassifAssunto = validaMascaraDinamica($mascaraAssunto,$_REQUEST["codClassificacao"]."-".$_REQUEST["codAssunto"]);
  278 + $arCodClassifAssunto = validaMascaraDinamica($mascaraAssunto,$_REQUEST['codClassificacao']."-".$_REQUEST['codAssunto']);
274 279 ?>
275 280 <td class="field"><?=$arCodClassifAssunto[1];?></td>
276 281 </tr>
277 282 <tr>
278   - <td class="field"><?=$stNomClassificacao;?></td>
  283 + <td class="field"><?=$rsRecord->getCampo("nom_classificacao");?></td>
279 284 </tr>
280 285 <tr>
281   - <td class="field"><?=$stNomAssunto;?></td>
  286 + <td class="field"><?=$rsRecord->getCampo("nom_assunto");?></td>
282 287 </tr>
283 288 <tr>
284 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 30 * @author Analista: Cassiano
31 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 35 Casos de uso: uc-01.06.98
36 36 */
... ... @@ -405,7 +405,7 @@ $anoExercicio = $_REQUEST[&quot;anoExercicio&quot;];
405 405 include '../situacaoProcesso.class.php';
406 406  
407 407 $situacaoProcesso = new situacaoProcesso;
408   -$situacaoProcesso->setaVariaveisArquivamento("3",$codProcesso,"",$anoExercicio);
  408 +$situacaoProcesso->setaVariaveisArquivamento("3",$codProcesso,"",$anoExercicio,$stLocalizacaoFisica);
409 409 if ($situacaoProcesso->apagaArquivamento()) {
410 410 include '../../../framework/legado/auditoriaLegada.class.php';
411 411 $audicao = new auditoriaLegada;
... ...
gestaoAdministrativa/fontes/PLPGSQL/framework/concatenarArray.plsql
  Diff comments   View file @842bba7
... ... @@ -33,7 +33,7 @@
33 33 * URBEM Soluções de Gestão Pública Ltda
34 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 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 31 * @package URBEM
32 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 37 CREATE OR REPLACE FUNCTION organograma.fn_migra_orgaos( inNumCgm INTEGER
... ... @@ -230,6 +230,7 @@ BEGIN
230 230 SELECT cod_configuracao
231 231 , exercicio
232 232 , sequencia
  233 + , MAX(timestamp) AS timestamp
233 234 FROM folhapagamento.configuracao_empenho
234 235 WHERE vigencia >= (
235 236 SELECT MAX(vigencia)
... ... @@ -243,7 +244,7 @@ BEGIN
243 244 ';
244 245 FOR reRecordConta IN EXECUTE stSqlConta LOOP
245 246  
246   - SELECT timestamp
  247 + SELECT MAX(timestamp) AS timestamp
247 248 INTO tsTimestampIMA
248 249 FROM folhapagamento.configuracao_empenho
249 250 WHERE vigencia = (
... ... @@ -281,7 +282,7 @@ BEGIN
281 282 , exercicio
282 283 , sequencia
283 284 , now()::timestamp(3)
284   - , ( -- now()::date
  285 + , (
285 286 SELECT dt_inicial
286 287 FROM folhapagamento.periodo_movimentacao
287 288 WHERE cod_periodo_movimentacao = (
... ... @@ -470,7 +471,6 @@ BEGIN
470 471 SET cod_orgao = de_para_orgao.cod_orgao_new
471 472 FROM organograma.de_para_orgao
472 473 WHERE configuracao_empenho_lotacao.cod_orgao = de_para_orgao.cod_orgao
473   - -- AND configuracao_empenho_lotacao.timestamp >= now()::timestamp(3) -- tsTimestampIMA
474 474 AND configuracao_empenho_lotacao.timestamp IN (
475 475 SELECT timestamp
476 476 FROM folhapagamento.configuracao_empenho
... ... @@ -505,15 +505,15 @@ BEGIN
505 505 FROM folhapagamento.configuracao_empenho
506 506 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
507 507 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
508   - AND exercicio = '|| reRecordConta.exercicio ||'
  508 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
509 509 AND sequencia = '|| reRecordConta.sequencia ||'
510 510 )
511 511 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
512   - AND exercicio = '|| reRecordConta.exercicio ||'
  512 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
513 513 AND sequencia = '|| reRecordConta.sequencia ||'
514 514 )
515 515 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
516   - AND exercicio = '|| reRecordConta.exercicio ||'
  516 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
517 517 AND sequencia = '|| reRecordConta.sequencia ||'
518 518 GROUP BY cod_configuracao
519 519 , cod_orgao
... ... @@ -555,6 +555,7 @@ BEGIN
555 555 stSqlConta := '
556 556 SELECT cod_configuracao_lla
557 557 , exercicio
  558 + , MAX(timestamp) AS timestamp
558 559 FROM folhapagamento.configuracao_empenho_lla
559 560 WHERE vigencia >= (
560 561 SELECT MAX(vigencia)
... ... @@ -567,7 +568,7 @@ BEGIN
567 568 ';
568 569 FOR reRecordConta IN EXECUTE stSqlConta LOOP
569 570  
570   - SELECT timestamp
  571 + SELECT MAX(timestamp) AS timestamp
571 572 INTO tsTimestampIMA
572 573 FROM folhapagamento.configuracao_empenho_lla
573 574 WHERE vigencia = (
... ... @@ -593,7 +594,7 @@ BEGIN
593 594 SELECT cod_configuracao_lla
594 595 , exercicio
595 596 , now()::timestamp(3)
596   - , ( -- now()::date
  597 + , (
597 598 SELECT dt_inicial
598 599 FROM folhapagamento.periodo_movimentacao
599 600 WHERE cod_periodo_movimentacao = (
... ... @@ -695,7 +696,6 @@ BEGIN
695 696 SET cod_orgao = de_para_orgao.cod_orgao_new
696 697 FROM organograma.de_para_orgao
697 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 699 AND configuracao_empenho_lla_lotacao.timestamp IN (
700 700 SELECT timestamp
701 701 FROM folhapagamento.configuracao_empenho_lla
... ... @@ -719,7 +719,7 @@ BEGIN
719 719 , num_pao
720 720 , timestamp
721 721 FROM folhapagamento.configuracao_empenho_lla_lotacao
722   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  722 + WHERE timestamp IN (
723 723 SELECT timestamp
724 724 FROM folhapagamento.configuracao_empenho_lla
725 725 WHERE vigencia > (
... ... @@ -727,13 +727,13 @@ BEGIN
727 727 FROM folhapagamento.configuracao_empenho_lla
728 728 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
729 729 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
730   - AND exercicio = '|| reRecordConta.exercicio ||'
  730 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
731 731 )
732 732 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
733   - AND exercicio = '|| reRecordConta.exercicio ||'
  733 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
734 734 )
735 735 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
736   - AND exercicio = '|| reRecordConta.exercicio ||'
  736 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
737 737 GROUP BY cod_configuracao_lla
738 738 , cod_orgao
739 739 , exercicio
... ... @@ -774,6 +774,7 @@ BEGIN
774 774 stSqlConta := '
775 775 SELECT cod_empresa
776 776 , num_orgao_banpara
  777 + , MAX(timestamp) AS timestamp
777 778 FROM ima.configuracao_banpara
778 779 WHERE vigencia >= (
779 780 SELECT MAX(vigencia)
... ... @@ -786,7 +787,7 @@ BEGIN
786 787 ';
787 788 FOR reRecordConta IN EXECUTE stSqlConta LOOP
788 789  
789   - SELECT timestamp
  790 + SELECT MAX(timestamp) AS timestamp
790 791 INTO tsTimestampIMA
791 792 FROM ima.configuracao_banpara
792 793 WHERE vigencia = (
... ... @@ -814,7 +815,7 @@ BEGIN
814 815 , num_orgao_banpara
815 816 , descricao || ' MIGRA ORGANOGRAMA'
816 817 , now()::timestamp(3)
817   - , ( -- now()::date
  818 + , (
818 819 SELECT dt_inicial
819 820 FROM folhapagamento.periodo_movimentacao
820 821 WHERE cod_periodo_movimentacao = (
... ... @@ -866,7 +867,6 @@ BEGIN
866 867 SET cod_orgao = de_para_orgao.cod_orgao_new
867 868 FROM organograma.de_para_orgao
868 869 WHERE configuracao_banpara_orgao.cod_orgao = de_para_orgao.cod_orgao
869   - -- AND configuracao_banpara_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA
870 870 AND configuracao_banpara_orgao.timestamp IN (
871 871 SELECT timestamp
872 872 FROM ima.configuracao_banpara
... ... @@ -889,7 +889,7 @@ BEGIN
889 889 , num_orgao_banpara
890 890 , timestamp
891 891 FROM ima.configuracao_banpara_orgao
892   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  892 + WHERE timestamp IN (
893 893 SELECT timestamp
894 894 FROM ima.configuracao_banpara
895 895 WHERE vigencia > (
... ... @@ -942,6 +942,7 @@ BEGIN
942 942 , cod_banco
943 943 , cod_agencia
944 944 , cod_conta_corrente
  945 + , MAX(timestamp) AS timestamp
945 946 FROM ima.configuracao_bb_conta
946 947 WHERE vigencia >= (
947 948 SELECT MAX(vigencia)
... ... @@ -956,7 +957,7 @@ BEGIN
956 957 ';
957 958 FOR reRecordConta IN EXECUTE stSqlConta LOOP
958 959  
959   - SELECT timestamp
  960 + SELECT MAX(timestamp) AS timestamp
960 961 INTO tsTimestampIMA
961 962 FROM ima.configuracao_bb_conta
962 963 WHERE vigencia = (
... ... @@ -992,7 +993,7 @@ BEGIN
992 993 , cod_conta_corrente
993 994 , descricao || ' MIGRA ORGANOGRAMA'
994 995 , now()::timestamp(3)
995   - , ( -- now()::date
  996 + , (
996 997 SELECT dt_inicial
997 998 FROM folhapagamento.periodo_movimentacao
998 999 WHERE cod_periodo_movimentacao = (
... ... @@ -1058,7 +1059,6 @@ BEGIN
1058 1059 SET cod_orgao = de_para_orgao.cod_orgao_new
1059 1060 FROM organograma.de_para_orgao
1060 1061 WHERE configuracao_bb_orgao.cod_orgao = de_para_orgao.cod_orgao
1061   - -- AND configuracao_bb_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA
1062 1062 AND configuracao_bb_orgao.timestamp IN (
1063 1063 SELECT timestamp
1064 1064 FROM ima.configuracao_bb_conta
... ... @@ -1089,7 +1089,7 @@ BEGIN
1089 1089 , timestamp
1090 1090 , cod_orgao
1091 1091 FROM ima.configuracao_bb_orgao
1092   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  1092 + WHERE timestamp IN (
1093 1093 SELECT timestamp
1094 1094 FROM ima.configuracao_bb_conta
1095 1095 WHERE vigencia > (
... ... @@ -1156,6 +1156,7 @@ BEGIN
1156 1156 , cod_banco
1157 1157 , cod_agencia
1158 1158 , cod_conta_corrente
  1159 + , MAX(timestamp) AS timestamp
1159 1160 FROM ima.configuracao_besc_conta
1160 1161 WHERE vigencia >= (
1161 1162 SELECT MAX(vigencia)
... ... @@ -1170,7 +1171,7 @@ BEGIN
1170 1171 ';
1171 1172 FOR reRecordConta IN EXECUTE stSqlConta LOOP
1172 1173  
1173   - SELECT timestamp
  1174 + SELECT MAX(timestamp) AS timestamp
1174 1175 INTO tsTimestampIMA
1175 1176 FROM ima.configuracao_besc_conta
1176 1177 WHERE vigencia = (
... ... @@ -1206,7 +1207,7 @@ BEGIN
1206 1207 , cod_conta_corrente
1207 1208 , descricao || ' MIGRA ORGANOGRAMA'
1208 1209 , now()::timestamp(3)
1209   - , ( -- now()::date
  1210 + , (
1210 1211 SELECT dt_inicial
1211 1212 FROM folhapagamento.periodo_movimentacao
1212 1213 WHERE cod_periodo_movimentacao = (
... ... @@ -1272,7 +1273,6 @@ BEGIN
1272 1273 SET cod_orgao = de_para_orgao.cod_orgao_new
1273 1274 FROM organograma.de_para_orgao
1274 1275 WHERE configuracao_besc_orgao.cod_orgao = de_para_orgao.cod_orgao
1275   - -- AND configuracao_besc_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA
1276 1276 AND configuracao_besc_orgao.timestamp IN (
1277 1277 SELECT timestamp
1278 1278 FROM ima.configuracao_besc_conta
... ... @@ -1303,7 +1303,7 @@ BEGIN
1303 1303 , timestamp
1304 1304 , cod_orgao
1305 1305 FROM ima.configuracao_besc_orgao
1306   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  1306 + WHERE timestamp IN (
1307 1307 SELECT timestamp
1308 1308 FROM ima.configuracao_besc_conta
1309 1309 WHERE vigencia > (
... ... @@ -1370,6 +1370,7 @@ BEGIN
1370 1370 , cod_banco
1371 1371 , cod_agencia
1372 1372 , cod_conta_corrente
  1373 + , MAX(timestamp) AS timestamp
1373 1374 FROM ima.configuracao_banrisul_conta
1374 1375 WHERE vigencia >= (
1375 1376 SELECT MAX(vigencia)
... ... @@ -1384,7 +1385,7 @@ BEGIN
1384 1385 ';
1385 1386 FOR reRecordConta IN EXECUTE stSqlConta LOOP
1386 1387  
1387   - SELECT timestamp
  1388 + SELECT MAX(timestamp) AS timestamp
1388 1389 INTO tsTimestampIMA
1389 1390 FROM ima.configuracao_banrisul_conta
1390 1391 WHERE vigencia = (
... ... @@ -1420,7 +1421,7 @@ BEGIN
1420 1421 , cod_conta_corrente
1421 1422 , descricao || ' MIGRA ORGANOGRAMA'
1422 1423 , now()::timestamp(3)
1423   - , ( -- now()::date
  1424 + , (
1424 1425 SELECT dt_inicial
1425 1426 FROM folhapagamento.periodo_movimentacao
1426 1427 WHERE cod_periodo_movimentacao = (
... ... @@ -1486,7 +1487,6 @@ BEGIN
1486 1487 SET cod_orgao = de_para_orgao.cod_orgao_new
1487 1488 FROM organograma.de_para_orgao
1488 1489 WHERE configuracao_banrisul_orgao.cod_orgao = de_para_orgao.cod_orgao
1489   - -- AND configuracao_banrisul_orgao.timestamp >= now()::timestamp(3) -- tsTimestampIMA
1490 1490 AND configuracao_banrisul_orgao.timestamp IN (
1491 1491 SELECT timestamp
1492 1492 FROM ima.configuracao_banrisul_conta
... ... @@ -1517,7 +1517,7 @@ BEGIN
1517 1517 , timestamp
1518 1518 , cod_orgao
1519 1519 FROM ima.configuracao_banrisul_orgao
1520   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  1520 + WHERE timestamp IN (
1521 1521 SELECT timestamp
1522 1522 FROM ima.configuracao_banrisul_conta
1523 1523 WHERE vigencia > (
... ... @@ -1751,6 +1751,7 @@ BEGIN
1751 1751 SELECT cod_configuracao
1752 1752 , exercicio
1753 1753 , sequencia
  1754 + , MAX(timestamp) AS timestamp
1754 1755 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1755 1756 WHERE vigencia >= (
1756 1757 SELECT MAX(vigencia)
... ... @@ -1765,35 +1766,35 @@ BEGIN
1765 1766  
1766 1767 FOR reRecordConta IN EXECUTE stSqlConta LOOP
1767 1768  
1768   - stSqlRH := '
  1769 + stSqlUpdate := '
1769 1770 UPDATE administracao.configuracao
1770 1771 SET valor = (
1771   - SELECT timestamp
  1772 + SELECT MAX(timestamp) AS timestamp
1772 1773 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1773 1774 WHERE vigencia = (
1774 1775 SELECT MAX(vigencia)
1775 1776 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1776 1777 WHERE vigencia <= now()::date
1777 1778 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1778   - AND exercicio = '|| reRecordConta.exercicio ||'
  1779 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1779 1780 AND sequencia = '|| reRecordConta.sequencia ||'
1780 1781 )
1781 1782 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1782   - AND exercicio = '|| reRecordConta.exercicio ||'
  1783 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1783 1784 AND sequencia = '|| reRecordConta.sequencia ||'
1784 1785 )
1785 1786 WHERE cod_modulo = 19
1786   - AND exercicio = EXTRACT(year FROM now())
  1787 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
1787 1788 AND parametro = ''timestamp_vigencia_RH''
1788 1789 ;
1789 1790 ';
1790 1791 EXECUTE stSqlUpdate;
1791 1792  
1792   - SELECT valor
  1793 + SELECT valor::TIMESTAMP
1793 1794 INTO tsTimestampIMA
1794 1795 FROM administracao.configuracao
1795 1796 WHERE cod_modulo = 19
1796   - AND exercicio = EXTRACT(year FROM now())
  1797 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
1797 1798 AND parametro = 'timestamp_vigencia_RH'
1798 1799 ;
1799 1800  
... ... @@ -1821,7 +1822,7 @@ BEGIN
1821 1822 , exercicio
1822 1823 , sequencia
1823 1824 , now()::timestamp(3)
1824   - , ( -- now()::date
  1825 + , (
1825 1826 SELECT dt_inicial
1826 1827 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
1827 1828 WHERE cod_periodo_movimentacao = (
... ... @@ -1830,9 +1831,9 @@ BEGIN
1830 1831 )
1831 1832 )
1832 1833 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
1833   - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||'
  1834 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1834 1835 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1835   - AND exercicio = '|| reRecordConta.exercicio ||'
  1836 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1836 1837 AND sequencia = '|| reRecordConta.sequencia ||'
1837 1838 ;
1838 1839 ';
... ... @@ -1853,9 +1854,9 @@ BEGIN
1853 1854 , sequencia
1854 1855 , now()::timestamp(3)
1855 1856 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao
1856   - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||'
  1857 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1857 1858 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1858   - AND exercicio = '|| reRecordConta.exercicio ||'
  1859 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1859 1860 AND sequencia = '|| reRecordConta.sequencia ||'
1860 1861 ;
1861 1862 ';
... ... @@ -1878,7 +1879,7 @@ BEGIN
1878 1879 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_local
1879 1880 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1880 1881 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1881   - AND exercicio = '|| reRecordConta.exercicio ||'
  1882 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1882 1883 AND sequencia = '|| reRecordConta.sequencia ||'
1883 1884 ;
1884 1885 ';
... ... @@ -1903,9 +1904,9 @@ BEGIN
1903 1904 , sequencia
1904 1905 , now()::timestamp(3)
1905 1906 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_atributo
1906   - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||'
  1907 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1907 1908 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1908   - AND exercicio = '|| reRecordConta.exercicio ||'
  1909 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1909 1910 AND sequencia = '|| reRecordConta.sequencia ||'
1910 1911 ;
1911 1912 ';
... ... @@ -1932,9 +1933,9 @@ BEGIN
1932 1933 , valor
1933 1934 , now()::timestamp(3)
1934 1935 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_atributo_valor
1935   - WHERE timestamp = '|| quote_timestamp(tsTimestampIMA) ||'
  1936 + WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1936 1937 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1937   - AND exercicio = '|| reRecordConta.exercicio ||'
  1938 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1938 1939 AND sequencia = '|| reRecordConta.sequencia ||'
1939 1940 ;
1940 1941 ';
... ... @@ -1957,7 +1958,7 @@ BEGIN
1957 1958 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_situacao
1958 1959 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1959 1960 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1960   - AND exercicio = '|| reRecordConta.exercicio ||'
  1961 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1961 1962 AND sequencia = '|| reRecordConta.sequencia ||'
1962 1963 ;
1963 1964 ';
... ... @@ -1980,7 +1981,7 @@ BEGIN
1980 1981 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_conta_despesa
1981 1982 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
1982 1983 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
1983   - AND exercicio = '|| reRecordConta.exercicio ||'
  1984 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
1984 1985 AND sequencia = '|| reRecordConta.sequencia ||'
1985 1986 ;
1986 1987 ';
... ... @@ -2003,7 +2004,7 @@ BEGIN
2003 2004 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_subdivisao
2004 2005 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2005 2006 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2006   - AND exercicio = '|| reRecordConta.exercicio ||'
  2007 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2007 2008 AND sequencia = '|| reRecordConta.sequencia ||'
2008 2009 ;
2009 2010 ';
... ... @@ -2026,7 +2027,7 @@ BEGIN
2026 2027 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_evento
2027 2028 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2028 2029 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2029   - AND exercicio = '|| reRecordConta.exercicio ||'
  2030 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2030 2031 AND sequencia = '|| reRecordConta.sequencia ||'
2031 2032 ;
2032 2033 ';
... ... @@ -2037,7 +2038,6 @@ BEGIN
2037 2038 SET cod_orgao = de_para_orgao.cod_orgao_new
2038 2039 FROM organograma.de_para_orgao
2039 2040 WHERE configuracao_empenho_lotacao.cod_orgao = de_para_orgao.cod_orgao
2040   - -- AND configuracao_empenho_lotacao.timestamp >= now()::timestamp(3) -- tsTimestampIMA
2041 2041 AND configuracao_empenho_lotacao.timestamp IN (
2042 2042 SELECT timestamp
2043 2043 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
... ... @@ -2046,15 +2046,15 @@ BEGIN
2046 2046 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
2047 2047 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2048 2048 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2049   - AND exercicio = '|| reRecordConta.exercicio ||'
  2049 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2050 2050 AND sequencia = '|| reRecordConta.sequencia ||'
2051 2051 )
2052 2052 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2053   - AND exercicio = '|| reRecordConta.exercicio ||'
  2053 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2054 2054 AND sequencia = '|| reRecordConta.sequencia ||'
2055 2055 )
2056 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 2058 AND configuracao_empenho_lotacao.sequencia = '|| reRecordConta.sequencia ||'
2059 2059 ;
2060 2060 ';
... ... @@ -2067,7 +2067,7 @@ BEGIN
2067 2067 , sequencia
2068 2068 , timestamp
2069 2069 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao
2070   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  2070 + WHERE timestamp IN (
2071 2071 SELECT timestamp
2072 2072 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
2073 2073 WHERE vigencia > (
... ... @@ -2075,15 +2075,15 @@ BEGIN
2075 2075 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho
2076 2076 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2077 2077 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2078   - AND exercicio = '|| reRecordConta.exercicio ||'
  2078 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2079 2079 AND sequencia = '|| reRecordConta.sequencia ||'
2080 2080 )
2081 2081 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2082   - AND exercicio = '|| reRecordConta.exercicio ||'
  2082 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2083 2083 AND sequencia = '|| reRecordConta.sequencia ||'
2084 2084 )
2085 2085 AND cod_configuracao = '|| reRecordConta.cod_configuracao ||'
2086   - AND exercicio = '|| reRecordConta.exercicio ||'
  2086 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2087 2087 AND sequencia = '|| reRecordConta.sequencia ||'
2088 2088 GROUP BY cod_configuracao
2089 2089 , cod_orgao
... ... @@ -2097,9 +2097,9 @@ BEGIN
2097 2097 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lotacao
2098 2098 WHERE cod_configuracao = '|| reRecordRH.cod_configuracao ||'
2099 2099 AND cod_orgao = '|| reRecordRH.cod_orgao ||'
2100   - AND exercicio = '|| reRecordRH.exercicio ||'
  2100 + AND exercicio = '|| quote_literal(reRecordRH.exercicio) ||'
2101 2101 AND sequencia = '|| reRecordRH.sequencia ||'
2102   - AND timestamp = '|| reRecordRH.timestamp ||'
  2102 + AND timestamp = '|| quote_literal(reRecordRH.timestamp) ||'
2103 2103 ;
2104 2104 ';
2105 2105 EXECUTE stSqlUpdate;
... ... @@ -2114,9 +2114,9 @@ BEGIN
2114 2114 VALUES
2115 2115 ( '|| reRecordRH.cod_configuracao ||'
2116 2116 , '|| reRecordRH.cod_orgao ||'
2117   - , '|| reRecordRH.exercicio ||'
  2117 + , '|| quote_literal(reRecordRH.exercicio) ||'
2118 2118 , '|| reRecordRH.sequencia ||'
2119   - , '|| reRecordRH.timestamp ||'
  2119 + , '|| quote_literal(reRecordRH.timestamp) ||'
2120 2120 );
2121 2121 ';
2122 2122 EXECUTE stSqlUpdate;
... ... @@ -2131,6 +2131,7 @@ BEGIN
2131 2131 stSqlConta := '
2132 2132 SELECT cod_configuracao_lla
2133 2133 , exercicio
  2134 + , MAX(timestamp) AS timestamp
2134 2135 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2135 2136 WHERE vigencia >= (
2136 2137 SELECT MAX(vigencia)
... ... @@ -2144,33 +2145,33 @@ BEGIN
2144 2145  
2145 2146 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2146 2147  
2147   - stSqlRH := '
  2148 + stSqlUpdate := '
2148 2149 UPDATE administracao.configuracao
2149 2150 SET valor = (
2150   - SELECT timestamp
  2151 + SELECT MAX(timestamp) AS timestamp
2151 2152 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2152 2153 WHERE vigencia = (
2153 2154 SELECT MAX(vigencia)
2154 2155 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2155 2156 WHERE vigencia <= now()::date
2156 2157 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2157   - AND exercicio = '|| reRecordConta.exercicio ||'
  2158 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2158 2159 )
2159 2160 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2160   - AND exercicio = '|| reRecordConta.exercicio ||'
  2161 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2161 2162 )
2162 2163 WHERE cod_modulo = 19
2163   - AND exercicio = EXTRACT(year FROM now())
  2164 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2164 2165 AND parametro = ''timestamp_vigencia_RH''
2165 2166 ;
2166 2167 ';
2167 2168 EXECUTE stSqlUpdate;
2168 2169  
2169   - SELECT valor
  2170 + SELECT valor::TIMESTAMP
2170 2171 INTO tsTimestampIMA
2171 2172 FROM administracao.configuracao
2172 2173 WHERE cod_modulo = 19
2173   - AND exercicio = EXTRACT(year FROM now())
  2174 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2174 2175 AND parametro = 'timestamp_vigencia_RH'
2175 2176 ;
2176 2177  
... ... @@ -2188,7 +2189,7 @@ BEGIN
2188 2189 SELECT cod_configuracao_lla
2189 2190 , exercicio
2190 2191 , now()::timestamp(3)
2191   - , ( -- now()::date
  2192 + , (
2192 2193 SELECT dt_inicial
2193 2194 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2194 2195 WHERE cod_periodo_movimentacao = (
... ... @@ -2199,7 +2200,7 @@ BEGIN
2199 2200 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2200 2201 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2201 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 2206 EXECUTE stSqlUpdate;
... ... @@ -2221,7 +2222,7 @@ BEGIN
2221 2222 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao
2222 2223 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2223 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 2228 EXECUTE stSqlUpdate;
... ... @@ -2243,7 +2244,7 @@ BEGIN
2243 2244 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_local
2244 2245 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2245 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 2250 EXECUTE stSqlUpdate;
... ... @@ -2267,7 +2268,7 @@ BEGIN
2267 2268 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_atributo
2268 2269 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2269 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 2274 EXECUTE stSqlUpdate;
... ... @@ -2295,7 +2296,7 @@ BEGIN
2295 2296 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_atributo_valor
2296 2297 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2297 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 2302 EXECUTE stSqlUpdate;
... ... @@ -2305,7 +2306,6 @@ BEGIN
2305 2306 SET cod_orgao = de_para_orgao.cod_orgao_new
2306 2307 FROM organograma.de_para_orgao
2307 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 2309 AND configuracao_empenho_lla_lotacao.timestamp IN (
2310 2310 SELECT timestamp
2311 2311 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
... ... @@ -2314,13 +2314,13 @@ BEGIN
2314 2314 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2315 2315 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2316 2316 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2317   - AND exercicio = '|| reRecordConta.exercicio ||'
  2317 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2318 2318 )
2319 2319 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2320   - AND exercicio = '|| reRecordConta.exercicio ||'
  2320 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2321 2321 )
2322 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 2332 , num_pao
2333 2333 , timestamp
2334 2334 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao
2335   - WHERE timestamp IN ( -- >= now()::timestamp(3)
  2335 + WHERE timestamp IN (
2336 2336 SELECT timestamp
2337 2337 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2338 2338 WHERE vigencia > (
... ... @@ -2340,13 +2340,13 @@ BEGIN
2340 2340 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla
2341 2341 WHERE timestamp = '|| quote_literal(tsTimestampIMA) ||'
2342 2342 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2343   - AND exercicio = '|| reRecordConta.exercicio ||'
  2343 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2344 2344 )
2345 2345 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2346   - AND exercicio = '|| reRecordConta.exercicio ||'
  2346 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2347 2347 )
2348 2348 AND cod_configuracao_lla = '|| reRecordConta.cod_configuracao_lla ||'
2349   - AND exercicio = '|| reRecordConta.exercicio ||'
  2349 + AND exercicio = '|| quote_literal(reRecordConta.exercicio) ||'
2350 2350 GROUP BY cod_configuracao_lla
2351 2351 , cod_orgao
2352 2352 , exercicio
... ... @@ -2360,9 +2360,9 @@ BEGIN
2360 2360 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.configuracao_empenho_lla_lotacao
2361 2361 WHERE cod_configuracao_lla = '|| reRecordRH.cod_configuracao_lla ||'
2362 2362 AND cod_orgao = '|| reRecordRH.cod_orgao ||'
2363   - AND exercicio = '|| reRecordRH.exercicio ||'
  2363 + AND exercicio = '|| quote_literal(reRecordRH.exercicio) ||'
2364 2364 AND num_pao = '|| reRecordRH.num_pao ||'
2365   - AND timestamp = '|| reRecordRH.timestamp ||'
  2365 + AND timestamp = '|| quote_literal(reRecordRH.timestamp) ||'
2366 2366 ;
2367 2367 ';
2368 2368 EXECUTE stSqlUpdate;
... ... @@ -2378,9 +2378,9 @@ BEGIN
2378 2378 VALUES
2379 2379 ( '|| reRecordRH.cod_configuracao_lla ||'
2380 2380 , '|| reRecordRH.cod_orgao ||'
2381   - , '|| reRecordRH.exercicio ||'
  2381 + , '|| quote_literal(reRecordRH.exercicio) ||'
2382 2382 , '|| reRecordRH.num_pao ||'
2383   - , '|| reRecordRH.timestamp ||'
  2383 + , '|| quote_literal(reRecordRH.timestamp) ||'
2384 2384 );
2385 2385 ';
2386 2386 EXECUTE stSqlUpdate;
... ... @@ -2395,6 +2395,7 @@ BEGIN
2395 2395 stSqlConta := '
2396 2396 SELECT cod_empresa
2397 2397 , num_orgao_banpara
  2398 + , MAX(timestamp) AS timestamp
2398 2399 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
2399 2400 WHERE vigencia >= (
2400 2401 SELECT MAX(vigencia)
... ... @@ -2407,10 +2408,10 @@ BEGIN
2407 2408 ';
2408 2409 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2409 2410  
2410   - stSqlRH := '
  2411 + stSqlUpdate := '
2411 2412 UPDATE administracao.configuracao
2412 2413 SET valor = (
2413   - SELECT timestamp
  2414 + SELECT MAX(timestamp) AS timestamp
2414 2415 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
2415 2416 WHERE vigencia = (
2416 2417 SELECT MAX(vigencia)
... ... @@ -2423,17 +2424,17 @@ BEGIN
2423 2424 AND num_orgao_banpara = '|| reRecordConta.num_orgao_banpara ||'
2424 2425 )
2425 2426 WHERE cod_modulo = 19
2426   - AND exercicio = EXTRACT(year FROM now())
  2427 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2427 2428 AND parametro = ''timestamp_vigencia_RH''
2428 2429 ;
2429 2430 ';
2430 2431 EXECUTE stSqlUpdate;
2431 2432  
2432   - SELECT valor
  2433 + SELECT valor::TIMESTAMP
2433 2434 INTO tsTimestampIMA
2434 2435 FROM administracao.configuracao
2435 2436 WHERE cod_modulo = 19
2436   - AND exercicio = EXTRACT(year FROM now())
  2437 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2437 2438 AND parametro = 'timestamp_vigencia_RH'
2438 2439 ;
2439 2440  
... ... @@ -2453,7 +2454,7 @@ BEGIN
2453 2454 , num_orgao_banpara
2454 2455 , descricao || '' MIGRA ORGANOGRAMA''
2455 2456 , now()::timestamp(3)
2456   - , ( -- now()::date
  2457 + , (
2457 2458 SELECT dt_inicial
2458 2459 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2459 2460 WHERE cod_periodo_movimentacao = (
... ... @@ -2513,7 +2514,6 @@ BEGIN
2513 2514 SET cod_orgao = de_para_orgao.cod_orgao_new
2514 2515 FROM organograma.de_para_orgao
2515 2516 WHERE configuracao_banpara_orgao.cod_orgao = de_para_orgao.cod_orgao
2516   - -- AND configuracao_banpara_orgao.timestamp >= now()::timestamp(3)
2517 2517 AND configuracao_banpara_orgao.timestamp IN (
2518 2518 SELECT timestamp
2519 2519 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
... ... @@ -2538,7 +2538,7 @@ BEGIN
2538 2538 , num_orgao_banpara
2539 2539 , timestamp
2540 2540 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara_orgao
2541   - WHERE timestamp IN ( -->= now()::timestamp(3)
  2541 + WHERE timestamp IN (
2542 2542 SELECT timestamp
2543 2543 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banpara
2544 2544 WHERE vigencia > (
... ... @@ -2596,6 +2596,7 @@ BEGIN
2596 2596 , cod_banco
2597 2597 , cod_agencia
2598 2598 , cod_conta_corrente
  2599 + , MAX(timestamp) AS timestamp
2599 2600 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta
2600 2601 WHERE vigencia >= (
2601 2602 SELECT MAX(vigencia)
... ... @@ -2610,10 +2611,10 @@ BEGIN
2610 2611 ';
2611 2612 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2612 2613  
2613   - stSqlRH := '
  2614 + stSqlUpdate := '
2614 2615 UPDATE administracao.configuracao
2615 2616 SET valor = (
2616   - SELECT timestamp
  2617 + SELECT MAX(timestamp) AS timestamp
2617 2618 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta
2618 2619 WHERE vigencia = (
2619 2620 SELECT MAX(vigencia)
... ... @@ -2630,17 +2631,17 @@ BEGIN
2630 2631 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||'
2631 2632 )
2632 2633 WHERE cod_modulo = 19
2633   - AND exercicio = EXTRACT(year FROM now())
  2634 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2634 2635 AND parametro = ''timestamp_vigencia_RH''
2635 2636 ;
2636 2637 ';
2637 2638 EXECUTE stSqlUpdate;
2638 2639  
2639   - SELECT valor
  2640 + SELECT valor::TIMESTAMP
2640 2641 INTO tsTimestampIMA
2641 2642 FROM administracao.configuracao
2642 2643 WHERE cod_modulo = 19
2643   - AND exercicio = EXTRACT(year FROM now())
  2644 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2644 2645 AND parametro = 'timestamp_vigencia_RH'
2645 2646 ;
2646 2647  
... ... @@ -2664,7 +2665,7 @@ BEGIN
2664 2665 , cod_conta_corrente
2665 2666 , descricao || '' MIGRA ORGANOGRAMA''
2666 2667 , now()::timestamp(3)
2667   - , ( -- now()::date
  2668 + , (
2668 2669 SELECT dt_inicial
2669 2670 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2670 2671 WHERE cod_periodo_movimentacao = (
... ... @@ -2738,7 +2739,6 @@ BEGIN
2738 2739 SET cod_orgao = de_para_orgao.cod_orgao_new
2739 2740 FROM organograma.de_para_orgao
2740 2741 WHERE configuracao_bb_orgao.cod_orgao = de_para_orgao.cod_orgao
2741   - -- AND configuracao_bb_orgao.timestamp >= now()::timestamp(3) --= '|| tsTimestampIMA ||'
2742 2742 AND configuracao_bb_orgao.timestamp IN (
2743 2743 SELECT timestamp
2744 2744 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_bb_conta
... ... @@ -2844,6 +2844,7 @@ BEGIN
2844 2844 , cod_banco
2845 2845 , cod_agencia
2846 2846 , cod_conta_corrente
  2847 + , MAX(timestamp) AS timestamp
2847 2848 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
2848 2849 WHERE vigencia >= (
2849 2850 SELECT MAX(vigencia)
... ... @@ -2858,10 +2859,10 @@ BEGIN
2858 2859 ';
2859 2860 FOR reRecordConta IN EXECUTE stSqlConta LOOP
2860 2861  
2861   - stSqlRH := '
  2862 + stSqlUpdate := '
2862 2863 UPDATE administracao.configuracao
2863 2864 SET valor = (
2864   - SELECT timestamp
  2865 + SELECT MAX(timestamp) AS timestamp
2865 2866 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
2866 2867 WHERE vigencia = (
2867 2868 SELECT MAX(vigencia)
... ... @@ -2878,17 +2879,17 @@ BEGIN
2878 2879 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||'
2879 2880 )
2880 2881 WHERE cod_modulo = 19
2881   - AND exercicio = EXTRACT(year FROM now())
  2882 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2882 2883 AND parametro = ''timestamp_vigencia_RH''
2883 2884 ;
2884 2885 ';
2885 2886 EXECUTE stSqlUpdate;
2886 2887  
2887   - SELECT valor
  2888 + SELECT valor::TIMESTAMP
2888 2889 INTO tsTimestampIMA
2889 2890 FROM administracao.configuracao
2890 2891 WHERE cod_modulo = 19
2891   - AND exercicio = EXTRACT(year FROM now())
  2892 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
2892 2893 AND parametro = 'timestamp_vigencia_RH'
2893 2894 ;
2894 2895  
... ... @@ -2912,7 +2913,7 @@ BEGIN
2912 2913 , cod_conta_corrente
2913 2914 , descricao || '' MIGRA ORGANOGRAMA''
2914 2915 , now()::timestamp(3)
2915   - , ( -- now()::date
  2916 + , (
2916 2917 SELECT dt_inicial
2917 2918 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
2918 2919 WHERE cod_periodo_movimentacao = (
... ... @@ -2986,7 +2987,6 @@ BEGIN
2986 2987 SET cod_orgao = de_para_orgao.cod_orgao_new
2987 2988 FROM organograma.de_para_orgao
2988 2989 WHERE configuracao_besc_orgao.cod_orgao = de_para_orgao.cod_orgao
2989   - -- AND configuracao_besc_orgao.timestamp >= now()::timestamp(3)
2990 2990 AND configuracao_besc_orgao.timestamp IN (
2991 2991 SELECT timestamp
2992 2992 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
... ... @@ -3019,7 +3019,7 @@ BEGIN
3019 3019 , timestamp
3020 3020 , cod_orgao
3021 3021 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_orgao
3022   - WHERE timestamp IN ( -->= now()::timestamp(3)
  3022 + WHERE timestamp IN (
3023 3023 SELECT timestamp
3024 3024 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_besc_conta
3025 3025 WHERE vigencia > (
... ... @@ -3092,6 +3092,7 @@ BEGIN
3092 3092 , cod_banco
3093 3093 , cod_agencia
3094 3094 , cod_conta_corrente
  3095 + , MAX(timestamp) AS timestamp
3095 3096 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
3096 3097 WHERE vigencia >= (
3097 3098 SELECT MAX(vigencia)
... ... @@ -3106,10 +3107,10 @@ BEGIN
3106 3107 ';
3107 3108 FOR reRecordConta IN EXECUTE stSqlConta LOOP
3108 3109  
3109   - stSqlRH := '
  3110 + stSqlUpdate := '
3110 3111 UPDATE administracao.configuracao
3111 3112 SET valor = (
3112   - SELECT timestamp
  3113 + SELECT MAX(timestamp) AS timestamp
3113 3114 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
3114 3115 WHERE vigencia = (
3115 3116 SELECT MAX(vigencia)
... ... @@ -3126,17 +3127,18 @@ BEGIN
3126 3127 AND cod_conta_corrente = '|| reRecordConta.cod_conta_corrente ||'
3127 3128 )
3128 3129 WHERE cod_modulo = 19
3129   - AND exercicio = EXTRACT(year FROM now())
  3130 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
3130 3131 AND parametro = ''timestamp_vigencia_RH''
3131 3132 ;
3132 3133 ';
  3134 +
3133 3135 EXECUTE stSqlUpdate;
3134 3136  
3135   - SELECT valor
  3137 + SELECT valor::TIMESTAMP
3136 3138 INTO tsTimestampIMA
3137 3139 FROM administracao.configuracao
3138 3140 WHERE cod_modulo = 19
3139   - AND exercicio = EXTRACT(year FROM now())
  3141 + AND exercicio = EXTRACT(year FROM now())::VARCHAR
3140 3142 AND parametro = 'timestamp_vigencia_RH'
3141 3143 ;
3142 3144  
... ... @@ -3160,7 +3162,7 @@ BEGIN
3160 3162 , cod_conta_corrente
3161 3163 , descricao || '' MIGRA ORGANOGRAMA''
3162 3164 , now()::timestamp(3)
3163   - , ( -- now()::date
  3165 + , (
3164 3166 SELECT dt_inicial
3165 3167 FROM folhapagamento_'|| reRecordEnt.cod_entidade ||'.periodo_movimentacao
3166 3168 WHERE cod_periodo_movimentacao = (
... ... @@ -3234,7 +3236,6 @@ BEGIN
3234 3236 SET cod_orgao = de_para_orgao.cod_orgao_new
3235 3237 FROM organograma.de_para_orgao
3236 3238 WHERE configuracao_banrisul_orgao.cod_orgao = de_para_orgao.cod_orgao
3237   - -- AND configuracao_banrisul_orgao.timestamp >= now()::timestamp(3)
3238 3239 AND configuracao_banrisul_orgao.timestamp IN (
3239 3240 SELECT timestamp
3240 3241 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
... ... @@ -3267,7 +3268,7 @@ BEGIN
3267 3268 , timestamp
3268 3269 , cod_orgao
3269 3270 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_orgao
3270   - WHERE timestamp IN ( -->= now()::timestamp(3)
  3271 + WHERE timestamp IN (
3271 3272 SELECT timestamp
3272 3273 FROM ima_'|| reRecordEnt.cod_entidade ||'.configuracao_banrisul_conta
3273 3274 WHERE vigencia > (
... ... @@ -3419,7 +3420,7 @@ BEGIN
3419 3420 stSqlUpdate := ' DELETE
3420 3421 FROM ponto_'|| reRecordEnt.cod_entidade ||'.configuracao_lotacao
3421 3422 WHERE cod_configuracao = '|| reRecordRH.cod_configuracao ||'
3422   - AND timestamp = '|| reRecordRH.timestamp ||'
  3423 + AND timestamp = '|| quote_literal(reRecordRH.timestamp) ||'
3423 3424 AND cod_orgao = '|| reRecordRH.cod_orgao ||'
3424 3425 ;
3425 3426 ';
... ... @@ -3432,7 +3433,7 @@ BEGIN
3432 3433 )
3433 3434 VALUES
3434 3435 ( '|| reRecordRH.cod_configuracao ||'
3435   - , '|| reRecordRH.timestamp ||'
  3436 + , '|| quote_literal(reRecordRH.timestamp) ||'
3436 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 84 </scalar-parameter>
85 85 </parameters>
86 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 89 </data-sources>
90 90 <data-sets>
91 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 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 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 101 </structure>
160 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 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 109 </structure>
181 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 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 117 c.nom_classificacao,
185 118 assunto.nom_assunto,
186 119 assunto.cod_classificacao,
... ... @@ -313,32 +246,28 @@ WHERE
313 246 </model:DesignValues>]]></xml-property>
314 247 </oda-data-set>
315 248 <oda-data-set extensionID="org.eclipse.birt.report.data.oda.jdbc.JdbcSelectDataSet" name="dsAndamento" id="1286">
  249 + <list-property name="columnHints"/>
316 250 <list-property name="parameters">
317 251 <structure>
318 252 <property name="name">param_1</property>
319   - <property name="nativeName"></property>
320 253 <property name="dataType">integer</property>
321   - <property name="nativeDataType">4</property>
322 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 256 <property name="isInput">true</property>
326 257 <property name="isOutput">false</property>
327 258 </structure>
328 259 <structure>
329 260 <property name="name">param_2</property>
330   - <property name="nativeName"></property>
331 261 <property name="dataType">integer</property>
332   - <property name="nativeDataType">4</property>
333 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 264 <property name="isInput">true</property>
337 265 <property name="isOutput">false</property>
338 266 </structure>
339 267 </list-property>
340 268 <structure name="cachedMetaData"/>
341 269 <property name="dataSource">postgres</property>
  270 + <list-property name="resultSet"/>
342 271 <xml-property name="queryText"><![CDATA[ SELECT anda.cod_assunto,
343 272 anda.descricao,
344 273 anda.ordem,
... ... @@ -355,49 +284,64 @@ WHERE
355 284  
356 285 WHERE anda.cod_orgao = orgao.cod_orgao
357 286 AND cod_assunto = ?
358   - AND cod_classificacao = ?]]></xml-property>
  287 + AND cod_classificacao = ?
  288 + ORDER BY anda.ordem]]></xml-property>
359 289 <xml-property name="designerValues"><![CDATA[<?xml version="1.0" encoding="UTF-8"?>
360 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 336 <design:ResultSets derivedMetaData="true">
395 337 <design:resultSetDefinitions>
396 338 <design:resultSetColumns>
397 339 <design:resultColumnDefinitions>
398 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 345 <design:nativeDataTypeCode>4</design:nativeDataTypeCode>
402 346 <design:precision>10</design:precision>
403 347 <design:scale>0</design:scale>
... ... @@ -415,8 +359,10 @@ WHERE
415 359 </design:resultColumnDefinitions>
416 360 <design:resultColumnDefinitions>
417 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 366 <design:nativeDataTypeCode>12</design:nativeDataTypeCode>
421 367 <design:precision>0</design:precision>
422 368 <design:scale>0</design:scale>
... ... @@ -434,8 +380,10 @@ WHERE
434 380 </design:resultColumnDefinitions>
435 381 <design:resultColumnDefinitions>
436 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 387 <design:nativeDataTypeCode>12</design:nativeDataTypeCode>
440 388 <design:precision>60</design:precision>
441 389 <design:scale>0</design:scale>
... ... @@ -453,8 +401,10 @@ WHERE
453 401 </design:resultColumnDefinitions>
454 402 <design:resultColumnDefinitions>
455 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 408 <design:nativeDataTypeCode>4</design:nativeDataTypeCode>
459 409 <design:precision>10</design:precision>
460 410 <design:scale>0</design:scale>
... ... @@ -635,6 +585,7 @@ WHERE
635 585 <row id="1304">
636 586 <cell id="1305">
637 587 <table id="1152">
  588 + <property name="style">NewStyle</property>
638 589 <property name="marginTop">0pt</property>
639 590 <property name="width">100%</property>
640 591 <property name="dataSet">dsAssunto</property>
... ... @@ -667,16 +618,18 @@ WHERE
667 618 </list-property>
668 619 <property name="pageBreakInterval">50</property>
669 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 626 </column>
673   - <column id="1172"/>
674 627 <detail>
675 628 <row id="1156">
676 629 <cell id="1157">
677 630 <property name="colSpan">2</property>
678 631 <property name="rowSpan">1</property>
679   - <property name="backgroundColor">#E6E6E6</property>
  632 + <property name="backgroundColor">#FFFFFF</property>
680 633 <label id="1173">
681 634 <property name="fontWeight">bold</property>
682 635 <text-property name="text">Assunto</text-property>
... ... @@ -685,7 +638,7 @@ WHERE
685 638 </row>
686 639 <row id="1159">
687 640 <cell id="1160">
688   - <property name="backgroundColor">#E6E6E6</property>
  641 + <property name="backgroundColor">#FFFFFF</property>
689 642 <label id="1174">
690 643 <text-property name="text">Código:</text-property>
691 644 </label>
... ... @@ -698,7 +651,7 @@ WHERE
698 651 </row>
699 652 <row id="1162">
700 653 <cell id="1163">
701   - <property name="backgroundColor">#E6E6E6</property>
  654 + <property name="backgroundColor">#FFFFFF</property>
702 655 <label id="1175">
703 656 <text-property name="text">Classificação:</text-property>
704 657 </label>
... ... @@ -711,7 +664,7 @@ WHERE
711 664 </row>
712 665 <row id="1165">
713 666 <cell id="1166">
714   - <property name="backgroundColor">#E6E6E6</property>
  667 + <property name="backgroundColor">#FFFFFF</property>
715 668 <label id="1176">
716 669 <text-property name="text">Assunto:</text-property>
717 670 </label>
... ... @@ -778,145 +731,133 @@ WHERE
778 731 </table>
779 732 </cell>
780 733 </row>
781   - <row id="1219">
782   - <cell id="1220">
  734 + <row id="1237">
  735 + <cell id="1238">
783 736 <property name="colSpan">2</property>
784 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 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 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 748 </structure>
821 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 754 </structure>
827 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 756 <list-property name="boundDataColumns">
842 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 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 761 <property name="dataType">string</property>
  762 + <property name="allowExport">true</property>
856 763 </structure>
857 764 <structure>
858 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 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 768 <property name="dataType">integer</property>
  769 + <property name="allowExport">true</property>
887 770 </structure>
888 771 <structure>
889 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 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 775 <property name="dataType">string</property>
  776 + <property name="allowExport">true</property>
908 777 </structure>
909 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 842 </cell>
913 843 </row>
914   - <row id="1237">
915   - <cell id="1238">
  844 + <row id="6692">
  845 + <cell id="6693">
916 846 <property name="colSpan">2</property>
917 847 <property name="rowSpan">1</property>
918 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 861 </cell>
921 862 </row>
922 863 </detail>
... ... @@ -927,6 +868,5 @@ WHERE
927 868 </cell>
928 869 </row>
929 870 </grid>
930   - <label id="1306"/>
931 871 </body>
932 872 </report>
... ...
gestaoAdministrativa/fontes/SQL/GA_2053.sql 0 → 100644
  Diff comments   View file @842bba7
... ... @@ -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 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 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 2391 //evento.keyCode == 188 é a virgula
2392 2392 //VERIFICA SE O USUARIO TENTOU COLOCAR A VIRGULA NUMA POSICAO INVALIDA
2393 2393 //SE ISSO OCORRER A VIRGULA SERA APAGADA
2394   - if( evento.keyCode == 188 ){
  2394 + if( evento.keyCode == 188 || evento.keyCode == 108){
2395 2395 if( (campo.value.length - (decimais + 1)) > virgPos ){
2396 2396 campo.value = campo.value.replace(',','');
2397 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 33 * @package URBEM
34 34 * @subpackage Mapeamento
35 35  
  36 + $Id: TContabilidadeConfiguracaoLancamentoReceita.class.php 66167 2016-07-25 12:46:20Z fabio $
  37 +
36 38 * Casos de uso: uc-02.03.03
37 39 uc-02.02.04
38 40 */
39 41  
40 42 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php';
41   -include_once ( CLA_PERSISTENTE );
  43 +include_once CLA_PERSISTENTE;
42 44  
43 45 class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
44 46 {
... ... @@ -46,7 +48,7 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
46 48 * Método Construtor
47 49 * @access Private
48 50 */
49   - public function TContabilidadeConfiguracaoLancamentoReceita()
  51 + public function __construct()
50 52 {
51 53 parent::Persistente();
52 54 $this->setTabela('contabilidade.configuracao_lancamento_receita');
... ... @@ -58,7 +60,6 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
58 60 $this->AddCampo('exercicio','char',true,'04',true,true);
59 61 $this->AddCampo('cod_conta_receita','integer',true,'',true,true);
60 62 $this->AddCampo('estorno','boolean',true,'',true,false);
61   -
62 63 }
63 64  
64 65 /**
... ... @@ -89,7 +90,8 @@ class TContabilidadeConfiguracaoLancamentoReceita extends Persistente
89 90 WHEN plano_conta.cod_estrutural LIKE '1.2.3.%' THEN
90 91 'alienacaoBens'
91 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 95 'dividaAtiva'
94 96 ELSE
95 97 'arrecadacaoDireta'
... ...
gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadeLancamentoEmpenhoAnulado.class.php 0 → 100644
  Diff comments   View file @842bba7
... ... @@ -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 33 * @package URBEM
34 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 38 * Casos de uso: uc-02.02.05
42 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 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 45 class TContabilidadeLancamentoReceita extends Persistente
66 46 {
67 47 /**
... ... @@ -258,12 +238,15 @@ function recuperaExistenciaReceita(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem = &quot;
258 238  
259 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 251 return $stSql;
269 252 }
... ...
gestaoFinanceira/fontes/PHP/contabilidade/classes/negocio/RContabilidadeLancamentoReceita.class.php
  Diff comments   View file @842bba7
... ... @@ -33,12 +33,7 @@
33 33 * @package URBEM
34 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 38 * Casos de uso: uc-02.02.05
44 39 uc-02.02.16
... ... @@ -46,9 +41,9 @@
46 41 uc-02.03.28
47 42 */
48 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 48 class RContabilidadeLancamentoReceita extends RContabilidadeLancamentoValor
54 49 {
... ... @@ -632,11 +627,15 @@ function listar(&amp;$rsLista, $stOrder = &quot;&quot;, $obTransacao = &quot;&quot;)
632 627 */
633 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 631 $obTContabilidadeLancamentoReceita = new TContabilidadeLancamentoReceita;
637 632  
638 633 $obTContabilidadeLancamentoReceita->setDado( "exercicio", $this->obRContabilidadeLancamento->obRContabilidadeLote->getExercicio() );
  634 + if($this->obROrcamentoReceita->getCodReceita())
  635 + $obTContabilidadeLancamentoReceita->setDado( "cod_receita", $this->obROrcamentoReceita->getCodReceita() );
  636 +
639 637 $obErro = $obTContabilidadeLancamentoReceita->recuperaExistenciaReceita( $rsRecordSet, $boTransacao );
  638 +
640 639 if ( !$obErro->ocorreu() ) {
641 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 27 * Formulário oculto
28 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 36 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
36 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 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 113 $stJs = '';
127   -switch ($_REQUEST['stCtrl']) {
  114 +switch ($request->get('stCtrl')) {
128 115 case 'montaLancamentoReceita':
129 116 $stJs .= montaLancamentoReceita();
130   - break;
  117 + break;
131 118  
132 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 124 echo ($stJs);
... ...
gestaoFinanceira/fontes/PHP/contabilidade/instancias/encerramento/FLGerarRestosAPagar.php
  Diff comments   View file @842bba7
... ... @@ -33,26 +33,14 @@
33 33  
34 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 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 41 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
54 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 44 include_once CAM_GF_ORC_COMPONENTES."ITextBoxSelectEntidadeGeral.class.php";
57 45  
58 46 //Define o nome dos arquivos PHP
... ... @@ -87,11 +75,15 @@ $obHdnEval-&gt;setName ( &quot;stEval&quot; );
87 75 $obHdnEval->setValue ( $stEval );
88 76  
89 77 $obRConfiguracao = new RConfiguracaoConfiguracao;
90   -$arCodEntidade = array();
91 78  
92 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 87 foreach ($rsConfiguracao->arElementos as $index => $value) {
96 88 if ($value['valor'] == 'T') {
97 89 $arCodEntidade[] = substr($value['parametro'],19);
... ... @@ -106,14 +98,12 @@ if (Sessao::getExercicio() &gt;= &#39;2013&#39;) {
106 98 $obISelectEntidadeUsuarioCredito->obTextBox->setName ( "inCodEntidadeCredito" );
107 99 $obISelectEntidadeUsuarioCredito->obSelect->setName ( "stNomEntidadeCredito" );
108 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 102 $obISelectEntidadeUsuarioCredito->obSelect->obEvento->setOnChange("montaParametrosGET('verificaEntidade','inCodEntidadeCredito');");
114 103  
115 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 107 } else {
118 108 $obRConfiguracao = new RConfiguracaoConfiguracao;
119 109 $obRConfiguracao->setParametro('virada_GF');
... ...
gestaoFinanceira/fontes/PHP/contabilidade/instancias/encerramento/OCGerarRestosAPagar.php
  Diff comments   View file @842bba7
... ... @@ -33,10 +33,7 @@
33 33  
34 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 38 * Casos de uso: uc-02.02.31
42 39 */
... ... @@ -44,24 +41,31 @@
44 41 include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php';
45 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 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 63 return $stJs;
60 64 }
61 65  
62   -switch ($_REQUEST['stCtrl']) {
  66 +switch ($request->get('stCtrl')) {
63 67 case 'verificaEntidade':
64   - $stJs = verificaEntidades(Sessao::read('arCodEntidade'));
  68 + $stJs = verificaEntidades(Sessao::read('arCodEntidade'), $request->get('inCodEntidadeCredito'));
65 69 echo $stJs;
66 70  
67 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 45 $pgJS = "JS".$stPrograma.".js";
46 46  
47 47 //Define Birt
  48 +//relatorioFluxoCaixa.rptdesign
48 49 $preview = new PreviewBirt(2,9,13);
49 50 $preview->setTitulo('Relatorio Demostrativo de Fluxo Caixa');
50 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 147 , retorno.liquidado
148 148 , retorno.pago
149 149 , retorno.empenhadoapagar
  150 + , retorno.emissao
150 151 ORDER BY retorno.autorizacao
151 152 ";
152 153 return $stSql;
... ...
gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php
  Diff comments   View file @842bba7
... ... @@ -33,7 +33,7 @@
33 33 * @package URBEM
34 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 38 * Casos de uso: uc-02.01.23
39 39 uc-02.03.03
... ... @@ -4789,7 +4789,7 @@ select empenho.cod_entidade
4789 4789 ,substring(conta_despesa.cod_estrutural from 9 for 2) as cod_modalidade
4790 4790 ,substring(conta_despesa.cod_estrutural from 12 for 2) as cod_elemento
4791 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 4793 ,despesa.num_pao
4794 4794 ,total_empenho.vl_total
4795 4795 ,historico.nom_historico
... ...
gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoOrdemPagamento.class.php
  Diff comments   View file @842bba7
... ... @@ -33,7 +33,7 @@
33 33 * @package URBEM
34 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 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 2618 $stSql .=" ,aopr.exercicio \n";
2619 2619 $stSql .=" ,aopr.cod_ordem \n";
2620 2620 $stSql .=" ,aopr.cod_entidade \n";
  2621 + $stSql .=" ,aopr.sequencial \n";
2621 2622 $stSql .=" FROM tesouraria.arrecadacao_ordem_pagamento_retencao as aopr \n";
2622 2623 $stSql .=" WHERE aopr.cod_entidade = ".$this->getDado('cod_entidade')." \n";
2623 2624 $stSql .=" AND aopr.cod_ordem = ".$this->getDado('cod_ordem')." \n";
... ... @@ -2635,6 +2636,7 @@ class TEmpenhoOrdemPagamento extends Persistente
2635 2636 $stSql .=" AND arrec.exercicio = opr.exercicio \n";
2636 2637 $stSql .=" AND arrec.cod_ordem = opr.cod_ordem \n";
2637 2638 $stSql .=" AND arrec.cod_entidade = opr.cod_entidade \n";
  2639 + $stSql .=" AND arrec.sequencial = opr.sequencial \n";
2638 2640 $stSql .=" ) \n";
2639 2641 $stSql .=" LEFT JOIN ( SELECT topr.cod_lote \n";
2640 2642 $stSql .=" ,topr.tipo \n";
... ...
gestaoFinanceira/fontes/PHP/empenho/classes/negocio/REmpenhoEmpenho.class.php
  Diff comments   View file @842bba7
... ... @@ -35,7 +35,7 @@
35 35 * @package URBEM
36 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 40 * Casos de uso: uc-02.01.23
41 41 uc-02.01.08
... ... @@ -1030,31 +1030,33 @@ function emitirEmpenhoDiverso($boTransacao = &quot;&quot;)
1030 1030 */
1031 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 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 1058 if ( !$obErro->ocorreu() ) {
1057   - if ( !$obErro->ocorreu() ) {
  1059 + if ( !$obErro->ocorreu() ) {
1058 1060 if (SistemaLegado::comparaDatas($this->getDtEmpenho(),$this->getDtAnulacao())) {
1059 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 1148 }
1147 1149 }
1148 1150 }
1149   -
  1151 +
1150 1152 if ( !$obErro->ocorreu() ) {
1151 1153 $obTContabilidadeLancamentoEmpenho->setDado( 'cod_lote' , $inCodLote );
1152 1154 $obTContabilidadeLancamentoEmpenho->setDado( 'tipo' , 'E' );
... ... @@ -1168,6 +1170,18 @@ function anular($boTransacao = &quot;&quot;)
1168 1170 }
1169 1171  
1170 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 1185 $this->obREmpenhoAutorizacaoEmpenho->setCodPreEmpenho($this->inCodPreEmpenho );
1172 1186 $this->obREmpenhoAutorizacaoEmpenho->obROrcamentoEntidade->setCodigoEntidade($this->obROrcamentoEntidade->getCodigoEntidade() );
1173 1187 $this->obREmpenhoAutorizacaoEmpenho->setExercicio($this->stExercicio) ;
... ...
gestaoFinanceira/fontes/PHP/empenho/instancias/autorizacao/OCManterAutorizacao.php
  Diff comments   View file @842bba7
... ... @@ -33,7 +33,7 @@
33 33  
34 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 38 * Casos de uso: uc-02.03.02
39 39 uc-02.01.08
... ... @@ -901,10 +901,11 @@ switch ($stCtrl) {
901 901 $obTAdministracaoConfiguracaoEntidade->setDado("parametro" , "data_fixa_autorizacao");
902 902 $obTAdministracaoConfiguracaoEntidade->recuperaPorChave($rsConfiguracao);
903 903 $stDtFixaAutorizacao = trim($rsConfiguracao->getCampo('valor'));
  904 + $js .= "jq('#stDtAutorizacao').attr('readonly', false);";
904 905  
905 906 if(!empty($stDtFixaAutorizacao)){
906 907 $js .= "jq('#stDtAutorizacao').val('".$stDtFixaAutorizacao."');";
907   - $js .= LiberaDataAutorizacao('false');
  908 + $js .= "jq('#stDtAutorizacao').attr('readonly', true);";
908 909 }else{
909 910 $obREmpenhoAutorizacaoEmpenho->obROrcamentoEntidade->setCodigoEntidade($request->get('inCodEntidade'));
910 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 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 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 452 $stFiltro .= " AND unidade.exercicio = '" . Sessao::getExercicio() . "'";
453 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 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 67 return $rsRecordSet;
68 68 }
69 69  
70   - public static function recuperarInstancia()
  70 + public static function recuperarInstancia($ob = NULL)
71 71 {
72 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 58 *
59 59 * @return RLDOManterRenunciaReceita
60 60 */
61   - public static function recuperarInstancia()
  61 + public static function recuperarInstancia($ob = NULL)
62 62 {
63 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 57 * Recupera a instância da classe
58 58 * @return void
59 59 */
60   - public static function recuperarInstancia()
  60 + public static function recuperarInstancia($ob = NULL)
61 61 {
62 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 82 //verifica se o ldo ja esta cadastrado
83 83 $this->obModel->obRLDOLDO->listar($rsLDO);
84 84 if ($rsLDO->getNumLinhas() <= 0) {
85   - $this->obModel->obRLDOLDO->incluir(&$boTransacao);
  85 + $this->obModel->obRLDOLDO->incluir($boTransacao);
86 86 }
87 87  
88 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 57 * Recupera a instância da classe
58 58 * @return void
59 59 */
60   - public static function recuperarInstancia()
  60 + public static function recuperarInstancia($ob = NULL)
61 61 {
62 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 44 *
45 45 * @return VLDOManterRenunciaReceita
46 46 */
47   - public static function recuperarInstancia()
  47 + public static function recuperarInstancia($ob = NULL)
48 48 {
49 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 45 * Recupera a instância da classe
46 46 * @return void
47 47 */
48   - public static function recuperarInstancia()
  48 + public static function recuperarInstancia($ob = NULL)
49 49 {
50 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 33 * @package URBEM
34 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 38 * Casos de uso: uc-02.01.06
44 39 uc-02.01.26
... ... @@ -383,10 +378,17 @@ public function montaRecuperaDotacao()
383 378 $stSql .= " SSUP.cod_suplementacao = S.cod_suplementacao AND \n";
384 379 $stSql .= " SSUP.exercicio = S.exercicio \n";
385 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 389 if($this->getDado("stDataInicial"))
388 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 392 $stSql .= " ) as SS ON \n";
391 393 $stSql .= " D.cod_despesa = SS.cod_despesa AND \n";
392 394 $stSql .= " D.exercicio = SS.exercicio \n";
... ... @@ -402,10 +404,17 @@ public function montaRecuperaDotacao()
402 404 $stSql .= " SRED.cod_suplementacao = S.cod_suplementacao AND \n";
403 405 $stSql .= " SRED.exercicio = S.exercicio \n";
404 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 415 if($this->getDado("stDataInicial"))
407 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 419 $stSql .= " ) as SR ON \n";
411 420 $stSql .= " D.cod_despesa = SR.cod_despesa AND \n";
... ... @@ -2216,7 +2225,7 @@ public function montaRecuperaProjetoAtividade()
2216 2225 select despesa.exercicio
2217 2226 , despesa.cod_funcao
2218 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 2229 , despesa.num_pao
2221 2230 , pao.nom_pao
2222 2231 from orcamento.despesa
... ... @@ -2253,7 +2262,7 @@ public function montaRecuperaFonteRecursosDotacao()
2253 2262 select despesa.exercicio
2254 2263 , '9' as tipo_dotacao
2255 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 2266 , num_pao
2258 2267 , substr(conta_despesa.cod_estrutural, 1, 1) as categoria_economica
2259 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 27 * @author Analista: Jorge B. Ribarr
28 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 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 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 38 class TOrcamentoReceita extends Persistente
47 39 {
48 40 /**
... ... @@ -1363,9 +1355,9 @@ function recuperaLancamentosCreditosReceber(&amp;$rsRecordSet, $boTransacao = &quot;&quot;)
1363 1355  
1364 1356 function montaRecuperaLancamentosCreditosReceber()
1365 1357 {
1366   - $stSql = "
  1358 + $stSql = "
1367 1359 SELECT
1368   - '".Sessao::getExercicio()."' AS exercicio
  1360 + receita.exercicio
1369 1361 , receita.cod_entidade
1370 1362 , receita.vl_original
1371 1363 , receita.cod_receita
... ... @@ -1376,47 +1368,49 @@ function montaRecuperaLancamentosCreditosReceber()
1376 1368 , plano_conta.cod_estrutural AS cod_estrutural_plano
1377 1369 , conta_receita.cod_conta
1378 1370 , configuracao_lancamento_receita.cod_conta
1379   -
1380   - , ( select plano_conta.cod_estrutural
  1371 +
  1372 + , ( select plano_conta.cod_estrutural
1381 1373 from contabilidade.plano_conta
1382 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 1378 from contabilidade.plano_conta
1387 1379 inner join contabilidade.plano_analitica
1388 1380 on plano_analitica.cod_conta = plano_conta.cod_conta
1389 1381 and plano_analitica.exercicio = plano_conta.exercicio
1390 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 1385 from orcamento.receita
1394   -
  1386 +
1395 1387 inner join orcamento.conta_receita
1396 1388 on conta_receita.cod_conta = receita.cod_conta
1397 1389 and conta_receita.exercicio = receita.exercicio
1398   -
  1390 +
1399 1391 inner join orcamento.receita_credito_tributario
1400 1392 on receita_credito_tributario.cod_receita = receita.cod_receita
1401 1393 and receita_credito_tributario.exercicio = receita.exercicio
1402   -
  1394 +
1403 1395 inner join contabilidade.plano_analitica
1404 1396 on plano_analitica.cod_conta = receita_credito_tributario.cod_conta
1405 1397 and plano_analitica.exercicio = receita_credito_tributario.exercicio
1406   -
  1398 +
1407 1399 inner join contabilidade.plano_conta
1408 1400 on plano_conta.cod_conta = receita_credito_tributario.cod_conta
1409 1401 and plano_conta.exercicio = receita_credito_tributario.exercicio
1410   -
  1402 +
1411 1403 inner join contabilidade.configuracao_lancamento_receita
1412 1404 on configuracao_lancamento_receita.cod_conta_receita = conta_receita.cod_conta
1413 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 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 35 * @package URBEM
36 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 40 * Casos de uso: uc-02.01.24
41 41 uc-02.01.07
... ... @@ -153,7 +153,7 @@ function recuperaRelacionamentoRecurso(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem
153 153 if( $stOrdem )
154 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 157 $this->setDebug( $stSql );
158 158 $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao );
159 159  
... ... @@ -165,122 +165,193 @@ function recuperaRelacionamentoRecurso(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $stOrdem
165 165 * @access Private
166 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 353 return $stSql;
282 354 }
283   -
284 355 /**
285 356 * Executa um Select no banco de dados a partir do comando SQL
286 357 * @access Public
... ... @@ -309,23 +380,23 @@ function recuperaConsultaSuplementacao(&amp;$rsRecordSet, $stCondicao = &quot;&quot;, $boTrans
309 380 **/
310 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 401 return $stSQL;
331 402 }
... ... @@ -1561,7 +1632,7 @@ select suplementacao.exercicio
1561 1632 end as tipo_texto_juridico
1562 1633 , suplementacao.cod_norma
1563 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 1636 , despesa.num_pao
1566 1637 , substr(conta_despesa.cod_estrutural, 1, 1) as categoria_economica
1567 1638 , substr(conta_despesa.cod_estrutural, 3, 1) as grupo_natureza_despesa
... ... @@ -1597,7 +1668,7 @@ select suplementacao.exercicio
1597 1668 on recurso.exercicio = despesa.exercicio
1598 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 1672 and despesa.cod_entidade IN ( ". $this->getDado('cod_entidade')." )
1602 1673 and suplementacao.dt_suplementacao >= to_date( '". $this->getDado('dt_inicial')."', 'dd/mm/yyyy' )
1603 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 1711 join orcamento.recurso
1641 1712 on recurso.exercicio = despesa.exercicio
1642 1713 and recurso.cod_recurso = despesa.cod_recurso
1643   - where suplementacao.exercicio = ". $this->getDado('exercicio')."
  1714 + where suplementacao.exercicio = '". $this->getDado('exercicio')."'
1644 1715 and despesa.cod_entidade in ( ". $this->getDado('cod_entidade')." )
1645 1716 and suplementacao.dt_suplementacao >= to_date( '". $this->getDado('dt_inicial')."', 'dd/mm/yyyy' )
1646 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 33 * @package URBEM
34 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 38 $Revision: 30668 $
39 39 $Name$
... ... @@ -57,7 +57,7 @@ class TOrcamentoUnidade extends Persistente
57 57 * Método Construtor
58 58 * @access Private
59 59 */
60   -function TOrcamentoUnidade()
  60 +function __construct()
61 61 {
62 62 parent::Persistente();
63 63 $this->setTabela('orcamento.unidade');
... ... @@ -232,7 +232,7 @@ $stSql = &quot;
232 232 JOIN orcamento.orgao
233 233 ON orcamento.orgao.exercicio = orcamento.unidade.exercicio
234 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 237 return $stSql;
238 238 }
... ... @@ -260,7 +260,7 @@ function montaRecuperaOrgaoUnidadeOrcamentaria()
260 260 JOIN orcamento.orgao
261 261 ON orcamento.orgao.exercicio = orcamento.unidade.exercicio
262 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 264 AND orcamento.unidade.num_orgao = ".$this->getDado('num_orgao')."
265 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 1195 */
1196 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 1201 $stFiltro = "";
1202 1202 if( $this->inCodSuplementacao )
... ... @@ -1218,7 +1218,7 @@ function listarSuplementacao(&amp;$rsLista, $stOrder = &quot;&quot;, $boTransacao = &quot;&quot;)
1218 1218 $stFiltro .= " OS.dt_suplementacao = TO_DATE( '".$this->stDtLancamento."', 'dd/mm/yyyy' ) AND ";
1219 1219  
1220 1220 if( $this->obROrcamentoDespesa->getCodDespesa() )
1221   - $stFiltro .= " OSS.cod_despesa = ".$this->obROrcamentoDespesa->getCodDespesa(). " AND";
  1221 + $obTOrcamentoSuplementacao->setDado( 'inCodDespesa', $this->obROrcamentoDespesa->getCodDespesa() );
1222 1222  
1223 1223 if( $this->obROrcamentoDespesa->obROrcamentoRecurso->getCodRecurso() )
1224 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 1233 }
1234 1234  
1235 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 1237 $stFiltro .= " AND";
1242   -// $stFiltro .= " OS.cod_suplementacao NOT IN ( select cod_suplementacao from orcamento.suplementacao_anulada where exercicio = '".$this->stExercicio."' ) AND";
1243 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 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 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 31  
32 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 36 * Casos de uso: uc-02.01.06
42 37 */
... ... @@ -102,13 +97,12 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
102 97 $obErro = new Erro;
103 98 $obTransacao = new Transacao;
104 99 $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao );
105   -
  100 +
106 101 $rsValidaReceita = new RecordSet();
107 102 $obTOrcamentoReceita->setDado('classificacao_receita' , $request->get('inCodReceita'));
108 103 $obTOrcamentoReceita->setDado('exercicio_classificacao', Sessao::getExercicio() );
109 104 $obTOrcamentoReceita->verificaClassificacaoReceita($rsValidaReceita, $boTransacao);
110   -
111   -
  105 +
112 106 if ($rsValidaReceita->getNumLinhas() > 0 ){
113 107 if( $rsValidaReceita->getCampo('bo_validacao') == 'false' ) {
114 108 if($rsValidaReceita->getCampo('descricao') == 'anterior') {
... ... @@ -122,7 +116,6 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
122 116 }
123 117  
124 118 if(!$obErro->ocorreu()){
125   -
126 119 $inSumConta = verificaValorConta( $request->get('inCodReceita'), $boTransacao );
127 120 if ( $inSumConta > 0.00 ) {
128 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 125 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->consultar( $rsRubrica, $boTransacao );
133 126 $obROrcamentoReceita->setCreditoTributario ( $request->get('boCreditoTributario') == "S" ? true : false );
134 127 $inCodConta = $rsRubrica->getCampo( 'cod_conta' );
135   -
  128 +
136 129 if($request->get('nuValorOriginal'))
137 130 $obROrcamentoReceita->setValorOriginal ( $request->get('nuValorOriginal') );
138 131 else
139 132 $obROrcamentoReceita->setValorOriginal ( 0.00 );
140   -
  133 +
141 134 $obROrcamentoReceita->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
142 135 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setCodConta( $inCodConta );
143   -
  136 +
144 137 if ($boDestinacao) {
145 138 $stFiltro .= " WHERE cod_conta = ".$inCodConta;
146 139 $stFiltro .= " AND exercicio = ".Sessao::getExercicio();
147 140 $stFiltro .= " AND cod_entidade = ".$request->get('inCodEntidade');
148 141 $obTOrcamentoReceita->recuperaTodos($rsReceita,$stFiltro, '', $boTransacao);
149   -
  142 +
150 143 if ($rsReceita->getNumLinhas() >= 1 ) {
151 144 $obErro->setDescricao("A Classificação de Receita informada já foi cadastrada no exercício de (".Sessao::getExercicio().")");
152 145 }
153   -
  146 +
154 147 if (!$obErro->ocorreu()) {
155 148 $arDestinacaoRecurso = explode('.',$request->get('stDestinacaoRecurso'));
156   -
  149 +
157 150 $stFiltroBuscaExiste = ' WHERE exercicio = '.Sessao::getExercicio().' ';
158 151 $stFiltroBuscaExiste .= ' AND cod_uso = '.$arDestinacaoRecurso[0].' ';
159 152 $stFiltroBuscaExiste .= ' AND cod_destinacao = '.$arDestinacaoRecurso[1].' ';
... ... @@ -161,7 +154,7 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
161 154 $stFiltroBuscaExiste .= ' AND cod_detalhamento = '.$arDestinacaoRecurso[3].' ';
162 155 $obTOrcamentoRecursoDestinacao->recuperaTodos($rsDestinacao, $stFiltroBuscaExiste, '', $boTransacao);
163 156 $inCodRecursoExiste = $rsDestinacao->getCampo('cod_recurso');
164   -
  157 +
165 158 if ($inCodRecursoExiste == '') {
166 159 $obTOrcamentoRecurso->setDado("exercicio", Sessao::getExercicio() );
167 160 $obTOrcamentoRecurso->proximoCod( $inCodRecurso, $boTransacao );
... ... @@ -175,16 +168,16 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
175 168 $obTOrcamentoRecursoDestinacao->setDado("cod_especificacao",$arDestinacaoRecurso[2]);
176 169 $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", $arDestinacaoRecurso[3]);
177 170 $obErro = $obTOrcamentoRecursoDestinacao->inclusao( $boTransacao );
178   -
  171 +
179 172 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso ( $inCodRecurso );
180 173 }
181   -
  174 +
182 175 if (Sessao::getExercicio() > '2008') {
183 176 $obTOrcamentoEspecificacaoDestinacaoRecurso->setDado('exercicio', Sessao::getExercicio());
184 177 $obTOrcamentoEspecificacaoDestinacaoRecurso->setDado('cod_especificacao', $arDestinacaoRecurso[2]);
185 178 $obTOrcamentoEspecificacaoDestinacaoRecurso->recuperaPorChave($rsEspecificacao, $boTransacao);
186 179 $stNomEspecificacao = $rsEspecificacao->getCampo('descricao');
187   -
  180 +
188 181 // Verifica qual o cod_recurso que possui conta contabil vinculada C
189 182 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio());
190 183 $obTOrcamentoRecursoDestinacao->setDado("cod_recurso", '');
... ... @@ -194,11 +187,11 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
194 187 $obTOrcamentoRecursoDestinacao->setDado('cod_especificacao', $arDestinacaoRecurso[2]);
195 188 $obTOrcamentoRecursoDestinacao->setDado('cod_estrutural', "'2.9.3.2.0.00.00.%'");
196 189 $obTOrcamentoRecursoDestinacao->recuperaRecursoVinculoConta($rsContaRecursoC, '', '', $boTransacao);
197   -
  190 +
198 191 $inCodRecursoBuscaC = $rsContaRecursoC->getCampo('cod_recurso');
199   -
  192 +
200 193 if ($inCodRecursoBuscaC == '') {
201   -
  194 +
202 195 if (!$obErro->ocorreu()) {
203 196 $obRContabilidadePlanoBancoC = new RContabilidadePlanoBanco;
204 197 $obRContabilidadePlanoBancoC->setCodEstrutural('2.9.3.2.0.00.00.');
... ... @@ -216,22 +209,22 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
216 209 $obRContabilidadePlanoBancoC->setNatSaldo('C');
217 210 $obRContabilidadePlanoBancoC->obROrcamentoRecurso->setCodRecurso($inCodRecurso);
218 211 $obRContabilidadePlanoBancoC->setContaAnalitica(true);
219   -
  212 +
220 213 $obErro = $obRContabilidadePlanoBancoC->salvar($boTransacao);
221 214 } else {
222 215 SistemaLegado::exibeAviso("Limite de Contas Excedido","n_incluir","erro");
223 216 }
224 217 }
225 218 }
226   -
  219 +
227 220 // Verifica qual o cod_recurso que possui conta contabil vinculada D
228 221 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio());
229 222 $obTOrcamentoRecursoDestinacao->setDado('cod_especificacao', $arDestinacaoRecurso[2]);
230 223 $obTOrcamentoRecursoDestinacao->setDado('cod_estrutural', "'1.9.3.2.0.00.00.%'");
231 224 $obTOrcamentoRecursoDestinacao->recuperaRecursoVinculoConta($rsContaRecursoD, '', '', $boTransacao);
232   -
  225 +
233 226 $inCodRecursoBuscaD = $rsContaRecursoD->getCampo('cod_recurso');
234   -
  227 +
235 228 if ($inCodRecursoBuscaD == '') {
236 229 if (!$obErro->ocorreu()) {
237 230 $obRContabilidadePlanoBancoD = new RContabilidadePlanoBanco;
... ... @@ -250,7 +243,7 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
250 243 $obRContabilidadePlanoBancoD->setNatSaldo('D');
251 244 $obRContabilidadePlanoBancoD->obROrcamentoRecurso->setCodRecurso($inCodRecurso);
252 245 $obRContabilidadePlanoBancoD->setContaAnalitica(true);
253   -
  246 +
254 247 $obErro = $obRContabilidadePlanoBancoD->salvar($boTransacao);
255 248 } else {
256 249 SistemaLegado::exibeAviso("Limite de Contas Excedido","n_incluir","erro");
... ... @@ -267,18 +260,18 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
267 260 $stFiltro .= " AND exercicio = '".Sessao::getExercicio()."'";
268 261 $stFiltro .= " AND cod_entidade = ".$request->get('inCodEntidade');
269 262 $obTOrcamentoReceita->recuperaTodos($rsReceita, $stFiltro, '', $boTransacao);
270   -
  263 +
271 264 if ($rsReceita->getNumLinhas() >= 1 ) {
272 265 $obErro->setDescricao("A Classificação de Receita informada já foi cadastrada no exercício de (".Sessao::getExercicio().")");
273 266 }
274   -
  267 +
275 268 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($request->get('inCodRecurso'));
276 269 }
277   -
  270 +
278 271 if (!$obErro->ocorreu()) {
279 272 $obErro = $obROrcamentoReceita->salvar($boTransacao);
280 273 $inCodReceita = $obROrcamentoReceita->getCodReceita();
281   -
  274 +
282 275 if (!$obErro->ocorreu()) {
283 276 if ($request->get('boCreditoTributario') == "S") {
284 277 if ($request->get('inCodContaCreditoTributario') != '') {
... ... @@ -286,14 +279,14 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
286 279 $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita' , $inCodReceita);
287 280 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio());
288 281 $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $request->get('inCodContaCreditoTributario'));
289   -
  282 +
290 283 $obErro = $obTOrcamentoReceitaCreditoTributario->inclusao($boTransacao);
291 284 } else {
292 285 $obErro->setDescricao("A conta de Crédito Tributário deve ser escolhida");
293 286 }
294 287 }
295 288 }
296   -
  289 +
297 290 if ( !$obErro->ocorreu() ) {
298 291 $obErro = lancarMetasReceita($boTransacao);
299 292 }
... ... @@ -315,33 +308,33 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
315 308 $obErro = new Erro;
316 309 $obTransacao = new Transacao;
317 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 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 315 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->consultar( $rsRubrica, $boTransacao );
323 316  
324 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 324 if ($boDestinacao) {
332   - $arDestinacaoRecurso = explode('.',$_REQUEST['stDestinacaoRecurso']);
  325 + $arDestinacaoRecurso = explode('.',$request->get('stDestinacaoRecurso'));
333 326  
334 327 if (Sessao::getExercicio() < '2009') {
335 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 334 $obTOrcamentoRecursoDestinacao->alteracao( $boTransacao );
342 335 } else {
343 336 $obTOrcamentoRecursoDestinacao->setDado('exercicio', Sessao::getExercicio());
344   - $obTOrcamentoRecursoDestinacao->setDado('cod_recurso', $_REQUEST['inCodRecurso']);
  337 + $obTOrcamentoRecursoDestinacao->setDado('cod_recurso', $request->get('inCodRecurso'));
345 338 $obTOrcamentoRecursoDestinacao->setDado("cod_uso", '');
346 339 $obTOrcamentoRecursoDestinacao->setDado("cod_destinacao", '');
347 340 $obTOrcamentoRecursoDestinacao->setDado("cod_detalhamento", '');
... ... @@ -466,11 +459,11 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
466 459  
467 460 if ($inCodRecursoExiste == '') {
468 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 467 $obTOrcamentoRecursoDestinacao->alteracao( $boTransacao );
475 468 } else {
476 469 $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($inCodRecursoExiste);
... ... @@ -478,32 +471,32 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
478 471 }
479 472 }
480 473 } else {
481   - $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($_POST['inCodRecurso']);
  474 + $obROrcamentoReceita->obROrcamentoRecurso->setCodRecurso($request->get('inCodRecurso'));
482 475 }
483 476  
484 477 $obROrcamentoReceita->obROrcamentoClassificacaoReceita->setCodConta($inCodConta);
485 478 $obErro = $obROrcamentoReceita->salvar($boTransacao);
486 479  
487   - $obTOrcamentoReceita->setDado('cod_receita' , $_POST['inCodFixacaoReceita'] );
  480 + $obTOrcamentoReceita->setDado('cod_receita' , $request->get('inCodFixacaoReceita') );
488 481 $obTOrcamentoReceita->setDado('exercicio' , Sessao::getExercicio());
489 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 489 $obErro = $obTOrcamentoReceita->alteracao($boTransacao);
497   -
  490 +
498 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 494 $obTOrcamentoReceitaCreditoTributario = new TOrcamentoReceitaCreditoTributario;
502 495 $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita' , $obROrcamentoReceita->getCodReceita());
503 496 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio());
504 497 $obTOrcamentoReceitaCreditoTributario->recuperaPorChave($rsContaCreditoTributario, $boTransacao);
505   - $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $_POST['inCodContaCreditoTributario']);
506   -
  498 + $obTOrcamentoReceitaCreditoTributario->setDado('cod_conta' , $request->get('inCodContaCreditoTributario'));
  499 +
507 500 if ($rsContaCreditoTributario->getNumLinhas() > 0) {
508 501 $obErro = $obTOrcamentoReceitaCreditoTributario->alteracao($boTransacao);
509 502 } else {
... ... @@ -534,12 +527,12 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
534 527 }
535 528 $stFiltro .= "pg=".$sessao->link['pg']."&";
536 529 $stFiltro .= "pos=".$sessao->link['pos']."&";
537   - $stFiltro .= "stAcao=".$_REQUEST['stAcao'];
  530 + $stFiltro .= "stAcao=".$request->get('stAcao');
538 531  
539 532 $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro );
540 533  
541 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 536 } else {
544 537 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro");
545 538 }
... ... @@ -551,19 +544,20 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
551 544 include_once ( CAM_GF_CONT_NEGOCIO."RContabilidadeLancamentoReceita.class.php");
552 545 $obRContablidadeLancamentoReceita = new RContabilidadeLancamentoReceita;
553 546 $obRContablidadeLancamentoReceita->obRContabilidadeLancamento->obRContabilidadeLote->setExercicio ( Sessao::getExercicio() );
  547 + $obRContablidadeLancamentoReceita->obROrcamentoReceita->setCodReceita( $request->get('inCodReceita') );
554 548 $obRContablidadeLancamentoReceita->consultarExistenciaReceita();
555 549  
556 550 if ( $obRContablidadeLancamentoReceita->getCountReceitaExercicio() == 0) {
557 551 include_once( CAM_GF_CONT_MAPEAMENTO."TContabilidadeDesdobramentoReceita.class.php" );
558 552 $obTContabilidadeDesdobramentoReceita = new TContabilidadeDesdobramentoReceita;
559 553 $obTContabilidadeDesdobramentoReceita->setDado( "exercicio", Sessao::getExercicio() );
560   - $obTContabilidadeDesdobramentoReceita->setDado( "cod_receita", $_GET['inCodReceita'] );
  554 + $obTContabilidadeDesdobramentoReceita->setDado( "cod_receita", $request->get('inCodReceita') );
561 555  
562 556 $obErro = $obTContabilidadeDesdobramentoReceita->verificaReceitaSecundaria( $boSecundaria );
563 557  
564 558 if (!$obErro->ocorreu() && !$boSecundaria ) {
565 559 $obTOrcamentoReceitaCreditoTributario = new TOrcamentoReceitaCreditoTributario;
566   - $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita', $_GET['inCodReceita']);
  560 + $obTOrcamentoReceitaCreditoTributario->setDado('cod_receita', $request->get('inCodReceita'));
567 561 $obTOrcamentoReceitaCreditoTributario->setDado('exercicio' , Sessao::getExercicio());
568 562  
569 563 $obTOrcamentoReceitaCreditoTributario->recuperaPorChave($rsContaCreditoTributario, $boTransacao);
... ... @@ -572,20 +566,20 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
572 566 $obTOrcamentoReceitaCreditoTributario->exclusao($boTransacao);
573 567 }
574 568  
575   - $obROrcamentoReceita->setCodReceita( $_GET['inCodReceita'] );
  569 + $obROrcamentoReceita->setCodReceita( $request->get('inCodReceita') );
576 570 $obROrcamentoReceita->setExercicio ( Sessao::getExercicio() );
577 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 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 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 580 $obTOrcamentoRecurso = new TOrcamentoRecurso;
587 581 $obTOrcamentoRecurso->setDado("exercicio", Sessao::getExercicio() );
588   - $obTOrcamentoRecurso->setDado("cod_recurso", $_REQUEST['inCodRecurso'] );
  582 + $obTOrcamentoRecurso->setDado("cod_recurso", $request->get('inCodRecurso') );
589 583 $obTOrcamentoRecurso->exclusao();
590 584 }
591 585 } else {
... ... @@ -602,10 +596,10 @@ switch ($request-&gt;get(&#39;stAcao&#39;)) {
602 596 }
603 597 $stFiltro .= "pg=".$sessao->transf4['pg']."&";
604 598 $stFiltro .= "pos=".$sessao->transf4['pos']."&";
605   - $stFiltro .= "stAcao=".$_REQUEST['stAcao'];
  599 + $stFiltro .= "stAcao=".$request->get('stAcao');
606 600  
607 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 603 } else {
610 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 660 for ($inContColunas = 1; $inContColunas <= $inNumColunas; $inContColunas++) {
667 661 $inValor = "vlValor_".$inContColunas;
668 662  
669   - $inValor = str_replace( ".", "" , $_POST[$inValor] );
  663 + $inValor = str_replace( ".", "" , $request->get($inValor) );
670 664 $inValor = str_replace( ",", ".", $inValor );
671 665 $arValor[$inContColunas] = $inValor;
672 666 $vlTotal += $inValor;
673 667 }
674 668  
675   - $vlTotal = $_POST['TotalValor'] ;
  669 + $vlTotal = $request->get('TotalValor');
676 670 $vlTotal = str_replace( ".", "" , $vlTotal );
677 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 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 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 113 return $obErro;
114 114 }
115 115  
116   - public function alterar($_REQUEST)
  116 + public function alterar(Request $request)
117 117 {
118 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 123 $obErro = $obMapeamento->alteracao();
124 124  
125 125 return $obErro;
126 126 }
127 127  
128   - public function excluir($_REQUEST)
  128 + public function excluir(Request $request)
129 129 {
130 130 # Recupera ppa.ppa_acao
131   - $stFiltro = ' where cod_regiao = ' . $_REQUEST['inCodRegiao'];
  131 + $stFiltro = ' where cod_regiao = ' . $request->get('inCodRegiao');
132 132 $rsAcoes = $this->callMapeamento('TPPAAcaoDados', 'recuperaTodos', $stFiltro);
133 133  
134 134 $arRetorno = array();
... ... @@ -142,7 +142,7 @@ class RPPAManterRegiao
142 142 }
143 143  
144 144 $obMapeamento = new TPPARegiao;
145   - $obMapeamento->setDado('cod_regiao', $_REQUEST['inCodRegiao']);
  145 + $obMapeamento->setDado('cod_regiao', $request->get('inCodRegiao'));
146 146 $obErro = $obMapeamento->exclusao();
147 147  
148 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 73 /**
74 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 78 Sessao::setTrataExcecao( true );
79   - $stMetodo = $_REQUEST['stAcao'];
  79 + $stMetodo = $request->get('stAcao');
80 80 if (is_string($stMetodo)) {
81   - $this->$stMetodo($_REQUEST);
  81 + $this->$stMetodo($request);
82 82 }
83 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 152 /**
153 153 *
154 154 */
155   - public function listarRegioes($_REQUEST)
  155 + public function listarRegioes(Request $request)
156 156 {
157 157 $rsRegioes = $this->obNegocio->getListaRegioes();
158 158 $obLista = $this->montarListaRegioes($rsRegioes, false);
... ... @@ -166,59 +166,59 @@ class VPPAManterRegiao
166 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 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 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 181 if ($obErro->ocorreu()) {
182 182 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()), 'n_incluir', 'erro');
183 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 192 if ($obErro->ocorreu()) {
193 193 SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()), 'n_alterar', 'erro');
194 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 204 if ($arRetorno['boOcorreu']) {
205 205 SistemaLegado::alertaAviso('LSManterRegioes.php?stAcao=excluir', $arRetorno['stMensagem'], $arRetorno['stAcao'], 'aviso', Sessao::getId());
206 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 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 216 Sessao::setTrataExcecao( true );
217 217  
218   - $stMetodo = $_REQUEST['stAcao'];
  218 + $stMetodo = $request->get('stAcao');
219 219  
220 220 if (is_string($stMetodo)) {
221   - $this->$stMetodo($_REQUEST);
  221 + $this->$stMetodo($request);
222 222 }
223 223  
224 224 Sessao::encerraExcecao();
... ...
gestaoFinanceira/fontes/PHP/ppa/instancias/receita/PRManterReceita.php
  Diff comments   View file @842bba7
... ... @@ -31,7 +31,7 @@
31 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 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 44  
45 45 $obRegraReceita = new RPPAManterReceita();
46 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 50 $pgOcul = "OC".$stPrograma.".php";
51 51 $pgJS = "JS".$stPrograma.".js";
52 52  
53   -$sessao->link = "";
54   -
55   -unset($sessao->filtro);
  53 +Sessao::write("link","");
56 54  
57 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 57 if (empty($stAcao)) {
61 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 44 {
45 45 <?php
46 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 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 64 $obTPPARegiao = new TPPARegiao;
65 65  
66 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 68 if ( empty( $stAcao ) ) {
69 69 $stAcao = "alterar";
70 70 }
... ... @@ -75,20 +75,27 @@ switch ($stAcao) {
75 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 97 $obRegra = new RPPAManterRegiao();
91 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 55  
56 56 $obRegraRegiao = new RPPAManterRegiao();
57 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 125 $this->setVinculoPlanoBanco(false);
126 126 }
127 127  
128   - public function setObrigatorioBarra()
  128 + public function setObrigatorioBarra($valor = true)
129 129 {
130 130 $this->obBscCheque->setNull(true);
131 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 45 *
46 46 * @return void
47 47 */
48   - public function __construct(&$obModel)
  48 + public function __construct($obModel)
49 49 {
50 50 $this->obModel = $obModel;
51 51 }
... ... @@ -60,7 +60,7 @@ class CTesourariaCheque
60 60 * @return void
61 61 */
62 62 public function incluir($arParam)
63   - {
  63 + {
64 64 $this->obModel->obRMONContaCorrente->obRMONAgencia->obRMONBanco->stNumBanco = $arParam['inCodBancoTxt' ];
65 65 $this->obModel->obRMONContaCorrente->obRMONAgencia->stNumAgencia = $arParam['stNumAgenciaTxt'];
66 66 $this->obModel->obRMONContaCorrente->stNumeroConta = $arParam['stContaCorrente'];
... ... @@ -177,6 +177,8 @@ class CTesourariaCheque
177 177 public function emitir($arParam)
178 178 {
179 179 $obErro = new Erro();
  180 + $obTransacao = new Transacao;
  181 + $obErro =$obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
180 182 $arCheques = Sessao::read('arCheque');
181 183  
182 184 if (count($arCheques) == 0) {
... ... @@ -204,32 +206,36 @@ class CTesourariaCheque
204 206 break;
205 207 case 'transferencia':
206 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 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 244 if (!$obErro->ocorreu()) {
239 245 $stMensagem = 'Cheque(s) emitido(s) com sucesso';
240 246 SistemaLegado::alertaAviso('LSManterImprimirCheque.php' . '?' . Sessao::getId() . '&stAcao='.$arParam['stAcao'], $stMensagem,'aviso', Sessao::getId(), "../");
  247 + $obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $this->obModel->obTTesourariaChequeEmissao);
241 248 } else {
242 249 sistemaLegado::exibeAviso($obErro->getDescricao(), 'n_incluir', 'erro');
243 250 }
... ... @@ -720,9 +727,9 @@ class CTesourariaCheque
720 727 break;
721 728 case 'transferencia':
722 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 733 $this->obModel->listChequesTransferencia($rsCheque);
727 734  
728 735 break;
... ... @@ -1028,9 +1035,9 @@ class CTesourariaCheque
1028 1035 if (strstr($stKey,'transferencia')) {
1029 1036 $arTransferencia = explode('_',$stKey);
1030 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 1042 $this->obModel->listChequesTransferencia($rsCheque);
1036 1043  
... ... @@ -1073,9 +1080,9 @@ class CTesourariaCheque
1073 1080 if (strstr($stKey,'transferencia')) {
1074 1081 $arTransferencia = explode('_',$stKey);
1075 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 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 53 $this->setCampoCod ('');
54 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 68 * Método que retorna os cheques analitico vinculadoa emissao
67 69 *
68 70 * @author Analista Tonismar Bernardo <tonismar.bernardo@cnm.org.br>
... ... @@ -74,7 +76,20 @@ class TTesourariaChequeEmissao extends Persistente
74 76 *
75 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 94 $stSql = "
80 95 SELECT cheque.num_cheque
... ... @@ -280,7 +295,7 @@ class TTesourariaChequeEmissao extends Persistente
280 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 310 *
296 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 328 $stSql = "
301 329 SELECT cheque.num_cheque
... ... @@ -541,7 +569,9 @@ class TTesourariaChequeEmissao extends Persistente
541 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 30 * @package Tesouraria
31 31 * @author Analista Tonismar Bernardo <tonismar.bernardo@cnm.org.br>
32 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 36 include_once CLA_PERSISTENTE;
... ... @@ -60,6 +60,7 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
60 60 $this->AddCampo('cod_banco' ,'integer' , true, '' ,true , true);
61 61 $this->AddCampo('cod_conta_corrente' ,'integer' , true, '' ,true , true);
62 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 75 *
75 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 94 $stSql = "
80 95 SELECT ordem_pagamento.nom_entidade
... ... @@ -152,7 +167,7 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
152 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 182 *
168 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 200 $stSql = "
173 201 SELECT cheque.num_cheque
... ... @@ -244,13 +272,26 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
244 272 ";
245 273  
246 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 296 $stSql = " SELECT
256 297 cheque_emissao_ordem_pagamento.*
... ... @@ -269,8 +310,9 @@ class TTesourariaChequeEmissaoOrdemPagamento extends Persistente
269 310 AND cheque_emissao_ordem_pagamento.exercicio = '".$this->getDado('exercicio')."'
270 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 53 $this->setCampoCod ('');
54 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 76 *
76 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 95 $stSql = "
81 96 SELECT recibo_extra.cod_recibo_extra
... ... @@ -143,7 +158,7 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
143 158 )
144 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 173 *
159 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 191 $stSql = "
164 192 SELECT cheque.num_cheque
... ... @@ -227,7 +255,9 @@ class TTesourariaChequeEmissaoReciboExtra extends Persistente
227 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 53 $this->setCampoCod ('');
54 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 83 $stSql = "
69 84 SELECT
... ... @@ -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 235 *
221 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 254 $stSql = "
226 255 SELECT cheque.num_cheque
... ... @@ -282,7 +311,7 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
282 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 326 *
298 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 345 $stSql = "
303 346 SELECT
... ... @@ -505,7 +548,8 @@ class TTesourariaChequeEmissaoTransferencia extends Persistente
505 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 76 $stTimestampEmissao,
77 77 $stTimestampBaixa,
78 78 $stAcao;
  79 +
79 80  
80 81 /**
81 82 * Método contrutor, instancia as classes necessarias.
... ... @@ -170,10 +171,10 @@ class RTesourariaCheque
170 171 *
171 172 * @return object $obErro
172 173 */
173   - public function emitirPorOP($boTransacao = '')
  174 + public function emitirPorOP($boTransacao)
174 175 {
175 176 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
176   -
  177 +
177 178 //Insere na table tesouraria.emissao_cheque
178 179 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque );
179 180 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco);
... ... @@ -182,7 +183,8 @@ class RTesourariaCheque
182 183 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor );
183 184 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao );
184 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 189 if (!$obErro->ocorreu()) {
188 190 //Insere na table tesouraria.emissao_cheque_ordem_pagamento
... ... @@ -193,11 +195,12 @@ class RTesourariaCheque
193 195 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('cod_ordem' ,$this->obREmpenhoOrdemPagamento->inCodigoOrdem );
194 196 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('exercicio' ,$this->obREmpenhoOrdemPagamento->stExercicio );
195 197 $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('cod_entidade' ,$this->obREmpenhoOrdemPagamento->obROrcamentoEntidade->inCodigoEntidade);
  198 + $this->obTTesourariaChequeEmissaoOrdemPagamento->setDado ('timestamp_emissao' ,$this->stTimestampEmissao );
  199 +
196 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 204 return $obErro;
202 205 }
203 206  
... ... @@ -210,10 +213,10 @@ class RTesourariaCheque
210 213 *
211 214 * @return object $obErro
212 215 */
213   - public function emitirPorTransferencia($boTransacao = '')
  216 + public function emitirPorTransferencia($boTransacao)
214 217 {
215 218 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
216   -
  219 +
217 220 //Insere na table tesouraria.emissao_cheque
218 221 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque );
219 222 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco);
... ... @@ -222,6 +225,7 @@ class RTesourariaCheque
222 225 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor );
223 226 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao );
224 227 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao );
  228 + $this->obTTesourariaChequeEmissao->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
225 229 $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao);
226 230  
227 231 if (!$obErro->ocorreu()) {
... ... @@ -231,13 +235,14 @@ class RTesourariaCheque
231 235 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_agencia' ,$this->obRMONContaCorrente->obRMONAgencia->inCodAgencia );
232 236 $this->obTTesourariaChequeEmissaoTransferencia->setDado ('cod_conta_corrente',$this->obRMONContaCorrente->inCodigoConta );
233 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 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 247 return $obErro;
243 248 }
... ... @@ -251,10 +256,10 @@ class RTesourariaCheque
251 256 *
252 257 * @return object $obErro
253 258 */
254   - public function emitirPorReciboExtra($arParam, $boTransacao = '')
  259 + public function emitirPorReciboExtra($arParam, $boTransacao)
255 260 {
256 261 $obErro = $this->obTransacao->abreTransacao($boFlagTransacao, $boTransacao);
257   -
  262 +
258 263 //Insere na table tesouraria.emissao_cheque
259 264 $this->obTTesourariaChequeEmissao->setDado ('num_cheque' , $this->stNumCheque );
260 265 $this->obTTesourariaChequeEmissao->setDado ('cod_banco' , $this->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco);
... ... @@ -263,6 +268,7 @@ class RTesourariaCheque
263 268 $this->obTTesourariaChequeEmissao->setDado ('valor' , $this->flValor );
264 269 $this->obTTesourariaChequeEmissao->setDado ('data_emissao' , $this->stDtEmissao );
265 270 $this->obTTesourariaChequeEmissao->setDado ('descricao' , $this->stDescricao );
  271 + $this->obTTesourariaChequeEmissao->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
266 272 $obErro = $this->obTTesourariaChequeEmissao->inclusao($boTransacao);
267 273  
268 274 if (!$obErro->ocorreu()) {
... ... @@ -275,10 +281,11 @@ class RTesourariaCheque
275 281 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('exercicio' ,$arParam['stExercicio'] );
276 282 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('cod_entidade' ,$arParam['inCodEntidade'] );
277 283 $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('tipo_recibo' ,'D' );
  284 + $this->obTTesourariaChequeEmissaoReciboExtra->setDado ('timestamp_emissao' , $this->stTimestampEmissao );
278 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 290 return $obErro;
284 291 }
... ... @@ -515,11 +522,11 @@ class RTesourariaCheque
515 522 case 'transferencia':
516 523 $stFiltro .= " AND cheque_emissao_transferencia.num_cheque IS NOT NULL ";
517 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 531 if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->inContaCredito) {
525 532 $stFiltro .= " AND cheque_emissao_transferencia.cod_plano_credito = " . $this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->inContaCredito ." ";
... ... @@ -771,14 +778,14 @@ class RTesourariaCheque
771 778 if ($this->obRTesourariaTransferencia->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->inCodLote) {
772 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 791 if ($stFiltro != '') {
... ...
gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaTransferencia.class.php
  Diff comments   View file @842bba7
... ... @@ -33,7 +33,7 @@
33 33 * @package URBEM
34 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 38 $Revision: 30668 $
39 39 $Name: $
... ... @@ -280,6 +280,12 @@ function transferir($boTransacao = &quot;&quot;)
280 280 if ( !$obErro->ocorreu() ) {
281 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 289 if ( !$obErro->ocorreu() ) {
284 290 $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->setTipo( "T" );
285 291 $obErro = $this->obRContabilidadeLancamentoValor->obRContabilidadeLancamento->obRContabilidadeLote->buscaProximoCodigo($boTransacao);
... ... @@ -316,6 +322,7 @@ function transferir($boTransacao = &quot;&quot;)
316 322 $obErro = $obTTesourariaTransferencia->inclusao( $boTransacao );
317 323  
318 324 if (!$obErro->ocorreu()) {
  325 +
319 326 if (SistemaLegado::isAL($boTransacao)) {
320 327 include_once ( CAM_GPC_TCEAL_MAPEAMENTO ."TTipoPagamento.class.php" );
321 328 if ($_REQUEST['cmbTipoPagamento'] == 1) {
... ... @@ -332,7 +339,25 @@ function transferir($boTransacao = &quot;&quot;)
332 339 $obTTipoPagamento->setDado( 'descricao' , $_REQUEST['stDescricao']);
333 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 361 if ( !$obErro->ocorreu() ) {
337 362 // INSERT NO BANCO PARA TOCANTINS
338 363 if ( $inCodUf == 27 AND $_REQUEST['inCodTipoPagamento'] ) {
... ... @@ -570,8 +595,7 @@ function transferir($boTransacao = &quot;&quot;)
570 595 }
571 596 }
572 597  
573   -
574   -
  598 + SistemaLegado::LiberaFrames();
575 599 $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obTTesourariaTransferencia );
576 600  
577 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 43  
44 44 $stAcao = $request->get('stAcao');
45 45 $pgOcul = 'OCManterEmitirCheque.php';
46   -$pgList = 'LSManterEmitirCheque.php?stAcao=' . $_REQUEST['stAcao'];
  46 +$pgList = 'LSManterEmitirCheque.php?stAcao=' . $stAcao;
47 47  
48 48 include 'JSManterEmitirCheque.js';
49 49  
... ... @@ -67,20 +67,20 @@ $obHdnAcao-&gt;setValue ($stAcao );
67 67 $obHdnTipoEmissao = new Hidden();
68 68 $obHdnTipoEmissao->setName ('stTipoEmissaoCheque' );
69 69 $obHdnTipoEmissao->setId ('stTipoEmissaoCheque' );
70   -$obHdnTipoEmissao->setValue ($_REQUEST['stTipoEmissaoCheque']);
  70 +$obHdnTipoEmissao->setValue ($request->get('stTipoEmissaoCheque'));
71 71  
72 72 //Instancia um TextBox para o exercicio
73 73 $obTxtExercicio = new TextBox();
74 74 $obTxtExercicio->setName ('stExercicio');
75 75 $obTxtExercicio->setId ('stExercicio');
76 76 $obTxtExercicio->setRotulo ('Exercício' );
77   -$obTxtExercicio->setValue ($_REQUEST['stExercicio']);
  77 +$obTxtExercicio->setValue ($request->get('stExercicio'));
78 78 $obTxtExercicio->setLabel (true );
79 79  
80 80 //Instancia o componente ILabelEntidade
81 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 84 $obILabelEntidade->setMostraCodigo (true );
85 85  
86 86 //Instancia um objeto Formulario
... ... @@ -88,26 +88,26 @@ $obFormulario = new Formulario();
88 88 $obFormulario->addForm ($obForm );
89 89 $obFormulario->addHidden ($obHdnAcao );
90 90 $obFormulario->addHidden ($obHdnTipoEmissao );
91   -switch ($_REQUEST['stTipoEmissaoCheque']) {
  91 +switch ($request->get('stTipoEmissaoCheque')) {
92 92 case 'ordem_pagamento':
93 93 //Instancia um TextBox para a OP
94 94 $obTxtOrdem = new TextBox();
95 95 $obTxtOrdem->setName ('inCodOrdem');
96 96 $obTxtOrdem->setId ('inCodOrdem');
97 97 $obTxtOrdem->setRotulo ('Nr. da OP' );
98   - $obTxtOrdem->setValue ($_REQUEST['inCodOrdem']);
  98 + $obTxtOrdem->setValue ($request->get('inCodOrdem'));
99 99 $obTxtOrdem->setLabel (true );
100 100  
101 101 //Instancia um label para o valor da OP
102 102 $obLblValorOp = new Label();
103 103 $obLblValorOp->setRotulo ('Valor da OP');
104   - $obLblValorOp->setValue ($_REQUEST['flValor']);
  104 + $obLblValorOp->setValue ($request->get('flValor'));
105 105  
106 106 //Instancia um label para o valor da retencao
107 107 $obTxtValorRetencao = new TextBox();
108 108 $obTxtValorRetencao->setRotulo ('Valor da Retenção');
109 109 $obTxtValorRetencao->setName ('flValorRetencao' );
110   - $obTxtValorRetencao->setValue ($_REQUEST['flValorRetencao']);
  110 + $obTxtValorRetencao->setValue ($request->get('flValorRetencao'));
111 111 $obTxtValorRetencao->setLabel (true);
112 112  
113 113 $obFormulario->addTitulo ('Dados da Emissão por Ordem de Pagamento');
... ... @@ -121,12 +121,12 @@ case &#39;transferencia&#39;:
121 121 //instancia hidden para o cod_lote
122 122 $obHdnCodLote = new Hidden();
123 123 $obHdnCodLote->setName ('inCodLote');
124   - $obHdnCodLote->setValue ($_REQUEST['inCodLote']);
  124 + $obHdnCodLote->setValue ($request->get('inCodLote'));
125 125  
126 126 //instancia um hidden para o tipo
127 127 $obHdnTipo = new Hidden();
128 128 $obHdnTipo->setName ('stTipo' );
129   - $obHdnTipo->setValue ($_REQUEST['stTipo']);
  129 + $obHdnTipo->setValue ($request->get('stTipo'));
130 130  
131 131 //Instancia o componente IIntervaloPopUpContaBanco
132 132 include CAM_GF_CONT_COMPONENTES . 'IPopUpContaBanco.class.php';
... ... @@ -137,8 +137,8 @@ case &#39;transferencia&#39;:
137 137 $obIPopUpContaBancoDebito->setRotulo ('Conta Débito' );
138 138 $obIPopUpContaBancoDebito->setTitle ('Informe a conta débito');
139 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 142 $obIPopUpContaBancoDebito->setLabel (true);
143 143  
144 144 $obIPopUpContaBancoCredito = new IPopUpContaBanco();
... ... @@ -148,8 +148,8 @@ case &#39;transferencia&#39;:
148 148 $obIPopUpContaBancoCredito->setRotulo ('Conta Crédito' );
149 149 $obIPopUpContaBancoCredito->setTitle ('Informe a conta crédito');
150 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 153 $obIPopUpContaBancoCredito->setLabel (true);
154 154  
155 155 $obFormulario->addTitulo ('Dados da Emissão por Transferência');
... ... @@ -168,7 +168,7 @@ case &#39;despesa_extra&#39;:
168 168 $obTxtReciboExtra->setName ('inCodReciboExtra' );
169 169 $obTxtReciboExtra->setId ('inCodReciboExtra' );
170 170 $obTxtReciboExtra->setRotulo ('Nr. do Recibo Extra' );
171   - $obTxtReciboExtra->setValue ($_REQUEST['inCodReciboExtra']);
  171 + $obTxtReciboExtra->setValue ($request->get('inCodReciboExtra'));
172 172 $obTxtReciboExtra->setLabel (true );
173 173  
174 174 $obFormulario->addTitulo ('Dados da Emissão por Despesa Extra');
... ... @@ -185,22 +185,22 @@ $obTxtCredor = new TextBox();
185 185 $obTxtCredor->setName ('stNomCredor' );
186 186 $obTxtCredor->setId ('stNomCredor' );
187 187 $obTxtCredor->setRotulo ('Credor' );
188   -$obTxtCredor->setValue ($_REQUEST['stNomCredor']);
  188 +$obTxtCredor->setValue ($request->get('stNomCredor'));
189 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 194 $flValorCheque = number_format($flValorCheque,2,',','.');
195 195 } else {
196   - $flValorCheque = $_REQUEST['flValor'];
  196 + $flValorCheque = $request->get('flValor');
197 197 }
198 198  
199 199 //Instancia um textbox para o valor
200 200 $obTxtValorTotal = new TextBox();
201 201 $obTxtValorTotal->setName ('flValorTotal');
202 202 $obTxtValorTotal->setId ('flValorTotal');
203   -if ($_REQUEST['stTipoEmissaoCheque'] == 'ordem_pagamento') {
  203 +if ($request->get('stTipoEmissaoCheque') == 'ordem_pagamento') {
204 204 $obTxtValorTotal->setRotulo ('Valor Líquido');
205 205 } else {
206 206 $obTxtValorTotal->setRotulo ('Valor Total');
... ... @@ -211,7 +211,7 @@ $obTxtValorTotal-&gt;setLabel (true );
211 211 $obHdnDataCheque = new Hidden();
212 212 $obHdnDataCheque->setName ('stDtCheque' );
213 213 $obHdnDataCheque->setId ('stDtCheque' );
214   -$obHdnDataCheque->setValue ($_REQUEST['stDataCheque']);
  214 +$obHdnDataCheque->setValue ($request->get('stDataCheque'));
215 215  
216 216 //Instancia um date para a data de emissao
217 217 $obDtEmissao = new Data ();
... ... @@ -221,8 +221,8 @@ $obDtEmissao-&gt;setRotulo (&#39;Data de Emissão&#39; );
221 221 $obDtEmissao->setTitle ('Informe a data de emissão');
222 222 $obDtEmissao->obEvento->setOnChange("montaParametrosGET('verificaDataEmissao','stDtEmissao,stDtCheque');");
223 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 226 $obDtEmissao->setLabel(true);
227 227 }
228 228  
... ... @@ -232,12 +232,12 @@ $obSpnChequeEmissao-&gt;setId (&#39;spnChequeEmissao&#39;);
232 232  
233 233 //Instancia o componente IMontaContaCheque
234 234 $obIMontaContaCheque = new IMontaContaCheque();
235   -$obIMontaContaCheque->setObrigatorioBarra ();
  235 +$obIMontaContaCheque->setObrigatorioBarra (true);
236 236 $obIMontaContaCheque->setTipoBusca ('naoEmitidos');
237 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 241 //Caso seja uma emissao por transferencia, busca os dados da conta credito
242 242 $obController->buscaContaBanco($_REQUEST);
243 243 $stNumBanco = $obController->obModel->obRContabilidadePlanoBanco->obRMONAgencia->obRMONBanco->stNumBanco;
... ... @@ -249,7 +249,6 @@ $obController-&gt;buscaContaBanco($_REQUEST);
249 249 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->stNumAgencia = $stNumAgencia;
250 250 $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->obCampoCod->setValue($stNumContaCorrente);
251 251 $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->setLabel(true);
252   - $obIMontaContaCheque->obIMontaAgenciaConta->obBscConta->setLabel(true);
253 252 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->obTextBoxSelectAgencia->setLabel(true);
254 253 $obIMontaContaCheque->obIMontaAgenciaConta->obIMontaAgencia->obITextBoxSelectBanco->setLabel(true);
255 254 }
... ... @@ -262,8 +261,8 @@ $obValorCheque-&gt;setRotulo (&#39;Valor do Cheque&#39; );
262 261 $obValorCheque->setTitle ('Informe o valor do Cheque');
263 262 $obValorCheque->setObrigatorioBarra(true );
264 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 266 $obValorCheque->setLabel (true );
268 267 }
269 268  
... ... @@ -298,7 +297,7 @@ $obBtnLimpar-&gt;obEvento-&gt;setOnClick(&#39;limparCheque();&#39;);
298 297  
299 298 $obFormulario->addHidden ($obHdnDataCheque );
300 299 $obFormulario->addComponente ($obTxtCredor );
301   -if ($_REQUEST['stTipoEmissaoCheque'] == 'ordem_pagamento') {
  300 +if ($request->get('stTipoEmissaoCheque') == 'ordem_pagamento') {
302 301 $obFormulario->addComponente ($obLblValorOp );
303 302 $obFormulario->addComponente ($obTxtValorRetencao);
304 303 }
... ...
gestaoFinanceira/fontes/PHP/tesouraria/instancias/pagamentos/FMManterPagamentoExtra.php
  Diff comments   View file @842bba7
... ... @@ -32,7 +32,7 @@
32 32 *
33 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 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 44 include_once( CAM_GF_EMP_COMPONENTES."IPopUpCredor.class.php");
45 45 include_once ( CAM_GF_EMP_MAPEAMENTO.'TEmpenhoConfiguracao.class.php' );
46 46 include_once ( CAM_GPC_TCEPE_MAPEAMENTO.'TTCEPETipoTransferencia.class.php' );
  47 +include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeEncerramentoMes.class.php";
  48 +
47 49  
48 50 //Define o nome dos arquivos PHP
49 51 $stPrograma = "ManterPagamentoExtra";
... ... @@ -59,10 +61,14 @@ if ( empty( $stAcao ) ) {
59 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 68 //valida a utilização da rotina de encerramento do mês contábil
63 69 $mesAtual = date('m');
64 70 $boUtilizarEncerramentoMes = SistemaLegado::pegaConfiguracao('utilizar_encerramento_mes', 9);
65   -include_once CAM_GF_CONT_MAPEAMENTO."TContabilidadeEncerramentoMes.class.php";
  71 +
66 72 $obTContabilidadeEncerramentoMes = new TContabilidadeEncerramentoMes;
67 73 $obTContabilidadeEncerramentoMes->setDado('exercicio', Sessao::getExercicio());
68 74 $obTContabilidadeEncerramentoMes->setDado('situacao', 'F');
... ... @@ -83,16 +89,16 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
83 89 $obTEmpenhoConfiguracao->consultar ();
84 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 98 $obForm = new Form;
87 99 $obForm->setAction( $pgProc );
88 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 102 //Define o objeto da ação stAcao
97 103 $obHdnAcao = new Hidden;
98 104 $obHdnAcao->setName ( "stAcao" );
... ... @@ -106,6 +112,10 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
106 112 $obHdnDtRecibo->setName ( "stDtRecibo" );
107 113 $obHdnDtRecibo->setId( "stDtRecibo" );
108 114 $obHdnDtRecibo->setValue( $stDtRecibo );
  115 +
  116 + $obHdnBoTipoDocTCEMG = new Hidden;
  117 + $obHdnBoTipoDocTCEMG->setName ( "boTipoDocTCEMG" );
  118 + $obHdnBoTipoDocTCEMG->setValue( $boMostrarComboTipoDocTcemg );
109 119  
110 120 $stHdnValor = "
111 121 if (!document.frm.inCodBoletim) {
... ... @@ -279,7 +289,26 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
279 289 $obTxtValor->setSize (17 );
280 290 $obTxtValor->setMaxLength(17 );
281 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 312 // Define o objeto para o tipo de pagamento
284 313 if (SistemaLegado::isAL()) {
285 314 $obTipoPagamento = new Select;
... ... @@ -335,7 +364,6 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
335 364 $obSpnTipoTransferencia = new Span();
336 365 $obSpnTipoTransferencia->setId ('spnTipoTransferencia');
337 366  
338   -
339 367 //****************************************//
340 368 //Monta FORMULARIO
341 369 //****************************************//
... ... @@ -353,6 +381,8 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
353 381 $obFormulario->addHidden ( $obHdnVlSaldoContaAnaliticaBR );
354 382 $obFormulario->addHidden ( $obHdnTipoRecibo );
355 383 $obFormulario->addHidden ( $obHdnDtRecibo );
  384 + $obFormulario->addHidden ( $obHdnBoTipoDocTCEMG );
  385 +
356 386 $obFormulario->addComponente( $obTxtCodBarras );
357 387  
358 388 $obFormulario->addComponente( $obIEntidade );
... ... @@ -361,12 +391,17 @@ if ($rsUltimoMesEncerrado-&gt;getCampo(&#39;mes&#39;) &gt;= $mesAtual AND $boUtilizarEncerrame
361 391 $obFormulario->addSpan ( $obSpnBoletim );
362 392 $obFormulario->addHidden ($obHdnDtBoletim);
363 393 $obFormulario->addComponente( $obICredor );
364   - //$obFormulario->addComponente( $obIRecurso );
  394 +
365 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 396 $obIMontaRecursoDestinacao->geraFormulario ( $obFormulario );
367 397 $obFormulario->addComponente( $obBscHistorico );
368 398 $obFormulario->addSpan ( $obSpanContas );
369 399 $obFormulario->addComponente( $obTxtValor );
  400 + if ($boMostrarComboTipoDocTcemg == 'true' AND Sessao::getExercicio() >= '2016' ) {
  401 + $obFormulario->addComponente( $obCboDocTipo );
  402 + $obFormulario->addSpan( $obSpnNroDocumento );
  403 + }
  404 +
370 405 $obFormulario->addSpan( $obSpnTipoTransferencia );
371 406 //ALAGOAS
372 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 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 512 switch ($_REQUEST['stCtrl']) {
  513 +
482 514 case 'limparCampos':
483 515 $stJs = limparCampos();
484 516 break;
... ... @@ -499,7 +531,6 @@ case &#39;alteraBoletim&#39;:
499 531 $stJs .= "jQuery('#stDtBoletim').val('');\r\n";
500 532 SistemaLegado::executaFrameOculto( "LiberaFrames(true,false);".$stJs );
501 533 }
502   - //exit;
503 534  
504 535 break;
505 536 case 'buscaBoletim':
... ... @@ -524,6 +555,9 @@ case &#39;verificaCodBarras&#39;:
524 555 case 'montaDescricaoTipoPagamento':
525 556 $stJs = montaDescricaoTipoPagamento($_GET['cmbTipoPagamento']);
526 557 break;
  558 +case 'montaDocumento':
  559 + $stJs = montaDocumento($_REQUEST['inCodDocTipo']);
  560 + break;
527 561 }
528 562  
529 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 44 require_once CAM_GF_TES_MAPEAMENTO."TTesourariaPagamento.class.php";
45 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 49 //Define o nome dos arquivos PHP
50 50 $stPrograma = "ManterPagamento";
... ... @@ -63,11 +63,20 @@ $arCheques = Sessao::read(&#39;arCheque&#39;);
63 63 $arNotas = Sessao::read('arNota');
64 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 78 switch ($stAcao) {
69 79 case 'incluir':
70   - $obErro = new Erro();
71 80 foreach ($arCheques as $arCheque) {
72 81 $inCount = 0;
73 82 if (SistemaLegado::comparaDatas($arCheque['data_emissao'],$stDtBoletim)) {
... ... @@ -93,7 +102,7 @@ switch ($stAcao) {
93 102 $arNotaLiquidacao[0]['ex_empenho' ] = $stExercicioEmpenho;
94 103 $arNotaLiquidacao[0]['dt_nota' ] = $stDtBoletim;
95 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 107 $arNotaPaga[0]['cod_nota' ] = $inCodNota;
99 108 $arNotaPaga[0]['exercicio' ] = $stExercicioLiquidacao;
... ... @@ -102,7 +111,7 @@ switch ($stAcao) {
102 111 $arNotaPaga[0]['ex_empenho' ] = $stExercicioEmpenho;
103 112 $arNotaPaga[0]['dt_nota' ] = $stDtBoletim;
104 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 115 $arNotaPaga[0]['numero_documento'] = $arCheque['num_cheque'];
107 116  
108 117 $arPagamentoAux['nota_liquidacao'] = $arNotaLiquidacao;
... ... @@ -121,7 +130,7 @@ switch ($stAcao) {
121 130 $arNotaLiquidacao[0]['ex_empenho' ] = $stExercicioEmpenho;
122 131 $arNotaLiquidacao[0]['dt_nota' ] = $stDtBoletim;
123 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 135 $arNotaPaga[0]['cod_nota' ] = $inCodNota;
127 136 $arNotaPaga[0]['exercicio' ] = $stExercicioLiquidacao;
... ... @@ -130,7 +139,7 @@ switch ($stAcao) {
130 139 $arNotaPaga[0]['ex_empenho' ] = $stExercicioEmpenho;
131 140 $arNotaPaga[0]['dt_nota' ] = $stDtBoletim;
132 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 143 $arNotaPaga[0]['numero_documento'] = $arCheque['num_cheque'];
135 144  
136 145 $arPagamentoAux['nota_liquidacao'] = $arNotaLiquidacao;
... ... @@ -152,11 +161,11 @@ switch ($stAcao) {
152 161 $obRTesourariaBoletim->setExercicio ( Sessao::getExercicio() );
153 162 $obRTesourariaBoletim->setCodBoletim ( $inCodBoletim );
154 163 $obRTesourariaBoletim->setDataBoletim( $stDtBoletim );
155   - $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $_POST['inCodEntidade'] );
  164 + $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
156 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 169 $obRTesourariaBoletim->addPagamento();
161 170  
162 171 //se e o segundo cheque que esta sendo pago, nao faz a retencao
... ... @@ -172,20 +181,19 @@ switch ($stAcao) {
172 181 $stTimestamp = substr($stAno.'-'.$stMes.'-'.$stDia.' '.date('H:i:s.ms'),0,-1);
173 182 }
174 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 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 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 194 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obRContabilidadePlanoContaAnalitica->setCodPlano ( $arPagamento['cod_plano'] );
187 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 198 if (!$obErro->ocorreu()) {
191 199 if ($nuTotalPagamento == '0.00') {
... ... @@ -198,7 +206,7 @@ switch ($stAcao) {
198 206 }
199 207 $obRTesourariaBoletim->roUltimoPagamento->boCheque = true;
200 208 if (!$obErro->ocorreu()) {
201   - $obErro = $obRTesourariaBoletim->roUltimoPagamento->pagar();
  209 + $obErro = $obRTesourariaBoletim->roUltimoPagamento->pagar($boTransacao);
202 210 }
203 211  
204 212 $boRetencao = $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->getRetencao();
... ... @@ -206,7 +214,7 @@ switch ($stAcao) {
206 214 if ($obRTesourariaBoletim->roUltimoPagamento->obRTesourariaAutenticacao->getDescricao()) {
207 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 219 if ( !$obErro->ocorreu() ) {
212 220 $inCodOrdem = $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->obREmpenhoOrdemPagamento->getCodigoOrdem();
... ... @@ -215,8 +223,9 @@ switch ($stAcao) {
215 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 224 //tcepb.pagamento_origem_recursos_interna
217 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 229 $stFiltroPagamentos .="
221 230 AND NOT EXISTS ( SELECT 1 FROM tesouraria.pagamento_estornado
222 231 WHERE pagamento.cod_nota = pagamento_estornado.cod_nota
... ... @@ -230,55 +239,64 @@ switch ($stAcao) {
230 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 300 }//fim TCEAL
283 301 }
284 302 }
... ... @@ -289,17 +307,20 @@ switch ($stAcao) {
289 307 $obRTesourariaCheque->obRMONContaCorrente->obRMONAgencia->obRMONBanco->inCodBanco = $arCheque['cod_banco' ];
290 308 $obRTesourariaCheque->obRMONContaCorrente->obRMONAgencia->inCodAgencia = $arCheque['cod_agencia' ];
291 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 318 if (!$obErro->ocorreu()) {
  319 + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obRTesourariaCheque->obTTesourariaChequeEmissaoBaixa);
299 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 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 325 } else {
305 326 SistemaLegado::exibeAviso(urlencode("Erro ao executar ação: ".$nomAcao." (".$obErro->getDescricao().")"),"","erro");
... ... @@ -313,11 +334,11 @@ switch ($stAcao) {
313 334 $obRTesourariaBoletim->setExercicio ( Sessao::getExercicio() );
314 335 $obRTesourariaBoletim->setCodBoletim ( $inCodBoletim );
315 336 $obRTesourariaBoletim->setDataBoletim( $stDtBoletim );
316   - $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $_POST['inCodEntidade'] );
  337 + $obRTesourariaBoletim->obROrcamentoEntidade->setCodigoEntidade ( $request->get('inCodEntidade') );
317 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 342 $obRTesourariaBoletim->addPagamento();
322 343  
323 344 $obRTesourariaConfiguracao = new RTesourariaConfiguracao();
... ... @@ -334,7 +355,6 @@ switch ($stAcao) {
334 355 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->stTimestampAnulada = $stAno.'-'.$stMes.'-'.$stDia.' '.date('H:i:s.ms');
335 356 $stDtEstorno = $stAno.$stMes.$stDia;
336 357 }
337   - $obErro = new Erro;
338 358  
339 359 $arrNota = Sessao::read('arNota');
340 360  
... ... @@ -348,9 +368,12 @@ switch ($stAcao) {
348 368 list( $inCodEmpenho, $stExercicioEmpenho ) = explode( '/', $arNota['empenho'] );
349 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 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 378 if ($nuValorEstornar != $nuValorOriginal) {
356 379 $nuValorOriginal = $nuValorEstornar;
... ... @@ -371,7 +394,7 @@ switch ($stAcao) {
371 394 $arNotaPaga[$inPos]['dt_nota'] = $stDtBoletim;
372 395 $arNotaPaga[$inPos]['timestamp'] = $arNota['timestamp'];
373 396 $arNotaPaga[$inPos]['vl_estornado'] = $nuValorPagar;
374   - $arNotaPaga[$inPos]['vl_pago'] = $_POST['nuValorPagamento'];
  397 + $arNotaPaga[$inPos]['vl_pago'] = $request->get('nuValorPagamento');
375 398 $arNotaPaga[$inPos]['cod_plano'] = $arNota['cod_plano'];
376 399 $arNotaPaga[$inPos]['cod_plano_retencao'] = $arNota['cod_plano_retencao'];
377 400 $arNotaPaga[$inPos]['exercicio_plano'] = $arNota['exercicio_plano'];
... ... @@ -392,12 +415,13 @@ switch ($stAcao) {
392 415 }
393 416 if ($nuTotalEstorno > 0.00) {
394 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 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 425 $obRTesourariaBoletim->roUltimoPagamento->obREmpenhoPagamentoLiquidacao->setValoresPagos( $arNotaPaga );
402 426 } else {
403 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 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 457 if ( !$obErro->ocorreu() ) {
  458 + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obRTesourariaCheque->obTTesourariaChequeEmissaoBaixa);
434 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 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 463 } else {
439 464 SistemaLegado::exibeAviso(urlencode("Erro ao executar ação: ".$nomAcao." (".$obErro->getDescricao().")"),"n_estornar","erro");
440 465 SistemaLegado::LiberaFrames();
441 466 }
442 467  
443 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 30  
31 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 36 CREATE OR REPLACE FUNCTION contabilidade.fn_abertura_restos_pagar_recurso(varchar,varchar,varchar) RETURNS SETOF RECORD AS $$
... ... @@ -246,9 +246,10 @@ BEGIN
246 246 LEFT JOIN empenho.restos_pre_empenho
247 247 ON restos_pre_empenho.exercicio = liquidado.exercicio
248 248 AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho
  249 +
249 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 254 GROUP BY busca_recurso.cod_recurso
254 255 , restos_pre_empenho.recurso
... ... @@ -456,9 +457,10 @@ BEGIN
456 457 LEFT JOIN empenho.restos_pre_empenho
457 458 ON restos_pre_empenho.exercicio = liquidado.exercicio
458 459 AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho
  460 +
459 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 465 GROUP BY busca_recurso.cod_recurso
464 466 , restos_pre_empenho.recurso
... ... @@ -641,9 +643,10 @@ BEGIN
641 643 LEFT JOIN empenho.restos_pre_empenho
642 644 ON restos_pre_empenho.exercicio = empenhado.exercicio
643 645 AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho
  646 +
644 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 651 GROUP BY busca_recurso.cod_recurso
649 652 , restos_pre_empenho.recurso
... ... @@ -824,9 +827,10 @@ BEGIN
824 827 LEFT JOIN empenho.restos_pre_empenho
825 828 ON restos_pre_empenho.exercicio = empenhado.exercicio
826 829 AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho
  830 +
827 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 835 GROUP BY busca_recurso.cod_recurso
832 836 , restos_pre_empenho.recurso
... ...
gestaoFinanceira/fontes/PLPGSQL/contabilidade/balancoFinanceiro.plsql
  Diff comments   View file @842bba7
... ... @@ -23,7 +23,7 @@
23 23 /* Script de função PLPGSQL
24 24 * URBEM Soluções de Gestão Pública Ltda
25 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 54 totalIII NUMERIC;
55 55 totalIV NUMERIC;
56 56 totalV NUMERIC;
  57 +
  58 + stFiltroTrans VARCHAR := '';
  59 + stFiltroExtra VARCHAR := '';
57 60  
58 61 BEGIN
59 62  
... ... @@ -64,24 +67,24 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
64 67 --Relacionando colunas das tabelas com o tipo de despesa selecionado no filtro
65 68 IF (stTipoDespesa = 'E') THEN
66 69 stDespesa := '(empenhado_per - anulado_per) as valor';
67   -
  70 +
68 71 IF (stExercicio >= '2014') THEN
69 72 stDespesaAnterior := '(empenhado_per_anterior - anulado_per_anterior) as valor_anterior';
70 73 END IF;
71   -
  74 +
72 75 END IF;
73   -
  76 +
74 77 IF (stTipoDespesa = 'L') THEN
75 78 stDespesa := 'liquidado_per as valor';
76   -
  79 +
77 80 IF (stExercicio >= '2014') THEN
78 81 stDespesaAnterior := 'liquidado_per_anterior as valor_anterior';
79 82 END IF;
80 83 END IF;
81   -
  84 +
82 85 IF (stTipoDespesa = 'P') THEN
83 86 stDespesa := 'pago_per as valor';
84   -
  87 +
85 88 IF (stExercicio >= '2014') THEN
86 89 stDespesaAnterior := 'pago_per_anterior as valor_anterior';
87 90 END IF;
... ... @@ -96,18 +99,18 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
96 99 IF(stExercicio >= '2014' )THEN
97 100 stSql := stSql || ',ABS(SUM(arrecadado_periodo_anterior)) as arrecadado_periodo_anterior';
98 101 END IF;
99   -
  102 +
100 103 stSql := stSql || '
101 104 FROM(
102 105 SELECT
103 106 descricao
104 107 ,SUM(arrecadado_periodo) as arrecadado_periodo
105 108 ';
106   -
  109 +
107 110 IF(stExercicio >= '2014' )THEN
108 111 stSql := stSql || ',SUM(arrecadado_periodo_anterior) as arrecadado_periodo_anterior';
109 112 END IF;
110   -
  113 +
111 114 stSql := stSql ||'
112 115 FROM(
113 116 SELECT
... ... @@ -128,29 +131,28 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
128 131 ,recurso
129 132 ,arrecadado_periodo
130 133 ';
131   -
  134 +
132 135 IF(stExercicio >= '2014' )THEN
133 136 stSql := stSql || ',0.00 AS arrecadado_periodo_anterior';
134 137 END IF;
135   -
136   -
137   - stSql := stSql || '
  138 +
  139 + stSql := stSql || '
138 140 FROM orcamento.fn_balancete_receita('|| quote_literal(stExercicio) ||'
139 141 ,''''
140 142 ,'|| quote_literal(dtInicial) ||'
141 143 ,'|| quote_literal(dtFinal) ||'
142 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 156 WHERE receita IS NOT NULL
155 157 ';
156 158 IF(stExercicio >= '2014' )THEN
... ... @@ -174,34 +176,34 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
174 176 END as descricao
175 177 ,recurso_anterior AS recurso
176 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 180 FROM orcamento.fn_balancete_receita('|| quote_literal(stExercicioAnterior) ||'
179 181 ,''''
180 182 ,'|| quote_literal(dtInicialAnterior) ||'
181 183 ,'|| quote_literal(dtFinalAnterior) ||'
182 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 196 WHERE receita_anterior IS NOT NULL
195 197 ';
196 198 END IF;
197 199 stSql := stSql || '
198 200 ) as tbl
199 201 WHERE descricao IS NOT NULL
200   - GROUP BY descricao,recurso
  202 + GROUP BY descricao,recurso
201 203 ) resultado
202 204 GROUP BY descricao
203 205 ';
204   -
  206 +
205 207 EXECUTE stSql;
206 208  
207 209 --Criando tabela para armazenar despesas referente a sua classificao para calculo futuro
... ... @@ -220,7 +222,7 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
220 222 , SUM(pago_ano_anterior) AS pago_ano_anterior
221 223 FROM (
222 224 SELECT
223   - classificacao
  225 + classificacao
224 226 ,num_recurso
225 227 ,'|| stDespesa ||'
226 228 ,0.00 as valor_anterior
... ... @@ -236,50 +238,50 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
236 238 ,'' AND od.cod_entidade IN ('|| stCodEntidade ||')''
237 239 ,'|| quote_literal(dtInicial) ||'
238 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 281 credito_extraordinario numeric,
280 282 num_programa varchar,
281 283 num_acao varchar
282   - )
  284 + )
283 285 ';
284 286  
285 287 IF(stExercicio::integer >= 2014 )THEN
... ... @@ -290,59 +292,59 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
290 292 classificacao_anterior AS classificacao
291 293 ,num_recurso_anterior AS num_recurso
292 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 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 304 FROM orcamento.fn_balancete_despesa('|| quote_literal(stExercicioAnterior) ||'
303 305 ,'' AND od.cod_entidade IN ('|| stCodEntidade ||')''
304 306 ,'|| quote_literal(dtInicialAnterior) ||'
305 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 348 credito_extraordinario_anterior numeric,
347 349 num_programa varchar,
348 350 num_acao varchar
... ... @@ -353,7 +355,7 @@ IF (stTipoDespesa = &#39;E&#39;) THEN
353 355 stSql := stSql || '
354 356 ) AS calculo_despesas
355 357 GROUP BY classificacao
356   - , num_recurso
  358 + , num_recurso
357 359 ';
358 360  
359 361 EXECUTE stSql;
... ... @@ -370,8 +372,7 @@ EXECUTE stSql;
370 372 WHERE classificacao like '3%'
371 373 OR classificacao like '4%')
372 374 );
373   -
374   -
  375 +
375 376 ELSE
376 377 INSERT INTO tmp_calculo_despesas(classificacao,valor) VALUES('despesas_orcamentarias'
377 378 , (SELECT sum(valor) as valor
... ... @@ -385,41 +386,41 @@ EXECUTE stSql;
385 386 IF (stTipoDespesa = 'E') THEN
386 387 --INSERT para colocar inscricao_restos_pagar_processados e inscricao_restos_pagar_nao_processados
387 388 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_processados'
388   - , (SELECT
389   - (
  389 + , (SELECT
  390 + (
390 391 SUM(liquidado_ano) - SUM(pago_ano)
391 392 )
392 393 FROM tmp_calculo_despesas)
393   - , (SELECT
394   - (
  394 + , (SELECT
  395 + (
395 396 SUM(liquidado_ano_anterior) - SUM(pago_ano_anterior)
396 397 )
397 398 FROM tmp_calculo_despesas)
398 399 );
399 400 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_nao_processados'
400   - , (SELECT
401   - (
  401 + , (SELECT
  402 + (
402 403 (SUM(empenhado_ano) - SUM(anulado_ano)) - SUM(liquidado_ano)
403 404 )
404 405 FROM tmp_calculo_despesas)
405   - , (SELECT
406   - (
  406 + , (SELECT
  407 + (
407 408 (SUM(empenhado_ano_anterior) - SUM(anulado_ano_anterior)) - SUM(liquidado_ano_anterior)
408 409 )
409 410 FROM tmp_calculo_despesas)
410 411 );
411 412 END IF;
412   -
  413 +
413 414 IF (stTipoDespesa = 'L') THEN
414 415 --INSERT para colocar inscricao_restos_pagar_processados
415 416 INSERT INTO tmp_calculo_despesas(classificacao,valor,valor_anterior) VALUES('inscricao_restos_pagar_processados'
416   - , (SELECT
417   - (
  417 + , (SELECT
  418 + (
418 419 SUM(liquidado_ano) - SUM(pago_ano)
419 420 )
420 421 FROM tmp_calculo_despesas)
421   - , (SELECT
422   - (
  422 + , (SELECT
  423 + (
423 424 SUM(liquidado_ano_anterior) - SUM(pago_ano_anterior)
424 425 )
425 426 FROM tmp_calculo_despesas
... ... @@ -452,8 +453,19 @@ EXECUTE stSql;
452 453 GROUP BY descricao
453 454 ';
454 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 469 --Criando tabela para armazenar saldos referente ao cod_estrutural
458 470 stSql := ' CREATE TEMPORARY TABLE fluxo_caixa_saldo AS
459 471 SELECT descricao
... ... @@ -465,41 +477,41 @@ EXECUTE stSql;
465 477 ,(sum(vl_saldo_creditos_anterior)) AS vl_saldo_creditos_anterior
466 478 ,(sum(vl_saldo_atual_anterior)) AS vl_saldo_atual_anterior
467 479 ,(sum(vl_saldo_inicial_anterior)) AS vl_saldo_inicial_anterior
468   - FROM (
469   - SELECT
  480 + FROM (
  481 + SELECT
470 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 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 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 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 505 END IF;
494   - stSql := stSql || '
  506 + stSql := stSql || '
495 507 THEN ''caixa_equivalentes''
496 508 WHEN cod_estrutural like ''4.5.1.1.0%''
497 509 THEN ''transferencias_recebidas_orcamentaria''
498 510 WHEN cod_estrutural like ''3.5.1.1.0%''
499 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 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 515 THEN ''transferencias_concedidas_independentes_orcamentaria''
504 516 WHEN cod_estrutural like ''4.5.1.3.0%''
505 517 THEN ''transferencias_recebidas_cobertura''
... ... @@ -518,43 +530,43 @@ EXECUTE stSql;
518 530 ,0.00 AS vl_saldo_creditos_anterior
519 531 ,0.00 AS vl_saldo_atual_anterior
520 532 ,0.00 AS vl_saldo_inicial_anterior
521   - ,cod_estrutural
  533 + ,cod_estrutural
522 534 FROM ( SELECT *
523 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 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 552 UNION
541 553 SELECT retorno.*
542 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 570 JOIN contabilidade.plano_conta
559 571 ON plano_conta.exercicio = '|| quote_literal(stExercicio) ||'
560 572 AND plano_conta.cod_estrutural = retorno.cod_estrutural
... ... @@ -563,43 +575,43 @@ EXECUTE stSql;
563 575 ) AS retorno
564 576 GROUP BY descricao
565 577 , cod_estrutural
566   -
  578 +
567 579 UNION ALL
568   -
569   - SELECT
  580 +
  581 + SELECT
570 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 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 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 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 605 END IF;
594   - stSql := stSql || '
  606 + stSql := stSql || '
595 607 THEN ''caixa_equivalentes''
596 608 WHEN cod_estrutural like ''4.5.1.1.0%''
597 609 THEN ''transferencias_recebidas_orcamentaria''
598 610 WHEN cod_estrutural like ''3.5.1.1.0%''
599 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 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 615 THEN ''transferencias_concedidas_independentes_orcamentaria''
604 616 WHEN cod_estrutural like ''4.5.1.3.0%''
605 617 THEN ''transferencias_recebidas_cobertura''
... ... @@ -618,43 +630,43 @@ EXECUTE stSql;
618 630 ,(sum(vl_saldo_creditos)) AS vl_saldo_creditos_anterior
619 631 ,(sum(vl_saldo_atual)) AS vl_saldo_atual_anterior
620 632 ,(sum(vl_saldo_anterior)) AS vl_saldo_inicial_anterior
621   - ,cod_estrutural
  633 + ,cod_estrutural
622 634 FROM ( SELECT *
623 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 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 652 UNION
641 653 SELECT retorno.*
642 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 670 JOIN contabilidade.plano_conta
659 671 ON plano_conta.exercicio = '|| quote_literal(stExercicio) ||'
660 672 AND plano_conta.cod_estrutural = retorno.cod_estrutural
... ... @@ -665,8 +677,9 @@ EXECUTE stSql;
665 677 , cod_estrutural
666 678 ) AS fluxo_caixa_saldo
667 679 WHERE descricao IS NOT NULL
668   - GROUP BY descricao
  680 + GROUP BY descricao
669 681 ';
  682 +
670 683 EXECUTE stSql;
671 684  
672 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 705 ,''cod_entidade IN ('|| stCodEntidade ||') ''
693 706 ,'|| quote_literal(dtInicial) ||'
694 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 721 UNION
709 722  
... ... @@ -716,18 +729,18 @@ stSql := &#39;SELECT
716 729 ,''cod_entidade IN ('|| stCodEntidade ||') ''
717 730 ,'|| quote_literal(dtInicialAnterior) ||'
718 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 744 ) AS retorno
732 745 WHERE cod_estrutural SIMILAR TO ''6.3.2.2.0%|6.3.1.4.0%''
733 746 GROUP BY descricao
... ... @@ -747,39 +760,39 @@ END LOOP;
747 760 IF (stExercicio::integer >= 2014) THEN
748 761 stSql :=' CREATE TEMPORARY TABLE resultado_financeiro AS
749 762 SELECT * FROM(
750   - SELECT
  763 + SELECT
751 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 769 ,vl_saldo_debitos_anterior as valor_debito_anterior
757 770 ,vl_saldo_creditos_anterior as valor_credito_anterior
758 771 ,vl_saldo_atual_anterior as valor_atual_anterior
759 772 ,vl_saldo_inicial_anterior as valor_inicial_anterior
760 773 FROM fluxo_caixa_saldo
761 774 UNION
762   - SELECT
  775 + SELECT
763 776 descricao
764 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 784 ,0 as valor_inicial_anterior
772 785 FROM fluxo_caixa_receita
773 786 UNION
774   - SELECT
  787 + SELECT
775 788 descricao
776 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 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 796 ,0 as valor_inicial_anterior
784 797 FROM tmp_despesas
785 798 )as tbl
... ... @@ -791,28 +804,28 @@ IF (stExercicio::integer &gt;= 2014) THEN
791 804 ELSE
792 805 stSql :=' CREATE TEMPORARY TABLE resultado_financeiro AS
793 806 SELECT * FROM(
794   - SELECT
  807 + SELECT
795 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 813 FROM fluxo_caixa_saldo
801 814 UNION
802   - SELECT
  815 + SELECT
803 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 821 FROM fluxo_caixa_receita
809 822 UNION
810   - SELECT
  823 + SELECT
811 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 829 FROM tmp_despesas
817 830 )as tbl
818 831 WHERE descricao <> ''''
... ... @@ -832,10 +845,10 @@ END IF;
832 845 ,valor_dispendios NUMERIC
833 846 ,valor_dispendios_anterior NUMERIC
834 847 )
835   - ';
  848 + ';
  849 +
836 850 EXECUTE stSql;
837   -
838   -
  851 +
839 852 --CRIANDO DESCRICOES
840 853 --RECEITAS POR RECURSO
841 854 arDescricao[0] := 'Receita Orçamentária(I)';
... ... @@ -974,12 +987,12 @@ END IF;
974 987  
975 988 --INSERIR Descricoes na Tabela
976 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 996 ,valor_dispendios_anterior)
984 997 VALUES( i
985 998 ,arDescricao[i]
... ... @@ -997,22 +1010,22 @@ END IF;
997 1010 SET valor_ingresso = COALESCE((SELECT ABS(valor_credito) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
998 1011 ,valor_ingresso_anterior = COALESCE((SELECT ABS(valor_credito_anterior) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
999 1012 WHERE ordem = 20;
1000   -
  1013 +
1001 1014 UPDATE relatorio_financeiro
1002 1015 SET valor_dispendios = COALESCE((SELECT ABS(valor_debito) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
1003 1016 ,valor_dispendios_anterior = COALESCE((SELECT ABS(valor_debito_anterior) FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados'),0.00)
1004 1017 WHERE ordem = 20;
1005   -
  1018 +
1006 1019 UPDATE relatorio_financeiro
1007 1020 SET valor_ingresso = COALESCE((SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1008 1021 ,valor_ingresso_anterior = COALESCE((SELECT valor_inicial_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1009 1022 WHERE ordem = 25;
1010   -
  1023 +
1011 1024 UPDATE relatorio_financeiro
1012 1025 SET valor_dispendios = COALESCE((SELECT valor FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1013 1026 ,valor_dispendios_anterior = COALESCE((SELECT valor_atual_anterior FROM resultado_financeiro WHERE descricao = 'depositos_restituiveis_valores_vinculados_saldo'),0.00)
1014 1027 WHERE ordem = 25;
1015   -
  1028 +
1016 1029 IF (stExercicio::integer >= 2014) THEN
1017 1030 UPDATE relatorio_financeiro
1018 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 1036 , valor_ingresso_anterior = COALESCE((SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'valores_restituiveis'),0.00)
1024 1037 WHERE ordem = 21;
1025 1038 END IF;
1026   -
  1039 +
1027 1040 IF (stExercicio::integer >= 2014) THEN
1028 1041 UPDATE relatorio_financeiro
1029 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 1083 SET valor_ingresso = (SELECT valor_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
1071 1084 , valor_ingresso_anterior = (SELECT valor_inicial_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
1072 1085 WHERE ordem = 24;
1073   -
  1086 +
1074 1087 UPDATE relatorio_financeiro
1075 1088 SET valor_dispendios = (SELECT valor FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
1076 1089 ,valor_dispendios_anterior = (SELECT valor_atual_anterior FROM resultado_financeiro WHERE descricao = 'caixa_equivalentes')
... ... @@ -1083,14 +1096,14 @@ END IF;
1083 1096 valor_ingresso = (SELECT SUM(valor_ingresso)FROM relatorio_financeiro where ordem IN (7,8))
1084 1097 ,valor_ingresso_anterior = (SELECT SUM(valor_ingresso_anterior) as valor FROM relatorio_financeiro where ordem IN (7,8))
1085 1098 WHERE ordem IN (6);
1086   -
  1099 +
1087 1100 --Receitas Orcamentarias 1.0.0.0 + 2.0.0.0 + 7.0.0.0 - 9.0.0.0
1088 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 1108 (SELECT valor_ingresso_anterior FROM relatorio_financeiro WHERE ordem IN (6))
1096 1109 )
... ... @@ -1113,7 +1126,7 @@ END IF;
1113 1126 totalIII:= (SELECT SUM(ABS(valor_ingresso_anterior)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21));
1114 1127 totalIV := (SELECT SUM(valor_ingresso_anterior) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25));
1115 1128 totalV := totalI + totalII + totalIII + totalIV;
1116   -
  1129 +
1117 1130 UPDATE relatorio_financeiro
1118 1131 SET valor_ingresso_anterior = totalV
1119 1132 WHERE ordem = 27;
... ... @@ -1124,7 +1137,7 @@ END IF;
1124 1137 totalIII:= (SELECT SUM(ABS(valor_dispendios)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21));
1125 1138 totalIV := (SELECT SUM(valor_dispendios) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25));
1126 1139 totalV := totalI + totalII + totalIII + totalIV;
1127   -
  1140 +
1128 1141 UPDATE relatorio_financeiro
1129 1142 SET valor_dispendios = totalV
1130 1143 WHERE ordem = 27;
... ... @@ -1135,11 +1148,11 @@ END IF;
1135 1148 totalIII:= (SELECT SUM(ABS(valor_dispendios_anterior)) as valor_ingresso FROM relatorio_financeiro where ordem in (18,19,20,21));
1136 1149 totalIV := (SELECT SUM(valor_dispendios_anterior) as valor_ingresso FROM relatorio_financeiro where ordem in (24,25));
1137 1150 totalV := totalI + totalII + totalIII + totalIV;
1138   -
  1151 +
1139 1152 UPDATE relatorio_financeiro
1140 1153 SET valor_dispendios_anterior = totalV
1141 1154 WHERE ordem = 27;
1142   -
  1155 +
1143 1156 --TRANTANDO COLUNAS PARA FICAR EM BRANCO
1144 1157 UPDATE relatorio_financeiro
1145 1158 SET
... ... @@ -1152,7 +1165,7 @@ END IF;
1152 1165 valor_dispendios = null
1153 1166 ,valor_dispendios_anterior = null
1154 1167 WHERE descricao_dispendios = '';
1155   -
  1168 +
1156 1169 UPDATE relatorio_financeiro
1157 1170 SET
1158 1171 valor_ingresso = null
... ... @@ -1160,7 +1173,7 @@ END IF;
1160 1173 ,valor_dispendios = null
1161 1174 ,valor_dispendios_anterior = null
1162 1175 WHERE ordem in (11,17,23);
1163   -
  1176 +
1164 1177 --RETIRANDO O SINAL DO QUADRO DE Recebimentos Extra-Orçamentários e Pagamentos Extraorçamentários
1165 1178 UPDATE relatorio_financeiro
1166 1179 SET
... ... @@ -1203,13 +1216,12 @@ END IF;
1203 1216  
1204 1217 IF (inMovimentacao = 0) THEN
1205 1218 UPDATE relatorio_financeiro
1206   - SET
  1219 + SET
1207 1220 valor_ingresso_anterior = 0.00
1208 1221 ,valor_dispendios_anterior = 0.00
1209 1222 WHERE ordem NOT IN (1,4,5,9,10,11,15,16,17,22,23,26);
1210 1223 END IF;
1211 1224  
1212   -
1213 1225 stSql :='SELECT * FROM relatorio_financeiro ORDER by ordem';
1214 1226  
1215 1227 FOR reRegistro IN EXECUTE stSql
... ...
gestaoFinanceira/fontes/PLPGSQL/contabilidade/encerramentoAnualLancamentos2013.plsql
  Diff comments   View file @842bba7
... ... @@ -23,6 +23,13 @@
23 23 --
24 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 33 CREATE OR REPLACE FUNCTION contabilidade.encerramentoAnualLancamentosVariacoesPatrimoniais2013( varExercicio VARCHAR(4), intCodEntidade INTEGER )
27 34 RETURNS VOID as $$
28 35 DECLARE
... ... @@ -239,15 +246,24 @@ BEGIN
239 246 WHERE cod_historico = intCodHistorico
240 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 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 253 stSql := ' SELECT plano_conta.cod_estrutural
247 254 , plano_analitica.cod_plano
248 255 , coalesce(total_credito.valor,0.00) AS valor_cre
249 256 , coalesce(total_debito.valor,0.00) AS valor_deb
250 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 267 FROM contabilidade.plano_conta
252 268 , contabilidade.plano_analitica
253 269 LEFT JOIN ( SELECT cod_plano, conta_debito.exercicio, SUM(vl_lancamento) AS valor
... ... @@ -288,7 +304,7 @@ BEGIN
288 304 OR plano_conta.cod_estrutural LIKE ''6.3.2.9.9%''
289 305 )
290 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 308 For recLancamento IN EXECUTE stSql
293 309 LOOP
294 310 IF recLancamento.saldo != 0 THEN
... ... @@ -303,9 +319,9 @@ BEGIN
303 319 END IF;
304 320  
305 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 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 325 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.1.9.1.00.00' THEN
310 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 327 ELSIF substr(recLancamento.cod_estrutural,1,15) = '6.3.2.9.9.00.00' THEN
... ... @@ -380,7 +396,7 @@ BEGIN
380 396 END IF;
381 397 END IF;
382 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 401 stSql := ' SELECT plano_conta.cod_estrutural
386 402 , plano_analitica.cod_plano
... ...
gestaoFinanceira/fontes/PLPGSQL/contabilidade/relatorioFluxoCaixa.plsql
  Diff comments   View file @842bba7
... ... @@ -23,6 +23,7 @@
23 23 /* Script de função PLPGSQL
24 24 * URBEM Soluções de Gestão Pública Ltda
25 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 44 i INTEGER;
44 45 valoresAux NUMERIC;
45 46 valoresAnteriorAux NUMERIC;
  47 +
  48 + stFiltroTrans VARCHAR := '';
  49 + stFiltroExtra VARCHAR := '';
46 50 BEGIN
47 51  
48 52  
... ... @@ -823,7 +827,22 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
823 827 ';
824 828  
825 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 846 stSql := '
828 847 CREATE TEMPORARY TABLE fluxo_balanco_financeiro AS
829 848 SELECT descricao
... ... @@ -850,7 +869,7 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
850 869 , 0.00::NUMERIC AS saldo_creditos_anterior
851 870 , 0.00::NUMERIC AS saldo_final_anterior
852 871 FROM contabilidade.fn_rl_balancete_verificacao( '''||stExercicio||'''
853   - , ''cod_entidade IN ('|| stCodEntidade ||') ''
  872 + , '|| quote_literal(stFiltroTrans) ||'
854 873 , '''||dtInicial||'''
855 874 , '''||dtFinal||'''
856 875 , ''A''::char
... ... @@ -885,7 +904,7 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
885 904 , SUM(vl_saldo_creditos_anterior) AS saldo_creditos_anterior
886 905 , SUM(vl_saldo_atual_anterior) AS saldo_final_anterior
887 906 FROM contabilidade.fn_rl_balancete_verificacao( '''||stExercicioAnterior||'''
888   - , ''cod_entidade IN ('|| stCodEntidade ||') ''
  907 + , '|| quote_literal(stFiltroTrans) ||'
889 908 , '''||dtInicialAnterior||'''
890 909 , '''||dtFinalAnterior||'''
891 910 , ''A''::char
... ... @@ -932,11 +951,12 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
932 951 , 0.00::NUMERIC AS saldo_creditos_anterior
933 952 , 0.00::NUMERIC AS saldo_final_anterior
934 953 FROM contabilidade.fn_rl_balancete_verificacao_transferencias( '''||stExercicio||'''
935   - , ''cod_entidade IN ('|| stCodEntidade ||') ''
  954 + , '|| quote_literal(stFiltroExtra) ||'
936 955 , '''||dtInicial||'''
937 956 , '''||dtFinal||'''
938 957 , ''A''::CHAR
939 958 )
  959 +
940 960 AS retorno ( cod_estrutural varchar
941 961 , nivel integer
942 962 , nom_conta varchar
... ... @@ -975,8 +995,8 @@ dtFinalAnterior := to_char(to_date(dtFinal::text,&#39;dd/mm/yyyy&#39;)- interval
975 995 , SUM(vl_saldo_debitos) AS saldo_debitos_anterior
976 996 , SUM(vl_saldo_creditos) AS saldo_creditos_anterior
977 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 1000 , '''||dtInicialAnterior||'''
981 1001 , '''||dtFinalAnterior||'''
982 1002 , ''A''::CHAR
... ...
gestaoFinanceira/fontes/PLPGSQL/empenho/empenhoEmpenhadoPagoLiquidado.plsql
  Diff comments   View file @842bba7
... ... @@ -357,15 +357,29 @@ BEGIN
357 357 END IF;
358 358  
359 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 376 ON nli.exercicio = nlia.exercicio
362 377 AND nli.cod_nota = nlia.cod_nota
363 378 AND nli.cod_entidade = nlia.cod_entidade
364 379 AND nli.num_item = nlia.num_item
365 380 AND nli.cod_pre_empenho = nlia.cod_pre_empenho
366 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 383 end if;
370 384  
371 385 if (stSituacao = '4') then
... ...
gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacaoDataAtualEmpenho.plsql
  Diff comments   View file @842bba7
... ... @@ -30,7 +30,7 @@
30 30 * @package URBEM
31 31 * @subpackage
32 32  
33   - $Id:$
  33 + $Id: saldoDotacaoDataAtualEmpenho.plsql 66167 2016-07-25 12:46:20Z fabio $
34 34 */
35 35 CREATE OR REPLACE FUNCTION empenho.fn_saldo_dotacao_data_atual_empenho(VARCHAR,INTEGER,VARCHAR,VARCHAR,INTEGER,VARCHAR) RETURNS NUMERIC AS $$
36 36 DECLARE
... ... @@ -40,7 +40,7 @@ DECLARE
40 40 stDataEmpenho ALIAS FOR $4;
41 41 inEntidade ALIAS FOR $5;
42 42 stTipoEmissao ALIAS FOR $6;
43   -
  43 +
44 44 nuTotal NUMERIC := 0.00;
45 45 nuValorOriginal NUMERIC := 0.00;
46 46 nuTotalItens NUMERIC := 0.00;
... ... @@ -56,50 +56,50 @@ BEGIN
56 56 -- stTipoEmissao
57 57 -- 'E' = Empenhos
58 58 -- 'R' = Reservas
59   -
  59 +
60 60 dtInicioExercicio := '01/01/' || stExercicio;
61   -
  61 +
62 62 -- Recupera a data do empenho e seta a data do empenho
63   - SELECT
  63 + SELECT
64 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 67 END AS dataEmpenho
68 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 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 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 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 100 AND e.cod_entidade IN ( inEntidade )
101 101 AND e.exercicio = stExercicio;
102   -
  102 +
103 103 IF stDataEmpenho <> '' THEN
104 104 dtEmpenho := stDataEmpenho;
105 105 END IF;
... ... @@ -115,7 +115,7 @@ BEGIN
115 115 AND exercicio = stExercicio;
116 116  
117 117 IF stTipoEmissao = 'E' THEN
118   -
  118 +
119 119 -- Valor total dos itens, leva me consideração a data final passada como parametro
120 120 SELECT
121 121 COALESCE(sum(vl_total),0.00)
... ... @@ -128,21 +128,21 @@ BEGIN
128 128 , empenho.empenho AS em
129 129 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
130 130 AND pd.exercicio = pe.exercicio
131   -
  131 +
132 132 AND pe.cod_pre_empenho = it.cod_pre_empenho
133 133 AND pe.exercicio = it.exercicio
134   -
  134 +
135 135 AND pe.cod_pre_empenho = em.cod_pre_empenho
136 136 AND pe.exercicio = em.exercicio
137   -
  137 +
138 138 AND pd.exercicio = stExercicio
139 139 AND pd.cod_despesa = inCodDespesa
140   -
  140 +
141 141 AND em.dt_empenho BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
142 142 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
143   -
  143 +
144 144 ELSEIF stTipoEmissao = 'R' THEN
145   -
  145 +
146 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 147 SELECT
148 148 COALESCE(sum(vl_total),0.00)
... ... @@ -155,20 +155,20 @@ BEGIN
155 155 , empenho.empenho AS em
156 156 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
157 157 AND pd.exercicio = pe.exercicio
158   -
  158 +
159 159 AND pe.cod_pre_empenho = it.cod_pre_empenho
160 160 AND pe.exercicio = it.exercicio
161   -
  161 +
162 162 AND pe.cod_pre_empenho = em.cod_pre_empenho
163 163 AND pe.exercicio = em.exercicio
164   -
  164 +
165 165 AND pd.exercicio = stExercicio
166 166 AND pd.cod_despesa = inCodDespesa;
167 167  
168 168 END IF;
169   -
  169 +
170 170 IF stTipoEmissao = 'E' THEN
171   -
  171 +
172 172 -- Valor de reserva
173 173 SELECT
174 174 COALESCE(sum(vl_reserva),0.00)
... ... @@ -176,21 +176,21 @@ BEGIN
176 176 nuValorReserva
177 177 FROM
178 178 orcamento.reserva_saldos AS re
179   -
  179 +
180 180 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
181 181 ON re.cod_reserva = rsa.cod_reserva
182 182 AND re.exercicio = rsa.exercicio
183   -
  183 +
184 184 WHERE re.exercicio = stExercicio
185 185 AND re.cod_despesa = inCodDespesa
186   -
  186 +
187 187 AND re.dt_validade_final <= TO_DATE(stDataAtual, 'yyyy-mm-dd')
188 188 AND re.dt_inclusao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
189 189 AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
190 190 AND rsa.cod_reserva IS NULL;
191 191  
192 192 ELSEIF stTipoEmissao = 'R' THEN
193   -
  193 +
194 194 -- Valor de reserva levando em consideração todo o período
195 195 SELECT
196 196 COALESCE(sum(vl_reserva),0.00)
... ... @@ -198,19 +198,19 @@ BEGIN
198 198 nuValorReserva
199 199 FROM
200 200 orcamento.reserva_saldos AS re
201   -
  201 +
202 202 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
203 203 ON re.cod_reserva = rsa.cod_reserva
204 204 AND re.exercicio = rsa.exercicio
205   -
  205 +
206 206 WHERE re.exercicio = stExercicio
207 207 AND re.cod_despesa = inCodDespesa
208   -
  208 +
209 209 AND re.dt_validade_final <= TO_DATE(stDataAtual, 'yyyy-mm-dd')
210 210 AND rsa.cod_reserva IS NULL;
211   -
  211 +
212 212 END IF;
213   -
  213 +
214 214 IF stTipoEmissao = 'E' THEN
215 215 -- Valor Anulado, leva me consideração a data final passada como parametro
216 216 SELECT
... ... @@ -224,20 +224,20 @@ BEGIN
224 224 , empenho.item_pre_empenho AS it
225 225 , empenho.empenho_anulado_item AS ei
226 226 , empenho.empenho_anulado AS ea
227   -
  227 +
228 228 WHERE de.cod_despesa = pd.cod_despesa
229 229 AND de.exercicio = pd.exercicio
230   -
  230 +
231 231 AND pd.cod_pre_empenho = pe.cod_pre_empenho
232 232 AND pd.exercicio = pe.exercicio
233   -
  233 +
234 234 AND pe.cod_pre_empenho = it.cod_pre_empenho
235 235 AND pe.exercicio = it.exercicio
236   -
  236 +
237 237 AND it.cod_pre_empenho = ei.cod_pre_empenho
238 238 AND it.num_item = ei.num_item
239 239 AND it.exercicio = ei.exercicio
240   -
  240 +
241 241 AND ei.cod_empenho = ea.cod_empenho
242 242 AND ei.exercicio = ea.exercicio
243 243 AND ei.cod_entidade = ea.cod_entidade
... ... @@ -245,11 +245,11 @@ BEGIN
245 245  
246 246 AND de.exercicio = stExercicio
247 247 AND de.cod_despesa = inCodDespesa
248   -
  248 +
249 249 AND TO_DATE(to_char(EA.timestamp,'dd/mm/yyyy'),'dd/mm/yyyy') BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
250 250 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
251 251 ELSEIF stTipoEmissao = 'R' THEN
252   -
  252 +
253 253 -- Valor Anulado, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo
254 254 SELECT
255 255 COALESCE(sum(ei.vl_anulado),0.00)
... ... @@ -262,20 +262,20 @@ BEGIN
262 262 , empenho.item_pre_empenho AS it
263 263 , empenho.empenho_anulado_item AS ei
264 264 , empenho.empenho_anulado AS ea
265   -
  265 +
266 266 WHERE de.cod_despesa = pd.cod_despesa
267 267 AND de.exercicio = pd.exercicio
268   -
  268 +
269 269 AND pd.cod_pre_empenho = pe.cod_pre_empenho
270 270 AND pd.exercicio = pe.exercicio
271   -
  271 +
272 272 AND pe.cod_pre_empenho = it.cod_pre_empenho
273 273 AND pe.exercicio = it.exercicio
274   -
  274 +
275 275 AND it.cod_pre_empenho = ei.cod_pre_empenho
276 276 AND it.num_item = ei.num_item
277 277 AND it.exercicio = ei.exercicio
278   -
  278 +
279 279 AND ei.cod_empenho = ea.cod_empenho
280 280 AND ei.exercicio = ea.exercicio
281 281 AND ei.cod_entidade = ea.cod_entidade
... ... @@ -283,11 +283,11 @@ BEGIN
283 283  
284 284 AND de.exercicio = stExercicio
285 285 AND de.cod_despesa = inCodDespesa;
286   -
  286 +
287 287 END IF;
288   -
  288 +
289 289 IF stTipoEmissao = 'E' THEN
290   -
  290 +
291 291 -- Valor suplementado
292 292 SELECT
293 293 COALESCE( sum(valor), 0.00 )
... ... @@ -295,23 +295,25 @@ BEGIN
295 295 nuValorSuplementado
296 296 FROM
297 297 orcamento.suplementacao_suplementada
298   - , orcamento.suplementacao AS S
299   -
  298 + , orcamento.suplementacao AS S
  299 +
300 300 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
301 301 AND suplementacao_suplementada.exercicio = S.exercicio
302 302  
  303 + AND S.cod_tipo <> 16
  304 +
303 305 AND suplementacao_suplementada.cod_despesa = inCodDespesa
304 306 AND suplementacao_suplementada.exercicio = stExercicio
305 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 309 AND NOT EXISTS ( SELECT 1
308 310 FROM orcamento.suplementacao_anulada osa
309 311 WHERE cod_suplementacao = S.cod_suplementacao
310 312 AND osa.exercicio = stExercicio
311 313 );
312   -
  314 +
313 315 ELSEIF stTipoEmissao = 'R' THEN
314   -
  316 +
315 317 -- Valor suplementado
316 318 SELECT
317 319 COALESCE( sum(valor), 0.00 )
... ... @@ -319,11 +321,13 @@ BEGIN
319 321 nuValorSuplementado
320 322 FROM
321 323 orcamento.suplementacao_suplementada
322   - , orcamento.suplementacao AS S
323   -
  324 + , orcamento.suplementacao AS S
  325 +
324 326 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
325 327 AND suplementacao_suplementada.exercicio = S.exercicio
326 328  
  329 + AND S.cod_tipo <> 16
  330 +
327 331 AND suplementacao_suplementada.cod_despesa = inCodDespesa
328 332 AND suplementacao_suplementada.exercicio = stExercicio
329 333 AND NOT EXISTS ( SELECT 1
... ... @@ -333,21 +337,21 @@ BEGIN
333 337 );
334 338  
335 339 END IF;
336   -
  340 +
337 341 IF stTipoEmissao = 'E' THEN
338   -
  342 +
339 343 -- Valor da Suplementação Reduzida
340 344 SELECT
341 345 COALESCE( sum(valor), 0.00 )
342 346 INTO
343 347 nuValorReduzido
344 348 FROM orcamento.suplementacao_reducao
345   -
  349 +
346 350 INNER JOIN orcamento.suplementacao
347 351 ON suplementacao.exercicio = suplementacao_reducao.exercicio
348 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 355 AND suplementacao_reducao.exercicio = stExercicio
352 356 AND suplementacao.dt_suplementacao BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
353 357 AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
... ... @@ -357,21 +361,21 @@ BEGIN
357 361 WHERE cod_suplementacao = suplementacao.cod_suplementacao
358 362 AND osa.exercicio = stExercicio
359 363 );
360   -
  364 +
361 365 ELSEIF stTipoEmissao = 'R' THEN
362   -
  366 +
363 367 -- Valor da Suplementação Reduzida
364 368 SELECT
365 369 COALESCE( sum(valor), 0.00 )
366 370 INTO
367 371 nuValorReduzido
368 372 FROM orcamento.suplementacao_reducao
369   -
  373 +
370 374 INNER JOIN orcamento.suplementacao
371 375 ON suplementacao.exercicio = suplementacao_reducao.exercicio
372 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 379 AND suplementacao_reducao.exercicio = stExercicio
376 380 AND cod_tipo <> 16
377 381 AND NOT EXISTS ( SELECT 1
... ...
gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacaoDataEmpenho.plsql
  Diff comments   View file @842bba7
... ... @@ -30,7 +30,7 @@
30 30 * @package URBEM
31 31 * @subpackage
32 32  
33   - $Id:$
  33 + $Id: saldoDotacaoDataEmpenho.plsql 66167 2016-07-25 12:46:20Z fabio $
34 34 */
35 35 CREATE OR REPLACE FUNCTION empenho.fn_saldo_dotacao_data_empenho(VARCHAR,INTEGER,VARCHAR,INTEGER,VARCHAR) RETURNS NUMERIC AS $$
36 36 DECLARE
... ... @@ -39,7 +39,7 @@ DECLARE
39 39 stDataEmpenho ALIAS FOR $3;
40 40 inEntidade ALIAS FOR $4;
41 41 stTipoEmissao ALIAS FOR $5;
42   -
  42 +
43 43 nuTotal NUMERIC := 0.00;
44 44 nuValorOriginal NUMERIC := 0.00;
45 45 nuTotalItens NUMERIC := 0.00;
... ... @@ -51,60 +51,60 @@ DECLARE
51 51 dtEmpenho VARCHAR := '';
52 52 dtInicioExercicio VARCHAR := '';
53 53 BEGIN
54   -
  54 +
55 55 -- stTipoEmissao
56 56 -- 'E' = Empenhos
57 57 -- 'R' = Reservas
58   -
  58 +
59 59 dtInicioExercicio := '01/01/' || stExercicio;
60   -
  60 +
61 61 -- Recupera a data do empenho e seta a data
62   - SELECT
  62 + SELECT
63 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 67 END AS dataEmpenho
68 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 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 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 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 101 AND e.cod_entidade IN (inEntidade)
102 102 AND e.exercicio = stExercicio;
103   -
  103 +
104 104 IF stDataEmpenho <> '' THEN
105 105 dtEmpenho := stDataEmpenho;
106 106 END IF;
107   -
  107 +
108 108 -- Valor Original
109 109 SELECT
110 110 COALESCE(vl_original,0.00)
... ... @@ -114,9 +114,9 @@ BEGIN
114 114 orcamento.despesa
115 115 WHERE cod_despesa = inCodDespesa
116 116 AND exercicio = stExercicio;
117   -
  117 +
118 118 IF stTipoEmissao = 'E' THEN
119   -
  119 +
120 120 -- Valor total dos itens, leva me consideração a data final passada como parametro
121 121 SELECT
122 122 COALESCE(sum(vl_total),0.00)
... ... @@ -129,21 +129,21 @@ BEGIN
129 129 , empenho.empenho AS em
130 130 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
131 131 AND pd.exercicio = pe.exercicio
132   -
  132 +
133 133 AND pe.cod_pre_empenho = it.cod_pre_empenho
134 134 AND pe.exercicio = it.exercicio
135   -
  135 +
136 136 AND pe.cod_pre_empenho = em.cod_pre_empenho
137 137 AND pe.exercicio = em.exercicio
138   -
  138 +
139 139 AND pd.exercicio = stExercicio
140 140 AND pd.cod_despesa = inCodDespesa
141   -
  141 +
142 142 AND em.dt_empenho BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
143 143 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
144   -
  144 +
145 145 ELSEIF stTipoEmissao = 'R' THEN
146   -
  146 +
147 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 148 SELECT
149 149 COALESCE(sum(vl_total),0.00)
... ... @@ -156,31 +156,31 @@ BEGIN
156 156 , empenho.empenho AS em
157 157 WHERE pd.cod_pre_empenho = pe.cod_pre_empenho
158 158 AND pd.exercicio = pe.exercicio
159   -
  159 +
160 160 AND pe.cod_pre_empenho = it.cod_pre_empenho
161 161 AND pe.exercicio = it.exercicio
162   -
  162 +
163 163 AND pe.cod_pre_empenho = em.cod_pre_empenho
164 164 AND pe.exercicio = em.exercicio
165   -
  165 +
166 166 AND pd.exercicio = stExercicio
167 167 AND pd.cod_despesa = inCodDespesa;
168 168  
169 169 END IF;
170 170  
171 171 IF stTipoEmissao = 'E' THEN
172   -
  172 +
173 173 -- Valor de reserva
174 174 SELECT COALESCE(sum(vl_reserva),0.00)
175 175 INTO
176 176 nuValorReserva
177 177 FROM
178 178 orcamento.reserva_saldos AS re
179   -
  179 +
180 180 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
181 181 ON re.cod_reserva = rsa.cod_reserva
182 182 AND re.exercicio = rsa.exercicio
183   -
  183 +
184 184 WHERE re.exercicio = stExercicio
185 185 AND re.cod_despesa = inCodDespesa
186 186 AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd')
... ... @@ -188,28 +188,28 @@ BEGIN
188 188 AND TO_DATE(dtEmpenho,'dd/mm/yyyy')
189 189 AND EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio
190 190 AND rsa.cod_reserva IS NULL;
191   -
  191 +
192 192 ELSEIF stTipoEmissao = 'R' THEN
193   -
  193 +
194 194 -- Valor de reserva levando em consideração todo o período
195 195 SELECT COALESCE(sum(vl_reserva),0.00)
196 196 INTO
197 197 nuValorReserva
198 198 FROM
199 199 orcamento.reserva_saldos AS re
200   -
  200 +
201 201 LEFT JOIN orcamento.reserva_saldos_anulada AS rsa
202 202 ON re.cod_reserva = rsa.cod_reserva
203 203 AND re.exercicio = rsa.exercicio
204   -
  204 +
205 205 WHERE re.exercicio = stExercicio
206 206 AND re.cod_despesa = inCodDespesa
207 207 AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd')
208 208 AND EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio
209 209 AND rsa.cod_reserva IS NULL;
210   -
  210 +
211 211 END IF;
212   -
  212 +
213 213 IF stTipoEmissao = 'E' THEN
214 214 -- Valor Anulado, leva me consideração a data final passada como parametro
215 215 SELECT
... ... @@ -223,20 +223,20 @@ BEGIN
223 223 , empenho.item_pre_empenho AS it
224 224 , empenho.empenho_anulado_item AS ei
225 225 , empenho.empenho_anulado AS ea
226   -
  226 +
227 227 WHERE de.cod_despesa = pd.cod_despesa
228 228 AND de.exercicio = pd.exercicio
229   -
  229 +
230 230 AND pd.cod_pre_empenho = pe.cod_pre_empenho
231 231 AND pd.exercicio = pe.exercicio
232   -
  232 +
233 233 AND pe.cod_pre_empenho = it.cod_pre_empenho
234 234 AND pe.exercicio = it.exercicio
235   -
  235 +
236 236 AND it.cod_pre_empenho = ei.cod_pre_empenho
237 237 AND it.num_item = ei.num_item
238 238 AND it.exercicio = ei.exercicio
239   -
  239 +
240 240 AND ei.cod_empenho = ea.cod_empenho
241 241 AND ei.exercicio = ea.exercicio
242 242 AND ei.cod_entidade = ea.cod_entidade
... ... @@ -244,11 +244,11 @@ BEGIN
244 244  
245 245 AND de.exercicio = stExercicio
246 246 AND de.cod_despesa = inCodDespesa
247   -
  247 +
248 248 AND TO_DATE(to_char(EA.timestamp,'dd/mm/yyyy'),'dd/mm/yyyy') BETWEEN TO_DATE(dtInicioExercicio,'dd/mm/yyyy')
249 249 AND TO_DATE(dtEmpenho,'dd/mm/yyyy');
250 250 ELSEIF stTipoEmissao = 'R' THEN
251   -
  251 +
252 252 -- Valor Anulado, não leva em consideração a data final passada pelo parametro, sendo levado em consideração o periodo todo
253 253 SELECT
254 254 COALESCE(sum(ei.vl_anulado),0.00)
... ... @@ -261,20 +261,20 @@ BEGIN
261 261 , empenho.item_pre_empenho AS it
262 262 , empenho.empenho_anulado_item AS ei
263 263 , empenho.empenho_anulado AS ea
264   -
  264 +
265 265 WHERE de.cod_despesa = pd.cod_despesa
266 266 AND de.exercicio = pd.exercicio
267   -
  267 +
268 268 AND pd.cod_pre_empenho = pe.cod_pre_empenho
269 269 AND pd.exercicio = pe.exercicio
270   -
  270 +
271 271 AND pe.cod_pre_empenho = it.cod_pre_empenho
272 272 AND pe.exercicio = it.exercicio
273   -
  273 +
274 274 AND it.cod_pre_empenho = ei.cod_pre_empenho
275 275 AND it.num_item = ei.num_item
276 276 AND it.exercicio = ei.exercicio
277   -
  277 +
278 278 AND ei.cod_empenho = ea.cod_empenho
279 279 AND ei.exercicio = ea.exercicio
280 280 AND ei.cod_entidade = ea.cod_entidade
... ... @@ -282,11 +282,11 @@ BEGIN
282 282  
283 283 AND de.exercicio = stExercicio
284 284 AND de.cod_despesa = inCodDespesa;
285   -
  285 +
286 286 END IF;
287 287  
288 288 IF stTipoEmissao = 'E' THEN
289   -
  289 +
290 290 -- Valor suplementado
291 291 SELECT
292 292 COALESCE( sum(valor), 0.00 )
... ... @@ -294,23 +294,26 @@ BEGIN
294 294 nuValorSuplementado
295 295 FROM
296 296 orcamento.suplementacao_suplementada
297   - , orcamento.suplementacao AS S
298   -
  297 + , orcamento.suplementacao AS S
  298 +
299 299 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
300 300 AND suplementacao_suplementada.exercicio = S.exercicio
301 301  
302 302 AND suplementacao_suplementada.cod_despesa = inCodDespesa
303 303 AND suplementacao_suplementada.exercicio = stExercicio
  304 +
  305 + AND S.cod_tipo <> 16
  306 +
304 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 309 AND NOT EXISTS ( SELECT 1
307 310 FROM orcamento.suplementacao_anulada osa
308 311 WHERE cod_suplementacao = S.cod_suplementacao
309 312 AND osa.exercicio = stExercicio
310 313 );
311   -
  314 +
312 315 ELSEIF stTipoEmissao = 'R' THEN
313   -
  316 +
314 317 -- Valor suplementado
315 318 SELECT
316 319 COALESCE( sum(valor), 0.00 )
... ... @@ -318,13 +321,16 @@ BEGIN
318 321 nuValorSuplementado
319 322 FROM
320 323 orcamento.suplementacao_suplementada
321   - , orcamento.suplementacao AS S
322   -
  324 + , orcamento.suplementacao AS S
  325 +
323 326 WHERE suplementacao_suplementada.cod_suplementacao = S.cod_suplementacao
324 327 AND suplementacao_suplementada.exercicio = S.exercicio
325 328  
326 329 AND suplementacao_suplementada.cod_despesa = inCodDespesa
327 330 AND suplementacao_suplementada.exercicio = stExercicio
  331 +
  332 + AND S.cod_tipo <> 16
  333 +
328 334 AND NOT EXISTS ( SELECT 1
329 335 FROM orcamento.suplementacao_anulada osa
330 336 WHERE cod_suplementacao = S.cod_suplementacao
... ... @@ -332,16 +338,16 @@ BEGIN
332 338 );
333 339  
334 340 END IF;
335   -
  341 +
336 342 IF stTipoEmissao = 'E' THEN
337   -
  343 +
338 344 -- Valor da Suplementação Reduzida
339 345 SELECT
340 346 COALESCE( sum(valor), 0.00 )
341 347 INTO
342 348 nuValorReduzido
343 349 FROM orcamento.suplementacao_reducao
344   -
  350 +
345 351 INNER JOIN orcamento.suplementacao
346 352 ON suplementacao.exercicio = suplementacao_reducao.exercicio
347 353 AND suplementacao.cod_suplementacao = suplementacao_reducao.cod_suplementacao
... ... @@ -356,21 +362,21 @@ BEGIN
356 362 WHERE cod_suplementacao = suplementacao.cod_suplementacao
357 363 AND osa.exercicio = stExercicio
358 364 );
359   -
  365 +
360 366 ELSEIF stTipoEmissao = 'R' THEN
361   -
  367 +
362 368 -- Valor da Suplementação Reduzida
363 369 SELECT
364 370 COALESCE( sum(valor), 0.00 )
365 371 INTO
366 372 nuValorReduzido
367 373 FROM orcamento.suplementacao_reducao
368   -
  374 +
369 375 INNER JOIN orcamento.suplementacao
370 376 ON suplementacao.exercicio = suplementacao_reducao.exercicio
371 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 380 AND suplementacao_reducao.exercicio = stExercicio
375 381 AND cod_tipo <> 16
376 382 AND NOT EXISTS ( SELECT 1
... ...
gestaoFinanceira/fontes/PLPGSQL/orcamento/tipoContaReceita.plsql
  Diff comments   View file @842bba7
... ... @@ -26,45 +26,36 @@
26 26 * URBEM Soluções de Gestão Pública Ltda
27 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 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 34 CREATE OR REPLACE FUNCTION orcamento.fn_tipo_conta_receita(varchar,varchar) RETURNS VARCHAR AS $$
45 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 42 BEGIN
53 43  
  44 + stMascaraReduzida := publico.fn_mascarareduzida(stMask);
  45 +
54 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 59 END;
69 60 $$ language 'plpgsql';
70 61  
... ...