diff --git a/atualizador.sh b/atualizador.sh index 36e98df..0edf2e0 100755 --- a/atualizador.sh +++ b/atualizador.sh @@ -27,8 +27,8 @@ # # $Revision: 28724 $ # $Name$ -# $Author: silvia $ -# $Date: 2014-10-15 15:11:01 -0300 (Qua, 15 Out 2014) $ +# $Author: luciana $ +# $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ trap "" 2 export LC_ALL=pt_BR.UTF-8 @@ -513,6 +513,7 @@ definePermissao(){ controle=`find $raizWWW -type d -exec chmod 755 {} \;` controle=`find $raizWWW -type f -exec chmod 644 {} \;` controle=`chmod 777 $raizWWW/gestaoAdministrativa/fontes/PHP/framework/tmp 1>/dev/null` + controle=`chmod 777 $raizWWW/gestaoAdministrativa/fontes/PHP/normas/anexos 1>/dev/null` forceInfo "Permissoes ajustadas. " 1 } diff --git a/gestaoAdministrativa/fontes/PHP/administracao/administracao/usuarios/interfaceUsuario.class.php b/gestaoAdministrativa/fontes/PHP/administracao/administracao/usuarios/interfaceUsuario.class.php index d06163f..97f0ec2 100755 --- a/gestaoAdministrativa/fontes/PHP/administracao/administracao/usuarios/interfaceUsuario.class.php +++ b/gestaoAdministrativa/fontes/PHP/administracao/administracao/usuarios/interfaceUsuario.class.php @@ -139,22 +139,22 @@ class interfaceUsuario - + Username - + Nome - + Username - + CNPJ diff --git a/gestaoAdministrativa/fontes/PHP/administracao/classes/negocio/RCadastroDinamico.class.php b/gestaoAdministrativa/fontes/PHP/administracao/classes/negocio/RCadastroDinamico.class.php index cd9c4f4..a1b7cf4 100755 --- a/gestaoAdministrativa/fontes/PHP/administracao/classes/negocio/RCadastroDinamico.class.php +++ b/gestaoAdministrativa/fontes/PHP/administracao/classes/negocio/RCadastroDinamico.class.php @@ -30,7 +30,7 @@ * @author Analista: Cassiano * @author Desenvolvedor: Cassiano -$Id: RCadastroDinamico.class.php 59820 2014-09-12 18:17:20Z luciana $ +$Id: RCadastroDinamico.class.php 61726 2015-02-27 16:39:09Z luciana $ $Revision: 20901 $ $Name$ @@ -478,7 +478,7 @@ function recuperaAtributosSelecionados(&$rsRecordSet, $stOrder = "", $boTransaca */ function recuperaAtributosSelecionadosValores(&$rsRecordSet, $stFiltro="" ,$stOrder="" ,$boTransacao = "") { - return $this->_recuperaAtributosSelecionadosValores( true, $rsRecordSet, $stFiltro="" ,$stOrder="" ,$boTransacao); + return $this->_recuperaAtributosSelecionadosValores( true, $rsRecordSet, $stFiltro ,$stOrder ,$boTransacao); } /** @@ -491,7 +491,7 @@ function recuperaAtributosSelecionadosValores(&$rsRecordSet, $stFiltro="" ,$stOr */ function consultaAtributosSelecionadosValores(&$rsRecordSet, $stFiltro="" ,$stOrder="" ,$boTransacao = "") { - return $this->_recuperaAtributosSelecionadosValores( false, $rsRecordSet, $stFiltro="" ,$stOrder="" ,$boTransacao); + return $this->_recuperaAtributosSelecionadosValores( false, $rsRecordSet, $stFiltro ,$stOrder ,$boTransacao); } function _recuperaAtributosSelecionadosValores($boAtivos, &$rsRecordSet, $stFiltro="" ,$stOrder="" ,$boTransacao) diff --git a/gestaoAdministrativa/fontes/PHP/framework/URBEM/SistemaLegado.class.php b/gestaoAdministrativa/fontes/PHP/framework/URBEM/SistemaLegado.class.php index bacec78..72fcb00 100644 --- a/gestaoAdministrativa/fontes/PHP/framework/URBEM/SistemaLegado.class.php +++ b/gestaoAdministrativa/fontes/PHP/framework/URBEM/SistemaLegado.class.php @@ -184,6 +184,33 @@ public static function isAL($boTransacao = '') return false; } +public static function isTCMGO($boTransacao = '') +{ + $stSql = "SELECT + valor + FROM + administracao.configuracao + WHERE + cod_modulo = 2 + AND parametro = 'cod_uf' + AND exercicio = '".Sessao::getExercicio()."' + "; + + $obConexao = new Conexao; + $obErro = new Erro; + $obRecordSet = new RecordSet; + + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + if ( $obErro->ocorreu() ) { + return false; + } + if ( ( trim($rsRecordSet->getCampo('valor')) == trim('9') ) ) { + return true; + } + + return false; +} + /**************************************************************************/ /**** Retorna um dado de qualquer tabela ***/ /**************************************************************************/ diff --git a/gestaoAdministrativa/fontes/PHP/framework/bancoDados/postgreSQL/Conexao.class.php b/gestaoAdministrativa/fontes/PHP/framework/bancoDados/postgreSQL/Conexao.class.php index 9644adf..db79e46 100755 --- a/gestaoAdministrativa/fontes/PHP/framework/bancoDados/postgreSQL/Conexao.class.php +++ b/gestaoAdministrativa/fontes/PHP/framework/bancoDados/postgreSQL/Conexao.class.php @@ -301,12 +301,12 @@ class Conexao extends Objeto public function executaDML($stSql, $boTransacao = "") { $stSql = $this->filtroEntidadeRh($stSql); - if (constant('ENV_TYPE') == 'dev') { - echo '
';
-            echo 'DebugSQL';
-            echo $stSql;
-            echo '
'; - } + #if (constant('ENV_TYPE') == 'dev') { + # echo '
';
+        #    echo 'DebugSQL';
+        #    echo $stSql;
+        #    echo '
'; + #} if (Sessao::getTrataExcecao()) { diff --git a/gestaoAdministrativa/fontes/PHP/framework/birt/classes/PreviewBirt.class.php b/gestaoAdministrativa/fontes/PHP/framework/birt/classes/PreviewBirt.class.php index 14110bd..7e903ae 100644 --- a/gestaoAdministrativa/fontes/PHP/framework/birt/classes/PreviewBirt.class.php +++ b/gestaoAdministrativa/fontes/PHP/framework/birt/classes/PreviewBirt.class.php @@ -32,7 +32,7 @@ * @author Analista: Lucas Stephanou * @author Desenvolvedor: Lucas Stephanou * - * $Id: PreviewBirt.class.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: PreviewBirt.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-01.00.00 * ***********************************************************************/ @@ -286,7 +286,7 @@ class PreviewBirt $this->arParametros = array(); $this->setFormato("html"); $this->setNomeArquivo(null); - $this->setVersaoBirt("2.1.1"); + $this->setVersaoBirt("2.5.0"); $this->addParametro("inCodGestao", $inCodGestao); $this->addParametro("inCodModulo", $inCodModulo); $this->addParametro("inCodRelatorio", $inCodRelatorio); @@ -310,9 +310,9 @@ class PreviewBirt public function addParametro($stNome, $stValor) { - if ( mb_check_encoding($stValor, "UTF-8") ) { - $stValor = utf8_decode($stValor); - } + #if ( mb_check_encoding($stValor, "UTF-8") ) { + # $stValor = utf8_decode($stValor); + #} if (in_array(array( @@ -397,6 +397,10 @@ class PreviewBirt public function preview() { + # Aguardando testes para envio do novo Viewer. + # Todos os relatórios do Urbem serão exibidos no Viewer 4.4.0 + # $this->setVersaoBirt('4.4.0'); + # Instancia da classe Conexao $obConexao = new Conexao(); diff --git a/gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/MontaAtributos.class.php b/gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/MontaAtributos.class.php index 1b8385f..8db03a1 100755 --- a/gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/MontaAtributos.class.php +++ b/gestaoAdministrativa/fontes/PHP/framework/componentes/HTML/MontaAtributos.class.php @@ -34,7 +34,7 @@ * @package framework * @subpackage componentes -$Id: MontaAtributos.class.php 60430 2014-10-21 12:23:56Z silvia $ +$Id: MontaAtributos.class.php 61767 2015-03-03 12:28:44Z luciana $ Casos de uso: uc-01.01.00 @@ -182,11 +182,6 @@ function geraFormulario(&$obFormulario) $obFormulario->addTitulo( $this->getTitulo() ); - if (!$this->rsRecordSet->eof()) { - $this->rsRecordSet->ordena('nom_atributo'); - $this->rsRecordSet->ordena('cod_tipo'); - } - while (!$this->rsRecordSet->eof()) { if( $this->rsRecordSet->getCampo('cod_tipo') && !$this->rsRecordSet->getCampo('cod_cadastro') ) $stAtributo = $this->getName().$this->rsRecordSet->getCampo('cod_atributo').'_'.$this->rsRecordSet->getCampo('cod_tipo'); diff --git a/gestaoAdministrativa/fontes/PHP/framework/legado/imagens/copiaDigitalLegado.php b/gestaoAdministrativa/fontes/PHP/framework/legado/imagens/copiaDigitalLegado.php index 6796e1f..4b3f6fc 100755 --- a/gestaoAdministrativa/fontes/PHP/framework/legado/imagens/copiaDigitalLegado.php +++ b/gestaoAdministrativa/fontes/PHP/framework/legado/imagens/copiaDigitalLegado.php @@ -81,7 +81,7 @@ $dbEmp->fechaBD(); '; } } + + # No images if ($imagem == "f") { $arqName = explode(".", $docDigital['name']); @@ -308,7 +317,7 @@ switch ($ctrl) { $arqName = explode(".", $arquivo_modificado); $arq = substr(Sessao::getId(),10,6); - $docDigital['name'] = $codDoc."_".$arq."_".$arqName[0]."_".date("d-m-Y-H-i-s", time()).".".$arqName[1]; + $docDigital['name'] = $codDoc."_".$arq."_".date("d-m-Y-H-i-s", time())."§".$arqName[0].".".$arqName[1]; if ($docDigital['size'] > 1000000) { $erros++; @@ -322,14 +331,19 @@ switch ($ctrl) { if ($erros == 0) { $pasta = CAM_PROTOCOLO."tmp/".$dirSession; - if (!file_exists ( $pasta )) { - mkdir($pasta, 0777); - } + + if (!file_exists ( $pasta )) { + mkdir($pasta, 0777); + } + $pasta = CAM_PROTOCOLO."tmp/".$dirSession."/".$codDoc; - if (!file_exists ( $pasta )) { - mkdir($pasta, 0777); - } + + if (!file_exists ( $pasta )) { + mkdir($pasta, 0777); + } + $pasta = $pasta."/".$docDigital['name']; + copy($docDigital['tmp_name'], $pasta); $controlaTumb = 1 ; unset($ctrl); diff --git a/gestaoAdministrativa/fontes/PHP/framework/legado/processosLegado.class.php b/gestaoAdministrativa/fontes/PHP/framework/legado/processosLegado.class.php index 22cc52b..1cf052e 100755 --- a/gestaoAdministrativa/fontes/PHP/framework/legado/processosLegado.class.php +++ b/gestaoAdministrativa/fontes/PHP/framework/legado/processosLegado.class.php @@ -35,7 +35,7 @@ Casos de uso: uc-01.01.00 - $Id: processosLegado.class.php 60355 2014-10-15 18:11:01Z silvia $ + $Id: processosLegado.class.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -589,20 +589,30 @@ class processosLegado if ($fileDoc == '.' || $fileDoc == '..') { continue; } + $extensao = explode(".", $fileDoc); + $oldFile = explode("§", $fileDoc); + if ($extensao[1] == "jpg") { $imagem = "t"; } else { $imagem = "f"; } - $dirAnexo = pegaConfiguracao("diretorio")."/anexos/".$codDocumentoProcesso."_".$val."_".$codProcesso."_".$anoExercicio.".".$extensao[1]; - $dirAnexo = CAM_PROTOCOLO."anexos/".$codDocumentoProcesso."_".$val."_".$codProcesso."_".$anoExercicio.".".$extensao[1]; - $nomeArquivo = $codDocumentoProcesso."_".$val."_".$codProcesso."_".$anoExercicio.".".$extensao[1]; + $dirAnexo = pegaConfiguracao("diretorio")."/anexos/".$codDocumentoProcesso."_".$val."_".$codProcesso."_".$anoExercicio."_".$oldFile[1]; + $dirAnexo = CAM_PROTOCOLO."anexos/".$codDocumentoProcesso."_".$val."_".$codProcesso."_".$anoExercicio."_".$oldFile[1]; + + # Nome do arquivo formatado para ser único + $stNomeArquivo = $codDocumentoProcesso.'_'.$val.'_'.$codProcesso.'_'.$anoExercicio."_".$oldFile[1]; + $fileDoc = $dirDoc."/".$fileDoc; + + # Copia o arquivo para o diretório protocolo/tmp + $stDirTmp = CAM_PROTOCOLO."tmp/".$stNomeArquivo; + copy($fileDoc, $stDirTmp); + + # Copia para o diretório anexos, usado para exibir os anexos. copy($fileDoc, $dirAnexo); - echo "$codDocumentoProcesso - $val - $codProcesso - $anoExercicio - $imagem - $dirAnexo"; if ($teste_erro==0) { if ( !$obErro->ocorreu() ) { @@ -621,7 +631,7 @@ class processosLegado $obTProtocoloCopiaDigital->setDado( "cod_processo" , $codProcesso ); $obTProtocoloCopiaDigital->setDado( "exercicio" , $anoExercicio ); $obTProtocoloCopiaDigital->setDado( "imagem" , $imagem ); - $obTProtocoloCopiaDigital->setDado( "anexo" , $nomeArquivo ); + $obTProtocoloCopiaDigital->setDado( "anexo" , $stNomeArquivo ); $obErro = $obTProtocoloCopiaDigital->inclusao( $obTransacao ); } $codDocumentoProcesso = $codDocumentoProcesso + 1; @@ -1351,6 +1361,8 @@ Método para editar um processo continue; } $extensao = explode(".", $arqDoc); + $oldFile = explode("§", $fileDoc); + if ($extensao[1] == "jpg") { $tipoAn = "t"; } else { diff --git a/gestaoAdministrativa/fontes/PHP/framework/temas/padrao/imagens/PMMP.jpg b/gestaoAdministrativa/fontes/PHP/framework/temas/padrao/imagens/PMMP.jpg new file mode 100755 index 0000000..13e677d Binary files /dev/null and b/gestaoAdministrativa/fontes/PHP/framework/temas/padrao/imagens/PMMP.jpg differ diff --git a/gestaoAdministrativa/fontes/PHP/normas/classes/mapeamento/TNorma.class.php b/gestaoAdministrativa/fontes/PHP/normas/classes/mapeamento/TNorma.class.php index c928a31..b05c0e6 100755 --- a/gestaoAdministrativa/fontes/PHP/normas/classes/mapeamento/TNorma.class.php +++ b/gestaoAdministrativa/fontes/PHP/normas/classes/mapeamento/TNorma.class.php @@ -60,7 +60,7 @@ function TNorma() $this->setTabela('normas.norma'); $this->setCampoCod('cod_norma'); - $this->setComplementoChave(''); + $this->setComplementoChave('exercicio, cod_tipo_norma, num_norma'); $this->AddCampo('cod_norma' ,'integer' ,true ,'' ,true ,false); $this->AddCampo('cod_tipo_norma','integer' ,true ,'' ,false ,true ); @@ -68,9 +68,9 @@ function TNorma() $this->AddCampo('nom_norma' ,'varchar' ,true ,'40' ,false ,false); $this->AddCampo('descricao' ,'text' ,true ,'' ,false ,false); $this->AddCampo('link' ,'varchar' ,true ,'80' ,false ,false); - $this->AddCampo('exercicio' ,'varchar' ,true ,'4' ,false ,false); + $this->AddCampo('exercicio' ,'varchar' ,true ,'4' ,true ,false); $this->AddCampo('num_norma' ,'varchar' ,true ,'' ,true ,false); - $this->AddCampo('dt_assinatura' ,'date' ,true ,'' ,false ,true ); + $this->AddCampo('dt_assinatura' ,'date' ,true ,'' ,false ,false ); } function recuperaNormas(&$rsRecordSet, $stFiltro = "", $stOrdem ="", $boTransacao = "") @@ -397,4 +397,29 @@ function montaRecuperaDadosExportacaoLDO() return $stSql; } + +function recuperaUltimoCodNorma(&$rsRecordSet, $boTransacao = "") +{ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaUltimoCodNorma(); + + $this->setDebug( $stSql ); + + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; +} + +function montaRecuperaUltimoCodNorma() +{ + $stSql = " SELECT MAX(cod_norma) as ultimo_cod_norma + FROM normas.norma + "; + return $stSql; +} + + + } diff --git a/gestaoAdministrativa/fontes/PHP/normas/classes/negocio/RNorma.class.php b/gestaoAdministrativa/fontes/PHP/normas/classes/negocio/RNorma.class.php index 69b4be3..c92d4c5 100755 --- a/gestaoAdministrativa/fontes/PHP/normas/classes/negocio/RNorma.class.php +++ b/gestaoAdministrativa/fontes/PHP/normas/classes/negocio/RNorma.class.php @@ -34,7 +34,7 @@ $Revision: 27553 $ $Name$ $Author: melo $ $Date: 2008-01-15 17:12:04 -0200 (Ter, 15 Jan 2008) $ -$Id: RNorma.class.php 61411 2015-01-14 19:48:22Z luciana $ +$Id: RNorma.class.php 61647 2015-02-20 11:26:55Z luciana $ Casos de uso: uc-01.04.02 */ @@ -486,20 +486,20 @@ function salvar($boTransacao = "") if ( !$obErro->ocorreu() ) { - $this->obTNorma->setDado("dt_publicacao" , $this->getDataPublicacao() ); - $this->obTNorma->setDado("dt_assinatura" , $this->getDataAssinatura() ); - $this->obTNorma->setDado("nom_norma" , $this->getNomeNorma() ); - $this->obTNorma->setDado("descricao" , $this->getDescricaoNorma() ); - $this->obTNorma->setDado("link" , $this->getNomeArquivo() ); - $this->obTNorma->setDado("exercicio" , $this->getExercicio() ); - $this->obTNorma->setDado("num_norma" , $this->getNumNorma() ); - $this->obTNorma->setDado("cod_tipo_norma", $this->obRTipoNorma->getCodTipoNorma() ); - $inCodNorma = $this->getCodNorma(); if (isset($inCodNorma)) { - + $this->obTNorma->setDado("dt_publicacao" , $this->getDataPublicacao() ); + $this->obTNorma->setDado("dt_assinatura" , $this->getDataAssinatura() ); + $this->obTNorma->setDado("nom_norma" , $this->getNomeNorma() ); + $this->obTNorma->setDado("descricao" , $this->getDescricaoNorma() ); + $this->obTNorma->setDado("link" , $this->getNomeArquivo() ); + $this->obTNorma->setDado("exercicio" , $this->getExercicio() ); + $this->obTNorma->setDado("num_norma" , $this->getNumNorma() ); + $this->obTNorma->setDado("cod_tipo_norma", $this->obRTipoNorma->getCodTipoNorma() ); + $obErro = $this->validarNumeroNorma( $this->getCodNorma(), $boTransacao ); + if ( !$obErro->ocorreu() ) { $this->obTNorma->setDado("cod_norma", $this->getCodNorma() ); $obErro = $this->obTNorma->alteracao( $boTransacao ); @@ -520,11 +520,21 @@ function salvar($boTransacao = "") } else { $obErro = $this->validarNumeroNorma( $this->getCodNorma(), $boTransacao ); - if ( !$obErro->ocorreu() ) { - $this->obTNorma->proximoCod( $inCodNorma , $boTransacao ); - $this->setCodNorma( $inCodNorma ); - $this->obTNorma->setDado("cod_norma", $this->getCodNorma() ); + if ( !$obErro->ocorreu() ) { + $this->obTNorma->proximoCod( $inCodNorma , $boTransacao ); + $this->setCodNorma($inCodNorma); + + $this->obTNorma->setDado("cod_norma" , $this->getCodNorma() ); + $this->obTNorma->setDado("dt_publicacao" , $this->getDataPublicacao() ); + $this->obTNorma->setDado("dt_assinatura" , $this->getDataAssinatura() ); + $this->obTNorma->setDado("nom_norma" , $this->getNomeNorma() ); + $this->obTNorma->setDado("descricao" , $this->getDescricaoNorma() ); + $this->obTNorma->setDado("link" , $this->getNomeArquivo() ); + $this->obTNorma->setDado("exercicio" , $this->getExercicio() ); + $this->obTNorma->setDado("num_norma" , $this->getNumNorma() ); + $this->obTNorma->setDado("cod_tipo_norma", $this->obRTipoNorma->getCodTipoNorma() ); $obErro = $this->obTNorma->inclusao( $boTransacao ); + if ( !$obErro->ocorreu() ) { $this->obTNormaTipoNorma->setDado("cod_norma", $this->getCodNorma() ); $this->obTNormaTipoNorma->setDado("cod_tipo_norma", $this->obRTipoNorma->getCodTipoNorma() ); @@ -701,7 +711,7 @@ function excluir($boTransacao = "") if ( !$obErro->ocorreu() ) { $this->obTNormaDataTermino->setDado("cod_norma", $this->getCodNorma() ); $obErro = $this->obTNormaDataTermino->exclusao( $boTransacao ); - if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio())==11) { + if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio(), $boTransacao)==11) { include_once ( CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGNormaDetalhe.class.php" ); $obTTCEMGNormaDetalhe = new TTCEMGNormaDetalhe; $obTTCEMGNormaDetalhe->setDado( 'cod_norma' , $this->getCodNorma() ); @@ -709,7 +719,16 @@ function excluir($boTransacao = "") if($rsNormaDetalhe->getNumLinhas()>0){ $obTTCEMGNormaDetalhe->exclusao($boTransacao); } - } + } + if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio(), $boTransacao)==27) { + include_once ( CAM_GPC_TCETO_MAPEAMENTO."TTCETONormaDetalhe.class.php" ); + $obTTCETONormaDetalhe = new TTCETONormaDetalhe(); + $obTTCETONormaDetalhe->setDado( 'cod_norma' , $this->getCodNorma() ); + $obTTCETONormaDetalhe->recuperaPorChave($rsNormaDetalhe, $boTransacao); + if($rsNormaDetalhe->getNumLinhas()>0){ + $obTTCETONormaDetalhe->exclusao($boTransacao); + } + } if ( !$obErro->ocorreu() ) { $this->obTNorma->setDado("cod_norma", $this->getCodNorma() ); $obErro = $this->obTNorma->exclusao( $boTransacao ); diff --git a/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/FMManterNorma.php b/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/FMManterNorma.php index bc0905a..d1300a0 100755 --- a/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/FMManterNorma.php +++ b/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/FMManterNorma.php @@ -68,6 +68,9 @@ if ( (empty($stAcao)) || ($stAcao == "incluir")) { $obRNorma->obRTipoNorma->listar( $rsTipoNorma ); + $obRNorma->obTNorma->recuperaUltimoCodNorma($rsUltimoCodNorma, $boTransacao); + Sessao::write('inCodNorma',$rsUltimoCodNorma->getCampo('ultimo_cod_norma')); + $stNomeNorma = ""; $inNumNorma = ""; $stExercicio = ""; @@ -399,7 +402,7 @@ $obBtnLink->setTitle ( "Informe o caminho do arquivo" ); $obBtnLink->setName ( "btnIncluirLink" ); $obBtnLink->setId ( "btnIncluirLink" ); $obBtnLink->setSize ( 35 ); -$obBtnLink->setValue ( $btnIncluirLink ); +$obBtnLink->setValue ( $btnIncluirLink ); $obSpan = new Span; $obSpan->setId ( "spanAtributos" ); diff --git a/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/PRManterNorma.php b/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/PRManterNorma.php index cd66929..e04d19d 100755 --- a/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/PRManterNorma.php +++ b/gestaoAdministrativa/fontes/PHP/normas/instancias/norma/PRManterNorma.php @@ -57,8 +57,6 @@ $pgOcul = "OC".$stPrograma.".php"; $obRNorma = new RNorma; $obErro = new Erro; -$inCodNorma = Sessao::read('inCodNorma'); - $obAtributos = new MontaAtributos; $obAtributos->setName('Atributo_'); $obAtributos->recuperaVetor( $arChave ); @@ -82,7 +80,7 @@ switch ($stAcao) { $obRNorma->setDataAssinatura ( $_POST['stDataAssinatura'] ); $obRNorma->setDataTermino ( $_POST['stDataTermino'] ); $obRNorma->setNomeNorma ( $_POST['stNomeNorma'] ); - $obRNorma->setDescricaoNorma ( $_POST['stDescricao'] ); + $obRNorma->setDescricaoNorma ( $_POST['stDescricao'] ); $obRNorma->setUrl ( $_FILES['btnIncluirLink']['tmp_name'] ); $obRNorma->setNomeArquivo ( $_FILES['btnIncluirLink']['name'] ); $obRNorma->obRTipoNorma->setCodTipoNorma( $_POST['inCodTipoNorma'] ); @@ -126,18 +124,13 @@ switch ($stAcao) { } elseif (empty($_REQUEST['stCodNorma'])) { $obErro->setDescricao('Necessário informar a Lei Alterada!'); } - - if (!$obErro->ocorreu()) { - $obNorma = new TNorma; - $obNorma->setDado('cod_norma', $_POST['hdnCodNorma']); - $obErro = $obNorma->recuperaPorChave($rsNormaAlterada, $boTransacao); - - if ( !$obErro->ocorreu() ){ - $obRNorma->setCodNormaAlteracao( $_POST['hdnCodNorma'] ); - $obRNorma->setCodLeiAlteracao( $_POST['stTipoLeiAlteracao'] ); - $obRNorma->setPercentualCreditoAdicional( $_POST['numPercentualCreditoAdicional'] ); - } + + if ( !$obErro->ocorreu() ){ + $obRNorma->setCodNormaAlteracao( $_POST['hdnCodNorma'] ); + $obRNorma->setCodLeiAlteracao( $_POST['stTipoLeiAlteracao'] ); + $obRNorma->setPercentualCreditoAdicional( $_POST['numPercentualCreditoAdicional'] ); } + } break; @@ -164,7 +157,7 @@ switch ($stAcao) { break; case "alterar": - + $inCodNorma = Sessao::read('inCodNorma'); $anexo = $_FILES['btnIncluirLink']['tmp_name']; foreach ($arChave as $key=>$value) { $arChaves = preg_split( "/[^a-zA-Z0-9]/", $key ); diff --git a/gestaoAdministrativa/fontes/PHP/organograma/instancias/orgao/OCManterOrgao.php b/gestaoAdministrativa/fontes/PHP/organograma/instancias/orgao/OCManterOrgao.php index a5f1f86..8683805 100755 --- a/gestaoAdministrativa/fontes/PHP/organograma/instancias/orgao/OCManterOrgao.php +++ b/gestaoAdministrativa/fontes/PHP/organograma/instancias/orgao/OCManterOrgao.php @@ -30,7 +30,7 @@ * @author Analista: Cassiano * @author Desenvolvedor: Cassiano - $Id: OCManterOrgao.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCManterOrgao.php 61647 2015-02-20 11:26:55Z luciana $ Casos de uso: uc-01.05.02 @@ -159,7 +159,6 @@ function MontaOrgaoSuperior($stSelecionado = "") function MontaNorma($stSelecionado = "") { $obRegra = new ROrganogramaOrgao; - $stCombo = "inCodNorma"; $stFiltro = "inCodTipoNorma"; $stJs .= "limpaSelect(f.$stCombo,0); \n"; @@ -186,7 +185,7 @@ function MontaNorma($stSelecionado = "") while (!$rsCombo->eof()) { $inCount++; $inId = $rsCombo->getCampo("cod_norma"); - $stDesc = $rsCombo->getCampo("nom_norma"); + $stDesc = addslashes($rsCombo->getCampo("nom_norma")); if ($stSelecionado == $inId && ($inCodTipoNormaAux == $inCodTipoNorma)) { $stSelected = 'selected'; @@ -198,7 +197,6 @@ function MontaNorma($stSelecionado = "") $rsCombo->proximo(); } } - return $stJs; } diff --git a/gestaoAdministrativa/fontes/PHP/pacotes/GPC.inc.php b/gestaoAdministrativa/fontes/PHP/pacotes/GPC.inc.php index 5db1523..626d057 100644 --- a/gestaoAdministrativa/fontes/PHP/pacotes/GPC.inc.php +++ b/gestaoAdministrativa/fontes/PHP/pacotes/GPC.inc.php @@ -105,13 +105,14 @@ define( "CAM_GPC_TCERN_POPUPS", CAM_GPC_TCERN."popups/" ); define( "TTRN", CAM_GPC_TCERN_MAPEAMENTO ); //TRIBUNAL DE CONTAS DE GOIAS -define( "CAM_GPC_TGO_CLASSES", CAM_GPC_TGO."classes/" ); +define( "CAM_GPC_TGO_CLASSES", CAM_GPC_TGO."classes/" ); define( "CAM_GPC_TGO_MAPEAMENTO", CAM_GPC_TGO_CLASSES."mapeamento/" ); define( "CAM_GPC_TGO_NEGOCIO", CAM_GPC_TGO_CLASSES."negocio/" ); -define( "CAM_GPC_TGO_CONTROLE", CAM_GPC_TGO_CLASSES."controle/" ); -define( "CAM_GPC_TGO_INSTANCIAS", CAM_GPC_TGO."instancias/" ); -define( "CAM_GPC_TGO_POPUPS", CAM_GPC_TGO."popups/" ); -define( "TTGO", CAM_GPC_TGO_MAPEAMENTO ); +define( "CAM_GPC_TGO_CONTROLE", CAM_GPC_TGO_CLASSES."controle/" ); +define( "CAM_GPC_TGO_COMPONENTES", CAM_GPC_TGO_CLASSES."componentes/" ); +define( "CAM_GPC_TGO_INSTANCIAS", CAM_GPC_TGO."instancias/" ); +define( "CAM_GPC_TGO_POPUPS", CAM_GPC_TGO."popups/" ); +define( "TTGO", CAM_GPC_TGO_MAPEAMENTO ); //TRIBUNAL DE CONTAS DO RS define( "CAM_GPC_TCERS_CLASSES", CAM_GPC_TCERS."classes/" ); diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/IChkDocumentoProcesso.class.php b/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/IChkDocumentoProcesso.class.php index 25fb7a2..ed7a066 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/IChkDocumentoProcesso.class.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/IChkDocumentoProcesso.class.php @@ -36,79 +36,89 @@ Casos de uso: uc-01.06.98 */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; -include_once( CAM_GA_PROT_COMPONENTES."JSIChkDocumentoProcesso.js"); +include_once CAM_GA_PROT_COMPONENTES."JSIChkDocumentoProcesso.js"; class IChkDocumentoProcesso extends Componente { -var $inCodigoClassificacao; -var $inCodigoAssunto; -var $rsDocumentos; + public $inCodigoClassificacao; + public $inCodigoAssunto; + public $rsDocumentos; + public $inCodProcesso; + public $stAnoProcesso; -function IChkDocumentoProcesso() -{ - parent::Componente(); - $this->setRotulo ("Documentos"); -} + public function IChkDocumentoProcesso() + { + parent::Componente(); + $this->setRotulo ("Documentos"); + } -function setCodigoClassificacao($valor) { $this->inCodigoClassificacao = $valor; } -function setCodigoAssunto($valor) { $this->inCodigoAssunto = $valor; } -function setDocumentos($valor) { $this->rsDocumentos = $valor; } + public function setCodigoClassificacao($valor) { $this->inCodigoClassificacao = $valor; } + public function setCodigoAssunto($valor) { $this->inCodigoAssunto = $valor; } + public function setDocumentos($valor) { $this->rsDocumentos = $valor; } + public function setCodProcesso($valor) { $this->inCodProcesso = $valor; } + public function setAnoProcesso($valor) { $this->stAnoProcesso = $valor; } -function getCodigoClassificacao() { return $this->inCodigoClassificacao; } -function getCodigoAssunto() { return $this->inCodigoAssunto; } + public function getCodigoClassificacao() { return $this->inCodigoClassificacao; } + public function getCodigoAssunto() { return $this->inCodigoAssunto; } + public function getCodProcesso() { return $this->inCodProcesso; } + public function getAnoProcesso() { return $this->stAnoProcesso; } -function montaChkDocumentos() -{ - include_once( CAM_GA_PROT_MAPEAMENTO."TPRODocumentoAssunto.class.php" ); - $obTPRODocumentoAssunto = new TPRODocumentoAssunto(); - $stFiltro .= " AND SW_DOCUMENTO_ASSUNTO.cod_classificacao = ".$this->getCodigoClassificacao(); - $stFiltro .= " AND SW_DOCUMENTO_ASSUNTO.cod_assunto = ".$this->getCodigoAssunto(); - $obTPRODocumentoAssunto->recuperaRelacionamento($rsDocumento, $stFiltro," SW_DOCUMENTO.nom_documento" ); - $arDocumento = array(); - while (!$rsDocumento->eof()) { - $obChkDocumento = new CheckBox(); - $obChkDocumento->setRotulo ("Documentos"); - $obChkDocumento->setName ("arCodigoDocumento[]"); - $obChkDocumento->setLabel ($rsDocumento->getCampo('nom_documento')); - $obChkDocumento->setValue ($rsDocumento->getCampo('cod_documento')); - $obChkDocumento->setChecked(true); - - $obBtnDocumento = new Button(); - $obBtnDocumento->setRotulo ("Documentos"); - $obBtnDocumento->setName('btDocumento'.$rsDocumento->getCampo('cod_documento') ); - $obBtnDocumento->setValue('Cópia Digital'); - $obBtnDocumento->obEvento->setOnClick("copiaDigital(".$rsDocumento->getCampo('cod_documento').");"); - - $this->roFormulario->obJavaScript->addComponente($obBtnDocumento); - $this->roFormulario->obJavaScript->addComponente($obChkDocumento); - - $arDocumento[] = array( $obChkDocumento,$obBtnDocumento ); - unset($obChkDocumento); - unset($obBtnDocumento); - $rsDocumento->proximo(); + public function montaChkDocumentos() + { + include_once( CAM_GA_PROT_MAPEAMENTO."TPRODocumentoAssunto.class.php" ); + $obTPRODocumentoAssunto = new TPRODocumentoAssunto(); + $stFiltro .= " AND SW_DOCUMENTO_ASSUNTO.cod_classificacao = ".$this->getCodigoClassificacao(); + $stFiltro .= " AND SW_DOCUMENTO_ASSUNTO.cod_assunto = ".$this->getCodigoAssunto(); + $obTPRODocumentoAssunto->recuperaRelacionamento($rsDocumento, $stFiltro," SW_DOCUMENTO.nom_documento" ); + $arDocumento = array(); + while (!$rsDocumento->eof()) { + $obChkDocumento = new CheckBox(); + $obChkDocumento->setRotulo ("Documentos"); + $obChkDocumento->setName ("arCodigoDocumento[]"); + $obChkDocumento->setLabel ($rsDocumento->getCampo('nom_documento')); + $obChkDocumento->setValue ($rsDocumento->getCampo('cod_documento')); + $obChkDocumento->setChecked(true); + + $obBtnDocumento = new Button(); + $obBtnDocumento->setRotulo ("Documentos"); + $obBtnDocumento->setName('btDocumento'.$rsDocumento->getCampo('cod_documento') ); + $obBtnDocumento->setValue('Cópia Digital'); + + $stEventoOnClick = "copiaDigital(".$rsDocumento->getCampo('cod_documento').", ".$this->getCodProcesso().", ".$this->getAnoProcesso().");"; + + $obBtnDocumento->obEvento->setOnClick($stEventoOnClick); + + $this->roFormulario->obJavaScript->addComponente($obBtnDocumento); + $this->roFormulario->obJavaScript->addComponente($obChkDocumento); + + $arDocumento[] = array( $obChkDocumento,$obBtnDocumento ); + unset($obChkDocumento); + unset($obBtnDocumento); + $rsDocumento->proximo(); + } + + return $arDocumento; } - return $arDocumento; -} + public function montaHTML() + { + $arDocumento = $this->montaChkDocumentos(); + $stHTML = ""; + foreach ($arDocumento as $arComponentes) { + $arComponentes[0]->montaHTML(); + $arComponentes[1]->montaHTML(); + $stHTML .= ""; + $stHTML .= ""; + } + $stHTML .= "
".$arComponentes[0]->getHTML()."".$arComponentes[1]->getHTML()."
"; + $this->setHtml($stHTML); + } -function montaHTML() -{ - $arDocumento = $this->montaChkDocumentos(); - $stHTML = ""; - foreach ($arDocumento as $arComponentes) { - $arComponentes[0]->montaHTML(); - $arComponentes[1]->montaHTML(); - $stHTML .= ""; - $stHTML .= ""; + public function geraFormulario(&$obFormulario) + { + $this->roFormulario = $obFormulario; + $obFormulario->addComponente($this); } - $stHTML .= "
".$arComponentes[0]->getHTML()."".$arComponentes[1]->getHTML()."
"; - $this->setHtml($stHTML); } -function geraFormulario(&$obFormulario) -{ - $this->roFormulario = $obFormulario; - $obFormulario->addComponente($this); -} -} ?> diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/JSIChkDocumentoProcesso.js b/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/JSIChkDocumentoProcesso.js index cb7bba5..87db563 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/JSIChkDocumentoProcesso.js +++ b/gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/JSIChkDocumentoProcesso.js @@ -39,14 +39,23 @@ $Date: 2006-11-08 14:43:54 -0200 (Qua, 08 Nov 2006) $ Casos de uso: uc-01.06.98 */ ?> - diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/FMDocumentoProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/FMDocumentoProcesso.php index b6c8b92..fb3ddcf 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/FMDocumentoProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/FMDocumentoProcesso.php @@ -39,8 +39,8 @@ Casos de uso: uc-01.06.98 */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; -include_once(CAM_GA_PROT_MAPEAMENTO."TPRODocumento.class.php"); -include_once(CAM_GA_PROT_MAPEAMENTO."TPROCopiaDigital.class.php"); +include_once CAM_GA_PROT_MAPEAMENTO."TPRODocumento.class.php"; +include_once CAM_GA_PROT_MAPEAMENTO."TPROCopiaDigital.class.php"; //Define o nome dos arquivos PHP $stPrograma = "DocumentoProcesso"; @@ -52,23 +52,32 @@ $pgOcul = "OC".$stPrograma.".php"; $pgJs = "JS".$stPrograma.".js"; include_once($pgJs); -$inCodProcesso = Sessao::read('codigo_processo'); -$stAnoExercicio = Sessao::getExercicio(); +$inCodProcesso = (!empty($_REQUEST['inCodProcesso'])) ? $_REQUEST['inCodProcesso'] : Sessao::read('codigo_processo'); +$stAnoProcesso = (!empty($_REQUEST['stAnoProcesso'])) ? $_REQUEST['stAnoProcesso'] : Sessao::getExercicio(); +$inCodDocumento = $_GET['codDoc']; $obTPRODocumento = new TPRODocumento(); -$obTPRODocumento->setDado('cod_documento',$_GET['codDoc']); +$obTPRODocumento->setDado('cod_documento',$inCodDocumento); $obTPRODocumento->recuperaPorChave($rsDocumento); $obTPROCopiaDigital = new TPROCopiaDigital(); -$obTPROCopiaDigital->setDado('cod_documento', $_GET['codDoc']); -$obTPROCopiaDigital->setDado('cod_processo',$inCodProcesso); -$obTPROCopiaDigital->setDado('exercicio',$stAnoExercicio); +$obTPROCopiaDigital->setDado('cod_documento' , $inCodDocumento); +$obTPROCopiaDigital->setDado('cod_processo' , $inCodProcesso); +$obTPROCopiaDigital->setDado('exercicio' , $stAnoProcesso); $obTPROCopiaDigital->setCampoCod(''); $obTPROCopiaDigital->recuperaPorChave($rsDocumentos); $obHdnDocumento = new Hidden(); -$obHdnDocumento->setName('inCodigoDocumento'); -$obHdnDocumento->setValue($_GET['codDoc']); +$obHdnDocumento->setName('inCodDocumento'); +$obHdnDocumento->setValue($inCodDocumento); + +$obHdnCodProcesso = new Hidden(); +$obHdnCodProcesso->setName('inCodProcesso'); +$obHdnCodProcesso->setValue($inCodProcesso); + +$obHdnAnoProcesso = new Hidden(); +$obHdnAnoProcesso->setName('stAnoProcesso'); +$obHdnAnoProcesso->setValue($stAnoProcesso); $obRdImagemSim = new Radio(); $obRdImagemSim->setChecked( true ); @@ -103,6 +112,8 @@ $obForm->setTarget('oculto'); $obFormulario = new Formulario(); $obFormulario->addForm($obForm); $obFormulario->addHidden($obHdnDocumento); +$obFormulario->addHidden($obHdnCodProcesso); +$obFormulario->addHidden($obHdnAnoProcesso); $obFormulario->addTitulo($rsDocumento->getCampo('nom_documento')); $obFormulario->agrupaComponentes(array($obRdImagemSim, $obRdImagemNao)); $obFormulario->addComponente($obFleArquivo); @@ -111,9 +122,9 @@ $obFormulario->show(); $obIFrameOculto = new IFrame(); $obIFrameOculto->setName('oculto'); -$obIFrameOculto->setHeight ('0'); -$obIFrameOculto->setWidth ('0'); -$obIFrameOculto->setFrameBorder(0); +$obIFrameOculto->setHeight ('0%'); +$obIFrameOculto->setWidth ('0%'); +$obIFrameOculto->setFrameBorder(1); $obIFrameOculto->show(); $obIFrame = new IFrame(); @@ -123,4 +134,5 @@ $obIFrame->setHeight('20%'); $obIFrame->setWidth('100%'); $obIFrame->setFrameBorder(1); $obIFrame->show(); + ?> diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/PRDocumentoProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/PRDocumentoProcesso.php index db398e8..3dae88a 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/PRDocumentoProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/PRDocumentoProcesso.php @@ -37,44 +37,73 @@ $Date: 2006-11-09 13:44:15 -0200 (Qui, 09 Nov 2006) $ Casos de uso: uc-01.06.98 */ +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; -include_once(CAM_GA_PROT_MAPEAMENTO."TPROCopiaDigital.class.php"); +include_once CAM_GA_PROT_MAPEAMENTO."TPROCopiaDigital.class.php"; -//Define o nome dos arquivos PHP -$stPrograma = "DocumentoProcesso"; -$pgFilt = "FL".$stPrograma.".php"; -$pgList = "LS".$stPrograma.".php"; -$pgForm = "FM".$stPrograma.".php"; -$pgProc = "PR".$stPrograma.".php?".Sessao::getId(); -$pgOcul = "OC".$stPrograma.".php"; -$pgJs = "JS".$stPrograma.".js"; +$inCodProcesso = $request->get('inCodProcesso'); +$stAnoProcesso = $request->get('stAnoProcesso'); +$inCodDocumento = $request->get('inCodDocumento'); -include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; -$obTPROCopiaDigital = new TPROCopiaDigital(); -Sessao::write('nom_arquivo',$_FILES['stArquivo']['name']); +Sessao::write('nom_arquivo', $_FILES['stArquivo']['name']); if ($_FILES['stArquivo']['type'] != 'image/jpeg' and $_POST['boImagem'] == 't') { SistemaLegado::exibeAviso("O Arquivo precisa ser estar no formato JPG!","","erro"); } elseif ($_FILES['stArquivo']['size'] > 1000000) { SistemaLegado::exibeAviso("O Arquivo não pode ter mais que 1000KB","","erro"); } else { - //MONTA O NOME DO DIRETORIO TEMPORARIO UTILIZANDO O ID DA SESSÃO - $inPosInicial = strpos(Sessao::getId(),'=') + 1; - $inPosFinal = strpos(Sessao::getId(),'&') - $inPosInicial; - $stIdSessao = substr(Sessao::getId(),$inPosInicial,$inPosFinal ); - $stDiretorioSessao = CAM_PROTOCOLO."tmp/".$stIdSessao; - if ( !is_dir($stDiretorioSessao) ) { - mkdir($stDiretorioSessao,0755);//CRIA O DIRETORIO + + $stDirUpload = CAM_PROTOCOLO."tmp/"; + $stDirAnexo = CAM_PROTOCOLO."anexos/"; + + # Cria o diretório caso não exista + if ( !is_dir($stDirUpload) ) { + mkdir($stDirUpload, 0755); } - $stDiretorioDocumento = $_POST['inCodigoDocumento'].'_'.(int) Sessao::read('codigo_processo'); - $stDiretorioDocumento .= "_".Sessao::getExercicio(); - if ( !is_dir($stDiretorioSessao."/".$stDiretorioDocumento) ) { - mkdir($stDiretorioSessao."/".$stDiretorioDocumento,0755); + + # Cria o diretório de Anexo caso não exista + if ( !is_dir($stDirAnexo) ) { + mkdir($stDirAnexo, 0755); } - if ( !is_file( $stDiretorioSessao."/".$stDiretorioDocumento."/".$_FILES['stArquivo']['name'] ) ) { - $boCopia = copy( $_FILES['stArquivo']['tmp_name'], $stDiretorioSessao."/".$stDiretorioDocumento."/".$_FILES['stArquivo']['name'] ); - chmod($stDiretorioSessao."/".$stDiretorioDocumento."/".$_FILES['stArquivo']['name'],0777); + + $obTPROCopiaDigital = new TPROCopiaDigital(); + $obTPROCopiaDigital->setDado('cod_documento' , $inCodDocumento); + $obTPROCopiaDigital->setDado('cod_processo' , $inCodProcesso); + $obTPROCopiaDigital->setDado('exercicio' , $stAnoProcesso); + $obTPROCopiaDigital->proximoCod($inCodCopia); + + # Nome do arquivo formatado para ser único + $stNomeArquivo = $inCodCopia.'_'.$inCodDocumento.'_'.$inCodProcesso.'_'.$stAnoProcesso.'_'.$_FILES['stArquivo']['name']; + + if ( !is_file( $stDirUpload."/".$stNomeArquivo ) ) { + + $boCopia = copy( $_FILES['stArquivo']['tmp_name'], $stDirUpload."/".$stNomeArquivo ); + chmod($stDirUpload."/".$stNomeArquivo,0777); + if ($boCopia) { + + # Copia o arquivo para o diretório Anexo + $boCopiaAnexo = copy( $_FILES['stArquivo']['tmp_name'], $stDirAnexo."/".$stNomeArquivo ); + chmod($stDirAnexo."/".$stNomeArquivo,0777); + + if ($_FILES['stArquivo']['name'] != "." && $_FILES['stArquivo']['name'] != "..") { + $stExtencao = substr($_FILES['stArquivo']['name'] , strrpos($_FILES['stArquivo']['name'],'.') ); + + if (strtolower($stExtencao) == '.jpg' || strtolower($stExtencao) == '.jpeg') { + $boImagem = 't'; + } else { + $boImagem = 'f'; + } + + $obTPROCopiaDigital->setDado('cod_documento' , $inCodDocumento); + $obTPROCopiaDigital->setDado('cod_processo' , $inCodProcesso); + $obTPROCopiaDigital->setDado('exercicio' , $stAnoProcesso); + $obTPROCopiaDigital->setDado('cod_copia' , $inCodCopia); + $obTPROCopiaDigital->setDado('imagem' , $boImagem); + $obTPROCopiaDigital->setDado('anexo' , $stNomeArquivo); + $obTPROCopiaDigital->inclusao(); + } + SistemaLegado::exibeAvisoTelaPrincipal("Arquivo enviado com sucesso!","",""); } else { SistemaLegado::exibeAviso("Erro no upload de arquivo!","","erro"); diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php index eb7c617..2daa110 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php @@ -33,7 +33,7 @@ Casos de uso: uc-01.06.98 - $Id: FMManterProcesso.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterProcesso.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -224,6 +224,9 @@ $obISelectClassificacaoAssunto->obCmbAssunto->obEvento->setOnChange("document.ge $obIChkDocumentoProcesso = new IChkDocumentoProcesso(); $obIChkDocumentoProcesso->setCodigoClassificacao($_GET['inCodigoClassificacao']); $obIChkDocumentoProcesso->setCodigoAssunto($_GET['inCodigoAssunto']); +$obIChkDocumentoProcesso->setCodProcesso($_REQUEST['inCodigoProcesso']); +$obIChkDocumentoProcesso->setAnoProcesso($_REQUEST['inAnoExercicio']); + $obFormulario = new Formulario(); $obIChkDocumentoProcesso->geraFormulario($obFormulario); $obFormulario->montaInnerHTML(); diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/PRManterProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/PRManterProcesso.php index 5a517b0..bf4b7ae 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/PRManterProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/PRManterProcesso.php @@ -33,7 +33,7 @@ Casos de uso: uc-01.06.98 - $Id: PRManterProcesso.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: PRManterProcesso.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -56,7 +56,6 @@ switch ($stAcao) { include_once(CAM_GA_PROT_MAPEAMENTO."TPRODocumentoAssunto.class.php"); include_once(CAM_GA_PROT_MAPEAMENTO."TPRODocumentoProcesso.class.php" ); include_once(CAM_GA_PROT_MAPEAMENTO."TPROCopiaDigital.class.php" ); - include_once(CAM_GA_PROT_MAPEAMENTO."TPROCopiaDigital.class.php" ); Sessao::setTrataExcecao(true); diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php index fc17906..510d8b1 100755 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php @@ -32,7 +32,7 @@ Casos de uso: uc-01.06.98 - $Id: despachaProcesso.php 60355 2014-10-15 18:11:01Z silvia $ + $Id: despachaProcesso.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -446,9 +446,10 @@ break; { var x = 200; var y = 140; - var sArq = '../../../framework/legado/imagens/copiaDigitalLegado.php?&codDoc='+cod+'&acao='+acao+'&codProcesso='+codProcesso+'&anoExercicio='+anoExercicio; + var sArq = '?&codDoc='+cod+'&acao='+acao+'&inCodProcesso='+codProcesso+'&stAnoProcesso='+anoExercicio; var wVolta=false; - tela = window.open(sArq,'tela','titlebar=no,hotkeys=no,width=450px,height=320px,resizable=1,scrollbars=1,left='+x+',top='+y); + tela = window.open(sArq,'tela','titlebar=no,hotkeys=no,width=550px,height=320px,resizable=1,scrollbars=1,left='+x+',top='+y); + window.tela.focus(); } @@ -654,7 +655,7 @@ break; - + diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/interfaceProcessos.class.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/interfaceProcessos.class.php index cce3c29..9100871 100755 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/interfaceProcessos.class.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/interfaceProcessos.class.php @@ -32,7 +32,7 @@ * Casos de uso: uc-01.06.98 - $Id: interfaceProcessos.class.php 60788 2014-11-17 12:47:59Z silvia $ + $Id: interfaceProcessos.class.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -541,11 +541,18 @@ function formIncluiProcesso($dadosForm="",$action="",$controle=0) function copiaDigital(cod) { + //var x = 200; + //var y = 140; + //var sArq = '?&codDoc='+cod+'&acao='+acao+'&inCodProcesso='+codProcesso+'&stAnoProcesso='+anoExercicio; + //var wVolta=false; + //tela = window.open(sArq,'tela','titlebar=no,hotkeys=no,width=550px,height=320px,resizable=1,scrollbars=1,left='+x+',top='+y); + var x = 200; var y = 140; var sArq = '?&codDoc='+cod; var wVolta=false; tela = window.open(sArq,'tela','titlebar=no,hotkeys=no,width=450px,height=320px,resizable=1,scrollbars=1,left='+x+',top='+y); + window.tela.focus(); } function ValidaProcesso() diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/reciboProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/reciboProcesso.php index 9f85f8e..34c6cc8 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/reciboProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/reciboProcesso.php @@ -31,7 +31,7 @@ * Casos de uso: uc-01.06.98 - $Id: reciboProcesso.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: reciboProcesso.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -61,6 +61,6 @@ $preview->addParametro ( 'pCodMunicipio' , $cod_municipio ); $preview->addParametro ( 'pCodUf' , $codUf ); $stDataHoje = dataExtenso(date("Y-m-d")); -$preview->addParametro ('pDataHoje', utf8_encode($stDataHoje)); +$preview->addParametro ('pDataHoje', $stDataHoje); $preview->preview(); diff --git a/gestaoAdministrativa/fontes/PLPGSQL/framework/concatenarArray.plsql b/gestaoAdministrativa/fontes/PLPGSQL/framework/concatenarArray.plsql index 12e06a7..d0b309f 100644 --- a/gestaoAdministrativa/fontes/PLPGSQL/framework/concatenarArray.plsql +++ b/gestaoAdministrativa/fontes/PLPGSQL/framework/concatenarArray.plsql @@ -33,7 +33,7 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Id: concatenarArray.plsql 61454 2015-01-16 19:47:45Z luciana $ +* $Id: concatenarArray.plsql 61782 2015-03-03 18:35:51Z luciana $ * * Casos de uso: uc-01.01.00 */ diff --git a/gestaoAdministrativa/fontes/SQL/GA_2034.sql b/gestaoAdministrativa/fontes/SQL/GA_2034.sql index af14ba1..cc90731 100644 --- a/gestaoAdministrativa/fontes/SQL/GA_2034.sql +++ b/gestaoAdministrativa/fontes/SQL/GA_2034.sql @@ -425,30 +425,6 @@ BEGIN INSERT - INTO empenho.permissao_autorizacao - ( exercicio - , numcgm - , num_unidade - , num_orgao - ) - SELECT '2015' AS exercicio - , numcgm - , num_unidade - , num_orgao - FROM empenho.permissao_autorizacao AS proximo - WHERE exercicio = '2014' - AND NOT EXISTS ( - SELECT 1 - FROM empenho.permissao_autorizacao - WHERE exercicio = '2015' - AND numcgm = proximo.numcgm - AND num_unidade = proximo.num_unidade - AND num_orgao = proximo.num_orgao - ) - ; - - - INSERT INTO contabilidade.posicao_plano ( exercicio , cod_posicao @@ -2015,8 +1991,6 @@ DROP FUNCTION atualiza_gf(); ---------------- ALTER TABLE tceto.norma_detalhe ADD COLUMN cod_norma_alteracao INTEGER NOT NULL; -ALTER TABLE tceto.norma_detalhe ADD CONSTRAINT fk_norma_detalhe_3 FOREIGN KEY (cod_norma_alteracao) - REFERENCES normas.norma(cod_norma); ALTER TABLE normas.norma_detalhe_al ALTER COLUMN descricao_alteracao TYPE VARCHAR(400); diff --git a/gestaoAdministrativa/fontes/SQL/GA_2036.sql b/gestaoAdministrativa/fontes/SQL/GA_2036.sql new file mode 100644 index 0000000..a36923f --- /dev/null +++ b/gestaoAdministrativa/fontes/SQL/GA_2036.sql @@ -0,0 +1,244 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* +* +* Script de DDL e DML +* +* Versao 2.03.6 +* +* Fabio Bertoldi - 20150225 +* +*/ + +---------------- +-- Ticket #22707 +---------------- + + -- + -- Insere a função. + -- + CREATE OR REPLACE function public.manutencao_funcao( intCodmodulo INTEGER + , intCodBiblioteca INTEGER + , varNomeFunc VARCHAR + , intCodTiporetorno INTEGER) + RETURNS integer as $$ + DECLARE + intCodFuncao INTEGER := 0; + varAux VARCHAR; + BEGIN + + SELECT cod_funcao + INTO intCodFuncao + FROM administracao.funcao + WHERE cod_modulo = intCodmodulo + AND cod_biblioteca = intCodBiblioteca + AND Lower(Btrim(nom_funcao)) = Lower(Btrim(varNomeFunc)) + ; + + IF FOUND THEN + DELETE FROM administracao.corpo_funcao_externa WHERE cod_modulo = intCodmodulo AND cod_biblioteca = intCodBiblioteca AND cod_funcao = intCodFuncao; + DELETE FROM administracao.funcao_externa WHERE cod_modulo = intCodmodulo AND cod_biblioteca = intCodBiblioteca AND cod_funcao = intCodFuncao; + DELETE FROM administracao.funcao_referencia WHERE cod_modulo = intCodmodulo AND cod_biblioteca = intCodBiblioteca AND cod_funcao = intCodFuncao; + DELETE FROM administracao.parametro WHERE cod_modulo = intCodmodulo AND cod_biblioteca = intCodBiblioteca AND cod_funcao = intCodFuncao; + DELETE FROM administracao.variavel WHERE cod_modulo = intCodmodulo AND cod_biblioteca = intCodBiblioteca AND cod_funcao = intCodFuncao; + DELETE FROM administracao.funcao WHERE cod_modulo = intCodmodulo AND cod_biblioteca = intCodBiblioteca AND cod_funcao = intCodFuncao; + END IF; + + -- Raise Notice ' Entrou 1 '; + + SELECT (max(cod_funcao)+1) + INTO intCodFuncao + FROM administracao.funcao + WHERE cod_modulo = intCodmodulo + AND cod_biblioteca = intCodBiblioteca + ; + + --varAux := varNomeFunc || ' - ' || To_Char( intCodFuncao, '999999') ; + --RAise Notice '=> % ', varAux; + + IF intCodFuncao IS NULL OR intCodFuncao = 0 THEN + intCodFuncao := 1; + END IF; + + INSERT INTO administracao.funcao ( cod_modulo + , cod_biblioteca + , cod_funcao + , cod_tipo_retorno + , nom_funcao) + VALUES ( intCodmodulo + , intCodBiblioteca + , intCodFuncao + , intCodTiporetorno + , varNomeFunc); + + RETURN intCodFuncao; + + END; + $$ LANGUAGE 'plpgsql'; + + -- + -- Inclusão de Váriaveis. + -- + CREATE OR REPLACE function public.manutencao_variavel( intCodmodulo INTEGER + , intCodBiblioteca INTEGER + , intCodFuncao INTEGER + , varNomVariavel VARCHAR + , intTipoVariavel INTEGER) + RETURNS integer as $$ + DECLARE + intCodVariavel INTEGER := 0; + BEGIN + + If intCodFuncao != 0 THEN + SELECT COALESCE((max(cod_variavel)+1),1) + INTO intCodVariavel + FROM administracao.variavel + WHERE cod_modulo = intCodmodulo + AND cod_biblioteca = intCodBiblioteca + AND cod_funcao = intCodFuncao + ; + + INSERT INTO administracao.variavel ( cod_modulo + , cod_biblioteca + , cod_funcao + , cod_variavel + , nom_variavel + , cod_tipo ) + VALUES ( intCodmodulo + , intCodBiblioteca + , intCodFuncao + , intCodVariavel + , varNomVariavel + , intTipoVariavel + ); + END IF; + + RETURN intCodVariavel; + END; + $$ LANGUAGE 'plpgsql'; + + + -- + -- Inclusão de parametro. + -- + CREATE OR REPLACE function public.manutencao_parametro( intCodmodulo INTEGER + , intCodBiblioteca INTEGER + , intCodFuncao INTEGER + , intCodVariavel INTEGER) + RETURNS VOID as $$ + DECLARE + intOrdem INTEGER := 0; + BEGIN + If intCodFuncao != 0 THEN + SELECT COALESCE((max(ordem)+1),1) + INTO intOrdem + FROM administracao.parametro + WHERE cod_modulo = intCodmodulo + AND cod_biblioteca = intCodBiblioteca + AND cod_funcao = intCodFuncao + ; + + INSERT INTO administracao.parametro ( cod_modulo + , cod_biblioteca + , cod_funcao + , cod_variavel + , ordem) + VALUES ( intCodmodulo + , intCodBiblioteca + , intCodFuncao + , intCodVariavel + , intOrdem ); + End If; + + RETURN; + END; + $$ LANGUAGE 'plpgsql'; + + + -- + -- Inclusão de parametro. + -- + CREATE OR REPLACE function public.manutencao_funcao_externa( intCodmodulo INTEGER + , intCodBiblioteca INTEGER + , intCodFuncao INTEGER ) + RETURNS VOID as $$ + DECLARE + --intCodFuncao INTEGER; + BEGIN + + -- RAise Notice ' =====> % ', intCodFuncao; + + If intCodFuncao != 0 THEN + INSERT INTO administracao.funcao_externa ( cod_modulo + , cod_biblioteca + , cod_funcao + , comentario + ) + VALUES ( intCodmodulo + , intCodBiblioteca + , intCodFuncao + , '' + ); + END IF; + RETURN; + END; + $$ LANGUAGE 'plpgsql'; + + -- + -- Função principal. + -- + CREATE OR REPLACE function public.manutencao() RETURNS VOID as $$ + DECLARE + intCodFuncao INTEGER; + intCodVariavel INTEGER; + BEGIN + + -- 1 | INTEIRO + -- 2 | TEXTO + -- 3 | BOOLEANO + -- 4 | NUMERICO + -- 5 | DATA + + --Inclusão de função interna arrecadacao/fn_acrescimo_indice.plsql + + intCodFuncao := public.manutencao_funcao ( 27, 1, 'pega1QuantidadeAnosParaAnueniosProgressao', 1); + --( intCodmodulo , intCodBiblioteca , varNomeFunc , intCodTiporetorno ) + + intCodVariavel := public.manutencao_variavel ( 27, 1, intCodFuncao, 'dtLei', 5 ); + PERFORM public.manutencao_parametro( 27, 1, intCodFuncao, intCodVariavel ); + + RETURN; + END; + $$ LANGUAGE 'plpgsql'; + + -- + -- Execuçao função. + -- + Select public.manutencao(); + Drop Function public.manutencao(); + Drop Function public.manutencao_funcao(integer, integer, varchar, integer ); + Drop Function public.manutencao_variavel( integer, integer, integer, varchar, integer ); + Drop Function public.manutencao_parametro( integer, integer, integer, integer ); + Drop Function public.manutencao_funcao_externa( integer, integer, integer ) ; + + diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php b/gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php index df223f6..659d49a 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php @@ -31,7 +31,7 @@ * @subpackage Mapeamento * Casos de uso: uc-02.02.02, uc-02.08.03, uc-02.08.07, uc-02.02.31, uc-02.04.03 - $Id: TContabilidadePlanoConta.class.php 61344 2015-01-08 19:03:39Z silvia $ + $Id: TContabilidadePlanoConta.class.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -1419,5 +1419,89 @@ function montaRecuperaCodEstrutural() return $stSql; } +function recuperaDadosExportacaoBalVerificacaoEnceramento(&$rsRecordSet, $stCondicao = "" , $stOrdem = "" , $boTransacao = "") +{ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + + if(trim($stOrdem)) + $stOrdem = (strpos($stOrdem,"ORDER BY")===false)?" ORDER BY $stOrdem":$stOrdem; + $stSql = $this->montaRecuperaDadosExportacaoBalVerificacaoEnceramento().$stCondicao.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; +} + +function montaRecuperaDadosExportacaoBalVerificacaoEnceramento() +{ + $stSQL = " SELECT + replace(cod_estrutural,'.','') as cod_estrutural + ,CASE WHEN vl_saldo_anterior >=0 THEN + replace(vl_saldo_anterior::varchar,'-','') + ELSE + '0' + END as saldo_anterior_devedora + ,CASE WHEN vl_saldo_anterior <0 THEN + replace(vl_saldo_anterior::varchar,'-','') + ELSE + '0' + END as saldo_anterior_credora + ,vl_saldo_debitos + ,vl_saldo_creditos * -1 as vl_saldo_creditos + ,CASE WHEN vl_saldo_atual >=0 THEN + replace(vl_saldo_atual::varchar,'-','') + ELSE + '0' + END as saldo_atual_devedora + ,CASE WHEN vl_saldo_atual <0 THEN + replace(vl_saldo_atual::varchar,'-','') + ELSE + '0' + END as saldo_atual_credora + ,nom_conta + ,cod_entidade + ,tipo_conta + ,nivel + ,substr(nom_sistema,1,1) as nom_sistema + ,CASE WHEN trim(both ' ' from nom_sistema) = 'Não Informado' THEN + '' + ELSE nom_sistema + END as natureza + ,CASE WHEN escrituracao = 'analitica' THEN + 'S' + WHEN escrituracao = 'sintetica' THEN + 'N' + END as escrituracao + ,CASE WHEN indicador_superavit = 'permanente' THEN + 'P' + WHEN indicador_superavit = 'financeiro' THEN + 'F' + END as indicador_superavit + FROM + contabilidade.fn_exportacao_balancete_verificacao('".$this->getDado("stExercicio")."' + ,' cod_entidade IN (".$this->getDado("stCodEntidades").")' + ,'".$this->getDado("dtInicial")."' + ,'".$this->getDado("dtFinal")."') + AS + tabela( cod_estrutural VARCHAR, + cod_entidade INTEGER, + nivel INTEGER, + nom_conta VARCHAR, + vl_saldo_anterior NUMERIC, + vl_saldo_debitos NUMERIC, + vl_saldo_creditos NUMERIC, + vl_saldo_atual NUMERIC, + tipo_conta VARCHAR, + nom_sistema VARCHAR, + escrituracao CHAR(9), + indicador_superavit CHAR(12)) + WHERE (vl_saldo_debitos <> 0.00 or vl_saldo_creditos <> 0.00 or vl_saldo_anterior <> 0.00 ) + "; + return $stSQL; +} + + } ?> diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/classes/negocio/RContabilidadePlanoBanco.class.php b/gestaoFinanceira/fontes/PHP/contabilidade/classes/negocio/RContabilidadePlanoBanco.class.php index dfc8855..0c075e1 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/classes/negocio/RContabilidadePlanoBanco.class.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/classes/negocio/RContabilidadePlanoBanco.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Regra - $Id: RContabilidadePlanoBanco.class.php 60460 2014-10-23 11:47:48Z silvia $ + $Id: RContabilidadePlanoBanco.class.php 61647 2015-02-20 11:26:55Z luciana $ $Revision: 30668 $ $Name$ @@ -470,6 +470,10 @@ function listarPlanoContaEntidade(&$rsRecordSet, $stOrder = "" , $boTransacao = $stFiltro .= " pc.exercicio = '" . $this->stExercicio . "' AND "; $obTContabilidadePlanoAnalitica->setDado('exercicio', $this->stExercicio ); } + if ($this->obROrcamentoRecurso->getCodRecurso()) + { + $stFiltro .= " pr.cod_recurso = " . (int)$this->obROrcamentoRecurso->getCodRecurso() . " AND "; + } // Quando ação de encerrar não traz na lista os já encerrados if ($this->filtroEncerrado == "encerrar"){ @@ -493,7 +497,7 @@ function listarPlanoContaEntidade(&$rsRecordSet, $stOrder = "" , $boTransacao = $stOrder = ( $stOrder ) ? $stOrder : 'cod_estrutural'; $obErro = $obTContabilidadePlanoAnalitica->recuperaRelacionamentoContaEntidade( $rsRecordSet, $stFiltro, $stOrder, $boTransacao ); - + return $obErro; } diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLEncerrarConta.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLEncerrarConta.php index 1e20413..4a041a9 100644 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLEncerrarConta.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLEncerrarConta.php @@ -28,7 +28,7 @@ * Data de Criação : 30/09/2014 * @author Analista: Silvia * @author Desenvolvedor: Evandro Melos - * $Id: FLEncerrarConta.php 60355 2014-10-15 18:11:01Z silvia $ + * $Id: FLEncerrarConta.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -210,6 +210,28 @@ $obCmbContaCorrente->setDisabled ( $boDisabled ); $obCmbContaCorrente->setNull(true); $obCmbContaCorrente->obEvento->setOnChange ( " montaParametrosGET('BuscaContaCorrente'); "); +// Define Objeto TextBox para Codigo do Recurso +$obTxtRecurso = new TextBox; +$obTxtRecurso->setName ( "inCodRecurso" ); +$obTxtRecurso->setId ( "inCodRecurso" ); +$obTxtRecurso->setValue ( $inCodRecurso ); +$obTxtRecurso->setRotulo ( "Recurso" ); +$obTxtRecurso->setTitle ( "Selecione o recurso orçamentário" ); +$obTxtRecurso->setDisabled( $boDesabilitaRecurso ); +$obTxtRecurso->setMascara ( $stMascaraRecurso ); +$obTxtRecurso->setPreencheComZeros ( 'E' ); + +// Define Objeto Select para o Recurso +$obCmbRecurso = new Select; +$obCmbRecurso->setName ( "stNomeRecurso" ); +$obCmbRecurso->setId ( "stNomeRecurso" ); +$obCmbRecurso->setValue ( $inCodRecurso ); +$obCmbRecurso->addOption ( "", "Selecione" ); +$obCmbRecurso->setCampoId ( "[cod_fonte]" ); +$obCmbRecurso->setCampoDesc ( "[nom_recurso]" ); +$obCmbRecurso->preencheCombo( $rsRecurso ); +$obCmbRecurso->setDisabled ( $boDesabilitaRecurso ); + //****************************************// //Monta FORMULARIO //****************************************// @@ -229,6 +251,7 @@ $obFormulario->addComponente( $obDataSaldo ); $obFormulario->addComponenteComposto( $obTxtBanco , $obCmbBanco ); $obFormulario->addComponenteComposto( $obTxtAgencia, $obCmbAgencia ); $obFormulario->addComponente( $obCmbContaCorrente ); +$obFormulario->addComponenteComposto( $obTxtRecurso, $obCmbRecurso ); $obFormulario->OK(); $obFormulario->show(); diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLManterPlanoConta.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLManterPlanoConta.php index 5bf6453..30929e1 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLManterPlanoConta.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/FLManterPlanoConta.php @@ -32,7 +32,7 @@ * @ignore - * $Id: FLManterPlanoConta.php 60355 2014-10-15 18:11:01Z silvia $ + * $Id: FLManterPlanoConta.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-02.02.02 */ @@ -216,6 +216,28 @@ $obCmbContaCorrente->setDisabled ( $boDisabled ); $obCmbContaCorrente->setNull(true); $obCmbContaCorrente->obEvento->setOnChange ( " montaParametrosGET('BuscaContaCorrente'); "); +// Define Objeto TextBox para Codigo do Recurso +$obTxtRecurso = new TextBox; +$obTxtRecurso->setName ( "inCodRecurso" ); +$obTxtRecurso->setId ( "inCodRecurso" ); +$obTxtRecurso->setValue ( $inCodRecurso ); +$obTxtRecurso->setRotulo ( "Recurso" ); +$obTxtRecurso->setTitle ( "Selecione o recurso orçamentário" ); +$obTxtRecurso->setDisabled( $boDesabilitaRecurso ); +$obTxtRecurso->setMascara ( $stMascaraRecurso ); +$obTxtRecurso->setPreencheComZeros ( 'E' ); + +// Define Objeto Select para o Recurso +$obCmbRecurso = new Select; +$obCmbRecurso->setName ( "stNomeRecurso" ); +$obCmbRecurso->setId ( "stNomeRecurso" ); +$obCmbRecurso->setValue ( $inCodRecurso ); +$obCmbRecurso->addOption ( "", "Selecione" ); +$obCmbRecurso->setCampoId ( "[cod_fonte]" ); +$obCmbRecurso->setCampoDesc ( "[nom_recurso]" ); +$obCmbRecurso->preencheCombo( $rsRecurso ); +$obCmbRecurso->setDisabled ( $boDesabilitaRecurso ); + //****************************************// //Monta FORMULARIO @@ -237,6 +259,7 @@ $obFormulario->addComponente( $obDataSaldo ); $obFormulario->addComponenteComposto( $obTxtBanco , $obCmbBanco ); $obFormulario->addComponenteComposto( $obTxtAgencia, $obCmbAgencia ); $obFormulario->addComponente( $obCmbContaCorrente ); +$obFormulario->addComponenteComposto( $obTxtRecurso, $obCmbRecurso ); $obFormulario->OK(); $obFormulario->show(); diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSEncerrarConta.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSEncerrarConta.php index 4f63d9e..adafc91 100644 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSEncerrarConta.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSEncerrarConta.php @@ -27,7 +27,7 @@ * Página de Listagem de Itens * Data de Criação : 30/09/2014 * @author Desenvolvedor: Evandro Melos - $Id: LSEncerrarConta.php 60355 2014-10-15 18:11:01Z silvia $ + $Id: LSEncerrarConta.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -86,6 +86,7 @@ $obRContabilidadePlanoBanco->setCodigoEntidade ( $stCodEntidade $obRContabilidadePlanoBanco->setNumAgencia ( $_REQUEST['inNumAgencia'] ); $obRContabilidadePlanoBanco->setNumBanco ( $_REQUEST['inNumBanco'] ); $obRContabilidadePlanoBanco->setContaCorrente ( $_REQUEST['stContaCorrente'] ); +$obRContabilidadePlanoBanco->obROrcamentoRecurso->setCodRecurso($_REQUEST['inCodRecurso']); if ($stAcao == "encerrar"){ $obRContabilidadePlanoBanco->setFiltroEncerrado ( "encerrar" ); diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSManterPlanoConta.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSManterPlanoConta.php index d87b970..df8a17d 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSManterPlanoConta.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/planoConta/LSManterPlanoConta.php @@ -29,7 +29,7 @@ * @ignore - $Id: LSManterPlanoConta.php 61344 2015-01-08 19:03:39Z silvia $ + $Id: LSManterPlanoConta.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-02.02.02 */ @@ -98,6 +98,7 @@ $obRContabilidadePlanoBanco->setCodigoEntidade ( $stCodEntidade $obRContabilidadePlanoBanco->setNumAgencia ( $_REQUEST['inNumAgencia'] ); $obRContabilidadePlanoBanco->setNumBanco ( $_REQUEST['inNumBanco'] ); $obRContabilidadePlanoBanco->setContaCorrente ( $_REQUEST['stContaCorrente'] ); +$obRContabilidadePlanoBanco->obROrcamentoRecurso->setCodRecurso($_REQUEST['inCodRecurso']); $obRContabilidadePlanoBanco->listarPlanoContaEntidade( $rsLista , 'cod_estrutural' ); $stLink .= "&stAcao=".$stAcao; diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCBalancoOrcamentario.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCBalancoOrcamentario.php index 62abe42..9c4ca49 100644 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCBalancoOrcamentario.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCBalancoOrcamentario.php @@ -36,7 +36,7 @@ $obTOrcamentoEntidade->setDado( 'exercicio' , Sessao::getExercicio() ); $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade in (".implode(',',$_REQUEST['inCodEntidade']).")" ); if (count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); if (preg_match( "/prefeitura.*/i", $rsEntidade->getCampo('nom_cgm')) || $boConfirmaFundo > 0) { $preview->addParametro( 'poder' , 'Executivo' ); } else { @@ -101,7 +101,7 @@ if ( isset($_POST['stMes']) ) { } $preview->addParametro('exercicio' , Sessao::getExercicio()); -$preview->addParametro("periodo" , utf8_encode($stPeriodo) ); +$preview->addParametro("periodo" , $stPeriodo ); $preview->addParametro('cod_entidade' , implode(',', $_REQUEST['inCodEntidade'])); $preview->addParametro('dt_inicial' , $_REQUEST['stDataInicial']); $preview->addParametro('dt_final' , $_REQUEST['stDataFinal']); diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioBalancoFinanceiro.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioBalancoFinanceiro.php index c8cbc3c..a80173f 100644 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioBalancoFinanceiro.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioBalancoFinanceiro.php @@ -55,7 +55,7 @@ $obTOrcamentoEntidade->setDado( 'exercicio' , Sessao::getExercicio() ); $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade in (".implode(',',$_REQUEST['inCodEntidade']).")" ); if (count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); if (preg_match( "/prefeitura.*/i", $rsEntidade->getCampo('nom_cgm')) || $boConfirmaFundo > 0) { $preview->addParametro( 'poder' , 'Executivo' ); } else { diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoMutPatrimonioLiquido.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoMutPatrimonioLiquido.php index bf2df5f..f7641ca 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoMutPatrimonioLiquido.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoMutPatrimonioLiquido.php @@ -57,7 +57,7 @@ $preview->addParametro ( 'exercicio_anterior', (Sessao::getExercicio() - 1)); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $rsEntidade->setPrimeiroElemento(); diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoVariacoesPatrimoniais.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoVariacoesPatrimoniais.php index 541898d..9ca26be 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoVariacoesPatrimoniais.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoVariacoesPatrimoniais.php @@ -58,7 +58,7 @@ $preview->addParametro ( 'cod_entidades', implode(',',$_REQUEST['inCodEntidade'] if ( count($_REQUEST['inCodEntidade']) == 1 ) { $CodEntidade=$_REQUEST['inCodEntidade'][0]; $preview->addParametro( 'entidade', $CodEntidade ); - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $rsEntidade->setPrimeiroElemento(); diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemostrativoFluxoCaixa.php b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemostrativoFluxoCaixa.php index ccd7943..a8e1c49 100644 --- a/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemostrativoFluxoCaixa.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemostrativoFluxoCaixa.php @@ -55,7 +55,7 @@ $obTOrcamentoEntidade->setDado( 'exercicio' , Sessao::getExercicio() ); $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade in (".implode(',',$_REQUEST['inCodEntidade']).")" ); if (count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); if (preg_match( "/prefeitura.*/i", $rsEntidade->getCampo('nom_cgm')) || $boConfirmaFundo > 0) { $preview->addParametro( 'poder' , 'Executivo' ); } else { diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/popups/planoConta/LSPlanoConta.php b/gestaoFinanceira/fontes/PHP/contabilidade/popups/planoConta/LSPlanoConta.php index e4919f8..58256a5 100755 --- a/gestaoFinanceira/fontes/PHP/contabilidade/popups/planoConta/LSPlanoConta.php +++ b/gestaoFinanceira/fontes/PHP/contabilidade/popups/planoConta/LSPlanoConta.php @@ -32,7 +32,7 @@ * @ignore - * $Id: LSPlanoConta.php 61344 2015-01-08 19:03:39Z silvia $ + * $Id: LSPlanoConta.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso: uc-02.02.02,uc-02.04.09,uc-02.04.28,uc-02.02.31,uc-02.03.28 */ @@ -713,7 +713,7 @@ if ($_REQUEST['tipoBusca']) { if ($_REQUEST['stCodEstrutural']) { $inCodEstrutural= $_REQUEST['stCodEstrutural']; }else{ - $inCodEstrutural = SistemaLegado::pegaDado('valor','administracao.configuracao',"WHERE exercicio = '".Sessao::getExercicio()."' AND cod_modulo = 6 AND parametro = 'grupo_contas_permanente'"); + $inCodEstrutural = '1.2'; } $obRegra->setCodEstrutural($inCodEstrutural); $obRegra->listarContaAnaliticaAtivoPermanente ($rsLista,""); diff --git a/gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php b/gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php index 928ab8f..adae1d8 100755 --- a/gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php +++ b/gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - * $Id: TEmpenhoEmpenho.class.php 61286 2014-12-30 11:35:13Z luciana $ + * $Id: TEmpenhoEmpenho.class.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso: uc-02.01.23 uc-02.03.03 @@ -4317,63 +4317,67 @@ function recuperaDadosExportacao(&$rsRecordSet, $stCondicao = "", $boTransacao = function MontaRecuperaDadosExportacao() { - $stSql = "SELECT \r\n"; - $stSql .= "tabela.num_orgao , \r\n"; - $stSql .= "tabela.num_unidade , \r\n"; - $stSql .= "tabela.cod_funcao , \r\n"; - $stSql .= "tabela.cod_subfuncao , \r\n"; - $stSql .= "tabela.cod_programa , \r\n"; - $stSql .= "0 as cod_subprograma , \r\n"; - $stSql .= "tabela.num_pao , \r\n"; - $stSql .= "replace(tabela.cod_estrutural,'.','') as cod_estrutural , \r\n"; - $stSql .= "tabela.cod_recurso , \r\n"; - $stSql .= "0 as contrapartida , \r\n"; - $stSql .= "(tabela.exercicio || LPAD(tabela.cod_entidade::varchar,2,'0') || LPAD(tabela.cod_empenho::varchar,7,'0')) as num_empenho ,\r\n"; - $stSql .= "to_char(tabela.dt_empenho,'ddmmyyyy') as dt_empenho , \r\n"; - $stSql .= "replace(cast(tabela.vl_empenhado as varchar),'.','') as vl_empenhado , \r\n"; - $stSql .= "tabela.sinal , \r\n"; - $stSql .= "tabela.cgm , \r\n"; - $stSql .= "tabela.exercicio , \r\n"; - $stSql .= "tabela.cod_empenho , \r\n"; - $stSql .= "tabela.ordem , \r\n"; - $stSql .= "tabela.historico , \r\n"; - $stSql .= "tabela.caracteristica , \r\n"; - $stSql .= "tabela.modalidade , \r\n"; - $stSql .= "tabela.nro_licitacao , \r\n"; - $stSql .= "tabela.outras_modalidades, \r\n"; - $stSql .= "tabela.preco , \r\n"; - $stSql .= "'' as branco \r\n"; - $stSql .= "FROM \r\n"; - $stSql .= " tcers.exportacaoEmpenho('".$this->getDado('stExercicio')."','".$this->getDado('dtInicial')."','".$this->getDado('dtFinal')."','".$this->getDado('stCodEntidades')."') \r\n"; - $stSql .= "as \r\n"; - $stSql .= " tabela \r\n"; - $stSql .= " ( \r\n"; - $stSql .= " num_orgao integer , \r\n"; - $stSql .= " num_unidade integer , \r\n"; - $stSql .= " cod_funcao integer , \r\n"; - $stSql .= " cod_subfuncao integer , \r\n"; - $stSql .= " cod_programa integer , \r\n"; - $stSql .= " num_pao integer , \r\n"; - $stSql .= " cod_recurso integer , \r\n"; - $stSql .= " cod_estrutural varchar , \r\n"; - $stSql .= " cod_empenho integer , \r\n"; - $stSql .= " dt_empenho date , \r\n"; - $stSql .= " vl_empenhado numeric , \r\n"; - $stSql .= " sinal varchar , \r\n"; - $stSql .= " cgm integer , \r\n"; - $stSql .= " historico varchar , \r\n"; - $stSql .= " cod_pre_empenho integer , \r\n"; - $stSql .= " exercicio char(4) , \r\n"; - $stSql .= " cod_entidade integer , \r\n"; - $stSql .= " ordem integer , \r\n"; - $stSql .= " oid oid , \r\n"; - $stSql .= " caracteristica integer , \r\n"; - $stSql .= " modalidade integer , \r\n"; - $stSql .= " nro_licitacao text , \r\n"; - $stSql .= " outras_modalidades text , \r\n"; - $stSql .= " preco text \r\n"; - $stSql .= " ) \r\n"; - $stSql .= "ORDER BY tabela.exercicio,tabela.cod_empenho, tabela.ordem; \r\n"; + $stSql = " SELECT + tabela.num_orgao + ,tabela.num_unidade + ,tabela.cod_funcao + ,tabela.cod_subfuncao + ,tabela.cod_programa + ,0 as cod_subprograma + ,tabela.num_pao + ,replace(tabela.cod_estrutural,'.','') as cod_estrutural + ,tabela.cod_recurso + ,0 as contrapartida + ,(tabela.exercicio || LPAD(tabela.cod_entidade::varchar,2,'0') || LPAD(tabela.cod_empenho::varchar,7,'0')) as num_empenho + ,to_char(tabela.dt_empenho,'ddmmyyyy') as dt_empenho + ,replace(cast(tabela.vl_empenhado as varchar),'.','') as vl_empenhado + ,tabela.sinal + ,tabela.cgm + ,tabela.exercicio + ,tabela.cod_empenho + ,tabela.ordem + ,tabela.historico + ,tabela.caracteristica + ,tabela.modalidade + ,tabela.nro_licitacao + ,tabela.outras_modalidades + ,tabela.preco + ,'' as branco + ,modalidade_licitacao + FROM + tcers.exportacaoEmpenho('".$this->getDado('stExercicio')."','".$this->getDado('dtInicial')."','".$this->getDado('dtFinal')."','".$this->getDado('stCodEntidades')."') + AS tabela + ( + num_orgao integer + ,num_unidade integer + ,cod_funcao integer + ,cod_subfuncao integer + ,cod_programa integer + ,num_pao integer + ,cod_recurso integer + ,cod_estrutural varchar + ,cod_empenho integer + ,dt_empenho date + ,vl_empenhado numeric + ,sinal varchar + ,cgm integer + ,historico varchar + ,cod_pre_empenho integer + ,exercicio char(4) + ,cod_entidade integer + ,ordem integer + ,oid oid + ,caracteristica integer + ,modalidade integer + ,nro_licitacao text + ,outras_modalidades text + ,preco text + ,modalidade_licitacao text + ) + ORDER BY tabela.exercicio + ,tabela.cod_empenho + ,tabela.ordem; + "; return $stSql; } diff --git a/gestaoFinanceira/fontes/PHP/empenho/instancias/adiantamentos/OCGeraNotaPrestacaoContas.php b/gestaoFinanceira/fontes/PHP/empenho/instancias/adiantamentos/OCGeraNotaPrestacaoContas.php index 6a80f24..4c67a3e 100644 --- a/gestaoFinanceira/fontes/PHP/empenho/instancias/adiantamentos/OCGeraNotaPrestacaoContas.php +++ b/gestaoFinanceira/fontes/PHP/empenho/instancias/adiantamentos/OCGeraNotaPrestacaoContas.php @@ -65,7 +65,7 @@ $obTOrcamentoEntidade->setDado( 'exercicio' , Sessao::getExercicio() ); $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade = ".$_REQUEST['inCodEntidade'] ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } $preview->addAssinaturas(Sessao::read('assinaturas')); diff --git a/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php b/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php index fa99af4..c6fd62e 100644 --- a/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php +++ b/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php @@ -30,7 +30,7 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Id: OCGeraRelacaoEmpenho.php 60355 2014-10-15 18:11:01Z silvia $ +* $Id: OCGeraRelacaoEmpenho.php 61647 2015-02-20 11:26:55Z luciana $ * */ @@ -50,7 +50,7 @@ $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade in (" $preview->addParametro( 'entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { while ( !$rsEntidade->eof() ) { if ( preg_match( "/prefeitura.*/i", $rsEntidade->getCampo('nom_cgm')) ) { diff --git a/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php b/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php index e3778bb..64cd875 100644 --- a/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php +++ b/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php @@ -35,7 +35,7 @@ * @ignore - * $Id: OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso : uc-02.03.08 */ @@ -43,10 +43,6 @@ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/Framewor include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkBirt.inc.php'; -function UTF8($valor) -{ - return utf8_encode($valor); -} // Faz a verificação, caso a situacao seja 1,2,3, chama o relatorio = 3, senão chama o 4. $preview = new PreviewBirt(2, 10, ($_REQUEST['inSituacao'] < 4 ? 3 : 4)); @@ -63,7 +59,7 @@ if ($stIncluirAssinaturas == 'nao') { } else { $stIncluirAssinaturas = 'sim'; } -$preview->addParametro('incluir_assinaturas', UTF8($stIncluirAssinaturas)); +$preview->addParametro('incluir_assinaturas', $stIncluirAssinaturas); if (count($_REQUEST['inCodEntidade']) > 1) { $stWhere = "where exercicio='".Sessao::getExercicio()."' and parametro='cod_entidade_prefeitura'"; @@ -163,7 +159,7 @@ if ($_REQUEST['inCodFornecedor'] != "") { $RCGM = new RCGM; $RCGM->setNumCGM($_REQUEST["inCodFornecedor"]); $RCGM->listar($rsDadosCGM); - $stDescFornecedor = UTF8($rsDadosCGM->getCampo("nom_cgm")); + $stDescFornecedor = $rsDadosCGM->getCampo("nom_cgm"); $preview->addParametro('cod_credor', $_REQUEST['inCodFornecedor']); $preview->addParametro('nome_credor', $_REQUEST['inCodFornecedor'].' - '.$stDescFornecedor); @@ -183,7 +179,7 @@ if (trim($_REQUEST['inCodDespesa']) != "") { $preview->addParametro('elemento_despesa_masc', $_REQUEST['inCodDespesa']); $stDespesaDescricao = $_REQUEST['inCodDespesa'].' - '. $stDescricao; - $preview->addParametro('despesa_descricao', UTF8($stDespesaDescricao)); + $preview->addParametro('despesa_descricao', $stDespesaDescricao); } else { $preview->addParametro('elemento_despesa', ''); $preview->addParametro('despesa_descricao', ''); @@ -199,7 +195,7 @@ if ($_REQUEST['inCodRecurso'] != "") { $stDescricaoRecurso .= ' - '.$rsLista->getCampo("nom_recurso"); $preview->addParametro('cod_recurso' , $_REQUEST['inCodRecurso']); - $preview->addParametro('recurso_descricao', UTF8($stDescricaoRecurso)); + $preview->addParametro('recurso_descricao', $stDescricaoRecurso); } else { $preview->addParametro('cod_recurso' , ''); $preview->addParametro('recurso_descricao', ''); diff --git a/gestaoFinanceira/fontes/PHP/empenho/popups/empenho/OCProcurarEmpenho.php b/gestaoFinanceira/fontes/PHP/empenho/popups/empenho/OCProcurarEmpenho.php index 1c08c47..e2374b2 100755 --- a/gestaoFinanceira/fontes/PHP/empenho/popups/empenho/OCProcurarEmpenho.php +++ b/gestaoFinanceira/fontes/PHP/empenho/popups/empenho/OCProcurarEmpenho.php @@ -70,13 +70,13 @@ default: //Consulta $obTEmpenhoEmpenho = new TEmpenhoEmpenho; - $stFiltro .= " AND e.exercicio = ".$stExercicio. "\n"; + $stFiltro .= " AND e.exercicio = '".$stExercicio."' \n"; if ($_REQUEST['inCodEntidadeEmpenho'] != "") { $stFiltro .= " AND e.cod_entidade = ".$_REQUEST['inCodEntidadeEmpenho']. "\n"; } if ($_REQUEST['inCodEmpenho']) { - $stFiltro .= " AND e.cod_empenho = " . $inCodEmpenho . "\n"; + $stFiltro .= " AND e.cod_empenho = ".$inCodEmpenho." \n"; } $stFiltro .= " AND pe.cod_estrutural LIKE '4.4.9.0.51.%' "; @@ -84,6 +84,7 @@ default: $obTEmpenhoEmpenho->recuperaEmpenhoPreEmpenhoObras($rsEmpenho, $stFiltro); break; + default: require_once( CAM_GF_EMP_NEGOCIO."REmpenhoEmpenho.class.php" ); $obRegra = new REmpenhoEmpenho; diff --git a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php index 85cb167..678d81f 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TOrcamentoDespesa.class.php 59884 2014-09-18 13:03:35Z luciana $ + $Id: TOrcamentoDespesa.class.php 61647 2015-02-20 11:26:55Z luciana $ $Revision: 30668 $ $Name$ @@ -408,7 +408,6 @@ function montaRecuperaDotacao() $stSql .= " SELECT \n"; $stSql .= " R.cod_despesa, \n"; $stSql .= " R.exercicio, \n"; - $stSql .= " R.dt_validade_final, \n"; $stSql .= " coalesce(sum(R.vl_reserva),0.00) as vl_reserva \n"; $stSql .= " FROM \n"; $stSql .= " orcamento.reserva_saldos AS R \n"; @@ -424,7 +423,7 @@ function montaRecuperaDotacao() if ($this->getDado("stDataInicial")) { $stSql .= " AND R.dt_inclusao BETWEEN to_date('".$this->getDado("stDataInicial")."'::varchar,'dd/mm/yyyy') AND to_date('".$this->getDado("stDataFinal")."'::varchar,'dd/mm/yyyy') \n"; } - $stSql .= " GROUP BY R.cod_despesa, R.exercicio, R.dt_validade_final \n"; + $stSql .= " GROUP BY R.cod_despesa, R.exercicio \n"; $stSql .= " ) as RS ON \n"; $stSql .= " D.cod_despesa = RS.cod_despesa AND \n"; $stSql .= " D.exercicio = RS.exercicio \n"; diff --git a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoPrevisaoReceita.class.php b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoPrevisaoReceita.class.php index c8b9901..b62e06c 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoPrevisaoReceita.class.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoPrevisaoReceita.class.php @@ -172,6 +172,7 @@ function montaRecuperaEstrutural() FROM orcamento.previsao_receita JOIN orcamento.receita ON receita.cod_receita = previsao_receita.cod_receita + AND receita.exercicio = previsao_receita.exercicio WHERE previsao_receita.periodo = 1 AND receita.cod_entidade IN (".$this->getDado('entidades').") AND previsao_receita.exercicio = '".Sessao::getExercicio()."')::VARCHAR,'.',',') AS meta_arrec_bim_1 @@ -179,6 +180,7 @@ function montaRecuperaEstrutural() FROM orcamento.previsao_receita JOIN orcamento.receita ON receita.cod_receita = previsao_receita.cod_receita + AND receita.exercicio = previsao_receita.exercicio WHERE previsao_receita.periodo = 2 AND receita.cod_entidade IN (".$this->getDado('entidades').") AND previsao_receita.exercicio = '".Sessao::getExercicio()."')::VARCHAR,'.',',') AS meta_arrec_bim_2 @@ -186,6 +188,7 @@ function montaRecuperaEstrutural() FROM orcamento.previsao_receita JOIN orcamento.receita ON receita.cod_receita = previsao_receita.cod_receita + AND receita.exercicio = previsao_receita.exercicio WHERE previsao_receita.periodo = 3 AND receita.cod_entidade IN (".$this->getDado('entidades').") AND previsao_receita.exercicio = '".Sessao::getExercicio()."')::VARCHAR,'.',',') AS meta_arrec_bim_3 @@ -193,6 +196,7 @@ function montaRecuperaEstrutural() FROM orcamento.previsao_receita JOIN orcamento.receita ON receita.cod_receita = previsao_receita.cod_receita + AND receita.exercicio = previsao_receita.exercicio WHERE previsao_receita.periodo = 4 AND receita.cod_entidade IN (".$this->getDado('entidades').") AND previsao_receita.exercicio = '".Sessao::getExercicio()."')::VARCHAR,'.',',') AS meta_arrec_bim_4 @@ -200,6 +204,7 @@ function montaRecuperaEstrutural() FROM orcamento.previsao_receita JOIN orcamento.receita ON receita.cod_receita = previsao_receita.cod_receita + AND receita.exercicio = previsao_receita.exercicio WHERE previsao_receita.periodo = 5 AND receita.cod_entidade IN (".$this->getDado('entidades').") AND previsao_receita.exercicio = '".Sessao::getExercicio()."')::VARCHAR,'.',',') AS meta_arrec_bim_5 @@ -207,6 +212,7 @@ function montaRecuperaEstrutural() FROM orcamento.previsao_receita JOIN orcamento.receita ON receita.cod_receita = previsao_receita.cod_receita + AND receita.exercicio = previsao_receita.exercicio WHERE previsao_receita.periodo = 6 AND receita.cod_entidade IN (".$this->getDado('entidades').") AND previsao_receita.exercicio = '".Sessao::getExercicio()."')::VARCHAR,'.',',') AS meta_arrec_bim_6 diff --git a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoReceita.class.php b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoReceita.class.php index 24eae15..0ad6b3c 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoReceita.class.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoReceita.class.php @@ -27,7 +27,7 @@ * @author Analista: Jorge B. Ribarr * @author Desenvolvedor: Marcelo B. Paulino - $Id: TOrcamentoReceita.class.php 61344 2015-01-08 19:03:39Z silvia $ + $Id: TOrcamentoReceita.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-02.01.06, uc-02.04.04, uc-02.01.34, uc-02.04.03 */ @@ -319,7 +319,7 @@ function recuperaReceitaAnaliticaTCE(&$rsRecordSet, $stCondicao = "" , $stOrdem $obErro = new Erro; $obConexao = new Conexao; $rsRecordSet = new RecordSet; - $stSql = $this->montaRecuperaReceitaAnaliticaTCE().$stCondicao.$stOrdem; + $stSql = $this->montaRecuperaReceitaAnaliticaTCE().$stCondicao.$stOrdem; $this->setDebug( $stSql); $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); @@ -350,6 +350,39 @@ function montaRecuperaReceitaAnaliticaTCE() return $stSql; } +function recuperaLancamentoReceita(&$rsRecordSet, $stCondicao = "" , $stOrdem = "" , $boTransacao = "") +{ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaLancamentoReceita().$stCondicao.$stOrdem; + $this->setDebug( $stSql); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; +} +function montaRecuperaLancamentoReceita(){ + + $stQuebra = "\n"; + $stSql = " SELECT ".$stQuebra; + $stSql .= " CLASSIFICACAO.mascara_classificacao, ".$stQuebra; + $stSql .= " CLASSIFICACAO.descricao, ".$stQuebra; + $stSql .= " RECEITA.* ".$stQuebra; + $stSql .= " FROM ".$stQuebra; + $stSql .= " orcamento.VW_CLASSIFICACAO_RECEITA AS CLASSIFICACAO, ".$stQuebra; + $stSql .= " ORCAMENTO.RECEITA AS RECEITA, ".$stQuebra; + $stSql .= " ORCAMENTO.CONTA_RECEITA AS CR ".$stQuebra; + $stSql .= " WHERE ".$stQuebra; + $stSql .= " CLASSIFICACAO.exercicio IS NOT NULL ".$stQuebra; + $stSql .= " AND RECEITA.cod_conta = CLASSIFICACAO.cod_conta ".$stQuebra; + $stSql .= " AND RECEITA.exercicio = CLASSIFICACAO.exercicio ".$stQuebra; + $stSql .= " AND RECEITA.exercicio = CR.exercicio ".$stQuebra; + $stSql .= " AND RECEITA.cod_conta = CR.cod_conta ".$stQuebra; + + return $stSql; + +} + function recuperaReceitaDedutora(&$rsRecordSet, $stCondicao = "" , $stOrdem = "" , $boTransacao = "") { $obErro = new Erro; @@ -1398,9 +1431,11 @@ function montaRecuperaReceitaExportacaoPlanejamento10() arrecadado_periodo numeric, arrecadado_ano numeric, diferenca numeric - ) ON detalhamento_receitas.cod_estrutural = conta_receita.cod_estrutural - AND SUBSTR(detalhamento_receitas.cod_estrutural, 1, 1) != '9' - + ) ON detalhamento_receitas.cod_estrutural = conta_receita.cod_estrutural \n"; + if ( Sessao::getExercicio() == '2014' ) { + $stSql .= " AND SUBSTR(detalhamento_receitas.cod_estrutural, 1, 1) != '9' \n"; + } + $stSql .= " LEFT JOIN tcemg.receita_indentificadores_peculiar_receita ON receita_indentificadores_peculiar_receita.exercicio = receita.exercicio AND receita_indentificadores_peculiar_receita.cod_receita = receita.cod_receita @@ -1419,7 +1454,11 @@ function montaRecuperaReceitaExportacaoPlanejamento10() , cod_orgao , identificador_deducao , detalhamento_receitas.valor_previsto - , rec.masc_recurso_red + , rec.masc_recurso_red \n"; + + if ( Sessao::getExercicio() == '2014' ) { + $stSql .= " + UNION SELECT @@ -1475,7 +1514,9 @@ function montaRecuperaReceitaExportacaoPlanejamento10() , indentificador_deducao , natureza_receita , especificacao - , rec.masc_recurso_red + , rec.masc_recurso_red \n "; + } + $stSql .= " ) AS tabela WHERE tabela.vl_previsto<>0.00 GROUP BY tipo_registro, cod_orgao, deducao_receita, identificador_deducao, natureza_receita, cod_receita, especificacao @@ -1535,9 +1576,11 @@ function montaRecuperaReceitaExportacaoPlanejamento11() arrecadado_periodo numeric, arrecadado_ano numeric, diferenca numeric - ) - WHERE SUBSTR(cod_estrutural, 1, 1) != '9' - + ) \n"; +if ( Sessao::getExercicio() == '2014' ) { + $stSql .= " WHERE SUBSTR(cod_estrutural, 1, 1) != '9' + + UNION SELECT conta_receita.cod_estrutural::varchar AS cod_estrutural @@ -1585,8 +1628,9 @@ function montaRecuperaReceitaExportacaoPlanejamento11() , receita.exercicio , cod_estrutural , conta_receita.descricao - , rec.masc_recurso_red - ) + , rec.masc_recurso_red \n"; + } + $stSql .= " ) AS detalhamento GROUP BY cod_estrutural , receita diff --git a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasDespesa.js b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasDespesa.js index 81d9f4e..942491e 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasDespesa.js +++ b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasDespesa.js @@ -83,4 +83,12 @@ function somatorio( campo, numColunas ){ return document.frm.campoTotal.value = total; } +function validaRequest(){ + jQuery("input[name^='inCelula']").each(function(){ + if (!jQuery(this).val() || jQuery(this).val() == '0.00' || jQuery(this).val() == '0,00' || jQuery(this).val() == 0.00){ + jQuery(this).attr('disabled', 'disabled'); + } + }); +} + diff --git a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasReceita.js b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasReceita.js index 20649ba..eee83bd 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasReceita.js +++ b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasReceita.js @@ -81,4 +81,12 @@ function somatorio( inQtdLinhas, inQtdColunas, inLinhaCorrente, inColunaCorrente } +function validaRequest(){ + jQuery("input[name^='inCelula']").each(function(){ + if (!jQuery(this).val() || jQuery(this).val() == '0.00' || jQuery(this).val() == '0,00' || jQuery(this).val() == 0.00){ + jQuery(this).attr('disabled', 'disabled'); + } + }); +} + diff --git a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasDespesa.php b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasDespesa.php index 5e3be7e..866be36 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasDespesa.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasDespesa.php @@ -379,6 +379,7 @@ $obDataGrid->addTituloGrid ( "Registros de metas de execução de despesa $obDataGrid->montaGrid(); $obOk = new Ok; +$obOk->obEvento->setOnClick("validaRequest(); BloqueiaFrames(true,false); Salvar();"); $obVoltar = new Button; $obVoltar->setName ( "Cancelar" ); diff --git a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasReceita.php b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasReceita.php index b32dd0f..b72eae5 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasReceita.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasReceita.php @@ -73,6 +73,7 @@ $pgOcul = "OC".$stPrograma.".php"; $pgJS = "JS".$stPrograma.".js"; include_once( $pgJS ); +ini_set('max_input_vars', '10000'); ?> obROrcamentoPrevisaoOrcamentaria->setExercicio( $obRPrevisaoDespesa->getExercicio() ); if ( $obRPrevisaoDespesa->getExercicio() != $obRPrevisaoDespesa->obROrcamentoPrevisaoOrcamentaria->getExercicio() ) { $obRPrevisaoDespesa->obROrcamentoPrevisaoOrcamentaria->setExercicio( $obRPrevisaoDespesa->getExercicio() ); - $obRPrevisaoDespesa->obROrcamentoPrevisaoOrcamentaria->salvar(); + $obRPrevisaoDespesa->obROrcamentoPrevisaoOrcamentaria->salvar($boTransacao); } $arID = explode(":", $_POST['stCodDespesa']); @@ -108,7 +108,7 @@ switch ($stAcao) { $inValor = $_POST["inCelula_".$arID[$inContLinhas]."_".$inContColunas."_".$inContLinhas]; $inValor = str_replace( ".", "", $inValor ); $inValor = str_replace( ",", ".", $inValor ); - $arTotal[ $inContLinhas ] = $arTotal[ $inContLinhas ] + $inValor; + $arTotal[ $inContLinhas ] = number_format(($arTotal[ $inContLinhas ] + $inValor),2,'.',''); } } @@ -127,9 +127,11 @@ switch ($stAcao) { if ( count($arID) ) { for ( $inContLinhas = 0; $inContLinhas < count($arID); $inContLinhas++) { $obRPrevisaoDespesa->setCodigoDespesa ( $arID[$inContLinhas] ); - $obErro = $obRPrevisaoDespesa->limparDados(); + $obErro = $obRPrevisaoDespesa->limparDados($boTransacao); } } + $boFlagTransacao = false; + $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); if ( !$obErro->ocorreu() ) { for ($inContLinhas = 0; $inContLinhas < $_POST['inQtdLin']; $inContLinhas++) { for ($inContColunas = 0; $inContColunas < $_POST['inQtdCol']; $inContColunas++) { @@ -141,14 +143,16 @@ switch ($stAcao) { } else { $obRPrevisaoDespesa->setValorPrevisto ( $inValor ); } - $obErro = $obRPrevisaoDespesa->salvar(); + $obErro = $obRPrevisaoDespesa->salvar($boTransacao); } } + $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obRPrevisaoDespesa ); } } if ( !$obErro->ocorreu() ) { - SistemaLegado::alertaAviso($pgList, $obRPrevisaoDespesa->getCodigoDespesa()."/".$obRPrevisaoDespesa->getExercicio(), "alterar", "aviso", Sessao::getId(), "../"); + SistemaLegado::alertaAviso($pgList,"Configuração realizada com sucesso.", "alterar", "aviso", Sessao::getId(), "../"); } else { + SistemaLegado::LiberaFrames(true,true); SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); } break; diff --git a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRMetasReceita.php b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRMetasReceita.php index d048811..628f221 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRMetasReceita.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRMetasReceita.php @@ -64,12 +64,14 @@ $pgProc = "PR".$stPrograma.".php"; $pgOcul = "OC".$stPrograma.".php"; $pgJS = "JS".$stPrograma.".js"; +ini_set('max_input_vars', '10000'); + $obRPrevisaoReceita = new ROrcamentoPrevisaoReceita; $obROrcamentoPrevisaoOrcamentaria = new ROrcamentoPrevisaoOrcamentaria; $obRConfiguracaoOrcamento = new ROrcamentoConfiguracao; $obROrcamentoReceita = new ROrcamentoReceita; - -$obErro = new Erro; +$obTransacao = new Transacao(); +$obErro = new Erro; $stAcao = $_POST["stAcao"] ? $_POST["stAcao"] : $_GET["stAcao"]; @@ -84,16 +86,17 @@ switch ($stAcao) { } return ($a<$b) ? -1 : 1; } + $obRPrevisaoReceita->setQtdColunas ( $_POST['inQtdCol'] ); $obRPrevisaoReceita->setQtdLinhas ( $_POST['inQtdLin'] ); $obRPrevisaoReceita->setExercicio ( Sessao::getExercicio() ); $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->setExercicio( $obRPrevisaoReceita->getExercicio() ); - $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->consultar( $rsPrevisaoOrcamentaria ); + $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->consultar( $rsPrevisaoOrcamentaria, $boTransacao ); if ( $obRPrevisaoReceita->getExercicio() != $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->getExercicio() ) { $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->setExercicio( $obRPrevisaoReceita->getExercicio() ); - $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->salvar(); + $obRPrevisaoReceita->obROrcamentoPrevisaoOrcamentaria->salvar($boTransacao); } $stFiltro = '&stCodReceita='.$_POST['stCodReceita'].'&inCodEntidade='.$_POST['inCodEntidade']; @@ -116,10 +119,10 @@ switch ($stAcao) { if ($arTotal[ $inKey ] != '0,00') { $arValorFuncaoCol[ $inKey ] = (float)$arValorFuncaoCol[ $inKey ]; - if(floatcmp($arTotal[ $inKey ], $arValorFuncaoCol[ $inKey ]) == 1){ - //if (round($arTotal[ $inKey ]) > round($arValorFuncaoCol[ $inKey ])) { + if(floatcmp($arTotal[ $inKey ], $arValorFuncaoCol[ $inKey ]) == 1){ $obErro->setDescricao( "Total da receita ".$arID[ $inKey ]." não deve ser maior que o valor orçado." ); $boSalvar++; + SistemaLegado::LiberaFrames(true,false); break; } } @@ -129,15 +132,17 @@ switch ($stAcao) { if ( count($arID) ) { for ( $inContLinhas = 0; $inContLinhas < count($arID); $inContLinhas++) { $obRPrevisaoReceita->setCodigoReceita ( $arID[$inContLinhas] ); - $obErro = $obRPrevisaoReceita->limparDados(); + $obErro = $obRPrevisaoReceita->limparDados($boTransacao); } } + $boFlagTransacao = false; + $obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); for ($inContLinhas = 0; $inContLinhas < $_POST['inQtdLin']; $inContLinhas++) { for ($inContColunas = 0; $inContColunas < $_POST['inQtdCol']; $inContColunas++) { $obRPrevisaoReceita->setCodigoReceita ( $arID[$inContLinhas] ); $obRPrevisaoReceita->setPeriodo ( $inContColunas + 1 ); - $inValor = $_REQUEST["inCelula_".$arID[$inContLinhas]."_".$inContColunas."_".$inContLinhas]; + $inValor = $_REQUEST["inCelula_".$arID[$inContLinhas]."_".$inContColunas."_".$inContLinhas]; if ($inValor == "") { $obRPrevisaoReceita->setValorPeriodo ( 0 ); } else { @@ -145,15 +150,17 @@ switch ($stAcao) { $valor = str_replace(',','.',$valor); $obRPrevisaoReceita->setValorPeriodo ( $valor ); } - $obErro = $obRPrevisaoReceita->salvar(); + $obErro = $obRPrevisaoReceita->salvar($boTransacao); if ( $obErro->ocorreu() ) { break 2; } } } + $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obRPrevisaoReceita ); } + if ( !$obErro->ocorreu() ) { - SistemaLegado::alertaAviso($pgList.'?'.Sessao::getId().$stFiltro, $obRPrevisaoReceita->getCodigoReceita()."/".$obRPrevisaoReceita->getExercicio(), "alterar", "aviso", Sessao::getId(), "../"); + SistemaLegado::alertaAviso($pgList.'?'.Sessao::getId().$stFiltro, "Configuração realizada com sucesso.", "alterar", "aviso", Sessao::getId(), "../"); } else { SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); } diff --git a/gestaoFinanceira/fontes/PHP/orcamento/instancias/processamento/OCReceita.php b/gestaoFinanceira/fontes/PHP/orcamento/instancias/processamento/OCReceita.php index f5d916d..5154b6b 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/instancias/processamento/OCReceita.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/instancias/processamento/OCReceita.php @@ -30,7 +30,7 @@ * @author Analista: Diego Barbosa Victoria * @author Desenvolvedor: Diego Barbosa Victoria - $Id: OCReceita.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCReceita.php 61647 2015-02-20 11:26:55Z luciana $ Casos de uso: uc-02.01.06 */ @@ -58,7 +58,12 @@ function buscaReceitaCod() if ($rsReceita->getNumLinhas() > 0) { $stDescricao = $rsReceita->getCampo ('descricao'); } else { - $stJs .= "alertaAviso('Receita inválida para a entidade selecionada.','frm','erro','".Sessao::getId()."'); \n"; + $boVerificador = verificaReceitaLancamento(); + if ( $boVerificador ) { + $stJs .= "alertaAviso('Necessário configurar o Lançamento de Receita da Conta ". $_GET[$_GET['stNomCampoCod']]."','frm','erro','".Sessao::getId()."'); \n"; + }else{ + $stJs .= "alertaAviso('Receita inválida para a entidade selecionada.','frm','erro','".Sessao::getId()."'); \n"; + } } } } else { @@ -79,6 +84,25 @@ function buscaReceitaCod() return $stJs; } +function verificaReceitaLancamento() { + #Verifica se o problema é nao estar configurado o lancamento de receita + #tabela contabilidade.configuracao_lançamento_receita + $obMapeamento = new TOrcamentoReceita(); + $boVerificador = false; + $stFiltro = " AND RECEITA.exercicio = '".Sessao::getExercicio()."'"; + $stFiltro .= " AND RECEITA.cod_receita = ". $_GET[$_GET['stNomCampoCod']]; + if($stEntidades) + $stFiltro .= " AND RECEITA.cod_entidade in (".$stEntidades.") "; + $stFiltro .= " AND NOT EXISTS ( SELECT dr.cod_receita_secundaria + FROM contabilidade.desdobramento_receita as dr + WHERE receita.cod_receita = dr.cod_receita_secundaria + AND receita.exercicio = dr.exercicio ) "; + $obMapeamento->recuperaLancamentoReceita($rsLancamentoReceita, $stFiltro); + if ($rsLancamentoReceita->getNumLinhas() > 0) + $boVerificador = true; + return $boVerificador; +} + function buscaReceita($stTipoBusca, $stEntidades = "") { switch ($stTipoBusca) { diff --git a/gestaoFinanceira/fontes/PHP/orcamento/popups/despesa/LSDespesa.php b/gestaoFinanceira/fontes/PHP/orcamento/popups/despesa/LSDespesa.php index 95ef5da..3b85977 100755 --- a/gestaoFinanceira/fontes/PHP/orcamento/popups/despesa/LSDespesa.php +++ b/gestaoFinanceira/fontes/PHP/orcamento/popups/despesa/LSDespesa.php @@ -30,7 +30,7 @@ * @author Desenvolvedor: Marcelo Boezzio Paulino * @ignore - $Id: LSDespesa.php 60907 2014-11-24 15:02:38Z silvia $ + $Id: LSDespesa.php 61767 2015-03-03 12:28:44Z luciana $ $Revision: 31725 $ $Name$ @@ -247,7 +247,7 @@ $stAcao = "SELECIONAR"; $obLista->addAcao(); $obLista->ultimaAcao->setAcao( $stAcao ); $obLista->ultimaAcao->setFuncao( true ); -$obLista->ultimaAcao->setLink( "JavaScript:insereDespesa();" ); +$obLista->ultimaAcao->setLink( "JavaScript:window.close();insereDespesa();" ); $obLista->ultimaAcao->addCampo("1","cod_despesa"); $obLista->ultimaAcao->addCampo("2","descricao"); $obLista->commitAcao(); diff --git a/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPA.class.php b/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPA.class.php index 01a69d3..4840ae2 100644 --- a/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPA.class.php +++ b/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPA.class.php @@ -30,6 +30,8 @@ * @author Analista: Heleno Santos * @author Desenvolvedor: Fellipe Esteves dos Santos + * $Id: TPPA.class.php 61683 2015-02-25 14:28:21Z luciana $ + * Casos de uso: uc-02.09.01 */ @@ -209,5 +211,45 @@ class TPPA extends TPPAUtils return $stSQL; } + + function recuperaPPAHomolagacaoNorma(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stOrdem = ($stOrdem != "") ? " ORDER BY ".$stOrdem : $stOrdem; + $stSql = $this->montaRecuperaPPAHomolagacaoNorma().$stFiltro.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaPPAHomolagacaoNorma() + { + $stSql = "SELECT ppa.cod_ppa \n"; + $stSql.= " , ppa.ano_inicio \n"; + $stSql.= " , ppa.ano_final \n"; + $stSql.= " , ppa.timestamp \n"; + $stSql.= " , ppa.ano_inicio||' a '||ppa.ano_final AS periodo \n"; + $stSql.= " , ppa_publicacao.timestamp AS dt_homologacao \n"; + $stSql.= " , ppa_publicacao.cod_norma \n"; + $stSql.= " , tipo_norma.nom_tipo_norma||' '||LPAD(norma.num_norma, 6, '0')||'/'||norma.exercicio||' - '||norma.nom_norma AS descricao_norma \n"; + $stSql.= " FROM ppa.ppa \n"; + $stSql.= " JOIN ppa.ppa_publicacao \n"; + $stSql.= " ON ppa_publicacao.cod_ppa = ppa.cod_ppa \n"; + $stSql.= " AND ppa_publicacao.timestamp = (SELECT MAX(ppa_publicacao.timestamp) FROM ppa.ppa_publicacao WHERE ppa_publicacao.cod_ppa = ppa.cod_ppa) \n"; + if($this->getDado('exercicio')) + $stSql.= " AND ".$this->getDado('exercicio')." BETWEEN ppa.ano_inicio::INTEGER AND ppa.ano_final::INTEGER \n"; + else + $stSql.= " AND ".Sessao::getExercicio()." BETWEEN ppa.ano_inicio::INTEGER AND ppa.ano_final::INTEGER \n"; + $stSql.= " JOIN normas.norma \n"; + $stSql.= " ON norma.cod_norma = ppa_publicacao.cod_norma \n"; + $stSql.= " JOIN normas.tipo_norma \n"; + $stSql.= " ON tipo_norma.cod_tipo_norma = norma.cod_tipo_norma \n"; + $stSql.= " WHERE ppa.fn_verifica_homologacao(ppa.cod_ppa) = TRUE \n"; + + return $stSql; + } } diff --git a/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPAAcao.class.php b/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPAAcao.class.php index c20bf73..0251ac2 100644 --- a/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPAAcao.class.php +++ b/gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPAAcao.class.php @@ -1194,9 +1194,13 @@ class TPPAAcao extends TPPAUtils //Persistente JOIN orcamento.conta_despesa ON conta_despesa.cod_conta = despesa.cod_conta AND conta_despesa.exercicio = despesa.exercicio + JOIN administracao.configuracao_entidade ON configuracao_entidade.cod_entidade = despesa.cod_entidade AND configuracao_entidade.exercicio = despesa.exercicio + AND configuracao_entidade.cod_modulo = 55 + AND configuracao_entidade.parametro = 'tcemg_codigo_orgao_entidade_sicom' + JOIN orcamento.programa_ppa_programa ON programa_ppa_programa.cod_programa = despesa.cod_programa AND programa_ppa_programa.exercicio = despesa.exercicio diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php index d7c0cea..9feab1e 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php @@ -31,7 +31,7 @@ * @ignore - $Id: FMReciboDespesaExtra.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMReciboDespesaExtra.php 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso: uc-02.04.30 */ @@ -57,6 +57,7 @@ $pgOcul = "OC".$stPrograma.".php"; $pgJS = "JS".$stPrograma.".js"; $stAcao = $request->get('stAcao'); +include_once($pgJS); $obForm = new Form; $obForm->setAction( $pgProc ); @@ -66,6 +67,8 @@ $obForm->setTarget( "oculto" ); $obEntidadeUsuario = new ITextBoxSelectEntidadeUsuario; $obEntidadeUsuario->obTextBox->obEvento->setOnChange( 'getIMontaAssinaturas()' ); $obEntidadeUsuario->obSelect->obEvento->setOnChange( 'getIMontaAssinaturas()' ); +$obEntidadeUsuario->obSelect->obEvento->setOnChange( "buscaValor('preencheDataEmissao')" ); +$obEntidadeUsuario->obTextBox->obEvento->setOnChange( "buscaValor('preencheDataEmissao')" ); ///Data Emissão $obTextData = new Data; @@ -146,12 +149,21 @@ $obFormulario->addComponente ( $obPopUpContaDespesa ); $obFormulario->addComponente ( $obTextValor ); $obFormulario->addComponente ( $obTextHistorico ); +$stOnclickOkJs = " if ( Valida() ){ + document.frm.Ok.disabled = true; + BloqueiaFrames(true,false); + document.frm.submit(); + }"; + $obOk = new Ok; -$obOk->setId ("Ok"); -$obOk->obEvento->setOnClick("Salvar(); "); +$obOk->setId ("Ok"); +$obOk->setName ("Ok"); +$obOk->obEvento->setOnClick($stOnclickOkJs); $obLimpar = new Button; $obLimpar->setValue( "Limpar" ); +$obLimpar->setId ( "limpar" ); +$obLimpar->setName ( "limpar" ); $obLimpar->obEvento->setOnClick( "frm.reset(); frm.inCodEntidade.focus(); document.frm.Ok.disabled = false;" ); $obMontaAssinaturas->geraFormulario ( $obFormulario ); diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/JSReciboDespesaExtra.js b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/JSReciboDespesaExtra.js new file mode 100644 index 0000000..f88c20c --- /dev/null +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/JSReciboDespesaExtra.js @@ -0,0 +1,57 @@ + + + \ No newline at end of file diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/OCReciboDespesaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/OCReciboDespesaExtra.php index d72dcf8..587e3eb 100755 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/OCReciboDespesaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/OCReciboDespesaExtra.php @@ -78,7 +78,27 @@ case 'montaEstornos': echo $obTable->getHTML(); break; + + case 'preencheDataEmissao': + include_once CAM_GF_TES_MAPEAMENTO.'TTesourariaReciboExtra.class.php'; + $obTReciboExtra = new TTesourariaReciboExtra; + /////pegando a data do ultimo recibo de Receita + $obTReciboExtra->setDado ('tipo_recibo','D'); + $obTReciboExtra->setDado ('exercicio',Sessao::getExercicio()); + $obTReciboExtra->setDado ('cod_entidade',$_REQUEST['inCodEntidade']); + $obTReciboExtra->recuperaUltimaDataRecibo( $rsDataRecibo ); + + if ( $rsDataRecibo->getCampo( 'data' ) ) { + $stUltimaData = substr($rsDataRecibo->getCampo( 'data' ), 0, 10 ); + $stUltimaData = explode ( '-', $stUltimaData ); + $stUltimaData = $stUltimaData[2].'/'.$stUltimaData[1].'/'.$stUltimaData[0]; + $stJs .= "d.getElementById('dtDataEmissao').value = '".$stUltimaData."';\n"; + }else { + $stJs .= "d.getElementById('dtDataEmissao').value = '';\n"; + } + + SistemaLegado::executaFrameOculto($stJs); + break; } -echo $stJs; ?> diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/PRReciboDespesaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/PRReciboDespesaExtra.php index a1d88ec..f4bb959 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/PRReciboDespesaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/PRReciboDespesaExtra.php @@ -31,7 +31,7 @@ * @ignore - $Id: PRReciboDespesaExtra.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: PRReciboDespesaExtra.php 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso: uc-02.04.30 */ @@ -56,6 +56,8 @@ $pgJS = "JS".$stPrograma.".js"; $obTReciboExtra = new TTesourariaReciboExtra; +SistemaLegado::BloqueiaFrames(true,true); + switch ($stAcao) { case 'incluir': @@ -328,4 +330,6 @@ switch ($stAcao) { } -?> +SistemaLegado::LiberaFrames(true,true); + +?> \ No newline at end of file diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php index 12c4944..c40451d 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php @@ -77,7 +77,7 @@ $pgOcul = "OC".$stPrograma.".php"; $pgJS = "JS".$stPrograma.".js"; $stAcao = $_GET['stAcao'] ? $_GET['stAcao'] : $_POST['stAcao']; - +include_once($pgJS); $obForm = new Form; $obForm->setAction( $pgProc ); $obForm->setTarget( "oculto" ); @@ -86,6 +86,8 @@ $obForm->setTarget( "oculto" ); $obEntidadeUsuario = new ITextBoxSelectEntidadeUsuario; $obEntidadeUsuario->obTextBox->obEvento->setOnChange( 'getIMontaAssinaturas()' ); $obEntidadeUsuario->obSelect->obEvento->setOnChange( 'getIMontaAssinaturas()' ); +$obEntidadeUsuario->obSelect->obEvento->setOnChange( "buscaValor('preencheDataEmissao')" ); +$obEntidadeUsuario->obTextBox->obEvento->setOnChange( "buscaValor('preencheDataEmissao')" ); ///Data Emissão $obTextData = new Data; @@ -165,12 +167,21 @@ $obFormulario->addComponente ( $obPopUpContaReceita ); $obFormulario->addComponente ( $obTextValor ); $obFormulario->addComponente ( $obTextHistorico ); +$stOnclickOkJs = " if ( Valida() ){ + document.frm.Ok.disabled = true; + BloqueiaFrames(true,false); + document.frm.submit(); + } "; + $obOk = new Ok; -$obOk->setId ("Ok"); -$obOk->obEvento->setOnClick("Salvar(); "); +$obOk->setId ("Ok"); +$obOk->setName ("Ok"); +$obOk->obEvento->setOnClick($stOnclickOkJs); $obLimpar = new Button; $obLimpar->setValue( "Limpar" ); +$obLimpar->setId ( "limpar" ); +$obLimpar->setName ( "limpar" ); $obLimpar->obEvento->setOnClick( "frm.reset(); frm.inCodEntidade.focus(); document.frm.Ok.disabled = false;" ); $obMontaAssinaturas->geraFormulario( $obFormulario ); diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/JSReciboReceitaExtra.js b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/JSReciboReceitaExtra.js new file mode 100644 index 0000000..a01afbe --- /dev/null +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/JSReciboReceitaExtra.js @@ -0,0 +1,57 @@ + + + \ No newline at end of file diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/OCReciboReceitaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/OCReciboReceitaExtra.php index d047142..2bd94c8 100755 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/OCReciboReceitaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/OCReciboReceitaExtra.php @@ -78,7 +78,26 @@ case 'montaEstornos': echo $obTable->getHTML(); break; -} -echo $stJs; +case 'preencheDataEmissao': + include_once CAM_GF_TES_MAPEAMENTO.'TTesourariaReciboExtra.class.php'; + $obTReciboExtra = new TTesourariaReciboExtra; + /////pegando a data do ultimo recibo de Receita + $obTReciboExtra->setDado ('tipo_recibo','R'); + $obTReciboExtra->setDado ('exercicio',Sessao::getExercicio()); + $obTReciboExtra->setDado ('cod_entidade',$_REQUEST['inCodEntidade']); + $obTReciboExtra->recuperaUltimaDataRecibo( $rsDataRecibo ); + + if ( $rsDataRecibo->getCampo( 'data' ) ) { + $stUltimaData = substr($rsDataRecibo->getCampo( 'data' ), 0, 10 ); + $stUltimaData = explode ( '-', $stUltimaData ); + $stUltimaData = $stUltimaData[2].'/'.$stUltimaData[1].'/'.$stUltimaData[0]; + $stJs .= "d.getElementById('dtDataEmissao').value = '".$stUltimaData."';\n"; + }else { + $stJs .= "d.getElementById('dtDataEmissao').value = '';\n"; + } + + SistemaLegado::executaFrameOculto($stJs); + break; +} ?> diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/PRReciboReceitaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/PRReciboReceitaExtra.php index 70665d7..8052447 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/PRReciboReceitaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/PRReciboReceitaExtra.php @@ -98,6 +98,8 @@ $stAcao = $_GET['stAcao'] ? $_GET['stAcao'] : $_POST['stAcao']; $obTReciboExtra = new TTesourariaReciboExtra; +SistemaLegado::BloqueiaFrames(true,true); + switch ($stAcao) { case 'incluir': @@ -352,4 +354,6 @@ switch ($stAcao) { break; } -?> +SistemaLegado::LiberaFrames(true,true); + +?> \ No newline at end of file diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosExtras.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosExtras.php index 6574a8c..e643927 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosExtras.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosExtras.php @@ -57,7 +57,7 @@ $preview->addParametro('final_date' , $_REQUEST['stDataFinal'] ); // parametros para conta caixa if ($_REQUEST['inCodPlanoCredito']) { $preview->addParametro('ccaixa' , $_REQUEST['inCodPlanoCredito'] ); - $preview->addParametro('f_ccaixa' , $_REQUEST['inCodPlanoCredito']." - ".utf8_encode($_REQUEST['stNomContaCredito']) ); + $preview->addParametro('f_ccaixa' , $_REQUEST['inCodPlanoCredito']." - ".$_REQUEST['stNomContaCredito'] ); } else { $preview->addParametro('ccaixa' , "" ); $preview->addParametro('f_ccaixa' , "" ); @@ -66,7 +66,7 @@ if ($_REQUEST['inCodPlanoCredito']) { // parametros para conta debito if ($_REQUEST['inCodPlanoDebito']) { $preview->addParametro('cdespesa' , $_REQUEST['inCodPlanoDebito'] ); - $preview->addParametro('f_cdespesa' , $_REQUEST['inCodPlanoDebito']." - ".utf8_encode($_REQUEST['stNomContaDebito']) ); + $preview->addParametro('f_cdespesa' , $_REQUEST['inCodPlanoDebito']." - ".$_REQUEST['stNomContaDebito'] ); } else { $preview->addParametro('cdespesa' , "" ); $preview->addParametro('f_cdespesa' , "" ); diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosOrcamentarios.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosOrcamentarios.php index 85f16b6..2a57f96 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosOrcamentarios.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosOrcamentarios.php @@ -55,19 +55,19 @@ if ( $ano == Sessao::getExercicio() ) { // filtro de periodicidade if (( $_REQUEST['stDataInicial'] ) && ( $_REQUEST['stDataFinal'] )) { $preview->addParametro( 'data_emissao', "and ordem_pagamento.dt_emissao between to_date('".$_REQUEST['stDataInicial']."', 'dd-mm-yyyy') and to_date('".$_REQUEST['stDataFinal']."', 'dd-mm-yyyy')" ); - $preview->addParametro( 'f_data_emissao', $_REQUEST['stDataInicial'].utf8_encode(' até ').$_REQUEST['stDataFinal'] ); + $preview->addParametro( 'f_data_emissao', $_REQUEST['stDataInicial'].' até '.$_REQUEST['stDataFinal'] ); } elseif ($_REQUEST['stDataInicial']) { $preview->addParametro( 'data_emissao', " and ordem_pagamento.dt_emissao = to_date('".$_REQUEST['stDataInicial']."', 'dd-mm-yyyy')" ); $preview->addParametro( 'f_data_emissao', 'A partir de '.$_REQUEST['stDataInicial'] ); } elseif ($_REQUEST['stDataFinal']) { $preview->addParametro( 'data_emissao', " and ordem_pagamento.dt_emissao = to_date('".$_REQUEST['stDataFinal']."', 'dd-mm-yyyy')" ); - $preview->addParametro( 'f_data_emissao', utf8_encode('Até ').$_REQUEST['stDataFinal'] ); + $preview->addParametro( 'f_data_emissao', 'Até '.$_REQUEST['stDataFinal'] ); } // filtro de fornecedor if ($_REQUEST['inCGM']) { $preview->addParametro( 'num_cgm', 'and pre_empenho.cgm_beneficiario = '.$_REQUEST['inCGM'].' '); - $preview->addParametro( 'f_num_cgm' , $_REQUEST['inCGM'].' - '.utf8_encode($_REQUEST['stNomCGM']) ); + $preview->addParametro( 'f_num_cgm' , $_REQUEST['inCGM'].' - '.$_REQUEST['stNomCGM'] ); } else { $preview->addParametro( 'num_cgm', '' ); $preview->addParametro( 'f_num_cgm', '' ); @@ -76,13 +76,13 @@ if ( $ano == Sessao::getExercicio() ) { // filtro de empenho if (( $_REQUEST['inCodEmpenhoInicial'] ) && ( $_REQUEST['inCodEmpenhoFinal'] )) { $preview->addParametro( 'empenho', ' and empenho.cod_empenho between '.$_REQUEST['inCodEmpenhoInicial'].' and '.$_REQUEST['inCodEmpenhoFinal'].' '); - $preview->addParametro( 'f_empenho', $_REQUEST['inCodEmpenhoInicial'].utf8_encode(' até ').$_REQUEST['inCodEmpenhoFinal'] ); + $preview->addParametro( 'f_empenho', $_REQUEST['inCodEmpenhoInicial'].' até '.$_REQUEST['inCodEmpenhoFinal'] ); } elseif ($_REQUEST['inCodEmpenhoInicial']) { $preview->addParametro( 'empenho', ' and empenho.cod_empenho = '.$_REQUEST['inCodEmpenhoInicial'].' '); $preview->addParametro( 'f_empenho', 'A partir de '.$_REQUEST['inCodEmpenhoInicial'] ); } elseif ($_REQUEST['inCodEmpenhoFinal']) { $preview->addParametro( 'empenho', ' and empenho.cod_empenho = '.$_REQUEST['inCodEmpenhoFinal'].' '); - $preview->addParametro( 'f_empenho', utf8_encode('Até ').$_REQUEST['inCodEmpenhoFinal'] ); + $preview->addParametro( 'f_empenho', 'Até '.$_REQUEST['inCodEmpenhoFinal'] ); } else { $preview->addParametro( 'empenho', '' ); $preview->addParametro( 'f_empenho', '' ); @@ -91,13 +91,13 @@ if ( $ano == Sessao::getExercicio() ) { // filtro de despesa if (( $_REQUEST['inCodDotacaoInicial'] ) && ( $_REQUEST['inCodDotacaoFinal'] )) { $preview->addParametro( 'despesa', ' and despesa.cod_despesa between '.$_REQUEST['inCodDotacaoInicial'].' and '.$_REQUEST['inCodDotacaoFinal'].' '); - $preview->addParametro( 'f_despesa', $_REQUEST['inCodDotacaoInicial'].utf8_encode(' até ').$_REQUEST['inCodDotacaoFinal'] ); + $preview->addParametro( 'f_despesa', $_REQUEST['inCodDotacaoInicial'].' até '.$_REQUEST['inCodDotacaoFinal'] ); } elseif ($_REQUEST['inCodDotacaoInicial']) { $preview->addParametro( 'despesa', ' and despesa.cod_despesa = '.$_REQUEST['inCodDotacaoInicial'].' '); $preview->addParametro( 'f_despesa', 'A partir de '.$_REQUEST['inCodDotacaoInicial'] ); } elseif ($_REQUEST['inCodDotacaoFinal']) { $preview->addParametro( 'despesa', ' and despesa.cod_despesa = '.$_REQUEST['inCodDotacaoFinal'].' '); - $preview->addParametro( 'f_despesa', utf8_encode('Até ').$_REQUEST['inCodDotacaoFinal'] ); + $preview->addParametro( 'f_despesa', 'Até '.$_REQUEST['inCodDotacaoFinal'] ); } else { $preview->addParametro( 'despesa', '' ); $preview->addParametro( 'f_despesa', '' ); diff --git a/gestaoFinanceira/fontes/PLPGSQL/contabilidade/insereLancamentoDepreciacao.plsql b/gestaoFinanceira/fontes/PLPGSQL/contabilidade/insereLancamentoDepreciacao.plsql index f67e78e..8494b8f 100644 --- a/gestaoFinanceira/fontes/PLPGSQL/contabilidade/insereLancamentoDepreciacao.plsql +++ b/gestaoFinanceira/fontes/PLPGSQL/contabilidade/insereLancamentoDepreciacao.plsql @@ -40,6 +40,7 @@ DECLARE PboEstorno ALIAS FOR $7; inCodLote INTEGER := 0; + inCodContaAnalitica INTEGER := 0; inCodPlanoDeb INTEGER := 0; inCodPlanoCred INTEGER := 0; inCodPlanoEstrutural INTEGER := 0; @@ -48,17 +49,18 @@ DECLARE inCodDepreciacao INTEGER := 0; stDataLote DATE; chTipo CHAR := ''; - stCodEstruturalDepreciacao VARCHAR := '3.3.3.1.1.01.01.00.00.00'; + stCodEstruturalDepreciacao VARCHAR; stNomeLote VARCHAR := ''; stSql VARCHAR := ''; stFiltro VARCHAR := ''; reRegistro RECORD; + reCodPlano RECORD; BEGIN -- Verifica se existe depreciação na competência que não esteja anulada SELECT INTO inCodDepreciacao - cod_depreciacao + cod_depreciacao FROM patrimonio.depreciacao WHERE competencia = PstExercicio || PstMesCompetencia AND NOT EXISTS ( SELECT 1 @@ -71,27 +73,150 @@ BEGIN IF inCodDepreciacao IS NULL THEN RAISE EXCEPTION 'Não existem bens depreciados na competência: % !', PstMesCompetencia || '/' || PstExercicio; END IF; + + -- Verifica se determinado bem possui um depreciação e cod_plano de depreciação acumulada relacionados no exercicio. + stSql := ' + SELECT depreciacao.cod_bem + , CASE WHEN bem_plano_depreciacao.cod_plano IS NOT NULL + THEN bem_plano_depreciacao.cod_plano + ELSE grupo_plano_depreciacao.cod_plano + END AS cod_plano + , tipo_natureza.cod_natureza + , tipo_natureza.codigo + , tipo_natureza.nom_natureza + + FROM patrimonio.depreciacao + + LEFT JOIN ( + SELECT bem_plano_depreciacao.cod_bem + , bem_plano_depreciacao.cod_plano + , bem_plano_depreciacao.exercicio + + FROM patrimonio.bem_plano_depreciacao + + LEFT JOIN contabilidade.plano_analitica + ON plano_analitica.cod_plano = bem_plano_depreciacao.cod_plano + AND plano_analitica.exercicio = bem_plano_depreciacao.exercicio + + LEFT JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + + WHERE bem_plano_depreciacao.timestamp::timestamp = ( SELECT MAX(bem_plano.timestamp::timestamp) AS timestamp + FROM patrimonio.bem_plano_depreciacao AS bem_plano + + WHERE bem_plano_depreciacao.cod_bem = bem_plano.cod_bem + AND bem_plano_depreciacao.exercicio = bem_plano.exercicio + AND bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + + GROUP BY bem_plano.cod_bem + , bem_plano.exercicio ) + AND bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + ORDER BY timestamp DESC + + )AS bem_plano_depreciacao + ON bem_plano_depreciacao.cod_bem = depreciacao.cod_bem + + LEFT JOIN ( SELECT grupo_plano_depreciacao.cod_plano + , bem.cod_bem + , grupo_plano_depreciacao.exercicio + + FROM patrimonio.grupo_plano_depreciacao + + INNER JOIN patrimonio.grupo + ON grupo.cod_natureza = grupo_plano_depreciacao.cod_natureza + AND grupo.cod_grupo = grupo_plano_depreciacao.cod_grupo + + INNER JOIN patrimonio.especie + ON especie.cod_grupo = grupo.cod_grupo + AND especie.cod_natureza = grupo.cod_natureza + + INNER JOIN patrimonio.bem + ON bem.cod_especie = especie.cod_especie + AND bem.cod_grupo = especie.cod_grupo + AND bem.cod_natureza = especie.cod_natureza + + WHERE grupo_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + + ) AS grupo_plano_depreciacao + ON grupo_plano_depreciacao.cod_bem = depreciacao.cod_bem + + INNER JOIN + ( SELECT bem.cod_bem + , bem.cod_natureza + , tipo_natureza.codigo + , natureza.nom_natureza + + FROM patrimonio.bem + + INNER JOIN patrimonio.especie + ON especie.cod_especie = bem.cod_especie + AND especie.cod_grupo = bem.cod_grupo + AND especie.cod_natureza = bem.cod_natureza + + INNER JOIN patrimonio.grupo + ON grupo.cod_grupo = especie.cod_grupo + AND grupo.cod_natureza = especie.cod_natureza + + INNER JOIN patrimonio.natureza + ON natureza.cod_natureza = grupo.cod_natureza + + INNER JOIN patrimonio.tipo_natureza + ON tipo_natureza.codigo = natureza.cod_tipo + + ) AS tipo_natureza + ON tipo_natureza.cod_bem = depreciacao.cod_bem + + WHERE competencia = '|| quote_literal( PstExercicio || PstMesCompetencia) ||' + AND NOT EXISTS ( SELECT 1 + FROM patrimonio.depreciacao_anulada + WHERE depreciacao_anulada.cod_depreciacao = depreciacao.cod_depreciacao + AND depreciacao_anulada.cod_bem = depreciacao.cod_bem + AND depreciacao_anulada.timestamp = depreciacao.timestamp + ) + + AND grupo_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + OR bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + + ORDER BY tipo_natureza.cod_natureza '; + + FOR reCodPlano IN EXECUTE stSql + LOOP + + -- Verifica se está configurada um tipo de natureza para a natureza do Grupo + IF reCodPlano.codigo = 0 OR reCodPlano.codigo != 1 AND reCodPlano.codigo != 2 THEN + RAISE EXCEPTION 'Necessário configurar um Tipo de Natureza, de bem móvel ou imóvel, para a Natureza %', reCodPlano.cod_natureza || ' - ' || reCodPlano.nom_natureza; + END IF; + + -- Verifica se o tipo de bem é Movel (1) ou Imóvel (2) para setar o cod_estrutural e buscar o cod_plano que será creditado ou debitado. + IF reCodPlano.codigo = 1 THEN + stCodEstruturalDepreciacao = '3.3.3.1.1.01.01.00.00.00'; + ELSEIF reCodPlano.codigo = 2 THEN + stCodEstruturalDepreciacao = '3.3.3.1.1.01.02.00.00.00'; + END IF; + -- Recupera cod_plano apartir do cod_estrutural (3.3.3.1.1.01.01.00.00.00), para depreciação de bens móveis ou (3.3.3.1.1.01.02.00.00.00) para bens imóveis. + -- Quando não for estorno (estorno = false), insere o cod_plano na contabilidade.conta_debito + -- Quando for estorno (estorno = true), insere o cod_plano na contabilidade.conta_credito + SELECT INTO + inCodPlanoEstrutural + cod_plano + FROM contabilidade.plano_conta + INNER JOIN contabilidade.plano_analitica + ON plano_analitica.exercicio = plano_conta.exercicio + AND plano_analitica.cod_conta = plano_conta.cod_conta + WHERE plano_conta.cod_estrutural = stCodEstruturalDepreciacao + AND plano_analitica.exercicio = PstExercicio; + + IF inCodPlanoEstrutural IS NULL THEN + RAISE EXCEPTION 'Conta ( % ) não é analítica ou não está cadastrada no plano de contas.',stCodEstruturalDepreciacao; + END IF; + + END LOOP; + -- Caso tenha informado uma string com mais de 1 caracter trunca chTipo := substr(trim(PstTipo),1,1); - -- Recupera cod_plano apartir do cod_estrutural fixo (3.3.3.1.1.01.01.00.00.00), para depreciação de bens móvies. - -- Quando não for estorno (estorno = false), insere o cod_pano na contabilidade.conta_debito - -- Quando for estorno (estorno = true), insere o cod_pano na contabilidade.conta_credito - SELECT INTO - inCodPlanoEstrutural - cod_plano - FROM contabilidade.plano_conta - INNER JOIN contabilidade.plano_analitica - ON plano_analitica.exercicio = plano_conta.exercicio - AND plano_analitica.cod_conta = plano_conta.cod_conta - WHERE plano_conta.cod_estrutural = stCodEstruturalDepreciacao - AND plano_analitica.exercicio = PstExercicio; - - IF inCodPlanoEstrutural IS NULL THEN - RAISE EXCEPTION 'Conta ( % ) não é analítica ou não está cadastrada no plano de contas.',stCodEstruturalDepreciacao; - END IF; - -- Se estiver no mês da competência, deve ser o dia atual, senão será o último dia do mês caso estiver em mês posterior IF TO_CHAR(CURRENT_DATE, 'MM') = PstMesCompetencia THEN stDataLote := CURRENT_DATE; @@ -115,7 +240,8 @@ BEGIN (cod_lote, exercicio, tipo, cod_entidade, nom_lote, dt_lote) VALUES (inCodLote, PstExercicio, chTipo, PinCodEntidade, stNomeLote, stDataLote); - + + -- Recupera as depreciações, e seus valores agrupados por cod_plano, agrupados por grupo ou bem. stSql := ' SELECT depreciacao.cod_depreciacao , SUM ( depreciacao.vl_depreciado ) AS vl_depreciado @@ -147,11 +273,14 @@ BEGIN WHERE bem_plano_depreciacao.timestamp::timestamp = ( SELECT MAX(bem_plano.timestamp::timestamp) AS timestamp FROM patrimonio.bem_plano_depreciacao AS bem_plano - WHERE bem_plano_depreciacao.cod_bem = bem_plano.cod_bem - AND bem_plano_depreciacao.exercicio = bem_plano.exercicio - - GROUP BY bem_plano.cod_bem - , bem_plano.exercicio ) + WHERE bem_plano_depreciacao.cod_bem = bem_plano.cod_bem + AND bem_plano_depreciacao.exercicio = bem_plano.exercicio + AND bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + + GROUP BY bem_plano.cod_bem + , bem_plano.exercicio ) + AND bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + GROUP BY bem_plano_depreciacao.cod_bem , bem_plano_depreciacao.cod_plano , bem_plano_depreciacao.exercicio @@ -163,8 +292,9 @@ BEGIN )AS bem_plano_depreciacao ON bem_plano_depreciacao.cod_bem = depreciacao.cod_bem - LEFT JOIN ( SELECT cod_plano - , cod_bem + LEFT JOIN ( SELECT grupo_plano_depreciacao.cod_plano + , bem.cod_bem + , grupo_plano_depreciacao.exercicio FROM patrimonio.grupo_plano_depreciacao @@ -180,6 +310,8 @@ BEGIN ON bem.cod_especie = especie.cod_especie AND bem.cod_grupo = especie.cod_grupo AND bem.cod_natureza = especie.cod_natureza + + WHERE grupo_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' ) AS grupo_plano_depreciacao ON grupo_plano_depreciacao.cod_bem = depreciacao.cod_bem @@ -191,14 +323,15 @@ BEGIN AND depreciacao_anulada.cod_bem = depreciacao.cod_bem AND depreciacao_anulada.timestamp = depreciacao.timestamp ) - + AND grupo_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + OR bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + GROUP BY depreciacao.cod_depreciacao , bem_plano_depreciacao.cod_plano , grupo_plano_depreciacao.cod_plano ORDER BY cod_plano '; - FOR reRegistro IN EXECUTE stSql LOOP @@ -221,7 +354,7 @@ BEGIN inCodPlanoDeb := reRegistro.cod_plano; inCodPlanoCred := inCodPlanoEstrutural; END IF; - + IF inCodPlanoDeb IS NULL OR inCodPlanoCred IS NULL THEN RAISE EXCEPTION 'Necessário configurar uma Conta Contábil de Depreciação Acumulada!'; END IF; @@ -371,9 +504,12 @@ BEGIN WHERE bem_plano_depreciacao.cod_bem = bem_plano.cod_bem AND bem_plano_depreciacao.exercicio = bem_plano.exercicio + AND bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' GROUP BY bem_plano.cod_bem , bem_plano.exercicio ) + AND bem_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' + GROUP BY bem_plano_depreciacao.cod_bem , bem_plano_depreciacao.cod_plano , bem_plano_depreciacao.exercicio @@ -387,8 +523,9 @@ BEGIN ON bem_plano_depreciacao.cod_bem = depreciacao.cod_bem LEFT JOIN ( SELECT grupo_plano_depreciacao.cod_plano - , cod_bem + , bem.cod_bem , valor_lancamento.sequencia + , grupo_plano_depreciacao.exercicio FROM patrimonio.grupo_plano_depreciacao @@ -435,6 +572,8 @@ BEGIN ) AS valor_lancamento ON valor_lancamento.cod_plano = grupo_plano_depreciacao.cod_plano + + WHERE grupo_plano_depreciacao.exercicio = '|| quote_literal(PstExercicio) ||' ) AS grupo_plano_depreciacao ON grupo_plano_depreciacao.cod_bem = depreciacao.cod_bem diff --git a/gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacao.plsql b/gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacao.plsql index 5f1648d..32d9c0d 100755 --- a/gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacao.plsql +++ b/gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacao.plsql @@ -153,6 +153,7 @@ BEGIN re.exercicio = stExercicio AND re.cod_despesa = inCodDespesa AND re.dt_validade_final > to_date(now()::text, 'yyyy-mm-dd') AND + EXTRACT( YEAR FROM re.dt_inclusao)::varchar = stExercicio AND rsa.cod_reserva is null; -- GROUP BY -- re.dt_validade_final; diff --git a/gestaoFinanceira/fontes/RPT/ppa/report/design/despesaFonteRecurso.rptdesign b/gestaoFinanceira/fontes/RPT/ppa/report/design/despesaFonteRecurso.rptdesign index b2e3c80..e0f586b 100644 --- a/gestaoFinanceira/fontes/RPT/ppa/report/design/despesaFonteRecurso.rptdesign +++ b/gestaoFinanceira/fontes/RPT/ppa/report/design/despesaFonteRecurso.rptdesign @@ -2,14 +2,16 @@ Eclipse BIRT Designer Version 2.5.0.v20090603 Build <2.5.0.v20090617-0630> in - Copyright (c) 2007 <<Your Company Name here>> + Analista: Tonismar Régis Bernardo <tonismar.bernardo@cnm.org.br> +Desenvolvedor: Henrique Boaventura <henrique.boaventura@cnm.org.br> + Template para o formato A4 paisagem Template Urbem Paisagem auto layout ltr - ../../../../../../gestaoAdministrativa/fontes/RPT/framework/library/urbem_231.rptlibrary - urbem_231 + ../../../../../../gestaoAdministrativa/fontes/RPT/framework/library/urbem_250.rptlibrary + urbem_250 @@ -23,14 +25,10 @@ Unformatted - - true + static false string - - 2009 - simple text-box true @@ -38,8 +36,7 @@ Unformatted - - true + static false string @@ -50,14 +47,10 @@ Unformatted - - true + static false string - - org.postgresql.Driver - simple text-box true @@ -65,14 +58,10 @@ Unformatted - - true + static false string - - jdbc:postgresql://172.16.30.3:5432/gf_mariana_1008_1959 - simple text-box true @@ -80,14 +69,10 @@ Unformatted - - true + static false string - - sw.suporte - simple text-box true @@ -95,14 +80,10 @@ Unformatted - - true + static false string - - suporte - simple text-box true @@ -110,10 +91,10 @@ Unformatted - + static false - integer + string simple text-box true @@ -121,13 +102,10 @@ Unformatted - + static false - integer - - 2010 - + string simple text-box true @@ -135,13 +113,10 @@ Unformatted - + static - true - integer - - 1 - + false + string simple text-box true @@ -149,7 +124,7 @@ Unformatted - + static false string @@ -160,7 +135,7 @@ Unformatted - + static false string @@ -171,9 +146,9 @@ Unformatted - + static - true + false string simple text-box @@ -182,9 +157,20 @@ Unformatted - + static - true + false + string + simple + text-box + true + + Unformatted + + + + static + false string simple text-box @@ -195,327 +181,109 @@ - + + extensionProperties.odaDriverClass = params["db_driver"].value; + extensionProperties.odaURL = params["db_conn_url"].value; + extensionProperties.odaUser = params["db_user"].value; + extensionProperties.odaPassword = params["db_password"].value; +}]]> org.postgresql.Driver - jdbc:postgresql://172.16.30.3:5432/gf_mariana_1008_1959 - sw.suporte - c3Vwb3J0ZQ== + jdbc:postgresql://172.16.30.181:2345/mariana_2201_2036_stable_1 + jean + MTIz - - - - param_1 - exercicio1 - - string - 12 - 1 - true - false - - - param_2 - exercicio2 - - string - 12 - 2 - true - false - - - param_4 - exercicio3 - string - 3 - true - false - - - param_5 - exercicio4 - string - 4 - true - false - - - param_2_1 - cod_ppa - - integer - 4 - 5 - true - false - - - - - - 1 - cod_ppa - integer - - - 2 - ano_inicio - string - - - 3 - ano_final - string - - - 4 - ano_recurso - integer - - - 5 - cod_recurso - string - - - 6 - nom_recurso - string - - - 7 - exercicio_recurso - string - - - 8 - valor_corrente - decimal - - - 9 - valor_capital - decimal - - - 10 - valor_nao_orcamentaria - decimal - - - 11 - cod_tipo - integer - - - 12 - cod_tipo_programa - integer - - - 13 - nom_tipo_programa - string - - - - postgres - - - 1 - cod_ppa - cod_ppa - integer - - - 2 - ano_inicio - ano_inicio - string - - - 3 - ano_final - ano_final - string - - - 4 - ano_recurso - ano_recurso - integer - - - 5 - cod_recurso - cod_recurso - string - - - 6 - nom_recurso - nom_recurso - string - - - 7 - exercicio_recurso - exercicio_recurso - string - - - 8 - valor_corrente - valor_corrente - decimal - - - 9 - valor_capital - valor_capital - decimal - - - 10 - valor_nao_orcamentaria - valor_nao_orcamentaria - decimal - - - 11 - cod_tipo - cod_tipo - integer - - - 12 - cod_tipo_programa - cod_tipo_programa - integer - - - 13 - nom_tipo_programa - nom_tipo_programa - string - - - 3) - THEN acao_recurso.valor - ELSE 0 - END AS valor_nao_orcamentaria - , acao_dados.cod_tipo - , programa_dados.cod_tipo_programa - , tipo_programa.descricao AS nom_tipo_programa - FROM ppa.acao -INNER JOIN ppa.acao_dados - ON acao.cod_acao = acao_dados.cod_acao - AND acao.ultimo_timestamp_acao_dados = acao_dados.timestamp_acao_dados -INNER JOIN ppa.acao_recurso - ON acao.cod_acao = acao_recurso.cod_acao - AND acao.ultimo_timestamp_acao_dados = acao_recurso.timestamp_acao_dados -INNER JOIN ppa.programa - ON acao.cod_programa = programa.cod_programa -INNER JOIN ppa.programa_dados - ON programa.cod_programa = programa_dados.cod_programa - AND programa.ultimo_timestamp_programa_dados = programa_dados.timestamp_programa_dados -INNER JOIN ppa.tipo_programa - ON programa_dados.cod_tipo_programa = tipo_programa.cod_tipo_programa -INNER JOIN ppa.programa_setorial - ON programa.cod_setorial = programa_setorial.cod_setorial -INNER JOIN ppa.macro_objetivo - ON programa_setorial.cod_macro = macro_objetivo.cod_macro -INNER JOIN ppa.ppa - ON macro_objetivo.cod_ppa = ppa.cod_ppa -INNER JOIN ( SELECT exercicio - , masc_recurso - , cod_recurso - , nom_recurso - FROM orcamento.recurso(?) - - UNION ALL - - SELECT exercicio - , masc_recurso - , cod_recurso - , nom_recurso - FROM orcamento.recurso(?) + + + 3)\n"; +this.queryText += " THEN acao_recurso.valor\n"; +this.queryText += " ELSE 0\n"; +this.queryText += " END AS valor_nao_orcamentaria\n"; +this.queryText += " , acao_dados.cod_tipo\n"; +this.queryText += " , programa_dados.cod_tipo_programa\n"; +this.queryText += " , tipo_programa.descricao AS nom_tipo_programa \n"; +this.queryText += " FROM ppa.acao\n"; +this.queryText += "INNER JOIN ppa.acao_dados\n"; +this.queryText += " ON acao.cod_acao = acao_dados.cod_acao\n"; +this.queryText += " AND acao.ultimo_timestamp_acao_dados = acao_dados.timestamp_acao_dados\n"; +this.queryText += "INNER JOIN ppa.acao_recurso \n"; +this.queryText += " ON acao.cod_acao = acao_recurso.cod_acao\n"; +this.queryText += " AND acao.ultimo_timestamp_acao_dados = acao_recurso.timestamp_acao_dados\n"; +this.queryText += "INNER JOIN ppa.programa\n"; +this.queryText += " ON acao.cod_programa = programa.cod_programa\n"; +this.queryText += "INNER JOIN ppa.programa_dados\n"; +this.queryText += " ON programa.cod_programa = programa_dados.cod_programa\n"; +this.queryText += " AND programa.ultimo_timestamp_programa_dados = programa_dados.timestamp_programa_dados\n"; +this.queryText += "INNER JOIN ppa.tipo_programa\n"; +this.queryText += " ON programa_dados.cod_tipo_programa = tipo_programa.cod_tipo_programa \n"; +this.queryText += "INNER JOIN ppa.programa_setorial\n"; +this.queryText += " ON programa.cod_setorial = programa_setorial.cod_setorial\n"; +this.queryText += "INNER JOIN ppa.macro_objetivo\n"; +this.queryText += " ON programa_setorial.cod_macro = macro_objetivo.cod_macro\n"; +this.queryText += "INNER JOIN ppa.ppa\n"; +this.queryText += " ON macro_objetivo.cod_ppa = ppa.cod_ppa\n"; +this.queryText += "INNER JOIN ( SELECT exercicio\n"; +this.queryText += " , masc_recurso\n"; +this.queryText += " , cod_recurso\n"; +this.queryText += " , nom_recurso\n"; +this.queryText += " FROM orcamento.recurso('"+params['exercicio1']+"') \n"; +this.queryText += "\n"; +this.queryText += " UNION ALL\n"; +this.queryText += "\n"; +this.queryText += " SELECT exercicio\n"; +this.queryText += " , masc_recurso\n"; +this.queryText += " , cod_recurso\n"; +this.queryText += " , nom_recurso\n"; +this.queryText += " FROM orcamento.recurso('"+params['exercicio2']+"')\n"; +this.queryText += "\n"; +this.queryText += " UNION ALL\n"; +this.queryText += "\n"; +this.queryText += " SELECT exercicio\n"; +this.queryText += " , masc_recurso\n"; +this.queryText += " , cod_recurso\n"; +this.queryText += " , nom_recurso\n"; +this.queryText += " FROM orcamento.recurso('"+params['exercicio3']+"')\n"; +this.queryText += "\n"; +this.queryText += " UNION ALL\n"; +this.queryText += "\n"; +this.queryText += " SELECT exercicio\n"; +this.queryText += " , masc_recurso\n"; +this.queryText += " , cod_recurso\n"; +this.queryText += " , nom_recurso\n"; +this.queryText += " FROM orcamento.recurso('"+params['exercicio4']+"')\n"; +this.queryText += " ) AS recurso\n"; +this.queryText += " ON recurso.exercicio = acao_recurso.exercicio_recurso\n"; +this.queryText += " AND recurso.cod_recurso = acao_recurso.cod_recurso\n"; +this.queryText += " WHERE ppa.cod_ppa = "+params['cod_ppa']+"\n"; - UNION ALL - - SELECT exercicio - , masc_recurso - , cod_recurso - , nom_recurso - FROM orcamento.recurso(?) - - UNION ALL - - SELECT exercicio - , masc_recurso - , cod_recurso - , nom_recurso - FROM orcamento.recurso(?) - ) AS recurso - ON recurso.exercicio = acao_recurso.exercicio_recurso - AND recurso.cod_recurso = acao_recurso.cod_recurso - WHERE ppa.cod_ppa = ?]]> - - - 1.0 - - - In - - - 1 - 12 - 0 - 0 - Unknown - - - - In - - - 2 - 12 - 0 - 0 - Unknown - - - -]]> +params['query'] = this.queryText;]]> + postgres + - - @@ -561,107 +331,98 @@ INNER JOIN ( SELECT exercicio 0.21in 0.1in - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - exercicio - - - exercicio - 'PPA ' + params["ano_inicial"].value + ' - ' + (params["ano_inicial"].value + 3) - string - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 285mm @@ -710,7 +471,7 @@ INNER JOIN ( SELECT exercicio cod_recurso dataSetRow["cod_recurso"] - integer + string nom_recurso @@ -895,22 +656,22 @@ INNER JOIN ( SELECT exercicio - + 165mm - + 30mm - + 30mm - + 30mm - + 30mm - + anoGroup none asc @@ -924,15 +685,15 @@ INNER JOIN ( SELECT exercicio auto auto
- + auto auto - + 5 1 5pt 5pt - + 8pt 5pt 5pt @@ -944,34 +705,34 @@ INNER JOIN ( SELECT exercicio
- + #000000 solid thin auto - + 10pt auto - - + + 10pt center - + 10pt center - + 10pt center
- + recursoGroup none asc @@ -1122,17 +883,17 @@ INNER JOIN ( SELECT exercicio auto auto
- - + + 2 1 10pt - + descricao_recurso - - + + Currency #,##0.00 @@ -1141,8 +902,8 @@ INNER JOIN ( SELECT exercicio vlCorrente - - + + Currency #,##0.00 @@ -1151,8 +912,8 @@ INNER JOIN ( SELECT exercicio vlCapital - - + + Currency #,##0.00 @@ -1195,7 +956,7 @@ INNER JOIN ( SELECT exercicio cod_recurso dataSetRow["cod_recurso"] - integer + string nom_recurso @@ -1717,7 +1478,7 @@ INNER JOIN ( SELECT exercicio cod_recurso dataSetRow["cod_recurso"] - integer + string nom_recurso @@ -2135,7 +1896,7 @@ INNER JOIN ( SELECT exercicio cod_recurso dataSetRow["cod_recurso"] - integer + string nom_recurso diff --git a/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoDespesaExtra.rptdesign b/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoDespesaExtra.rptdesign index aeba69b..7d198da 100644 --- a/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoDespesaExtra.rptdesign +++ b/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoDespesaExtra.rptdesign @@ -4,6 +4,16 @@ in Analista: Tonismar Régis Bernardo <tonismar.bernardo@cnm.org.br> Desenvolvedor: Henrique Boaventura <henrique.boaventura@cnm.org.br> + + + queryText + 1160 + + + queryTimeOut + 1160 + + auto layout ltr @@ -174,8 +184,10 @@ Desenvolvedor: Henrique Boaventura <henrique.boaventura@cnm.org.br>false string simple + false text-box true + 1 Unformatted @@ -202,10 +214,8 @@ Desenvolvedor: Henrique Boaventura <henrique.boaventura@cnm.org.br> - org.postgresql.Driver - jdbc:postgresql://172.16.30.3:5432/gf_tce_2309_davi_contabilidade_2 - sw.suporte - c3Vwb3J0ZQ== + org.eclipse.birt.report.data.oda.sampledb.Driver + jdbc:classicmodels:sampledb @@ -245,39 +255,49 @@ extensionProperties.odaPassword = params["db_password"].value; false - param_5 + param_4 + data_ini string 12 4 true + false - param_6 + param_5 + data_fim string 12 5 true + false - param_7 + param_6 + exercicio string - 1 + 12 6 + false true + false - param_9 + param_7 + exercicio string - 12 + 1 7 + false true + false - param_10 + param_8 data_ini string @@ -288,15 +308,18 @@ extensionProperties.odaPassword = params["db_password"].value; false - param_11 + param_9 + data_fim string - 1 + 12 9 + false true + false - param_12 + param_10 exercicio string @@ -307,18 +330,18 @@ extensionProperties.odaPassword = params["db_password"].value; false - param_13 - data_ini + param_11 + exercicio string - 12 + 1 11 false true false - param_14 + param_12 data_ini string @@ -329,7 +352,7 @@ extensionProperties.odaPassword = params["db_password"].value; false - param_4 + param_13 data_fim string @@ -340,7 +363,7 @@ extensionProperties.odaPassword = params["db_password"].value; false - param_8 + param_14 exercicio string @@ -352,6 +375,27 @@ extensionProperties.odaPassword = params["db_password"].value; + postgres + 1 = 1 ]]> 1.0 @@ -947,6 +991,13 @@ where 0 Unknown + + + + JS_EXPR + + + In @@ -960,6 +1011,13 @@ where 0 Unknown + + + + JS_EXPR + + + In @@ -993,6 +1051,13 @@ where 0 Unknown + + + + JS_EXPR + + + In @@ -1026,6 +1091,13 @@ where 0 Unknown + + + + JS_EXPR + + + In diff --git a/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoReceitaExtra.rptdesign b/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoReceitaExtra.rptdesign index 0b95d08..c8fa33f 100644 --- a/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoReceitaExtra.rptdesign +++ b/gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoReceitaExtra.rptdesign @@ -313,12 +313,12 @@ extensionProperties.odaPassword = params["db_password"].value; if( params["cod_plano"] != "") { - this.queryText = this.queryText + " AND relacao.cod_plano " + params["cod_plano"] + " " + this.queryText = this.queryText + " AND ( relacao.cod_plano " + params["cod_plano"] + " ) " } if( params["conta_banco"] != "") { - this.queryText = this.queryText + " AND relacao.cod_plano_credito " + params["conta_banco"] + " " + this.queryText = this.queryText + " AND ( relacao.cod_plano_banco " + params["conta_banco"] + " ) " } if( params["recurso"] != "") @@ -356,7 +356,7 @@ params["query"] = this.queryText]]> , nom_entidade , nom_conta , cod_estrutural - , cod_recurso + , cod_recurso::text , nom_recurso , masc_recurso_red , cod_detalhamento @@ -378,10 +378,7 @@ params["query"] = this.queryText]]> , entidade_cgm.nom_cgm as nom_entidade , plano_conta.nom_conta , plano_conta.cod_estrutural - , CASE WHEN plano_recurso.cod_recurso IS NULL - THEN '9999999999' - ELSE TO_CHAR(plano_recurso.cod_recurso,'9999999999') - END as cod_recurso + , coalesce(plano_recurso.cod_recurso,9999999999) as cod_recurso , recurso.nom_recurso , recurso.masc_recurso_red , recurso.cod_detalhamento @@ -464,10 +461,7 @@ params["query"] = this.queryText]]> , entidade_cgm.nom_cgm as nom_entidade , plano_conta.nom_conta , plano_conta.cod_estrutural - , CASE WHEN plano_recurso.cod_recurso IS NULL - THEN '9999999999' - ELSE TO_CHAR(plano_recurso.cod_recurso,'9999999999') - END as cod_recurso + , coalesce(plano_recurso.cod_recurso,9999999999) as cod_recurso , recurso.nom_recurso , recurso.masc_recurso_red , recurso.cod_detalhamento diff --git a/gestaoFinanceira/fontes/SQL/GF_1910.sql b/gestaoFinanceira/fontes/SQL/GF_1910.sql index 4ec07f3..133432f 100644 --- a/gestaoFinanceira/fontes/SQL/GF_1910.sql +++ b/gestaoFinanceira/fontes/SQL/GF_1910.sql @@ -26,7 +26,7 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Id: GF_1910.sql 61454 2015-01-16 19:47:45Z luciana $ +* $Id: GF_1910.sql 61782 2015-03-03 18:35:51Z luciana $ * * Versão 1.91.0. */ diff --git a/gestaoFinanceira/fontes/SQL/GF_1951.sql b/gestaoFinanceira/fontes/SQL/GF_1951.sql index 45ece2e..8b64b76 100755 --- a/gestaoFinanceira/fontes/SQL/GF_1951.sql +++ b/gestaoFinanceira/fontes/SQL/GF_1951.sql @@ -26,7 +26,7 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Id: GF_1951.sql 61454 2015-01-16 19:47:45Z luciana $ +* $Id: GF_1951.sql 61782 2015-03-03 18:35:51Z luciana $ * * Versão 1.95.1 */ diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoAlmoxarifado.class.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoAlmoxarifado.class.php index 6aaf0b6..1350f91 100755 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoAlmoxarifado.class.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoAlmoxarifado.class.php @@ -42,21 +42,6 @@ uc-03.03.14 */ -/* -$Log$ -Revision 1.13 2006/07/13 17:21:32 leandro.zis -Bug #6551#, Bug #6550# e alterado para listar os almoxarifados ordenados pelo nome - -Revision 1.12 2006/07/11 20:36:25 tonismar -arrumado método de consulta - -Revision 1.11 2006/07/06 14:04:47 diego -Retirada tag de log com erro. - -Revision 1.10 2006/07/06 12:09:31 diego - -*/ - include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; include_once ( CAM_FW_BANCO_DADOS."Transacao.class.php" ); include_once ( CAM_GP_ALM_MAPEAMENTO."TAlmoxarifadoAlmoxarifado.class.php"); @@ -91,11 +76,6 @@ var $obRCGMAlmoxarifado; * @var Object */ var $obRCGMResponsavel; -/** - * @access Private - * @var Object -*/ -var $stMascara; /** * @access Public @@ -110,18 +90,6 @@ function setCodigo($inCodigo) { $this->inCodigo = $inCodigo; } function getCodigo() { return $this->inCodigo; } /** - * @access Public - * @return Integer -*/ -function setMascara($stMascara) { $this->stMascara = $stMascara; } - -/** - * @access Public - * @return Integer -*/ -function getMascara() { return $this->stMascara; } - -/** * Método construtor * @access Public */ @@ -164,10 +132,9 @@ function listar(&$rsRecordSet, $stOrder = "" , $obTransacao = "") function incluir($boTransacao = "") { - include_once ( CAM_GP_ALM_MAPEAMENTO."TAlmoxarifadoAlmoxarifadoLocalizacao.class.php"); $boFlagTransacao = false; $rsRecordSet = new Recordset(); - $obTAlmoxarifadoLocalizacao = new TAlmoxarifadoAlmoxarifadoLocalizacao(); + $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); if ( !$obErro->ocorreu() ) { $stFiltro = " where cgm_almoxarifado = ". $this->obRCGMAlmoxarifado->getNumCGM(); @@ -187,12 +154,6 @@ function incluir($boTransacao = "") $obErro = $this->obTAlmoxarifadoAlmoxarifado->inclusao( $boTransacao ); - if (!($obErro->ocorreu())) { - $obTAlmoxarifadoLocalizacao->setDado("cod_almoxarifado", $this->inCodigo ); - $obTAlmoxarifadoLocalizacao->setDado("mascara" , $this->stMascara); - $obErro = $obTAlmoxarifadoLocalizacao->inclusao($boTransacao); - } - $this->obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $this->obTAlmoxarifadoAlmoxarifado ); } @@ -211,7 +172,6 @@ function alterar($boTransacao = "") include_once ( CAM_GP_ALM_MAPEAMENTO."TAlmoxarifadoAlmoxarifadoLocalizacao.class.php"); $boFlagTransacao = false; $rsRecordSet = new Recordset(); - $obTAlmoxarifadoLocalizacao = new TAlmoxarifadoAlmoxarifadoLocalizacao(); $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); if ( !$obErro->ocorreu() ) { @@ -228,18 +188,6 @@ function alterar($boTransacao = "") $this->obTAlmoxarifadoAlmoxarifado->setDado( "cgm_almoxarifado" , $this->obRCGMAlmoxarifado->getNumCGM() ); $obErro = $this->obTAlmoxarifadoAlmoxarifado->alteracao( $boTransacao ); - - if ($this->verificaDadosAlmoxarifado() == true) { - if (!($obErro->ocorreu())) { - $obTAlmoxarifadoLocalizacao->setDado("cod_almoxarifado", $this->inCodigo ); - $obErro = $obTAlmoxarifadoLocalizacao->exclusao($boTransacao); - - $obTAlmoxarifadoLocalizacao->setDado("cod_almoxarifado", $this->inCodigo ); - $obTAlmoxarifadoLocalizacao->setDado("mascara" , $this->stMascara); - $obErro = $obTAlmoxarifadoLocalizacao->inclusao($boTransacao); - } - } - $this->obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $this->obTAlmoxarifadoAlmoxarifado ); } @@ -256,12 +204,6 @@ function consultar($boTransacao = "") if (!$obErro->ocorreu()) { $this->obRCGMAlmoxarifado->setNumCGM($rsRecordSet->getCampo('cgm_almoxarifado')); $this->obRCGMAlmoxarifado->consultar(new RecordSet()); - $obTAlmoxarifadoLocalizacao = new TAlmoxarifadoAlmoxarifadoLocalizacao(); - $obTAlmoxarifadoLocalizacao->setDado ('cod_almoxarifado', $this->getCodigo() ); - $obErro = $obTAlmoxarifadoLocalizacao->recuperaPorChave( $rsRecordSet, $boTransacao ); - if (!$obErro->ocorreu()) { - $this->setMascara( $rsRecordSet->getCampo('mascara') ); - } } return $obErro; @@ -287,18 +229,11 @@ function consultarLocalizacao(&$rsRecordSet,$obTransacao = "") function excluir($boTransacao = "") { - include_once ( CAM_GP_ALM_MAPEAMENTO."TAlmoxarifadoAlmoxarifadoLocalizacao.class.php"); $boFlagTransacao = false; $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); - $obTAlmoxarifadoLocalizacao = new TAlmoxarifadoAlmoxarifadoLocalizacao(); if (!$obErro->ocorreu()) { - $obTAlmoxarifadoLocalizacao->setDado("cod_almoxarifado", $this->inCodigo ); - $obTAlmoxarifadoLocalizacao->setDado("mascara" , $this->stMascara); - - $obErro = $obTAlmoxarifadoLocalizacao->exclusao($boTransacao); - if (!($obErro->ocorreu())) { $this->obTAlmoxarifadoAlmoxarifado->setDado( "cod_almoxarifado" , $this->inCodigo ); diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoLocalizacao.class.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoLocalizacao.class.php index f85bb4a..7e6d0a0 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoLocalizacao.class.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoLocalizacao.class.php @@ -36,30 +36,6 @@ * Casos de uso: uc-03.03.14 */ -/* -$Log$ -Revision 1.20 2006/10/18 17:50:02 andre.almeida -Bug #6874# -Bug #6988# -Bug #7146# -Bug #7173# -Bug #7254# -Bug #6944# -Bug #6987# -Bug #6989# - -Revision 1.19 2006/07/27 12:12:16 leandro.zis -Bug #6669# - -Revision 1.18 2006/07/25 20:44:42 fernando -Bug #6654# - -Revision 1.17 2006/07/06 14:04:47 diego -Retirada tag de log com erro. - -Revision 1.16 2006/07/06 12:09:31 diego - -*/ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/componentes/mascara/Mascara.class.php'; @@ -213,7 +189,7 @@ var $stLocalizacao; } $stOrdem = " ORDER BY localizacao_fisica.localizacao DESC \n"; - $obErro = $obTCatalogoFisicaItem->recuperaFisicaItem( &$rsRecordSet, $stFiltro, $stOrdem, $obTransacao ); + $obErro = $obTCatalogoFisicaItem->recuperaFisicaItem( $rsRecordSet, $stFiltro, $stOrdem, $obTransacao ); return $obErro; } @@ -275,11 +251,10 @@ var $stLocalizacao; return $obErro; } - function alterar($boTransacao = "") - { +function alterar($boTransacao = "") +{ $boFlagTransacao = false; $rsRecordSetItem = new recordset(); - $obMascara = new Mascara(); $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); if (!($obErro->ocorreu())) { @@ -304,12 +279,6 @@ var $stLocalizacao; if (!($obErro->ocorreu())) { - if (strlen($this->obRAlmoxarifadoAlmoxarifado->getMascara()) == strlen($this->stLocalizacao)) { - $MascaraExpReg = $obMascara->converterParaExpressaoRegular($this->obRAlmoxarifadoAlmoxarifado->getMascara()); - $obRegExp = new ExpReg($MascaraExpReg,$this->stLocalizacao); - - if ($obRegExp->validarContexto()) { - if (!($obErro->ocorreu())) { $this->obTAlmoxarifadoLocalizacaoFisica->setDado("cod_localizacao" , $this->inCodigo); @@ -344,12 +313,7 @@ var $stLocalizacao; } } - } else { - $obErro->setDescricao( "O campo Localização não confere com a máscara : ".$this->obRAlmoxarifadoAlmoxarifado->getMascara()); - } - } else { - $obErro->setDescricao( "O tamanho do campo Localização não confere com o tamanho da máscara : ".$this->stLocalizacao); - } + } } $this->obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $this->obTAlmoxarifadoCatalogo ); @@ -362,40 +326,37 @@ var $stLocalizacao; { $boFlagTransacao = false; $rsRecordSetItem = new recordset(); - $obMascara = new Mascara(); - $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); - if ( !$obErro->ocorreu()) { - $obErro = $this->checarArrayItem(); - if (!$obErro->ocorreu()) { - $obErro = $this->obTAlmoxarifadoLocalizacaoFisica->proximoCod( $this->inCodigo, $boTransacao ); - if (!$obErro->ocorreu()) { - - $this->obRAlmoxarifadoAlmoxarifado->setCodigo($this->obRAlmoxarifadoAlmoxarifado->getCodigo()); - $obErro = $this->obRAlmoxarifadoAlmoxarifado->consultar($boTransacao); - if (!$obErro->ocorreu()) { - if (strlen($this->obRAlmoxarifadoAlmoxarifado->getMascara()) == strlen($this->stLocalizacao)) { - $MascaraExpReg = $obMascara->converterParaExpressaoRegular($this->obRAlmoxarifadoAlmoxarifado->getMascara()); - $obRegExp = new ExpReg($MascaraExpReg,$this->stLocalizacao); + $obErro = $this->obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); + if ( !$obErro->ocorreu()) { + $obErro = $this->checarArrayItem(); + + if (!$obErro->ocorreu()) { + $obErro = $this->obTAlmoxarifadoLocalizacaoFisica->proximoCod( $this->inCodigo, $boTransacao ); + + if (!$obErro->ocorreu()) { + $this->obRAlmoxarifadoAlmoxarifado->setCodigo($this->obRAlmoxarifadoAlmoxarifado->getCodigo()); + $obErro = $this->obRAlmoxarifadoAlmoxarifado->consultar($boTransacao); - if ($obRegExp->validarContexto()) { - for ($i=0;$iarLocalizacaoItem);$i++) { - $obRAlmoxarifadoItemMarca = $this->arLocalizacaoItem[$i]; - $ItemMarca = $obRAlmoxarifadoItemMarca->listar($rsRecordSetItem); + if (!$obErro->ocorreu()) { + + for ($i=0;$iarLocalizacaoItem);$i++) { + $obRAlmoxarifadoItemMarca = $this->arLocalizacaoItem[$i]; + $ItemMarca = $obRAlmoxarifadoItemMarca->listar($rsRecordSetItem); - if ($rsRecordSetItem->getNumLinhas() < 1) { - $obErro = $obRAlmoxarifadoItemMarca->incluir($boTransacao); - } - if ($obErro->ocorreu()) { - break; - } - } + if ($rsRecordSetItem->getNumLinhas() < 1) { + $obErro = $obRAlmoxarifadoItemMarca->incluir($boTransacao); + } + if ($obErro->ocorreu()) { + break; + } + } if (!($obErro->ocorreu())) { $this->obTAlmoxarifadoLocalizacaoFisica->setDado("cod_localizacao" , $this->inCodigo); $this->obTAlmoxarifadoLocalizacaoFisica->setDado("cod_almoxarifado", $this->obRAlmoxarifadoAlmoxarifado->getCodigo()); - $this->obTAlmoxarifadoLocalizacaoFisica->setDado("localizacao" , strtoupper($this->stLocalizacao)); + $this->obTAlmoxarifadoLocalizacaoFisica->setDado("localizacao" , $this->stLocalizacao); $obErro = $this->obTAlmoxarifadoLocalizacaoFisica->inclusao($boTransacao); @@ -418,15 +379,12 @@ var $stLocalizacao; $obErro->setDescricao( "Não pode haver mais de um item da mesma marca nesta localização. Item :".$this->roLocalizacaoItem->obRCatalogoItem->getCodigo()." Marca : ".$this->roLocalizacaoItem->obRMarca->getCodigo() ); } } else { - $obErro->setDescricao( "Essa localização já foi cadastrada.Localização : ".$this->stLocalizacao); + $obErro->setDescricao( "Essa localização já foi cadastrada. Localização : ".$this->stLocalizacao); } - } - } else { - $obErro->setDescricao( "O campo Localização não confere com a máscara : ".$this->obRAlmoxarifadoAlmoxarifado->getMascara()); - } - } else { - $obErro->setDescricao( "O tamanho do campo Localização não confere com o tamanho da máscara : ".$this->stLocalizacao); + + } + } } } else { diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/FMManterAlmoxarifado.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/FMManterAlmoxarifado.php index 34e72ab..4383844 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/FMManterAlmoxarifado.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/FMManterAlmoxarifado.php @@ -32,7 +32,7 @@ * @ignore - $Id: FMManterAlmoxarifado.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterAlmoxarifado.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-03.03.01 */ @@ -167,16 +167,6 @@ if ($stAcao == "alterar") { $stTelefone .= $arCGM['fone_celular']; } - if ($ob->getMascara() != "") { - $obErro = $ob->consultarLocalizacao($rsLocalizacao); - $possuiLocalizacao = false; - - if (!($obErro->ocorreu())) { - if (!($rsLocalizacao->EOF())) { - $possuiLocalizacao = true; - } - } - } } } @@ -190,39 +180,6 @@ $obLblTelefone->setRotulo('Telefone'); $obLblTelefone->setId ('stTelefone'); $obLblTelefone->setValue ($stTelefone); -if ($stAcao == "alterar") { - if ($possuiLocalizacao) { - $obLblMascaraLocalizacao = new Label; - $obLblMascaraLocalizacao->setRotulo("Máscara de Localização dos Itens no Almoxarifado"); - $obLblMascaraLocalizacao->setValue ($ob->getMascara()); - $obLblMascaraLocalizacao->setTitle( 'Informe a máscara de localização dos itens no almoxarifado'); - $obHdnMascaraLocalizacao = new Hidden; - $obHdnMascaraLocalizacao->setName("stLocalizacao"); - $obHdnMascaraLocalizacao->setValue($ob->getMascara()); - } else { - $obTxtCodLocalizacao = new TextBox; - $obTxtCodLocalizacao->setRotulo ("Máscara de Localização dos Itens no Almoxarifado"); - $obTxtCodLocalizacao->setTitle ('Informe a máscara de localização dos itens no almoxarifado'); - $obTxtCodLocalizacao->setName ("stLocalizacao" ); - $obTxtCodLocalizacao->setValue ($ob->getMascara() ); - $obTxtCodLocalizacao->setSize (20 ); - $obTxtCodLocalizacao->setMaxLength(20 ); - $obTxtCodLocalizacao->setInteiro (false ); - $obTxtCodLocalizacao->setAlfaNumerico(true); - $obTxtCodLocalizacao->setToUpperCase(true); - } -} else { - $obTxtCodLocalizacao = new TextBox; - $obTxtCodLocalizacao->setRotulo ("Máscara de Localização dos Itens no Almoxarifado"); - $obTxtCodLocalizacao->setTitle ('Informe a máscara de localização dos itens no almoxarifado'); - $obTxtCodLocalizacao->setName ("stLocalizacao" ); - $obTxtCodLocalizacao->setSize (20 ); - $obTxtCodLocalizacao->setMaxLength(20 ); - $obTxtCodLocalizacao->setInteiro (false ); - $obTxtCodLocalizacao->setAlfaNumerico(true); - $obTxtCodLocalizacao->setToUpperCase(true); -} - //DEFINICAO DOS COMPONENTES $obFormulario = new Formulario(); $obFormulario->addForm ($obForm); @@ -245,17 +202,6 @@ $obFormulario->addComponente ( $obLblEndereco ); $obFormulario->addComponente ( $obLblTelefone ); $obFormulario->addComponente ( $obBscCGMResponsavel ); -if ($stAcao == "alterar") { - if ($possuiLocalizacao) { - $obFormulario->addComponente ( $obLblMascaraLocalizacao ); - $obFormulario->addHidden ( $obHdnMascaraLocalizacao ); - } else { - $obFormulario->addComponente ( $obTxtCodLocalizacao ); - } -} else { - $obFormulario->addComponente ( $obTxtCodLocalizacao ); -} - if ($stAcao=="incluir") { $obFormulario->OK (); } else { diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/LSManterAlmoxarifado.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/LSManterAlmoxarifado.php index 19da0da..d9e9b16 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/LSManterAlmoxarifado.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/LSManterAlmoxarifado.php @@ -34,7 +34,7 @@ * Casos de uso: uc-03.03.01 - $Id: LSManterAlmoxarifado.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: LSManterAlmoxarifado.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -51,7 +51,7 @@ $pgJs = "JS".$stPrograma.".js"; $stCaminho = CAM_GP_ALM_INSTANCIAS."almoxarifado/"; -$stAcao = $_POST["stAcao"] ? $_POST["stAcao"] : $_GET["stAcao"]; +$stAcao = $request->get("stAcao"); if (empty( $stAcao )) { $stAcao = "alterar"; @@ -81,10 +81,6 @@ $stLink .= '&inCodigo='.$_REQUEST['inCodigo']; $stLink .= "&stAcao=".$stAcao; $rsLista = new RecordSet; -//$obRegra->setCodSistema( $_REQUEST['inCodSistema'] ); -//$obRegra->setNomSistema( $_REQUEST['stNomSistema'] ); -//$obRegra->setExercicio ( Sessao::getExercicio() ); - $obRegra->listar( $rsLista, ' nom_a '); $obLista = new Lista; diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/PRManterAlmoxarifado.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/PRManterAlmoxarifado.php index f33e74f..75f0bf0 100755 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/PRManterAlmoxarifado.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/PRManterAlmoxarifado.php @@ -40,23 +40,11 @@ * Casos de uso: uc-03.03.01 */ -/* -$Log$ -Revision 1.9 2006/10/09 15:02:48 larocca -Bug #6883# - -Revision 1.8 2006/07/06 13:59:55 diego -Retirada tag de log com erro. - -Revision 1.7 2006/07/06 12:09:52 diego - -*/ - include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; include_once(CAM_GP_ALM_NEGOCIO. "RAlmoxarifadoAlmoxarifado.class.php"); -$stAcao = $_POST["stAcao"] ? $_POST["stAcao"] : $_GET["stAcao"]; +$stAcao = $request->get("stAcao"); //Define o nome dos arquivos PHP $stPrograma = "ManterAlmoxarifado"; @@ -68,17 +56,11 @@ $pgOcul = "OC".$stPrograma.".php?".Sessao::getId()."&stAcao=$stAcao"; $obRegra = new RAlmoxarifadoAlmoxarifado; -//if ($stAcao != "incluir") { - // verificaDadosAlmoxarifado(); -//} - switch ($stAcao) { case "incluir": $obRegra->obRCGMAlmoxarifado->setNumCGM ( $_POST['inCGMAlmoxarifado'] ); $obRegra->obRCGMResponsavel->setNumCGM ( $_POST['inCGMResponsavel'] ); - $obRegra->setMascara ( $_POST['stLocalizacao'] ); - $obRegra->obRCGMAlmoxarifado->consultarCGM($rsCGM); $obErro = $obRegra->incluir(); @@ -95,8 +77,6 @@ switch ($stAcao) { $obRegra->obRCGMAlmoxarifado->setNumCGM ( $_POST['inCGMAlmoxarifado']); $obRegra->obRCGMResponsavel->setNumCGM ( $_POST['inCGMResponsavel'] ); - $obRegra->setMascara ( $_POST['stLocalizacao'] ); - $obRegra->obRCGMAlmoxarifado->consultarCGM($rsCGM); $obErro = $obRegra->alterar(); diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/FMManterLocalizacao.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/FMManterLocalizacao.php index 61b7188..90de74b 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/FMManterLocalizacao.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/FMManterLocalizacao.php @@ -34,15 +34,15 @@ * Casos de uso: uc-03.03.14 - $Id: FMManterLocalizacao.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterLocalizacao.php 61647 2015-02-20 11:26:55Z luciana $ **/ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; -include_once(CAM_GP_ALM_NEGOCIO ."RAlmoxarifadoLocalizacao.class.php" ); -include_once(CAM_GP_ALM_NEGOCIO ."RAlmoxarifadoAlmoxarifado.class.php" ); -include_once( CAM_GP_ALM_COMPONENTES."IMontaItemUnidade.class.php"); -include_once( CAM_GP_ALM_COMPONENTES."IPopUpMarca.class.php" ); +include_once CAM_GP_ALM_NEGOCIO ."RAlmoxarifadoLocalizacao.class.php"; +include_once CAM_GP_ALM_NEGOCIO ."RAlmoxarifadoAlmoxarifado.class.php"; +include_once CAM_GP_ALM_COMPONENTES."IMontaItemUnidade.class.php"; +include_once CAM_GP_ALM_COMPONENTES."IPopUpMarca.class.php"; $stPrograma = "ManterLocalizacao"; @@ -54,8 +54,8 @@ $pgOcul = "OC".$stPrograma.".php"; $pgJs = "JS".$stPrograma.".js"; $stAcao = $request->get('stAcao'); - -Sessao::write('transf3', array()); +$inCodLocalizacao = $request->get('inCodLocalizacao'); +$stLocalizacao = $request->get('stLocalizacao'); include_once($pgJs); @@ -93,12 +93,12 @@ $stLocalizacao = $_REQUEST['stLocalizacao']; $obHdnLocalizacao = new Hidden; $obHdnLocalizacao->setName("HdnLocalizacao"); -$obHdnLocalizacao->setValue(($stAcao == "alterar")?$stLocalizacao:null); +$obHdnLocalizacao->setValue(($stAcao == "alterar") ? $stLocalizacao : null); $obHdnLocalizacao->setNull(false); $obHdnCodLocalizacao = new Hidden; $obHdnCodLocalizacao->setName("inCodLocalizacao"); -$obHdnCodLocalizacao->setValue(($stAcao == "alterar")?$inCodLocalizacao:null); +$obHdnCodLocalizacao->setValue(($stAcao == "alterar") ? $inCodLocalizacao : null); $obHdnNomeUnidade = new Hidden; $obHdnNomeUnidade->setName("HdnNomUnidade"); @@ -113,31 +113,31 @@ $obHdnNomeMarca->setName("HdnNomMarca"); $obHdnNomeMarca->setValue(""); if ($stAcao != "alterar") { - $obCmbCodAlmoxarifado = new Select(); - $obCmbCodAlmoxarifado->setRotulo ("Almoxarifado" ); - $obCmbCodAlmoxarifado->setTitle ("Selecione os almoxarifados."); - $obCmbCodAlmoxarifado->setName ("inCodAlmoxarifado" ); - $obCmbCodAlmoxarifado->setId ("inCodAlmoxarifado" ); - $obCmbCodAlmoxarifado->setNull (false ); - $obCmbCodAlmoxarifado->setCampoID ("codigo" ); - $obCmbCodAlmoxarifado->addOption ("","Selecione" ); - $obCmbCodAlmoxarifado->obEvento->setOnChange("goOculto('FMontaLocalizacao',false);"); - $obCmbCodAlmoxarifado->setCampoDesc ("[codigo] - [nom_a]"); - $obCmbCodAlmoxarifado->preencheCombo ($rsAlmoxarifado ); - $obCmbCodAlmoxarifado->setValue ($codAlmoxarifadoPadrao ); + $obCmbCodAlmoxarifado = new Select(); + $obCmbCodAlmoxarifado->setRotulo ("Almoxarifado" ); + $obCmbCodAlmoxarifado->setTitle ("Selecione os almoxarifados."); + $obCmbCodAlmoxarifado->setName ("inCodAlmoxarifado" ); + $obCmbCodAlmoxarifado->setId ("inCodAlmoxarifado" ); + $obCmbCodAlmoxarifado->setNull (false ); + $obCmbCodAlmoxarifado->setCampoID ("codigo" ); + $obCmbCodAlmoxarifado->addOption ("","Selecione" ); + $obCmbCodAlmoxarifado->obEvento->setOnChange("goOculto('FMontaLocalizacao',false);"); + $obCmbCodAlmoxarifado->setCampoDesc ("[codigo] - [nom_a]"); + $obCmbCodAlmoxarifado->preencheCombo ($rsAlmoxarifado ); + $obCmbCodAlmoxarifado->setValue ($codAlmoxarifadoPadrao ); } else { - $inCodAlmoxarifado = $_REQUEST['inCodAlmoxarifado']; - $obCmbCodAlmoxarifado = new Hidden; - $obCmbCodAlmoxarifado->setName("inCodAlmoxarifado"); - $obCmbCodAlmoxarifado->setId ("inCodAlmoxarifado"); - $obCmbCodAlmoxarifado->setValue($inCodAlmoxarifado); - - $obLblLocalizacao = new Label; - $obLblLocalizacao->setRotulo("Almoxarifado"); - $obLblLocalizacao->setValue ($inCodAlmoxarifado." - ".$obAlmoxarifadoLocalizacao->obRAlmoxarifadoAlmoxarifado->obRCGMAlmoxarifado->getNomCGM()); - - Sessao::write('inCodAlmoxarifado', $inCodAlmoxarifado); - Sessao::write('inNomAlmoxarifado', $obAlmoxarifadoLocalizacao->obRAlmoxarifadoAlmoxarifado->obRCGMAlmoxarifado->getNomCGM()); + $inCodAlmoxarifado = $_REQUEST['inCodAlmoxarifado']; + $obCmbCodAlmoxarifado = new Hidden; + $obCmbCodAlmoxarifado->setName("inCodAlmoxarifado"); + $obCmbCodAlmoxarifado->setId ("inCodAlmoxarifado"); + $obCmbCodAlmoxarifado->setValue($inCodAlmoxarifado); + + $obLblLocalizacao = new Label; + $obLblLocalizacao->setRotulo("Almoxarifado"); + $obLblLocalizacao->setValue ($inCodAlmoxarifado." - ".$obAlmoxarifadoLocalizacao->obRAlmoxarifadoAlmoxarifado->obRCGMAlmoxarifado->getNomCGM()); + + Sessao::write('inCodAlmoxarifado', $inCodAlmoxarifado); + Sessao::write('inNomAlmoxarifado', $obAlmoxarifadoLocalizacao->obRAlmoxarifadoAlmoxarifado->obRCGMAlmoxarifado->getNomCGM()); } if ( (!($codAlmoxarifadoPadrao == "")) || ($stAcao == "alterar") ) { @@ -176,12 +176,12 @@ $obFormulario->addTitulo("Dados da Localização" ); $obFormulario->addForm ($obForm ); $obFormulario->setAjuda ("UC-03.03.14"); - if ($stAcao != "alterar") { - $obFormulario->addComponente($obCmbCodAlmoxarifado); - } else { - $obFormulario->addHidden($obCmbCodAlmoxarifado); - $obFormulario->addComponente($obLblLocalizacao); - } +if ($stAcao != "alterar") { + $obFormulario->addComponente($obCmbCodAlmoxarifado); +} else { + $obFormulario->addHidden($obCmbCodAlmoxarifado); + $obFormulario->addComponente($obLblLocalizacao); +} $obFormulario->addSpan ($obSpnListaLocalizacao ); $obFormulario->addTitulo ("Dados do Item" ); @@ -207,9 +207,10 @@ if ($stAcao == "incluir") { $obFormulario->defineBarra( array( $obBtnOk, $obBtnLimparGeral) ); } else { - $stLocation = $pgList.'?'.Sessao::getId().'&stAcao='.$stAcao; - $obFormulario->Cancelar( $stLocation ); + $stLocation = $pgList.'?'.Sessao::getId().'&stAcao='.$stAcao; + $obFormulario->Cancelar( $stLocation ); } $obFormulario->show(); -?> + +?> \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/OCManterLocalizacao.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/OCManterLocalizacao.php index 70a6be2..be409a2 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/OCManterLocalizacao.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/OCManterLocalizacao.php @@ -34,7 +34,7 @@ * Casos de uso: uc-03.03.14 - $Id: OCManterLocalizacao.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCManterLocalizacao.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -56,9 +56,9 @@ $stCtrl = $_REQUEST['stCtrl']; $stAcao = $request->get('stAcao'); $obRegra = new RAlmoxarifadoLocalizacao; - if (isset($stCtrl)) { - if ($stCtrl != null) { - switch ($stCtrl) { +if (isset($stCtrl) && $stCtrl != null) { + + switch ($stCtrl) { //Carrega dados do Arquivo FMManterLocalizacaoItem.php case "Localizacao" : @@ -128,33 +128,19 @@ $obRegra = new RAlmoxarifadoLocalizacao; $obRegraAlmoxarifado->setCodigo( $inCodAlmoxarifado ); $obRegraAlmoxarifado->consultar(); - $obLblMascaraLocalizacao = new Label; - $obLblMascaraLocalizacao->setRotulo( "Máscara de Localização dos Itens no Almoxarifado" ); - $obLblMascaraLocalizacao->setValue ( $obRegraAlmoxarifado->getMascara() ); - - if ($stAcao != "alterar") { - $obTxtCodLocalizacao = new TextBox; - $obTxtCodLocalizacao->setRotulo ( "Localização" ); - $obTxtCodLocalizacao->setTitle ( "Informe a localização." ); - $obTxtCodLocalizacao->setName ( "stLocalizacao" ); - $obTxtCodLocalizacao->setId ( "stLocalizacao" ); - $obTxtCodLocalizacao->setValue ( $HdnLocalizacao ); - $obTxtCodLocalizacao->setSize ( 20 ); - $obTxtCodLocalizacao->setMaxLength ( 20 ); - $obTxtCodLocalizacao->setInteiro ( false ); - $obTxtCodLocalizacao->setNull ( false ); - $obTxtCodLocalizacao->obEvento->setOnBlur("VerificaLocalizacao(this,this.value,'".$obRegraAlmoxarifado->getMascara()."');goOculto('ValidaLocalizacao',false);"); - $obTxtCodLocalizacao->setMascara ( $obLblMascaraLocalizacao->getValue() ); - $obTxtCodLocalizacao->obEvento->setOnKeyUp('toUpperCase(this);'); - } else { - $obTxtCodLocalizacao = new Label; - $obTxtCodLocalizacao->setRotulo ( "Localização" ); - $obTxtCodLocalizacao->setName ( "stLocalizacao" ); - $obTxtCodLocalizacao->setValue ( $_REQUEST['HdnLocalizacao'] ); - } + $obTxtCodLocalizacao = new TextBox; + $obTxtCodLocalizacao->setRotulo ( "Localização" ); + $obTxtCodLocalizacao->setTitle ( "Informe a localização." ); + $obTxtCodLocalizacao->setName ( "stLocalizacao" ); + $obTxtCodLocalizacao->setId ( "stLocalizacao" ); + $obTxtCodLocalizacao->setValue ( $_REQUEST['HdnLocalizacao'] ); + $obTxtCodLocalizacao->setSize ( 30 ); + $obTxtCodLocalizacao->setMaxLength ( 30 ); + $obTxtCodLocalizacao->setInteiro ( false ); + $obTxtCodLocalizacao->setNull ( false ); + $obTxtCodLocalizacao->obEvento->setOnBlur("VerificaLocalizacao(this,this.value,'');goOculto('ValidaLocalizacao',false);"); $obFormulario = new Formulario(); - $obFormulario->addComponente( $obLblMascaraLocalizacao ); $obFormulario->addComponente( $obTxtCodLocalizacao ); $obFormulario->montaInnerHTML(); @@ -163,13 +149,9 @@ $obRegra = new RAlmoxarifadoLocalizacao; $obFormulario->obJavaScript->montaJavaScript(); $stValida = $obFormulario->obJavaScript->getInnerJavaScript(); - if ( $obLblMascaraLocalizacao->getValue() == "" ) { - $stJs = " alertaAviso('Este almoxarifado não tem máscara de localização definida.','form','aviso','".Sessao::getId()."');"; - $stJs .= " d.getElementById('spnListaLocalizacao').innerHTML = '';"; - } else { - $stJs = "d.getElementById('spnListaLocalizacao').innerHTML = '" . $stHtml . "';"; - $stJs .= "f.stEval.value = '" . $stValida . "'; "; - } + $stJs = "d.getElementById('spnListaLocalizacao').innerHTML = '" . $stHtml . "';"; + $stJs .= "f.stEval.value = '" . $stValida . "'; "; + if ($_REQUEST['HdnLocalizacao'] != "") { $obRAlmoxarifadoLocalizacao = new RAlmoxarifadoLocalizacao; $obRAlmoxarifadoLocalizacao->setCodigo( $inCodLocalizacao ); @@ -196,6 +178,7 @@ $obRegra = new RAlmoxarifadoLocalizacao; } else { $stJs .= " d.getElementById('spnListaLocalizacao').innerHTML = '';"; } + SistemaLegado::executaFrameOculto($stJs); break; @@ -203,12 +186,12 @@ $obRegra = new RAlmoxarifadoLocalizacao; //Carrega dados do Arquivo LSManterLocalizacao.php $obFormulario = new Formulario(); $rsAlmoxarifado = new Recordset; - $obLblMascaraLocalizacao = new Label; + $obRegraAlmoxarifado = new RAlmoxarifadoAlmoxarifado; $obRegraAlmoxarifado->setCodigo($inCodAlmoxarifado); $obRegraAlmoxarifado->consultar(); - $obLblMascaraLocalizacao->setValue ($obRegraAlmoxarifado->getMascara()); + $obTxtObservacao = new TextBox; $obTxtObservacao->setRotulo ('Localização' ); @@ -290,7 +273,7 @@ $obRegra = new RAlmoxarifadoLocalizacao; $stJs.= "d.getElementById('stUnidadeMedida').innerHTML = ' '; "; $stJs.= "f.inCodMarca.value = ''; "; $stJs.= "d.getElementById('stNomMarca').innerHTML = ' '; "; - // SistemaLegado::exibeAviso(urlencode("Item: ".$_REQUEST['inCodItem'].", marca: ".$_REQUEST['inCodMarca']." já estão cadastrados em outra Localização do mesmo almoxarifado."),"n_incluir","alerta"); + } else { $stJs = "alertaAviso('".$stErro."','form','erro','".Sessao::getId()."');\n"; } @@ -335,42 +318,40 @@ $obRegra = new RAlmoxarifadoLocalizacao; case 'ValidaLocalizacao': - include_once(TALM."TAlmoxarifadoLocalizacaoFisica.class.php" ); + include_once TALM."TAlmoxarifadoLocalizacaoFisica.class.php"; $obTlocalizacao = new TAlmoxarifadoLocalizacaoFisica(); - $stFiltro = " WHERE cod_almoxarifado=".$_REQUEST['inCodAlmoxarifado']; + $stFiltro = " WHERE cod_almoxarifado = ".$_REQUEST['inCodAlmoxarifado']; $obTlocalizacao->recuperaTodos( $rsLocalizacao , $stFiltro); - $obTlocalizacao->debug(); - $boLocalizacao = 'false'; + $boLocalizacao = false; + while (!$rsLocalizacao->eof()) { - if ( $rsLocalizacao->getCampo('localizacao') == $_REQUEST['stLocalizacao'] ) { - $boLocalizacao = 'true'; + if ( trim($rsLocalizacao->getCampo('localizacao')) == trim($_REQUEST['stLocalizacao']) ) { + $boLocalizacao = true; break; } $rsLocalizacao->proximo(); } - if ($boLocalizacao == 'true') { + if ($boLocalizacao == true) { SistemaLegado::exibeAviso(urlencode("Localização (".$_REQUEST['stLocalizacao'].") já está cadastrada, para incluir mais itens selecione a opção \"Alterar Localização Física\"."),"aviso","alerta"); - $stJs = "f.stLocalizacao.value = '' ;\n"; - $stJs .= "f.stLocalizacao.focus();\n"; + $stJs = "f.stLocalizacao.value = ''; \n"; + $stJs .= "f.stLocalizacao.focus(); \n"; } - SistemaLegado::executaFrameOculto($stJs); + + SistemaLegado::executaFrameOculto($stJs); break; - } - } - } + } +} - function montaListaDotacoes($arRecordSet , $boExecuta = true) - { +function montaListaDotacoes($arRecordSet , $boExecuta = true) +{ $rsDotacoes = new RecordSet; $rsDotacoes->preenche( $arRecordSet ); $rsDotacoes->addFormatacao("item","HTML"); $rsDotacoes->addFormatacao("marca","HTML"); -//$rsDotacoes->addFormatacao("marca","SLASHES"); - $obLista = new Lista; $obLista->setTitulo(''); diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/PRManterLocalizacao.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/PRManterLocalizacao.php index 7899e19..dc0a22a 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/PRManterLocalizacao.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/PRManterLocalizacao.php @@ -34,7 +34,7 @@ * Casos de uso: uc-03.03.01 - $Id: PRManterLocalizacao.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: PRManterLocalizacao.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -55,114 +55,115 @@ $stAcao = $request->get('stAcao'); $obRegra = new RAlmoxarifadoLocalizacao(); - switch ($stAcao) { +switch ($stAcao) { - case "incluir": - if (!$_POST['stLocalizacao']) { - SistemaLegado::exibeAviso('O almoxarifado deve ter a localização cadastrada.','form','erro',Sessao::getId() ); - } else { - $rsRecordSetItem = new RecordSet; - $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($_POST['inCodAlmoxarifado']); - $obRegra->setLocalizacao($_POST['stLocalizacao']); + case "incluir": + if (!$_POST['stLocalizacao']) { + SistemaLegado::exibeAviso('O almoxarifado deve ter a localização cadastrada.','form','erro',Sessao::getId() ); + } else { + $rsRecordSetItem = new RecordSet; + $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($_POST['inCodAlmoxarifado']); + $obRegra->setLocalizacao($_POST['stLocalizacao']); - $arValores = Sessao::read('arValores'); + $arValores = Sessao::read('arValores'); - for ($inPosTransf = 0; $inPosTransf < count($arValores); $inPosTransf++) { - $obRegra->addLocalizacaoItem(); - $obRegra->roLocalizacaoItem->obRCatalogoItem->setCodigo($arValores[$inPosTransf]['CodItem']); - $obRegra->roLocalizacaoItem->obRMarca->setCodigo($arValores[$inPosTransf]['CodMarca']); - } + for ($inPosTransf = 0; $inPosTransf < count($arValores); $inPosTransf++) { + $obRegra->addLocalizacaoItem(); + $obRegra->roLocalizacaoItem->obRCatalogoItem->setCodigo($arValores[$inPosTransf]['CodItem']); + $obRegra->roLocalizacaoItem->obRMarca->setCodigo($arValores[$inPosTransf]['CodMarca']); + } - $obErro = $obRegra->incluir(); + $obErro = $obRegra->incluir(); - if (!($obErro->ocorreu())) { - SistemaLegado::alertaAviso($pgForm, $obRegra->getLocalizacao(),"incluir","aviso", Sessao::getId(), ""); - } else { - SistemaLegado::exibeAviso($obErro->getDescricao(),"n_incluir","erro"); + if (!($obErro->ocorreu())) { + SistemaLegado::alertaAviso($pgForm, $obRegra->getLocalizacao(),"incluir","aviso", Sessao::getId(), ""); + } else { + SistemaLegado::exibeAviso($obErro->getDescricao(),"n_incluir","erro"); + } } - } - - break; + break; - case "alterar": + case "alterar": - $inCodAlmoxarifado = Sessao::read('inCodAlmoxarifado'); - $inNomAlmoxarifado = Sessao::read('inNomAlmoxarifado'); + $obErro = new Erro; - $rsRecordSetItem = new RecordSet; - $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($_POST['inCodAlmoxarifado']); - if ($_REQUEST['stLocalizacao']) - $obRegra->setLocalizacao($_POST['stLocalizacao']); - if ($_REQUEST['HdnLocalizacao']) - $obRegra->setLocalizacao($_REQUEST['HdnLocalizacao']); + $inCodAlmoxarifado = Sessao::read('inCodAlmoxarifado'); + $inNomAlmoxarifado = Sessao::read('inNomAlmoxarifado'); - $stFiltro = " WHERE localizacao = '".$_REQUEST['HdnLocalizacao']."' AND cod_almoxarifado = ".$_POST['inCodAlmoxarifado']; - $obTAlmoxarifadoLocalizacaoFisicaItem = new TAlmoxarifadoLocalizacaoFisicaItem(); - $obTAlmoxarifadoLocalizacaoFisicaItem->recuperaCodLocal($rsCodLocal, $stFiltro, $stOrdem, $boTransacao); + $rsRecordSetItem = new RecordSet; + $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($_POST['inCodAlmoxarifado']); + + if ($_REQUEST['stLocalizacao']) { + $obRegra->setLocalizacao($_POST['stLocalizacao']); + } else { + $obErro->setDescricao('Campo Localização não pode ser vazio'); + } + + $stFiltro = " WHERE cod_localizacao = '".$_REQUEST['inCodLocalizacao']."' AND cod_almoxarifado = ".$_POST['inCodAlmoxarifado']; + $obTAlmoxarifadoLocalizacaoFisicaItem = new TAlmoxarifadoLocalizacaoFisicaItem(); + $obTAlmoxarifadoLocalizacaoFisicaItem->recuperaCodLocal($rsCodLocal, $stFiltro, $stOrdem, $boTransacao); - $obRegra->setCodigo($rsCodLocal->getCampo('cod_localizacao')); + $obRegra->setCodigo($rsCodLocal->getCampo('cod_localizacao')); - $arValores = Sessao::read('arValores'); + $arValores = Sessao::read('arValores'); - for ($inPosTransf = 0; $inPosTransf < count($arValores); $inPosTransf++) { - $obRegra->addLocalizacaoItem(); - $obRegra->roLocalizacaoItem->obRCatalogoItem->setCodigo($arValores[$inPosTransf]['CodItem']); - $obRegra->roLocalizacaoItem->obRMarca->setCodigo($arValores[$inPosTransf]['CodMarca']); - } + for ($inPosTransf = 0; $inPosTransf < count($arValores); $inPosTransf++) { + $obRegra->addLocalizacaoItem(); + $obRegra->roLocalizacaoItem->obRCatalogoItem->setCodigo($arValores[$inPosTransf]['CodItem']); + $obRegra->roLocalizacaoItem->obRMarca->setCodigo($arValores[$inPosTransf]['CodMarca']); + } - $obErro = $obRegra->alterar(); + $obErro = $obRegra->alterar(); if (!$obErro->ocorreu()) { - SistemaLegado::alertaAviso($pgList, $obRegra->getLocalizacao(),"alterar","aviso", Sessao::getId(), ""); + SistemaLegado::alertaAviso($pgList, $obRegra->getLocalizacao(),"alterar","aviso", Sessao::getId(), ""); } else { - SistemaLegado::exibeAviso($obErro->getDescricao(),"n_alterar","erro"); + SistemaLegado::exibeAviso($obErro->getDescricao(),"n_alterar","erro"); } + break; - break; - - case "alterarItens": - $rsRecordSetItem = new RecordSet; - $obRegra->setCodigo($_POST['inCodLocalizacao']); - $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($_POST['inCodAlmoxarifado']); - $obRegra->obRAlmoxarifadoItemMarca->obRCatalogoItem->setCodigo($_POST['inCodItem']); - $obRegra->obRAlmoxarifadoItemMarca->obRMarca->setCodigo($_POST['inCodMarca']); + case "alterarItens": + $rsRecordSetItem = new RecordSet; + $obRegra->setCodigo($_POST['inCodLocalizacao']); + $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($_POST['inCodAlmoxarifado']); + $obRegra->obRAlmoxarifadoItemMarca->obRCatalogoItem->setCodigo($_POST['inCodItem']); + $obRegra->obRAlmoxarifadoItemMarca->obRMarca->setCodigo($_POST['inCodMarca']); - $obErro = $obRegra->alterarItens(); + $obErro = $obRegra->alterarItens(); - if (!($obErro->ocorreu())) { - SistemaLegado::alertaAviso($pgFormItem, "Item: ".$obRegra->obRAlmoxarifadoItemMarca->obRCatalogoItem->getCodigo() ." - ". "Almoxarifado: ". $obRegra->obRAlmoxarifadoAlmoxarifado->getCodigo(),"alterar","aviso", Sessao::getId(), ""); - } else { - SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); - } - - break; + if (!($obErro->ocorreu())) { + SistemaLegado::alertaAviso($pgFormItem, "Item: ".$obRegra->obRAlmoxarifadoItemMarca->obRCatalogoItem->getCodigo() ." - ". "Almoxarifado: ". $obRegra->obRAlmoxarifadoAlmoxarifado->getCodigo(),"alterar","aviso", Sessao::getId(), ""); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); + } + break; - case "alterarItem": + case "alterarItem": + break; - break; + case "excluir": - case "excluir": + $inCodLocalizacao = $_REQUEST['inCodLocalizacao']; + $stLocalizacao = $_REQUEST['stLocalizacao']; + $inCodAlmoxarifado = $_REQUEST['inCodAlmoxarifado']; - $inCodLocalizacao = $_REQUEST['inCodLocalizacao']; - $stLocalizacao = $_REQUEST['stLocalizacao']; - $inCodAlmoxarifado = $_REQUEST['inCodAlmoxarifado']; + Sessao::write('inCodAlmoxarifado', $inCodAlmoxarifado); - Sessao::write('inCodAlmoxarifado', $inCodAlmoxarifado); + $obRegra->setCodigo($inCodLocalizacao); + $obRegra->setLocalizacao($stLocalizacao); + $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($inCodAlmoxarifado); - $obRegra->setCodigo($inCodLocalizacao); - $obRegra->setLocalizacao($stLocalizacao); - $obRegra->obRAlmoxarifadoAlmoxarifado->setCodigo($inCodAlmoxarifado); + $obErro = $obRegra->excluir(); + if (!$obErro->ocorreu()) { + sistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=excluir","Localização : ".$obRegra->getCodigo().' - '.$obRegra->getLocalizacao(),"excluir","aviso", Sessao::getId(), "../"); + } else { + sistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_excluir","erro"); + } - $obErro = $obRegra->excluir(); - if (!$obErro->ocorreu()) { - sistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=excluir","Localização : ".$obRegra->getCodigo().' - '.$obRegra->getLocalizacao(),"excluir","aviso", Sessao::getId(), "../"); - } else { - sistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_excluir","erro"); - } + break; - break; + default: + break; +} - default: - break; - } ?> diff --git a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/saida/OCGeraMovimentacaoDiversa.php b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/saida/OCGeraMovimentacaoDiversa.php index d4983e8..55cb4ac 100644 --- a/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/saida/OCGeraMovimentacaoDiversa.php +++ b/gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/saida/OCGeraMovimentacaoDiversa.php @@ -47,7 +47,7 @@ $obBirtPreview->setVersaoBirt( '2.5.0' ); $obBirtPreview->setTitulo ( 'Relatório de Saídas Diversas' ); -$obBirtPreview->addParametro( 'prRequisitante', utf8_encode(Sessao::read('nomCgm')) ); +$obBirtPreview->addParametro( 'prRequisitante', Sessao::read('nomCgm') ); $obBirtPreview->addParametro( 'prNumLancamento', $_REQUEST['inNumLancamento'] ); diff --git a/gestaoPatrimonial/fontes/PHP/compras/classes/mapeamento/TComprasCompraDiretaHomologacao.class.php b/gestaoPatrimonial/fontes/PHP/compras/classes/mapeamento/TComprasCompraDiretaHomologacao.class.php index bfff7c0..dc3e63a 100644 --- a/gestaoPatrimonial/fontes/PHP/compras/classes/mapeamento/TComprasCompraDiretaHomologacao.class.php +++ b/gestaoPatrimonial/fontes/PHP/compras/classes/mapeamento/TComprasCompraDiretaHomologacao.class.php @@ -225,6 +225,7 @@ class TComprasCompraDiretaHomologacao extends Persistente and homologacao.cod_cotacao = julgamento_item.cod_cotacao and homologacao.lote = julgamento_item.lote and homologacao.cod_item = julgamento_item.cod_item + and homologacao.cgm_fornecedor = julgamento_item.cgm_fornecedor LEFT JOIN empenho.item_pre_empenho_julgamento ON item_pre_empenho_julgamento.exercicio_julgamento = julgamento_item.exercicio diff --git a/gestaoPatrimonial/fontes/PHP/compras/instancias/compraDireta/OCManterHomologacao.php b/gestaoPatrimonial/fontes/PHP/compras/instancias/compraDireta/OCManterHomologacao.php index 7384fb6..29595e6 100755 --- a/gestaoPatrimonial/fontes/PHP/compras/instancias/compraDireta/OCManterHomologacao.php +++ b/gestaoPatrimonial/fontes/PHP/compras/instancias/compraDireta/OCManterHomologacao.php @@ -109,8 +109,9 @@ function carregaItensBanco() $obTCompraDiretaHomologacao->setDado( "cod_entidade" , $_REQUEST["inCodEntidade"] ); $obTCompraDiretaHomologacao->setDado( "exercicio", $_REQUEST["stExercicioCompraDireta"] ); - $obTCompraDiretaHomologacao->recuperaItensComStatus( $rsItens ); - + $stFiltro = "and julgamento_item.ordem = 1 \n"; + $obTCompraDiretaHomologacao->recuperaItensComStatus( $rsItens, $stFiltro ); + $inId = $inHomologados = $inAutorizados = 0; $itensHomologacao = array(); diff --git a/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/LSManterAditivoContrato.php b/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/LSManterAditivoContrato.php index 3e40ba3..18d44ba 100644 --- a/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/LSManterAditivoContrato.php +++ b/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/LSManterAditivoContrato.php @@ -20,10 +20,7 @@ * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * * * ********************************************************************************** -*/ -?> -show(); function montaFiltrosConsulta() { - - if ($_REQUEST['inNumContrato']) { + if ($_REQUEST['inNumContrato'] != "") { $stFiltro .= " contrato.num_contrato = ". $_REQUEST['inNumContrato']." and "; } - if ($_REQUEST['stExercicioContrato']) { + if ($_REQUEST['stExercicioContrato'] != "") { $stFiltro .= " contrato.exercicio = '". $_REQUEST['stExercicioContrato']."' and "; } - if ($_REQUEST['dtContrato']) { + if ($_REQUEST['dtContrato'] != "") { $stFiltro .= " contrato.dt_assinatura = to_date('". $_REQUEST['dtContrato']."','dd/mm/yyyy') and "; } - if ($_REQUEST['inCodContratado']) { + if ($_REQUEST['inCodContratado'] != "") { $stFiltro .= " contrato.cgm_contratado = ".$_REQUEST['inCodContratado']." and "; } - if ($_REQUEST["inNumCGM"]) { + + if ($_REQUEST["inNumCGM"] != "" && $stAcao == "incluirCD" ) { + $stFiltro .= " cgm_entidade.numcgm in (".$_REQUEST["inNumCGM"].") and "; + } else if ($_REQUEST["inNumCGM"] != "" && $_REQUEST["stAcao"] == "anularCD") { + $stFiltro .= " cgm_entidade.numcgm in (".$_REQUEST["inNumCGM"].") and "; + } else if ($_REQUEST["inNumCGM"] != "" && $_REQUEST["stAcao"] != "incluirCD" && $_REQUEST["stAcao"] != "anularCD" ) { $stFiltro .= " cgm_entidade.numcgm in (".implode(",", $_REQUEST["inNumCGM"]).") and "; } if ($stAcao == "alterar") { - if ($_REQUEST["inNumeroAditivo"]) { + if ($_REQUEST["inNumeroAditivo"] != "") { $stFiltro .= " contrato_aditivos.num_aditivo = ".$_REQUEST["inNumeroAditivo"]." and "; } - if ($_REQUEST["stExercioAditivo"]) { + if ($_REQUEST["stExercioAditivo"] != "") { $stFiltro .= " contrato_aditivos.exercicio = '".$_REQUEST["stExercioAditivo"]."' and "; } } @@ -218,7 +219,6 @@ function montaFiltrosConsulta() AND contrato_anulado.cod_entidade = contrato.cod_entidade AND contrato_anulado.num_contrato = contrato.num_contrato ) and "; - if ($_REQUEST['stAcao'] != "incluirCD") { $stFiltro .= " NOT EXISTS (SELECT 1 FROM licitacao.contrato_aditivos_anulacao @@ -230,7 +230,7 @@ function montaFiltrosConsulta() ) and "; } - $stFiltro = ($stFiltro) ? " WHERE " . substr($stFiltro, 0, strlen($stFiltro)-4) : ""; + $stFiltro = ($stFiltro) ?' WHERE '.substr($stFiltro,0,strlen($stFiltro)-4): ''; return $stFiltro; } diff --git a/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/PRManterAditivoContrato.php b/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/PRManterAditivoContrato.php index 1e07194..d58277e 100644 --- a/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/PRManterAditivoContrato.php +++ b/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/PRManterAditivoContrato.php @@ -20,10 +20,7 @@ * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * * * ********************************************************************************** -*/ -?> -$valor) { $stFiltro.= "&".$chave."=".$valor; } diff --git a/gestaoPatrimonial/fontes/PHP/compras/instancias/solicitacaoCompra/FMManterSolicitacaoCompra.php b/gestaoPatrimonial/fontes/PHP/compras/instancias/solicitacaoCompra/FMManterSolicitacaoCompra.php index 39c0ae4..f5e5a02 100644 --- a/gestaoPatrimonial/fontes/PHP/compras/instancias/solicitacaoCompra/FMManterSolicitacaoCompra.php +++ b/gestaoPatrimonial/fontes/PHP/compras/instancias/solicitacaoCompra/FMManterSolicitacaoCompra.php @@ -32,7 +32,7 @@ * Casos de uso: uc-03.04.01 - $Id: FMManterSolicitacaoCompra.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterSolicitacaoCompra.php 61767 2015-03-03 12:28:44Z luciana $ */ @@ -184,6 +184,11 @@ if ($obISelectEntidadeUsuario->inCodEntidade != '') { $obHdnCodEntidade->setValue( $obISelectEntidadeUsuario->inCodEntidade ); } +// Se houver um único registro de Entidade, executa comando para preencher Data solicitação +if ((count($obISelectEntidadeUsuario->obSelect->arOption) == 1) && ($stAcao=="incluir")) { + $stJs .= "montaParametrosGET( 'montaDotacao', 'inCodEntidade', 'inCodCentroCusto' ); montaParametrosGET('recuperaDataContabil', 'inCodEntidade', '');"; +} + // Define objeto Data da Solicitação $obDtSolicitacao = new Data; $obDtSolicitacao->setName ( "stDtSolicitacao" ); @@ -477,11 +482,11 @@ if ($stAcao == 'alterar') { $obFormulario->show(); if ($stAcao=="alterar") { - $stJs = "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&cod_solicitacao=".$_GET['cod_solicitacao']."&cod_entidade=".$_GET['cod_entidade']."&exercicio=".$_GET['exercicio']."','carregaSolicitacao');"; + $stJs .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&cod_solicitacao=".$_GET['cod_solicitacao']."&cod_entidade=".$_GET['cod_entidade']."&exercicio=".$_GET['exercicio']."','carregaSolicitacao');"; } else { $arValores = Sessao::read('arValores'); if (count($arValores) > 0) { - $stJs = "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."','carregaListaItens');"; + $stJs .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."','carregaListaItens');"; } } diff --git a/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php b/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php index 59318f3..3ad7faf 100755 --- a/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php +++ b/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - * $Id: OCGeraRelatorioAbastecimento.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: OCGeraRelatorioAbastecimento.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-03.02.18 */ @@ -107,7 +107,7 @@ if ($_REQUEST['inCodCombustivelSelecionados'] != '') { $stCombustivel .= $rsCombustivel->getCampo('nom_combustivel').', '; $rsCombustivel->proximo(); } - $preview->addParametro( 'stFiltroCombustivel', utf8_encode(substr($stCombustivel,0,-2)) ); + $preview->addParametro( 'stFiltroCombustivel', substr($stCombustivel,0,-2) ); } else { $preview->addParametro( 'inCodCombustivel', null ); $preview->addParametro( 'stFiltroCombustivel', null ); diff --git a/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioManutencao.php b/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioManutencao.php index 2e81ba9..211297c 100755 --- a/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioManutencao.php +++ b/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioManutencao.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - * $Id: OCGeraRelatorioManutencao.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: OCGeraRelatorioManutencao.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-03.02.17 */ @@ -107,7 +107,7 @@ if ($_REQUEST['inCodCombustivelSelecionados'] != '') { $stCombustivel .= $rsCombustivel->getCampo('nom_combustivel').', '; $rsCombustivel->proximo(); } - $preview->addParametro( 'stFiltroCombustivel', utf8_encode(substr($stCombustivel,0,-2)) ); + $preview->addParametro( 'stFiltroCombustivel', substr($stCombustivel,0,-2) ); } else { $preview->addParametro( 'inCodCombustivel', null ); $preview->addParametro( 'stFiltroCombustivel', null ); diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php b/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php index a1e2ca2..2cef1d9 100755 --- a/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php @@ -20,10 +20,7 @@ * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * * * ********************************************************************************** -*/ -?> -getDado('exercicio_processo')) { - $stSql.= "AND ll.exercicio_processo in (".$this->getDado('exercicio_processo').") \n"; + $stSql.= "AND ll.exercicio_processo = '".$this->getDado('exercicio_processo')."' \n"; } if ($this->getDado('cod_modalidade')) { - $stSql.= " AND ll.cod_modalidade =".$this->getDado('cod_modalidade')." \n"; + $stSql.= " AND ll.cod_modalidade IN (".$this->getDado('cod_modalidade').") \n"; } if ($this->getDado('exercicio')) { $stSql.= "AND ll.exercicio = '".$this->getDado('exercicio')."' \n"; @@ -1042,7 +1041,7 @@ function montaRecuperaLicitacaoNaoHomologada() if ($this->getDado('cod_tipo_objeto')) { $stSql.= "AND ll.cod_tipo_objeto = '".$this->getDado('cod_tipo_objeto')."' \n"; } - + return $stSql; } diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoPublicacaoContratoAditivos.class.php b/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoPublicacaoContratoAditivos.class.php index 30f5d0a..e705475 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoPublicacaoContratoAditivos.class.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoPublicacaoContratoAditivos.class.php @@ -20,10 +20,7 @@ * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * * * ********************************************************************************** -*/ -?> -getDado('num_contrato')." \n"; $stSql .= " AND exercicio = ".$this->getDado('exercicio')." \n"; - $stSql .= " AND exercicio_contrato = '".$this->getDado('exercicio_contrato')."' \n"; + $stSql .= " AND exercicio_contrato = ".$this->getDado('exercicio_contrato')." \n"; $stSql .= " AND cod_entidade = ".$this->getDado('cod_entidade')." \n"; if ($this->getDado('num_aditivo') != '') { diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/homologacao/FMManterHomologacao.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/homologacao/FMManterHomologacao.php index 74ed472..2b5a181 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/homologacao/FMManterHomologacao.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/homologacao/FMManterHomologacao.php @@ -31,7 +31,7 @@ * Casos de uso: uc-03.05.21 - $Id: FMManterHomologacao.php 60788 2014-11-17 12:47:59Z silvia $ + $Id: FMManterHomologacao.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -134,7 +134,7 @@ $obTxtJustificativa->setName ( 'stJustificativa' ); $obTxtJustificativa->setId ( 'stJustificativa' ); $obTxtJustificativa->setRotulo ( "Justificativa" ); $obTxtJustificativa->setTitle ( "Justificativa e fundamentação legal para contratação mediante dispensa ou inexigibilidade." ); -$obTxtJustificativa->setNull ( true ); +$obTxtJustificativa->setNull ( false ); $obTxtJustificativa->setRows ( 2 ); $obTxtJustificativa->setCols ( 100 ); $obTxtJustificativa->setMaxCaracteres( 250 ); @@ -144,7 +144,7 @@ $obTxtRazao->setName ( 'stRazao' ); $obTxtRazao->setId ( 'stRazao' ); $obTxtRazao->setRotulo ( "Razão" ); $obTxtRazao->setTitle ( "Razão da escolha do fornecedor ou executante." ); -$obTxtRazao->setNull ( true ); +$obTxtRazao->setNull ( false ); $obTxtRazao->setRows ( 2 ); $obTxtRazao->setCols ( 100 ); $obTxtRazao->setMaxCaracteres( 250 ); diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterJulgamentoProposta.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterJulgamentoProposta.php index 18aa09c..0076859 100755 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterJulgamentoProposta.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterJulgamentoProposta.php @@ -110,10 +110,10 @@ $preview->addParametro('cod_cotacao' , $inCodCotacao); $preview->addParametro('exercicio_cotacao' , $stExercicioCotacao); $preview->addParametro('data_emissao' , (($stDtEmissao != '') ? $stDtEmissao : '')); $preview->addParametro('hora_emissao' , (($stHrEmissao != '') ? $stHrEmissao : '')); -$preview->addParametro('prm_modalidade' , utf8_encode($stModalidade) ); -$preview->addParametro('prm_tipo_objeto' , utf8_encode($stTipoObjeto) ); -$preview->addParametro('prm_objeto' , utf8_encode($stObjeto) ); -$preview->addParametro('prm_entidade' , utf8_encode($stEntidade) ); +$preview->addParametro('prm_modalidade' , $stModalidade ); +$preview->addParametro('prm_tipo_objeto' , $stTipoObjeto ); +$preview->addParametro('prm_objeto' , $stObjeto ); +$preview->addParametro('prm_entidade' , $stEntidade ); $stIncluirAssinaturas = $_REQUEST['stIncluirAssinaturas']; if ($stIncluirAssinaturas == 'sim') { @@ -122,7 +122,7 @@ if ($stIncluirAssinaturas == 'sim') { $stIncluirAssinaturas = 'não'; } -$preview->addParametro('incluir_assinaturas', utf8_encode($stIncluirAssinaturas) ); +$preview->addParametro('incluir_assinaturas', $stIncluirAssinaturas ); $preview->addAssinaturas(Sessao::read('assinaturas')); $preview->preview(); diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterManutencaoProposta.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterManutencaoProposta.php index cbc01f7..70553a0 100755 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterManutencaoProposta.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterManutencaoProposta.php @@ -141,5 +141,5 @@ $preview->addParametro( 'cod_tipo_objeto' , $inCodTipoObjeto ); $preview->addParametro( 'data_emissao' , $stDataManutencao ); $preview->addParametro( 'cod_objeto' , $inCodObjeto ); $preview->addParametro( 'cod_tipo_licitacao' , $inCodTipoLicitacao ); -$preview->addParametro( 'st_header' , utf8_encode($stHeader) ); +$preview->addParametro( 'st_header' , $stHeader ); $preview->preview(); diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php index fa9781b..d8afe38 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php @@ -31,7 +31,7 @@ * Casos de uso: uc-03.05.15 - $Id: OCManterProcessoLicitatorio.php 60788 2014-11-17 12:47:59Z silvia $ + $Id: OCManterProcessoLicitatorio.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -1423,32 +1423,38 @@ case 'validaDtLicitacao': case 'recuperaRegimeExecucaoObra' : $inCodUF = SistemaLegado::pegaConfiguracao('cod_uf'); - if ($request->get('inCodTipoObjeto') == 2 && $inCodUF == 11) { - include_once CAM_GP_LIC_MAPEAMENTO."TRegimeExecucaoObras.class.php"; - $obTRegimeExecucaoObras = new TRegimeExecucaoObras; - - $obTRegimeExecucaoObras->recuperaTodos($rsRecordSet); - - $obSlRegime = new Select(); - $obSlRegime->setRotulo ("Regime de execução de Obras" ); - $obSlRegime->setName ("inCodRegime" ); - $obSlRegime->setTitle ("Regime de execução para obras e serviços de engenharia."); - $obSlRegime->setNull (false ); - $obSlRegime->setValue ($_REQUEST['inCodRegime'] ); - $obSlRegime->addOption ("","Selecione" ); - $obSlRegime->setCampoID ("cod_regime" ); - $obSlRegime->setCampoDesc ("descricao" ); - $obSlRegime->preencheCombo($rsRecordSet ); - - $obFormulario = new Formulario(); - $obFormulario->addComponente($obSlRegime); - $obFormulario->montaInnerHTML(); - $stHTML = $obFormulario->getHTML(); - $stJs .= "d.getElementById('spnRegime').innerHTML = '".$stHTML."';\n"; - }else{ - $stJs .= "d.getElementById('spnRegime').innerHTML = '".$stHTML."';\n"; + switch ($request->get('inCodTipoObjeto')) { + case 2: + //TCE-MG ou TCM-GO + if ( ($inCodUF == 11) || ($inCodUF == 9) ) { + include_once CAM_GP_LIC_MAPEAMENTO."TRegimeExecucaoObras.class.php"; + $obTRegimeExecucaoObras = new TRegimeExecucaoObras; + $obTRegimeExecucaoObras->recuperaTodos($rsRecordSet); + + $obSlRegime = new Select(); + $obSlRegime->setRotulo ( "Regime de execução de Obras" ); + $obSlRegime->setName ( "inCodRegime" ); + $obSlRegime->setTitle ( "Regime de execução para obras e serviços de engenharia."); + $obSlRegime->setNull ( false ); + $obSlRegime->setValue ( $_REQUEST['inCodRegime'] ); + $obSlRegime->addOption ( "","Selecione" ); + $obSlRegime->setCampoID ( "cod_regime" ); + $obSlRegime->setCampoDesc ( "descricao" ); + $obSlRegime->preencheCombo( $rsRecordSet ); + + $obFormulario = new Formulario(); + $obFormulario->addComponente($obSlRegime); + $obFormulario->montaInnerHTML(); + $stHTML = $obFormulario->getHTML(); + $stJs .= "d.getElementById('spnRegime').innerHTML = '".$stHTML."';\n"; + } + break; + + default: + $stJs .= "d.getElementById('spnRegime').innerHTML = '".$stHTML."';\n"; + break; } - + break; case 'montaItensAlterar': diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/PRManterProcessoLicitatorio.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/PRManterProcessoLicitatorio.php index 0582fe9..5730599 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/PRManterProcessoLicitatorio.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/PRManterProcessoLicitatorio.php @@ -34,7 +34,7 @@ * Casos de uso: uc-03.05.15 - $Id: PRManterProcessoLicitatorio.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: PRManterProcessoLicitatorio.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -79,9 +79,9 @@ switch ($stAcao) { $stMensagem = verificaUtilizacaoMapa($arMapa[0], $arMapa[1], 'incluir'); } - //Só entra no if se município pertencer ao estado de MG + //Só entra no if se município pertencer ao estado de MG ou GO $inCodUF = SistemaLegado::pegaConfiguracao('cod_uf'); - if ($request->get('inCodTipoObjeto') == 2 && $request->get('inCodRegime') == '' && $inCodUF == 11) { + if ( ($request->get('inCodTipoObjeto') == 2 && $request->get('inCodRegime') == '') && ($inCodUF == 11 || $inCodUF == 9) ) { $stMensagem = "O Regime de execução de Obras é obrigatório para o Tipo de Objeto selecionado."; } @@ -104,16 +104,16 @@ switch ($stAcao) { $boReservaSaldo = true; - $obTComprasMapaSolicitacao->setDado('cod_mapa', $arMapa[0]); - $obTComprasMapaSolicitacao->setDado('exercicio',$arMapa[1]); + $obTComprasMapaSolicitacao->setDado('cod_mapa' , $arMapa[0]); + $obTComprasMapaSolicitacao->setDado('exercicio' , $arMapa[1]); $obTComprasMapaSolicitacao->recuperaPorChave( $rsSolicitacaoMapa ); $soma = 0; while (!$rsSolicitacaoMapa->eof()) { - $obTComprasSolicitacao->setDado('cod_solicitacao',$rsSolicitacaoMapa->getCampo('cod_solicitacao')); - $obTComprasSolicitacao->setDado('cod_entidade',$rsSolicitacaoMapa->getCampo('cod_entidade')); - $obTComprasSolicitacao->setDado('exercicio',$rsSolicitacaoMapa->getCampo('exercicio')); + $obTComprasSolicitacao->setDado('cod_solicitacao' , $rsSolicitacaoMapa->getCampo('cod_solicitacao')); + $obTComprasSolicitacao->setDado('cod_entidade' , $rsSolicitacaoMapa->getCampo('cod_entidade')); + $obTComprasSolicitacao->setDado('exercicio' , $rsSolicitacaoMapa->getCampo('exercicio')); $obTComprasSolicitacao->recuperaValoresTotaisSolicitacao($rsValoresSolicitacao); $soma = $soma + $rsValoresSolicitacao->getCampo("total"); @@ -122,9 +122,9 @@ switch ($stAcao) { } while (!$rsSolicitacaoMapa->eof()) { - $obTComprasMapaItemReserva->setDado('cod_solicitacao',$rsSolicitacaoMapa->getCampo('cod_solicitacao')); - $obTComprasMapaItemReserva->setDado('cod_entidade',$rsSolicitacaoMapa->getCampo('cod_entidade')); - $obTComprasMapaItemReserva->setDado('exercicio',$rsSolicitacaoMapa->getCampo('exercicio')); + $obTComprasMapaItemReserva->setDado('cod_solicitacao' , $rsSolicitacaoMapa->getCampo('cod_solicitacao')); + $obTComprasMapaItemReserva->setDado('cod_entidade' , $rsSolicitacaoMapa->getCampo('cod_entidade')); + $obTComprasMapaItemReserva->setDado('exercicio' , $rsSolicitacaoMapa->getCampo('exercicio')); $obTComprasMapaItemReserva->recuperaMapaItemReserva( $rsMapaItemReserva ); if ( $rsMapaItemReserva->getNumLinhas() > 0 ) { $boReservaSaldo = false; @@ -138,10 +138,10 @@ switch ($stAcao) { if ($_REQUEST['inCodLicitacaoImplantacao'] == '' || $_REQUEST['inCodLicitacaoImplantacao'] == '0') { $stMensagem = "Código da Licitação inválido."; } else { - $obTLicitacaoLicitacao->setDado('cod_licitacao', $_REQUEST['inCodLicitacaoImplantacao'] ); - $obTLicitacaoLicitacao->setDado('cod_modalidade',$_REQUEST['inCodModalidade']); - $obTLicitacaoLicitacao->setDado('cod_entidade',$_REQUEST['inCodEntidade'] ); - $obTLicitacaoLicitacao->setDado('exercicio',Sessao::getExercicio() ); + $obTLicitacaoLicitacao->setDado('cod_licitacao' , $_REQUEST['inCodLicitacaoImplantacao'] ); + $obTLicitacaoLicitacao->setDado('cod_modalidade', $_REQUEST['inCodModalidade']); + $obTLicitacaoLicitacao->setDado('cod_entidade' , $_REQUEST['inCodEntidade'] ); + $obTLicitacaoLicitacao->setDado('exercicio' , Sessao::getExercicio() ); $obTLicitacaoLicitacao->recuperaPorChave( $rsLicitacao ); if ( $rsLicitacao->getNumLinhas() > 0 ) { @@ -166,27 +166,27 @@ switch ($stAcao) { $arStUnidadeOrcamentaria = explode('.',$request->get('stUnidadeOrcamentaria')); - $obTLicitacaoLicitacao->setDado('cod_modalidade',$_REQUEST['inCodModalidade']); - $obTLicitacaoLicitacao->setDado('cod_entidade',$_REQUEST['inCodEntidade'] ); - $obTLicitacaoLicitacao->setDado('exercicio',Sessao::getExercicio() ); - $obTLicitacaoLicitacao->setDado('cod_tipo_objeto',$_REQUEST['inCodTipoObjeto'] ); - $obTLicitacaoLicitacao->setDado('cod_objeto',$_REQUEST['stObjeto'] ); - $obTLicitacaoLicitacao->setDado('cod_criterio',$_REQUEST['inCodCriterio'] ); - $obTLicitacaoLicitacao->setDado('cod_tipo_licitacao',$_REQUEST['inCodTipoCotacao'] ); - $obTLicitacaoLicitacao->setDado('cod_mapa',$arMapa[0]); - $obTLicitacaoLicitacao->setDado('exercicio_mapa',"".$arMapa[1].""); - $obTLicitacaoLicitacao->setDado('cod_processo',$arProcesso[0]); - $obTLicitacaoLicitacao->setDado('exercicio_processo',"".$arProcesso[1].""); - $obTLicitacaoLicitacao->setDado('vl_cotado',$_REQUEST['stValorReferencial'] ); - $obTLicitacaoLicitacao->setDado('timestamp', substr($dtLicitacao, 6, 4).'-'.substr($dtLicitacao, 3, 2).'-'.substr($dtLicitacao,0,2).date(' H:i:s.ms')); - $obTLicitacaoLicitacao->setDado('num_orgao' , $arStUnidadeOrcamentaria[0]); - $obTLicitacaoLicitacao->setDado('num_unidade', $arStUnidadeOrcamentaria[1]); - $obTLicitacaoLicitacao->setDado('cod_regime',$_REQUEST['inCodRegime'] != '' ? $_REQUEST['inCodRegime'] : 'null'); + $obTLicitacaoLicitacao->setDado('cod_modalidade' , $_REQUEST['inCodModalidade'] ); + $obTLicitacaoLicitacao->setDado('cod_entidade' , $_REQUEST['inCodEntidade'] ); + $obTLicitacaoLicitacao->setDado('exercicio' , Sessao::getExercicio() ); + $obTLicitacaoLicitacao->setDado('cod_tipo_objeto' , $_REQUEST['inCodTipoObjeto'] ); + $obTLicitacaoLicitacao->setDado('cod_objeto' , $_REQUEST['stObjeto'] ); + $obTLicitacaoLicitacao->setDado('cod_criterio' , $_REQUEST['inCodCriterio'] ); + $obTLicitacaoLicitacao->setDado('cod_tipo_licitacao' , $_REQUEST['inCodTipoCotacao'] ); + $obTLicitacaoLicitacao->setDado('cod_mapa' , $arMapa[0] ); + $obTLicitacaoLicitacao->setDado('exercicio_mapa' , "".$arMapa[1]."" ); + $obTLicitacaoLicitacao->setDado('cod_processo' , $arProcesso[0] ); + $obTLicitacaoLicitacao->setDado('exercicio_processo' , "".$arProcesso[1]."" ); + $obTLicitacaoLicitacao->setDado('vl_cotado' , $_REQUEST['stValorReferencial'] ); + $obTLicitacaoLicitacao->setDado('timestamp' , substr($dtLicitacao, 6, 4).'-'.substr($dtLicitacao, 3, 2).'-'.substr($dtLicitacao,0,2).date(' H:i:s.ms')); + $obTLicitacaoLicitacao->setDado('num_orgao' , $arStUnidadeOrcamentaria[0] ); + $obTLicitacaoLicitacao->setDado('num_unidade' , $arStUnidadeOrcamentaria[1] ); + $obTLicitacaoLicitacao->setDado('cod_regime' , $_REQUEST['inCodRegime'] != '' ? $_REQUEST['inCodRegime'] : 'null'); $obTLicitacaoLicitacao->inclusao(); $obTMapaModalidade = new TComprasMapaModalidade(); - $obTMapaModalidade->setDado('cod_mapa' ,$arMapa[0]); - $obTMapaModalidade->setDado('exercicio' ,$arMapa[1]); + $obTMapaModalidade->setDado('cod_mapa' ,$arMapa[0]); + $obTMapaModalidade->setDado('exercicio' ,$arMapa[1]); $obTMapaModalidade->setDado('cod_modalidade',$_REQUEST['inCodModalidade']); $obTMapaModalidade->recuperaTodos( $rsMapaModalidade ); if ( $rsMapaModalidade->getNumLinhas() > 0 ) { @@ -197,11 +197,11 @@ switch ($stAcao) { include_once(TLIC."TLicitacaoComissaoLicitacao.class.php"); $obTLicitacaoComissaoLicitacao = new TLicitacaoComissaoLicitacao(); - $obTLicitacaoComissaoLicitacao->setDado('exercicio' ,Sessao::getExercicio() ); - $obTLicitacaoComissaoLicitacao->setDado('cod_entidade' ,$_REQUEST['inCodEntidade'] ); - $obTLicitacaoComissaoLicitacao->setDado('cod_licitacao' ,$obTLicitacaoLicitacao->getDado('cod_licitacao')); - $obTLicitacaoComissaoLicitacao->setDado('cod_modalidade',$_REQUEST['inCodModalidade'] ); - $obTLicitacaoComissaoLicitacao->setDado('cod_comissao' ,$_REQUEST['inCodComissao' ] ); + $obTLicitacaoComissaoLicitacao->setDado('exercicio' , Sessao::getExercicio() ); + $obTLicitacaoComissaoLicitacao->setDado('cod_entidade' , $_REQUEST['inCodEntidade'] ); + $obTLicitacaoComissaoLicitacao->setDado('cod_licitacao' , $obTLicitacaoLicitacao->getDado('cod_licitacao')); + $obTLicitacaoComissaoLicitacao->setDado('cod_modalidade', $_REQUEST['inCodModalidade'] ); + $obTLicitacaoComissaoLicitacao->setDado('cod_comissao' , $_REQUEST['inCodComissao' ] ); $obTLicitacaoComissaoLicitacao->inclusao(); if ( $request->get('inCodComissaoApoio') ) { @@ -214,11 +214,11 @@ switch ($stAcao) { $obTLicitacaoMembroAdicional = new TLicitacaoMembroAdicional(); foreach (Sessao::read('arMembro') as $value) { if (trim($value['adicional']) == 'Sim') { - $obTLicitacaoMembroAdicional->setDado('numcgm',$value['num_cgm']); - $obTLicitacaoMembroAdicional->setDado('cod_licitacao',$obTLicitacaoLicitacao->getDado('cod_licitacao')); - $obTLicitacaoMembroAdicional->setDado('exercicio',Sessao::getExercicio()); - $obTLicitacaoMembroAdicional->setDado('cod_modalidade',$_REQUEST['inCodModalidade']); - $obTLicitacaoMembroAdicional->setDado('cod_entidade', $_REQUEST['inCodEntidade']); + $obTLicitacaoMembroAdicional->setDado('numcgm' , $value['num_cgm']); + $obTLicitacaoMembroAdicional->setDado('cod_licitacao' , $obTLicitacaoLicitacao->getDado('cod_licitacao')); + $obTLicitacaoMembroAdicional->setDado('exercicio' , Sessao::getExercicio()); + $obTLicitacaoMembroAdicional->setDado('cod_modalidade' , $_REQUEST['inCodModalidade']); + $obTLicitacaoMembroAdicional->setDado('cod_entidade' , $_REQUEST['inCodEntidade']); $obTLicitacaoMembroAdicional->inclusao(); } } @@ -228,11 +228,11 @@ switch ($stAcao) { include_once(TLIC."TLicitacaoLicitacaoDocumentos.class.php"); $obTLicitacaoLicitacaoDocumentos = new TLicitacaoLicitacaoDocumentos(); foreach (Sessao::read('arDocumentos') as $value) { - $obTLicitacaoLicitacaoDocumentos->setDado('cod_documento',$value['cod_documento']); - $obTLicitacaoLicitacaoDocumentos->setDado('cod_licitacao',$obTLicitacaoLicitacao->getDado('cod_licitacao')); - $obTLicitacaoLicitacaoDocumentos->setDado('cod_modalidade',$_REQUEST['inCodModalidade']); - $obTLicitacaoLicitacaoDocumentos->setDado('cod_entidade', $_REQUEST['inCodEntidade']); - $obTLicitacaoLicitacaoDocumentos->setDado('exercicio',Sessao::getExercicio()); + $obTLicitacaoLicitacaoDocumentos->setDado('cod_documento' , $value['cod_documento']); + $obTLicitacaoLicitacaoDocumentos->setDado('cod_licitacao' , $obTLicitacaoLicitacao->getDado('cod_licitacao')); + $obTLicitacaoLicitacaoDocumentos->setDado('cod_modalidade' , $_REQUEST['inCodModalidade']); + $obTLicitacaoLicitacaoDocumentos->setDado('cod_entidade' , $_REQUEST['inCodEntidade']); + $obTLicitacaoLicitacaoDocumentos->setDado('exercicio' , Sessao::getExercicio()); $obTLicitacaoLicitacaoDocumentos->inclusao(); } } diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBem.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBem.class.php index 60e1070..8e50f78 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBem.class.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBem.class.php @@ -27,7 +27,7 @@ * @author Analista: * @author Programador: Fernando Zank Correa Evangelista - $Id: TPatrimonioBem.class.php 60788 2014-11-17 12:47:59Z silvia $ + $Id: TPatrimonioBem.class.php 61647 2015-02-20 11:26:55Z luciana $ Caso de uso: uc-03.01.09 Caso de uso: uc-03.01.21 @@ -1088,6 +1088,24 @@ class TPatrimonioBem extends Persistente ON historico_bem.cod_bem = bem.cod_bem LEFT JOIN patrimonio.bem_baixado ON bem_baixado.cod_bem = bem.cod_bem + + LEFT JOIN ( SELECT bem_responsavel.cod_bem + , bem_responsavel.numcgm + , bem_responsavel.dt_inicio AS dt_inicio + , sw_cgm.nom_cgm + FROM patrimonio.bem_responsavel + INNER JOIN ( SELECT cod_bem + , MAX(timestamp) AS timestamp + FROM patrimonio.bem_responsavel + GROUP BY cod_bem + ) AS bem_responsavel_max + ON bem_responsavel_max.cod_bem = bem_responsavel.cod_bem + AND bem_responsavel_max.timestamp = bem_responsavel.timestamp + INNER JOIN sw_cgm + ON sw_cgm.numcgm = bem_responsavel.numcgm + ) AS bem_responsavel + ON bem_responsavel.cod_bem = bem.cod_bem + "; return $stSql; diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemPlanoDepreciacao.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemPlanoDepreciacao.class.php index 58a48ef..248ea7c 100755 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemPlanoDepreciacao.class.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemPlanoDepreciacao.class.php @@ -48,14 +48,16 @@ class TPatrimonioBemPlanoDepreciacao extends Persistente FROM patrimonio.bem_plano_depreciacao LEFT JOIN contabilidade.plano_analitica - ON plano_analitica.cod_plano = bem_plano_depreciacao.cod_plano - AND plano_analitica.exercicio = bem_plano_depreciacao.exercicio + ON plano_analitica.cod_plano = bem_plano_depreciacao.cod_plano + AND plano_analitica.exercicio = bem_plano_depreciacao.exercicio + --AND bem_plano_depreciacao.exercicio = '".Sessao::getExercicio()."' LEFT JOIN contabilidade.plano_conta ON plano_conta.cod_conta = plano_analitica.cod_conta AND plano_conta.exercicio = plano_analitica.exercicio - WHERE bem_plano_depreciacao.cod_bem = ".$this->getDado('cod_bem')." + WHERE bem_plano_depreciacao.cod_bem = ".$this->getDado('cod_bem')." + --AND bem_plano_depreciacao.exercicio = '".Sessao::getExercicio()."' GROUP BY bem_plano_depreciacao.cod_bem , bem_plano_depreciacao.cod_plano @@ -65,5 +67,67 @@ class TPatrimonioBemPlanoDepreciacao extends Persistente ORDER BY timestamp DESC "; return $stSql; } + + function recuperaBemPlanoDepreciacao(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = ""){ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaBemPlanoDepreciacao(); + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + function montaRecuperaBemPlanoDepreciacao(){ + $stSql = " SELECT bem_plano_depreciacao.cod_bem + , bem_plano_depreciacao.cod_plano + , bem_plano_depreciacao.exercicio + , MAX(bem_plano_depreciacao.timestamp::timestamp) AS timestamp + , plano_conta.cod_estrutural + , plano_conta.nom_conta AS nom_conta_depreciacao + + FROM patrimonio.bem_plano_depreciacao + + INNER JOIN patrimonio.bem + ON bem.cod_bem = bem_plano_depreciacao .cod_bem + + INNER JOIN patrimonio.depreciacao + ON depreciacao.cod_bem = bem.cod_bem + + LEFT JOIN contabilidade.plano_analitica + ON plano_analitica.cod_plano = bem_plano_depreciacao.cod_plano + AND plano_analitica.exercicio = bem_plano_depreciacao.exercicio + + LEFT JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + + WHERE bem_plano_depreciacao.timestamp::timestamp = ( SELECT MAX(bem_plano.timestamp::timestamp) AS timestamp + FROM patrimonio.bem_plano_depreciacao AS bem_plano + + WHERE bem_plano_depreciacao.cod_bem = bem_plano.cod_bem + AND bem_plano_depreciacao.exercicio = bem_plano.exercicio + AND bem_plano_depreciacao.exercicio = '".Sessao::getExercicio()."' + + GROUP BY bem_plano.cod_bem + , bem_plano.exercicio ) + AND NOT EXISTS ( SELECT 1 + FROM patrimonio.depreciacao_anulada + WHERE depreciacao_anulada.cod_depreciacao = depreciacao.cod_depreciacao + AND depreciacao_anulada.cod_bem = depreciacao.cod_bem + AND depreciacao_anulada.timestamp = depreciacao.timestamp + ) + + AND depreciacao.cod_bem = ".$this->getDado('cod_bem')." + AND substring(depreciacao.competencia, 1,4) = '".Sessao::getExercicio()."' + AND bem_plano_depreciacao.exercicio = '".Sessao::getExercicio()."' + + GROUP BY bem_plano_depreciacao.cod_bem + , bem_plano_depreciacao.cod_plano + , bem_plano_depreciacao.exercicio + , plano_conta.cod_estrutural + , plano_conta.nom_conta "; + return $stSql; + } -} +} \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemProcesso.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemProcesso.class.php new file mode 100644 index 0000000..138c3db --- /dev/null +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemProcesso.class.php @@ -0,0 +1,47 @@ +setTabela('patrimonio.bem_processo'); + $this->setCampoCod('cod_bem'); + $this->setComplementoChave(''); + $this->AddCampo('cod_bem' ,'integer',true,'' ,true ,true); + $this->AddCampo('ano_exercicio','varchar',true,'4',false,true); + $this->AddCampo('cod_processo' ,'integer',true,'' ,false,true); + } +} \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacao.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacao.class.php index 1276545..ce635ed 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacao.class.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacao.class.php @@ -190,6 +190,7 @@ class TPatrimonioDepreciacao extends Persistente WHERE bem_plano_depreciacao.cod_bem = bem_plano.cod_bem AND bem_plano_depreciacao.exercicio = bem_plano.exercicio + /*AND bem_plano_depreciacao.exercicio '".$this->getDado('exercicio')."'*/ GROUP BY bem_plano.cod_bem , bem_plano.exercicio ) @@ -242,6 +243,14 @@ class TPatrimonioDepreciacao extends Persistente $stSql .= " AND depreciacao.cod_bem = ".$this->getDado('cod_bem'); } + if ($this->getDado('cod_plano_bem')) { + $stSql .= " AND bem_plano_depreciacao.cod_plano = ".$this->getDado('cod_plano_bem'); + } + + if ($this->getDado('cod_plano_grupo')) { + $stSql .= " AND grupo_plano_depreciacao.cod_plano = ".$this->getDado('cod_plano_grupo'); + } + return $stSql; } diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacaoAnulada.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacaoAnulada.class.php index 2e26018..ddf05b5 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacaoAnulada.class.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacaoAnulada.class.php @@ -32,7 +32,7 @@ * @ignore - $Id: TPatrimonioDepreciacaoAnulada.class.php 60907 2014-11-24 15:02:38Z silvia $ + $Id: TPatrimonioDepreciacaoAnulada.class.php 61683 2015-02-25 14:28:21Z luciana $ $Date: $ $Author: $ $Rev: $ @@ -141,6 +141,25 @@ class TPatrimonioDepreciacaoAnulada extends Persistente return $stSql; } + public function executaFuncao($stParametros, $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + + $stSql = $this->montaExecutaFuncao($stParametros); + $this->setDebug($stSql); + $obErro = $obConexao->executaSQL($rsRecordset, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaExecutaFuncao($stParametros) + { + $stSql = " SELECT patrimonio.fn_depreciacao_anulacao(".$stParametros.") AS valor"; + + return $stSql; + } + } ?> \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioGrupo.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioGrupo.class.php index 77bf108..abe8eb5 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioGrupo.class.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioGrupo.class.php @@ -32,7 +32,7 @@ Caso de uso: uc-03.01.04 - $Id: TPatrimonioGrupo.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TPatrimonioGrupo.class.php 61683 2015-02-25 14:28:21Z luciana $ */ @@ -216,7 +216,64 @@ class TPatrimonioGrupo extends Persistente return $stSql; } + + public function recuperaGrupoPlanoDepreciacao(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaGrupoPlanoDepreciacao().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL($rsRecordSet, $stSql, $boTransacao); + + return $obErro; + } + public function montaRecuperaGrupoPlanoDepreciacao() + { + $stSql = " + SELECT grupo_plano_depreciacao.cod_plano + , bem.cod_bem + , grupo_plano_depreciacao.exercicio + + FROM patrimonio.grupo_plano_depreciacao + + INNER JOIN patrimonio.grupo + ON grupo.cod_natureza = grupo_plano_depreciacao.cod_natureza + AND grupo.cod_grupo = grupo_plano_depreciacao.cod_grupo + + INNER JOIN patrimonio.especie + ON especie.cod_grupo = grupo.cod_grupo + AND especie.cod_natureza = grupo.cod_natureza + + INNER JOIN patrimonio.bem + ON bem.cod_especie = especie.cod_especie + AND bem.cod_grupo = especie.cod_grupo + AND bem.cod_natureza = especie.cod_natureza + + INNER JOIN patrimonio.depreciacao + ON depreciacao.cod_bem = bem.cod_bem + + WHERE NOT EXISTS ( SELECT 1 + FROM patrimonio.depreciacao_anulada + WHERE depreciacao_anulada.cod_depreciacao = depreciacao.cod_depreciacao + AND depreciacao_anulada.cod_bem = depreciacao.cod_bem + AND depreciacao_anulada.timestamp = depreciacao.timestamp + ) + AND grupo_plano_depreciacao.exercicio = '".Sessao::getExercicio()."' + AND substring(depreciacao.competencia, 1,4 ) = '".Sessao::getExercicio()."' \n"; + + if ($this->getDado('cod_bem')) { + $stSql .= " AND depreciacao.cod_bem = ".$this->getDado('cod_bem'); + } + + if ($this->getDado('cod_plano_grupo')) { + $stSql .= " AND grupo_plano_depreciacao.cod_plano = ".$this->getDado('cod_plano_grupo'); + } + + return $stSql; + } + } -?> +?> \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterBem.php index 2c25dd6..c80599f 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterBem.php @@ -32,7 +32,7 @@ * @package URBEM * @subpackage - $Id: FLManterBem.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FLManterBem.php 61741 2015-02-27 19:14:33Z luciana $ * Casos de uso: uc-03.01.06 */ @@ -51,6 +51,8 @@ include_once( CAM_GF_ORC_COMPONENTES."ITextBoxSelectEntidadeGeral.class.php" ); include_once( CAM_GA_CGM_COMPONENTES."IPopUpCGMVinculado.class.php" ); include_once CAM_GA_ORGAN_COMPONENTES."IMontaOrganograma.class.php"; include_once CAM_GA_ORGAN_COMPONENTES."IMontaOrganogramaLocal.class.php"; +include_once(CAM_GA_PROT_COMPONENTES.'IPopUpProcesso.class.php'); +include_once(CAM_GP_LIC_MAPEAMENTO."TLicitacaoLicitacao.class.php"); $stPrograma = "ManterBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -108,6 +110,12 @@ $obTxtDescricaoBem->setSize( 60 ); $obTxtDescricaoBem->setMaxLength( 60 ); $obTxtDescricaoBem->setNull( true ); +//instancia a informação do processo que deu origem a aquisição do bem +$obPopUpProcesso = new IPopUpProcesso($obForm); +$obPopUpProcesso->setRotulo("Processo Administrativo"); +$obPopUpProcesso->setValidar(true); +$obPopUpProcesso->setNull(true); + //instancia um tipobusca $obTipoBuscaDescricaoBem = new TipoBusca( $obTxtDescricaoBem ); @@ -399,6 +407,7 @@ $obFormulario->addSpan ( $obSpnAtributos ); $obFormulario->addTitulo ( 'Informações Básicas' ); $obFormulario->addComponente( $obTipoBuscaDescricaoBem ); +$obFormulario->addComponente( $obPopUpProcesso ); $obFormulario->addComponente( $obTipoBuscaDetalhamentoBem ); $obFormulario->addComponente( $obBscMarca ); $obFormulario->addComponente( $obIPopUpFornecedor ); diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterTransferirBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterTransferirBem.php index 5e7f188..58849f7 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterTransferirBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterTransferirBem.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - $Id: FLManterTransferirBem.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FLManterTransferirBem.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-03.01.06 @@ -40,6 +40,7 @@ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/includ include_once( CAM_GP_PAT_COMPONENTES."IPopUpBem.class.php"); include_once CAM_GA_ORGAN_COMPONENTES."IMontaOrganograma.class.php"; include_once CAM_GA_ORGAN_COMPONENTES."IMontaOrganogramaLocal.class.php"; +include_once( CAM_GA_CGM_COMPONENTES."IPopUpCGMVinculado.class.php" ); $stPrograma = "ManterTransferirBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -67,6 +68,21 @@ $obHdnCtrl = new Hidden; $obHdnCtrl->setName ("stCtrl" ); $obHdnCtrl->setValue(""); +//instancia o componente IPopUpCGMVinculado para o responsavel anterior +$obIPopUpCGMVinculadoResponsavelAnterior = new IPopUpCGMVinculado( $obForm ); +$obIPopUpCGMVinculadoResponsavelAnterior->setTabelaVinculo ( 'patrimonio.bem_responsavel' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setCampoVinculo ( 'numcgm' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setNomeVinculo ( 'ResponsavelAnterior' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setRotulo ( 'Responsável Atual' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setTitle ( 'Selecione o Responsável Atual.' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setName ( 'stNomResponsavelAtual' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setId ( 'stNomResponsavelAtual' ); +$obIPopUpCGMVinculadoResponsavelAnterior->obCampoCod->setName ( 'inNumResponsavelAtual' ); +$obIPopUpCGMVinculadoResponsavelAnterior->obCampoCod->setId ( 'inNumResponsavelAtual' ); +$obIPopUpCGMVinculadoResponsavelAnterior->setNull ( true ); +$obIPopUpCGMVinculadoResponsavelAnterior->obCampoCod->obEvento->setOnFocus ( "montaParametrosGET( 'verificaResponsavelBem'); montaParametrosGET( 'verificaResponsavelDif');" ); +$obIPopUpCGMVinculadoResponsavelAnterior->obCampoCod->obEvento->setOnChange ( "montaParametrosGET( 'verificaResponsavelBem'); montaParametrosGET( 'verificaResponsavelDif');" ); + //instancia o componenete IMontaOrganograma $obIMontaOrganograma = new IMontaOrganograma(true); $obIMontaOrganograma->setCodOrgao($codOrgao); @@ -86,6 +102,7 @@ $obFormulario->addHidden ( $obHdnAcao ); $obFormulario->addHidden ( $obHdnCtrl ); $obFormulario->addTitulo( 'Transferir Bem' ); +$obFormulario->addComponente( $obIPopUpCGMVinculadoResponsavelAnterior ); $obIMontaOrganograma->geraFormulario( $obFormulario ); $obIMontaOrganogramaLocal->geraFormulario( $obFormulario ); diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterBem.php index e482e8b..e6c5b0f 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterBem.php @@ -26,7 +26,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - $Id: FMManterBem.php 60907 2014-11-24 15:02:38Z silvia $ + $Id: FMManterBem.php 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso: uc-03.01.06 @@ -54,6 +54,9 @@ include_once CAM_GA_ORGAN_MAPEAMENTO."TOrganogramaOrgao.class.php"; include_once CAM_GF_ORC_NEGOCIO."ROrcamentoOrgaoOrcamentario.class.php"; //include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioGrupoPlanoDepreciacao.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemPlanoDepreciacao.class.php"; +include_once(CAM_GA_PROT_COMPONENTES.'IPopUpProcesso.class.php'); +include_once(CAM_GP_LIC_MAPEAMENTO."TLicitacaoLicitacao.class.php"); +include_once(CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemProcesso.class.php"); $stPrograma = "ManterBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -91,6 +94,7 @@ if ($stAcao == 'alterar') { $obTPatrimonioBem = new TPatrimonioBem(); $obTPatrimonioBem->setDado( 'cod_bem', $_REQUEST['inCodBem'] ); $obTPatrimonioBem->recuperaRelacionamento( $rsBem ); + $obTPatrimonioBem->recuperaSaldoBem( $rsSaldoBem ); $obTPatrimonioReavaliacao = new TPatrimonioReavaliacao(); @@ -115,6 +119,10 @@ if ($stAcao == 'alterar') { $obTAdministracaoConfiguracao->setDado( 'cod_modulo', 6 ); $obTAdministracaoConfiguracao->pegaConfiguracao( $boAltera, 'alterar_bens_exercicio_anterior' ); + $obTPatrimonioBemProcesso = new TPatrimonioBemProcesso(); + $obTPatrimonioBemProcesso->setDado('cod_bem', $_REQUEST['inCodBem']); + $obTPatrimonioBemProcesso->recuperaPorChave($rsPatrimonioBemProcesso); + //verifica e se necessário aplica o filtro if ( $boAltera == 'false' AND substr($rsBem->getCampo('dt_aquisicao'),6,11) < Sessao::getExercicio()) { SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao."&pg=".Sessao::read('pg')."&pos=".Sessao::read('pos'),'Permissão negada para excluir/alterar bem de exercício anterior. Verificar Configuração.',"incluir","aviso", Sessao::getId(), "../"); @@ -258,6 +266,21 @@ $obTxtDescricaoBem->setSize( 100 ); $obTxtDescricaoBem->setNull( false ); $obTxtDescricaoBem->setValue( $rsBem->getCampo( 'descricao' ) ); +if ( $rsPatrimonioBemProcesso->getNumLinhas > 0 ){ + $stProcesso = str_pad($rsPatrimonioBemProcesso->getCampo('cod_processo')."/".$rsPatrimonioBemProcesso->getCampo('ano_exercicio'),10,'0',STR_PAD_LEFT);$stProcesso = str_pad($rsPatrimonioBemProcesso->getCampo('cod_processo')."/".$rsPatrimonioBemProcesso->getCampo('ano_exercicio'),10,'0',STR_PAD_LEFT); + $inCodProcesso = $rsPatrimonioBemProcesso->getCampo('cod_processo'); +} else { + $stProcesso = ""; +} + +//instancia a informação do processo que deu origem a aquisição do bem +$obPopUpProcesso = new IPopUpProcesso($obForm); +$obPopUpProcesso->setRotulo("Processo Administrativo"); +$obPopUpProcesso->setValue ( $inCodProcesso ); +$obPopUpProcesso->obCampoCod->setValue($stProcesso); +$obPopUpProcesso->setValidar(true); +$obPopUpProcesso->setNull (true); + //instancia um text para o detalhamento do bem $obTxtDetalhamentoBem = new TextArea(); $obTxtDetalhamentoBem->setRotulo( 'Detalhamento' ); @@ -810,6 +833,7 @@ $obIMontaClassificacao->geraFormulario( $obFormulario ); $obFormulario->addTitulo ( 'Informações Básicas' ); $obFormulario->addComponente( $obTxtDescricaoBem ); +$obFormulario->addComponente( $obPopUpProcesso ); $obFormulario->addComponente( $obTxtDetalhamentoBem ); $obFormulario->addComponente( $obBscMarca ); $obFormulario->addComponente( $obIPopUpCGMFornecedor ); @@ -873,6 +897,32 @@ $obFormulario->addTitulo ( 'Apólice' ); $obFormulario->agrupaComponentes( array( $obRdApoliceSim, $obRdApoliceNao ) ); $obFormulario->addSpan ( $obSpnApolice ); + +// Se TCM-GO apresenta campo Obra +$obAdministracaoConfiguracao = new TAdministracaoConfiguracao; +$obAdministracaoConfiguracao->recuperaTodos($rsAdministracaoConfiguracao, " WHERE exercicio = '".Sessao::getExercicio()."' and cod_modulo = 2 and parametro = 'cod_uf'"); +$inCodUf = $rsAdministracaoConfiguracao->getCampo('valor'); +$stSiglaUf = SistemaLegado::pegaDado("sigla_uf","sw_uf","where cod_uf = ".$inCodUf.""); + +if ($stSiglaUf == "GO") { + $stJs.= " jq('#inCodNatureza').change(function(){ + if(jq(this).val() == '2') { + montaParametrosGET( 'montaObra', 'inCodNatureza' ); + } else { + jq('#spnListaObra').html(''); + } + });"; + + $obSpnListaObra = new Span; + $obSpnListaObra->setId('spnListaObra'); + $obFormulario->addSpan( $obSpnListaObra ); + + if($stAcao = 'alterar') { + $stJs.= "jq(document).ready(function(){ montaParametrosGET('montaObra', 'inCodNatureza,inCodBem'); });"; + } +} + + //se a acao for "lote", demonstra os campos no formulário if ($stAcao == 'lote') { $obFormulario->addTitulo( 'Lote' ); @@ -946,10 +996,11 @@ if ($stAcao == 'incluir') { if ($rsReavaliacao->getCampo('cod_reavaliacao') != '') { $jsOnLoad .= "montaParametrosGET( 'montaListaReavaliacoes', 'inCodBem' );"; } - $jsOnLoad .="montaParametrosGET('MontaUnidade');"; + $jsOnLoad .= "montaParametrosGET('MontaUnidade');"; $jsOnLoad .= "montaParametrosGET( 'montaDepreciacao', 'stAcao,boDepreciavel,inVlBem,flDepreciacaoAcelerada,inVlQuotaDepreciacaoAnual,inVlAtualizadoDepreciacao,inVlDepreciacaoAcumulada,inPlanoContaAnalitica,stNomePlanoConta,inCodBem' );montaParametrosGET( 'montaDepreciacaoAcelerada', 'boDepreciacaoAcelerada,flDepreciacaoAcelerada' );"; } -include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; -?> +SistemaLegado::executaFrameOculto($stJs); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterConsultarBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterConsultarBem.php index be4a178..f0f9523 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterConsultarBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterConsultarBem.php @@ -34,7 +34,7 @@ * Casos de uso: uc-03.01.06 - $Id: FMManterConsultarBem.php 60788 2014-11-17 12:47:59Z silvia $ + $Id: FMManterConsultarBem.php 61741 2015-02-27 19:14:33Z luciana $ */ @@ -45,6 +45,7 @@ include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioEspecieAtributo.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemAtributoEspecie.class.php"; include_once CAM_GA_ADM_NEGOCIO."RCadastroDinamico.class.php"; include_once CAM_FW_HTML."MontaAtributos.class.php"; +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemProcesso.class.php"; $stPrograma = "ManterConsultarBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -63,6 +64,10 @@ $obTPatrimonioBem = new TPatrimonioBem(); $obTPatrimonioBem->setDado( 'cod_bem', $_REQUEST['inCodBem'] ); $obTPatrimonioBem->recuperaRelacionamentoAnalitico( $rsBem ); +$obTPatrimonioBemProcesso = new TPatrimonioBemProcesso(); +$obTPatrimonioBemProcesso->setDado( 'cod_bem', $_REQUEST['inCodBem'] ); +$obTPatrimonioBemProcesso->recuperaPorChave( $rsBemProcesso ); + //cria um novo formulario $obForm = new Form; $obForm->setAction ($pgList); @@ -102,6 +107,12 @@ $obLblDescricaoBem = new Label(); $obLblDescricaoBem->setRotulo( 'Descrição' ); $obLblDescricaoBem->setValue( $rsBem->getCampo( 'descricao' ) ); +//label para o detalhamento do processo administrativo +$obProcessoLicitatorio = new Label(); +$obProcessoLicitatorio->setId( 'stProcesso' ); +$obProcessoLicitatorio->setValue( str_pad($rsBemProcesso->getCampo('cod_processo')."/".$rsBemProcesso->getCampo('ano_exercicio'),10,'0',STR_PAD_LEFT)); +$obProcessoLicitatorio->setRotulo( 'Processo Administrativo' ); + //label para a detalhamento do bem $obLblDetalhamentoBem = new Label(); $obLblDetalhamentoBem->setRotulo( 'Detalhamento' ); @@ -294,6 +305,7 @@ $obFormulario->addComponente( $obLblEspecie ); $obFormulario->addTitulo ( 'Informações Básicas' ); $obFormulario->addComponente( $obLblDescricaoBem ); +$obFormulario->addComponente( $obProcessoLicitatorio ); $obFormulario->addComponente( $obLblDetalhamentoBem ); $obFormulario->addComponente( $obLblFornecedor ); $obFormulario->addComponente( $obLblValorBem ); diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php index 9672297..1c644a2 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php @@ -32,7 +32,7 @@ * @package URBEM * @subpackage - $Id: FMManterTransferirBem.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterTransferirBem.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-03.01.06 */ @@ -40,15 +40,15 @@ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/componentes/Table/TableTree.class.php'; -include_once( CAM_GP_PAT_COMPONENTES."IPopUpBem.class.php"); +include_once CAM_GP_PAT_COMPONENTES."IPopUpBem.class.php"; include_once CAM_GA_ORGAN_COMPONENTES."IMontaOrganograma.class.php"; include_once CAM_GA_ORGAN_COMPONENTES."IMontaOrganogramaLocal.class.php"; - -include_once( CAM_GA_ADM_MAPEAMENTO."TLocal.class.php" ); +include_once CAM_GA_ORGAN_MAPEAMENTO."TOrganogramaOrganograma.class.php"; +include_once CAM_GA_ADM_MAPEAMENTO."TLocal.class.php" ; include_once CAM_GA_ORGAN_MAPEAMENTO."TOrganogramaLocal.class.php"; -include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioBem.class.php" ); -include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioSituacaoBem.class.php" ); +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioBem.class.php" ; +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioSituacaoBem.class.php"; $stPrograma = "ManterTransferirBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -58,7 +58,18 @@ $pgProc = "PR".$stPrograma.".php"; $pgOcul = "OC".$stPrograma.".php"; $pgJs = "JS".$stPrograma.".js"; -$stAcao = $_POST["stAcao"] ? $_POST["stAcao"] : $_GET["stAcao"]; +$stAcao = $request->get("stAcao"); + +# Recupera o Organograma Ativo no sistema. +$obTOrganogramaOrganograma = new TOrganogramaOrganograma; +$obTOrganogramaOrganograma->setDado('ativo', true); +$obTOrganogramaOrganograma->recuperaOrganogramasAtivo($rsOrganogramaAtivo); + +$inCodOrganogramaAtivo = $rsOrganogramaAtivo->getCampo('cod_organograma'); + +$obHdnOrganogramaAtivo = new Hidden; +$obHdnOrganogramaAtivo->setName ("inCodOrganogramaAtivo" ); +$obHdnOrganogramaAtivo->setValue($inCodOrganogramaAtivo); include_once( $pgJs ); @@ -99,10 +110,24 @@ $obSpnBem = new Span(); $obSpnBem->setId( 'spnBem' ); //recupera bens para a localizacao -$obTPatrimonioBem = new TPatrimonioBem(); -$stFiltro = " - WHERE historico_bem.cod_orgao = ".$_REQUEST['hdnUltimoOrgaoSelecionado']." - AND historico_bem.cod_local = ".$_REQUEST['inCodLocal']." "; +$obTPatrimonioBem = new TPatrimonioBem; + +$stFiltro = " WHERE 1=1 "; + +if (!empty($_REQUEST['hdnUltimoOrgaoSelecionado'])) { + $stFiltro .= " + AND historico_bem.cod_orgao = ".$_REQUEST['hdnUltimoOrgaoSelecionado']." + AND historico_bem.cod_local = ".$_REQUEST['inCodLocal']." "; + +} else { + $stMensagem = "Selecione o Organograma"; + SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId()."&stAcao=".$stAcao,$stMensagem,"erro","aviso", Sessao::getId(), "../"); +} + +if (!empty($_REQUEST['inNumResponsavelAtual'])){ + $stFiltro .= " AND bem_responsavel.numcgm = ".$_REQUEST['inNumResponsavelAtual']; +} + $obTPatrimonioBem->recuperaRelacionamentoTransferencia( $rsBens, $stFiltro,' ORDER BY cod_bem' ); $obLista = new Lista; @@ -222,7 +247,7 @@ $obLblIMontaOrganograma->setComponenteSomenteLeitura(true); $obLblIMontaOrganograma->setHiddenInformacoes(false); //instancia o componenete IMontaOrganograma -$obIMontaOrganograma = new IMontaOrganograma(true); +$obIMontaOrganograma = new IMontaOrganograma(false); $obIMontaOrganograma->setCodOrgao($codOrgao); $obIMontaOrganograma->setRotuloComboOrganograma('Organograma Destino'); $obIMontaOrganograma->setCadastroOrganograma(true); @@ -254,7 +279,7 @@ $obIPopUpCGMResponsavel->setName ( 'stNomResponsavel' ); $obIPopUpCGMResponsavel->setId ( 'stNomResponsavel' ); $obIPopUpCGMResponsavel->obCampoCod->setName ( 'inCodResponsavel' ); $obIPopUpCGMResponsavel->obCampoCod->setId ( 'inCodResponsavel' ); -$obIPopUpCGMResponsavel->setNull ( true ); +$obIPopUpCGMResponsavel->setNull ( false ); //Gerar Termo $obCheckBoxEmitirTermo = new CheckBox; @@ -280,6 +305,7 @@ $obFormulario->addForm ( $obForm ); $obFormulario->addHidden ( $obHdnAcao ); $obFormulario->addHidden ( $obHdnCtrl ); $obFormulario->addHidden ( $obHdnLocalOrigem ); +$obFormulario->addHidden ( $obHdnOrganogramaAtivo ); $obFormulario->addTitulo( 'Localização de Origem' ); $obLblIMontaOrganograma->geraFormulario( $obFormulario ); diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/OCManterBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/OCManterBem.php index c626d24..b4e34ca 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/OCManterBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/OCManterBem.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - * $Id: OCManterBem.php 60907 2014-11-24 15:02:38Z silvia $ + * $Id: OCManterBem.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -1089,6 +1089,40 @@ case 'montaListaDepreciacoes': } break; + + case "montaObra": + include_once TTGO.'TTGOObras.class.php'; + include_once TTGO.'TTGOPatrimonioBemObra.class.php'; + + $obTTGOObras = new TTGOObras; + $obTTGOObras->recuperaTodos($rsObra); + + $obCmbObra = new Select; + $obCmbObra->setTitle ( "Selecione a Obra" ); + $obCmbObra->setName ( "inCodObra" ); + $obCmbObra->setId ( "inCodObra" ); + $obCmbObra->setRotulo ( "Bens imóveis / Obra" ); + $obCmbObra->addOption ( '', 'Selecione' ); + $obCmbObra->setCampoId ( "[ano_obra]|[cod_obra]" ); + $obCmbObra->setCampoDesc ( "[ano_obra] - [cod_obra]" ); + $obCmbObra->preencheCombo( $rsObra ); + + if(isset($_REQUEST['inCodBem'])) { + $obTTGOPatrimonioBemObra = new TTGOPatrimonioBemObra; + $obTTGOPatrimonioBemObra->setDado('cod_bem', $_REQUEST['inCodBem']); + $obTTGOPatrimonioBemObra->recuperaPorChave($rsPatrimonioBemObra); + + $obCmbObra->setValue($rsPatrimonioBemObra->getCampo('ano_obra').'|'.$rsPatrimonioBemObra->getCampo('cod_obra')); + } + + $obFormulario = new Formulario; + $obFormulario->addTitulo ( 'Obra' ); + $obFormulario->addComponente( $obCmbObra ); + $obFormulario->montaInnerHTML(); + $stHtml = $obFormulario->getHTML(); + + $stJs .= "document.getElementById('spnListaObra').innerHTML = '".$stHtml."'; \n"; + break; } /** diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRDepreciacaoAutomatica.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRDepreciacaoAutomatica.php index 6cef6c3..2c9246d 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRDepreciacaoAutomatica.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRDepreciacaoAutomatica.php @@ -34,6 +34,8 @@ include_once ( CAM_GP_PAT_MAPEAMENTO."TPatrimonioDepreciacaoAnulada.class.php" $stProg = 'DepreciacaoAutomatica'; $pgFilt = 'FL'.$stProg.'.php'; +SistemaLegado::BloqueiaFrames(true,true); + $boTransacao = new Transacao; $obErro = new Erro; $obTContabilidadeLancamentoDepreciacao = new TContabilidadeLancamentoDepreciacao(); @@ -52,7 +54,7 @@ switch ($stAcao) { $stFiltroDepreciacao = "\n WHERE competencia = '".$inMesCompetenciaFiltro."'"; $obErro = $obTPatrimonioDepreciacao->recuperaTodos($rsPatrimonioDepreciacao, $stFiltroDepreciacao, " ORDER BY cod_depreciacao DESC "); - + $obErro = $obTPatrimonioDepreciacao->recuperaMaxCompetenciaDepreciada($rsMaxCompetenciaDepreciada); $obErro = $obTPatrimonioDepreciacao->recuperaMaxCodDepreciacao($rsMaxDepreciacao, $stFiltroDepreciacao); $obErro = $obTPatrimonioDepreciacaoAnulada->recuperaMaxCodDepreciacaoAnulada($rsMaxAnulada, $stFiltroDepreciacao); @@ -85,29 +87,21 @@ switch ($stAcao) { $obErro->setDescricao("Deve anular última competência depreciada - ".$rsMaxCompetenciaDepreciada->getCampo('max_competencia_formatada')); } else { - $obTPatrimonioDepreciacaoAnulada = new TPatrimonioDepreciacaoAnulada(); - - foreach ($rsPatrimonioDepreciacao->getElementos() as $arDepreciacao) { - $obTPatrimonioDepreciacaoAnulada->setDado("cod_depreciacao" , $arDepreciacao["cod_depreciacao"]); - $obTPatrimonioDepreciacaoAnulada->setDado("cod_bem" , $arDepreciacao["cod_bem"] ); - $obTPatrimonioDepreciacaoAnulada->setDado("timestamp" , $arDepreciacao["timestamp"] ); - $obTPatrimonioDepreciacaoAnulada->setDado("timestamp_anulacao" , date('Y-m-d G:i:s') ); - $obTPatrimonioDepreciacaoAnulada->setDado("motivo" , $request->get("stMotivo") ); - - $obTPatrimonioDepreciacaoAnulada->RecuperaPorChave($rsDepreciacaoAnulada); - - if($rsDepreciacaoAnulada->getNumLinhas() <= 0){ - $obErro = $obTPatrimonioDepreciacaoAnulada->inclusao($boTransacao); - } - } + //SistemaLegado::BloqueiaFrames(true,true); + $obTPatrimonioDepreciacaoAnulada = new TPatrimonioDepreciacaoAnulada(); + $stParametros = "'".$inMesCompetenciaFiltro."' ,"; + $stParametros .= '\''.($_REQUEST['stMotivo'] ? $_REQUEST['stMotivo'] : '').'\''; + + $obErro = $obTPatrimonioDepreciacaoAnulada->executaFuncao($stParametros, $boTransacao); + } if (!$obErro->ocorreu()) { - SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId()."&stAcao=".$stAcao,"Bens anulados com sucesso até a competência: ".str_pad($_REQUEST['inCompetencia'],2,'0',STR_PAD_LEFT).'/'.$_REQUEST['inExercicio'],"$stAcao","aviso", Sessao::getId(), "../"); + SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId()."&stAcao=".$stAcao,"Bens anulados com sucesso até a competência: ".str_pad($_REQUEST['inCompetencia'],2,'0',STR_PAD_LEFT).'/'.$_REQUEST['inExercicio'],"$stAcao","aviso", Sessao::getId(), "../"); } else { SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); } - + } else { SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); } @@ -149,7 +143,7 @@ switch ($stAcao) { $obErro->setDescricao("A competência selecionada não pode ser maior que a atual do sistema!"); } else { - $obFPAtrimonioDepreciacaoAutomatica = new FPatrimonioDepreciacaoAutomatica; + $obFPAtrimonioDepreciacaoAutomatica = new FPatrimonioDepreciacaoAutomatica; $stParametros = '\''.$_REQUEST['inExercicio'].'\','; $stParametros .= '\''.str_pad($_REQUEST['inCompetencia'],2,'0',STR_PAD_LEFT).'\','; @@ -174,4 +168,6 @@ switch ($stAcao) { break; } +SistemaLegado::LiberaFrames(true,true); + ?> \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php index 7873180..7fb775a 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php @@ -26,7 +26,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - * $Id: PRManterBem.php 60907 2014-11-24 15:02:38Z silvia $ + * $Id: PRManterBem.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso: uc-03.01.06 */ @@ -53,7 +53,11 @@ include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioHistoricoBem.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioManutencao.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioManutencaoPaga.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioGrupoPlanoDepreciacao.class.php"; +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioDepreciacaoAnulada.class.php"; include_once CAM_GPC_TCEAL_MAPEAMENTO.'TTCEALBemCompradoTipoDocumentoFiscal.class.php'; +include_once TTGO.'TTGOPatrimonioBemObra.class.php'; +include_once(CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemProcesso.class.php"); + $stPrograma = "ManterBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -80,6 +84,7 @@ $obTAdministracaoConfiguracao = new TAdministracaoConfiguracao; $obTPatrimonioBemMarca = new TPatrimonioBemMarca(); $obTPatrimonioInventarioHistoricoBem = new TPatrimonioInventarioHistoricoBem(); $obTPatrimonioBemPlanoDepreciacao = new TPatrimonioBemPlanoDepreciacao(); +$obTPatrimonioBemProcesso = new TPatrimonioBemProcesso(); Sessao::setTrataExcecao(true); Sessao::getTransacao()->setMapeamento( $obTPatrimonioBem ); @@ -212,6 +217,15 @@ switch ($stAcao) { $inCodContaDepreciacao = $_REQUEST['inCodContaDepreciacao']; $inExercicio = Sessao::getExercicio(); + if (!empty($_REQUEST['stChaveProcesso'])) { + $arProcesso = array(); + $arProcesso = explode("/", $_REQUEST['stChaveProcesso']); + $inCodProcesso = $arProcesso[0]; + $stAnoProcesso = $arProcesso[1]; + } else { + $arProcesso = ""; + } + if ($boDepreciavel === 'true') { $obTPatrimonioBem->setDado( 'depreciavel', true); $obTPatrimonioBem->setDado( 'quota_depreciacao_anual', $_REQUEST['flQuotaDepreciacaoAnual'] ); @@ -232,6 +246,13 @@ switch ($stAcao) { $obTPatrimonioBem->inclusao(); + if(!empty($_REQUEST['stChaveProcesso'])){ + $obTPatrimonioBemProcesso->setDado('cod_bem', $inCodBem); + $obTPatrimonioBemProcesso->setDado('ano_exercicio', $stAnoProcesso); + $obTPatrimonioBemProcesso->setDado('cod_processo', $inCodProcesso); + $obTPatrimonioBemProcesso->inclusao(); + } + if(!empty($inCodContaDepreciacao)){ $obTPatrimonioBemPlanoDepreciacao->setDado( 'cod_bem' , $inCodBem ); $obTPatrimonioBemPlanoDepreciacao->setDado( 'exercicio', $inExercicio); @@ -376,7 +397,16 @@ switch ($stAcao) { if ($boDepreciavel == true && ($_REQUEST['flQuotaDepreciacaoAnual'] == "0.00" || empty($_REQUEST['flQuotaDepreciacaoAnual'])) && $rsGrupo->getCampo('depreciacao') == '0.00') { $stMsg .= ". O bem não pode ser depreciado pois não existem quotas definidas."; } - + + if($_REQUEST['inCodObra'] != '') { + $inCodObra = explode('|', $_REQUEST['inCodObra']); + $obTTGOPatrimonioBemObra = new TTGOPatrimonioBemObra; + $obTTGOPatrimonioBemObra->setDado('cod_bem' , $inCodBem); + $obTTGOPatrimonioBemObra->setDado('ano_obra' , $inCodObra[0]); + $obTTGOPatrimonioBemObra->setDado('cod_obra' , $inCodObra[1]); + $obTTGOPatrimonioBemObra->inclusao(); + } + $stMensagem = "Incluir Bem concluído com sucesso! ($stMsg)"; $stJs .= "jQuery('#stNumeroPlaca', window.parent.frames['telaPrincipal'].document).val('".$numeroPlaca."');"; @@ -489,6 +519,15 @@ switch ($stAcao) { $inCodContaDepreciacao = $_REQUEST['inCodContaDepreciacao']; $inExercicio = Sessao::getExercicio(); + if (!empty($_REQUEST['stChaveProcesso'])) { + $arProcesso = array(); + $arProcesso = explode("/", $_REQUEST['stChaveProcesso']); + $inCodProcesso = $arProcesso[0]; + $stAnoProcesso = $arProcesso[1]; + } else { + $arProcesso = ""; + } + if ($boDepreciavel === 'true') { if (!empty($inCodPlano)) { @@ -545,7 +584,51 @@ switch ($stAcao) { //verifica se o numero da placa já existe $stFiltro = " WHERE num_placa = '".$_REQUEST['stNumeroPlaca']."' AND cod_bem <> ".$_REQUEST['inCodBem']; $obTPatrimonioBem->recuperaTodos($rsBem, $stFiltro); - + + $obTPatrimonioBemPlanoDepreciacao->setDado( 'cod_bem' , $inCodBem ); + $obTPatrimonioBemPlanoDepreciacao->setDado( 'exercicio' , $inExercicio); + $obTPatrimonioBemPlanoDepreciacao->recuperaBemPlanoDepreciacao( $rsBemPlanoDepreciacao ); + + $obTPatrimonioGrupo = new TPatrimonioGrupo(); + $obTPatrimonioGrupo->setDado('cod_bem' , $inCodBem); + $obTPatrimonioGrupo->recuperaGrupoPlanoDepreciacao( $rsGrupoPlanoDepreciacao ); + + if(!empty($inCodContaDepreciacao)){ + + if (($rsBemPlanoDepreciacao->getNumLinhas() >= 1 && $rsBemPlanoDepreciacao->getCampo("cod_plano") != $inCodContaDepreciacao ) + || ($rsGrupoPlanoDepreciacao->getNumLinhas() >= 1 && $rsGrupoPlanoDepreciacao->getCampo("cod_plano") != $inCodContaDepreciacao)) { + $stMensagem = "Já existem depreciações lançadas para este bem. Anule-as para alterar a Conta Contábil de Depreciação."; + } else { + $obTPatrimonioBemPlanoDepreciacao->setDado( 'cod_plano' , $inCodContaDepreciacao ); + $obTPatrimonioBemPlanoDepreciacao->inclusao(); + } + + }else{ + + if ($rsBemPlanoDepreciacao->getNumLinhas() >= 1 || $rsGrupoPlanoDepreciacao->getNumLinhas() >= 1 ) { + $stMensagem = "Já existem depreciações lançadas para este bem. Anule-as para alterar a Conta Contábil de Depreciação."; + } else { + + $obTPatrimonioDepreciacaoAnulada = new TPatrimonioDepreciacaoAnulada(); + $obTPatrimonioDepreciacao->recuperaTodos($rsBemDepreciado, ' WHERE cod_bem = '.$inCodBem.' ' ); + + while ( !$rsBemDepreciado->eof() ) { + + $obTPatrimonioDepreciacaoAnulada->setDado( 'cod_depreciacao', $rsBemDepreciado->getCampo('cod_depreciacao')); + $obTPatrimonioDepreciacaoAnulada->setDado( 'cod_bem', $inCodBem ); + $obTPatrimonioDepreciacaoAnulada->exclusao(); + + $obTPatrimonioDepreciacao->setDado( 'cod_depreciacao', $rsBemDepreciado->getCampo('cod_depreciacao')); + $obTPatrimonioDepreciacao->setDado( 'cod_bem', $inCodBem ); + $obTPatrimonioDepreciacao->exclusao(); + + $rsBemDepreciado->proximo(); + } + + $obTPatrimonioBemPlanoDepreciacao->exclusao(); + } + } + //verifica a integridade dos valores if ($_REQUEST['inValorBem'] == '0,00') { $stMensagem = 'Valor do bem inválido'; @@ -604,24 +687,6 @@ switch ($stAcao) { if (!$stMensagem) { - $obTPatrimonioBemPlanoDepreciacao->setDado( 'cod_bem' , $inCodBem ); - $obTPatrimonioBemPlanoDepreciacao->setDado( 'exercicio' , $inExercicio); - if(!empty($inCodContaDepreciacao)){ - $obTPatrimonioBemPlanoDepreciacao->setDado( 'cod_plano' , $inCodContaDepreciacao ); - $obTPatrimonioBemPlanoDepreciacao->inclusao(); - }else{ - $obTPatrimonioDepreciacao = new TPatrimonioDepreciacao; - $obTPatrimonioDepreciacao->recuperaTodos($rsBemDepreciado, ' WHERE cod_bem = '.$inCodBem.' ' ); - while ( !$rsBemDepreciado->eof() ) { - $obTPatrimonioDepreciacao->setDado( 'cod_depreciacao', $rsBemDepreciado->getCampo('cod_depreciacao')); - $obTPatrimonioDepreciacao->setDado( 'cod_bem', $inCodBem ); - $obTPatrimonioDepreciacao->exclusao(); - $rsBemDepreciado->proximo(); - } - - $obTPatrimonioBemPlanoDepreciacao->exclusao(); - } - //altera a table patrimonio.bem $obTPatrimonioBem->setDado( 'cod_bem', $_REQUEST['inCodBem'] ); $obTPatrimonioBem->setDado( 'cod_natureza', $_REQUEST['inCodNatureza'] ); @@ -636,10 +701,13 @@ switch ($stAcao) { $obTPatrimonioBem->setDado( 'dt_depreciacao', $_REQUEST['dtDepreciacao'] ); $obTPatrimonioBem->setDado( 'dt_garantia', $_REQUEST['dtVencimento'] ); $obTPatrimonioBem->setDado( 'vl_bem', str_replace(',','.',str_replace('.','',$_REQUEST['inValorBem'])) ); - if ($_REQUEST['inValorDepreciacao'] != '') + + if ($_REQUEST['inValorDepreciacao'] != '') { $obTPatrimonioBem->setDado( 'vl_depreciacao', str_replace(',','.',str_replace('.','',$_REQUEST['inValorDepreciacao'])) ); - else + } else { $obTPatrimonioBem->setDado( 'vl_depreciacao', 0.00); + } + $obTPatrimonioBem->setDado( 'identificacao', ( $_REQUEST['stPlacaIdentificacao'] == 'sim' ) ? true : false ); if ($_REQUEST['stPlacaIdentificacao'] == 'sim') { @@ -660,6 +728,19 @@ switch ($stAcao) { } $obTPatrimonioBem->alteracao(); + + if (!empty($_REQUEST['stChaveProcesso'])) { + $obTPatrimonioBemProcesso->setDado('cod_bem', $inCodBem); + $obTPatrimonioBemProcesso->setDado('ano_exercicio', $stAnoProcesso); + $obTPatrimonioBemProcesso->setDado('cod_processo', $inCodProcesso); + $obTPatrimonioBemProcesso->recuperaPorChave($rsProcesso); + + if ($rsProcesso->getNumLinhas > 0) { + $obTPatrimonioBemProcesso->alteracao(); + } else { + $obTPatrimonioBemProcesso->inclusao(); + } + } $obTPatrimonioBemComprado->recuperaTodos($rsBemComprado, ' WHERE cod_bem = '.$_REQUEST['inCodBem'].' ' ); if ( $rsBemComprado->getNumLinhas() > 0) { @@ -809,6 +890,24 @@ switch ($stAcao) { $stMsg .= ". O bem não pode ser depreciado pois não existem quotas definidas."; } + $obTTGOPatrimonioBemObra = new TTGOPatrimonioBemObra; + $obTTGOPatrimonioBemObra->setDado('cod_bem', $_REQUEST['inCodBem']); + + $obTTGOPatrimonioBemObra->recuperaPorChave($rsBemObra); + + if( $rsBemObra->getNumLinhas() > 0) { + $obTTGOPatrimonioBemObra->exclusao(); + } + + if($_REQUEST['inCodObra'] != '') { + $inCodObra = explode('|', $_REQUEST['inCodObra']); + $obTTGOPatrimonioBemObra = new TTGOPatrimonioBemObra; + $obTTGOPatrimonioBemObra->setDado('cod_bem' , $_REQUEST['inCodBem']); + $obTTGOPatrimonioBemObra->setDado('ano_obra' , $inCodObra[0]); + $obTTGOPatrimonioBemObra->setDado('cod_obra' , $inCodObra[1]); + $obTTGOPatrimonioBemObra->inclusao(); + } + foreach ($_POST as $stKey => $stValue) { if (strstr( $stKey, 'Atributo_' ) AND $stValue != '' ) { $arAtributo = explode( '_', $stKey ); @@ -934,6 +1033,13 @@ switch ($stAcao) { $rsBemPlanoAnalitica->proximo(); } + $obTTGOPatrimonioBemObra = new TTGOPatrimonioBemObra; + $obTTGOPatrimonioBemObra->setDado('cod_bem', $_REQUEST['inCodBem']); + $obTTGOPatrimonioBemObra->exclusao(); + + $obTPatrimonioBemProcesso->setDado('cod_bem', $inCodBem); + $obTPatrimonioBemProcesso->exclusao(); + $obTPatrimonioBem->setDado( 'cod_bem', $inCodBem ); $obTPatrimonioBem->recuperaPorChave( $rsBem ); $obTPatrimonioBem->exclusao(); @@ -944,4 +1050,3 @@ switch ($stAcao) { } Sessao::encerraExcecao(); -?> diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterTransferirBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterTransferirBem.php index b85b031..993e652 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterTransferirBem.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterTransferirBem.php @@ -32,16 +32,16 @@ * @package URBEM * @subpackage - $Id: PRManterTransferirBem.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: PRManterTransferirBem.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso: uc-03.01.06 */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; -include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioHistoricoBem.class.php" ); -include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioBem.class.php" ); -include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemResponsavel.class.php" ); +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioHistoricoBem.class.php"; +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioBem.class.php"; +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemResponsavel.class.php"; $stPrograma = "ManterTransferirBem"; $pgFilt = "FL".$stPrograma.".php"; @@ -51,7 +51,7 @@ $pgProc = "PR".$stPrograma.".php"; $pgOcul = "OC".$stPrograma.".php"; $pgJs = "JS".$stPrograma.".js"; -$stAcao = $_POST["stAcao"] ? $_POST["stAcao"] : $_GET["stAcao"]; +$stAcao = $request->get("stAcao"); $obTPatrimonioHistoricoBem = new TPatrimonioHistoricoBem(); $obTPatrimonioBem = new TPatrimonioBem(); @@ -62,6 +62,8 @@ Sessao::getTransacao()->setMapeamento( $obTPatrimonioHistoricoBem );; switch ($stAcao) { case 'transferir' : + $stMensagem = ""; + //verifica se foi incluido pelo menos 1 item $boTransferir = false; foreach ($_POST as $stKey=>$stValue) { @@ -73,62 +75,61 @@ switch ($stAcao) { if (!$boTransferir) { $stMensagem = 'É necessário informar pelo menos 1 item.'; } + //transfere todos os itens - if (!$stMensagem) { + if (empty($stMensagem)) { $arLocalizacao = explode('/',$_REQUEST['stCodLocalizacao']); $obTPatrimonioHistoricoBem->setDado( 'cod_local', $_REQUEST['inLocalDestino'] ); $obTPatrimonioHistoricoBem->setDado( 'cod_orgao', $_REQUEST['hdnUltimoOrgaoSelecionado'] ); //$obTPatrimonioHistoricoBem->setDado( 'ano_exercicio', Sessao::getExercicio() ); - foreach ($_POST as $stKey=>$stValue) { + foreach ($_POST as $stKey => $stValue) { if ( strstr( $stKey, 'boTransferir_' ) ) { $arBem = explode('_', $stKey); $obTPatrimonioHistoricoBem->setDado( 'cod_bem', $arBem[1] ); $obTPatrimonioHistoricoBem->recuperaUltimaLocalizacao( $rsLocalizacao ); - $boMesmoOrgao = $rsLocalizacao->getCampo('cod_orgao') == $_REQUEST['hdnUltimoOrgaoSelecionado']; - //$boMesmoAnoExercico = $rsLocalizacao->getCampo('ano_exercicio') == $arCodOrgao[1]; - $boMesmoLocal = $_REQUEST['inLocalOrigem'] == $_REQUEST['inLocalDestino']; + $boMesmoOrgao = ($rsLocalizacao->getCampo('cod_orgao') == $_REQUEST['hdnUltimoOrgaoSelecionado']) ? true : false; - $boMesmaLocalizacao = ($boMesmoOrgao && $boMesmoLocal); + $boMesmoLocal = ($_REQUEST['inLocalOrigem'] == $_REQUEST['inLocalDestino']) ? true : false; - if (!$boMesmaLocalizacao) { - $obTPatrimonioHistoricoBem->setDado( 'cod_situacao', $_REQUEST['slSituacao_'.$arBem[1].'_'.$arBem[2]] ); - $obTPatrimonioHistoricoBem->setDado( 'descricao', $_REQUEST['stNomBem'] ); + $boMesmaLocalizacao = ($boMesmoOrgao && $boMesmoLocal) ? true : false; + if ($boMesmaLocalizacao == false) { + $obTPatrimonioHistoricoBem->setDado( 'cod_situacao', $_REQUEST['slSituacao_'.$arBem[1].'_'.$arBem[2]] ); + $obTPatrimonioHistoricoBem->setDado( 'descricao' , $_REQUEST['stNomBem'] ); $obTPatrimonioHistoricoBem->inclusao(); + } - $inCodResponsavelNovo = $_REQUEST['inCodResponsavel']; - $inCodBem = $arBem[1]; - - $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); - $obTPatrimonioBemResponsavel->setDado('cod_bem', $inCodBem); - $obTPatrimonioBemResponsavel->recuperaUltimoResponsavel($rsUltimoResponsavel); - $inCodResponsavelAtual = $rsUltimoResponsavel->getCampo('numcgm'); - - if ($inCodResponsavelNovo && ($inCodResponsavelAtual != $inCodResponsavelNovo)) { - if ($inCodResponsavelAtual) { - $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); - $obTPatrimonioBemResponsavel->setDado('cod_bem' , $inCodBem ); - $obTPatrimonioBemResponsavel->setDado('timestamp', $rsUltimoResponsavel->getCampo('timestamp') ); - $obTPatrimonioBemResponsavel->setDado('numcgm' , $rsUltimoResponsavel->getCampo('numcgm') ); - $obTPatrimonioBemResponsavel->setDado('dt_fim' , date('d/m/y') ); - $obTPatrimonioBemResponsavel->alteracao(); - } - - $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); - $obTPatrimonioBemResponsavel->setDado('cod_bem' , $inCodBem ); - $obTPatrimonioBemResponsavel->setDado('numcgm' , $inCodResponsavelNovo ); - $obTPatrimonioBemResponsavel->inclusao(); - } - $arBemTransferido[] = $arBem[1]; - } else { - $arBemNaoTransferido[] = $arBem[1]; + $inCodResponsavelNovo = $_REQUEST['inCodResponsavel']; + $inCodBem = $arBem[1]; + + $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); + $obTPatrimonioBemResponsavel->setDado('cod_bem', $inCodBem); + $obTPatrimonioBemResponsavel->recuperaUltimoResponsavel($rsUltimoResponsavel); + $inCodResponsavelAtual = $rsUltimoResponsavel->getCampo('numcgm'); + + if ($inCodResponsavelNovo && ($inCodResponsavelAtual != $inCodResponsavelNovo)) { + if ($inCodResponsavelAtual) { + $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); + $obTPatrimonioBemResponsavel->setDado('cod_bem' , $inCodBem ); + $obTPatrimonioBemResponsavel->setDado('timestamp', $rsUltimoResponsavel->getCampo('timestamp') ); + $obTPatrimonioBemResponsavel->setDado('numcgm' , $rsUltimoResponsavel->getCampo('numcgm') ); + $obTPatrimonioBemResponsavel->setDado('dt_fim' , date('d/m/Y') ); + $obTPatrimonioBemResponsavel->alteracao(); + } + + $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); + $obTPatrimonioBemResponsavel->setDado('cod_bem' , $inCodBem ); + $obTPatrimonioBemResponsavel->setDado('numcgm' , $inCodResponsavelNovo ); + $obTPatrimonioBemResponsavel->inclusao(); } + $arBemTransferido[] = $arBem[1]; } } - if ( count( $arBemNaoTransferido ) > 0 ) { + + if (count($arBemNaoTransferido) > 0) { $stMensagem = 'Os bens '.implode(',',$arBemNaoTransferido).' já estavam na localização de destino.'; } else { $stMensagem = 'Bens '.implode(',',$arBemTransferido); @@ -137,22 +138,36 @@ switch ($stAcao) { $stListaBens = implode(',',$arBemTransferido); if ($_REQUEST['boEmitirTermo'] == 'true') { + $stCaminho = CAM_GP_PAT_INSTANCIAS."relatorio/OCGeratermoResponsabilidade.php"; - //$stCampos = "?".Sessao::getId()."&stAcao=imprimir&stCaminho=".$stCaminho."'"."&inNumResponsavel=".$_REQUEST['inCodResponsavel']."&stNomResponsavel=".$_REQUEST['stNomResponsavel']."&setPDF=true"."&local_origem=".$_REQUEST['inLocalOrigem']."&local_destino=".$_REQUEST['inLocalDestino']."&lista_bens=".$stListaBens; - $stCampos = "?".Sessao::getId()."&stAcao=imprimir&stCaminho=".$stCaminho."&inNumResponsavel=".$_REQUEST['inCodResponsavel']."&stNomResponsavel=".$_REQUEST['stNomResponsavel']."&setPDF=true"."&local_origem=".$_REQUEST['inLocalOrigem']."&local_destino=".$_REQUEST['inLocalDestino']."&lista_bens=".$stListaBens; + $stCampos = "?".Sessao::getId()."&stAcao=imprimir&inNumResponsavel=".$_REQUEST['inCodResponsavel']."&stNomResponsavel=".$_REQUEST['stNomResponsavel']."&setPDF=true"."&local_origem=".$_REQUEST['inLocalOrigem']."&local_destino=".$_REQUEST['inLocalDestino']."&lista_bens=".$stListaBens; + if (isset($_REQUEST['demo_valor'])) { $stCampos .= "&demo_valor=1"; } - $pgRel=$stCaminho.$stCampos; - $stJS = " window.parent.frames['oculto'].location ='".$pgRel."'"; - SistemaLegado::executaFrameOculto($stJS); + + if (isset($_REQUEST['inCodOrganogramaAtivo'])) { + $stCampos .= "&inCodOrganogramaAtivo=".$_REQUEST['inCodOrganogramaAtivo']; + } + + if (isset($_REQUEST['inCodOrganogramaClassificacao'])) { + $stCampos .= "&inCodOrganogramaClassificacao=".$_REQUEST['inCodOrganogramaClassificacao']; + } + + if (isset($_REQUEST['hdninCodOrganograma'])) { + $stCampos .= "&hdninCodOrganograma=".$_REQUEST['hdninCodOrganograma']; + } + + $pgRel = $stCaminho.$stCampos; + + $stJS = " window.parent.frames['oculto'].location = '".$pgRel."'"; } - SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId()."&stAcao=".$stAcao,$stMensagem,"incluir","aviso", Sessao::getId(), "../"); + SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId()."&stAcao=".$stAcao,$stMensagem,"incluir","aviso", Sessao::getId(), "../"); + SistemaLegado::executaFrameOculto($stJS); } else { SistemaLegado::exibeAviso(urlencode( $stMensagem ).'!',"n_incluir","erro"); } - break; } diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/FMManterGrupo.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/FMManterGrupo.php index 3f2eda7..15bddb0 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/FMManterGrupo.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/FMManterGrupo.php @@ -64,7 +64,7 @@ if ($stAcao == 'alterar') { AND grupo.cod_grupo = ".$_REQUEST['inCodGrupo']; $obTPatrimonioGrupo->recuperaGrupo( $rsGrupo, $stFiltro ); - + $inCodNatureza = $rsGrupo->getCampo( 'cod_natureza' ); $inCodPlano = $rsGrupo->getCampo( 'cod_plano' ); $stNomConta = $rsGrupo->getCampo( 'nom_conta' ); @@ -85,7 +85,12 @@ if ($stAcao == 'alterar') { $obHdnCodNatureza = new Hidden(); $obHdnCodNatureza->setName ( 'inCodNatureza' ); $obHdnCodNatureza->setValue ( $rsGrupo->getCampo('cod_natureza') ); - + + //cria um objeto hidden para passar o valor do codigo do plano de depreciação acumulada + $obHdnCodPlanoDeprecicao = new Hidden(); + $obHdnCodPlanoDeprecicao->setName ( 'inCodPlanoDepreciacao' ); + $obHdnCodPlanoDeprecicao->setValue ( $rsGrupo->getCampo( 'cod_plano_depreciacao' ) ); + //cria um label para demonstrar o nome da natureza $obLblNatureza = new Label(); $obLblNatureza->setRotulo( 'Natureza' ); @@ -176,6 +181,7 @@ $obFormulario->addTitulo ( "Dados do Grupo" ); if ($stAcao == 'alterar') { $obFormulario->addHidden( $obHdnCodNatureza ); $obFormulario->addHidden( $obHdnCodGrupo ); + $obFormulario->addHidden( $obHdnCodPlanoDeprecicao ); $obFormulario->addComponente( $obLblNatureza ); $obFormulario->addComponente( $obLblCodGrupo ); } else { diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/PRManterGrupo.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/PRManterGrupo.php index fb9f5b7..e791adb 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/PRManterGrupo.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/PRManterGrupo.php @@ -34,7 +34,7 @@ * Casos de uso: uc-03.01.04 - * $Id: PRManterGrupo.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: PRManterGrupo.php 61683 2015-02-25 14:28:21Z luciana $ */ @@ -43,6 +43,7 @@ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/includ include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioGrupo.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioGrupoPlanoAnalitica.class.php"; include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioGrupoPlanoDepreciacao.class.php"; +include_once CAM_GP_PAT_MAPEAMENTO."TPatrimonioDepreciacao.class.php"; $stPrograma = "ManterGrupo"; $pgFilt = "FL".$stPrograma.".php"; @@ -57,10 +58,13 @@ $stAcao = $request->get('stAcao'); $obTPatrimonioGrupo = new TPatrimonioGrupo(); $obTPatrimonioGrupoPlanoAnalitica = new TPatrimonioGrupoPlanoAnalitica(); $obTPatrimonioGrupoPlanoDepreciacao = new TPatrimonioGrupoPlanoDepreciacao(); +$obTPatrimonioDepreciacao = new TPatrimonioDepreciacao(); Sessao::setTrataExcecao( true ); Sessao::getTransacao()->setMapeamento( $obTPatrimonioGrupo ); Sessao::getTransacao()->setMapeamento( $obTPatrimonioGrupoPlanoAnalitica ); +Sessao::getTransacao()->setMapeamento( $obTPatrimonioGrupoPlanoDepreciacao ); +Sessao::getTransacao()->setMapeamento( $obTPatrimonioDepreciacao ); switch ($stAcao) { case 'incluir': @@ -100,6 +104,7 @@ switch ($stAcao) { $obTPatrimonioGrupoPlanoAnalitica->setDado( 'cod_plano' , $_REQUEST['inCodConta'] ); $obTPatrimonioGrupoPlanoAnalitica->inclusao(); } + if(!empty($_REQUEST['inCodContaDepreciacao'])){ $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_grupo' , $inCodGrupo ); $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_natureza', $_REQUEST['inCodNatureza'] ); @@ -107,7 +112,9 @@ switch ($stAcao) { $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_plano' , $_REQUEST['inCodContaDepreciacao'] ); $obTPatrimonioGrupoPlanoDepreciacao->inclusao(); } + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao,"Grupo - ".$inCodGrupo,"incluir","aviso", Sessao::getId(), "../"); + } else { SistemaLegado::exibeAviso(urlencode('Já existe um grupo com esta descrição para esta natureza'),"n_incluir","erro"); } @@ -124,6 +131,32 @@ switch ($stAcao) { $obTPatrimonioGrupo->recuperaGrupo($rsPatrimonioGrupo, $stFiltro); if ($rsPatrimonioGrupo->getNumLinhas() <= 0) { + + $obTPatrimonioGrupo->setDado('cod_plano_grupo' , $_REQUEST['inCodPlanoDepreciacao']); + $obTPatrimonioGrupo->recuperaGrupoPlanoDepreciacao( $rsGrupoPlanoDepreciacao ); + $obTPatrimonioGrupo->debug(); + + if ($rsGrupoPlanoDepreciacao->getNumLinhas() >= 1 && $rsGrupoPlanoDepreciacao->getCampo("cod_plano") != $_REQUEST['inCodContaDepreciacao']) { + SistemaLegado::exibeAviso(urlencode('Já existem depreciações lançadas para este Grupo. Anule-as para alterar a Conta Contábil de Depreciação.'),"n_incluir","erro"); + Sessao::encerraExcecao(); + die(); + } else { + + //deleta da table grupo_plano_depreciacao + $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_natureza' , $_REQUEST['inCodNatureza'] ); + $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_grupo' , $_REQUEST['inCodGrupo'] ); + $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'exercicio' , Sessao::getExercicio() ); + $obTPatrimonioGrupoPlanoDepreciacao->exclusao(); + + //inclui na table grupo_plano_depreciacao + if(!empty($_REQUEST['inCodContaDepreciacao'])){ + $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'exercicio' , Sessao::getExercicio() ); + $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_natureza' , $_REQUEST['inCodNatureza'] ); + $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_plano' , $_REQUEST['inCodContaDepreciacao'] ); + $obTPatrimonioGrupoPlanoDepreciacao->inclusao(); + } + } + $obTPatrimonioGrupo->setDado( 'cod_natureza', $_REQUEST['inCodNatureza'] ); $obTPatrimonioGrupo->proximoCod( $inCodGrupo ); $obTPatrimonioGrupo->setDado( 'cod_grupo' , $_REQUEST['inCodGrupo'] ); @@ -141,7 +174,6 @@ switch ($stAcao) { } $obTPatrimonioGrupo->setDado( 'depreciacao', $inDepreciacao ); - $obTPatrimonioGrupo->alteracao(); //deleta da table grupo_plano_analitica @@ -157,19 +189,7 @@ switch ($stAcao) { $obTPatrimonioGrupoPlanoAnalitica->setDado( 'cod_plano' , $_REQUEST['inCodConta'] ); $obTPatrimonioGrupoPlanoAnalitica->inclusao(); } - //deleta da table grupo_plano_depreciacao - $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_natureza' , $_REQUEST['inCodNatureza'] ); - $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_grupo' , $_REQUEST['inCodGrupo'] ); - $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'exercicio' , Sessao::getExercicio() ); - $obTPatrimonioGrupoPlanoDepreciacao->exclusao(); - - //inclui na table grupo_plano_depreciacao - if(!empty($_REQUEST['inCodContaDepreciacao'])){ - $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'exercicio' , Sessao::getExercicio() ); - $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_natureza' , $_REQUEST['inCodNatureza'] ); - $obTPatrimonioGrupoPlanoDepreciacao->setDado( 'cod_plano' , $_REQUEST['inCodContaDepreciacao'] ); - $obTPatrimonioGrupoPlanoDepreciacao->inclusao(); - } + SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao,"Grupo - ".$_REQUEST['inCodGrupo'],"alterar","aviso", Sessao::getId(), "../"); } else { SistemaLegado::exibeAviso(urlencode('Já existe um grupo com esta descrição para esta natureza'),"n_incluir","erro"); diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/inventario/OCGeraAberturaEncerramentoInventario.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/inventario/OCGeraAberturaEncerramentoInventario.php index a690b6f..b2d6ea6 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/inventario/OCGeraAberturaEncerramentoInventario.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/inventario/OCGeraAberturaEncerramentoInventario.php @@ -56,7 +56,7 @@ $stDataHoje = SistemaLegado::dataExtenso(date('Y-m-d')); $preview->addParametro("exercicio_inventario" , $_REQUEST['stExercicio']); $preview->addParametro("id_inventario" , $_REQUEST['inIdInventario']); -$preview->addParametro("nomMunicipio" , utf8_encode($nomeMunicipio)); +$preview->addParametro("nomMunicipio" , $nomeMunicipio); $preview->addParametro("dataHoje" , $stDataHoje); $preview->preview(); diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioPatrimonial.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioPatrimonial.php index 785307b..59ac4b0 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioPatrimonial.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioPatrimonial.php @@ -74,7 +74,7 @@ if ($natureza!=0) { $where = "WHERE natureza.cod_natureza =".$natureza; $stNatureza = SistemaLegado::pegaDado('nom_natureza', 'patrimonio.natureza', $where); } -$preview->addParametro( 'nom_natureza', utf8_encode($stNatureza) ); +$preview->addParametro( 'nom_natureza', $stNatureza ); //seta o grupo $grupo = ($request->get('inCodGrupo')!='') ? $request->get('inCodGrupo') : 0; diff --git a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql index 16bf3bd..c6d8804 100644 --- a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql +++ b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql @@ -121,13 +121,7 @@ BEGIN AND depreciado.cod_depreciacao = depreciacao_reavaliacao.cod_depreciacao WHERE bem.cod_bem = '||inCodBem||' - - GROUP BY bem.cod_bem - , depreciado.situacao - , depreciado.vl_depreciado - , reavaliacao.vl_reavaliacao - , competencia_depreciado.min_competencia - , competencia_depreciado.max_competencia + )AS reavaliacao ON reavaliacao.cod_bem = bem.cod_bem @@ -203,13 +197,7 @@ BEGIN ON competencia_depreciado.cod_bem = bem.cod_bem WHERE bem.cod_bem = '||inCodBem||' - - GROUP BY bem.cod_bem - , depreciado.situacao - , depreciado.vl_depreciado - , competencia_depreciado.min_competencia - , competencia_depreciado.max_competencia - + ) AS depreciacao ON depreciacao.cod_bem = bem.cod_bem diff --git a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_anulacao.plsql b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_anulacao.plsql new file mode 100755 index 0000000..39f4852 --- /dev/null +++ b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_anulacao.plsql @@ -0,0 +1,73 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ + +CREATE OR REPLACE FUNCTION patrimonio.fn_depreciacao_anulacao(VARCHAR,VARCHAR) RETURNS SETOF VOID AS $$ +DECLARE + stCompetencia ALIAS FOR $1; + stMotivo ALIAS FOR $2; + + stQuery VARCHAR; + inQuantRegistro INTEGER; + + rcDepreciacao RECORD; +BEGIN + + stQuery = ' SELECT cod_depreciacao + , cod_bem + , TO_CHAR(timestamp,''yyyy-mm-dd hh24:mi:ss.us'') AS timestamp + , vl_depreciado + , TO_CHAR(dt_depreciacao,''dd/mm/yyyy'') AS dt_depreciacao + , competencia + , motivo + , acelerada + , quota_utilizada + FROM patrimonio.depreciacao + + WHERE competencia = '|| quote_literal(stCompetencia) ||' + ORDER BY cod_depreciacao DESC '; + + FOR rcDepreciacao IN EXECUTE stQuery LOOP + + SELECT count(*) + INTO inQuantRegistro + FROM patrimonio.depreciacao_anulada + WHERE cod_depreciacao = rcDepreciacao.cod_depreciacao + AND cod_bem = rcDepreciacao.cod_bem + AND timestamp = TO_TIMESTAMP(rcDepreciacao.timestamp, 'yyyy-mm-dd hh24:mi:ss.us'); + + IF inQuantRegistro <= 0 THEN + + INSERT INTO patrimonio.depreciacao_anulada ( + cod_depreciacao , cod_bem, timestamp, timestamp_anulacao, motivo + )VALUES( + rcDepreciacao.cod_depreciacao, rcDepreciacao.cod_bem, TO_TIMESTAMP(rcDepreciacao.timestamp ,'yyyy-mm-dd hh24:mi:ss.US'), NOW(), stMotivo + ); + + END IF; + + END LOOP; + + RETURN; + +END; +$$ LANGUAGE 'plpgsql'; \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql index ce985a6..31f8a4a 100644 --- a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql +++ b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql @@ -45,12 +45,12 @@ AS $$ DECLARE vlDepreciacaoAnual NUMERIC(14,2); vlValorMinimoDepreciacao NUMERIC(14,2); inCompetencia INTEGER; - inExercicio INTEGER; inCodDepreciacao INTEGER; inCompetenciaDepreciacao INTEGER; inCodBemDepreciacao INTEGER; inUltimoDiaMes INTEGER; inCount INTEGER; + inCodContaAnalitica INTEGER; timestampDepreciacao TIMESTAMP; rcBens RECORD; @@ -83,6 +83,7 @@ arCompetencia := STRING_TO_ARRAY(stCompetencia,','); -- RECUPERA OS BENS QUE POSSUEM PLANO RELACIONADO stQuery := ' SELECT bem.cod_bem + , bem.descricao , COALESCE(reavaliacao.dt_reavaliacao,bem.dt_incorporacao,bem.dt_aquisicao) AS dt_incorporacao , TO_CHAR(COALESCE(reavaliacao.dt_reavaliacao,bem.dt_incorporacao,bem.dt_aquisicao),''YYYYMM'' ) AS competencia_incorporacao , COALESCE(reavaliacao.vl_reavaliacao, bem.vl_bem ) AS vl_bem @@ -92,16 +93,15 @@ stQuery := ' SELECT bem.cod_bem END AS quota_depreciacao_anual , bem.quota_depreciacao_anual_acelerada , bem.depreciacao_acelerada - , bem_plano_depreciacao.timestamp as timestamp_bem_plano - , bem_plano_depreciacao.exercicio as exercicio_bem_plano - , bem_plano_depreciacao.cod_plano as cod_plano_bem + , CASE WHEN bem_plano_depreciacao.cod_plano IS NOT NULL + THEN bem_plano_depreciacao.cod_plano + ELSE grupo_plano_depreciacao.cod_plano + END AS cod_plano , reavaliacao.cod_reavaliacao , reavaliacao.dt_reavaliacao , reavaliacao.vida_util , reavaliacao.motivo - , grupo_plano_depreciacao.cod_plano as cod_plano_grupo - , grupo_plano_depreciacao.exercicio as exercicio_plano_grupo - + FROM patrimonio.bem INNER JOIN patrimonio.especie @@ -119,26 +119,28 @@ stQuery := ' SELECT bem.cod_bem LEFT JOIN patrimonio.grupo_plano_depreciacao ON grupo_plano_depreciacao.cod_grupo = grupo.cod_grupo AND grupo_plano_depreciacao.cod_natureza = grupo.cod_natureza - AND grupo_plano_depreciacao.exercicio = '|| quote_literal(stExercicio) ||' + AND grupo_plano_depreciacao.exercicio = '|| quote_literal(stExercicio) ||' LEFT JOIN ( SELECT cod_bem , MAX(timestamp) AS timestamp , exercicio FROM patrimonio.bem_plano_depreciacao - WHERE bem_plano_depreciacao.exercicio = '|| quote_literal(stExercicio) ||' - GROUP BY cod_bem, exercicio ) AS ultimo_plano - ON bem.cod_bem = ultimo_plano.cod_bem + WHERE bem_plano_depreciacao.exercicio = '|| quote_literal(stExercicio) ||' + GROUP BY cod_bem, exercicio + ) AS ultimo_plano_bem_depreciacao + ON bem.cod_bem = ultimo_plano_bem_depreciacao.cod_bem LEFT JOIN patrimonio.bem_plano_depreciacao - ON ultimo_plano.cod_bem = bem_plano_depreciacao.cod_bem - AND ultimo_plano.timestamp = bem_plano_depreciacao.timestamp - AND ultimo_plano.exercicio = bem_plano_depreciacao.exercicio + ON ultimo_plano_bem_depreciacao.cod_bem = bem_plano_depreciacao.cod_bem + AND ultimo_plano_bem_depreciacao.timestamp = bem_plano_depreciacao.timestamp + AND ultimo_plano_bem_depreciacao.exercicio = bem_plano_depreciacao.exercicio + AND bem_plano_depreciacao.exercicio = '|| quote_literal(stExercicio) ||' LEFT JOIN ( SELECT MAX(cod_reavaliacao) AS cod_reavaliacao , cod_bem FROM patrimonio.reavaliacao GROUP BY cod_bem - ) AS ultima_reavaliacao + ) AS ultima_reavaliacao ON bem.cod_bem = ultima_reavaliacao.cod_bem LEFT JOIN patrimonio.reavaliacao @@ -148,7 +150,9 @@ stQuery := ' SELECT bem.cod_bem WHERE bem.depreciavel = true AND NOT EXISTS ( SELECT 1 FROM patrimonio.bem_baixado - WHERE bem_baixado.cod_bem = bem.cod_bem )'; + WHERE bem_baixado.cod_bem = bem.cod_bem ) + AND grupo_plano_depreciacao.exercicio = '|| quote_literal(stExercicio) ||' + OR bem_plano_depreciacao.exercicio = '|| quote_literal(stExercicio); IF inCodNatureza IS NOT NULL THEN stQuery := stQuery||' AND bem.cod_natureza = '||inCodNatureza; @@ -166,11 +170,33 @@ stQuery := ' SELECT bem.cod_bem stQuery := stQuery||' AND bem.vl_bem >= '||vlValorMinimoDepreciacao; END IF; - FOR rcBens IN EXECUTE stQuery LOOP vlBem := rcBens.vl_bem; + -- Caso o bem não possua um cod_plano configurado alerta o usuario que deve configurar uma especifica para o bem ou para o grupo. + IF (rcBens.cod_plano IS NULL) THEN + RAISE EXCEPTION 'Necessário configurar uma Conta Contábil de Depreciação Acumulada para o grupo ou no próprio bem: % - %', rcBens.cod_bem, rcBens.descricao; + END IF; + + -- Caso não tenha sido configurada um valor de quota de depreciação, alerta ao usuário para configurar + IF (rcBens.quota_depreciacao_anual = 0.00) THEN + RAISE EXCEPTION 'Necessário configurar valor de quota depreciação para o grupo ou no próprio bem: % - %', rcBens.cod_bem, rcBens.descricao; + END IF; + + -- Verifica se o cod_plano do bem, está cadastrado na tabela conta_analitica. Pois após o lançamento de depreciação não é possível alterar a conta contábil. + -- Caso alterar o bem para nenhuma conta contábil, desmarcar a opção de depreciavel. + SELECT INTO + inCodContaAnalitica + cod_conta + FROM contabilidade.plano_analitica + WHERE cod_plano = rcBens.cod_plano + AND exercicio = stExercicio; + + IF inCodContaAnalitica IS NULL THEN + RAISE EXCEPTION 'Conta Contábil de Depreciação Acumulada % do bem % não é analítica ou não está cadastrada no plano de contas.',rcBens.cod_plano, rcBens.cod_bem; + END IF; + -- Calcula o valor da quota, para a primeira inserção e dos proximos meses -- Caso o bem tenha depreciação acelerada, soma junto ao calculo de depreciação. IF (rcBens.depreciacao_acelerada IS TRUE) THEN @@ -202,7 +228,7 @@ FOR rcBens IN EXECUTE stQuery LOOP IF rcDepreciacaoAcumulada.vl_acumulado > '0.00' THEN vlPrimeiraDepreciacao := TRUNC(((rcDepreciacaoAcumulada.vl_atualizado * vlQuotaPrimeira) / 100),2); vlDepreciacaoTmp := TRUNC(((rcDepreciacaoAcumulada.vl_atualizado * vlQuota) / 100),2); - ELSE + ELSE --Calula o valor da primeira depreciação do bem vlPrimeiraDepreciacao := TRUNC(((rcDepreciacaoAcumulada.vl_bem * vlQuotaPrimeira) / 100),2); vlDepreciacaoTmp := TRUNC(((rcDepreciacaoAcumulada.vl_bem * vlQuota) / 100),2); @@ -247,50 +273,6 @@ FOR rcBens IN EXECUTE stQuery LOOP WHERE cod_bem = rcBens.cod_bem AND competencia = stExercicio||LPAD(inCompetencia::VARCHAR,2,'0'); - /* - -- Se encontrar depreciação do bem E não for possível substituir a depreciação, então finaliza - IF FOUND AND stSubstituirDepreciacao = 'false' THEN - RAISE EXCEPTION 'Já existem bens depreciados para a competência!'; - -- Se NÃO encontrar depreciação do bem E for possível substituir a depreciação E a competência atual for menor que a última depreciação, então finaliza - ELSEIF NOT FOUND AND stSubstituirDepreciacao = 'true' AND (stExercicio||LPAD(inCompetencia::VARCHAR,2,'0'))::INT < rcDepreciacaoAcumulada.max_competencia::INT THEN - RAISE EXCEPTION 'A competência selecionada não pode ser menor que a última competência depreciada!'; - ELSE - -- Exclui e substitui os valores em depreciacao, mantendo somente a ultima depreciação de cada competencia, quando sbustituir = true - inUltimoDiaMes = calculaUltimoDiaMes(stExercicio::INTEGER,inCompetencia); - - stQueryDelete := ''; - stQueryDelete := ' - DELETE FROM contabilidade.lancamento_depreciacao - USING patrimonio.depreciacao - WHERE depreciacao.cod_bem = lancamento_depreciacao.cod_bem - AND depreciacao.cod_depreciacao = lancamento_depreciacao.cod_depreciacao - AND depreciacao.timestamp = lancamento_depreciacao.timestamp_depreciacao - AND depreciacao.cod_bem = '||rcBens.cod_bem||' - AND depreciacao.competencia = '|| quote_literal(stExercicio || LPAD(inCompetencia::VARCHAR,2,'0')) ||'; - - DELETE FROM patrimonio.depreciacao_anulada - USING patrimonio.depreciacao - WHERE depreciacao.cod_bem = depreciacao_anulada.cod_bem - AND depreciacao.cod_depreciacao = depreciacao_anulada.cod_depreciacao - AND depreciacao.timestamp = depreciacao_anulada.timestamp - AND depreciacao.cod_bem = '||rcBens.cod_bem||' - AND depreciacao.competencia = '|| quote_literal(stExercicio || LPAD(inCompetencia::VARCHAR,2,'0')) ||'; - - DELETE FROM patrimonio.depreciacao_reavaliacao - USING patrimonio.depreciacao - WHERE depreciacao_reavaliacao.cod_bem = depreciacao.cod_bem - AND depreciacao_reavaliacao.cod_depreciacao = depreciacao.cod_depreciacao - AND depreciacao_reavaliacao.timestamp = depreciacao.timestamp - AND depreciacao.cod_bem = '||rcBens.cod_bem||' - AND depreciacao.competencia = '|| quote_literal(stExercicio || LPAD(inCompetencia::VARCHAR,2,'0')) ||'; - - DELETE FROM patrimonio.depreciacao - WHERE competencia = '|| quote_literal(stExercicio || LPAD(inCompetencia::VARCHAR,2,'0')) ||' - AND cod_bem = '||rcBens.cod_bem || ';'; - EXECUTE stQueryDelete; - END IF; - */ - vlBem := vlBem - vlDepreciacao; timestampDepreciacao := ('now'::text)::timestamp(3); diff --git a/gestaoPatrimonial/fontes/RPT/patrimonio/report/design/termoResponsabilidade.rptdesign b/gestaoPatrimonial/fontes/RPT/patrimonio/report/design/termoResponsabilidade.rptdesign index 678880e..fae3728 100644 --- a/gestaoPatrimonial/fontes/RPT/patrimonio/report/design/termoResponsabilidade.rptdesign +++ b/gestaoPatrimonial/fontes/RPT/patrimonio/report/design/termoResponsabilidade.rptdesign @@ -213,10 +213,8 @@ Desenvolvedor: Henrique Boaventura <henrique.boaventura@cnm.org.br> - org.postgresql.Driver - jdbc:postgresql://172.16.30.34:2345/mariana_1212_2034_stable_8 - urbem - VXJCM20= + org.eclipse.birt.report.data.oda.sampledb.Driver + jdbc:classicmodels:sampledb @@ -420,7 +418,7 @@ if (params['cod_local'] != ""){ } if (params['cod_orgao'] != ''){ - this.queryText += " AND vw_orgao_nivel.orgao_reduzido ILIKE '"+params['cod_orgao']+"'" ; + this.queryText += " AND vw_orgao_nivel.orgao ILIKE '"+params['cod_orgao']+"'" ; } if (params['cod_organograma'] != ''){ @@ -1141,14 +1139,24 @@ this.queryText += " ORDER BY bem.descricao";]]> - - 0.3541666666666667in + + #808080 + solid + 1px all - params["hidden_valor"].value=="" + params["hidden_valor"].value!="" + + + + + + + + 0.3541666666666667in #000000 @@ -1160,12 +1168,6 @@ this.queryText += " ORDER BY bem.descricao";]]> - - - all - params["hidden_valor"].value=="" - - diff --git a/gestaoPatrimonial/fontes/SQL/GP_2036.sql b/gestaoPatrimonial/fontes/SQL/GP_2036.sql new file mode 100644 index 0000000..fb1cce1 --- /dev/null +++ b/gestaoPatrimonial/fontes/SQL/GP_2036.sql @@ -0,0 +1,48 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* +* +* Script de DDL e DML +* +* Versao 2.03.6 +* +* Fabio Bertoldi - 201502127 +* +*/ + +---------------- +-- Ticket #22680 +---------------- + +CREATE TABLE patrimonio.bem_processo ( + cod_bem INTEGER NOT NULL, + ano_exercicio VARCHAR(4) NOT NULL, + cod_processo INTEGER NOT NULL, + CONSTRAINT pk_bem_processo PRIMARY KEY (cod_bem), + CONSTRAINT fk_bem_processo_1 FOREIGN KEY (cod_bem) + REFERENCES patrimonio.bem (cod_bem), + CONSTRAINT fk_bem_processo_2 FOREIGN KEY (cod_processo,ano_exercicio) + REFERENCES sw_processo (cod_processo,ano_exercicio) +); + +GRANT ALL ON patrimonio.bem_processo TO GROUP urbem; diff --git a/gestaoPrestacaoContas/fontes/PHP/SIOPE_SIOPS/instancias/relatorio/OCGeraDespesasSIOPE.php b/gestaoPrestacaoContas/fontes/PHP/SIOPE_SIOPS/instancias/relatorio/OCGeraDespesasSIOPE.php index 85a6081..448c2ef 100644 --- a/gestaoPrestacaoContas/fontes/PHP/SIOPE_SIOPS/instancias/relatorio/OCGeraDespesasSIOPE.php +++ b/gestaoPrestacaoContas/fontes/PHP/SIOPE_SIOPS/instancias/relatorio/OCGeraDespesasSIOPE.php @@ -31,7 +31,7 @@ * Casos de uso : uc-02.01.40 - * $Id: OCGeraDespesasSIOPE.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: OCGeraDespesasSIOPE.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -52,7 +52,7 @@ $preview->addParametro('cod_entidade', implode(',', $_REQUEST['inCodEntidade'])) $preview->addParametro('orgao' , $_REQUEST['inCodOrgao']); $preview->addParametro('recurso', $_REQUEST['inCodRecurso']); -$preview->addParametro('descricao_recurso', utf8_encode($_REQUEST['stDescricaoRecurso'])); +$preview->addParametro('descricao_recurso', $_REQUEST['stDescricaoRecurso']); switch ($_REQUEST['inPeriodicidade']) { case '1': diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo1.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo1.php index ee12d51..97852e6 100755 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo1.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo1.php @@ -31,7 +31,7 @@ * @ignore - * $Id: OCGeraRGFAnexo1.php 61344 2015-01-08 19:03:39Z silvia $ + * $Id: OCGeraRGFAnexo1.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso : uc-06.01.20 */ @@ -81,11 +81,11 @@ $preview->setExportaExcel( true ); $preview->addParametro( 'cod_entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { while ( !$rsEntidade->eof() ) { if ( preg_match("/prefeitura/i", $rsEntidade->getCampo('nom_cgm')) ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); break; } $rsEntidade->proximo(); @@ -277,14 +277,14 @@ $stFiltro = " WHERE sw_cgm.numcgm = ".Sessao::read('numCgm'); $obTAdministracaoUsuario = new TAdministracaoUsuario; $obTAdministracaoUsuario->recuperaRelacionamento($rsUsuario, $stFiltro); -$preview->addParametro( 'unidade_responsavel', utf8_encode($rsUsuario->getCampo('orgao')) ); +$preview->addParametro( 'unidade_responsavel', $rsUsuario->getCampo('orgao') ); //adicionada data de emissão no rodapé do relatório $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); $preview->addParametro( 'tipoAnexo', 'anexo1novo'); ################################################################################################# diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo2.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo2.php index 469cb6d..65f5857 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo2.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo2.php @@ -67,11 +67,11 @@ if ($_REQUEST['stTipoRelatorio'] == "Mes") { $preview->addParametro( 'cod_entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nome_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nome_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { while ( !$rsEntidade->eof() ) { if ( preg_match( "/prefeitura.*/i", $rsEntidade->getCampo('nom_cgm')) ) { - $preview->addParametro( 'nome_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nome_entidade', $rsEntidade->getCampo('nom_cgm') ); break; } $rsEntidade->proximo(); @@ -150,7 +150,7 @@ $dtHoraEmissao = date('H:i'); //necessário codificar os caracteres especias em ascii para o birt interpretar corretamente $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); ################################################################################################# if( !$obErro->ocorreu() ) diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo3.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo3.php index 4fb9cfe..6eb35e3 100755 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo3.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo3.php @@ -33,7 +33,7 @@ * Casos de uso : uc-06.01.22 - $Id: OCGeraRGFAnexo3.php 61167 2014-12-12 14:15:52Z silvia $ + $Id: OCGeraRGFAnexo3.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -66,11 +66,11 @@ $preview->addParametro( 'entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); $preview->addParametro( 'tipo_periodo', $_REQUEST['stTipoRelatorio'] ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { while ( !$rsEntidade->eof() ) { if ( preg_match( "/prefeitura.*/i", $rsEntidade->getCampo('nom_cgm')) ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); break; } $rsEntidade->proximo(); @@ -125,7 +125,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo3novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo4.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo4.php index 002e4f7..29deaa5 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo4.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo4.php @@ -33,7 +33,7 @@ * Casos de uso : uc-06.01.23 - $Id: OCGeraRGFAnexo4.php 61167 2014-12-12 14:15:52Z silvia $ + $Id: OCGeraRGFAnexo4.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -65,7 +65,7 @@ if ( count($_REQUEST['inCodEntidade']) == 1 ) { } else { while ( !$rsEntidade->eof() ) { if ( preg_match( "/prefeitura/i", $rsEntidade->getCampo('nom_cgm')) ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); break; } $rsEntidade->proximo(); @@ -158,7 +158,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo3novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo5.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo5.php index 181e95b..ba0cf65 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo5.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo5.php @@ -75,7 +75,7 @@ $preview->addParametro('cod_entidade', implode(',', $_REQUEST['inCodEntidade'])) $boConfirmaFundo = strpos(strtolower($rsEntidade->getCampo('nom_cgm')), 'fundo'); if (count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); if (preg_match( "/prefeitura/i", $rsEntidade->getCampo('nom_cgm')) || $boConfirmaFundo > 0) { $preview->addParametro( 'poder' , 'Executivo' ); } else { @@ -84,7 +84,7 @@ if (count($_REQUEST['inCodEntidade']) == 1 ) { } else { while (!$rsEntidade->eof()) { if (preg_match( "/prefeitura/i", $rsEntidade->getCampo('nom_cgm')) ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); $preview->addParametro( 'poder' , 'Executivo' ); break; } @@ -96,7 +96,7 @@ switch ($_REQUEST['stTipoRelatorio']) { case 'Mes': $preview->addParametro('periodo', intval($_REQUEST['cmbMensal'])); $numPeriodo = 'Mes'; - $stMesExtenso = utf8_encode(sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMensal']))." de ".$stAno); + $stMesExtenso = sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMensal']))." de ".$stAno; break; case 'Quadrimestre': $preview->addParametro('periodo', $_REQUEST['cmbQuadrimestre']); @@ -192,7 +192,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); $preview->addParametro( 'tipoAnexo', 'anexo5novo'); ################################################################################################# diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo6.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo6.php index 127392d..0b9acc0 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo6.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo6.php @@ -139,7 +139,7 @@ $preview->addParametro( 'entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); $preview->addParametro( 'data_inicio', $stDataInicial ); $preview->addParametro( 'data_fim', $stDataFinal ); $preview->addParametro( 'exercicio', $_REQUEST['stExercicio'] ); -$preview->addParametro( 'intervalo', utf8_encode($stIntervalo) ); +$preview->addParametro( 'intervalo', $stIntervalo ); if (preg_match( "/prefeitura/i", $rsEntidade->getCampo( 'nom_cgm' ) ) || ( count($_REQUEST['inCodEntidade']) > 0 ) ) { $preview->addParametro( 'poder' , 'Executivo' ); @@ -151,7 +151,7 @@ $rsEntidade->setPrimeiroElemento(); while (!$rsEntidade->eof()) { $stNomeEntidade = $rsEntidade->getCampo('nom_cgm'); if (preg_match( "/prefeitura/i", $stNomeEntidade ) || preg_match( "/c[âa]mara/i", $stNomeEntidade )) { - $preview->addParametro('nom_entidade', utf8_encode($stNomeEntidade)); + $preview->addParametro('nom_entidade', $stNomeEntidade); } $rsEntidade->proximo(); } @@ -176,7 +176,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); $preview->addAssinaturas(Sessao::read('assinaturas')); if( !$obErro->ocorreu() ) diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo7.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo7.php index 2fd5716..a8aa9c2 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo7.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo7.php @@ -57,13 +57,13 @@ $preview->setExportaExcel ( true ); if ( count($request->get('inCodEntidade')) == 1 ) { - $preview->addParametro('nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm'))); + $preview->addParametro('nom_entidade', $rsEntidade->getCampo('nom_cgm')); $preview->addParametro('cod_entidade', $_POST['inCodEntidade'][0] ); } else { foreach ($rsEntidade->arElementos as $key => $value) { if (preg_match("/prefeitura/i", $value['nom_cgm'])) { - $preview->addParametro( 'nom_entidade', utf8_encode($value['nom_cgm'])); + $preview->addParametro( 'nom_entidade', $value['nom_cgm']); } } $preview->addParametro( 'cod_entidade', implode(',', $request->get('inCodEntidade') ) ); @@ -140,7 +140,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); ################################################################################################# $preview->addAssinaturas(Sessao::read('assinaturas')); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo1.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo1.php index edd8972..fc1cc50 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo1.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo1.php @@ -33,7 +33,7 @@ * Casos de uso : uc-06.01.01 - $Id: OCGeraRREOAnexo1.php 61203 2014-12-16 10:40:42Z silvia $ + $Id: OCGeraRREOAnexo1.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -72,7 +72,7 @@ if ($stNomeEntidade == '') { } if ( count($_REQUEST['inCodEntidade']) > 0 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($stNomeEntidade) ); + $preview->addParametro( 'nom_entidade', $stNomeEntidade ); } else { $preview->addParametro( 'nom_entidade', '' ); } @@ -88,17 +88,17 @@ if ( preg_match( "/prefeitura/i", $rsEntidade->getCampo( 'nom_cgm' ) ) || ( coun switch ($_REQUEST['stTipoRelatorio']) { case 'Mes': - $preview->addParametro( 'titulo_periodo' , utf8_encode(SistemaLegado::mesExtensoBR($_REQUEST['cmbMes']).' de '.Sessao::getExercicio()) ); + $preview->addParametro( 'titulo_periodo' , SistemaLegado::mesExtensoBR($_REQUEST['cmbMes']).' de '.Sessao::getExercicio() ); $preview->addParametro( 'periodo' , $_REQUEST['cmbMes'] ); $preview->addParametro( 'dt_inicial' , '01/'.$_REQUEST['cmbMes'].'/'.Sessao::getExercicio() ); $preview->addParametro( 'dt_final' , SistemaLegado::retornaUltimoDiaMes($_REQUEST['cmbMes'], Sessao::getExercicio()) ); $preview->addParametro( 'dt_final_restos' , '01/01/'.(Sessao::getExercicio() + 1) ); - $preview->addParametro( 'tipo_periodo' , utf8_encode("Mês") ); - $preview->addParametro( 'tipo_periodo_Maisc', utf8_encode("MÊS") ); + $preview->addParametro( 'tipo_periodo' , "Mês" ); + $preview->addParametro( 'tipo_periodo_Maisc', "MÊS" ); $stNomeArquivo .= $_REQUEST['cmbMes'] . "mes"; break; case 'Bimestre': - $preview->addParametro( 'titulo_periodo', utf8_encode($_REQUEST['cmbBimestre'].'° bimestre de '.Sessao::getExercicio())); + $preview->addParametro( 'titulo_periodo', $_REQUEST['cmbBimestre'].'° bimestre de '.Sessao::getExercicio()); SistemaLegado::periodoInicialFinalBimestre($stDtInicial, $stDtFinal, $_REQUEST['cmbBimestre'], Sessao::getExercicio()); $preview->addParametro( 'periodo' , $_REQUEST['cmbBimestre'] ); @@ -131,7 +131,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo1novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo10.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo10.php index 3ace5bb..7d028ca 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo10.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo10.php @@ -72,7 +72,7 @@ if ($stNomeEntidade == '') { } if ( count($_REQUEST['inCodEntidade']) > 0 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($stNomeEntidade) ); + $preview->addParametro( 'nom_entidade', $stNomeEntidade ); } else { $preview->addParametro( 'nom_entidade', '' ); } @@ -169,7 +169,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); $preview->addParametro( 'dt_inicio' , $stDtInicio ); $preview->addParametro( 'dt_final' , $stDtFinal ); $preview->addAssinaturas(Sessao::read('assinaturas')); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo11.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo11.php index a8ea749..3b51ad6 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo11.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo11.php @@ -69,13 +69,13 @@ $preview->addParametro ( 'entidade', implode(',', $_REQUEST['inCodEntidade'] ) ) $preview->addParametro ( 'exercicio_anterior', (Sessao::getExercicio() - 1)); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $rsEntidade->setPrimeiroElemento(); while ( !$rsEntidade->eof() ) { if (preg_match("/prefeitura/i", $rsEntidade->getCampo( 'nom_cgm' ))) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm'))); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm')); break; } $rsEntidade->proximo(); @@ -97,7 +97,7 @@ if ( preg_match( "/prefeitura/i", $rsEntidade->getCampo( 'nom_cgm' ) ) || ( coun switch ($_REQUEST['stTipoRelatorio']) { case 'Mes': $preview->addParametro( 'periodo', $_REQUEST['cmbMes'] ); - $stMesExtenso = utf8_encode(sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMes']))." de ".Sessao::getExercicio()); + $stMesExtenso = sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMes']))." de ".Sessao::getExercicio(); $preview->addParametro( 'mes_extenso' , $stMesExtenso ); $preview->addParametro( 'peridiocidade', "mes" ); break; @@ -178,7 +178,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo9novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo13.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo13.php index 8f4f515..c22413f 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo13.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo13.php @@ -67,7 +67,7 @@ $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade = " . $preview->addParametro ( 'cod_entidade', $inCodEntidadeRPPS ); -$preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); +$preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); $preview->addAssinaturas(Sessao::read('assinaturas')); #############################Modificações do tce para o novo layout############################## @@ -84,7 +84,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); ################################################################################################# $preview->preview(); \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo14.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo14.php index 0568586..ec4cf49 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo14.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo14.php @@ -86,13 +86,13 @@ $preview->addParametro ( 'cod_entidade', implode(',', $_REQUEST['inCodEntidade'] $preview->addParametro ( 'cod_recurso', $stcodRecurso ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $rsEntidade->setPrimeiroElemento(); while ( !$rsEntidade->eof() ) { if (preg_match("/prefeitura/i", $rsEntidade->getCampo( 'nom_cgm' ))) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm'))); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm')); break; } $rsEntidade->proximo(); @@ -158,7 +158,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo11novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo16.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo16.php index 4bdee5c..18fe8d7 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo16.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo16.php @@ -31,7 +31,7 @@ * Casos de uso: uc-06.01.15 - $Id: OCGeraRREOAnexo16.php 61274 2014-12-29 11:25:46Z luciana $ + $Id: OCGeraRREOAnexo16.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -91,13 +91,13 @@ $preview->addParametro ( 'cod_entidade', implode(',', $_REQUEST['inCodEntidade'] $preview->addParametro ( 'cod_recurso', substr($stCodRecurso,0,-1) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $inCodEntidadePrefeitura = SistemaLegado::pegaDado('valor','administracao.configuracao'," WHERE parametro = 'cod_entidade_prefeitura' AND exercicio = '".Sessao::getExercicio()."' AND cod_modulo = 8 "); $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade = ".$inCodEntidadePrefeitura ); while ( !$rsEntidade->eof() ) { if ( $rsEntidade->getCampo('cod_entidade') == $inCodEntidadePrefeitura ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } $rsEntidade->proximo(); } @@ -124,21 +124,21 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo12novo') { switch ($_REQUEST['stTipoRelatorio']) { case 'Mes': - $preview->addParametro( 'descricaoPeriodo',utf8_encode(SistemaLegado::mesExtensoBR((intval($_REQUEST['cmbMes'])))." de ". Sessao::getExercicio())); - $preview->addParametro( 'periodo_extenso',utf8_encode('Mês')); + $preview->addParametro( 'descricaoPeriodo', SistemaLegado::mesExtensoBR((intval($_REQUEST['cmbMes'])))." de ". Sessao::getExercicio()); + $preview->addParametro( 'periodo_extenso','Mês'); $preview->addParametro( 'periodo' , $_REQUEST['cmbMes'] ); $preview->addParametro( 'data_inicial', '01/'.$_REQUEST['cmbMes'].'/'.Sessao::getExercicio() ); $preview->addParametro( 'data_final', SistemaLegado::retornaUltimoDiaMes($_REQUEST['cmbMes'],Sessao::getExercicio())); break; case 'Bimestre': SistemaLegado::periodoInicialFinalBimestre($stDataInicial,$stDataFinal,$_REQUEST['cmbBimestre'],Sessao::getExercicio()); - $preview->addParametro( 'descricaoPeriodo', utf8_encode($_REQUEST['cmbBimestre']."º Bimestre de ".Sessao::getExercicio()) ); - $preview->addParametro( 'periodo_extenso',utf8_encode('Bimestre')); + $preview->addParametro( 'descricaoPeriodo', $_REQUEST['cmbBimestre']."º Bimestre de ".Sessao::getExercicio() ); + $preview->addParametro( 'periodo_extenso', 'Bimestre'); $preview->addParametro( 'periodo', $_REQUEST['cmbBimestre'] ); $preview->addParametro( 'data_inicial', '01/01/'.Sessao::getExercicio() ); $preview->addParametro( 'data_final' , $stDataFinal ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo18.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo18.php index 9a77296..60eed73 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo18.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo18.php @@ -31,7 +31,7 @@ * Casos de uso: uc-06.01.15 - $Id: OCGeraRREOAnexo18.php 61167 2014-12-12 14:15:52Z silvia $ + $Id: OCGeraRREOAnexo18.php 61647 2015-02-20 11:26:55Z luciana $ */ @@ -58,13 +58,13 @@ $preview->addParametro ( 'porcentagem', $request->get('flPct') ); $preview->addParametro ( 'cod_entidade', implode(',', $request->get('inCodEntidade')) ); if (count($request->get('inCodEntidade')) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $inCodEntidadePrefeitura = SistemaLegado::pegaDado('valor','administracao.configuracao'," WHERE parametro = 'cod_entidade_prefeitura' AND exercicio = '".Sessao::getExercicio()."' AND cod_modulo = 8 "); $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade = ".$inCodEntidadePrefeitura ); while ( !$rsEntidade->eof() ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); $rsEntidade->proximo(); } } @@ -104,7 +104,7 @@ $dtHoraEmissao = date('H:i'); //necessário codificar os caracteres especias em ascii para o birt interpretar corretamente $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao); if ($_REQUEST['stAcao'] == 'anexo14novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo2.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo2.php index 482c02b..63bdce3 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo2.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo2.php @@ -33,7 +33,7 @@ * Casos de uso : uc-06.01.02 - $Id: OCGeraRREOAnexo2.php 61303 2015-01-05 14:17:09Z luciana $ + $Id: OCGeraRREOAnexo2.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -63,14 +63,14 @@ $preview->addParametro('tipo_periodo', $_REQUEST['stTipoRelatorio'] ); switch ($_REQUEST['stTipoRelatorio']) { case 'Mes': - $preview->addParametro( 'titulo_periodo', utf8_encode(SistemaLegado::mesExtensoBR($_REQUEST['cmbMes']).' de '.Sessao::getExercicio())); + $preview->addParametro( 'titulo_periodo', SistemaLegado::mesExtensoBR($_REQUEST['cmbMes']).' de '.Sessao::getExercicio()); $preview->addParametro( 'periodo' , $_REQUEST['cmbMes'] ); $preview->addParametro( 'dt_inicial', '01/'.$_REQUEST['cmbMes'].'/'.Sessao::getExercicio() ); $preview->addParametro( 'dt_final', SistemaLegado::retornaUltimoDiaMes($_REQUEST['cmbMes'],Sessao::getExercicio())); $stNomeArquivo .= $_REQUEST['cmbMes'] . "mes"; break; case 'Bimestre': - $preview->addParametro( 'titulo_periodo', utf8_encode($_REQUEST['cmbBimestre'].'° bimestre de '.Sessao::getExercicio())); + $preview->addParametro( 'titulo_periodo', $_REQUEST['cmbBimestre'].'° bimestre de '.Sessao::getExercicio()); $preview->addParametro( 'periodo', $_REQUEST['cmbBimestre'] ); SistemaLegado::periodoInicialFinalBimestre($stDtInicial, $stDtFinal, $_REQUEST['cmbBimestre'], Sessao::getExercicio()); @@ -91,7 +91,7 @@ switch ($_REQUEST['stTipoRelatorio']) { while ( !$rsEntidade->eof() ) { if ( preg_match( "/prefeitura/i", $rsEntidade->getCampo('nom_cgm')) || preg_match( "/tribunal/i", $rsEntidade->getCampo('nom_cgm'))) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm'))); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm')); break; } $rsEntidade->proximo(); @@ -120,7 +120,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo2novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo3.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo3.php index 17ad2ad..8007740 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo3.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo3.php @@ -33,7 +33,7 @@ * Casos de uso : uc-06.01.03 - $Id: OCGeraRREOAnexo3.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCGeraRREOAnexo3.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -52,7 +52,7 @@ $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade in (" $preview->addParametro( 'cod_entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { while ( !$rsEntidade->eof() ) { if ( preg_match( "/prefeitura/i", $rsEntidade->getCampo('nom_cgm')) ) { @@ -153,7 +153,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo3novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo5.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo5.php index 0c77bdb..bd0759d 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo5.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo5.php @@ -83,7 +83,7 @@ while (!$rsEntidade->eof()) { if ($stValor == "") { SistemaLegado::alertaAviso("FLModelosRREO.php?".Sessao::getId()."&stAcao=".$stAcao, $rsEntidade->getCampo('nom_cgm').' não é uma entidade RPPS',"","aviso", Sessao::getId(), "../"); } - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); $rsEntidade->proximo(); $inCount++; } @@ -107,7 +107,7 @@ switch ($request->get('stTipoRelatorio')) { case 'Bimestre': $preview->addParametro( 'bimestre', $request->get('cmbBimestre') ); $preview->addParametro( 'periodicidade', "bimestre" ); - $preview->addParametro( 'periodo_referencia', utf8_encode($request->get('cmbBimestre')."º BIMESTRE DE ".Sessao::getExercicio()) ); + $preview->addParametro( 'periodo_referencia', $request->get('cmbBimestre')."º BIMESTRE DE ".Sessao::getExercicio() ); $stDataInicial = Bimestre::getDataInicial($request->get('cmbBimestre'), Sessao::getExercicio()); $stDataFinal = Bimestre::getDataFinal($request->get('cmbBimestre'), Sessao::getExercicio()); @@ -204,7 +204,7 @@ $dtHoraEmissao = date('H:i'); //necessário codificar os caracteres especias em ascii para o birt interpretar corretamente $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo4novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo6.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo6.php index dfafa1e..0ff3ba8 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo6.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo6.php @@ -79,7 +79,7 @@ $obTOrcamentoEntidade->recuperaEntidades( $rsEntidade, "and e.cod_entidade in (" // Adiciona o parametro do nome da entidade if ( count($request->get('inCodEntidade')) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $inCodEntidadePrefeitura = SistemaLegado::pegaDado('valor','administracao.configuracao'," WHERE exercicio = '".Sessao::getExercicio()."' AND parametro = 'cod_entidade_prefeitura' "); @@ -162,7 +162,7 @@ if ( $request->get('stTipoRelatorio') == 'Bimestre') { break; endswitch; $preview->addParametro( 'periodo', $request->get('cmbBimestre') ); - $preview->addParametro( 'descricaoPeriodo', utf8_encode($request->get('cmbBimestre')."º Bimestre de ".Sessao::getExercicio()) ); + $preview->addParametro( 'descricaoPeriodo', $request->get('cmbBimestre')."º Bimestre de ".Sessao::getExercicio() ); } elseif ( $request->get('stTipoRelatorio') == 'Quadrimestre' ) { @@ -182,7 +182,7 @@ if ( $request->get('stTipoRelatorio') == 'Bimestre') { endswitch; $preview->addParametro( 'periodo', $request->get('cmbQuadrimestre') ); - $preview->addParametro( 'descricaoPeriodo', utf8_encode($request->get('cmbQuadrimestre')."º Quadrimestre de ".Sessao::getExercicio()) ); + $preview->addParametro( 'descricaoPeriodo', $request->get('cmbQuadrimestre')."º Quadrimestre de ".Sessao::getExercicio() ); } elseif ( $request->get('stTipoRelatorio') == 'Semestre' ) { @@ -198,7 +198,7 @@ if ( $request->get('stTipoRelatorio') == 'Bimestre') { endswitch; $preview->addParametro( 'periodo', $request->get('cmbSemestre') ); - $preview->addParametro( 'descricaoPeriodo', utf8_encode($request->get('cmbSemestre')."º Semestre de ".Sessao::getExercicio()) ); + $preview->addParametro( 'descricaoPeriodo', $request->get('cmbSemestre')."º Semestre de ".Sessao::getExercicio() ); } elseif ( $request->get('stTipoRelatorio') == 'Mes' ) { @@ -226,7 +226,7 @@ if ( $request->get('stTipoRelatorio') == 'Bimestre') { $codUF = SistemaLegado::pegaConfiguracao( 'cod_uf', 2, Sessao::getExercicio()); $preview->addParametro( 'cod_uf', $codUF ); $preview->addParametro( 'tipo_relatorio', $request->get('stTipoRelatorio') ); - $preview->addParametro( 'descricaoPeriodo', utf8_encode(sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMes']))." de ".Sessao::getExercicio())); + $preview->addParametro( 'descricaoPeriodo', sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMes']))." de ".Sessao::getExercicio()); } #############################Modificações do tce para o novo layout############################## @@ -243,7 +243,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($request->get('stAcao') == 'anexo5novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo7.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo7.php index 6082b44..4da4a8f 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo7.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo7.php @@ -81,12 +81,12 @@ $preview->addParametro ( 'exercicio', Sessao::getExercicio() ); $preview->addParametro ( 'entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $obTAdministracaoConfiguracao->recuperaTodos($rsPrefeitura, " WHERE exercicio = '".Sessao::getExercicio()."' AND parametro = 'cod_entidade_prefeitura'"); foreach ($rsEntidade->arElementos as $key => $field) { if ($rsPrefeitura->getCampo('valor') == $field['cod_entidade']) { - $preview->addParametro( 'nom_entidade', utf8_encode($field['nom_cgm']) ); + $preview->addParametro( 'nom_entidade', $field['nom_cgm'] ); } } } @@ -148,7 +148,7 @@ switch ($_REQUEST['cmbBimestre']) { if ($request->get('cmbBimestre')) { $descricaoPeriodo = $request->get('cmbBimestre')."º Bimestre de ".Sessao::getExercicio(); } else if ($request->get('cmbMes')) { - $descricaoPeriodo = utf8_encode(sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMes']))." de ".Sessao::getExercicio()); + $descricaoPeriodo = sistemaLegado::mesExtensoBR(intval($_REQUEST['cmbMes']))." de ".Sessao::getExercicio(); } if ($request->get('cmbMes')) { @@ -171,7 +171,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo6novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo8.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo8.php index 7d2301b..ed1dbab 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo8.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo8.php @@ -82,7 +82,7 @@ if ($stNomeEntidade == '') { } if ( count($_REQUEST['inCodEntidade']) > 0 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($stNomeEntidade) ); + $preview->addParametro( 'nom_entidade', $stNomeEntidade ); } else { $preview->addParametro( 'nom_entidade', '' ); } @@ -112,7 +112,7 @@ switch ($_REQUEST['stTipoRelatorio']) { case 'Bimestre': $preview->addParametro( 'bimestre' , $_REQUEST['cmbBimestre'] ); $preview->addParametro( 'periodo' , $_REQUEST['cmbBimestre'] ); - $preview->addParametro( 'nome_periodo' , utf8_encode($_REQUEST['cmbBimestre']."º Bimestre de ".Sessao::getExercicio()) ); + $preview->addParametro( 'nome_periodo' , $_REQUEST['cmbBimestre']."º Bimestre de ".Sessao::getExercicio() ); $preview->addParametro( 'tipo_periodo' , "Bimestre" ); if ( $_REQUEST['cmbBimestre'] == "6" ) { @@ -139,7 +139,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); $preview->addParametro( 'dt_inicio' , $stDtInicio ); $preview->addParametro( 'dt_final' , $stDtFinal ); $preview->addAssinaturas(Sessao::read('assinaturas')); diff --git a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo9.php b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo9.php index 460b92e..868e502 100644 --- a/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo9.php +++ b/gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo9.php @@ -33,7 +33,7 @@ * Casos de uso : - $Id: OCGeraRREOAnexo9.php 61167 2014-12-12 14:15:52Z silvia $ + $Id: OCGeraRREOAnexo9.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -54,12 +54,12 @@ $preview->addParametro ( 'exercicio', Sessao::getExercicio() ); $preview->addParametro ( 'entidade', implode(',', $_REQUEST['inCodEntidade'] ) ); if ( count($_REQUEST['inCodEntidade']) == 1 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } else { $inCodEntidadePrefeitura = SistemaLegado::pegaDado('valor','administracao.configuracao'," WHERE parametro = 'cod_entidade_prefeitura' AND exercicio = '".Sessao::getExercicio()."' AND cod_modulo = 8 "); while ( !$rsEntidade->eof() ) { if ( $rsEntidade->getCampo('cod_entidade') == $inCodEntidadePrefeitura ) { - $preview->addParametro( 'nom_entidade', utf8_encode($rsEntidade->getCampo('nom_cgm')) ); + $preview->addParametro( 'nom_entidade', $rsEntidade->getCampo('nom_cgm') ); } $rsEntidade->proximo(); } @@ -157,7 +157,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); if ($_REQUEST['stAcao'] == 'anexo7novo') { $preview->addParametro( 'relatorio_novo', 'sim' ); @@ -168,6 +168,6 @@ if ($_REQUEST['stAcao'] == 'anexo7novo') { $preview->addParametro( 'bimestre', $_REQUEST['cmbBimestre'] ); $preview->addParametro( 'dt_final', $stDtFinal ); -$preview->addParametro( 'descricao', utf8_encode($descricaoPeriodo) ); +$preview->addParametro( 'descricao', $descricaoPeriodo ); $preview->addAssinaturas(Sessao::read('assinaturas')); $preview->preview(); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALAtivoPermanente.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALAtivoPermanente.class.php index 242e996..76e2121 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALAtivoPermanente.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALAtivoPermanente.class.php @@ -27,7 +27,7 @@ * * @author: Lisiane Morais * - * $Id:$ + * $Id: TTCEALAtivoPermanente.class.php 61647 2015-02-20 11:26:55Z luciana $ * * @ignore * @@ -97,37 +97,49 @@ class TTCEALAtivoPermanente extends Persistente , bem.descricao , bem.num_placa AS num_tombamento , CASE WHEN bem_comprado.cod_empenho::VARCHAR <> '' THEN - TO_CHAR(dt_empenho,'yyyymm')||bem_comprado.cod_empenho::VARCHAR + COALESCE(TO_CHAR(empenho.dt_empenho,'yyyymm'),'')||bem_comprado.cod_empenho::VARCHAR ELSE - ''::VARCHAR + '9999010000001'::VARCHAR END AS num_empenho , TO_CHAR(bem.dt_aquisicao,'dd/mm/yyyy') AS data_inscricao - , bem_comprado.nota_fiscal AS numero_documento_fiscal - , TO_CHAR(bem_comprado.data_nota_fiscal,'dd/mm/yyyy') AS data_doc_fiscal - , CASE WHEN (bem_comprado_tipo_documento_fiscal.cod_tipo_documento_fiscal IS NOT NULL) THEN - bem_comprado_tipo_documento_fiscal.cod_tipo_documento_fiscal - ELSE 4 - END AS tipo_documento_fiscal - , bem.vl_bem AS valor_bem - , local.descricao AS setor - , REPLACE(estrutural.cod_estrutural, '.','') AS cod_estrutural + , CASE WHEN TRIM(bem_comprado.nota_fiscal) <> '' THEN + bem_comprado.nota_fiscal + ELSE + '00' + END AS numero_documento_fiscal + , CASE WHEN TO_CHAR(bem_comprado.data_nota_fiscal,'dd/mm/yyyy') <> '' THEN + TO_CHAR(bem_comprado.data_nota_fiscal,'dd/mm/yyyy') + ELSE + '01/01/9999' + END AS data_doc_fiscal + , CASE WHEN (bem_comprado_tipo_documento_fiscal.cod_tipo_documento_fiscal IS NOT NULL) THEN + bem_comprado_tipo_documento_fiscal.cod_tipo_documento_fiscal + ELSE 4 + END AS tipo_documento_fiscal + , bem.vl_bem AS valor_bem + , local.descricao AS setor + , CASE WHEN TRIM(estrutural.cod_estrutural) <> '' THEN + REPLACE(estrutural.cod_estrutural, '.','') + ELSE + '00000000000000000' + END AS cod_estrutural , historico_bem.cod_situacao AS estado_bem , CASE WHEN (depreciacao.cod_bem = bem_comprado.cod_bem) THEN 2 + WHEN (reavaliacao.cod_bem = bem_comprado.cod_bem) THEN 6 + WHEN (bem_baixado.cod_bem = bem_comprado.cod_bem AND tipo_baixa = 1 OR tipo_baixa = 2) THEN 10 + WHEN (bem_baixado.cod_bem = bem_comprado.cod_bem AND tipo_baixa != 1 OR tipo_baixa != 2) THEN 11 WHEN (bem.dt_incorporacao BETWEEN to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') ) THEN 5 - WHEN (reavaliacao.cod_bem = bem_comprado.cod_bem) THEN 6 - WHEN (bem_baixado.cod_bem = bem_comprado.cod_bem AND tipo_baixa = 1 OR tipo_baixa = 2) THEN 10 - WHEN (bem_baixado.cod_bem = bem_comprado.cod_bem AND tipo_baixa != 1 OR tipo_baixa != 2) THEN 11 ELSE 01 END AS alteracao_bem , CASE WHEN (depreciacao.cod_bem = bem_comprado.cod_bem) THEN depreciacao.dt_depreciacao - WHEN (bem.dt_incorporacao BETWEEN to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') - AND to_date('".$this->getDado('dt_final')."','dd/mm/yyyy' )) THEN bem.dt_incorporacao - WHEN (reavaliacao.cod_bem = bem_comprado.cod_bem) THEN reavaliacao.dt_reavaliacao + WHEN (reavaliacao.cod_bem = bem_comprado.cod_bem) THEN reavaliacao.dt_reavaliacao WHEN (bem_baixado.cod_bem = bem_comprado.cod_bem AND tipo_baixa = 1 OR tipo_baixa = 2) THEN dt_baixa WHEN (bem_baixado.cod_bem = bem_comprado.cod_bem AND tipo_baixa != 1 OR tipo_baixa != 2) THEN dt_baixa + WHEN (bem.dt_incorporacao BETWEEN to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') + AND to_date('".$this->getDado('dt_final')."','dd/mm/yyyy' )) THEN bem.dt_incorporacao END AS dt_alteracao , CASE WHEN (depreciacao.cod_bem = bem_comprado.cod_bem) THEN depreciacao.vl_depreciado @@ -239,10 +251,10 @@ class TTCEALAtivoPermanente extends Persistente FROM patrimonio.reavaliacao WHERE reavaliacao.dt_reavaliacao BETWEEN to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') - AND reavaliacao.cod_reavaliacao = (SELECT max(cod_reavaliacao) + /*AND reavaliacao.cod_reavaliacao = (SELECT max(cod_reavaliacao) FROM patrimonio.reavaliacao AS PR WHERE PR.dt_reavaliacao BETWEEN to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') - AND to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') ) + AND to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') ) */ ) AS reavaliacao ON reavaliacao.cod_bem = bem.cod_bem diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALBemVinculado.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALBemVinculado.class.php index ac5a08b..ac5cdde 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALBemVinculado.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALBemVinculado.class.php @@ -27,7 +27,7 @@ * * @author: Carlos Adriano Vernieri da Silva * - * $Id: TTCEALBemVinculado.class.php 61411 2015-01-14 19:48:22Z luciana $ + * $Id: TTCEALBemVinculado.class.php 61647 2015-02-20 11:26:55Z luciana $ * * @ignore * @@ -87,15 +87,15 @@ class TTCEALBemVinculado extends Persistente END AS num_empenho FROM patrimonio.bem - INNER JOIN patrimonio.bem_comprado + LEFT JOIN patrimonio.bem_comprado ON bem_comprado.cod_bem = bem.cod_bem + AND bem_comprado.exercicio = '".$this->getDado('exercicio')."' + AND bem_comprado.cod_entidade = ".$this->getDado('inCodEntidade')." LEFT JOIN empenho.empenho ON bem_comprado.cod_empenho = empenho.cod_empenho AND bem_comprado.cod_entidade = empenho.cod_entidade AND bem_comprado.exercicio = empenho.exercicio - WHERE bem_comprado.exercicio = '".$this->getDado('exercicio')."' - AND bem_comprado.cod_entidade = ".$this->getDado('inCodEntidade')." - AND bem.dt_aquisicao < to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') + WHERE bem.dt_aquisicao < to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') ) AS tabela ORDER BY num_bem"; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEAL/instancias/exportacao/ativoPermanente.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEAL/instancias/exportacao/ativoPermanente.inc.php index 198b6bf..2650d73 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEAL/instancias/exportacao/ativoPermanente.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEAL/instancias/exportacao/ativoPermanente.inc.php @@ -30,7 +30,7 @@ * * @author: Lisiane Morais * - $Id:$ + $Id: ativoPermanente.inc.php 61647 2015-02-20 11:26:55Z luciana $ * * @ignore * @@ -63,29 +63,29 @@ foreach ($arEsquemasEntidades as $inCodEntidade) { $arResult = array(); while (!$rsRecordSet->eof()) { - $arResult[$idCount]['CodUndGestora'] = $rsRecordSet->getCampo('cod_und_gestora'); - $arResult[$idCount]['CodigoUA'] = $rsRecordSet->getCampo('codigo_ua'); - $arResult[$idCount]['Bimestre'] = $rsRecordSet->getCampo('bimestre'); - $arResult[$idCount]['Exercicio'] = $rsRecordSet->getCampo('exercicio'); - $arResult[$idCount]['CodOrgao'] = $rsRecordSet->getCampo('cod_orgao'); - $arResult[$idCount]['CodUndOrcamentaria'] = $rsRecordSet->getCampo('cod_und_orcamentaria'); - $arResult[$idCount]['NumBem'] = $rsRecordSet->getCampo('num_bem'); - $arResult[$idCount]['Descricao'] = $rsRecordSet->getCampo('descricao'); - $arResult[$idCount]['DataInscricao'] = $rsRecordSet->getCampo('data_inscricao'); - $arResult[$idCount]['NumEmpenho'] = $rsRecordSet->getCampo('num_empenho'); - $arResult[$idCount]['NumeroDocumentoFiscal'] = $rsRecordSet->getCampo('numero_documento_fiscal'); - $arResult[$idCount]['DataDocumentoFiscal'] = $rsRecordSet->getCampo('data_doc_fiscal'); - $arResult[$idCount]['TipoDocumentoFiscal'] = $rsRecordSet->getCampo('tipo_documento_fiscal'); - $arResult[$idCount]['ValorBem'] = $rsRecordSet->getCampo('valor_bem'); - $arResult[$idCount]['Quantidade'] = $rsRecordSet->getCampo('quantidade'); - $arResult[$idCount]['Setor'] = $rsRecordSet->getCampo('setor'); - $arResult[$idCount]['NumTombamento'] = $rsRecordSet->getCampo('num_tombamento'); - $arResult[$idCount]['CodEstrutural'] = $rsRecordSet->getCampo('cod_estrutural'); - $arResult[$idCount]['EstadoBem'] = $rsRecordSet->getCampo('estado_bem'); - $arResult[$idCount]['AlteracaoBem'] = $rsRecordSet->getCampo('alteracao_bem'); - $arResult[$idCount]['DataAlteracao'] = $rsRecordSet->getCampo('dt_alteracao'); - $arResult[$idCount]['ValorAlteracao'] = $rsRecordSet->getCampo('vl_alteracao'); - $arResult[$idCount]['Percentual'] = $rsRecordSet->getCampo('percentual'); + $arResult[$idCount]['CodUndGestora'] = $rsRecordSet->getCampo('cod_und_gestora'); + $arResult[$idCount]['CodigoUA'] = $rsRecordSet->getCampo('codigo_ua'); + $arResult[$idCount]['Bimestre'] = $rsRecordSet->getCampo('bimestre'); + $arResult[$idCount]['Exercicio'] = $rsRecordSet->getCampo('exercicio'); + $arResult[$idCount]['CodOrgao'] = $rsRecordSet->getCampo('cod_orgao'); + $arResult[$idCount]['CodUndOrcamentaria'] = $rsRecordSet->getCampo('cod_und_orcamentaria'); + $arResult[$idCount]['NumBem'] = $rsRecordSet->getCampo('num_bem'); + $arResult[$idCount]['Descricao'] = $rsRecordSet->getCampo('descricao'); + $arResult[$idCount]['DataInscricao'] = $rsRecordSet->getCampo('data_inscricao'); + $arResult[$idCount]['NumEmpenho'] = $rsRecordSet->getCampo('num_empenho'); + $arResult[$idCount]['NumDocumentoFiscal'] = $rsRecordSet->getCampo('numero_documento_fiscal'); + $arResult[$idCount]['DataDocumentoFiscal'] = $rsRecordSet->getCampo('data_doc_fiscal'); + $arResult[$idCount]['TipoDocumentoFiscal'] = $rsRecordSet->getCampo('tipo_documento_fiscal'); + $arResult[$idCount]['ValorBem'] = $rsRecordSet->getCampo('valor_bem'); + $arResult[$idCount]['Quantidade'] = $rsRecordSet->getCampo('quantidade'); + $arResult[$idCount]['Setor'] = $rsRecordSet->getCampo('setor'); + $arResult[$idCount]['NumTombamento'] = $rsRecordSet->getCampo('num_tombamento'); + $arResult[$idCount]['CodContaContabil'] = $rsRecordSet->getCampo('cod_estrutural'); + $arResult[$idCount]['EstadoBem'] = $rsRecordSet->getCampo('estado_bem'); + $arResult[$idCount]['AlteracaoBemAtivoPermanente'] = $rsRecordSet->getCampo('alteracao_bem'); + $arResult[$idCount]['DataAlteracao'] = $rsRecordSet->getCampo('dt_alteracao'); + $arResult[$idCount]['ValorAlteracao'] = $rsRecordSet->getCampo('vl_alteracao'); + $arResult[$idCount]['Percentual'] = $rsRecordSet->getCampo('percentual'); $idCount++; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/controle/CTCEMGExportacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/controle/CTCEMGExportacao.class.php index 3bd9fbb..7d8edb1 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/controle/CTCEMGExportacao.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/controle/CTCEMGExportacao.class.php @@ -180,6 +180,7 @@ class CTCEMGExportacao 'receitaCapital.txt', 'recursoAlienacaoAtivo.txt', 'variacaoPatrimonial.txt', + 'demonstrativoOpCredito.txt', ), ); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAMP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAMP.class.php index 3bd87db..2f307a3 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAMP.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAMP.class.php @@ -122,7 +122,7 @@ class TTCEMGAMP extends Persistente public function montaRecuperaDadosExportacaoTipo12($stFiltro, $stOrdem) { $stSql = " SELECT 12 AS tipo_registro - , lpad(".$this->getDado('cod_orgao')."::VARCHAR, 2, '0') AS cod_orgao + , TRIM(configuracao_entidade.valor) AS cod_orgao , lpad(lpad(acao_unidade_executora.num_orgao::VARCHAR, 2, '0')||lpad(acao_unidade_executora.num_unidade::VARCHAR, 2, '0'),5,'0') AS cod_unidade_sub , acao_dados.cod_funcao , acao_dados.cod_subfuncao @@ -152,6 +152,41 @@ class TTCEMGAMP extends Persistente AND acao_unidade_executora.timestamp_acao_dados = acao.ultimo_timestamp_acao_dados JOIN ppa.programa ON programa.cod_programa = acao.cod_programa + + + JOIN ( SELECT despesa.exercicio + , despesa.cod_entidade + , programa.cod_programa + FROM ppa.programa + + JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.cod_programa_ppa = programa.cod_programa + + JOIN orcamento.programa AS o_p + ON o_p.exercicio = programa_ppa_programa.exercicio + AND o_p.cod_programa = programa_ppa_programa.cod_programa + + JOIN orcamento.despesa + ON despesa.cod_programa = o_p.cod_programa + AND despesa.exercicio = o_p.exercicio + + WHERE despesa.exercicio = '".Sessao::getExercicio()."' + AND despesa.cod_entidade IN (".$this->getDado('entidades').") + + GROUP BY despesa.exercicio + , despesa.cod_entidade + , programa.cod_programa + + ) AS despesa + + ON despesa.cod_programa = programa.cod_programa + + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = despesa.cod_entidade + AND configuracao_entidade.exercicio = despesa.exercicio + AND configuracao_entidade.cod_modulo = 55 + AND configuracao_entidade.parametro = 'tcemg_codigo_orgao_entidade_sicom' + GROUP BY acao.num_acao , acao.cod_acao @@ -160,6 +195,7 @@ class TTCEMGAMP extends Persistente , acao_unidade_executora.num_unidade , acao_dados.cod_funcao , acao_dados.cod_subfuncao + , TRIM(configuracao_entidade.valor) ORDER BY acao.num_acao "; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAOC.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAOC.class.php index d1350b5..cfa45eb 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAOC.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAOC.class.php @@ -282,84 +282,150 @@ class TTCEMGAOC extends Persistente public function montaRecuperaDadosAOC12() { - $stSql = " SELECT - '12' AS tiporegistro - ,LPAD(tabela.num_norma||tabela.cod_tipo, 8,'0' ) as codreduzidodecreto - ,(SELECT valor FROM normas.atributo_norma_valor WHERE cod_norma = tabela.cod_norma AND cod_atributo = 103) AS nroleialteracao - ,REPLACE((SELECT valor FROM normas.atributo_norma_valor WHERE cod_norma = tabela.cod_norma AND cod_atributo = 104), '/', '') AS dataleialteracao - , SUBSTR(descricao,0,4) as tpleiorigdecreto - , tipo_lei_alteracao_orcamentaria as tipoleialteracao - , valor as valorabertolei - FROM ( - SELECT - TO_CHAR(norma.dt_assinatura,'ddmmyyyy') as data - ,norma.num_norma - ,norma.cod_norma - ,tipo_transferencia.nom_tipo as tipo_suplementacao - ,tipo_transferencia.cod_tipo - ,suplementacao_suplementada.valor - ,despesa.cod_entidade - ,suplementacao.cod_suplementacao - ,suplementacao.exercicio - ,CASE - WHEN suplementacao_anulada.cod_suplementacao IS NOT NULL THEN 'anulada' - ELSE 'valida' - END as situacao - ,tipo_lei_origem_decreto.descricao - ,norma_detalhe.tipo_lei_alteracao_orcamentaria - - FROM orcamento.suplementacao - - LEFT JOIN orcamento.suplementacao_anulada - ON suplementacao.exercicio = suplementacao_anulada.exercicio - AND suplementacao.cod_suplementacao = suplementacao_anulada.cod_suplementacao + + if(Sessao::getExercicio() >= 2015) { + $stSql = " SELECT + '12' AS tiporegistro + ,LPAD(tabela.num_norma||tabela.cod_tipo, 8,'0' ) as codreduzidodecreto + ,(SELECT valor FROM normas.atributo_norma_valor WHERE cod_norma = tabela.cod_norma AND cod_atributo = 103) AS nroleialteracao + ,REPLACE((SELECT valor FROM normas.atributo_norma_valor WHERE cod_norma = tabela.cod_norma AND cod_atributo = 104), '/', '') AS dataleialteracao + , SUBSTR(descricao,0,4) as tpleiorigdecreto + , tipo_lei_alteracao_orcamentaria as tipoleialteracao + , SUM(valor) as valorabertolei + FROM ( + SELECT + TO_CHAR(norma.dt_assinatura,'ddmmyyyy') as data + ,norma.num_norma + ,norma.cod_norma + ,tipo_transferencia.nom_tipo as tipo_suplementacao + ,tipo_transferencia.cod_tipo + ,suplementacao_suplementada.valor + ,despesa.cod_entidade + ,suplementacao.cod_suplementacao + ,suplementacao.exercicio + ,CASE + WHEN suplementacao_anulada.cod_suplementacao IS NOT NULL THEN 'anulada' + ELSE 'valida' + END as situacao + ,tipo_lei_origem_decreto.descricao + ,norma_detalhe.tipo_lei_alteracao_orcamentaria + + FROM orcamento.suplementacao - JOIN contabilidade.tipo_transferencia - ON tipo_transferencia.cod_tipo = suplementacao.cod_tipo - AND tipo_transferencia.exercicio = suplementacao.exercicio - - JOIN orcamento.suplementacao_suplementada - ON suplementacao.cod_suplementacao = suplementacao_suplementada.cod_suplementacao - AND suplementacao.exercicio = suplementacao_suplementada.exercicio - - JOIN orcamento.despesa - ON suplementacao_suplementada.cod_despesa = despesa.cod_despesa - AND suplementacao_suplementada.exercicio = despesa.exercicio - - JOIN contabilidade.transferencia_despesa - ON transferencia_despesa.cod_tipo = suplementacao.cod_tipo - AND transferencia_despesa.cod_suplementacao = suplementacao.cod_suplementacao - AND transferencia_despesa.exercicio = suplementacao.exercicio - AND transferencia_despesa.cod_tipo <> 16 - - JOIN normas.norma - ON suplementacao.cod_norma = norma.cod_norma - - LEFT JOIN tcemg.norma_detalhe - ON norma_detalhe.cod_norma = norma.cod_norma - - LEFT JOIN tcemg.tipo_lei_origem_decreto - ON tipo_lei_origem_decreto.cod_tipo_lei = norma_detalhe.tipo_lei_origem_decreto - - WHERE suplementacao.exercicio = '".$this->getDado('exercicio')."' - AND suplementacao.dt_suplementacao >= to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') - AND suplementacao.dt_suplementacao <= to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') - AND transferencia_despesa.cod_entidade IN (".$this->getDado('entidade').") - ) AS tabela - - WHERE - tabela.situacao = 'valida' - GROUP BY - tabela.num_norma - ,nroleialteracao - ,dataleialteracao - ,codreduzidodecreto - ,descricao - ,tipo_lei_alteracao_orcamentaria - ,valor - ORDER BY - tabela.num_norma - "; + LEFT JOIN orcamento.suplementacao_anulada + ON suplementacao.exercicio = suplementacao_anulada.exercicio + AND suplementacao.cod_suplementacao = suplementacao_anulada.cod_suplementacao + + JOIN contabilidade.tipo_transferencia + ON tipo_transferencia.cod_tipo = suplementacao.cod_tipo + AND tipo_transferencia.exercicio = suplementacao.exercicio + + JOIN orcamento.suplementacao_suplementada + ON suplementacao.cod_suplementacao = suplementacao_suplementada.cod_suplementacao + AND suplementacao.exercicio = suplementacao_suplementada.exercicio + + JOIN orcamento.despesa + ON suplementacao_suplementada.cod_despesa = despesa.cod_despesa + AND suplementacao_suplementada.exercicio = despesa.exercicio + + JOIN contabilidade.transferencia_despesa + ON transferencia_despesa.cod_tipo = suplementacao.cod_tipo + AND transferencia_despesa.cod_suplementacao = suplementacao.cod_suplementacao + AND transferencia_despesa.exercicio = suplementacao.exercicio + AND transferencia_despesa.cod_tipo <> 16 + + JOIN normas.norma + ON suplementacao.cod_norma = norma.cod_norma + + JOIN tcemg.norma_detalhe + ON norma_detalhe.cod_norma = norma.cod_norma + + LEFT JOIN tcemg.tipo_lei_origem_decreto + ON tipo_lei_origem_decreto.cod_tipo_lei = norma_detalhe.tipo_lei_origem_decreto + + WHERE suplementacao.exercicio = '".$this->getDado('exercicio')."' + AND suplementacao.dt_suplementacao >= to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') + AND suplementacao.dt_suplementacao <= to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') + AND transferencia_despesa.cod_entidade IN (".$this->getDado('entidade').") + ) AS tabela + + WHERE + tabela.situacao = 'valida' + GROUP BY + tabela.num_norma + ,nroleialteracao + ,dataleialteracao + ,codreduzidodecreto + ,descricao + ,tipo_lei_alteracao_orcamentaria + ORDER BY + tabela.num_norma"; + } else { + $stSql = " SELECT + '12' AS tiporegistro, + LPAD(tabela.num_norma||tabela.cod_tipo, 8,'0' ) as codreduzidodecreto, + (SELECT valor FROM normas.atributo_norma_valor WHERE cod_norma = tabela.cod_norma AND cod_atributo = 103) AS nroleialteracao, + REPLACE((SELECT valor FROM normas.atributo_norma_valor WHERE cod_norma = tabela.cod_norma AND cod_atributo = 104), '/', '') AS dataleialteracao + + FROM ( + SELECT + TO_CHAR(norma.dt_assinatura,'ddmmyyyy') as data, + norma.num_norma, + norma.cod_norma, + tipo_transferencia.nom_tipo as tipo_suplementacao, + tipo_transferencia.cod_tipo, + suplementacao_suplementada.valor, + despesa.cod_entidade, + suplementacao.cod_suplementacao, + suplementacao.exercicio, + CASE + WHEN suplementacao_anulada.cod_suplementacao IS NOT NULL THEN 'anulada' + ELSE 'valida' + END as situacao + + FROM orcamento.suplementacao + + LEFT JOIN orcamento.suplementacao_anulada + ON suplementacao.exercicio = suplementacao_anulada.exercicio + AND suplementacao.cod_suplementacao = suplementacao_anulada.cod_suplementacao + + INNER JOIN contabilidade.tipo_transferencia + ON tipo_transferencia.cod_tipo = suplementacao.cod_tipo + AND tipo_transferencia.exercicio = suplementacao.exercicio + + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao.cod_suplementacao = suplementacao_suplementada.cod_suplementacao + AND suplementacao.exercicio = suplementacao_suplementada.exercicio + + INNER JOIN orcamento.despesa + ON suplementacao_suplementada.cod_despesa = despesa.cod_despesa + AND suplementacao_suplementada.exercicio = despesa.exercicio + + INNER JOIN contabilidade.transferencia_despesa + ON transferencia_despesa.cod_tipo = suplementacao.cod_tipo + AND transferencia_despesa.cod_suplementacao = suplementacao.cod_suplementacao + AND transferencia_despesa.exercicio = suplementacao.exercicio + AND transferencia_despesa.cod_tipo <> 16 + + INNER JOIN normas.norma + ON suplementacao.cod_norma = norma.cod_norma + + WHERE suplementacao.exercicio = '".$this->getDado('exercicio')."' + AND suplementacao.dt_suplementacao >= to_date('".$this->getDado('dt_inicial')."','dd/mm/yyyy') + AND suplementacao.dt_suplementacao <= to_date('".$this->getDado('dt_final')."','dd/mm/yyyy') + AND transferencia_despesa.cod_entidade IN (".$this->getDado('entidade').") + ) AS tabela + + WHERE + tabela.situacao = 'valida' + GROUP BY + tabela.num_norma, + nroleialteracao, + dataleialteracao, + codreduzidodecreto + ORDER BY + tabela.num_norma "; + } return $stSql; } @@ -381,7 +447,7 @@ class TTCEMGAOC extends Persistente if(trim($stOrdem)) $stOrdem = (strpos($stOrdem,"ORDER BY")===false)?" ORDER BY $stOrdem":$stOrdem; $stSql = $this->montaRecuperaDadosAOC13().$stCondicao.$stOrdem; - $this->setDebug( $stSql ); + $this->setDebug( $stSql ); $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); return $obErro; @@ -488,7 +554,7 @@ class TTCEMGAOC extends Persistente if(trim($stOrdem)) $stOrdem = (strpos($stOrdem,"ORDER BY")===false)?" ORDER BY $stOrdem":$stOrdem; $stSql = $this->montaRecuperaDadosAOC14().$stCondicao.$stOrdem; - $this->setDebug( $stSql ); + $this->setDebug( $stSql ); $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); return $obErro; @@ -500,7 +566,7 @@ class TTCEMGAOC extends Persistente tabela.dt_suplementacao ,'14' AS tiporegistro ,LPAD(tabela.num_norma||tabela.cod_tipo, 8,'0' ) as codreduzidodecreto - , origemRecAlteracao as origemrecAlteracao + , origemrecalteracao as origemrecalteracao ,LPAD((SELECT valor FROM administracao.configuracao_entidade WHERE exercicio = '".$this->getDado('exercicio')."' AND cod_entidade = tabela.cod_entidade AND parametro = 'tcemg_codigo_orgao_entidade_sicom'), 2, '0') AS codorgao ,LPAD(lpad(tabela.num_orgao::VARCHAR, 2, '0')||LPAD(tabela.num_unidade::VARCHAR, 2, '0'),5,'0') AS codunidadesub ,tabela.cod_funcao AS codfuncao @@ -539,7 +605,8 @@ class TTCEMGAOC extends Persistente WHEN 13 THEN '03' WHEN 14 THEN '03' WHEN 15 THEN '03' - END AS origemRecAlteracao + ELSE '98' + END AS origemrecalteracao ,uniorcam.num_orgao ,uniorcam.num_unidade ,funcao.cod_funcao @@ -657,7 +724,7 @@ class TTCEMGAOC extends Persistente tabela.dt_suplementacao ,'14' AS tiporegistro ,LPAD(tabela.num_norma||tabela.cod_tipo, 8,'0' ) as codreduzidodecreto - , origemRecAlteracao as origemeecalteracao + , origemrecalteracao as origemrecalteracao ,LPAD((SELECT valor FROM administracao.configuracao_entidade WHERE exercicio = '".$this->getDado('exercicio')."' AND cod_entidade = tabela.cod_entidade AND parametro = 'tcemg_codigo_orgao_entidade_sicom'), 2, '0') AS codorgao ,LPAD(lpad(tabela.num_orgao::VARCHAR, 2, '0')||LPAD(tabela.num_unidade::VARCHAR, 2, '0'),5,'0') AS codunidadesub ,tabela.cod_funcao AS codfuncao @@ -696,7 +763,8 @@ class TTCEMGAOC extends Persistente WHEN 13 THEN '03' WHEN 14 THEN '03' WHEN 15 THEN '03' - END AS origemRecAlteracao + ELSE '98' + END AS origemrecalteracao ,uniorcam.num_orgao ,uniorcam.num_unidade ,funcao.cod_funcao diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGCTB.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGCTB.class.php index d7f53a9..ff1002c 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGCTB.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGCTB.class.php @@ -27,7 +27,7 @@ * @category Urbem * @package TCE/MG * @author Carolina Schwaab Marcal - * $Id: TTCEMGCTB.class.php 61167 2014-12-12 14:15:52Z silvia $ + * $Id: TTCEMGCTB.class.php 61750 2015-02-27 20:53:19Z luciana $ */ @@ -51,118 +51,62 @@ class TTCEMGCTB extends Persistente $inMes = explode('/',$this->getDado('dtInicio')); $inMes = $inMes[1]; $stSql = " - SELECT c.tipo_registro - , c.cod_ctb - , c.tipo_conta||regexp_replace((c.conta), '[-|,|.|x]', '', 'gi') AS cod_ctb_view - , c.cod_orgao - , c.num_banco::VARCHAR as banco - , c.num_agencia::VARCHAR as agencia - , c.digito_verificador_agencia::VARCHAR - , c.digito_verificador_conta_bancaria::VARCHAR - , c.num_conta_corrente as conta_bancaria - , c.conta_corrente - , c.tipo_conta - , CASE WHEN c.tipo_conta = '1' THEN '' - ELSE LPAD(c.tipo_aplicacao::VARCHAR,2,'0') - END AS tipo_aplicacao - , nro_seq_aplicacao - , desc_conta_bancaria - , c.conta_convenio - , c.num_convenio::varchar as nro_convenio - , TO_CHAR(c.dt_assinatura, 'DDMMYYYY') as data_assinatura_convenio - FROM ( - SELECT '10'::int AS tipo_registro - , (banco.num_banco || agencia.num_agencia || plano_banco.conta_corrente) AS conta - , conta_bancaria.cod_ctb_anterior as cod_ctb - , CASE WHEN LTRIM(replace(num_agencia,'-',''),'9') = '' AND num_banco = '999' THEN - '999999999999' - ELSE - LTRIM( REPLACE(split_part(plano_banco.conta_corrente,'-',1),'.',''),'0') - END as num_conta_corrente - , REPLACE(plano_banco.conta_corrente,'.','') AS conta_corrente - , plano_banco.cod_entidade AS cod_orgao - , num_banco - , split_part(num_agencia,'-',1) AS num_agencia - , SPLIT_PART(num_agencia,'-',2) AS digito_verificador_agencia - , SPLIT_PART(plano_banco.conta_corrente,'-',2) AS digito_verificador_conta_bancaria - , ( 'Banco:'||banco.num_banco || ' Agencia:' ||agencia.num_agencia || ' Conta Corrente:' || REPLACE(plano_banco.conta_corrente,'.','')) as desc_conta_bancaria - , plano_analitica.exercicio - , CASE WHEN (plano_conta.cod_estrutural LIKE '1.1.1.1.1.19%') THEN '1' - WHEN (plano_conta.cod_estrutural LIKE '1.1.1.1.1.50%' OR plano_conta.cod_estrutural LIKE '1.1.4%') THEN '2' - END AS tipo_conta - , '' AS nro_seq_aplicacao - , conta_bancaria.cod_tipo_aplicacao AS tipo_aplicacao - , CASE WHEN (convenio_plano_banco.num_convenio <> NULL) THEN 1 - ELSE 2 - END AS conta_convenio - , convenio_plano_banco.num_convenio - , convenio_plano_banco.dt_assinatura - - FROM contabilidade.plano_banco - - INNER JOIN contabilidade.plano_analitica - ON plano_analitica.cod_plano = plano_banco.cod_plano - AND plano_analitica.exercicio = plano_banco.exercicio - - INNER JOIN contabilidade.plano_conta - ON plano_conta.cod_conta = plano_analitica.cod_conta - AND plano_conta.exercicio = plano_analitica.exercicio - - INNER JOIN monetario.agencia - ON agencia.cod_banco = plano_banco.cod_banco - AND agencia.cod_agencia = plano_banco.cod_agencia - - INNER JOIN monetario.banco - ON banco.cod_banco = plano_banco.cod_banco - - LEFT JOIN tcemg.conta_bancaria - ON conta_bancaria.cod_conta = plano_conta.cod_conta - AND conta_bancaria.exercicio =plano_conta.exercicio - - LEFT JOIN tcemg.convenio_plano_banco - ON convenio_plano_banco.cod_plano = plano_banco.cod_plano - AND convenio_plano_banco.exercicio = plano_banco.exercicio - - WHERE plano_banco.exercicio = '".$this->getDado('exercicio')."' - AND plano_banco.cod_entidade IN (".$this->getDado('entidades').") - AND SUBSTR(REPLACE(plano_conta.cod_estrutural, '.', ''), 1, 7) <> '1111101' - - GROUP BY cod_ctb - , banco.num_banco - , agencia.num_agencia - , plano_banco.conta_corrente - , tipo_aplicacao - , tipo_conta - , plano_banco.cod_entidade - , desc_conta_bancaria - , plano_analitica.cod_plano - , plano_analitica.exercicio - , plano_conta.cod_estrutural - , nro_seq_aplicacao - , conta_convenio - , convenio_plano_banco.num_convenio - , convenio_plano_banco.dt_assinatura - ) AS c - - GROUP BY c.tipo_registro - , c.cod_ctb - , c.num_banco - , c.num_agencia - , c.conta_corrente - , c.tipo_aplicacao - , c.tipo_conta - , c.cod_orgao - , c.num_conta_corrente - , digito_verificador_agencia - , c.digito_verificador_conta_bancaria - , nro_seq_aplicacao - , desc_conta_bancaria - , c.conta_convenio - , c.num_convenio - , c.dt_assinatura - , c.conta - - ORDER BY c.cod_ctb"; + SELECT '10' AS tipo_registro + , cod_ctb + , tipo_conta||regexp_replace((conta), '[-|,|.|x]', '', 'gi') AS cod_ctb_view + , cod_orgao + , banco + , agencia + , digito_verificador_agencia + , digito_verificador_conta_bancaria + , conta_bancaria + , retorno.conta_corrente + , tipo_conta + , tipo_aplicacao + , ''::VARCHAR nro_seq_aplicacao + , desc_conta_bancaria + , CASE WHEN (convenio_plano_banco.num_convenio <> NULL) THEN 1 + ELSE 2 + END AS conta_convenio + , convenio_plano_banco.num_convenio + , convenio_plano_banco.dt_assinatura + FROM tcemg.contasCTB('".$this->getDado('exercicio')."', '".$this->getDado('entidades')."') as retorno + ( cod_conta INTEGER + ,tipo_aplicacao VARCHAR + ,cod_ctb INTEGER + ,tipo_conta INTEGER + ,exercicio CHAR(4) + ,conta TEXT + ,conta_bancaria TEXT + ,conta_corrente TEXT + ,cod_orgao INTEGER + ,banco VARCHAR + ,agencia TEXT + ,digito_verificador_agencia TEXT + ,digito_verificador_conta_bancaria TEXT + ,desc_conta_bancaria VARCHAR + ) + INNER JOIN contabilidade.plano_analitica + ON retorno.cod_conta = plano_analitica.cod_conta + AND retorno.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_banco + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + LEFT JOIN tcemg.convenio_plano_banco + ON convenio_plano_banco.cod_plano = plano_banco.cod_plano + AND convenio_plano_banco.exercicio = plano_banco.exercicio + GROUP BY cod_ctb + , cod_ctb_view + , cod_orgao,banco + , agencia + , digito_verificador_agencia + , digito_verificador_conta_bancaria + , conta_bancaria,retorno.conta_corrente + , tipo_conta,tipo_aplicacao + , desc_conta_bancaria + , conta_convenio,num_convenio + , dt_assinatura + ORDER BY cod_ctb"; return $stSql; } @@ -176,273 +120,161 @@ class TTCEMGCTB extends Persistente $inMes = explode('/',$this->getDado('dtInicio')); $inMes = $inMes[1]; $stSql = " - SELECT c.tipo_registro + SELECT c.tipo_registro , c.cod_ctb - , c.tipo_conta||regexp_replace((c.conta), '[-|,|.|x]', '', 'gi') AS cod_ctb_view - , c.tipo_aplicacao + , c.cod_ctb_view + , tipo_aplicacao , c.tipo_conta , c.cod_orgao , c.cod_recurso as cod_fonte_recursos , ABS(SUM(c.vl_saldo_inicial_fonte)) as vl_saldo_inicial_fonte , SUM(c.vl_saldo_final_fonte) as vl_saldo_final_fonte , c.movimentacao - FROM ( - SELECT '20'::int AS tipo_registro - , (banco.num_banco || agencia.num_agencia || plano_banco.conta_corrente) AS conta - , conta_bancaria.cod_ctb_anterior as cod_ctb - , banco.num_banco AS num_banco - , agencia.num_agencia AS num_agencia - , plano_banco.conta_corrente AS conta_corrente - , conta_bancaria.cod_tipo_aplicacao AS tipo_aplicacao - , CASE WHEN (plano_conta.cod_estrutural LIKE '1.1.1.1.1.19%') THEN '1' - WHEN (plano_conta.cod_estrutural LIKE '1.1.1.1.1.50%' OR plano_conta.cod_estrutural LIKE '1.1.4%') THEN '2' - END AS tipo_conta - - , plano_banco.cod_entidade AS cod_orgao - , plano_recurso.cod_recurso - , plano_analitica.cod_plano - , plano_analitica.exercicio - , ( SELECT SUM( - ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total - FROM contabilidade.conta_debito - INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_debito.cod_lote - AND valor_lancamento.tipo = conta_debito.tipo - AND valor_lancamento.sequencia = conta_debito.sequencia - AND valor_lancamento.exercicio = conta_debito.exercicio - AND valor_lancamento.tipo_valor = conta_debito.tipo_valor - AND valor_lancamento.cod_entidade = conta_debito.cod_entidade - INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio - AND lancamento.cod_entidade = valor_lancamento.cod_entidade - INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo - AND lote.cod_entidade = lancamento.cod_entidade - "; - if ($inMes == '01') { - $stSql.= " AND lote.dt_lote BETWEEN TO_DATE('".$this->getDado('dtInicio')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dtFim')."','dd/mm/yyyy') - AND lote.exercicio = '".$this->getDado('exercicio')."' - AND lote.tipo = 'I' - "; - } else { - $stSql.= " AND lote.dt_lote < TO_DATE('".$this->getDado('dtInicio')."','dd/mm/yyyy') "; - } - $stSql.=" WHERE conta_debito.exercicio = pa.exercicio - AND conta_debito.cod_plano = pa.cod_plano - ) - + - ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total - FROM contabilidade.conta_credito - INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_credito.cod_lote - AND valor_lancamento.tipo = conta_credito.tipo - AND valor_lancamento.sequencia = conta_credito.sequencia - AND valor_lancamento.exercicio = conta_credito.exercicio - AND valor_lancamento.tipo_valor = conta_credito.tipo_valor - AND valor_lancamento.cod_entidade = conta_credito.cod_entidade - INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio - AND lancamento.cod_entidade = valor_lancamento.cod_entidade - INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo - AND lote.cod_entidade = lancamento.cod_entidade - "; - if ($inMes == '01') { - $stSql.= " AND lote.dt_lote BETWEEN TO_DATE('".$this->getDado('dtInicio')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dtFim')."','dd/mm/yyyy') - AND lote.exercicio = '".$this->getDado('exercicio')."' - AND lote.tipo = 'I' - "; - } else { - $stSql.= " AND lote.dt_lote < TO_DATE('".$this->getDado('dtInicio')."','dd/mm/yyyy') "; - } - $stSql.=" WHERE conta_credito.exercicio = pa.exercicio - AND conta_credito.cod_plano = pa.cod_plano - ) - ) as vl_total - FROM contabilidade.plano_analitica AS pa - WHERE pa.cod_plano = plano_analitica.cod_plano - AND pa.exercicio = plano_analitica.exercicio - ) AS vl_saldo_inicial_fonte - - - , ( SELECT SUM( - ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total - FROM contabilidade.conta_debito - INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_debito.cod_lote - AND valor_lancamento.tipo = conta_debito.tipo - AND valor_lancamento.sequencia = conta_debito.sequencia - AND valor_lancamento.exercicio = conta_debito.exercicio - AND valor_lancamento.tipo_valor = conta_debito.tipo_valor - AND valor_lancamento.cod_entidade = conta_debito.cod_entidade - INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio - AND lancamento.cod_entidade = valor_lancamento.cod_entidade - INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo - AND lote.cod_entidade = lancamento.cod_entidade - AND lote.dt_lote BETWEEN TO_DATE('01/01/".$this->getDado('exercicio')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dtFim')."','dd/mm/yyyy') - WHERE conta_debito.exercicio = pa.exercicio - AND conta_debito.cod_plano = pa.cod_plano - ) - + - ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total - FROM contabilidade.conta_credito - INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_credito.cod_lote - AND valor_lancamento.tipo = conta_credito.tipo - AND valor_lancamento.sequencia = conta_credito.sequencia - AND valor_lancamento.exercicio = conta_credito.exercicio - AND valor_lancamento.tipo_valor = conta_credito.tipo_valor - AND valor_lancamento.cod_entidade = conta_credito.cod_entidade - INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio - AND lancamento.cod_entidade = valor_lancamento.cod_entidade - INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo - AND lote.cod_entidade = lancamento.cod_entidade - AND lote.dt_lote BETWEEN TO_DATE('01/01/".$this->getDado('exercicio')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dtFim')."','dd/mm/yyyy') - WHERE conta_credito.exercicio = pa.exercicio - AND conta_credito.cod_plano = pa.cod_plano - ) - ) - FROM contabilidade.plano_analitica AS pa - WHERE pa.cod_plano = plano_analitica.cod_plano - AND pa.exercicio = plano_analitica.exercicio - ) AS vl_saldo_final_fonte - , CASE WHEN (vl_lancamento IS NOT NULL) THEN 1 END AS movimentacao - - FROM contabilidade.plano_banco - - INNER JOIN contabilidade.plano_analitica - ON plano_analitica.cod_plano = plano_banco.cod_plano - AND plano_analitica.exercicio = plano_banco.exercicio - - INNER JOIN contabilidade.plano_conta - ON plano_conta.cod_conta = plano_analitica.cod_conta - AND plano_conta.exercicio = plano_analitica.exercicio - - INNER JOIN monetario.agencia - ON agencia.cod_banco = plano_banco.cod_banco - AND agencia.cod_agencia = plano_banco.cod_agencia - - INNER JOIN monetario.banco - ON banco.cod_banco = plano_banco.cod_banco - - INNER JOIN contabilidade.plano_recurso - ON plano_analitica.cod_plano = plano_recurso.cod_plano - AND plano_analitica.exercicio = plano_recurso.exercicio - - LEFT JOIN tcemg.conta_bancaria - ON conta_bancaria.cod_conta = plano_conta.cod_conta - AND conta_bancaria.exercicio =plano_conta.exercicio - - LEFT JOIN tcemg.convenio_plano_banco - ON convenio_plano_banco.cod_plano = plano_banco.cod_plano - AND convenio_plano_banco.exercicio = plano_banco.exercicio - - - LEFT JOIN ( SELECT cod_plano - , exercicio - , cod_lote - , tipo - , sequencia - , tipo_valor - , cod_entidade - , '1'::VARCHAR AS tipo_movimentacao - FROM contabilidade.conta_debito - - UNION ALL - - SELECT cod_plano - , exercicio - , cod_lote - , tipo - , sequencia - , tipo_valor - , cod_entidade - , '2'::VARCHAR AS tipo_movimentacao - FROM contabilidade.conta_credito - ) AS conta_debito_credito - ON plano_analitica.cod_plano = conta_debito_credito.cod_plano - AND plano_analitica.exercicio = conta_debito_credito.exercicio - - LEFT JOIN contabilidade.valor_lancamento AS vl - ON conta_debito_credito.cod_lote = vl.cod_lote - AND conta_debito_credito.tipo = vl.tipo - AND conta_debito_credito.sequencia = vl.sequencia - AND conta_debito_credito.exercicio = vl.exercicio - AND conta_debito_credito.tipo_valor = vl.tipo_valor - AND conta_debito_credito.cod_entidade = vl.cod_entidade - - LEFT JOIN contabilidade.lancamento - ON lancamento.exercicio = vl.exercicio - AND lancamento.cod_entidade = vl.cod_entidade - AND lancamento.tipo = vl.tipo - AND lancamento.cod_lote = vl.cod_lote - AND lancamento.sequencia = vl.sequencia - - LEFT JOIN contabilidade.lancamento_receita - ON lancamento_receita.exercicio = lancamento.exercicio - AND lancamento_receita.cod_entidade = lancamento.cod_entidade - AND lancamento_receita.tipo = lancamento.tipo - AND lancamento_receita.cod_lote = lancamento.cod_lote - AND lancamento_receita.sequencia = lancamento.sequencia - - LEFT JOIN contabilidade.lote AS lo - ON vl.cod_lote = lo.cod_lote - AND vl.exercicio = lo.exercicio - AND vl.cod_entidade = lo.cod_entidade - AND lo.dt_lote BETWEEN TO_DATE('01/01/2014','dd/mm/yyyy') AND TO_DATE('31/01/2014','dd/mm/yyyy') - AND lo.exercicio = '2014' - - WHERE plano_banco.exercicio = '".$this->getDado('exercicio')."' - AND plano_banco.cod_entidade IN (".$this->getDado('entidades').") - AND SUBSTR(REPLACE(plano_conta.cod_estrutural, '.', ''), 1, 7) <> '1111101' - - GROUP BY cod_ctb - , banco.num_banco - , agencia.num_agencia - , plano_banco.conta_corrente - , tipo_aplicacao - , tipo_conta - , plano_banco.cod_entidade - , plano_recurso.cod_recurso - , plano_analitica.cod_plano - , plano_analitica.exercicio - , movimentacao - ) as c - WHERE movimentacao = 1 - GROUP BY c.tipo_registro - , c.cod_ctb - , c.tipo_aplicacao - , c.tipo_conta - , c.cod_orgao - , c.cod_recurso - , c.conta - , c.movimentacao - - ORDER BY c.cod_ctb "; + FROM (SELECT '20'::VARCHAR AS tipo_registro + , cod_ctb + , tipo_conta||regexp_replace((conta), '[-|,|.|x]', '', 'gi') AS cod_ctb_view + , tipo_aplicacao + , tipo_conta + , cod_orgao + , plano_recurso.cod_recurso + , plano_analitica.cod_plano + , plano_analitica.exercicio + , saldo_inicial.saldo_anterior AS vl_saldo_inicial_fonte + , saldo_inicial.saldo_atual AS vl_saldo_final_fonte + , CASE WHEN (vl_lancamento IS NOT NULL) THEN 1 END AS movimentacao + , conta + FROM tcemg.contasCTB('".$this->getDado('exercicio')."', '".$this->getDado('entidades')."') as retorno + ( cod_conta INTEGER + , tipo_aplicacao VARCHAR + , cod_ctb INTEGER + , tipo_conta INTEGER + , exercicio CHAR(4) + , conta TEXT + , conta_bancaria TEXT + , conta_corrente TEXT + , cod_orgao INTEGER + , banco VARCHAR + , agencia TEXT + , digito_verificador_agencia TEXT + , digito_verificador_conta_bancaria TEXT + , desc_conta_bancaria VARCHAR + ) + INNER JOIN contabilidade.plano_analitica + ON retorno.cod_conta = plano_analitica.cod_conta + AND retorno.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_banco + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + LEFT JOIN tcemg.convenio_plano_banco + ON convenio_plano_banco.cod_plano = plano_banco.cod_plano + AND convenio_plano_banco.exercicio = plano_banco.exercicio + INNER JOIN contabilidade.plano_recurso + ON plano_analitica.cod_plano = plano_recurso.cod_plano + AND plano_analitica.exercicio = plano_recurso.exercicio + LEFT JOIN ( SELECT cod_plano + , exercicio + , cod_lote + , tipo + , sequencia + , tipo_valor + , cod_entidade + , '1'::VARCHAR AS tipo_movimentacao + FROM contabilidade.conta_debito + UNION ALL + SELECT cod_plano + , exercicio + , cod_lote + , tipo + , sequencia + , tipo_valor + , cod_entidade + , '2'::VARCHAR AS tipo_movimentacao + FROM contabilidade.conta_credito + ) AS conta_debito_credito + ON plano_analitica.cod_plano = conta_debito_credito.cod_plano + AND plano_analitica.exercicio = conta_debito_credito.exercicio + LEFT JOIN contabilidade.valor_lancamento AS vl + ON conta_debito_credito.cod_lote = vl.cod_lote + AND conta_debito_credito.tipo = vl.tipo + AND conta_debito_credito.sequencia = vl.sequencia + AND conta_debito_credito.exercicio = vl.exercicio + AND conta_debito_credito.tipo_valor = vl.tipo_valor + AND conta_debito_credito.cod_entidade = vl.cod_entidade + LEFT JOIN contabilidade.lancamento + ON lancamento.exercicio = vl.exercicio + AND lancamento.cod_entidade = vl.cod_entidade + AND lancamento.tipo = vl.tipo + AND lancamento.cod_lote = vl.cod_lote + AND lancamento.sequencia = vl.sequencia + LEFT JOIN contabilidade.lancamento_receita + ON lancamento_receita.exercicio = lancamento.exercicio + AND lancamento_receita.cod_entidade = lancamento.cod_entidade + AND lancamento_receita.tipo = lancamento.tipo + AND lancamento_receita.cod_lote = lancamento.cod_lote + AND lancamento_receita.sequencia = lancamento.sequencia + LEFT JOIN contabilidade.lote AS lo + ON vl.cod_lote = lo.cod_lote + AND vl.exercicio = lo.exercicio + AND vl.cod_entidade = lo.cod_entidade + AND lo.dt_lote BETWEEN TO_DATE('".$this->getDado('dtInicio')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dtFim')."','dd/mm/yyyy') + AND lo.exercicio = '".$this->getDado('exercicio')."' + INNER JOIN ( SELECT * + , ((vl_debito - vl_credito) + saldo_anterior) as saldo_atual + FROM tesouraria.fn_relatorio_demostrativo_saldos( '".$this->getDado('exercicio')."', + '".$this->getDado('entidades')."', + '".$this->getDado('dtInicio')."', + '".$this->getDado('dtFim')."', + '', + '', + '', + '', + '', + 'S', + '', + '', + 'true' + ) as retorno( exercicio VARCHAR + ,cod_estrutural VARCHAR + ,cod_plano INTEGER + ,nom_conta VARCHAR + ,saldo_anterior NUMERIC + ,vl_credito NUMERIC + ,vl_debito NUMERIC + ,cod_recurso INTEGER + ,nom_recurso VARCHAR + ) + ) AS saldo_inicial + ON saldo_inicial.exercicio = plano_analitica.exercicio + AND saldo_inicial.cod_plano = plano_analitica.cod_plano + AND saldo_inicial.cod_recurso = plano_recurso.cod_recurso + WHERE plano_banco.exercicio = '".$this->getDado('exercicio')."' + AND plano_banco.cod_entidade IN (".$this->getDado('entidades').") + GROUP BY cod_ctb + , cod_ctb_view + , cod_orgao + , tipo_conta + , tipo_aplicacao + , plano_recurso.cod_recurso + , plano_analitica.cod_plano + , plano_analitica.exercicio + , movimentacao + , saldo_inicial.saldo_anterior + , saldo_inicial.saldo_atual + , conta + ORDER BY cod_ctb + ) AS c + -- WHERE movimentacao = 1 + GROUP BY c.tipo_registro + , c.cod_ctb + , c.cod_ctb_view + , c.tipo_aplicacao + , c.tipo_conta + , c.cod_orgao + , c.cod_recurso + , c.conta + , c.movimentacao + ORDER BY c.cod_ctb + "; return $stSql; } @@ -477,11 +309,9 @@ class TTCEMGCTB extends Persistente '21'::int AS tipo_registro , SUM(vl.vl_lancamento ) AS valor_entr_saida , plano_banco.cod_entidade as cod_orgao - , conta_bancaria.cod_ctb_anterior AS cod_ctb - , conta_bancaria.cod_tipo_aplicacao AS tipo_aplicacao - , CASE WHEN (pc.cod_estrutural LIKE '1.1.1.1.1.19%') THEN '1' - WHEN (pc.cod_estrutural LIKE '1.1.1.1.1.50%' OR pc.cod_estrutural LIKE '1.1.4%') THEN '2' - END AS tipo_conta + , conta_bancaria.cod_ctb + , conta_bancaria.tipo_aplicacao + , conta_bancaria.tipo_conta::VARCHAR , pa.exercicio , plano_recurso.cod_recurso AS cod_fonte_recursos , '1'::VARCHAR AS tipo_movimentacao @@ -565,16 +395,24 @@ class TTCEMGCTB extends Persistente ON plano_banco.cod_plano = pa.cod_plano AND plano_banco.exercicio = pa.exercicio - INNER JOIN monetario.agencia - ON agencia.cod_banco = plano_banco.cod_banco - AND agencia.cod_agencia = plano_banco.cod_agencia - - INNER JOIN monetario.banco - ON banco.cod_banco = plano_banco.cod_banco - - LEFT JOIN tcemg.conta_bancaria - ON conta_bancaria.cod_conta = pc.cod_conta - AND conta_bancaria.exercicio = pc.exercicio + LEFT JOIN tcemg.contasCTB('".$this->getDado('exercicio')."', '".$this->getDado('entidades')."') as conta_bancaria + ( cod_conta INTEGER + , tipo_aplicacao VARCHAR + , cod_ctb INTEGER + , tipo_conta INTEGER + , exercicio CHAR(4) + , conta TEXT + , conta_bancaria TEXT + , conta_corrente TEXT + , cod_orgao INTEGER + , banco VARCHAR + , agencia TEXT + , digito_verificador_agencia TEXT + , digito_verificador_conta_bancaria TEXT + , desc_conta_bancaria VARCHAR + ) + ON conta_bancaria.cod_conta = pc.cod_conta + AND conta_bancaria.exercicio = pc.exercicio INNER JOIN contabilidade.conta_debito AS cd ON pa.cod_plano = cd.cod_plano @@ -725,7 +563,7 @@ class TTCEMGCTB extends Persistente AND vl.tipo <> 'I' GROUP BY tipo_registro , cod_ctb - , conta_bancaria.cod_tipo_aplicacao + , conta_bancaria.tipo_aplicacao , tipo_conta , plano_banco.cod_entidade , plano_recurso.cod_recurso @@ -761,11 +599,9 @@ class TTCEMGCTB extends Persistente '21'::int AS tipo_registro , SUM(vl.vl_lancamento) * -1 as valor_entr_saida , plano_banco.cod_entidade as cod_orgao - , conta_bancaria.cod_ctb_anterior AS cod_ctb - , conta_bancaria.cod_tipo_aplicacao AS tipo_aplicacao - , CASE WHEN (pc.cod_estrutural LIKE '1.1.1.1.1.19%') THEN '1' - WHEN (pc.cod_estrutural LIKE '1.1.1.1.1.50%' OR pc.cod_estrutural LIKE '1.1.4%') THEN '2' - END AS tipo_conta + , conta_bancaria.cod_ctb + , conta_bancaria.tipo_aplicacao + , conta_bancaria.tipo_conta::VARCHAR , pa.exercicio , plano_recurso.cod_recurso as cod_fonte_recursos , '2'::VARCHAR AS tipo_movimentacao @@ -850,16 +686,24 @@ class TTCEMGCTB extends Persistente ON plano_banco.cod_plano = pa.cod_plano AND plano_banco.exercicio = pa.exercicio - INNER JOIN monetario.agencia - ON agencia.cod_banco = plano_banco.cod_banco - AND agencia.cod_agencia = plano_banco.cod_agencia - - INNER JOIN monetario.banco - ON banco.cod_banco = plano_banco.cod_banco - - LEFT JOIN tcemg.conta_bancaria - ON conta_bancaria.cod_conta = pc.cod_conta - AND conta_bancaria.exercicio = pc.exercicio + LEFT JOIN tcemg.contasCTB('".$this->getDado('exercicio')."', '".$this->getDado('entidades')."') as conta_bancaria + ( cod_conta INTEGER + , tipo_aplicacao VARCHAR + , cod_ctb INTEGER + , tipo_conta INTEGER + , exercicio CHAR(4) + , conta TEXT + , conta_bancaria TEXT + , conta_corrente TEXT + , cod_orgao INTEGER + , banco VARCHAR + , agencia TEXT + , digito_verificador_agencia TEXT + , digito_verificador_conta_bancaria TEXT + , desc_conta_bancaria VARCHAR + ) + ON conta_bancaria.cod_conta = pc.cod_conta + AND conta_bancaria.exercicio = pc.exercicio INNER JOIN contabilidade.conta_credito AS cc ON pa.cod_plano = cc.cod_plano @@ -1011,7 +855,7 @@ class TTCEMGCTB extends Persistente GROUP BY tipo_registro , cod_ctb - , conta_bancaria.cod_tipo_aplicacao + , conta_bancaria.tipo_aplicacao , tipo_conta , plano_banco.cod_entidade , plano_recurso.cod_recurso @@ -1048,7 +892,7 @@ class TTCEMGCTB extends Persistente , tipo_entr_saida , c.tipo_movimentacao , c.cod_fonte_recursos - , ABS(c.vlr_receita_cont) AS vlr_receita_cont + , ABS(SUM(c.vlr_receita_cont)) AS vlr_receita_cont FROM ( SELECT '22'::int AS tipo_registro , replace(pc.cod_estrutural,'.','') as cod_reduzido_mov , CASE WHEN (substr(conta_receita.cod_estrutural,1,1) = '9') THEN @@ -1066,16 +910,9 @@ class TTCEMGCTB extends Persistente END END AS natureza_receita , SUM(vl.vl_lancamento) as vlr_receita_cont - , plano_banco.cod_entidade as cod_orgao - , (banco.num_banco || agencia.num_agencia || plano_banco.conta_corrente) AS conta - , conta_bancaria.cod_ctb_anterior as cod_ctb - , banco.num_banco AS num_banco - , agencia.num_agencia AS num_agencia - , plano_banco.conta_corrente AS conta_corrente - , conta_bancaria.cod_tipo_aplicacao AS tipo_aplicacao - , CASE WHEN (pc.cod_estrutural LIKE '1.1.1.1.1.19%') THEN '1' - WHEN (pc.cod_estrutural LIKE '1.1.1.1.1.50%' OR pc.cod_estrutural LIKE '1.1.4%') THEN '2' - END AS tipo_conta + , conta_bancaria.cod_ctb + , conta_bancaria.tipo_aplicacao + , conta_bancaria.tipo_conta::VARCHAR , lo.tipo , CASE WHEN lo.tipo = 'A' AND SUBSTR(REPLACE(conta_receita.cod_estrutural, '.', ''), 1, 1) <> '9' AND lancamento_receita.estorno = false AND SUBSTR(REPLACE(conta_receita.cod_estrutural, '.', ''), 1, 4) <> '1325' THEN '01' @@ -1096,14 +933,24 @@ class TTCEMGCTB extends Persistente INNER JOIN contabilidade.plano_banco ON plano_banco.cod_plano = pa.cod_plano AND plano_banco.exercicio = pa.exercicio - INNER JOIN monetario.agencia - ON agencia.cod_banco = plano_banco.cod_banco - AND agencia.cod_agencia = plano_banco.cod_agencia - INNER JOIN monetario.banco - ON banco.cod_banco = plano_banco.cod_banco - LEFT JOIN tcemg.conta_bancaria - ON conta_bancaria.cod_conta = pc.cod_conta - AND conta_bancaria.exercicio = pc.exercicio + LEFT JOIN tcemg.contasCTB('".$this->getDado('exercicio')."', '".$this->getDado('entidades')."') as conta_bancaria + ( cod_conta INTEGER + , tipo_aplicacao VARCHAR + , cod_ctb INTEGER + , tipo_conta INTEGER + , exercicio CHAR(4) + , conta TEXT + , conta_bancaria TEXT + , conta_corrente TEXT + , cod_orgao INTEGER + , banco VARCHAR + , agencia TEXT + , digito_verificador_agencia TEXT + , digito_verificador_conta_bancaria TEXT + , desc_conta_bancaria VARCHAR + ) + ON conta_bancaria.cod_conta = pc.cod_conta + AND conta_bancaria.exercicio = pc.exercicio INNER JOIN ( SELECT cod_plano , exercicio @@ -1192,7 +1039,7 @@ class TTCEMGCTB extends Persistente AND plano_banco.cod_entidade IN (".$this->getDado('entidades').") AND lo.dt_lote BETWEEN TO_DATE('".$this->getDado('dtInicio')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dtFim')."','dd/mm/yyyy') - GROUP BY 2,3,4,5,7,8,9,10,11,12,13,14,15,16,17,18 + GROUP BY 2,3,4,5,7,8,9,10,11,12,13 ) AS c WHERE tipo_entr_saida != '99' GROUP BY c.tipo_registro @@ -1203,7 +1050,6 @@ class TTCEMGCTB extends Persistente , c.identificador_deducao , c.natureza_receita , c.tipo - , c.vlr_receita_cont , tipo_entr_saida , c.tipo_movimentacao , c.cod_fonte_recursos diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoEMP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoEMP.class.php new file mode 100644 index 0000000..4aa56da --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoEMP.class.php @@ -0,0 +1,69 @@ + +setTabela('tcemg.arquivo_emp'); + + $this->setCampoCod('exercicio'); + $this->setComplementoChave('cod_entidade, cod_empenho'); + + $this->AddCampo('exercicio' , 'varchar', true, 4, true, false); + $this->AddCampo('cod_entidade' , 'integer', false, '', false, true); + $this->AddCampo('cod_empenho' , 'integer', false, '', false, false); + $this->AddCampo('cod_licitacao' , 'integer', false, '', false, false); + $this->AddCampo('exercicio_licitacao' , 'varchar', false, 4, false, false); + $this->AddCampo('cod_modalidade' , 'integer', false, '', false, false); + + } + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoLOA.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoLOA.class.php index 2a78de8..883ca16 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoLOA.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoLOA.class.php @@ -113,6 +113,7 @@ class TTCEMGConfiguracaoLOA extends Persistente FROM tcemg.configuracao_loa INNER JOIN normas.norma ON norma.cod_norma = configuracao_loa.cod_norma + WHERE configuracao_loa.exercicio = '".$this->getDado('exercicio')."' "; return $stSql; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoOrgao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoOrgao.class.php index a412291..009b9d1 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoOrgao.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoOrgao.class.php @@ -32,7 +32,7 @@ * @ignore - $Id: TTCEMGConfiguracaoOrgao.class.php 61344 2015-01-08 19:03:39Z silvia $ + $Id: TTCEMGConfiguracaoOrgao.class.php 61647 2015-02-20 11:26:55Z luciana $ $Date: $ $Author: $ $Rev: $ @@ -260,50 +260,116 @@ class TTCEMGConfiguracaoOrgao extends Persistente public function montaRecuperaOrgaoResponsavel() { - $stSql = " SELECT 11 AS tipoRegistro - , configuracao_orgao.tipo_responsavel AS tipoResponsavel - , CGM_PF.rg AS cartIdent - , sw_uf.sigla_uf AS orgEmissorCi - , CGM_PF.cpf - , CASE WHEN configuracao_orgao.tipo_responsavel = 2 THEN - configuracao_orgao.crc_contador - ELSE - '' - END as crcContador - , CASE WHEN configuracao_orgao.tipo_responsavel = 2 THEN - configuracao_orgao.uf_crccontador - ELSE - '' - END as ufCrcContador - , CASE WHEN configuracao_orgao.tipo_responsavel = 4 THEN - configuracao_orgao.cargo_ordenador_despesa - ELSE - '' - END as cargoOrdDespDeleg - , CE.exercicio - , CE.cod_entidade - , CE.valor::integer AS CGM - , to_char(configuracao_orgao.dt_inicio, 'ddmmyyyy') AS dtInicio - , to_char(configuracao_orgao.dt_fim, 'ddmmyyyy') AS dtFinal - , CGM.e_mail AS email - , CE.cod_entidade||''||CE.exercicio AS chave - FROM administracao.configuracao_entidade as CE - JOIN tcemg.configuracao_orgao - ON configuracao_orgao.cod_entidade = CE.cod_entidade - AND configuracao_orgao.exercicio = CE.exercicio - LEFT JOIN sw_cgm_pessoa_fisica as CGM_PF - ON CGM_PF.numcgm = CE.valor::integer - LEFT JOIN sw_cgm as CGM - ON CGM.numcgm = CE.valor::integer - JOIN sw_uf - ON sw_uf.cod_uf = CGM_PF.cod_uf_orgao_emissor - WHERE CE.exercicio = '".$this->getDado('exercicio')."' - AND CE.cod_entidade IN (".$this->getDado('entidade').") - AND CE.parametro = 'tcemg_cgm_responsavel' "; + + $stSql = "SELECT 11 AS tipoRegistro + , configuracao_orgao.tipo_responsavel AS tipoResponsavel + , cgm_pf.rg AS cartIdent + , sw_uf.sigla_uf AS orgEmissorCi + , cgm_pf.cpf + , CASE WHEN configuracao_orgao.tipo_responsavel = 2 + THEN configuracao_orgao.crc_contador + ELSE '' + END as crcContador + , CASE WHEN configuracao_orgao.tipo_responsavel = 2 + THEN configuracao_orgao.uf_crccontador + ELSE '' + END AS ufCrcContador + , CASE WHEN configuracao_orgao.tipo_responsavel = 4 + THEN configuracao_orgao.cargo_ordenador_despesa + ELSE '' + END AS cargoOrdDespDeleg + , configuracao_entidade.exercicio + , configuracao_entidade.cod_entidade + , configuracao_orgao.num_cgm AS cgm + , CASE WHEN TO_CHAR(TO_DATE('".$this->getDado('dt_inicial')."','DD/MM/YYYY'), 'yyyymmdd') > TO_CHAR(dt_inicio, 'yyyymmdd') + THEN TO_CHAR(TO_DATE('".$this->getDado('dt_inicial')."','DD/MM/YYYY'), 'ddmmyyyy') + ELSE to_char(configuracao_orgao.dt_inicio, 'ddmmyyyy') + END AS dtInicio + , CASE WHEN TO_CHAR(TO_DATE('".$this->getDado('dt_final')."','DD/MM/YYYY'), 'yyyymmdd') < TO_CHAR(dt_fim, 'yyyymmdd') + THEN TO_CHAR(TO_DATE('".$this->getDado('dt_final')."','DD/MM/YYYY'), 'ddmmyyyy') + ELSE to_char(configuracao_orgao.dt_inicio, 'ddmmyyyy') + END AS dtfinal + , configuracao_orgao.email AS email + , configuracao_entidade.cod_entidade||''||configuracao_entidade.exercicio AS chave + + FROM administracao.configuracao_entidade + + INNER JOIN tcemg.configuracao_orgao + ON configuracao_orgao.cod_entidade = configuracao_entidade.cod_entidade + AND configuracao_orgao.exercicio = configuracao_entidade.exercicio + + LEFT JOIN sw_cgm_pessoa_fisica AS cgm_pf + ON cgm_pf.numcgm = configuracao_orgao.num_cgm + + LEFT JOIN sw_cgm AS cgm + ON cgm.numcgm = configuracao_orgao.num_cgm + + INNER JOIN sw_uf + ON sw_uf.cod_uf = cgm_pf.cod_uf_orgao_emissor + + WHERE configuracao_entidade.exercicio = '".$this->getDado('exercicio')."' + AND configuracao_entidade.cod_entidade IN (".$this->getDado('entidade').") + AND configuracao_entidade.parametro = 'tcemg_cgm_responsavel' + AND (TO_DATE('".$this->getDado('dt_inicial')."','DD/MM/YYYY') BETWEEN dt_inicio AND dt_fim + OR + TO_DATE('".$this->getDado('dt_final')."','DD/MM/YYYY') BETWEEN dt_inicio AND dt_fim + ) + "; + return $stSql; } + + function recuperaExportacaoOrgaoPlanejamento(&$rsRecordSet, $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaExportacaoOrgaoPlanejamento(); + $this->setDebug( $stSql); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + function montaRecuperaExportacaoOrgaoPlanejamento() + { + $stSql = " + SELECT codigo_unidade_gestora.cod_orgao + , tipo_unidade_gestora.tipo_orgao + , responsavel_unidade_gestora.cpf + + FROM ( SELECT valor AS cod_orgao + , cod_entidade + FROM administracao.configuracao_entidade + WHERE parametro = 'tcemg_codigo_orgao_entidade_sicom' + AND exercicio = '".Sessao::getExercicio()."' + ) AS codigo_unidade_gestora + + LEFT JOIN ( SELECT valor AS tipo_orgao + , cod_entidade + FROM administracao.configuracao_entidade + WHERE parametro = 'tcemg_tipo_orgao_entidade_sicom' + AND exercicio = '".Sessao::getExercicio()."' + ) AS tipo_unidade_gestora + ON tipo_unidade_gestora.cod_entidade = codigo_unidade_gestora.cod_entidade + + LEFT JOIN ( SELECT CGM_PF.cpf + , configuracao_orgao.cod_entidade + FROM tcemg.configuracao_orgao + INNER JOIN sw_cgm_pessoa_fisica as CGM_PF + ON CGM_PF.numcgm = configuracao_orgao.num_cgm + AND configuracao_orgao.tipo_responsavel = 1 + AND configuracao_orgao.exercicio = '".Sessao::getExercicio()."' + + ) as responsavel_unidade_gestora + ON responsavel_unidade_gestora.cod_entidade = codigo_unidade_gestora.cod_entidade + + WHERE codigo_unidade_gestora.cod_entidade IN (".$this->getDado('entidade').") "; + + return $stSql; + } - public function __destruct(){} + public function __destruct(){} } ?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGDemostrativoOpCredito.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGDemostrativoOpCredito.class.php new file mode 100644 index 0000000..9c75601 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGDemostrativoOpCredito.class.php @@ -0,0 +1,98 @@ + +AddCampo('exercicio' ,'varchar',false,'' ,false,false); + $this->AddCampo('cod_entidade' ,'varchar',false,'' ,false,false); + $this->AddCampo('mes' ,'integer',false,'' ,false,false); +} + +function montaRecuperaTodos() +{ + $stSql = " + SELECT + LPAD(mes::VARCHAR,2,'0') AS mes + , 'N' AS nada_declarar + , vl_imobiliaria_interna + , '0.00'::NUMERIC(14,2) AS vl_imobiliaria_externa + , vl_abertura_credito + , '0.00'::NUMERIC(14,2) AS vl_deriv_ppp + , '0.00'::NUMERIC(14,2) AS vl_aquis_fin + , '0.00'::NUMERIC(14,2) AS vl_pela_venda_ter_bs + , vl_dem_antec_receita + , '0.00'::NUMERIC(14,2) AS vl_assuncao_rec_conf_div + , '0.00'::NUMERIC(14,2) AS vl_outras_pper_credito + , vl_contrat_externa + , vl_parc_div_trib + , vl_parc_div_prev + , vl_parc_div_dem_cs + , vl_parc_div_fgts + , '0.00'::NUMERIC(14,2) AS vl_melhoria_adm_rec_gffp + , '0.00'::NUMERIC(14,2) AS vl_prog_ilum_pub + , '0.00'::NUMERIC(14,2) AS vl_amp_art9 + , '0.00'::NUMERIC(14,2) AS vl_oper_vedadas + FROM tcemg.demonstrativo_op_credito( '".$this->getDado("exercicio")."' + , 'Mes' + , ".$this->getDado("mes")." + , '".$this->getDado("cod_entidade")."' + ) AS tbl ( mes integer + ,vl_imobiliaria_interna numeric + ,vl_contrat_externa numeric + ,vl_abertura_credito numeric + ,vl_dem_antec_receita numeric + ,vl_parc_div_trib numeric + ,vl_parc_div_prev numeric + ,vl_parc_div_dem_cs numeric + ,vl_parc_div_fgts numeric + )"; + return $stSql; +} + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGEMP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGEMP.class.php index 63edc89..59a861a 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGEMP.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGEMP.class.php @@ -200,42 +200,59 @@ class TTCEMGEMP extends Persistente END AS despdeclicitacao , '' AS codorgaoresplicit - , CASE WHEN C_CD.cod_compra_direta IS NULL THEN - CASE WHEN E_AEVALOR.valor::INTEGER = 5 THEN - ' ' - ELSE - CASE WHEN L_LIC.cod_licitacao IS NOT NULL THEN - LPAD((LPAD(''||L_LIC.num_orgao,2, '0')||LPAD(''||L_LIC.num_unidade,2, '0')), 5, '0') - WHEN E_AEVALOR.valor::INTEGER = 14 THEN - LPAD((LPAD(''||RegPreco.num_orgao,2, '0')||LPAD(''||RegPreco.num_unidade,2, '0')), 5, '0') - END - END - END - AS codUnidadeSubRespLicit - , CASE WHEN C_CD.cod_compra_direta IS NULL THEN + , CASE WHEN E_AEVALOR.valor::INTEGER = 5 + THEN ' ' + ELSE CASE WHEN C_CD.cod_compra_direta IS NULL + THEN ' ' + ELSE CASE WHEN L_LIC.cod_licitacao IS NOT NULL + THEN LPAD((LPAD(''||L_LIC.num_orgao,2, '0')||LPAD(''||L_LIC.num_unidade,2, '0')), 5, '0') + WHEN E_AEVALOR.valor::INTEGER = 14 OR E_AEVALOR.valor::INTEGER = 4 + THEN LPAD((LPAD(''||RegPreco.num_orgao,2, '0')||LPAD(''||RegPreco.num_unidade,2, '0')), 5, '0') + END + END + END AS codUnidadeSubRespLicit + + + , CASE WHEN C_CD.cod_compra_direta IS NULL THEN CASE WHEN E_AEVALOR.valor::INTEGER = 5 THEN ' ' ELSE CASE WHEN L_LIC.cod_licitacao IS NOT NULL THEN L_LIC.exercicio::varchar||LPAD(''||L_LIC.cod_entidade::varchar,2, '0')||LPAD(''||L_LIC.cod_modalidade::varchar,2, '0')||LPAD(''||L_LIC.cod_licitacao::varchar,4, '0') - WHEN E_AEVALOR.valor::INTEGER = 14 THEN - RegPreco.exercicio_licitacao::varchar||LPAD(''||RegPreco.cod_entidade::varchar,2, '0')||LPAD(''||RegPreco.codigo_modalidade_licitacao::varchar,2, '0')||LPAD(''||RegPreco.numero_processo_licitacao ::varchar,4, '0') + + WHEN E_AEVALOR.valor::INTEGER = 14 OR E_AEVALOR.valor::INTEGER = 4 THEN + + CASE WHEN RegPreco.exercicio_licitacao IS NOT NULL THEN + RegPreco.exercicio_licitacao::varchar||LPAD(''||RegPreco.cod_entidade::varchar,2, '0')||LPAD(''||RegPreco.codigo_modalidade_licitacao::varchar,2, '0')||LPAD(''||RegPreco.numero_processo_licitacao ::varchar,4, '0') + ELSE + arquivo_emp.exercicio_licitacao::varchar||LPAD(''||arquivo_emp.cod_entidade::varchar,2, '0')||LPAD(''||arquivo_emp.cod_modalidade::varchar,2, '0')||LPAD(''||arquivo_emp.cod_licitacao ::varchar,4, '0') + END + + ELSE + arquivo_emp.exercicio_licitacao::varchar||LPAD(''||arquivo_emp.cod_entidade::varchar,2, '0')||LPAD(''||arquivo_emp.cod_modalidade::varchar,2, '0')||LPAD(''||arquivo_emp.cod_licitacao ::varchar,4, '0') END + END END - END - AS nroProcessoLicitatorio + AS nroProcessoLicitatorio + + , CASE WHEN C_CD.cod_compra_direta IS NULL THEN CASE WHEN E_AEVALOR.valor::INTEGER = 5 THEN ' ' ELSE CASE WHEN L_LIC.cod_licitacao IS NOT NULL THEN L_LIC.exercicio - WHEN E_AEVALOR.valor::INTEGER = 14 THEN - RegPreco.exercicio_licitacao - END + WHEN E_AEVALOR.valor::INTEGER = 14 OR E_AEVALOR.valor::INTEGER = 4 THEN + CASE WHEN RegPreco.exercicio_licitacao IS NOT NULL THEN + RegPreco.exercicio_licitacao + ELSE + arquivo_emp.exercicio_licitacao + END + END + END END - END - AS exercicioProcessoLicitatorio + AS exercicioProcessoLicitatorio + , CASE WHEN C_CD.cod_compra_direta IS NULL THEN CASE WHEN E_AEVALOR.valor::INTEGER = 5 THEN ' ' @@ -342,7 +359,7 @@ class TTCEMGEMP extends Persistente AND E_EA.cod_entidade=EE.cod_entidade AND E_EA.cod_empenho=EE.cod_empenho - LEFT JOIN empenho.autorizacao_empenho AS E_AE + LEFT JOIN empenho.autorizacao_empenho AS E_AE ON E_AE.exercicio=E_EA.exercicio AND E_AE.cod_entidade=E_EA.cod_entidade AND E_AE.cod_autorizacao=E_EA.cod_autorizacao @@ -396,6 +413,7 @@ class TTCEMGEMP extends Persistente AND E_AEVALOR.exercicio=EE.exercicio AND E_AEVALOR.valor=(select valor from empenho.atributo_empenho_valor where cod_pre_empenho=EE.cod_pre_empenho and atributo_empenho_valor.exercicio=EE.exercicio order by timestamp desc limit 1) AND E_AEVALOR.cod_atributo=101 + AND E_AEVALOR.cod_cadastro=1 LEFT JOIN tcemg.empenho_registro_precos ON empenho_registro_precos.cod_entidade=EE.cod_entidade @@ -406,6 +424,11 @@ class TTCEMGEMP extends Persistente ON RegPreco.numero_processo_adesao=empenho_registro_precos.numero_processo_adesao AND RegPreco.exercicio_adesao=empenho_registro_precos.exercicio_adesao AND RegPreco.cod_entidade=empenho_registro_precos.cod_entidade + + LEFT JOIN tcemg.arquivo_emp + ON arquivo_emp.exercicio = EE.exercicio + AND arquivo_emp.cod_empenho = EE.cod_empenho + AND arquivo_emp.cod_entidade = EE.cod_entidade WHERE EE.exercicio='".$this->getDado('exercicio')."' -- ENTRADA EXERCICIO AND EE.dt_empenho BETWEEN TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') --ENTRADA MES @@ -413,6 +436,7 @@ class TTCEMGEMP extends Persistente GROUP BY codOrgao,codunidadesub,codfuncao,codsubfuncao,codprograma,idacao,naturezadespesa,subelemento,nroempenho,dtempenho,modalidadeempenho,tpempenho,vlbruto,especificacaoempenho,despdeccontrato, codorgaorespcontrato,codunidadesubrespcontrato,nrocontrato,dataassinaturacontrato,nrosequencialtermoaditivo,despdecconvenio,nroconvenio,dataassinaturaconvenio,despdeclicitacao,nroProcessoLicitatorio, tipoProcesso,cpfOrdenador,C_CD.cod_compra_direta,tipo_objeto.cod_tipo_objeto,L_LIC.exercicio, exercicioProcessoLicitatorio, codUnidadeSubRespLicit "; + return $stSql; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGExtraOrcamentarias.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGExtraOrcamentarias.class.php index f5ee1fc..ef8c9ae 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGExtraOrcamentarias.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGExtraOrcamentarias.class.php @@ -269,9 +269,7 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita public function montaRecuperaExportacao21() { - $stSql = " - - SELECT tipo_registro + $stSql = "SELECT tipo_registro , LPAD( (cod_ext::varchar || dt_lancamento ) ,15,'0') AS cod_reduzido_mov , cod_ext , cod_font_recurso @@ -328,7 +326,7 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita AND valor_lancamento.cod_entidade = lote.cod_entidade AND valor_lancamento.tipo = lote.tipo AND valor_lancamento.cod_lote = lote.cod_lote - AND valor_lancamento.tipo_valor = 'C' + AND valor_lancamento.tipo_valor = 'C' JOIN contabilidade.conta_credito ON conta_credito.exercicio = valor_lancamento.exercicio @@ -346,14 +344,19 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita ON lote.exercicio = plano_analitica.exercicio AND lote.cod_plano = plano_analitica.cod_plano AND lote.tipo = transferencia.tipo - AND lote.cod_entidade = transferencia.cod_entidade + AND lote.cod_entidade = transferencia.cod_entidade AND lote.cod_lote = transferencia.cod_lote - - JOIN contabilidade.plano_recurso + "; + if($this->getDado('exercicio')>'2014') + $stSql .= " LEFT JOIN contabilidade.plano_recurso "; + else + $stSql .= " INNER JOIN contabilidade.plano_recurso "; + + $stSql .= " ON plano_recurso.cod_plano = lote.cod_plano AND plano_recurso.exercicio = lote.exercicio - WHERE balancete_extmmaa.exercicio = '".$this->getDado('exercicio')."' + WHERE balancete_extmmaa.exercicio = '".$this->getDado('exercicio')."' AND transferencia.cod_entidade IN (".$this->getDado('entidades').") AND lote.dt_lote BETWEEN TO_DATE('".$this->getDado('dt_inicial')."', 'dd/mm/yyyy') and TO_DATE('".$this->getDado('dt_final')."', 'dd/mm/yyyy') AND transferencia.cod_tipo = 2 @@ -427,10 +430,10 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita ON lote.exercicio = plano_analitica.exercicio AND lote.cod_plano = plano_analitica.cod_plano AND lote.tipo = transferencia.tipo - AND lote.cod_entidade = transferencia.cod_entidade + AND lote.cod_entidade = transferencia.cod_entidade AND lote.cod_lote = transferencia.cod_lote - JOIN contabilidade.plano_recurso + LEFT JOIN contabilidade.plano_recurso ON plano_recurso.cod_plano = lote.cod_plano AND plano_recurso.exercicio = lote.exercicio @@ -455,13 +458,12 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita public function montaRecuperaExportacao22() { - $stSql = " - SELECT + $stSql = "SELECT 22 AS tipo_registro , LPAD( (balancete_extmmaa.cod_plano::varchar || TO_CHAR(lote.dt_lote, 'ddmmyyyy') ) ,15,'0') AS cod_reduzido_mov , COALESCE(lote.vl_lancamento,0.00) AS vl_op , tcemg.seq_num_op_extra(transferencia.exercicio,transferencia.cod_entidade,1,transferencia.cod_lote)::varchar AS cod_reduzido_op - , tcemg.seq_num_op_extra(transferencia.exercicio,transferencia.cod_entidade,1,transferencia.cod_lote)::varchar||balancete_extmmaa.cod_plano||TO_CHAR(lote.dt_lote, 'ddmmyyyy') AS num_op + , tcemg.seq_num_op_extra(transferencia.exercicio,transferencia.cod_entidade,1,transferencia.cod_lote)::varchar||balancete_extmmaa.cod_plano||TO_CHAR(lote.dt_lote, 'ddmmyyyy') AS num_op , COALESCE(documento.nro_documento::varchar,' ') AS num_documento_credor , remove_acentos(plano_conta.nom_conta) AS especificacao_op , documento.tipo AS tipo_documento_credor @@ -500,11 +502,11 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita AND conta_debito.sequencia = valor_lancamento.sequencia AND valor_lancamento.tipo = 'T' - WHERE lote.exercicio = '2014' AND lote.tipo = 'T' + WHERE lote.exercicio = '".$this->getDado('exercicio')."' AND lote.tipo = 'T' AND lote.dt_lote BETWEEN TO_DATE ('".$this->getDado('dt_inicial')."', 'dd/mm/yyyy') and TO_DATE ('".$this->getDado('dt_final')."', 'dd/mm/yyyy') GROUP BY 1,2,3,4,5,6,7 ORDER BY lote.cod_lote - ) AS lote + ) AS lote ON lote.exercicio = plano_analitica.exercicio AND lote.cod_plano = plano_analitica.cod_plano AND lote.tipo = transferencia.tipo @@ -529,7 +531,7 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita AND configuracao_entidade.cod_modulo = 55 AND configuracao_entidade.parametro = 'tcemg_codigo_orgao_entidade_sicom' - LEFT JOIN (SELECT cpf + LEFT JOIN (SELECT cpf , uniorcam.exercicio FROM sw_cgm_pessoa_fisica @@ -538,52 +540,64 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita ON uniorcam.cgm_ordenador = sw_cgm_pessoa_fisica.numcgm AND uniorcam.num_orgao = 02 AND uniorcam.num_unidade = 01 - ) AS cpfrespop + ) AS cpfrespop ON cpfrespop.exercicio = balancete_extmmaa.exercicio - LEFT JOIN tesouraria.recibo_extra_transferencia AS RET - ON RET.exercicio = plano_analitica.exercicio - AND RET.cod_lote= transferencia.cod_lote - AND RET.tipo = transferencia.tipo - - JOIN tesouraria.recibo_extra AS RE - ON RE.exercicio = RET.exercicio - AND RE.cod_entidade= RET.cod_entidade - AND RE.cod_recibo_extra = RET.cod_recibo_extra - AND RE.tipo_recibo = 'D' - - LEFT JOIN tesouraria.recibo_extra_credor AS REC + LEFT JOIN tesouraria.recibo_extra_transferencia AS RET + ON RET.exercicio = plano_analitica.exercicio + AND RET.cod_lote= transferencia.cod_lote + AND RET.tipo = transferencia.tipo + AND RET.cod_entidade = transferencia.cod_entidade "; + + if($this->getDado('exercicio') <= '2014'){ + $stSql .= " + JOIN tesouraria.recibo_extra AS RE + ON RE.exercicio = RET.exercicio + AND RE.cod_entidade = RET.cod_entidade + AND RE.cod_recibo_extra = RET.cod_recibo_extra + AND RE.tipo_recibo = 'D' + "; + }else{ + $stSql .= " + LEFT JOIN tesouraria.recibo_extra AS RE + ON plano_analitica.cod_plano = RE.cod_plano + AND plano_analitica.exercicio = RE.exercicio + AND RE.tipo_recibo = 'D' + "; + } + + $stSql .= " + LEFT JOIN tesouraria.recibo_extra_credor AS REC ON REC.exercicio = RE.exercicio AND REC.cod_entidade= RE.cod_entidade AND REC.cod_recibo_extra = RE.cod_recibo_extra AND REC.tipo_recibo = 'D' - LEFT JOIN (SELECT sw_cgm.numcgm - , CASE WHEN (sw_cgm.numcgm = sw_cgm_pessoa_fisica.numcgm) THEN 1 - WHEN (sw_cgm.numcgm = sw_cgm_pessoa_juridica.numcgm) THEN 2 - WHEN (sw_cgm.cod_pais != sw_pais.cod_pais) THEN 3 - END as tipo - , CASE WHEN (sw_cgm.numcgm = sw_cgm_pessoa_fisica.numcgm) THEN sw_cgm_pessoa_fisica.cpf - WHEN (sw_cgm.numcgm = sw_cgm_pessoa_juridica.numcgm) THEN sw_cgm_pessoa_juridica.cnpj - WHEN (sw_cgm.cod_pais != sw_pais.cod_pais) THEN 0000000000::TEXT - END AS nro_documento - + LEFT JOIN (SELECT sw_cgm.numcgm + , CASE WHEN (sw_cgm.numcgm = sw_cgm_pessoa_fisica.numcgm) THEN 1 + WHEN (sw_cgm.numcgm = sw_cgm_pessoa_juridica.numcgm) THEN 2 + WHEN (sw_cgm.cod_pais != sw_pais.cod_pais) THEN 3 + END as tipo + , CASE WHEN (sw_cgm.numcgm = sw_cgm_pessoa_fisica.numcgm) THEN sw_cgm_pessoa_fisica.cpf + WHEN (sw_cgm.numcgm = sw_cgm_pessoa_juridica.numcgm) THEN sw_cgm_pessoa_juridica.cnpj + WHEN (sw_cgm.cod_pais != sw_pais.cod_pais) THEN 0000000000::TEXT + END AS nro_documento FROM sw_cgm - + JOIN sw_pais ON sw_pais.cod_pais = sw_cgm.cod_pais - LEFT JOIN sw_cgm_pessoa_fisica - ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + LEFT JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm - LEFT JOIN sw_cgm_pessoa_juridica - ON sw_cgm_pessoa_juridica.numcgm = sw_cgm.numcgm - ) AS documento - ON documento.numcgm = REC.numcgm + LEFT JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = sw_cgm.numcgm + ) AS documento + ON documento.numcgm = REC.numcgm - WHERE balancete_extmmaa.exercicio = '".$this->getDado('exercicio')."' - AND transferencia.cod_entidade IN (".$this->getDado('entidades').") - AND transferencia.cod_tipo = 1 + WHERE balancete_extmmaa.exercicio = '".$this->getDado('exercicio')."' + AND transferencia.cod_entidade IN (".$this->getDado('entidades').") + AND transferencia.cod_tipo = 1 GROUP BY tipo_registro, cod_reduzido_mov, vl_op, especificacao_op, cod_reduzido_op, num_op, num_documento_credor, especificacao_op, cpf_responsavel, dt_pagamento, tipo_documento_credor @@ -685,12 +699,21 @@ class TTCEMGExtraOrcamentarias extends TOrcamentoContaReceita JOIN contabilidade.conta_debito ON plano_analitica.exercicio = conta_debito.exercicio - AND plano_analitica.cod_plano = conta_debito.cod_plano - - JOIN contabilidade.plano_recurso - ON plano_recurso.exercicio = balancete_extmmaa.exercicio - AND plano_recurso.cod_plano = balancete_extmmaa.cod_plano - + AND plano_analitica.cod_plano = conta_debito.cod_plano "; + + if($this->getDado('exercicio') <= '2014'){ + $stSql .= " JOIN contabilidade.plano_recurso + ON plano_recurso.exercicio = balancete_extmmaa.exercicio + AND plano_recurso.cod_plano = balancete_extmmaa.cod_plano + "; + }else{ + $stSql .= " + LEFT JOIN contabilidade.plano_recurso + ON plano_recurso.exercicio = balancete_extmmaa.exercicio + AND plano_recurso.cod_plano = balancete_extmmaa.cod_plano + "; + } + $stSql .= " LEFT JOIN ( SELECT conta_debito.cod_lote , conta_debito.tipo diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php index e5b1fc4..9808800 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php @@ -119,6 +119,7 @@ class TTCEMGMetasFiscais extends Persistente , REPLACE(percentual_pib_divida_consolidada_liquida::VARCHAR, '.', ',') AS percentual_pib_divida_consolidada_liquida FROM tcemg.metas_fiscais WHERE exercicio::INTEGER IN (".$this->getDado('exercicio').") + ORDER BY exercicio "; return $stSql; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRegistrosArquivoPrograma.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRegistrosArquivoPrograma.class.php index 4785372..c754bc5 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRegistrosArquivoPrograma.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRegistrosArquivoPrograma.class.php @@ -35,10 +35,10 @@ * * Casos de uso: uc-02.09.04 * - * $Id: TTCEMGRegistrosArquivoPrograma.class.php 59820 2014-09-12 18:17:20Z luciana $ - * $Revision: 59820 $ + * $Id: TTCEMGRegistrosArquivoPrograma.class.php 61647 2015-02-20 11:26:55Z luciana $ + * $Revision: 61647 $ * $Author: luciana $ - * $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * */ @@ -76,18 +76,19 @@ class TTCEMGRegistrosArquivoPrograma extends Persistente private function montaRecuperaTotalRecursos($stFiltro = '', $stOrdem = '') { - $stSql = " - SELECT * - FROM tcemg.recupera_ppa_programa('".$this->getDado('exercicio')."', ".$this->getDado('boReemissao').") - AS retorno ( - cod_programa INTEGER, - nome_programa VARCHAR, - objetivo VARCHAR, - total_recursos_ano_1 VARCHAR, - total_recursos_ano_2 VARCHAR, - total_recursos_ano_3 VARCHAR, - total_recursos_ano_4 VARCHAR - ); + $stSql = " SELECT * + FROM tcemg.recupera_ppa_programa('".$this->getDado('exercicio')."', ".$this->getDado('boReemissao').") + AS retorno ( + cod_programa INTEGER + ,num_programa INTEGER + ,nome_programa VARCHAR + ,objetivo VARCHAR + ,total_recursos_ano_1 VARCHAR + ,total_recursos_ano_2 VARCHAR + ,total_recursos_ano_3 VARCHAR + ,total_recursos_ano_4 VARCHAR + ) + ORDER BY num_programa "; return $stSql; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRestosPagar.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRestosPagar.class.php index 6c4f212..226f400 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRestosPagar.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRestosPagar.class.php @@ -79,7 +79,7 @@ class TTCEMGRestosPagar extends Persistente , empenho.exercicio as exercicio_empenho , CASE WHEN restos_pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho THEN CASE WHEN restos_pre_empenho.exercicio >= '2013' THEN '' - WHEN configuracao_entidade.exercicio = '2014' THEN '' + WHEN pre_empenho.exercicio = '2014' THEN '' ELSE LPAD(restos_pre_empenho.cod_funcao::VARCHAR,2,'0')||LPAD(restos_pre_empenho.cod_subfuncao::VARCHAR,3,'0')||LPAD(restos_pre_empenho.cod_programa::VARCHAR,4,'0')||LPAD(restos_pre_empenho.num_pao::VARCHAR,4,'0')||LPAD(restos_pre_empenho.cod_estrutural,8,'0') END END AS dot_orig diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGExportacaoArquivosPlanejamento.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGExportacaoArquivosPlanejamento.class.php index 2053e69..b06cc85 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGExportacaoArquivosPlanejamento.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGExportacaoArquivosPlanejamento.class.php @@ -56,6 +56,7 @@ include_once CAM_GA_ADM_MAPEAMENTO.'TAdministracaoConfiguracao.class.php'; include_once CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGAMP.class.php"; include_once CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGArquivoAMP.class.php"; include_once CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGArquivoUOC.class.php"; +include_once CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGConfiguracaoOrgao.class.php"; /** * Classe de Regra para geração de arquivo de planejamento para o ExportacaoTCE-MG @@ -82,6 +83,8 @@ class RTCEMGExportacaoArquivosPlanejamento public $obTTCEMGRegistrosArquivoPrograma; public $obTTCEMGArquivoAMP; public $obTTCEMGArquivoUOC; + public $obTTCEMGConfiguracaoOrgao; + /** * Metodo Construtor @@ -107,6 +110,7 @@ class RTCEMGExportacaoArquivosPlanejamento $this->obTTCEMGArquivoAMP = new TTCEMGArquivoAMP; $this->obTTCEMGArquivoUOC = new TTCEMGArquivoUOC; $this->obTTCEMGRegistrosArquivoPrograma = new TTCEMGRegistrosArquivoPrograma; + $this->obTTCEMGConfiguracaoOrgao = new TTCEMGConfiguracaoOrgao; } // SETANDO @@ -145,7 +149,7 @@ class RTCEMGExportacaoArquivosPlanejamento } //Tipo Registro 12 - $rsAdminConfiguracao = new Recordset(); + /*$rsAdminConfiguracao = new Recordset(); $obTAdministracaoConfiguracao = new TAdministracaoConfiguracao(); $obTAdministracaoConfiguracao->setDado('exercicio', Sessao::getExercicio()); $obTAdministracaoConfiguracao->setDado('parametro', 'cod_entidade_prefeitura'); @@ -166,9 +170,11 @@ class RTCEMGExportacaoArquivosPlanejamento SistemaLegado::alertaAviso("FLExportarArquivosPlanejamento.php?".Sessao::getId()."&stAcao=$stAcao", "As configuração de Orgão não está configuradas. Por favor configurar a Entidade (".$rsAdminConfiguracao2->getCampo('valor').").", "", "aviso", Sessao::getId(), "../"); die; - } + }*/ + - $this->obTTCEMGAMP->setDado('cod_orgao',$rsAdminConfigEntidade->getCampo('valor')); + $this->obTTCEMGAMP->setDado('entidades', $this->getCodEntidades()); + //$this->obTTCEMGAMP->setDado('cod_orgao',$rsAdminConfigEntidade->getCampo('valor')); $this->obTTCEMGAMP->recuperaDadosExportacaoTipo12($rsRecordSet12); $arRecordSetArquivos["AMP12"] = $rsRecordSet12; @@ -181,13 +187,13 @@ class RTCEMGExportacaoArquivosPlanejamento $this->obTPPAAcao->setDado('entidades', $this->getCodEntidades()); $this->obTPPAAcao->setDado('exercicio', $this->getExercicio()); $this->obTPPAAcao->recuperaDadosExportacaoDespesa($rsRecordSet10); - + $arRecordSetArquivos["DSP10"] = $rsRecordSet10; //Tipo Registro 11 $this->obTPPAAcao->setDado('entidades', $this->getCodEntidades()); $this->obTPPAAcao->recuperaDadosExportacaoDespesaFonteRecurso($rsRecordSet11); - + $arRecordSetArquivos["DSP11"] = $rsRecordSet11; } @@ -221,7 +227,9 @@ class RTCEMGExportacaoArquivosPlanejamento while ($inIndex < 3) { $this->obTTCEMGConfiguracaoLOA->setDado('tipo', $inIndex+1); + $this->obTTCEMGConfiguracaoLOA->setDado('exercicio', Sessao::getExercicio()); $this->obTTCEMGConfiguracaoLOA->recuperaRegistro11( $rsRecordSet11 ); + $arRecordSet11[] = $rsRecordSet11->arElementos[0]; $inIndex++; } @@ -265,9 +273,9 @@ class RTCEMGExportacaoArquivosPlanejamento } if (in_array("ORGAO.csv",$this->getArquivos())) { - $this->obTAdministracaoConfiguracaoEntidade->setDado('entidades', $this->getCodEntidades()); - $this->obTAdministracaoConfiguracaoEntidade->recuperaExportacaoOrgao($rsRecordSet); - + $this->obTTCEMGConfiguracaoOrgao->setDado('entidade', $this->getCodEntidades()); + $this->obTTCEMGConfiguracaoOrgao->recuperaExportacaoOrgaoPlanejamento($rsRecordSet); + $arRecordSetArquivos["ORGAO.csv"] = $rsRecordSet; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGRelatorioDespesaTotalPessoal.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGRelatorioDespesaTotalPessoal.class.php index ea2fb84..7fbb6b4 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGRelatorioDespesaTotalPessoal.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGRelatorioDespesaTotalPessoal.class.php @@ -109,14 +109,14 @@ class RTCEMGRelatorioDespesaTotalPessoal{ $rsDespesas = new RecordSet(); $rsDespesasExclusoes = new RecordSet(); $rsDespesas2013 = new RecordSet(); - + list( $dia, $mes, $ano ) = explode( "/", $this->getDataInicial() ); - if($this->getExercicio() == '2014' ){ + if($this->getExercicio() == '2014' ) { $obTSTNDespesaPessoal = new TSTNDespesaPessoal(); $obTSTNDespesaPessoal->setDado( "exercicio" , $this->getExercicio() ); $obTSTNDespesaPessoal->setDado( "cod_entidades" , $this->getCodEntidades()); - $obTSTNDespesaPessoal->setDado( "mes" , (int)$mes); - $obTSTNDespesaPessoal->listValorEntidade( $rsDespesas2013); + $obTSTNDespesaPessoal->setDado( "mes" , (int)$mes); + $obTSTNDespesaPessoal->listValorEntidade( $rsDespesas2013 ); $obTSTNDespesaPessoal->debug(); $inCountDespesas2013 = 1; $arDemostrativoDespesa2013 = array(); @@ -124,14 +124,26 @@ class RTCEMGRelatorioDespesaTotalPessoal{ foreach( $rsDespesas2013->getElementos() as $arDespesas2013 ) { - $arDemostrativoDespesa2013["nom_conta"] = 'DESPESAS TOTAL COM PESSOAL EM 2013'; + $arDemostrativoDespesa2013["nom_conta"] = 'DESPESAS TOTAL COM PESSOAL EM 2013'; $arDemostrativoDespesa2013["entidade"] = $arDespesas2013["cod_entidade"]; $vlTotalDespesas2013Total = $vlTotalDespesas2013Total+ $arDespesas2013["valor"]; - $inMes = $arDespesas2013["mes"] -1; + + if ($_REQUEST['stPeriodicidade' ] == "Mes"){ + $inMes = $arDespesas2013["mes"] - $mes; + } elseif ($_REQUEST['stPeriodicidade' ] == "Bimestre") { + $inMes = $arDespesas2013["mes"]-($mes+1); + } elseif ($_REQUEST['stPeriodicidade' ] == "Trimestre") { + $inMes = $arDespesas2013["mes"]-($mes+2); + } elseif ($_REQUEST['stPeriodicidade' ] == "Quadrimestre") { + $inMes = $arDespesas2013["mes"]-($mes+3); + } elseif ($_REQUEST['stPeriodicidade' ] == "Semestre") { + $inMes = $arDespesas2013["mes"] - ($mes+5); + } + $idMes = 'mes_'.$inMes; switch ($arDespesas2013["mes"]) { case 1: - $arDemostrativoDespesa2013[$idMes] = number_format($arDespesas2013["valor"] , 2, ',','.'); + $arDemostrativoDespesa2013[$idMes] = number_format($arDespesas2013["valor"] , 2, ',','.'); $arDespesa2013[$idMes] =$arDespesas2013["valor"]; break; case 2: @@ -185,6 +197,7 @@ class RTCEMGRelatorioDespesaTotalPessoal{ $inCountDespesas2013 = 0; } + $vlTotalDespesas2013Mes1 = ($this->getExercicio() == 2014 && $arDespesa2013["mes_1"] != "" ) ? $arDespesa2013["mes_1"]:0; $vlTotalDespesas2013Mes2 = ($this->getExercicio() == 2014 && $arDespesa2013["mes_2"] != "" ) ? $arDespesa2013["mes_2"]:0; $vlTotalDespesas2013Mes3 = ($this->getExercicio() == 2014 && $arDespesa2013["mes_3"] != "" ) ? $arDespesa2013["mes_3"]:0; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/FMManterConfiguracaoEMP.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/FMManterConfiguracaoEMP.php new file mode 100644 index 0000000..9b9eda1 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/FMManterConfiguracaoEMP.php @@ -0,0 +1,191 @@ + +recuperaTodos($rsConfiguracaoEMP, "", ""); + +Sessao::write('arListaEmpenho', array()); + +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( "manter" ); + +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setValue( $_REQUEST['stCtrl'] ); + +$obHdnId = new Hidden; +$obHdnId->setName( "inId" ); +$obHdnId->setId ( "inId" ); + +$obTxtExercicio = new TextBox; +$obTxtExercicio->setName ( "stExercicio" ); +$obTxtExercicio->setId ( "stExercicio" ); +$obTxtExercicio->setValue ( Sessao::getExercicio() ); +$obTxtExercicio->setRotulo ( "Exercício" ); +$obTxtExercicio->setTitle ( "Informe o exercício." ); +$obTxtExercicio->setInteiro ( false ); +$obTxtExercicio->setMaxLength( 4 ); +$obTxtExercicio->setSize ( 5 ); +$obTxtExercicio->obEvento->setOnChange( "montaParametrosGET('limparFormEmpenho');"); + +$obEntidadeUsuario = new ITextBoxSelectEntidadeUsuario; +$obEntidadeUsuario->setCodEntidade($_REQUEST['cod_entidade']); +$obEntidadeUsuario->obTextBox->obEvento->setOnBlur( "montaParametrosGET('limparFormEmpenhoEntidade');"); + +// Define objeto BuscaInner para descrição e codigo do empenho +$obTxtCodEmpenho = new BuscaInner; +$obTxtCodEmpenho->setTitle ( "Informe o número do empenho."); +$obTxtCodEmpenho->setRotulo ( "Número do Empenho" ); +$obTxtCodEmpenho->setId ( "stDescEmpenho" ); +if (isset($stDescEmpenho)) { + $obTxtCodEmpenho->setValue ( $stDescEmpenho ); +} +$obTxtCodEmpenho->setNull ( true ); +$obTxtCodEmpenho->obCampoCod->setName ( "inCodEmpenho"); +$obTxtCodEmpenho->obCampoCod->setId ( "inCodEmpenho"); +$obTxtCodEmpenho->obCampoCod->setSize ( 10 ); +$obTxtCodEmpenho->obCampoCod->setMaxLength ( 10 ); +$obTxtCodEmpenho->obCampoCod->setInteiro ( true ); +$obTxtCodEmpenho->obCampoCod->obEvento->setOnBlur ( "validaEmpenho(this);" ); +$obTxtCodEmpenho->setFuncaoBusca("abrePopUp('".CAM_GF_EMP_POPUPS."empenho/FLEmpenho.php','frm','inCodEmpenho','stDescEmpenho','buscaTodosEmpenhos&inCodEntidade='+document.frm.inCodEntidade.value+'&stCampoExercicio=stExercicio&stExercicioEmpenho='+document.frm.stExercicio.value,'".Sessao::getId()."','800','550');"); + +$obTxtExercicioLicitacao = new TextBox; +$obTxtExercicioLicitacao->setName ( "stExercicioLicitacao" ); +$obTxtExercicioLicitacao->setId ( "stExercicioLicitacao" ); +$obTxtExercicioLicitacao->setRotulo ( "Exercício do Processo Licitatório" ); +$obTxtExercicioLicitacao->setTitle ( "Informe o exercício do Processo Licitatório." ); +$obTxtExercicioLicitacao->setInteiro ( true ); +$obTxtExercicioLicitacao->setMaxLength( 4 ); +$obTxtExercicioLicitacao->setSize ( 5 ); + +$obTxtCodLicitacao = new TextBox; +$obTxtCodLicitacao->setName ( "inCodLicitacao" ); +$obTxtCodLicitacao->setId ( "inCodLicitacao" ); +$obTxtCodLicitacao->setRotulo ( "Número do Processo Licitatório" ); +$obTxtCodLicitacao->setTitle ( "Informe o Número do Processo Licitatório." ); +$obTxtCodLicitacao->setInteiro ( true ); +$obTxtCodLicitacao->setMaxLength( 5 ); +$obTxtCodLicitacao->setSize ( 10 ); + +$obComprasModalidade = new TComprasModalidade(); +$obComprasModalidade->recuperaTodos($rsRecordSet); + +$obISelectModalidadeLicitacao = new Select(); +$obISelectModalidadeLicitacao->setRotulo ( "Modalidade" ); +$obISelectModalidadeLicitacao->setTitle ( "Selecione a modalidade." ); +$obISelectModalidadeLicitacao->setName ( "inCodModalidade" ); +$obISelectModalidadeLicitacao->setId ( "inCodModalidade" ); +$obISelectModalidadeLicitacao->setCampoID ( "cod_modalidade" ); +$obISelectModalidadeLicitacao->addOption ( "","Selecione" ); +$obISelectModalidadeLicitacao->setCampoDesc ( "[cod_modalidade] - [descricao]" ); +$obISelectModalidadeLicitacao->preencheCombo( $rsRecordSet ); + +$obBtnIncluir = new Button; +$obBtnIncluir->setValue ( "Incluir Empenho" ); +$obBtnIncluir->setName ( "btnIncluir" ); +$obBtnIncluir->setId ( "btnIncluir" ); +$obBtnIncluir->obEvento->setOnClick ( "montaParametrosGET('incluirEmpenho','inId, stExercicio, inCodEntidade, inCodEmpenho, stExercicioLicitacao, inCodLicitacao, inCodModalidade');" ); + +$obBtnLimpar = new Button; +$obBtnLimpar->setName ( "btnLimpar"); +$obBtnLimpar->setId ( "limpar" ); +$obBtnLimpar->setValue ( "Limpar" ); +$obBtnLimpar->obEvento->setOnClick ( "montaParametrosGET('limparFormEmpenho');" ); + +$spnLista = new Span; +$spnLista->setId ( 'spnListaEmpenho' ); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addTitulo( "Configuração do Arquivo EMP" ); +$obFormulario->addForm ( $obForm ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnId ); +$obFormulario->addComponente( $obTxtExercicio ); +$obFormulario->addComponente( $obEntidadeUsuario ); +$obFormulario->addComponente( $obTxtCodEmpenho ); +$obFormulario->addComponente( $obTxtExercicioLicitacao ); +$obFormulario->addComponente( $obTxtCodLicitacao ); +$obFormulario->addComponente( $obISelectModalidadeLicitacao ); +$obFormulario->agrupaComponentes( array( $obBtnIncluir, $obBtnLimpar ),"","" ); + +$obFormulario->addSpan ( $spnLista ); + +$obOk = new Ok(); +//$obOk->obEvento->setOnClick("ValidaNF();"); +// +//$obCancelar = new Cancelar(); +//if ($_REQUEST['stAcao'] == 'incluir') { +// $obCancelar->obEvento->setOnClick("Cancelar('".$pgForm.'?'.Sessao::getId().'&stAcao='.$_REQUEST['stAcao'] ."','telaPrincipal');"); +//} else { +// $obCancelar->obEvento->setOnClick("Cancelar('".$pgList.'?'.Sessao::getId().'&stAcao='.$_REQUEST['stAcao'].$stLink ."','telaPrincipal');"); +//} +// +$obFormulario->defineBarra(array( $obOk/*, $obCancelar*/ )); + +$jsOnload = "montaParametrosGET('carregaDados','');"; + +$obFormulario->show(); +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/JSManterConfiguracaoEMP.js b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/JSManterConfiguracaoEMP.js new file mode 100644 index 0000000..742a226 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/JSManterConfiguracaoEMP.js @@ -0,0 +1,53 @@ + \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/OCManterConfiguracaoEMP.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/OCManterConfiguracaoEMP.php new file mode 100644 index 0000000..bc5df80 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/OCManterConfiguracaoEMP.php @@ -0,0 +1,450 @@ + +setDescricao("Este Empenho já está na lista!"); + } + } + + $obComprasModalidade = new TComprasModalidade(); + $obComprasModalidade->setDado('cod_modalidade', $_REQUEST['inCodModalidade']); + $obComprasModalidade->recuperaPorChave($rsModalidade); + + $obTOrcamentoEntidade = new TOrcamentoEntidade; + $obTOrcamentoEntidade->recuperaRelacionamento($rsEntidade, " AND E.cod_entidade = ".$_REQUEST['inCodEntidade']." AND E.exercicio = '".Sessao::getExercicio()."'"); + + $obTEmpenhoEmpenho = new TEmpenhoEmpenho; + $obTEmpenhoEmpenho->setDado('exercicio' , $_REQUEST['stExercicio']); + $obTEmpenhoEmpenho->setDado('cod_entidade', $_REQUEST['inCodEntidade']); + $obTEmpenhoEmpenho->setDado('cod_empenho' , $_REQUEST['inCodEmpenho']); + $obTEmpenhoEmpenho->recuperaEmpenhoPreEmpenho ($rsEmpenho); + + $arEmpenho = array(); + $arEmpenho['stExercicio'] = $_REQUEST['stExercicio']; + $arEmpenho['inCodEntidade'] = $_REQUEST['inCodEntidade']; + $arEmpenho['stNomEntidade'] = $rsEntidade->getCampo('nom_cgm'); + $arEmpenho['inCodEmpenho'] = $_REQUEST['inCodEmpenho']; + $arEmpenho['stDescEmpenho'] = $rsEmpenho->getCampo('credor'); + $arEmpenho['stExercicioLicitacao'] = $_REQUEST['stExercicioLicitacao']; + $arEmpenho['inCodLicitacao'] = $_REQUEST['inCodLicitacao']; + $arEmpenho['inCodModalidade'] = $_REQUEST['inCodModalidade']; + $arEmpenho['stDescricaoModalidade'] = $rsModalidade->getCampo('descricao'); + $arEmpenho['inId'] = md5(date('YmdHis').rand()); + + } else { + $obErro->setDescricao("Informe Todos os campos!"); + } + + if ($obErro->ocorreu()) { + $stJs .= "alertaAviso('".$obErro->getDescricao()."','form','erro','".Sessao::getId()."');\n"; + } else { + $arListaEmpenho[] = $arEmpenho; + + Sessao::write('arListaEmpenho', $arListaEmpenho); + + $stJs .= "alertaAviso('Empenho incluido.','form','erro','".Sessao::getId()."');\n"; + $stJs .= montaEmpenho(); + $stJs .= limparFormEmpenho(); + } + + return $stJs; +} + +function alterarEmpenho() { + $obErro = new Erro(); + + $arListaEmpenho = Sessao::read('arListaEmpenho'); + + foreach ($arListaEmpenho as $arItem) { + if ($arItem['inCodEmpenho'] == $_REQUEST['inCodEmpenho'] && + $arItem['inCodEntidade'] == $_REQUEST['inCodEntidade'] && + $arItem['stExercicio'] == $_REQUEST['stExercicio'] && + $arItem['inId'] != $_REQUEST['inId']) { + + $obErro->setDescricao("Este Empenho já está na lista!"); + } + } + + foreach ($arListaEmpenho as $key => $arEmpenho) { + if ($arEmpenho['inId'] == $_REQUEST['inId']) { + $obComprasModalidade = new TComprasModalidade(); + $obComprasModalidade->setDado('cod_modalidade', $_REQUEST['inCodModalidade']); + $obComprasModalidade->recuperaPorChave($rsModalidade); + + $obTOrcamentoEntidade = new TOrcamentoEntidade; + $obTOrcamentoEntidade->recuperaRelacionamento($rsEntidade, " AND E.cod_entidade = ".$_REQUEST['inCodEntidade']." AND E.exercicio = '".Sessao::getExercicio()."'"); + + $obTEmpenhoEmpenho = new TEmpenhoEmpenho; + $obTEmpenhoEmpenho->setDado('exercicio' , $_REQUEST['stExercicio']); + $obTEmpenhoEmpenho->setDado('cod_entidade', $_REQUEST['inCodEntidade']); + $obTEmpenhoEmpenho->setDado('cod_empenho' , $_REQUEST['inCodEmpenho']); + $obTEmpenhoEmpenho->recuperaEmpenhoPreEmpenho ($rsEmpenho); + + $arListaEmpenho[$key]['stExercicio'] = $_REQUEST['stExercicio']; + $arListaEmpenho[$key]['inCodEntidade'] = $_REQUEST['inCodEntidade']; + $arListaEmpenho[$key]['stNomEntidade'] = $rsEntidade->getCampo('nom_cgm'); + $arListaEmpenho[$key]['inCodEmpenho'] = $_REQUEST['inCodEmpenho']; + $arListaEmpenho[$key]['stDescEmpenho'] = $rsEmpenho->getCampo('credor'); + $arListaEmpenho[$key]['stExercicioLicitacao'] = $_REQUEST['stExercicioLicitacao']; + $arListaEmpenho[$key]['inCodLicitacao'] = $_REQUEST['inCodLicitacao']; + $arListaEmpenho[$key]['inCodModalidade'] = $_REQUEST['inCodModalidade']; + $arListaEmpenho[$key]['stDescricaoModalidade'] = $rsModalidade->getCampo('descricao'); + + break; + } + } + + if ($obErro->ocorreu()) { + $stJs .= "alertaAviso('".$obErro->getDescricao()."','form','erro','".Sessao::getId()."');\n"; + } else { + + Sessao::write('arListaEmpenho', $arListaEmpenho); + + $stJs .= "var jQuery = window.parent.frames['telaPrincipal'].jQuery;"; + $stJs .= "jQuery('#btnIncluir').val('Incluir Empenho'); \n"; + $stJs .= "jQuery('#btnIncluir').attr('onclick', 'return montaParametrosGET(\'incluirEmpenho\',\'inId, stExercicio, inCodEntidade, inCodEmpenho, stExercicioLicitacao, inCodLicitacao, inCodModalidade\')'); \n"; + + $stJs .= "alertaAviso('Empenho alterado.','form','erro','".Sessao::getId()."');\n"; + $stJs .= montaEmpenho(); + $stJs .= limparFormEmpenho(); + } + + SistemaLegado::executaFrameOculto($stJs); +} + + +function excluirEmpenho() { + $arTemp = $arTempRemovido = array(); + + $arListaEmpenho = Sessao::read('arListaEmpenho'); + + foreach ($arListaEmpenho as $arEmpenho) { + if ($arEmpenho['inId'] == $_GET['inId']) { + } else { + $arTemp[] = $arEmpenho; + } + } + + Sessao::write('arListaEmpenho', $arTemp); + + $stJs .= "alertaAviso('Empenho Removido.','form','erro','".Sessao::getId()."');\n"; + $stJs .= montaEmpenho(); + + SistemaLegado::executaFrameOculto($stJs); +} + +function montaEmpenho() { + $rsRecordSet = new RecordSet(); + + if (Sessao::read('arListaEmpenho') != '') { + $rsRecordSet->preenche(Sessao::read('arListaEmpenho')); + } + + $obLista = new Lista; + $obLista->setMostraPaginacao( false ); + $obLista->setTitulo( "Lista de Empenhos" ); + + $obLista->setRecordSet( $rsRecordSet ); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo(" "); + $obLista->ultimoCabecalho->setWidth( 5 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Exercício" ); + $obLista->ultimoCabecalho->setWidth( 10 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Entidade" ); + $obLista->ultimoCabecalho->setWidth( 20 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "N° Empenho" ); + $obLista->ultimoCabecalho->setWidth( 20 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Exercício Proc. Licitatório" ); + $obLista->ultimoCabecalho->setWidth( 10 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "N° Proc. Licitatório" ); + $obLista->ultimoCabecalho->setWidth( 10 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Modalidade" ); + $obLista->ultimoCabecalho->setWidth( 15 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo("Ações"); + $obLista->ultimoCabecalho->setWidth( 5 ); + $obLista->commitCabecalho(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stExercicio" ); + $obLista->ultimoDado->setAlinhamento('CENTRO' ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "[inCodEntidade] - [stNomEntidade]" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "[inCodEmpenho] - [stDescEmpenho]" ); + $obLista->ultimoDado->setAlinhamento('CENTRO' ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stExercicioLicitacao" ); + $obLista->ultimoDado->setAlinhamento('CENTRO' ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "inCodLicitacao" ); + $obLista->ultimoDado->setAlinhamento('CENTRO' ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "[inCodModalidade] - [stDescricaoModalidade]" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + + $obLista->addAcao(); + $obLista->ultimaAcao->setAcao( "ALTERAR" ); + $obLista->ultimaAcao->setFuncaoAjax( true ); + $obLista->ultimaAcao->setLink( "JavaScript:modificaDado('alterarItem');" ); + $obLista->ultimaAcao->addCampo("1","inId"); + $obLista->commitAcao(); + + $obLista->addAcao(); + $obLista->ultimaAcao->setAcao( "EXCLUIR" ); + $obLista->ultimaAcao->setFuncao( true ); + $obLista->ultimaAcao->setLink( "JavaScript:modificaDado('excluirEmpenho');" ); + $obLista->ultimaAcao->addCampo("1","inId"); + $obLista->commitAcao(); + + $obLista->montaHTML(); + $stHtml = $obLista->getHTML(); + $stHtml = str_replace("\n","",$stHtml); + $stHtml = str_replace(" ","",$stHtml); + $stHtml = str_replace("'","\\'",$stHtml); + $stJs .= "d.getElementById('spnListaEmpenho').innerHTML = '".$stHtml."';\n"; + + return $stJs; +} + +function validaEmpenho() { + $obTEmpenhoEmpenho = new TEmpenhoEmpenho; + $obTEmpenhoEmpenho->setDado('exercicio' , $_REQUEST['stExercicio']); + $obTEmpenhoEmpenho->setDado('cod_entidade', $_REQUEST['inCodEntidade']); + $obTEmpenhoEmpenho->setDado('cod_empenho' , $_REQUEST['inCodEmpenho']); + $obTEmpenhoEmpenho->recuperaEmpenhoPreEmpenho ($rsEmpenho); + + $stJs .= "var jQuery = window.parent.frames['telaPrincipal'].jQuery;"; + + if($rsEmpenho->inNumLinhas < 1) { + $stJs .= "alertaAviso('Empenho não encontrado.','form','erro','".Sessao::getId()."');\n"; + $stJs .= "jQuery('#stDescEmpenho').html(' '); \n"; + } else { + $stJs .= "jQuery('#stDescEmpenho').html('".$rsEmpenho->getCampo('credor')."'); \n"; + } + + return $stJs; +} + +function limparFormEmpenho() { + $stJs = "var jQuery = window.parent.frames['telaPrincipal'].jQuery;"; + + $stJs .= "jQuery('#inCodEntidade').val(''); \n"; + $stJs .= "jQuery('#stNomEntidade').val(''); \n"; + $stJs .= "jQuery('#inCodEmpenho').val(''); \n"; + $stJs .= "jQuery('#stDescEmpenho').html(' '); \n"; + $stJs .= "jQuery('#stExercicioLicitacao').val(''); \n"; + $stJs .= "jQuery('#inCodLicitacao').val(''); \n"; + $stJs .= "jQuery('#inCodModalidade').val('') \n"; + + return $stJs; +} + +function limparFormEmpenhoEntidade() { + $stJs = "var jQuery = window.parent.frames['telaPrincipal'].jQuery;"; + + $stJs .= "jQuery('#inCodEmpenho').val(''); \n"; + $stJs .= "jQuery('#stDescEmpenho').html(' '); \n"; + $stJs .= "jQuery('#stExercicioLicitacao').val(''); \n"; + $stJs .= "jQuery('#inCodLicitacao').val(''); \n"; + $stJs .= "jQuery('#inCodModalidade').val('') \n"; + + return $stJs; +} + +function alterarItem() { + $arListaEmpenho = Sessao::read('arListaEmpenho'); + + foreach ($arListaEmpenho as $arEmpenho) { + + if ($arEmpenho['inId'] == $_GET['inId']) { + $stJs .= "var jQuery = window.parent.frames['telaPrincipal'].jQuery;"; + + $stJs .= "jQuery('#btnIncluir').val('Alterar Empenho'); \n"; + $stJs .= "jQuery('#btnIncluir').attr('onclick', 'return alterarEmpenho();'); \n"; + + $stJs .= "jQuery('#inId').val('".$arEmpenho['inId']."'); \n"; + $stJs .= "jQuery('#stExercicio').val('".$arEmpenho['stExercicio']."'); \n"; + $stJs .= "jQuery('#inCodEntidade').val('".$arEmpenho['inCodEntidade']."'); \n"; + $stJs .= "jQuery('#stNomEntidade').val('".$arEmpenho['inCodEntidade']."'); \n"; + $stJs .= "jQuery('#inCodEmpenho').val('".$arEmpenho['inCodEmpenho']."'); \n"; + $stJs .= "jQuery('#stDescEmpenho').html('".$arEmpenho['stDescEmpenho']."'); \n"; + $stJs .= "jQuery('#stExercicioLicitacao').val('".$arEmpenho['stExercicioLicitacao']."'); \n"; + $stJs .= "jQuery('#inCodLicitacao').val('".$arEmpenho['inCodLicitacao']."'); \n"; + $stJs .= "jQuery('#inCodModalidade').val('".$arEmpenho['inCodModalidade']."'); \n"; + $stJs .= "jQuery('#stExercicio').focus(); \n"; + + break; + } + } + + SistemaLegado::executaFrameOculto($stJs); +} + +switch ($request->get('stCtrl')) { + case 'incluirEmpenho': + $stJs .= incluirEmpenho(); + break; + + case 'alterarEmpenho': + $stJs .= alterarEmpenho(); + break; + + case "excluirEmpenho": + $stJs .= excluirEmpenho(); + break; + + case 'alterarItem': + $stJs .= alterarItem(); + break; + + case 'validaEmpenho': + $stJs .= validaEmpenho(); + break; + + case 'limparFormEmpenho': + $stJs .= limparFormEmpenho(); + break; + + case 'limparFormEmpenhoEntidade': + $stJs .= limparFormEmpenhoEntidade(); + break; + + + case 'carregaDados': + $arListaEmpenho = array(); + $obTTCEMGConfiguracaoEMP = new TTCEMGConfiguracaoEMP; + $obTTCEMGConfiguracaoEMP->recuperaTodos($rsConfigEmpenho); + + + foreach($rsConfigEmpenho->getElementos() as $empenho) { + + $obComprasModalidade = new TComprasModalidade(); + $obComprasModalidade->setDado('cod_modalidade', $empenho['cod_modalidade']); + $obComprasModalidade->recuperaPorChave($rsModalidade); + + $obTOrcamentoEntidade = new TOrcamentoEntidade; + $obTOrcamentoEntidade->recuperaRelacionamento($rsEntidade, " AND E.cod_entidade = ".$empenho['cod_entidade']." AND E.exercicio = '".$empenho['exercicio']."'"); + + $obTEmpenhoEmpenho = new TEmpenhoEmpenho; + $obTEmpenhoEmpenho->setDado('exercicio' , $empenho['exercicio']); + $obTEmpenhoEmpenho->setDado('cod_entidade', $empenho['cod_entidade']); + $obTEmpenhoEmpenho->setDado('cod_empenho' , $empenho['cod_empenho']); + $obTEmpenhoEmpenho->recuperaEmpenhoPreEmpenho ($rsEmpenho); + + $arEmpenho['inId'] = md5(date('YmdHis').rand()); + $arEmpenho['stExercicio'] = $empenho['exercicio']; + $arEmpenho['inCodEntidade'] = $empenho['cod_entidade']; + $arEmpenho['stNomEntidade'] = $rsEntidade->getCampo('nom_cgm'); + $arEmpenho['inCodEmpenho'] = $empenho['cod_empenho']; + $arEmpenho['stDescEmpenho'] = $rsEmpenho->getCampo('credor'); + $arEmpenho['stExercicioLicitacao'] = $empenho['exercicio_licitacao']; + $arEmpenho['inCodLicitacao'] = $empenho['cod_licitacao']; + $arEmpenho['inCodModalidade'] = $empenho['cod_modalidade']; + $arEmpenho['stDescricaoModalidade'] = $rsModalidade->getCampo('descricao'); + + $arListaEmpenho[] = $arEmpenho; + } + + Sessao::write('arListaEmpenho', $arListaEmpenho); + + $stJs .= montaEmpenho(); + break; +} + +if (isset($stJs)) { + echo $stJs; +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/PRManterConfiguracaoEMP.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/PRManterConfiguracaoEMP.php new file mode 100644 index 0000000..f8ad05d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/PRManterConfiguracaoEMP.php @@ -0,0 +1,99 @@ + +get('stAcao'); + + +$obErro = new Erro; +switch ($stAcao) { + case 'manter': + $arListaEmpenho = Sessao::read('arListaEmpenho'); + $obTransacao = new Transacao; + + $obTTCEMGConfiguracaoEMP = new TTCEMGConfiguracaoEMP(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + + $obErro = $obTTCEMGConfiguracaoEMP->excluirTodos($boTransacao); + + if(count($arListaEmpenho) > 0) { + $obErro->setDescricao('É necessário adicionar ao menos um empenho a lista antes de salvar'); + } + + if (!$obErro->ocorreu) { + foreach ($arListaEmpenho as $arEmpenho) { + $obTTCEMGConfiguracaoEMP->setDado('exercicio' , $arEmpenho['stExercicio']); + $obTTCEMGConfiguracaoEMP->setDado('cod_entidade' , $arEmpenho['inCodEntidade']); + $obTTCEMGConfiguracaoEMP->setDado('cod_empenho' , $arEmpenho['inCodEmpenho']); + $obTTCEMGConfiguracaoEMP->setDado('exercicio_licitacao', $arEmpenho['stExercicioLicitacao']); + $obTTCEMGConfiguracaoEMP->setDado('cod_licitacao' , $arEmpenho['inCodLicitacao']); + $obTTCEMGConfiguracaoEMP->setDado('cod_modalidade' , $arEmpenho['inCodModalidade']); + + $obErro = $obTTCEMGConfiguracaoEMP->inclusao($boTransacao); + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId(),"Configuração EMP","incluir","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obTTCEMGConfiguracaoEMP); + } + + break; +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/OCExportarArquivosPlanejamento.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/OCExportarArquivosPlanejamento.php index 877ff53..0146fa8 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/OCExportarArquivosPlanejamento.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/OCExportarArquivosPlanejamento.php @@ -322,7 +322,7 @@ if (in_array("DSP.csv",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(14); } } - } + } } } } @@ -760,7 +760,7 @@ if (in_array("PRO.csv",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->setTipoDocumento('TCE_MG'); $obExportador->roUltimoArquivo->addBloco($arRecordSetArquivos["PRO.csv"]); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_programa"); $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/demonstrativoOpCredito.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/demonstrativoOpCredito.inc.php new file mode 100644 index 0000000..d84112a --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/demonstrativoOpCredito.inc.php @@ -0,0 +1,114 @@ + +setDado('exercicio' , Sessao::read('exercicio')); + $obTTCEMGDemostrativoOpCredito->setDado('cod_entidade', implode(',',$arFiltros['inCodEntidadeSelecionado'])); + $obTTCEMGDemostrativoOpCredito->setDado('mes' , $arFiltros['inPeriodo']); + + $obTTCEMGDemostrativoOpCredito->recuperaTodos($rsDemostrativoOpCredito); + + $obExportador->roUltimoArquivo->addBloco($rsDemostrativoOpCredito); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('mes'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('nada_declarar'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('CARACTER_ESPACOS_DIR'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_imobiliaria_interna'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_imobiliaria_externa'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_abertura_credito'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_deriv_ppp'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_aquis_fin'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_pela_venda_ter_bs'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_dem_antec_receita'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_assuncao_rec_conf_div'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_outras_pper_credito'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_contrat_externa'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_parc_div_trib'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_parc_div_prev'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_parc_div_dem_cs'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_parc_div_fgts'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_melhoria_adm_rec_gffp'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_prog_ilum_pub'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_amp_art9'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna('vl_oper_vedadas'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado('VALOR_ZEROS_ESQ'); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/AOC.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/AOC.csv.inc.php index 8ae46eb..d85984e 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/AOC.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/AOC.csv.inc.php @@ -32,10 +32,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: AOC.csv.inc.php 61411 2015-01-14 19:48:22Z luciana $ - * $Date: 2015-01-14 17:48:22 -0200 (Qua, 14 Jan 2015) $ + * $Id: AOC.csv.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * $Author: luciana $ - * $Rev: 61411 $ + * $Rev: 61647 $ * */ /** @@ -292,7 +292,7 @@ if (count($rsRecordSetAOC10->getElementos()) > 0) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(15); if ( Sessao::getExercicio() >= '2015' ) { - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("origemrecAlteracao"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("origemrecalteracao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CTB.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CTB.csv.inc.php index 0e04aeb..8f97bd1 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CTB.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CTB.csv.inc.php @@ -187,6 +187,7 @@ if (count($rsRecordSet10->arElementos) > 0) { $inCount++; if(!($stChaveComp20===$arCTB20['cod_ctb'].$arCTB20['tipo_conta'].$arCTB20['cod_fonte_recursos'])) { $stChaveComp20 = $arCTB20['cod_ctb'].$arCTB20['tipo_conta'].$arCTB20['cod_fonte_recursos']; + $stChaveAux20 = $arCTB20['cod_ctb'].$arCTB20['cod_fonte_recursos']; $rsBloco = 'rsBloco_'.$inCount; unset($$rsBloco); $$rsBloco = new RecordSet(); @@ -229,114 +230,115 @@ if (count($rsRecordSet10->arElementos) > 0) { $stChave21= ''; foreach ($rsRecordSet21->arElementos as $arCTB21) { - $stChave21 = $arCTB21['cod_ctb'].$arCTB21['tipo_conta'].$arCTB21['cod_fonte_recursos']; + $stChave21 = $arCTB21['cod_ctb'].$arCTB21['cod_fonte_recursos']; $inSequencia++; $inCodSequencial = str_pad($inSequencia,4,"0",STR_PAD_LEFT); $arCTB21['cod_reduzido_mov'] = Sessao::getExercicio().$arFiltro['stMes'].$inCodSequencial; - if ($stChave21 === $stChaveComp20 ) { + if ($stChave21 === $stChaveAux20 ) { $inCount++; - - $rsBloco = 'rsBloco_'.$inCount; - unset($$rsBloco); - $$rsBloco = new RecordSet(); - $$rsBloco->preenche(array($arCTB21)); - $obExportador->roUltimoArquivo->addBloco($$rsBloco); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_ctb"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(20); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_recursos"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_reduzido_mov"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(15); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_movimentacao"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_entr_saida"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_entr_saida"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(14); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_ctb_transf"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(20); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_ctb_transf"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(3); + if ($arCTB21['cod_ctb'] != $arCTB21['cod_ctb_transf']) { + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arCTB21)); + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_ctb"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_recursos"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); - $stChaveComp21 = $stChave21.$arCTB21['tipo_entr_saida'].$arCTB21['tipo_movimentacao'] ; - if($arCTB21['tipo_entr_saida'] = '01' OR $arCTB21['tipo_entr_saida'] = '02' OR $arCTB21['tipo_entr_saida'] = '03' OR $arCTB21['tipo_entr_saida'] = '15' OR $arCTB21['tipo_entr_saida'] = '16'){ - if (count($rsRecordSet22->arElementos) > 0) { - $stChaveComp22 = ''; + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_reduzido_mov"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_movimentacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_entr_saida"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_entr_saida"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_ctb_transf"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_ctb_transf"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(3); - foreach ($rsRecordSet22->arElementos as $arCTB22) { - $stChave22 = $arCTB22['cod_ctb'].$arCTB22['tipo_conta'].$arCTB22['cod_fonte_recursos'].$arCTB22['tipo_entr_saida'].$arCTB22['tipo_movimentacao']; - - if($stChave22 === $stChaveComp21 AND $arCTB22['tipo_entr_saida'] != '99' ) { - $arCTB22['cod_reduzido_mov'] = $arCTB21['cod_reduzido_mov']; - $inCount++; - $rsBloco = 'rsBloco_'.$inCount; - unset($$rsBloco); - $$rsBloco = new RecordSet(); - $$rsBloco->preenche(array($arCTB22)); - - $obExportador->roUltimoArquivo->setTipoDocumento('TCE_MG'); - $obExportador->roUltimoArquivo->addBloco($$rsBloco); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_reduzido_mov"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(15); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("e_deducao_de_receita"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("identificador_deducao"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(2); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza_receita"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vlr_receita_cont"); - $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(14); + $stChaveComp21 = $stChave21.$arCTB21['tipo_entr_saida'].$arCTB21['tipo_movimentacao'] ; + if($arCTB21['tipo_entr_saida'] = '01' OR $arCTB21['tipo_entr_saida'] = '02' OR $arCTB21['tipo_entr_saida'] = '03' OR $arCTB21['tipo_entr_saida'] = '15' OR $arCTB21['tipo_entr_saida'] = '16'){ + if (count($rsRecordSet22->arElementos) > 0) { + $stChaveComp22 = ''; + + foreach ($rsRecordSet22->arElementos as $arCTB22) { + $stChave22 = $arCTB22['cod_ctb'].$arCTB22['cod_fonte_recursos'].$arCTB22['tipo_entr_saida'].$arCTB22['tipo_movimentacao']; + + if($stChave22 === $stChaveComp21 AND $arCTB22['tipo_entr_saida'] != '99' ) { + $arCTB22['cod_reduzido_mov'] = $arCTB21['cod_reduzido_mov']; + $inCount++; + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arCTB22)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCE_MG'); + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_reduzido_mov"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("e_deducao_de_receita"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("identificador_deducao"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza_receita"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vlr_receita_cont"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(14); + } } } } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CVC.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CVC.csv.inc.php index 8eacb96..c404a82 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CVC.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CVC.csv.inc.php @@ -32,10 +32,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: CVC.csv.inc.php 61372 2015-01-12 16:09:09Z luciana $ - * $Date: 2015-01-12 14:09:09 -0200 (Seg, 12 Jan 2015) $ + * $Id: CVC.csv.inc.php 61750 2015-02-27 20:53:19Z luciana $ + * $Date: 2015-02-27 17:53:19 -0300 (Sex, 27 Fev 2015) $ * $Author: luciana $ - * $Rev: 61372 $ + * $Rev: 61750 $ * */ /** @@ -58,15 +58,18 @@ $obTTCEMGArquivoMensalCVC->setDado('dt_final', $stDataFinal); //Tipo Registro 10 $obTTCEMGArquivoMensalCVC->recuperaVeiculos($rsRecuperaVeiculosCVC10); - +$obTTCEMGArquivoMensalCVC->debug(); //Tipo Registro 20 $obTTCEMGArquivoMensalCVC->recuperaGastosVeiculos($rsRecuperaGastosVeiculosCVC20); +$obTTCEMGArquivoMensalCVC->debug(); //Tipo Registro 30 $obTTCEMGArquivoMensalCVC->recuperaCVC30($rsRecuperaCVC30); +$obTTCEMGArquivoMensalCVC->debug(); //Tipo Registro 40 $obTTCEMGArquivoMensalCVC->recuperaVeiculosBaixados($rsRecuperaVeiculosBaixadosCVC40); +$obTTCEMGArquivoMensalCVC->debug(); //Tipo Registro 99 $arRecordSetCVC99 = array( diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/NTF.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/NTF.csv.inc.php index 6ad9c66..21b224b 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/NTF.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/NTF.csv.inc.php @@ -32,10 +32,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: NTF.csv.inc.php 61372 2015-01-12 16:09:09Z luciana $ - * $Date: 2015-01-12 14:09:09 -0200 (Seg, 12 Jan 2015) $ + * $Id: NTF.csv.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * $Author: luciana $ - * $Rev: 61372 $ + * $Rev: 61647 $ * */ /** @@ -68,8 +68,13 @@ for ($i=0; $iarElementos); $count++) { if ($aux==0) $rsRecordSetNTF20->inNumLinhas = 0; - $rsRecordSetNTF20->arElementos[$aux] = $rsRecordSet->arElementos[$count]; - $aux++; + + $rsRecordSetNTF20->arElementos[$aux] = $rsRecordSet->arElementos[$count]; + //Se o exercicio é anterior a 2015, o nro do registro é 12. + if(Sessao::getExercicio() < '2015') + $rsRecordSetNTF20->arElementos[$aux]['tiporegistro'] = '12'; + + $aux++; } $rsRecordSetNTF20->inNumLinhas = $rsRecordSetNTF20->inNumLinhas + $rsRecordSet->inNumLinhas; $rsRecordSetNTF20->inNumColunas = $rsRecordSet->inNumColunas; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/ORGAO.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/ORGAO.csv.inc.php index 5a6b829..890f838 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/ORGAO.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/ORGAO.csv.inc.php @@ -32,10 +32,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: ORGAO.csv.inc.php 61344 2015-01-08 19:03:39Z silvia $ - * $Date: 2015-01-08 17:03:39 -0200 (Qui, 08 Jan 2015) $ - * $Author: silvia $ - * $Rev: 61344 $ + * $Id: ORGAO.csv.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ + * $Author: luciana $ + * $Rev: 61647 $ * */ /** @@ -56,8 +56,10 @@ if(Sessao::getExercicio() >= 2015){ $obTTCEMGConfiguracaoOrgao->recuperaOrgao($rsRecordSetORGAO10); } -$obTTCEMGConfiguracaoOrgao->setDado('exercicio',Sessao::getExercicio()); -$obTTCEMGConfiguracaoOrgao->setDado('entidade',$stEntidades); +$obTTCEMGConfiguracaoOrgao->setDado('dt_inicial', $stDataInicial); +$obTTCEMGConfiguracaoOrgao->setDado('dt_final' , $stDataFinal); +$obTTCEMGConfiguracaoOrgao->setDado('exercicio' , Sessao::getExercicio()); +$obTTCEMGConfiguracaoOrgao->setDado('entidade' , $stEntidades); $obTTCEMGConfiguracaoOrgao->recuperaOrgaoResponsavel($rsRecordSetORGAO11); //Tipo Registro 99 diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/RSP.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/RSP.csv.inc.php index 66d787c..07290c1 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/RSP.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/RSP.csv.inc.php @@ -31,10 +31,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: RSP.csv.inc.php 61372 2015-01-12 16:09:09Z luciana $ - * $Date: 2015-01-12 14:09:09 -0200 (Seg, 12 Jan 2015) $ + * $Id: RSP.csv.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * $Author: luciana $ - * $Rev: 61372 $ + * $Rev: 61647 $ * */ /** @@ -57,7 +57,7 @@ $obTTCEMGRestosPagar->setDado('dt_final' , SistemaLegado::dataToSql($stDataFina //Tipo Registro 10 $obTTCEMGRestosPagar->recuperaExportacao10($rsRecordSetRSP10); -$obTTCEMGRestosPagar->debug(); + //Tipo Registro 11 $obTTCEMGRestosPagar->recuperaExportacao11($rsRecordSetRSP11); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/relatorios/OCGeraRelatorioDemonstrativoPessoal.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/relatorios/OCGeraRelatorioDemonstrativoPessoal.php index adceede..ba79374 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/relatorios/OCGeraRelatorioDemonstrativoPessoal.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/relatorios/OCGeraRelatorioDemonstrativoPessoal.php @@ -63,7 +63,7 @@ if ($stNomeEntidade == '') { } if ( count($_REQUEST['inCodEntidade']) > 0 ) { - $preview->addParametro( 'nom_entidade', utf8_encode($stNomeEntidade) ); + $preview->addParametro( 'nom_entidade', $stNomeEntidade ); } else { $preview->addParametro( 'nom_entidade', '' ); } @@ -219,7 +219,7 @@ $dtDataEmissao = date('d/m/Y'); $dtHoraEmissao = date('H:i'); $stDataEmissao = "Data da emissão ".$dtDataEmissao." e hora da emissão ".$dtHoraEmissao; -$preview->addParametro( 'data_emissao', utf8_encode($stDataEmissao) ); +$preview->addParametro( 'data_emissao', $stDataEmissao ); $stNomeArquivo .= "_" . Sessao::getExercicio(); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPEClasseNivelFaixa.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPEClasseNivelFaixa.class.php index 1cd90af..a40b860 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPEClasseNivelFaixa.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPEClasseNivelFaixa.class.php @@ -48,38 +48,49 @@ class TTCEPEClasseNivelFaixa extends Persistente function montaRecuperaTodos() { - $stSql = " SELECT 0 AS reservado_tce, - cargo_padrao.cod_cargo, - cargo_padrao.cod_padrao AS cod_classe, - padrao.descricao AS nomenclatura, - padrao_padrao.valor AS vencimento_base - + $stSql = " SELECT + 0 AS reservado_tce, + subselect.cod_cargo, + subselect.timestamp, + cargo_padrao.cod_padrao AS cod_classe, + padrao.descricao AS nomenclatura, + padrao_padrao.valor AS vencimento_base + FROM pessoal".$this->getDado('cod_entidade').".cargo_padrao + JOIN ( + SELECT + cargo_padrao.cod_cargo, + MAX(cargo_padrao.timestamp) AS timestamp + + FROM pessoal".$this->getDado('cod_entidade').".cargo_padrao + + WHERE cargo_padrao.timestamp <= ( + SELECT ultimoTimestampPeriodoMovimentacao(cod_periodo_movimentacao,'".$this->getDado('cod_entidade')."') + FROM folhapagamento".$this->getDado('cod_entidade').".periodo_movimentacao + WHERE TO_CHAR(periodo_movimentacao.dt_inicial,'dd/mm/yyyy') = '".$this->getDado('dt_inicial')."' + AND TO_CHAR(periodo_movimentacao.dt_final,'dd/mm/yyyy') = '".$this->getDado('dt_final')."' + )::timestamp + + GROUP BY cod_cargo + ORDER BY cod_cargo + ) AS subselect + ON subselect.cod_cargo = cargo_padrao.cod_cargo + AND subselect.timestamp = cargo_padrao.timestamp + JOIN folhapagamento".$this->getDado('cod_entidade').".padrao ON padrao.cod_padrao = cargo_padrao.cod_padrao JOIN folhapagamento".$this->getDado('cod_entidade').".padrao_padrao ON padrao_padrao.cod_padrao = padrao.cod_padrao - AND padrao_padrao.timestamp = (SELECT MAX(FPP.timestamp) FROM folhapagamento.padrao_padrao AS FPP - WHERE FPP.cod_padrao = padrao_padrao.cod_padrao) - WHERE padrao_padrao.timestamp <= ( - - SELECT MAX(padrao_padrao.timestamp) AS timestamp - FROM folhapagamento".$this->getDado('cod_entidade').".padrao_padrao - WHERE padrao_padrao.timestamp::date <= ( - SELECT ultimoTimestampPeriodoMovimentacao(cod_periodo_movimentacao,'".$this->getDado('cod_entidade')."') - FROM folhapagamento".$this->getDado('cod_entidade').".periodo_movimentacao - WHERE TO_CHAR(periodo_movimentacao.dt_inicial,'dd/mm/yyyy') = '".$this->getDado('dt_inicial')."' - AND TO_CHAR(periodo_movimentacao.dt_final,'dd/mm/yyyy') = '".$this->getDado('dt_final')."' - )::date - ) - - GROUP BY cod_cargo,cod_classe,nomenclatura,vencimento_base - ORDER BY cod_cargo, cod_classe - - "; - + AND padrao_padrao.timestamp = ( + SELECT MAX(FPP.timestamp) + FROM folhapagamento.padrao_padrao AS FPP + WHERE FPP.cod_padrao = padrao_padrao.cod_padrao + ) + + ORDER BY cod_cargo, cod_classe, timestamp"; + return $stSql; } } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPERemuneracaoAgentesEletivos.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPERemuneracaoAgentesEletivos.class.php index 8f1d8b2..e197334 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPERemuneracaoAgentesEletivos.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEPE/classes/mapeamento/TTCEPERemuneracaoAgentesEletivos.class.php @@ -226,14 +226,14 @@ class TTCEPERemuneracaoAgentesEletivos extends Persistente JOIN folhapagamento".$this->getDado('cod_entidade').".periodo_movimentacao ON periodo_movimentacao.cod_periodo_movimentacao = contrato_servidor_periodo.cod_periodo_movimentacao - JOIN normas.norma - ON norma.cod_norma = contrato_servidor.cod_norma - JOIN tcepe.agente_eletivo - ON agente_eletivo.cod_norma = norma.cod_norma + ON agente_eletivo.cod_cargo = contrato_servidor.cod_cargo + + JOIN normas.norma + ON norma.cod_norma = agente_eletivo.cod_norma - WHERE periodo_movimentacao.dt_inicial >= TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') - AND periodo_movimentacao.dt_final <= TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') + WHERE periodo_movimentacao.dt_inicial >= TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') + AND periodo_movimentacao.dt_final <= TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') ) AS contratos ON contratos.cod_contrato = eventos.cod_contrato AND contratos.cod_periodo_movimentacao = eventos.cod_periodo_movimentacao diff --git a/gestaoPrestacaoContas/fontes/PHP/TCEPE/instancias/layoutArquivos/pessoal/ClasseNivelFaixa.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEPE/instancias/layoutArquivos/pessoal/ClasseNivelFaixa.inc.php index c9b4284..9894554 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCEPE/instancias/layoutArquivos/pessoal/ClasseNivelFaixa.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEPE/instancias/layoutArquivos/pessoal/ClasseNivelFaixa.inc.php @@ -31,10 +31,10 @@ * @author Desenvolvedor: * * @ignore - * $Id: ClasseNivelFaixa.inc.php 60788 2014-11-17 12:47:59Z silvia $ - * $Date: 2014-11-17 10:47:59 -0200 (Seg, 17 Nov 2014) $ - * $Author: silvia $ - * $Rev: 60788 $ + * $Id: ClasseNivelFaixa.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ + * $Author: luciana $ + * $Rev: 61647 $ * */ @@ -55,7 +55,6 @@ $obTTCEPEClasseNivelFaixa->setDado('dt_inicial' , $stDataInicial $obTTCEPEClasseNivelFaixa->setDado('dt_final' , $stDataFinal ); $obTTCEPEClasseNivelFaixa->recuperaTodos($rsRecordSet, "" ,"" , $boTransacao ); - $obExportador->roUltimoArquivo->addBloco($rsRecordSet); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("reservado_tce"); @@ -75,7 +74,7 @@ $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARA $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vencimento_base"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(16); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("reservado_tce"); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php index 1b363e2..5fd0452 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php @@ -32,10 +32,10 @@ * @package URBEM * @subpackage Mapeamento - $Revision: 59820 $ + $Revision: 61782 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-03-03 15:35:51 -0300 (Ter, 03 Mar 2015) $ * Casos de uso: uc-02.08.01 */ @@ -67,34 +67,80 @@ function FExportacaoLiquidacao() function montaRecuperaDadosExportacao() { - $stSql = "SELECT \n"; - $stSql .= " lpad(tabela.exercicio,4,'0') as exercicio, \n"; - $stSql .= " lpad(tabela.cod_empenho::varchar,7,'0') as cod_empenho, \n"; - $stSql .= " lpad(tabela.cod_entidade::varchar,2,'0') as cod_entidade, \n"; - $stSql .= " tabela.cod_nota, \n"; - $stSql .= " to_char(tabela.data_pagamento,'dd/mm/yyyy') as data_pagamento, \n"; - $stSql .= " replace(tabela.valor_liquidacao::varchar,'.','') as valor_liquidacao, \n"; - $stSql .= " tabela.sinal_valor, \n"; - $stSql .= " tabela.observacao, \n"; - $stSql .= " tabela.ordem, \n"; - $stSql .= " ' ' as codigo_operacao \n"; - $stSql .= "FROM \n"; - $stSql .= " ".$this->getTabela()."('".$this->getDado("stExercicio") ."', \n"; - $stSql .= " '".$this->getDado("dtInicial") ."', \n"; - $stSql .= " '".$this->getDado("dtFinal") ."', \n"; - $stSql .= " '".$this->getDado("stCodEntidades") ."', \n"; - $stSql .= " '".$this->getDado("stFiltro") ."') \n"; - $stSql .= "AS tabela ( exercicio char(4), \n"; - $stSql .= " cod_empenho integer, \n"; - $stSql .= " cod_entidade integer, \n"; - $stSql .= " cod_nota integer, \n"; - $stSql .= " data_pagamento date, \n"; - $stSql .= " valor_liquidacao numeric, \n"; - $stSql .= " sinal_valor text, \n"; - $stSql .= " observacao varchar, \n"; - $stSql .= " ordem integer, \n"; - $stSql .= " oid oid) \n"; - //echo $stSql; + $stSql = " + SELECT + + *, + CASE WHEN resultado.cod_contrato IS NOT NULL THEN 'S' + WHEN resultado.cod_estrutural LIKE ('3190%') THEN 'X' + ELSE 'N' + END AS existe_contrato + + FROM ( + + SELECT + lpad(tabela.exercicio,4,'0') as exercicio, + lpad(tabela.cod_empenho::varchar,7,'0') as cod_empenho, + lpad(tabela.cod_entidade::varchar,2,'0') as cod_entidade, + tabela.cod_nota, + to_char(tabela.data_pagamento,'dd/mm/yyyy') as data_pagamento, + replace(tabela.valor_liquidacao::varchar,'.','') as valor_liquidacao, + tabela.sinal_valor, + tabela.observacao, + tabela.ordem, + ' ' as codigo_operacao, + contratos_liquidacao.cod_contrato_tce, + contratos_liquidacao.cod_contrato, + contratos_liquidacao.exercicio AS exercicio_contrato, + despesa.cod_estrutural + FROM + ".$this->getTabela()."('".$this->getDado("stExercicio") ."', + '".$this->getDado("dtInicial") ."', + '".$this->getDado("dtFinal") ."', + '".$this->getDado("stCodEntidades") ."', + '".$this->getDado("stFiltro") ."') + AS tabela ( exercicio char(4), + cod_empenho integer, + cod_entidade integer, + cod_nota integer, + data_pagamento date, + valor_liquidacao numeric, + sinal_valor text, + observacao varchar, + ordem integer, + oid oid) + INNER JOIN empenho.empenho + ON empenho.exercicio = tabela.exercicio + AND empenho.cod_entidade = tabela.cod_entidade + AND empenho.cod_empenho = tabela.cod_empenho + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + INNER JOIN ( SELECT pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , CASE WHEN ( pre_empenho.implantado = true ) + THEN restos_pre_empenho.cod_estrutural + ELSE replace(conta_despesa.cod_estrutural, '.', '') + END as cod_estrutural + FROM empenho.pre_empenho + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = pre_empenho.exercicio + AND restos_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = pre_empenho.exercicio + AND pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + ) AS despesa + ON despesa.exercicio = empenho.exercicio + AND despesa.cod_pre_empenho = empenho.cod_pre_empenho + LEFT JOIN tcers.contratos_liquidacao + ON contratos_liquidacao.cod_liquidacao = tabela.cod_nota + AND contratos_liquidacao.exercicio = TO_CHAR(tabela.data_pagamento, 'yyyy') + ) as resultado + ORDER BY resultado.exercicio, resultado.cod_entidade, resultado.cod_empenho, resultado.ordem + "; return $stSql; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoTCERSExportacaoBalanceteReceita.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoTCERSExportacaoBalanceteReceita.class.php index 1dbe488..5434082 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoTCERSExportacaoBalanceteReceita.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoTCERSExportacaoBalanceteReceita.class.php @@ -33,10 +33,10 @@ * @package URBEM * @subpackage Mapeamento - $Revision: 59820 $ + $Revision: 61647 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * Casos de uso: uc-02.08.01, uc-02.08.07 */ @@ -68,30 +68,31 @@ function FExportacaoTCERSExportacaoBalanceteReceita() function montaRecuperaDadosExportacao() { - $stSql = "SELECT \n"; - $stSql .= " replace(tabela.cod_estrutural,'.','') as cod_estrutural, \n"; - $stSql .= " replace(tabela.vl_original::varchar,'.','') as vl_original, \n"; - $stSql .= " replace(tabela.totalizado::varchar,'.','') as totalizado, \n"; - $stSql .= " tabela.cod_recurso, \n"; - $stSql .= " regexp_replace(sem_acentos(tabela.descricao), '[°|º|\/]', ' ', 'g') AS descricao, \n"; - $stSql .= " tabela.tipo, \n"; - $stSql .= " tabela.nivel, \n"; - $stSql .= " tabela.cod_caracteristica \n"; - $stSql .= "FROM \n"; - $stSql .= " ".$this->getTabela()."('".$this->getDado("stExercicio") ."', \n"; - $stSql .= " '".$this->getDado("stCodEntidades") ."', \n"; - $stSql .= " '".$this->getDado("dtInicial") ."', \n"; - $stSql .= " '".$this->getDado("dtFinal") ."') \n"; - $stSql .= "AS tabela ( cod_estrutural varchar, \n"; - $stSql .= " cod_recurso varchar(13), \n"; - $stSql .= " descricao varchar, \n"; - $stSql .= " vl_original numeric, \n"; - $stSql .= " totalizado numeric, \n"; - $stSql .= " tipo varchar, \n"; - $stSql .= " nivel integer, \n"; - $stSql .= " cod_caracteristica integer) \n"; - $stSql .= "WHERE tabela.nivel<>0 \n"; - $stSql .= "ORDER BY tabela.cod_estrutural \n"; + $stSql = "SELECT \n"; + $stSql .= " replace(tabela.cod_estrutural,'.','') as cod_estrutural, \n"; + $stSql .= " replace(tabela.vl_original::varchar,'.','') as vl_original, \n"; + $stSql .= " replace(tabela.totalizado::varchar,'.','') as totalizado, \n"; + $stSql .= " tabela.cod_recurso, \n"; + $stSql .= " regexp_replace(sem_acentos(tabela.descricao), '[°|º|\/]', ' ', 'g') AS descricao, \n"; + $stSql .= " tabela.tipo, \n"; + $stSql .= " tabela.nivel, \n"; + $stSql .= " tabela.cod_caracteristica, \n"; + $stSql .= " replace(tabela.vl_original::varchar,'.','') as vl_atualizado \n"; + $stSql .= "FROM \n"; + $stSql .= " ".$this->getTabela()."('".$this->getDado("stExercicio") ."', \n"; + $stSql .= " '".$this->getDado("stCodEntidades") ."', \n"; + $stSql .= " '".$this->getDado("dtInicial") ."', \n"; + $stSql .= " '".$this->getDado("dtFinal") ."') \n"; + $stSql .= "AS tabela ( cod_estrutural varchar, \n"; + $stSql .= " cod_recurso varchar(13), \n"; + $stSql .= " descricao varchar, \n"; + $stSql .= " vl_original numeric, \n"; + $stSql .= " totalizado numeric, \n"; + $stSql .= " tipo varchar, \n"; + $stSql .= " nivel integer, \n"; + $stSql .= " cod_caracteristica integer) \n"; + $stSql .= "WHERE tabela.nivel<>0 \n"; + $stSql .= "ORDER BY tabela.cod_estrutural \n"; return $stSql; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/TTCERSContratosLiquidacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/TTCERSContratosLiquidacao.class.php new file mode 100644 index 0000000..b01f644 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/TTCERSContratosLiquidacao.class.php @@ -0,0 +1,72 @@ + +setTabela('tcers.contratos_liquidacao'); + $this->setCampoCod('cod_liquidacao'); + $this->setComplementoChave('exercicio, contrato, contrato_tce'); + + $this->AddCampo('cod_contrato','integer',false,'',true,true); + $this->AddCampo('cod_liquidacao','varchar',true,'',true,true); + $this->AddCampo('cod_contrato_tce','integer',false,'',true,true); + $this->AddCampo('exercicio','varchar',true,'4',true,true); +} + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/negocio/RExportacaoTCERSArquivosPrincipais.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/negocio/RExportacaoTCERSArquivosPrincipais.class.php index 2372cf4..8090b0e 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/negocio/RExportacaoTCERSArquivosPrincipais.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/negocio/RExportacaoTCERSArquivosPrincipais.class.php @@ -35,7 +35,7 @@ * @subpackage Exportador * Casos de uso: uc-02.08.01 - $Id: RExportacaoTCERSArquivosPrincipais.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: RExportacaoTCERSArquivosPrincipais.class.php 61782 2015-03-03 18:35:51Z luciana $ */ /* Includes */ @@ -94,14 +94,14 @@ class RExportacaoTcersArquivosPrincipais public function RExportacaoTcersArquivosPrincipais() { $this->obFExportacaoTCERSExportacaoBalanceteReceita = new FExportacaoTCERSExportacaoBalanceteReceita() ; - $this->obFExportacaoTCERSExportacaoReceita = new FExportacaoTCERSExportacaoReceita() ; - $this->obTContabilidadeValorLancamento = new TContabilidadeValorLancamento() ; - $this->obTContabilidadePlanoConta = new TContabilidadePlanoConta(); - $this->obTEmpenhoEmpenho = new TEmpenhoEmpenho; - $this->obFExportacaoPagamento = new FExportacaoPagamento(); - $this->obFExportacaoLiquidacao = new FExportacaoLiquidacao(); - $this->obTNorma = new TNorma(); - $this->obFExportacaoBalanceteDespesa = new FExportacaoTCERSBalanceteDespesa(); + $this->obFExportacaoTCERSExportacaoReceita = new FExportacaoTCERSExportacaoReceita() ; + $this->obTContabilidadeValorLancamento = new TContabilidadeValorLancamento() ; + $this->obTContabilidadePlanoConta = new TContabilidadePlanoConta(); + $this->obTEmpenhoEmpenho = new TEmpenhoEmpenho; + $this->obFExportacaoPagamento = new FExportacaoPagamento(); + $this->obFExportacaoLiquidacao = new FExportacaoLiquidacao(); + $this->obTNorma = new TNorma(); + $this->obFExportacaoBalanceteDespesa = new FExportacaoTCERSBalanceteDespesa(); } // SETANDO @@ -187,18 +187,22 @@ class RExportacaoTcersArquivosPrincipais $inCount=0; while ( !$rsRecordset->eof()) { - $arRecordsetNovo[$inCount]['exercicio'] = $rsRecordset->getCampo('exercicio'); - $arRecordsetNovo[$inCount]['cod_empenho'] = $rsRecordset->getCampo('cod_empenho'); - $arRecordsetNovo[$inCount]['cod_entidade'] = $rsRecordset->getCampo('cod_entidade'); - $arRecordsetNovo[$inCount]['cod_nota'] = $rsRecordset->getCampo('cod_nota'); - $arRecordsetNovo[$inCount]['data_pagamento'] = $rsRecordset->getCampo('data_pagamento'); - $arRecordsetNovo[$inCount]['valor_liquidacao'] = $rsRecordset->getCampo('valor_liquidacao'); - $arRecordsetNovo[$inCount]['sinal_valor'] = $rsRecordset->getCampo('sinal_valor'); - $arRecordsetNovo[$inCount]['observacao'] = $rsRecordset->getCampo('observacao'); - $arRecordsetNovo[$inCount]['ordem'] = $rsRecordset->getCampo('ordem'); - $arRecordsetNovo[$inCount]['codigo_operacao'] = $rsRecordset->getCampo('codigo_operacao'); - $arRecordsetNovo[$inCount]['zero'] = "000000000000000000000000000000"; - $arRecordsetNovo[$inCount]['branco'] = ''; + $arRecordsetNovo[$inCount]['exercicio'] = $rsRecordset->getCampo('exercicio'); + $arRecordsetNovo[$inCount]['cod_empenho'] = $rsRecordset->getCampo('cod_empenho'); + $arRecordsetNovo[$inCount]['cod_entidade'] = $rsRecordset->getCampo('cod_entidade'); + $arRecordsetNovo[$inCount]['cod_nota'] = $rsRecordset->getCampo('cod_nota'); + $arRecordsetNovo[$inCount]['data_pagamento'] = $rsRecordset->getCampo('data_pagamento'); + $arRecordsetNovo[$inCount]['valor_liquidacao'] = $rsRecordset->getCampo('valor_liquidacao'); + $arRecordsetNovo[$inCount]['sinal_valor'] = $rsRecordset->getCampo('sinal_valor'); + $arRecordsetNovo[$inCount]['observacao'] = $rsRecordset->getCampo('observacao'); + $arRecordsetNovo[$inCount]['ordem'] = $rsRecordset->getCampo('ordem'); + $arRecordsetNovo[$inCount]['codigo_operacao'] = $rsRecordset->getCampo('codigo_operacao'); + $arRecordsetNovo[$inCount]['existe_contrato'] = $rsRecordset->getCampo('existe_contrato'); + $arRecordsetNovo[$inCount]['cod_contrato_tce'] = $rsRecordset->getCampo('cod_contrato_tce'); + $arRecordsetNovo[$inCount]['cod_contrato'] = $rsRecordset->getCampo('cod_contrato'); + $arRecordsetNovo[$inCount]['exercicio_contrato'] = $rsRecordset->getCampo('exercicio_contrato'); + $arRecordsetNovo[$inCount]['zero'] = "000000000000000000000000000000"; + $arRecordsetNovo[$inCount]['branco'] = ''; $rsRecordset->proximo(); $inCount++; @@ -225,6 +229,14 @@ class RExportacaoTcersArquivosPrincipais $obErro = $this->obFExportacaoBalanceteDespesa->recuperaDadosExportacao($rsRecordset ); $arRecordset["BAL_DESP.TXT"] = $rsRecordset; } + if (in_array("BVER_ENC.TXT",$this->arArquivos)) { + $this->obTContabilidadePlanoConta->setDado('stExercicio' , $this->getExercicio() ); + $this->obTContabilidadePlanoConta->setDado('dtInicial' , "01/01/".Sessao::getExercicio()."" ); + $this->obTContabilidadePlanoConta->setDado('dtFinal' , $this->getDataFinal() ); + $this->obTContabilidadePlanoConta->setDado('stCodEntidades' , $this->getCodEntidades() ); + $obErro = $this->obTContabilidadePlanoConta->recuperaDadosExportacaoBalVerificacaoEnceramento($rsRecordset,"","",$boTransacao); + $arRecordset["BVER_ENC.TXT"] = $rsRecordset; + } return $obErro; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/FMManterContratosLiquidacao.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/FMManterContratosLiquidacao.php new file mode 100644 index 0000000..e691837 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/FMManterContratosLiquidacao.php @@ -0,0 +1,184 @@ + +get('stAcao') == '') { + $stAcao = 'incluir'; +} else { + $stAcao = $request->get('stAcao'); +} + +$jsOnload = "JavaScript:modificaDado( 'configuracoesIniciais' );"; + +Sessao::remove('sessaoLista'); +Sessao::write('sessaoLista',array()); + +//*****************************************************// +// Define COMPONENTES DO FORMULARIO +//*****************************************************// +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +$obHdnId= new Hidden; +$obHdnId->setId ("inId"); +$obHdnId->setName("inId"); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId( "stCtrl" ); + +//Define o objeto de controle de exclusão do itens da lista +//$obHdnDel = new Hidden; +//$obHdnDel->setName ( "inApagar" ); +//$obHdnDel->setValue( "" ); + +$obNumLiquidacao = new Inteiro(); +$obNumLiquidacao->setRotulo ( "*Número da Liquidação" ); +$obNumLiquidacao->setTitle ( "Informe o número da liquidação." ); +$obNumLiquidacao->setId ( "inLiquidacao" ); +$obNumLiquidacao->setName ( "inLiquidacao" ); +$obNumLiquidacao->setNull ( true ); +$obNumLiquidacao->setMaxlength ( 20 ); + +$obNumContrato = new TextBox(); +$obNumContrato->setRotulo ( "*Número do Contrato" ); +$obNumContrato->setTitle ( "Informe o número do contrato." ); +$obNumContrato->setId ( "inContrato" ); +$obNumContrato->setName ( "inContrato" ); +$obNumContrato->setNull ( true ); +$obNumContrato->setMaxlength ( 20 ); + +$obNumContratoTCE = new Inteiro(); +$obNumContratoTCE->setRotulo ( "*Número do Contrato TCE" ); +$obNumContratoTCE->setTitle ( "Informe o número do contrato TCE." ); +$obNumContratoTCE->setId ( "inContratoTCE" ); +$obNumContratoTCE->setName ( "inContratoTCE" ); +$obNumContratoTCE->setNull ( true ); +$obNumContratoTCE->setMaxlength ( 20 ); + +$obAnoContrato = new Exercicio(); +$obAnoContrato->setRotulo ( "*Ano do Contrato" ); +$obAnoContrato->setTitle ( "Informe o ano do contrato." ); +$obAnoContrato->setId ( "stAno" ); +$obAnoContrato->setName ( "stAno" ); +$obAnoContrato->setNull ( true ); + +//Define Span para Lista +$obSpnLista = new Span; +$obSpnLista->setId ( "spnLista" ); + +$obBtnIncluir = new Button; +$obBtnIncluir->setName ( "btnIncluir" ); +$obBtnIncluir->setId ( "btnIncluir" ); +$obBtnIncluir->setValue ( "Incluir" ); +$obBtnIncluir->obEvento->setOnClick ( "buscaValor('incluirContrato');" ); +$obBtnIncluir->setTitle ( "Clique para incluir" ); + +$obBtnAlterar = new Button; +$obBtnAlterar->setName ( "btnAlterar" ); +$obBtnAlterar->setId ( "btnAlterar" ); +$obBtnAlterar->setValue ( "Alterar" ); +$obBtnAlterar->obEvento->setOnClick ( "buscaValor('alterarContrato');" ); +$obBtnAlterar->setTitle ( "Clique para Alterar" ); + +//****************************************// +// Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm( $obForm ); +$obFormulario->addTitulo( "Dados para o arquivo" ); + +$obFormulario->addHidden( $obHdnId ); +$obFormulario->addHidden( $obHdnAcao ); +$obFormulario->addHidden( $obHdnCtrl ); + +$obFormulario->addComponente ( $obNumLiquidacao ); +$obFormulario->addComponente ( $obNumContrato ); +$obFormulario->addComponente ( $obNumContratoTCE ); +$obFormulario->addComponente ( $obAnoContrato ); + +$obFormulario->defineBarra(array($obBtnIncluir, $obBtnAlterar),"left",""); + +$obFormulario->addSpan( $obSpnLista ); + +$obBtnOk = new Ok; + +$obBtnLimpar = new Button; +$obBtnLimpar->setName( "Limpar" ); +$obBtnLimpar->setValue( "Limpar" ); +$obBtnLimpar->setTipo( "Reset" ); +$obBtnLimpar->obEvento->setOnClick( "document.frm.reset(); modificaDado( 'configuracoesIniciais' );" ); + +$obFormulario->defineBarra( array ( $obBtnOk, $obBtnLimpar ),"","" ); + +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/JSManterContratosLiquidacao.js b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/JSManterContratosLiquidacao.js new file mode 100644 index 0000000..0ec9b3c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/JSManterContratosLiquidacao.js @@ -0,0 +1,81 @@ + + + \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/OCManterContratosLiquidacao.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/OCManterContratosLiquidacao.php new file mode 100644 index 0000000..a6a1d03 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/OCManterContratosLiquidacao.php @@ -0,0 +1,289 @@ + +preenche($arLista); + + $obLista = new Lista; + $obLista->setTitulo( "Lista de Contratos na Liquidação" ); + $obLista->setMostraPaginacao( false ); + $obLista->setRecordSet( $rsLista ); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo(" "); + $obLista->ultimoCabecalho->setWidth( 2 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo("Contrato"); + $obLista->ultimoCabecalho->setWidth( 20 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo("Liquidação"); + $obLista->ultimoCabecalho->setWidth( 20 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo("Contrato TCE"); + $obLista->ultimoCabecalho->setWidth( 20 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo("Exercício"); + $obLista->ultimoCabecalho->setWidth( 4 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo("Ação"); + $obLista->ultimoCabecalho->setWidth( 10 ); + $obLista->commitCabecalho(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "inContrato" ); + $obLista->ultimoDado->setAlinhamento( "CENTRO" ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "inLiquidacao" ); + $obLista->ultimoDado->setAlinhamento( "CENTRO" ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "inContratoTCE" ); + $obLista->ultimoDado->setAlinhamento( "CENTRO" ); + $obLista->commitDado(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stAno" ); + $obLista->ultimoDado->setAlinhamento( "CENTRO" ); + $obLista->commitDado(); + + $obLista->addAcao(); + $obLista->ultimaAcao->setAcao( "ALTERAR" ); + $obLista->ultimaAcao->setFuncaoAjax(true); + $obLista->ultimaAcao->setLink( "JavaScript:modificaDado( 'carregaContrato' );" ); + $obLista->ultimaAcao->addCampo("1","inId"); + $obLista->commitAcao(); + + $obLista->addAcao(); + $obLista->ultimaAcao->setAcao( "EXCLUIR" ); + $obLista->ultimaAcao->setFuncaoAjax(true); + $obLista->ultimaAcao->setLink( "JavaScript:modificaDado( 'excluirContrato' );" ); + $obLista->ultimaAcao->addCampo("1","inId"); + $obLista->commitAcao(); + + $obLista->montaHTML(); + $stHtml = $obLista->getHTML(); + $stHtml = str_replace("\n","",$stHtml); + $stHtml = str_replace(" ","",$stHtml); + $stHtml = str_replace("'","\\'",$stHtml); + + $stJs .= "d.getElementById('spnLista').innerHTML = '".$stHtml."';\n limpaFormularioContratos();"; + + return $stJs; +} + +function carregaLista($inIdCarregar) +{ + $arSessaoLista = Sessao::read('sessaoLista'); + + $inId = $arSessaoLista[$inIdCarregar]['inId']; + $inContrato = $arSessaoLista[$inIdCarregar]['inContrato']; + $inLiquidacao = $arSessaoLista[$inIdCarregar]['inLiquidacao']; + $inContratoTCE = $arSessaoLista[$inIdCarregar]['inContratoTCE']; + $stAno = $arSessaoLista[$inIdCarregar]['stAno']; + + $stJs.= "jq_('#inId').val(".$inId.");"; + $stJs.= "jq_('#inContrato').val(".$inContrato.");"; + $stJs.= "jq_('#inLiquidacao').val(".$inLiquidacao.");"; + $stJs.= "jq_('#inContratoTCE').val(".$inContratoTCE.");"; + $stJs.= "jq_('#stAno').val(".$stAno.");"; + + $stJs.= "jq_('#btnIncluir').prop('disabled', true);"; + $stJs.= "jq_('#btnAlterar').prop('disabled', false);"; + + return $stJs; +} + +function alterarContrato($inIdAlterar) +{ + $arListaSessao = Sessao::read('sessaoLista'); + Sessao::remove('sessaoLista'); + + $inId = 0; + + foreach ($arListaSessao as $arLista => $dados) { + if ($dados['inId'] == $inIdAlterar) { + $arListaSessao[$arLista]['inId'] = $dados['inId']; + $arListaSessao[$arLista]['inContrato'] = $_REQUEST['inContrato']; + $arListaSessao[$arLista]['inLiquidacao'] = $_REQUEST['inLiquidacao']; + $arListaSessao[$arLista]['inContratoTCE'] = $_REQUEST['inContratoTCE']; + $arListaSessao[$arLista]['stAno'] = $_REQUEST['stAno']; + } + } + + Sessao::write('sessaoLista',$arListaSessao); + + return $stJs; +} + +function excluirContrato($inIdExcluir) +{ + $arLista = array(); + $inId = 0; + + $arListaSessao = Sessao::read('sessaoLista'); + Sessao::remove('sessaoLista'); + + foreach ($arListaSessao as $arDado ) { + if ($arDado['inId'] != $inIdExcluir) { + $arLista[$inId]['inId'] = $inId; + $arLista[$inId]['inContrato'] = $arDado['inContrato']; + $arLista[$inId]['inLiquidacao'] = $arDado['inLiquidacao']; + $arLista[$inId]['inContratoTCE'] = $arDado['inContratoTCE']; + $arLista[$inId]['stAno'] = $arDado['stAno']; + $inId++; + } + } + + Sessao::write('sessaoLista',$arLista); + + return $stJs; +} + +function configuracoesIniciais() +{ + include_once( CAM_GPC_TCERS_MAPEAMENTO."TTCERSContratosLiquidacao.class.php" ); + + $arSessaoLista = array(); + $inId = 0; + + $obTTCERSContratosLiquidacao = new TTCERSContratosLiquidacao; + $obTTCERSContratosLiquidacao->recuperaTodos($rsRecordSet, "", " ORDER BY cod_liquidacao, cod_contrato"); + + while ( !$rsRecordSet->eof() ) { + $arSessaoLista[$inId]['inId'] = $inId; + $arSessaoLista[$inId]['inContrato'] = $rsRecordSet->getCampo('cod_contrato'); + $arSessaoLista[$inId]['inLiquidacao'] = $rsRecordSet->getCampo('cod_liquidacao'); + $arSessaoLista[$inId]['inContratoTCE'] = $rsRecordSet->getCampo('cod_contrato_tce'); + $arSessaoLista[$inId]['stAno'] = $rsRecordSet->getCampo('exercicio'); + + $rsRecordSet->proximo(); + $inId++; + } + + Sessao::write('sessaoLista',$arSessaoLista); +} + + +if (isset($stJs)) { + sistemaLegado::executaFrameOculto($stJs); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/PRManterContratosLiquidacao.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/PRManterContratosLiquidacao.php new file mode 100644 index 0000000..fcdd251 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/PRManterContratosLiquidacao.php @@ -0,0 +1,105 @@ + +get('stAcao'); + +$obErro = new Erro(); + +$arLista = Sessao::read('sessaoLista'); + +switch ($stAcao) { + default: + $boFlagTransacao = false; + $obTransacao = new Transacao; + $obTTCERSContratosLiquidacao = new TTCERSContratosLiquidacao(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + + if (!$obErro->ocorreu) { + $obTTCERSContratosLiquidacao->excluirTodos($boTransacao); + + foreach ($arLista as $indice => $dados) { + $obTTCERSContratosLiquidacao->setDado('cod_liquidacao', $dados['inLiquidacao']); + $obTTCERSContratosLiquidacao->setDado('cod_contrato', $dados['inContrato']); + $obTTCERSContratosLiquidacao->setDado('cod_contrato_tce', $dados['inContratoTCE']); + $obTTCERSContratosLiquidacao->setDado('exercicio', $dados['stAno']); + $obTTCERSContratosLiquidacao->recuperaPorChave($rsTTCERSContratosLiquidacao, $boTransacao); + + if ($rsTTCERSContratosLiquidacao->getNumLinhas() < 0) { + $obErro = $obTTCERSContratosLiquidacao->inclusao($boTransacao); + } else { + $obErro = $obTTCERSContratosLiquidacao->alteracao($boTransacao); + } + } + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId(),"Confiduração dos Contratos na Liquidação","incluir","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obTTCERSContratosLiquidacao); + + break; +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/FLExportacaoPrincipais.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/FLExportacaoPrincipais.php index 65a2b52..b755834 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/FLExportacaoPrincipais.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/FLExportacaoPrincipais.php @@ -33,7 +33,7 @@ * @ignore - $Id: FLExportacaoPrincipais.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FLExportacaoPrincipais.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-02.08.01 */ @@ -87,7 +87,7 @@ $obTxtPeriodoExport = new Select(); $obTxtPeriodoExport->setRotulo ("Periodo"); $obTxtPeriodoExport->setName ("inPeriodo"); $obTxtPeriodoExport->setId ("inPeriodo"); -$obTxtPeriodoExport->obEvento->setOnChange ('rd_extra();'); +$obTxtPeriodoExport->obEvento->setOnChange ("add_arquivos_extras(".Sessao::getExercicio().");"); $obTxtPeriodoExport->addOption ('','Selecione'); $obTxtPeriodoExport->setNull (false); /* diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSExportacaoPrincipais.js b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSExportacaoPrincipais.js index 43bb368..bed0a5c 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSExportacaoPrincipais.js +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSExportacaoPrincipais.js @@ -34,10 +34,10 @@ * @ignore - $Revision: 59820 $ + $Revision: 61647 $ $Name$ $Autor: $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * Casos de uso: uc-02.08.01 */ @@ -54,10 +54,10 @@ Adicionada tag Log aos arquivos ?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/OCExportacaoPrincipais.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/OCExportacaoPrincipais.php index c204076..cfb79f1 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/OCExportacaoPrincipais.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/OCExportacaoPrincipais.php @@ -33,7 +33,7 @@ * @ignore - $Id: OCExportacaoPrincipais.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCExportacaoPrincipais.php 61782 2015-03-03 18:35:51Z luciana $ * Casos de uso: uc-02.08.01 */ @@ -207,27 +207,43 @@ if (in_array("EMPENHO.TXT",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(165); } - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("caracteristica"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("modalidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + if (Sessao::getExercicio() < '2015') { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("modalidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + } else { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + } $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("preco"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("outras_modalidades"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_licitacao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); - + if (Sessao::getExercicio() < '2015') { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("outras_modalidades"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + } else { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + } + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); @@ -238,6 +254,11 @@ if (in_array("EMPENHO.TXT",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(400); } + if (Sessao::getExercicio() >= '2015') { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("modalidade_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); + } } /*********************/ @@ -288,6 +309,12 @@ if (in_array("BAL_REC.TXT",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_caracteristica"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); + + if (Sessao::getExercicio() >= '2015') { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_atualizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + } } if (in_array("RECEITA.TXT",$arFiltro["arArquivosSelecionados"])) { @@ -581,6 +608,22 @@ if (in_array("LIQUIDAC.TXT",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("observacao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(400); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("existe_contrato"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_contrato_tce"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_contrato"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_contrato"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); } } @@ -722,6 +765,115 @@ if (in_array("BAL_DESP.TXT",$arFiltro["arArquivosSelecionados"])) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); } +if (in_array("BVER_ENC.TXT",$arFiltro["arArquivosSelecionados"])) { + if ($arRecordSet["BVER_ENC.TXT"]->getNumLinhas() >= 1) { + $arElementos = $arRecordSet["BVER_ENC.TXT"]->getElementos(); + $arDadosArquivo = array(); + $inCount = 0; + foreach ($arElementos as $key => $array) { + $arDadosArquivo[$inCount]['cod_estrutural'] = $array['cod_estrutural']; + $arDadosArquivo[$inCount]['nom_sistema'] = $array['nom_sistema']; + $arDadosArquivo[$inCount]['nivel'] = $array['nivel']; + $arDadosArquivo[$inCount]['nom_conta'] = $array['nom_conta']; + $arDadosArquivo[$inCount]['saldo_anterior_devedora'] = $array['saldo_anterior_devedora']; + $arDadosArquivo[$inCount]['saldo_anterior_credora'] = $array['saldo_anterior_credora']; + $arDadosArquivo[$inCount]['vl_saldo_debitos'] = $array['vl_saldo_debitos']; + $arDadosArquivo[$inCount]['vl_saldo_creditos'] = $array['vl_saldo_creditos']; + $arDadosArquivo[$inCount]['saldo_atual_devedora'] = $array['saldo_atual_devedora']; + $arDadosArquivo[$inCount]['saldo_atual_credora'] = $array['saldo_atual_credora']; + $arDadosArquivo[$inCount]['tipo_conta'] = $array['tipo_conta']; + $arDadosArquivo[$inCount]['branco'] = ''; + $arDadosArquivo[$inCount]['escrituracao'] = $array['escrituracao']; + $arDadosArquivo[$inCount]['indicador_superavit'] = $array['indicador_superavit']; + + if ($array['cod_entidade'] != '') { + switch ($array['cod_entidade']) { + case $inCodPrefeitura : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOUExecutivo; break; + case $inCodCamara : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOULegislativo; break; + case $inCodRPPS : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOURPPS; break; + DEFAULT : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOUOutros; + } + } else { + switch ($setorGoverno[0]) { + case $inCodPrefeitura : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOUExecutivo; break; + case $inCodCamara : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOULegislativo; break; + case $inCodRPPS : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOURPPS; break; + DEFAULT : $arDadosArquivo[$inCount]['orgao_unidade'] = $inCodOUExecutivo; + } + } + $inCount++; + } + $arBVER_ENC = new RecordSet; + $arBVER_ENC->preenche($arDadosArquivo); + }else{ + $arBVER_ENC = new RecordSet; + } + + $obExportador->addArquivo("BVER_ENC.TXT"); + $obExportador->roUltimoArquivo->setTipoDocumento("TCE_RS"); + $obExportador->roUltimoArquivo->addBloco($arBVER_ENC); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_estrutural"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("orgao_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_anterior_devedora"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_anterior_credora"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_debitos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_creditos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_atual_devedora"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_atual_credora"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(148); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nivel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_sistema"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("escrituracao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("indicador_superavit"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); +} + if ($arFiltro['stTipoExport'] == 'compactados') { $obExportador->setNomeArquivoZip('ExportacaoArquivosPrincipais.zip'); } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCETO/classes/mapeamento/TTCETOAlteracaoLeiPPA.class.php b/gestaoPrestacaoContas/fontes/PHP/TCETO/classes/mapeamento/TTCETOAlteracaoLeiPPA.class.php index a5429dd..ed9076e 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCETO/classes/mapeamento/TTCETOAlteracaoLeiPPA.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCETO/classes/mapeamento/TTCETOAlteracaoLeiPPA.class.php @@ -29,7 +29,7 @@ * * @author Analista: Silvia Martins Silva * @author Desenvolvedor: Evandro Melos - * $Id: TTCETOAlteracaoLeiPPA.class.php 60788 2014-11-17 12:47:59Z silvia $ + * $Id: TTCETOAlteracaoLeiPPA.class.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; @@ -71,10 +71,19 @@ class TTCETOAlteracaoLeiPPA extends Persistente public function montaRecuperaAlteracaoLeisPPA() { - $stSql = " SELECT * + $stSql = " SELECT alteracao_lei_ppa.cod_norma + , alteracao_lei_ppa.data_alteracao + , tipo_norma.nom_tipo_norma||' '||norma.num_norma||'/'||norma.exercicio||' - '||norma.nom_norma AS nom_norma + , norma.descricao + , norma.exercicio + , norma.num_norma + , norma.cod_tipo_norma + , tipo_norma.nom_tipo_norma FROM tceto.alteracao_lei_ppa JOIN normas.norma ON norma.cod_norma = alteracao_lei_ppa.cod_norma + JOIN normas.tipo_norma + ON tipo_norma.cod_tipo_norma = norma.cod_tipo_norma WHERE alteracao_lei_ppa.timestamp = (SELECT MAX(timestamp) FROM tceto.alteracao_lei_ppa) "; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/componentes/IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/componentes/IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa.class.php new file mode 100644 index 0000000..0fc9f64 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/componentes/IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa.class.php @@ -0,0 +1,100 @@ + +stRotulo = $valor; } + public function setName($valor) { $this->stName = $valor; } + + public function getRotulo() { return $this->stRotulo; } + public function getName() { return $this->stNme; } + + public function IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa(&$obForm) + { + parent::Objeto(); + + $rsLicitacao = new RecordSet(); + + include_once ( CAM_GF_ORC_COMPONENTES."ISelectMultiploEntidadeUsuario.class.php" ); + include_once ( CAM_GP_COM_COMPONENTES."ISelectModalidade.class.php" ); + + $this->obExercicio = new Exercicio(); + $this->obExercicio->setName( 'stExercicioLicitacao' ); + $this->obExercicio->setNull( true ); + + $this->obISelectMultiploEntidadeUsuario = new ISelectMultiploEntidadeUsuario(); + $this->obISelectMultiploEntidadeUsuario->setNull( true ); + + $this->obTxtLicitacao = new TextBox(); + $this->obTxtLicitacao->setName ( 'inCodLicitacao' ); + $this->obTxtLicitacao->setRotulo ( 'Licitação' ); + $this->obTxtLicitacao->setTitle ( 'Selecione a Licitação.' ); + + } + + public function geraFormulario(&$obFormulario) + { + $obFormulario->addComponente( $this->obExercicio ); + $obFormulario->addComponente( $this->obISelectMultiploEntidadeUsuario ); + $obFormulario->addComponente( $this->obTxtLicitacao ); + } + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOArquivoProgramasPPA.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOArquivoProgramasPPA.class.php new file mode 100755 index 0000000..54b937e --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOArquivoProgramasPPA.class.php @@ -0,0 +1,80 @@ + +montaRecuperaTotalRecursos($stFiltro, $stOrdem); + $this->setDebug($stSQL); + $obErro = $obConexao->executaSQL($rsRecordSet, $stSQL, $boTransacao); + + return $obErro; + } + + private function montaRecuperaTotalRecursos($stFiltro = '', $stOrdem = '') + { + $stSql = " SELECT 10 AS tipo_registro + , * + FROM tcmgo.recupera_ppa_programa('".$this->getDado('exercicio')."') + AS retorno ( + cod_programa INTEGER + , tipo_programa INTEGER + , nome_programa VARCHAR + , num_programa INTEGER + , objetivo VARCHAR + , total_recursos_ano_1 VARCHAR + , total_recursos_ano_2 VARCHAR + , total_recursos_ano_3 VARCHAR + , total_recursos_ano_4 VARCHAR + ) + ORDER BY num_programa "; + return $stSql; + } + + public function __destruct(){} +} + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOConfiguracaoLOA.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOConfiguracaoLOA.class.php new file mode 100644 index 0000000..5b01982 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOConfiguracaoLOA.class.php @@ -0,0 +1,144 @@ + +setTabela('tcmgo.configuracao_loa'); + + $this->setCampoCod('exercicio'); + $this->setComplementoChave(''); + + $this->AddCampo('exercicio' , 'varchar', true, 4, true, false); + $this->AddCampo('cod_norma' , 'integer', false, '', false, true); + $this->AddCampo('percentual_suplementacao' , 'numeric', false, '', false, false); + $this->AddCampo('percentual_credito_interna' , 'numeric', false, '', false, false); + $this->AddCampo('percentual_credito_antecipacao_receita' , 'numeric', false, '', false, false); + + } + + public function recuperaRegistro10(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro10() + { + $stSql = " + SELECT + 10 AS tipo_registro + , norma.num_norma AS num_loa + , TO_CHAR(norma.dt_assinatura, 'ddmmyyyy') AS dt_loa + , configuracao_loa.percentual_suplementacao AS perc_suplementacao + , configuracao_loa.percentual_credito_interna AS perc_op_cred_int + , configuracao_loa.percentual_credito_antecipacao_receita AS perc_op_cred_aro + + FROM tcmgo.configuracao_loa + + JOIN normas.norma + ON norma.cod_norma = configuracao_loa.cod_norma + + WHERE configuracao_loa.exercicio = '".$this->getDado('exercicio')."' + "; + + return $stSql; + } + + public function recuperaRegistro11(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro11",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro11() + { + $stSql =" SELECT + 11 AS tipo_registro + , norma.num_norma AS num_loa + , CASE tipo_veiculos_publicidade.cod_tipo_veiculos_publicidade + WHEN 6 THEN 1 + WHEN 1 THEN 4 + WHEN 2 THEN 4 + WHEN 3 THEN 4 + WHEN 4 THEN 4 + WHEN 5 THEN 5 + WHEN 7 THEN 5 + WHEN 8 THEN 3 + WHEN 9 THEN 9 + END as meio_pub_loa + , tipo_veiculos_publicidade.descricao as desc_meio_loa + , TO_CHAR(norma.dt_publicacao,'ddmmyyyy') AS dt_lei_loa + + FROM tcmgo.configuracao_loa + + JOIN normas.norma + ON norma.cod_norma = configuracao_loa.cod_norma + + LEFT JOIN ldo.homologacao + ON homologacao.cod_norma = norma.cod_norma + + LEFT JOIN licitacao.veiculos_publicidade + ON veiculos_publicidade.numcgm = homologacao.numcgm_veiculo + + LEFT JOIN licitacao.tipo_veiculos_publicidade + ON tipo_veiculos_publicidade.cod_tipo_veiculos_publicidade = veiculos_publicidade.cod_tipo_veiculos_publicidade + + WHERE configuracao_loa.exercicio = '".$this->getDado('exercicio')."' + AND TO_CHAR(homologacao.timestamp, 'yyyy') = '".$this->getDado('exercicio')."' + "; + + return $stSql; + } + + public function __destruct(){} + +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAFD.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAFD.class.php index 653f034..8c41046 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAFD.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAFD.class.php @@ -33,10 +33,10 @@ * @package URBEM * @subpackage Mapeamento - $Revision: 59820 $ + $Revision: 61782 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-03-03 15:35:51 -0300 (Ter, 03 Mar 2015) $ * Casos de uso: uc-06.04.00 */ @@ -66,154 +66,515 @@ class TTCMGOAFD extends Persistente * Método Construtor * @access Private */ - - public function recuperaContasBancarias(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + + function recuperaContasBancarias(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") { - return $this->executaRecupera("montaRecuperaContasBancarias",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaContasBancarias().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); } public function montaRecuperaContasBancarias() { - $stSql = " - SELECT '10' AS tipo_registro - , num_orgao - , REPLACE(conta_corrente,'-','') AS conta_corrente - , REPLACE(agencia.num_agencia,'-','') AS num_agencia - , banco.num_banco - , plano_conta.nom_conta - , plano_analitica.cod_plano - , plano_analitica.exercicio - , '0' AS numero_sequencial - , ( SELECT SUM( + $stSql = " + SELECT '10' AS tipo_registro + , ( SELECT SUBSTR(valor,1,1) + FROM administracao.configuracao_entidade + WHERE configuracao_entidade.exercicio = plano_banco.exercicio + AND configuracao_entidade.cod_entidade = plano_banco.cod_entidade + AND parametro = 'tc_ug_orgaounidade' + ) as cod_orgao + , banco.num_banco AS banco + , REPLACE(agencia.num_agencia,'-','') AS agencia + , REPLACE(ltrim(split_part(num_conta_corrente,'-',1),'0'),'.','') AS conta_corrente + , ltrim(split_part(num_conta_corrente,'-',2),'0') AS conta_corrente_dv + , CASE WHEN (substr(plano_conta.cod_estrutural, 1, 12) = '1.1.1.1.1.01') + THEN '03' + WHEN (substr(plano_conta.cod_estrutural, 1, 5) = '1.1.4') + THEN '02' + ELSE '01' + END as tipo_conta + , ( SELECT SUM( ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total FROM contabilidade.conta_debito + INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_debito.cod_lote - AND valor_lancamento.tipo = conta_debito.tipo - AND valor_lancamento.sequencia = conta_debito.sequencia - AND valor_lancamento.exercicio = conta_debito.exercicio - AND valor_lancamento.tipo_valor = conta_debito.tipo_valor + ON valor_lancamento.cod_lote = conta_debito.cod_lote + AND valor_lancamento.tipo = conta_debito.tipo + AND valor_lancamento.sequencia = conta_debito.sequencia + AND valor_lancamento.exercicio = conta_debito.exercicio + AND valor_lancamento.tipo_valor = conta_debito.tipo_valor AND valor_lancamento.cod_entidade = conta_debito.cod_entidade + INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo - AND lote.cod_entidade = lancamento.cod_entidade + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_debito.exercicio = pa.exercicio AND conta_debito.cod_plano = pa.cod_plano - ) - ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total FROM contabilidade.conta_credito + INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_credito.cod_lote - AND valor_lancamento.tipo = conta_credito.tipo - AND valor_lancamento.sequencia = conta_credito.sequencia - AND valor_lancamento.exercicio = conta_credito.exercicio - AND valor_lancamento.tipo_valor = conta_credito.tipo_valor + ON valor_lancamento.cod_lote = conta_credito.cod_lote + AND valor_lancamento.tipo = conta_credito.tipo + AND valor_lancamento.sequencia = conta_credito.sequencia + AND valor_lancamento.exercicio = conta_credito.exercicio + AND valor_lancamento.tipo_valor = conta_credito.tipo_valor AND valor_lancamento.cod_entidade = conta_credito.cod_entidade + INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_credito.exercicio = pa.exercicio AND conta_credito.cod_plano = pa.cod_plano - ) ) as vl_total FROM contabilidade.plano_analitica AS pa WHERE pa.cod_plano = plano_analitica.cod_plano AND pa.exercicio = plano_analitica.exercicio ) AS saldo_inicial + + , (SELECT SUM(( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_debito + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_debito.cod_lote + AND valor_lancamento.tipo = conta_debito.tipo + AND valor_lancamento.sequencia = conta_debito.sequencia + AND valor_lancamento.exercicio = conta_debito.exercicio + AND valor_lancamento.tipo_valor = conta_debito.tipo_valor + AND valor_lancamento.cod_entidade = conta_debito.cod_entidade + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + AND lote.exercicio = '".$this->getDado('exercicio')."' + AND lote.tipo != 'I' + WHERE conta_debito.exercicio = pa.exercicio + AND conta_debito.cod_plano = pa.cod_plano + )) as vl_total + FROM contabilidade.plano_analitica AS pa + WHERE pa.cod_plano = plano_analitica.cod_plano + AND pa.exercicio = plano_analitica.exercicio + ) AS vl_entradas + + , (SELECT SUM(( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_credito + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_credito.cod_lote + AND valor_lancamento.tipo = conta_credito.tipo + AND valor_lancamento.sequencia = conta_credito.sequencia + AND valor_lancamento.exercicio = conta_credito.exercicio + AND valor_lancamento.tipo_valor = conta_credito.tipo_valor + AND valor_lancamento.cod_entidade = conta_credito.cod_entidade + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + AND lote.exercicio = '".$this->getDado('exercicio')."' + AND lote.tipo != 'I' + WHERE conta_credito.exercicio = pa.exercicio + AND conta_credito.cod_plano = pa.cod_plano + )) as vl_total + FROM contabilidade.plano_analitica AS pa + WHERE pa.cod_plano = plano_analitica.cod_plano + AND pa.exercicio = plano_analitica.exercicio + ) * -1 AS vl_saidas + , ( SELECT SUM( ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total FROM contabilidade.conta_debito INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_debito.cod_lote - AND valor_lancamento.tipo = conta_debito.tipo - AND valor_lancamento.sequencia = conta_debito.sequencia - AND valor_lancamento.exercicio = conta_debito.exercicio - AND valor_lancamento.tipo_valor = conta_debito.tipo_valor + ON valor_lancamento.cod_lote = conta_debito.cod_lote + AND valor_lancamento.tipo = conta_debito.tipo + AND valor_lancamento.sequencia = conta_debito.sequencia + AND valor_lancamento.exercicio = conta_debito.exercicio + AND valor_lancamento.tipo_valor = conta_debito.tipo_valor AND valor_lancamento.cod_entidade = conta_debito.cod_entidade + INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo - AND lote.cod_entidade = lancamento.cod_entidade + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_debito.exercicio = pa.exercicio + AND conta_debito.cod_plano = pa.cod_plano + ) + - + ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_credito + + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_credito.cod_lote + AND valor_lancamento.tipo = conta_credito.tipo + AND valor_lancamento.sequencia = conta_credito.sequencia + AND valor_lancamento.exercicio = conta_credito.exercicio + AND valor_lancamento.tipo_valor = conta_credito.tipo_valor + AND valor_lancamento.cod_entidade = conta_credito.cod_entidade + + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_credito.exercicio = pa.exercicio + AND conta_credito.cod_plano = pa.cod_plano + ) + ) + + FROM contabilidade.plano_analitica AS pa + WHERE pa.cod_plano = plano_analitica.cod_plano + AND pa.exercicio = plano_analitica.exercicio + + ) AS saldo_final + + FROM tcmgo.orgao_plano_banco + + INNER JOIN contabilidade.plano_banco + ON plano_banco.cod_plano = orgao_plano_banco.cod_plano + AND plano_banco.exercicio = orgao_plano_banco.exercicio + + INNER JOIN contabilidade.plano_analitica + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + + INNER JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + + INNER JOIN monetario.agencia + ON agencia.cod_banco = plano_banco.cod_banco + AND agencia.cod_agencia = plano_banco.cod_agencia + + LEFT JOIN monetario.conta_corrente + ON conta_corrente.cod_banco = plano_banco.cod_banco + AND conta_corrente.cod_agencia = plano_banco.cod_agencia + AND conta_corrente.cod_conta_corrente = plano_banco.cod_conta_corrente + + INNER JOIN monetario.banco + ON banco.cod_banco = plano_banco.cod_banco + + WHERE plano_banco.exercicio = '".$this->getDado('exercicio')."' + AND plano_banco.cod_entidade IN (".$this->getDado('cod_entidade') .") "; + + return $stSql; + } + + function recuperaContasBancariasFonteRecurso(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaContasBancariasFonteRecurso().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + public function montaRecuperaContasBancariasFonteRecurso() + { + $stSql = " + SELECT '11' AS tipo_registro + , ( SELECT SUBSTR(valor,1,1) + FROM administracao.configuracao_entidade + WHERE configuracao_entidade.exercicio = plano_banco.exercicio + AND configuracao_entidade.cod_entidade = plano_banco.cod_entidade + AND parametro = 'tc_ug_orgaounidade' + ) as cod_orgao + , banco.num_banco AS banco + , REPLACE(agencia.num_agencia,'-','') AS agencia + , REPLACE(ltrim(split_part(num_conta_corrente,'-',1),'0'),'.','') AS conta_corrente + , ltrim(split_part(num_conta_corrente,'-',2),'0') AS conta_corrente_dv + , CASE WHEN (substr(plano_conta.cod_estrutural, 1, 12) = '1.1.1.1.1.01') + THEN '03' + WHEN (substr(plano_conta.cod_estrutural, 1, 5) = '1.1.4') + THEN '02' + ELSE '01' + END as tipo_conta + , recurso.cod_recurso AS cod_fonte_recurso + , ( SELECT SUM( + ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_debito + + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_debito.cod_lote + AND valor_lancamento.tipo = conta_debito.tipo + AND valor_lancamento.sequencia = conta_debito.sequencia + AND valor_lancamento.exercicio = conta_debito.exercicio + AND valor_lancamento.tipo_valor = conta_debito.tipo_valor + AND valor_lancamento.cod_entidade = conta_debito.cod_entidade + + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_debito.exercicio = pa.exercicio AND conta_debito.cod_plano = pa.cod_plano - ) - ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total FROM contabilidade.conta_credito + INNER JOIN contabilidade.valor_lancamento - ON valor_lancamento.cod_lote = conta_credito.cod_lote - AND valor_lancamento.tipo = conta_credito.tipo - AND valor_lancamento.sequencia = conta_credito.sequencia - AND valor_lancamento.exercicio = conta_credito.exercicio - AND valor_lancamento.tipo_valor = conta_credito.tipo_valor + ON valor_lancamento.cod_lote = conta_credito.cod_lote + AND valor_lancamento.tipo = conta_credito.tipo + AND valor_lancamento.sequencia = conta_credito.sequencia + AND valor_lancamento.exercicio = conta_credito.exercicio + AND valor_lancamento.tipo_valor = conta_credito.tipo_valor AND valor_lancamento.cod_entidade = conta_credito.cod_entidade + INNER JOIN contabilidade.lancamento - ON lancamento.sequencia = valor_lancamento.sequencia - AND lancamento.cod_lote = valor_lancamento.cod_lote - AND lancamento.tipo = valor_lancamento.tipo - AND lancamento.exercicio = valor_lancamento.exercicio + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio AND lancamento.cod_entidade = valor_lancamento.cod_entidade + INNER JOIN contabilidade.lote - ON lote.cod_lote = lancamento.cod_lote - AND lote.exercicio = lancamento.exercicio - AND lote.tipo = lancamento.tipo + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo AND lote.cod_entidade = lancamento.cod_entidade + + WHERE conta_credito.exercicio = pa.exercicio + AND conta_credito.cod_plano = pa.cod_plano + ) + ) as vl_total + FROM contabilidade.plano_analitica AS pa + WHERE pa.cod_plano = plano_analitica.cod_plano + AND pa.exercicio = plano_analitica.exercicio + ) AS saldo_inicial + + , (SELECT SUM(( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_debito + + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_debito.cod_lote + AND valor_lancamento.tipo = conta_debito.tipo + AND valor_lancamento.sequencia = conta_debito.sequencia + AND valor_lancamento.exercicio = conta_debito.exercicio + AND valor_lancamento.tipo_valor = conta_debito.tipo_valor + AND valor_lancamento.cod_entidade = conta_debito.cod_entidade + + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + AND lote.exercicio = '".$this->getDado('exercicio')."' + AND lote.tipo != 'I' + + WHERE conta_debito.exercicio = pa.exercicio + AND conta_debito.cod_plano = pa.cod_plano + + )) as vl_total + FROM contabilidade.plano_analitica AS pa + WHERE pa.cod_plano = plano_analitica.cod_plano + AND pa.exercicio = plano_analitica.exercicio + ) AS vl_entradas + + , (SELECT SUM(( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_credito + + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_credito.cod_lote + AND valor_lancamento.tipo = conta_credito.tipo + AND valor_lancamento.sequencia = conta_credito.sequencia + AND valor_lancamento.exercicio = conta_credito.exercicio + AND valor_lancamento.tipo_valor = conta_credito.tipo_valor + AND valor_lancamento.cod_entidade = conta_credito.cod_entidade + + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + AND lote.exercicio = '".$this->getDado('exercicio')."' + AND lote.tipo != 'I' + + WHERE conta_credito.exercicio = pa.exercicio + AND conta_credito.cod_plano = pa.cod_plano + + )) as vl_total + FROM contabilidade.plano_analitica AS pa + WHERE pa.cod_plano = plano_analitica.cod_plano + AND pa.exercicio = plano_analitica.exercicio + ) * -1 AS vl_saidas + + , ( SELECT SUM( + ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_debito + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_debito.cod_lote + AND valor_lancamento.tipo = conta_debito.tipo + AND valor_lancamento.sequencia = conta_debito.sequencia + AND valor_lancamento.exercicio = conta_debito.exercicio + AND valor_lancamento.tipo_valor = conta_debito.tipo_valor + AND valor_lancamento.cod_entidade = conta_debito.cod_entidade + + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_debito.exercicio = pa.exercicio + AND conta_debito.cod_plano = pa.cod_plano + ) + - + ( SELECT COALESCE(SUM(valor_lancamento.vl_lancamento),0.00) as vl_total + FROM contabilidade.conta_credito + + INNER JOIN contabilidade.valor_lancamento + ON valor_lancamento.cod_lote = conta_credito.cod_lote + AND valor_lancamento.tipo = conta_credito.tipo + AND valor_lancamento.sequencia = conta_credito.sequencia + AND valor_lancamento.exercicio = conta_credito.exercicio + AND valor_lancamento.tipo_valor = conta_credito.tipo_valor + AND valor_lancamento.cod_entidade = conta_credito.cod_entidade + + INNER JOIN contabilidade.lancamento + ON lancamento.sequencia = valor_lancamento.sequencia + AND lancamento.cod_lote = valor_lancamento.cod_lote + AND lancamento.tipo = valor_lancamento.tipo + AND lancamento.exercicio = valor_lancamento.exercicio + AND lancamento.cod_entidade = valor_lancamento.cod_entidade + + INNER JOIN contabilidade.lote + ON lote.cod_lote = lancamento.cod_lote + AND lote.exercicio = lancamento.exercicio + AND lote.tipo = lancamento.tipo + AND lote.cod_entidade = lancamento.cod_entidade + WHERE conta_credito.exercicio = pa.exercicio AND conta_credito.cod_plano = pa.cod_plano - ) ) + FROM contabilidade.plano_analitica AS pa WHERE pa.cod_plano = plano_analitica.cod_plano AND pa.exercicio = plano_analitica.exercicio + ) AS saldo_final + FROM tcmgo.orgao_plano_banco + INNER JOIN contabilidade.plano_banco ON plano_banco.cod_plano = orgao_plano_banco.cod_plano AND plano_banco.exercicio = orgao_plano_banco.exercicio + INNER JOIN contabilidade.plano_analitica ON plano_analitica.cod_plano = plano_banco.cod_plano AND plano_analitica.exercicio = plano_banco.exercicio + INNER JOIN contabilidade.plano_conta ON plano_conta.cod_conta = plano_analitica.cod_conta AND plano_conta.exercicio = plano_analitica.exercicio + + INNER JOIN contabilidade.plano_recurso + ON plano_recurso.cod_plano = plano_analitica.cod_plano + AND plano_recurso.exercicio = plano_analitica.exercicio + + INNER JOIN orcamento.recurso + ON recurso.cod_recurso = plano_recurso.cod_recurso + AND recurso.exercicio = plano_recurso.exercicio + INNER JOIN monetario.agencia - ON agencia.cod_banco = plano_banco.cod_banco + ON agencia.cod_banco = plano_banco.cod_banco AND agencia.cod_agencia = plano_banco.cod_agencia + + LEFT JOIN monetario.conta_corrente + ON conta_corrente.cod_banco = plano_banco.cod_banco + AND conta_corrente.cod_agencia = plano_banco.cod_agencia + AND conta_corrente.cod_conta_corrente = plano_banco.cod_conta_corrente + INNER JOIN monetario.banco ON banco.cod_banco = plano_banco.cod_banco - WHERE plano_banco.exercicio = '".$this->getDado('exercicio')."' - AND plano_banco.cod_entidade IN (".$this->getDado('cod_entidade') .") - - "; - + + WHERE plano_banco.exercicio = '".$this->getDado('exercicio')."' + AND plano_banco.cod_entidade IN (".$this->getDado('cod_entidade') .") "; + return $stSql; } } + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAMP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAMP.class.php new file mode 100644 index 0000000..283919a --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAMP.class.php @@ -0,0 +1,192 @@ + +montaRecuperaDadosTipo10($stFiltro, $stOrdem); + $this->setDebug($stSQL); + + return $obConexao->executaSQL($rsRecordSet, $stSQL, $boTransacao); + } + + private function montaRecuperaDadosTipo10($stFiltro = '', $stOrdem = '') + { + $stSql = " SELECT + 10 AS tipo_registro + , cod_orgao + , cod_unidade + , cod_programa + , nro_proj_ativ + , cod_funcao + , cod_subfuncao + , meta_fisica_1Ano + , meta_fisica_2Ano + , meta_fisica_3Ano + , meta_fisica_4Ano + , meta_financeira_1Ano + , meta_financeira_2Ano + , meta_financeira_3Ano + , meta_financeira_4Ano + , cod_natureza + , acao_detalhada + , unidade_medida + , acao_reduzida + , produto + + + FROM ( SELECT + '".$this->getDado('exercicio')."' AS exercicio + , LPAD(programa_dados.num_orgao::varchar,2,'0') AS cod_orgao + , LPAD(programa_dados.num_unidade::varchar,4,'0') AS cod_unidade + , LPAD(programa.num_programa::varchar,4,'0') AS cod_programa + , LPAD(acao.num_acao::varchar,4,'0') AS nro_proj_ativ + , Ano1.quantidade AS meta_fisica_1Ano + , Ano2.quantidade AS meta_fisica_2Ano + , Ano3.quantidade AS meta_fisica_3Ano + , Ano4.quantidade AS meta_fisica_4Ano + , Ano1.valor AS meta_financeira_1Ano + , Ano2.valor AS meta_financeira_2Ano + , Ano3.valor AS meta_financeira_3Ano + , Ano4.valor AS meta_financeira_4Ano + , acao_dados.cod_subfuncao + , acao_dados.cod_funcao + , acao_dados.cod_natureza + , acao_dados.detalhamento AS acao_detalhada + , acao_dados.cod_unidade_medida AS unidade_medida + , acao_dados.descricao AS acao_reduzida + , produto.descricao AS produto + , programa_dados.publico_alvo + , acao_dados.cod_tipo_orcamento AS esfera_orcamentaria + + FROM ppa.programa + + JOIN ppa.acao + ON programa.cod_programa = acao.cod_programa + + JOIN ppa.acao_quantidade + ON acao.cod_acao = acao_quantidade.cod_acao + + JOIN ppa.acao_dados + ON acao_dados.cod_acao = acao.cod_acao + + JOIN ppa.produto + ON produto.cod_produto = acao_dados.cod_produto + + JOIN ( + SELECT * + FROM ppa.acao_quantidade AS Ano1 + WHERE Ano1.exercicio_recurso = ((SELECT ano_inicio::INTEGER FROM ppa.ppa WHERE ".$this->getDado('exercicio')." BETWEEN ppa.ano_inicio::INTEGER AND ano_final::INTEGER)::VARCHAR) + ) AS Ano1 + ON Ano1.cod_acao = acao_quantidade.cod_acao + AND Ano1.timestamp_acao_dados = ( SELECT times.timestamp_acao_dados + FROM ppa.acao_quantidade as times + WHERE times.cod_acao = Ano1.cod_acao + AND times.exercicio_recurso = Ano1.exercicio_recurso + ORDER BY timestamp_acao_dados DESC LIMIT 1 + ) + + JOIN ( + SELECT * + FROM ppa.acao_quantidade AS Ano2 + WHERE Ano2.exercicio_recurso = (((SELECT ano_inicio::INTEGER FROM ppa.ppa WHERE ".$this->getDado('exercicio')." BETWEEN ppa.ano_inicio::INTEGER AND ano_final::INTEGER)+1)::VARCHAR) + ) AS Ano2 + ON Ano2.cod_acao = acao_quantidade.cod_acao + AND Ano2.timestamp_acao_dados = ( SELECT times.timestamp_acao_dados + FROM ppa.acao_quantidade AS times + WHERE times.cod_acao = Ano2.cod_acao + AND times.exercicio_recurso = Ano2.exercicio_recurso + ORDER BY timestamp_acao_dados DESC LIMIT 1 + ) + + JOIN ( + SELECT * + FROM ppa.acao_quantidade AS Ano3 + WHERE Ano3.exercicio_recurso = (((SELECT ano_inicio::INTEGER FROM ppa.ppa WHERE ".$this->getDado('exercicio')." BETWEEN ppa.ano_inicio::INTEGER AND ano_final::INTEGER)+2)::VARCHAR) + ) AS Ano3 + ON Ano3.cod_acao = acao_quantidade.cod_acao + AND Ano3.timestamp_acao_dados = ( SELECT times.timestamp_acao_dados + FROM ppa.acao_quantidade AS times + WHERE times.cod_acao = Ano3.cod_acao + AND times.exercicio_recurso = Ano3.exercicio_recurso + ORDER BY timestamp_acao_dados DESC LIMIT 1 + ) + + JOIN ( + SELECT * + FROM ppa.acao_quantidade AS Ano4 + WHERE Ano4.exercicio_recurso = (((SELECT ano_inicio::INTEGER FROM ppa.ppa WHERE ".$this->getDado('exercicio')." BETWEEN ppa.ano_inicio::INTEGER AND ano_final::INTEGER)+3)::VARCHAR) + ) AS Ano4 + ON Ano4.cod_acao = acao_quantidade.cod_acao + AND Ano4.timestamp_acao_dados = ( SELECT times.timestamp_acao_dados + FROM ppa.acao_quantidade AS times + WHERE times.cod_acao = Ano4.cod_acao + AND times.exercicio_recurso = Ano4.exercicio_recurso + ORDER BY timestamp_acao_dados DESC LIMIT 1 + ) + + JOIN ppa.programa_dados + ON programa_dados.cod_programa = programa.cod_programa + + WHERE acao_quantidade.exercicio_recurso = '".$this->getDado('exercicio')."' + AND acao_quantidade.timestamp_acao_dados = Ano1.timestamp_acao_dados + + GROUP BY programa.cod_programa + , nro_proj_ativ + , programa_dados.num_orgao + , programa_dados.num_unidade + , programa_dados.publico_alvo + , acao_dados.cod_tipo_orcamento + , acao_dados.detalhamento + , acao_dados.cod_unidade_medida + , acao_dados.cod_subfuncao + , acao_dados.cod_funcao + , acao_dados.cod_natureza + , produto.descricao + , Ano1.quantidade + , Ano2.quantidade + , Ano3.quantidade + , Ano4.quantidade + , Ano1.valor + , Ano2.valor + , Ano3.valor + , Ano4.valor + , acao_dados.descricao + + ORDER BY cod_programa + , nro_proj_ativ + ) AS TBL + "; + return $stSql; + } + +} +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoDSP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoDSP.class.php new file mode 100644 index 0000000..464f30c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoDSP.class.php @@ -0,0 +1,164 @@ + +setDado('exercicio', Sessao::getExercicio() ); +} + +public function recuperaDSP10(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") +{ + return $this->executaRecupera("montaRecuperaDSP10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaDSP10() +{ + $stSql = " SELECT DISTINCT 10::INTEGER AS tipo_registro + , CASE WHEN SUBSTR(conta_despesa.cod_estrutural, 1, 1) = '9' THEN '9999' + ELSE LPAD(programa.num_programa::VARCHAR, 4, '0')::VARCHAR + END AS cod_programa + , unidade_responsavel.num_orgao + , unidade_responsavel.num_unidade + , CASE WHEN SUBSTR(conta_despesa.cod_estrutural, 1, 1) = '9' THEN '99' + ELSE LPAD(despesa.cod_funcao::VARCHAR, 2, '0')::VARCHAR + END AS cod_funcao + , CASE WHEN SUBSTR(conta_despesa.cod_estrutural, 1, 1) = '9' THEN '999' + ELSE LPAD(despesa.cod_subfuncao::VARCHAR, 3, '0')::VARCHAR + END AS cod_subfuncao + , SUBSTR(acao.num_acao::VARCHAR,1,1) AS natureza_acao + , SUBSTR(acao.num_acao::VARCHAR,2,3) AS num_proj_atividade + , SUBSTR(REPLACE(conta_despesa.cod_estrutural, '.', ''), 1, 6) AS elemento_despesa + , despesa.vl_original AS vl_total_recurso + , despesa.num_pao::VARCHAR AS num_pao + , '' AS numero_sequencial + , '' AS branco + FROM orcamento.despesa + JOIN tcmgo.unidade_responsavel + ON unidade_responsavel.num_unidade=despesa.num_unidade + JOIN orcamento.conta_despesa + ON conta_despesa.cod_conta = despesa.cod_conta + AND conta_despesa.exercicio = despesa.exercicio + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = despesa.cod_entidade + AND configuracao_entidade.exercicio = despesa.exercicio + JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.cod_programa = despesa.cod_programa + AND programa_ppa_programa.exercicio = despesa.exercicio + JOIN ppa.programa + ON ppa.programa.cod_programa = programa_ppa_programa.cod_programa_ppa + JOIN orcamento.pao_ppa_acao + ON pao_ppa_acao.num_pao = despesa.num_pao + AND pao_ppa_acao.exercicio = despesa.exercicio + JOIN ppa.acao + ON ppa.acao.cod_acao = pao_ppa_acao.cod_acao + WHERE despesa.exercicio = '".$this->getDado('exercicio')."' + AND despesa.cod_entidade IN ('".$this->getDado('cod_entidade')."') + AND despesa.vl_original > 0.00 + order by cod_programa + "; + + return $stSql; +} + +public function recuperaDSP11(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") +{ + return $this->executaRecupera("montaRecuperaDSP11",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaDSP11() +{ + $stSql = " + SELECT DISTINCT 11::INTEGER AS tipo_registro + , CASE WHEN SUBSTR(conta_despesa.cod_estrutural, 1, 1) = '9' THEN '9999' + ELSE LPAD(programa.num_programa::VARCHAR, 4, '0')::VARCHAR + END AS cod_programa + , unidade_responsavel.num_orgao + , unidade_responsavel.num_unidade + , CASE WHEN SUBSTR(conta_despesa.cod_estrutural, 1, 1) = '9' THEN '99' + ELSE LPAD(despesa.cod_funcao::VARCHAR, 2, '0')::VARCHAR + END AS cod_funcao + , CASE WHEN SUBSTR(conta_despesa.cod_estrutural, 1, 1) = '9' THEN '999' + ELSE LPAD(despesa.cod_subfuncao::VARCHAR, 3, '0')::VARCHAR + END AS cod_subfuncao + , SUBSTR(acao.num_acao::VARCHAR,1,1) AS natureza_acao + , SUBSTR(acao.num_acao::VARCHAR,2,3) AS num_proj_atividade + , SUBSTR(REPLACE(conta_despesa.cod_estrutural, '.', ''), 1, 6) AS elemento_despesa + , despesa.cod_recurso AS cod_fonte_recurso + , despesa.vl_original AS vl_fonte + , despesa.num_pao::VARCHAR AS num_pao + , '' AS numero_sequencial + FROM orcamento.despesa + JOIN tcmgo.unidade_responsavel + ON unidade_responsavel.num_unidade=despesa.num_unidade + JOIN orcamento.conta_despesa + ON conta_despesa.cod_conta = despesa.cod_conta + AND conta_despesa.exercicio = despesa.exercicio + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = despesa.cod_entidade + AND configuracao_entidade.exercicio = despesa.exercicio + JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.cod_programa = despesa.cod_programa + AND programa_ppa_programa.exercicio = despesa.exercicio + JOIN ppa.programa + ON ppa.programa.cod_programa = programa_ppa_programa.cod_programa_ppa + JOIN orcamento.pao_ppa_acao + ON pao_ppa_acao.num_pao = despesa.num_pao + AND pao_ppa_acao.exercicio = despesa.exercicio + JOIN ppa.acao + ON ppa.acao.cod_acao = pao_ppa_acao.cod_acao + WHERE despesa.exercicio = '".$this->getDado('exercicio')."' + AND despesa.cod_entidade IN ('".$this->getDado('cod_entidade')."') + AND despesa.vl_original > 0.00 + order by cod_programa + "; + + return $stSql; +} +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoIDE.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoIDE.class.php new file mode 100644 index 0000000..38cbc6f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoIDE.class.php @@ -0,0 +1,73 @@ + +setDado('exercicio', Sessao::getExercicio() ); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaTodos() +{ + $stSql = " SELECT '40' AS tipo_registro + , ( SELECT valor from administracao.configuracao where exercicio = '2015' and parametro = 'cod_municipio') AS cod_municipio + , '".$this->getDado('exercicio')."' AS ano_referencia_loa + , ppa.ano_inicio AS ano_inicial_ppa + , ppa.ano_final AS ano_final_ppa + , to_char(NOW(),'ddmmyyyy') AS data_geracao + , '1' AS numero_registro + FROM ppa.ppa + WHERE '".$this->getDado('exercicio')."' >= ppa.ano_inicio + AND '".$this->getDado('exercicio')."' <= ppa.ano_final + "; + + return $stSql; +} +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoISI.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoISI.class.php new file mode 100644 index 0000000..af95791 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoISI.class.php @@ -0,0 +1,117 @@ + +setDado('exercicio', Sessao::getExercicio() ); +} + +public function recuperaISI(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") +{ + return $this->executaRecupera("montaRecuperaISI",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaISI() +{ + $stSql = " + SELECT 10::INTEGER AS tipo_registro + , dados_proprietario.num_documento + , dados_proprietario.tipo_pessoa + , sw_cgm.nom_cgm + , sw_cgm.logradouro + , sw_cgm.bairro AS setor + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.cep + , sw_cgm.fone_residencial + , sw_cgm.e_mail + , resp_tecnico.nom_cgm AS nom_responsavel_tec + , cpf_responsavel.cpf AS cpf_responsavel + , resp_tecnico.e_mail AS email_responsavel_tec + , (SELECT valor FROM administracao.configuracao WHERE parametro ilike 'versao_sistema' and exercicio = '".$this->getDado('exercicio')."') AS versao + , 'URBEM' AS nom_sistema + , '' AS numero_sequencial + FROM sw_cgm + JOIN (SELECT numcgm + , cpf AS num_documento + , 1 AS tipo_pessoa + FROM sw_cgm_pessoa_fisica + UNION ALL + SELECT numcgm + , cnpj AS num_documento + , 2 AS tipo_pessoa + FROM sw_cgm_pessoa_juridica + ) AS dados_proprietario + ON dados_proprietario.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_cgm.cod_uf + LEFT JOIN tcmgo.responsavel_tecnico + ON responsavel_tecnico.cod_entidade = '".$this->getDado('cod_entidade')."' + AND responsavel_tecnico.exercicio = '".$this->getDado('exercicio')."' + JOIN sw_cgm AS resp_tecnico + ON resp_tecnico.numcgm = responsavel_tecnico.cgm_responsavel + JOIN sw_cgm_pessoa_fisica AS cpf_responsavel + ON cpf_responsavel.numcgm = responsavel_tecnico.cgm_responsavel + WHERE sw_cgm.numcgm::TEXT = (SELECT valor + FROM administracao.configuracao + WHERE configuracao.exercicio = '".$this->getDado('exercicio')."' + AND configuracao.cod_modulo = 42 + AND parametro = 'provedor_sistema') + "; + + //SistemaLegado::mostravar($stSql); + //die; + + return $stSql; +} + +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoOrgao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoOrgao.class.php new file mode 100644 index 0000000..dca951d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoOrgao.class.php @@ -0,0 +1,86 @@ + +setDado('exercicio', Sessao::getExercicio() ); +} + +public function recuperaOrgao(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") +{ + return $this->executaRecupera("montaRecuperaOrgao",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaOrgao() +{ + $stSql = " + SELECT '10' AS tipo_registro + , tcmgo.orgao.num_orgao + , cgm_gestor_fisica.cpf AS cpf_gestor + , cod_tipo AS tipo_orgao + , 0 AS numero_sequencial + FROM orcamento.orgao + INNER JOIN tcmgo.orgao + ON tcmgo.orgao.num_orgao = orcamento.orgao.num_orgao + AND tcmgo.orgao.exercicio = orcamento.orgao.exercicio + INNER JOIN tcmgo.orgao_gestor + ON tcmgo.orgao_gestor.exercicio = tcmgo.orgao.exercicio + AND tcmgo.orgao_gestor.num_orgao = tcmgo.orgao.num_orgao + INNER JOIN sw_cgm AS cgm_gestor + ON cgm_gestor.numcgm = tcmgo.orgao_gestor.numcgm + INNER JOIN sw_cgm_pessoa_fisica AS cgm_gestor_fisica + ON cgm_gestor_fisica.numcgm = cgm_gestor.numcgm + WHERE tcmgo.orgao.exercicio = '".$this->getDado('exercicio')."' + "; + + return $stSql; +} +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoUOC.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoUOC.class.php new file mode 100644 index 0000000..49d85e5 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoUOC.class.php @@ -0,0 +1,86 @@ + +setDado('exercicio', Sessao::getExercicio() ); +} + +public function recuperaUnidade(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") +{ + return $this->executaRecupera("montaRecuperaUnidade",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaUnidade() +{ + $stSql = "SELECT '10'::VARCHAR AS tipo_registro, + unidade_responsavel.num_orgao AS cod_orgao, + unidade_responsavel.num_unidade AS cod_unidade, + unidade.nom_unidade AS desc_unidade, + unidade_responsavel.exercicio, + orgao.cod_tipo AS tipo_unidade, + '0' AS numero_registro + FROM tcmgo.unidade_responsavel + INNER JOIN orcamento.unidade + ON unidade.num_orgao = unidade_responsavel.num_orgao + AND unidade.num_unidade = unidade_responsavel.num_unidade + AND unidade.exercicio = unidade_responsavel.exercicio + INNER JOIN tcmgo.orgao + ON unidade.num_orgao = unidade_responsavel.num_orgao + AND unidade.exercicio = unidade_responsavel.exercicio + WHERE unidade_responsavel.exercicio = '".$this->getDado('exercicio')."' + GROUP BY unidade_responsavel.num_orgao, + unidade_responsavel.num_unidade, + unidade_responsavel.exercicio, + unidade.nom_unidade, + orgao.cod_tipo "; + + return $stSql; +} +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoFinanceiro.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoFinanceiro.class.php index 267507b..feb3fff 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoFinanceiro.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoFinanceiro.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTCMGOAtivoFinanceiro.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTCMGOAtivoFinanceiro.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -49,15 +49,59 @@ class TTCMGOAtivoFinanceiro extends TContabilidadeBalancoFinanceiro $this->setDado('exercicio', Sessao::getExercicio() ); } - public function montaRecuperaTodos() + public function recuperaArquivoExportacao10(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaArquivoExportacao10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaArquivoExportacao10() + { + $stDataIni = '01/01/'.$this->getDado( 'exercicio' ); + $stDataFim = '31/12/'.$this->getDado( 'exercicio' ); + $stSql = "SELECT + * + , '' AS brancos + , 10 as tipo_registro + FROM + tcmgo.arquivo_afr_exportacao10( '" .$this->getDado( 'exercicio' ) . "' + , 'cod_entidade IN ( " . $this->getDado ( 'stEntidades' ) ." ) + and tipo <> ''I'' + and cod_estrutural like ''1.%'' + ' ,'$stDataIni','$stDataFim','') + as retorno ( cod_estrutural varchar + ,nivel integer + ,nom_conta varchar + ,num_orgao integer + ,num_unidade integer + ,vl_saldo_anterior numeric + ,vl_saldo_debitos numeric + ,vl_saldo_creditos numeric + ,vl_saldo_atual numeric + ,nom_sistema varchar + ,tipo_lancamento integer + ) + where vl_saldo_anterior <> 0 + or vl_saldo_debitos <> 0 + or vl_saldo_creditos <> 0 + ORDER BY cod_estrutural "; + + return $stSql; + } + + public function recuperaArquivoExportacao11(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaArquivoExportacao11",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaArquivoExportacao11() { $stDataIni = '01/01/'.$this->getDado( 'exercicio' ); $stDataFim = '31/12/'.$this->getDado( 'exercicio' ); - $stSql = " - SELECT - * + $stSql = "SELECT + * + , 11 as tipo_registro FROM - tcmgo.fn_rl_balanco_patrimonial( '" .$this->getDado( 'exercicio' ) . "' + tcmgo.arquivo_afr_exportacao11( '" .$this->getDado( 'exercicio' ) . "' , 'cod_entidade IN ( " . $this->getDado ( 'stEntidades' ) ." ) and tipo <> ''I'' and cod_estrutural like ''1.%'' @@ -73,6 +117,7 @@ class TTCMGOAtivoFinanceiro extends TContabilidadeBalancoFinanceiro ,vl_saldo_atual numeric ,nom_sistema varchar ,tipo_lancamento integer + ,cod_fonte VARCHAR(13) ) where vl_saldo_anterior <> 0 or vl_saldo_debitos <> 0 diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteBem.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteBem.class.php new file mode 100644 index 0000000..2650279 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteBem.class.php @@ -0,0 +1,248 @@ + +setDado('exercicio', Sessao::getExercicio() ); + } + + public function montaRecuperaTodos() + { + $stDataIni = '01/01/'.$this->getDado( 'exercicio' ); + $stDataFim = '31/12/'.$this->getDado( 'exercicio' ); + $stSql = " + + SELECT * FROM ( + + SELECT bem.cod_bem + , '10' AS tipo_registro + , bem_comprado.num_orgao + , bem_comprado.num_unidade + + , TO_CHAR(dt_aquisicao, 'yyyy') AS exercicio_aquisicao + + , CASE WHEN bem.cod_natureza = 1 THEN '01' + WHEN bem.cod_natureza = 2 THEN '02' + WHEN bem.cod_natureza = 3 THEN '03' + WHEN bem.cod_natureza = 4 THEN '03' + END AS tipo_bem + + , CASE WHEN bem.cod_natureza = 1 THEN + bem_veiculo.tipo_bem_movel + ELSE '00' + END AS tipo_bem_movel + + , CASE WHEN bem.cod_natureza = 1 AND bem_veiculo.tipo_bem_movel != '05' AND bem_veiculo.tipo_bem_movel != '99' THEN + bem_veiculo.cod_combustivel + ELSE '00' + END AS tipo_combustivel + + , bem.descricao AS desc_bem + , bem.num_placa AS tombamento + , 1 AS qtde + , bem.vl_bem AS vl_aquisicao_saldo_anterior + , bem_comprado_empenho.cod_empenho AS nro_empenho + , bem_comprado_empenho.exercicio AS ano_empenho + , bem.vl_bem AS vl_aquisicao + , 0 AS vl_doacao + , COALESCE(max_reavaliacao.vl_reavaliacao, 0) AS vl_reavaliacao + , 0 AS vl_baixa_alienacao + , 0 AS vl_baixa_doacao + , 0 AS vl_baixa_depreciacao + , (SELECT vl_atualizado FROM patrimonio.fn_depreciacao_acumulada(bem.cod_bem) + AS ( cod_bem INTEGER + , vl_acumulado NUMERIC(14,2) + , vl_atualizado NUMERIC(14,2) + , vl_bem NUMERIC(14,2) + , min_competencia VARCHAR + , max_competencia VARCHAR + )) AS vl_baixa_depreciacao + + , (SELECT vl_atualizado FROM patrimonio.fn_depreciacao_acumulada(bem.cod_bem) + AS ( cod_bem INTEGER + , vl_acumulado NUMERIC(14,2) + , vl_atualizado NUMERIC(14,2) + , vl_bem NUMERIC(14,2) + , min_competencia VARCHAR + , max_competencia VARCHAR + )) AS vl_saldo_atual + + FROM patrimonio.bem + + LEFT JOIN patrimonio.bem_comprado + ON bem_comprado.cod_bem = bem.cod_bem + + LEFT JOIN patrimonio.bem_comprado_empenho + ON bem_comprado_empenho.cod_bem = bem.cod_bem + + LEFT JOIN ( SELECT vl_reavaliacao + , cod_bem + , MAX(cod_reavaliacao) + FROM patrimonio.reavaliacao + GROUP BY cod_bem,vl_reavaliacao + ) AS max_reavaliacao + ON max_reavaliacao.cod_bem = bem.cod_bem + + LEFT JOIN ( SELECT historico_bem.cod_bem + , historico_bem.cod_local + , historico_bem.cod_situacao + , historico_bem.cod_orgao + , historico_bem.descricao + , historico_bem.timestamp + FROM patrimonio.historico_bem + INNER JOIN ( SELECT cod_bem + , MAX(timestamp) AS timestamp + FROM patrimonio.historico_bem + GROUP BY cod_bem + ) AS historico_bem_max + ON historico_bem.cod_bem = historico_bem_max.cod_bem + AND historico_bem.timestamp = historico_bem_max.timestamp + ) AS historico_bem + ON historico_bem.cod_bem = bem.cod_bem + + LEFT JOIN ( SELECT apolice_bem.cod_bem + , apolice_bem.cod_apolice + , apolice_bem.timestamp + FROM patrimonio.apolice_bem + INNER JOIN ( SELECT cod_bem + , MAX(timestamp) AS timestamp + FROM patrimonio.apolice_bem + GROUP BY cod_bem + ) AS apolice_bem_max + ON apolice_bem_max.cod_bem = apolice_bem.cod_bem + AND apolice_bem_max.timestamp = apolice_bem.timestamp + ) AS apolice_bem + ON apolice_bem.cod_bem = bem.cod_bem + + LEFT JOIN patrimonio.apolice + ON apolice.cod_apolice = apolice_bem.cod_apolice + + LEFT JOIN patrimonio.situacao_bem + ON situacao_bem.cod_situacao = historico_bem.cod_situacao + + LEFT JOIN ( SELECT bem_responsavel.cod_bem + , bem_responsavel.numcgm + , bem_responsavel.dt_inicio + , sw_cgm.nom_cgm + FROM patrimonio.bem_responsavel + INNER JOIN sw_cgm + ON sw_cgm.numcgm = bem_responsavel.numcgm + + INNER JOIN ( SELECT cod_bem + , MAX(dt_inicio) AS dt_inicio + , MAX(timestamp) AS timestamp + FROM patrimonio.bem_responsavel + GROUP BY cod_bem + ) AS bem_responsavel_max + ON bem_responsavel_max.cod_bem = bem_responsavel.cod_bem + AND bem_responsavel_max.timestamp = bem_responsavel.timestamp + ) AS bem_responsavel + ON bem_responsavel.cod_bem = bem.cod_bem + + LEFT JOIN sw_cgm AS fornecedor + ON fornecedor.numcgm = bem.numcgm + + LEFT JOIN ( SELECT bem_marca.cod_bem + , bem_marca.cod_marca + , marca.descricao + FROM patrimonio.bem_marca + INNER JOIN almoxarifado.marca + ON bem_marca.cod_marca = marca.cod_marca + ) AS bem_marca + ON bem.cod_bem = bem_marca.cod_bem + + INNER JOIN orcamento.unidade + ON bem_comprado.num_orgao = unidade.num_orgao + AND bem_comprado.num_unidade = unidade.num_unidade + AND bem_comprado.exercicio = unidade.exercicio + + LEFT JOIN ( SELECT b.cod_bem + , veiculo.cod_veiculo + , lpad(cod_tipo_tcm::varchar, 2, '0') AS tipo_bem_movel + , lpad(cod_combustivel::varchar, 2, '0') AS cod_combustivel + FROM tcmgo.tipo_veiculo_vinculo + INNER JOIN frota.tipo_veiculo + ON tipo_veiculo.cod_tipo = tipo_veiculo_vinculo.cod_tipo + INNER JOIN frota.veiculo + ON veiculo.cod_tipo_veiculo = tipo_veiculo.cod_tipo + INNER JOIN (SELECT MAX(timestamp) as timestamp, cod_veiculo + FROM frota.veiculo_propriedade + GROUP BY cod_veiculo) AS veiculo_propriedade + + ON veiculo_propriedade.cod_veiculo = veiculo.cod_veiculo + INNER JOIN frota.proprio + ON proprio.cod_veiculo = veiculo_propriedade.cod_veiculo + AND proprio.timestamp = veiculo_propriedade.timestamp + INNER JOIN patrimonio.bem b + ON b.cod_bem = proprio.cod_bem + + LEFT JOIN ( SELECT combustivel.cod_combustivel + , combustivel.descricao + , veiculo.cod_veiculo + FROM tcmgo.combustivel + INNER JOIN tcmgo.combustivel_vinculo + ON combustivel_vinculo.cod_tipo = combustivel.cod_tipo + AND combustivel_vinculo.cod_combustivel = combustivel.cod_combustivel + INNER JOIN frota.item + ON item.cod_item = combustivel_vinculo.cod_item + INNER JOIN frota.combustivel_item + ON item.cod_item = item.cod_item + INNER JOIN frota.combustivel AS f_combustivel + ON f_combustivel.cod_combustivel = combustivel_item.cod_combustivel + INNER JOIN frota.veiculo_combustivel + ON veiculo_combustivel.cod_combustivel = f_combustivel.cod_combustivel + INNER JOIN frota.veiculo + ON veiculo.cod_veiculo = veiculo_combustivel.cod_veiculo + ) AS combustivel + ON veiculo.cod_veiculo = combustivel.cod_veiculo + ) AS bem_veiculo + ON bem_veiculo.cod_bem = bem.cod_bem + ) AS resultado + + WHERE resultado.tipo_bem_movel IS NOT NULL "; + return $stSql; + } + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteCreditos.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteCreditos.class.php index 6519fca..2ef0c6f 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteCreditos.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteCreditos.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTCMGOAtivoPermanenteCreditos.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTCMGOAtivoPermanenteCreditos.class.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -54,18 +54,21 @@ class TTCMGOAtivoPermanenteCreditos extends TContabilidadeBalancoFinanceiro $stDataFim = '31/12/'.$this->getDado( 'exercicio' ); $stSql = " SELECT - * + 0::integer AS numero_registro + , 10::integer AS tipo_registro + , 0.00 AS vl_cancelamento + , 0.00 AS vl_encampacao + ,* FROM tcmgo.ativo_permanente_creditos ( '" .$this->getDado( 'exercicio' ) . "' - , 'cod_entidade IN ( " . $this->getDado ( 'stEntidades' ) ." ) - and tipo <> ''I'' - and cod_estrutural like ''1.%'' - ' ,'$stDataIni','$stDataFim','') + , ' cod_entidade IN ( " . $this->getDado ( 'stEntidades' ) ." ) and cod_estrutural like ''1.%'' ' + ,'".$stDataIni."' + ,'".$stDataFim."') as retorno ( cod_estrutural varchar ,nivel integer ,nom_conta varchar - ,num_orgao integer - ,cod_unidade integer + ,num_orgao text + ,cod_unidade text ,vl_saldo_anterior numeric ,vl_saldo_debitos numeric ,vl_saldo_creditos numeric diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisLDO.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisLDO.class.php new file mode 100644 index 0000000..df010de --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisLDO.class.php @@ -0,0 +1,87 @@ + +setTabela('tcmgo.configuracao_leis_ldo'); + + $this->setCampoCod(''); + $this->setComplementoChave('exercicio, cod_norma, tipo_configuracao'); + + $this->AddCampo('exercicio' , 'varchar', true, '4', true, false); + $this->AddCampo('cod_norma' , 'integer', true, '', true, true); + $this->AddCampo('tipo_configuracao', 'varchar', true, '', false, false); + $this->AddCampo('status' , 'boolean', true, '', false, false); + } + + public function montaRecuperaRelacionamento() + { + $stSql .= "SELECT configuracao_leis_ldo.* + , norma.cod_tipo_norma + , norma.nom_norma + , tipo_norma.nom_tipo_norma + + FROM tcmgo.configuracao_leis_ldo + , normas.norma + , normas.tipo_norma + + WHERE configuracao_leis_ldo.cod_norma = norma.cod_norma + AND norma.cod_tipo_norma = tipo_norma.cod_tipo_norma "; + + return $stSql; + } + + public function __destruct(){} + +} + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisPPA.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisPPA.class.php new file mode 100644 index 0000000..c9b4de4 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisPPA.class.php @@ -0,0 +1,207 @@ + +setTabela('tcmgo.configuracao_leis_ppa'); + + $this->setCampoCod(''); + $this->setComplementoChave('exercicio, cod_norma, tipo_configuracao'); + + $this->AddCampo('exercicio' , 'varchar', true, '4', true, false); + $this->AddCampo('cod_norma' , 'integer', true, '', true, true); + $this->AddCampo('tipo_configuracao' , 'varchar', true, '', false, false); + $this->AddCampo('status' , 'boolean', true, '', false, false); + $this->AddCampo('cod_veiculo_publicacao', 'integer', true, '', false, true); + $this->AddCampo('descricao_publicacao' , 'text' , false, '', false, false); + } + + public function montaRecuperaRelacionamento() + { + $stSql .= "SELECT configuracao_leis_ppa.* \n"; + $stSql .= " , norma.cod_tipo_norma \n"; + $stSql .= " , norma.nom_norma \n"; + $stSql .= " , tipo_norma.nom_tipo_norma \n"; + $stSql .= " FROM tcmgo.configuracao_leis_ppa \n"; + $stSql .= " , normas.norma \n"; + $stSql .= " , normas.tipo_norma \n"; + $stSql .= " WHERE configuracao_leis_ppa.cod_norma = norma.cod_norma \n"; + $stSql .= " AND norma.cod_tipo_norma = tipo_norma.cod_tipo_norma \n"; + + return $stSql; + } + + + public function recuperaExportacao10(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaExportacao10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaExportacao10() + { + $stSql = " SELECT DISTINCT + 10 as tipo_registro + ,norma.num_norma as nro_lei_ppa + ,TO_CHAR(norma.dt_assinatura,'ddmmyyyy') as data_lei_ppa + ,'' as brancos + ,TO_CHAR(norma.dt_publicacao,'ddmmyyyy') as data_pub_lei_ppa + FROM ppa.ppa + JOIN ppa.ppa_publicacao + ON ppa_publicacao.cod_ppa = ppa.cod_ppa + AND ppa_publicacao.timestamp = (SELECT MAX(ppa_publicacao.timestamp) FROM ppa.ppa_publicacao WHERE ppa_publicacao.cod_ppa = ppa.cod_ppa) + AND ".Sessao::getExercicio()." BETWEEN ppa.ano_inicio::INTEGER AND ppa.ano_final::INTEGER + JOIN normas.norma + ON norma.cod_norma = ppa_publicacao.cod_norma + JOIN normas.tipo_norma + ON tipo_norma.cod_tipo_norma = norma.cod_tipo_norma + WHERE ppa.fn_verifica_homologacao(ppa.cod_ppa) = TRUE + "; + return $stSql; + } + + public function recuperaExportacao11(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaExportacao11",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaExportacao11() + { + $stSql = " SELECT DISTINCT + 11 as tipo_registro + ,CASE tipo_veiculos_publicidade.cod_tipo_veiculos_publicidade + WHEN 6 THEN 1 + WHEN 1 THEN 4 + WHEN 2 THEN 4 + WHEN 3 THEN 4 + WHEN 4 THEN 4 + WHEN 5 THEN 5 + WHEN 7 THEN 5 + WHEN 8 THEN 3 + WHEN 9 THEN 9 + END AS meio_pub_ppa + ,tipo_veiculos_publicidade.descricao as desc_meio_ppa + ,TO_CHAR(norma.dt_publicacao,'ddmmyyyy') as data_pub_lei_ppa + ,norma.num_norma as nro_lei_ppa + ,TO_CHAR(norma.dt_assinatura,'ddmmyyyy') as data_lei_ppa + FROM ppa.ppa + JOIN ppa.ppa_publicacao + ON ppa_publicacao.cod_ppa = ppa.cod_ppa + AND ppa_publicacao.timestamp = (SELECT MAX(ppa_publicacao.timestamp) FROM ppa.ppa_publicacao WHERE ppa_publicacao.cod_ppa = ppa.cod_ppa) + AND ".Sessao::getExercicio()." BETWEEN ppa.ano_inicio::INTEGER AND ppa.ano_final::INTEGER + JOIN normas.norma + ON norma.cod_norma = ppa_publicacao.cod_norma + JOIN normas.tipo_norma + ON tipo_norma.cod_tipo_norma = norma.cod_tipo_norma + JOIN licitacao.veiculos_publicidade + ON veiculos_publicidade.numcgm = ppa_publicacao.numcgm_veiculo + JOIN licitacao.tipo_veiculos_publicidade + ON tipo_veiculos_publicidade.cod_tipo_veiculos_publicidade = veiculos_publicidade.cod_tipo_veiculos_publicidade + WHERE ppa.fn_verifica_homologacao(ppa.cod_ppa) = TRUE + "; + return $stSql; + } + + public function recuperaExportacao20(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaExportacao20",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaExportacao20() + { + $stSql = " SELECT DISTINCT + 20 AS tipo_registro + ,norma.num_norma AS nro_lei_alt_ppa + ,TO_CHAR(norma.dt_assinatura,'ddmmyyyy') AS data_lei_alt_ppa + ,'' AS brancos + FROM tcmgo.configuracao_leis_ppa + JOIN normas.norma + ON configuracao_leis_ppa.cod_norma = norma.cod_norma + WHERE configuracao_leis_ppa.tipo_configuracao = 'alteracao' + AND configuracao_leis_ppa.status = true + AND configuracao_leis_ppa.exercicio = '".Sessao::getExercicio()."' + "; + return $stSql; + } + + public function recuperaExportacao21(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaExportacao21",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaExportacao21() + { + $stSql = " SELECT DISTINCT + 21 as tipo_registro + ,configuracao_leis_ppa.cod_veiculo_publicacao AS meio_pub_alt_ppa + ,configuracao_leis_ppa.descricao_publicacao AS desc_meio_alt_ppa + ,TO_CHAR(norma.dt_publicacao,'ddmmyyyy') AS data_pub_lei_alt_ppa + ,norma.num_norma AS nro_lei_alt_ppa + ,TO_CHAR(norma.dt_assinatura,'ddmmyyyy') AS data_lei_alt_ppa + FROM tcmgo.configuracao_leis_ppa + JOIN normas.norma + ON configuracao_leis_ppa.cod_norma = norma.cod_norma + WHERE configuracao_leis_ppa.tipo_configuracao = 'alteracao' + AND configuracao_leis_ppa.status = true + AND configuracao_leis_ppa.exercicio = '".Sessao::getExercicio()."' + "; + return $stSql; + } + + /** + * Método Destrutor + * @access Private + */ + public function __destruct() + { + } +} +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODividaFundada.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODividaFundada.class.php new file mode 100644 index 0000000..a7f8d2b --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODividaFundada.class.php @@ -0,0 +1,82 @@ + +setTabela('tcmgo.divida_fundada'); + $this->setCampoCod('cod_norma'); + $this->setComplementoChave('exercicio, cod_entidade'); + + //AddCampo($stNome, $stTipo, $boRequerido, $nrTamanho, $boPrimaryKey, $boForeignKey) + $this->AddCampo('exercicio' , 'character' , true , '4' , true , false); + $this->AddCampo('cod_entidade' , 'integer' , true , '' , true , false); + $this->AddCampo('num_unidade' , 'integer' , true , '' , false , false); + $this->AddCampo('num_orgao' , 'integer' , true , '' , false , false); + $this->AddCampo('cod_norma' , 'integer' , true , '' , true , false); + $this->AddCampo('numcgm' , 'integer' , false , '' , false , false); + $this->AddCampo('cod_tipo_lancamento' , 'integer' , true , '' , false , false); + $this->AddCampo('valor_saldo_anterior' , 'numeric' , true , '14,2' , false , false); + $this->AddCampo('valor_contratacao' , 'numeric' , true , '14,2' , false , false); + $this->AddCampo('valor_amortizacao' , 'numeric' , true , '14,2' , false , false); + $this->AddCampo('valor_cancelamento' , 'numeric' , true , '14,2' , false , false); + $this->AddCampo('valor_encampacao' , 'numeric' , true , '14,2' , false , false); + $this->AddCampo('valor_correcao' , 'numeric' , true , '14,2' , false , false); + $this->AddCampo('valor_saldo_atual' , 'numeric' , true , '14,2' , false , false); + } + + public function recuperaRegistro10(&$rsRecordSet,$stFiltro="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro10() + { + $stSql = "SELECT divida_fundada.*, + TO_CHAR(norma.dt_publicacao,'ddmmyyyy') AS dt_lei, + '10' AS tipo_registro + FROM tcmgo.divida_fundada + JOIN normas.norma + ON norma.cod_norma = divida_fundada.cod_norma + "; + + return $stSql; + } + +} + +?> + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHML.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHML.class.php new file mode 100644 index 0000000..9737da5 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHML.class.php @@ -0,0 +1,619 @@ + +montaRecupera10().$stGroup.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; +} + +public function montaRecupera10() +{ + $stSql = " SELECT '10' AS tiporegistro + ,unidade_responsavel.num_orgao AS cod_orgao + ,unidade_responsavel.num_unidade AS cod_unidadesub + ,homologacao.exercicio_licitacao + ,homologacao.exercicio_licitacao || LPAD(homologacao.cod_entidade::VARCHAR,2,'0') || LPAD(homologacao.cod_modalidade::VARCHAR,2,'0') || LPAD(homologacao.cod_licitacao::VARCHAR,4,'0') + AS nro_processolicitatorio + , CASE WHEN sw_cgm_pessoa_juridica.cnpj IS NOT NULL THEN 2 + WHEN sw_cgm_pessoa_fisica.cpf IS NOT NULL THEN 1 + ELSE 3 + END AS tipo_documento + , CASE WHEN mapa.cod_tipo_licitacao = 2 THEN + homologacao.lote + ELSE + NULL + END AS nro_lote + ,cotacao_fornecedor_item.cod_item + ,cotacao_item.quantidade + ,catalogo_item.descricao as desc_item + ,(cotacao_fornecedor_item.vl_cotacao / cotacao_item.quantidade)::numeric(14,4) as valor_unitario + , CASE WHEN sw_cgm_pessoa_juridica.cnpj IS NOT NULL + THEN sw_cgm_pessoa_juridica.cnpj + ELSE sw_cgm_pessoa_fisica.cpf + END AS nro_documento + ,catalogo_item.cod_unidade as unidade + + FROM licitacao.homologacao + + JOIN licitacao.adjudicacao + ON adjudicacao.num_adjudicacao = homologacao.num_adjudicacao + AND adjudicacao.cod_entidade = homologacao.cod_entidade + AND adjudicacao.cod_modalidade = homologacao.cod_modalidade + AND adjudicacao.cod_licitacao = homologacao.cod_licitacao + AND adjudicacao.exercicio_licitacao = homologacao.exercicio_licitacao + AND adjudicacao.cod_item = homologacao.cod_item + AND adjudicacao.cod_cotacao = homologacao.cod_cotacao + AND adjudicacao.lote = homologacao.lote + AND adjudicacao.exercicio_cotacao = homologacao.exercicio_cotacao + AND adjudicacao.cgm_fornecedor = homologacao.cgm_fornecedor + + JOIN licitacao.cotacao_licitacao + ON cotacao_licitacao.cod_licitacao = adjudicacao.cod_licitacao + AND cotacao_licitacao.cod_modalidade = adjudicacao.cod_modalidade + AND cotacao_licitacao.cod_entidade = adjudicacao.cod_entidade + AND cotacao_licitacao.exercicio_licitacao = adjudicacao.exercicio_licitacao + AND cotacao_licitacao.lote = adjudicacao.lote + AND cotacao_licitacao.cod_cotacao = adjudicacao.cod_cotacao + AND cotacao_licitacao.cod_item = adjudicacao.cod_item + AND cotacao_licitacao.exercicio_cotacao = adjudicacao.exercicio_cotacao + AND cotacao_licitacao.cgm_fornecedor = adjudicacao.cgm_fornecedor + + JOIN licitacao.licitacao + ON licitacao.cod_licitacao = cotacao_licitacao.cod_licitacao + AND licitacao.cod_modalidade = cotacao_licitacao.cod_modalidade + AND licitacao.cod_entidade = cotacao_licitacao.cod_entidade + AND licitacao.exercicio = cotacao_licitacao.exercicio_licitacao + + JOIN orcamento.unidade + ON unidade.exercicio = licitacao.exercicio + AND unidade.num_unidade = licitacao.num_unidade + AND unidade.num_orgao = licitacao.num_orgao + + JOIN tcmgo.unidade_responsavel + ON unidade_responsavel.exercicio = unidade.exercicio + AND unidade_responsavel.num_unidade = unidade.num_unidade + AND unidade_responsavel.num_orgao = unidade.num_orgao + + JOIN compras.cotacao_fornecedor_item + ON cotacao_fornecedor_item.cgm_fornecedor = cotacao_licitacao.cgm_fornecedor + AND cotacao_fornecedor_item.cod_cotacao = cotacao_licitacao.cod_cotacao + AND cotacao_fornecedor_item.exercicio = cotacao_licitacao.exercicio_cotacao + AND cotacao_fornecedor_item.lote = cotacao_licitacao.lote + AND cotacao_fornecedor_item.cod_item = cotacao_licitacao.cod_item + + JOIN compras.cotacao_item + ON cotacao_item.exercicio = cotacao_fornecedor_item.exercicio + AND cotacao_item.cod_cotacao = cotacao_fornecedor_item.cod_cotacao + AND cotacao_item.cod_item = cotacao_fornecedor_item.cod_item + AND cotacao_item.lote = cotacao_fornecedor_item.lote + + JOIN almoxarifado.catalogo_item + ON catalogo_item.cod_item = cotacao_item.cod_item + + JOIN compras.cotacao + ON cotacao.exercicio = cotacao_item.exercicio + AND cotacao.cod_cotacao = cotacao_item.cod_cotacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_cotacao = cotacao.exercicio + AND mapa_cotacao.cod_cotacao = cotacao.cod_cotacao + + JOIN compras.julgamento_item + ON cotacao_fornecedor_item.exercicio = julgamento_item.exercicio + AND cotacao_fornecedor_item.cod_cotacao = julgamento_item.cod_cotacao + AND cotacao_fornecedor_item.cod_item = julgamento_item.cod_item + AND cotacao_fornecedor_item.cgm_fornecedor = julgamento_item.cgm_fornecedor + AND cotacao_fornecedor_item.lote = julgamento_item.lote + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + AND participante.cgm_fornecedor = cotacao_fornecedor_item.cgm_fornecedor + + JOIN licitacao.participante_documentos + ON participante_documentos.cod_licitacao = participante.cod_licitacao + AND participante_documentos.cgm_fornecedor = participante.cgm_fornecedor + AND participante_documentos.cod_modalidade = participante.cod_modalidade + AND participante_documentos.cod_entidade = participante.cod_entidade + AND participante_documentos.exercicio = participante.exercicio + + LEFT JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = participante_documentos.cgm_fornecedor + LEFT JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = participante_documentos.cgm_fornecedor + JOIN compras.fornecedor + ON fornecedor.cgm_fornecedor = participante.cgm_fornecedor + + JOIN compras.mapa + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa.exercicio + AND mapa_item.cod_mapa = mapa.cod_mapa + AND mapa_item.cod_item = cotacao_fornecedor_item.cod_item + AND mapa_item.lote = cotacao_fornecedor_item.lote + + JOIN compras.mapa_item_dotacao + ON mapa_item_dotacao.exercicio = mapa_item.exercicio + AND mapa_item_dotacao.cod_mapa = mapa_item.cod_mapa + AND mapa_item_dotacao.exercicio_solicitacao = mapa_item.exercicio_solicitacao + AND mapa_item_dotacao.cod_entidade = mapa_item.cod_entidade + AND mapa_item_dotacao.cod_solicitacao = mapa_item.cod_solicitacao + AND mapa_item_dotacao.cod_centro = mapa_item.cod_centro + AND mapa_item_dotacao.cod_item = mapa_item.cod_item + AND mapa_item_dotacao.lote = mapa_item.lote + + JOIN compras.solicitacao_item_dotacao + ON solicitacao_item_dotacao.exercicio = mapa_item_dotacao.exercicio_solicitacao + AND solicitacao_item_dotacao.cod_entidade = mapa_item_dotacao.cod_entidade + AND solicitacao_item_dotacao.cod_solicitacao = mapa_item_dotacao.cod_solicitacao + AND solicitacao_item_dotacao.cod_centro = mapa_item_dotacao.cod_centro + AND solicitacao_item_dotacao.cod_item = mapa_item_dotacao.cod_item + AND solicitacao_item_dotacao.cod_conta = mapa_item_dotacao.cod_conta + AND solicitacao_item_dotacao.cod_despesa = mapa_item_dotacao.cod_despesa + + JOIN orcamento.despesa + ON despesa.exercicio = solicitacao_item_dotacao.exercicio + AND despesa.cod_despesa = solicitacao_item_dotacao.cod_despesa + + WHERE licitacao.cod_entidade IN (".$this->getDado('cod_entidade').") + AND licitacao.exercicio = '".$this->getDado('exercicio')."' + AND TO_DATE(homologacao.timestamp::varchar, 'YYYY-MM-DD') BETWEEN TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + "; + + return $stSql; +} + +public function recupera20(&$rsRecordSet, $boTransacao = "") +{ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stGroup = "GROUP BY tiporegistro + , cod_orgao + , cod_unidadesub + , homologacao.exercicio_licitacao + , nro_processolicitatorio + , tipo_documento + , participante_documentos.num_documento + , nro_lote + , cotacao_fornecedor_item.cod_item + , licitacao.cod_licitacao + , licitacao.cod_modalidade + "; + $stOrdem = " + ORDER BY nro_processolicitatorio + , licitacao.cod_licitacao + , licitacao.cod_modalidade + , cod_unidadesub + , tiporegistro + , cod_orgao + , exercicio_licitacao + , tipo_documento + , nro_documento + , nro_lote + , cod_item + "; + $stSql = $this->montaRecupera20().$stGroup.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; +} + +public function montaRecupera20() +{ + $stSql = " SELECT '20'::char(2) AS tiporegistro + ,unidade_responsavel.num_orgao AS cod_orgao + ,unidade_responsavel.num_unidade AS cod_unidadesub + , homologacao.exercicio_licitacao + , homologacao.exercicio_licitacao || LPAD(homologacao.cod_entidade::VARCHAR,2,'0') || LPAD(homologacao.cod_modalidade::VARCHAR,2,'0') || LPAD(homologacao.cod_licitacao::VARCHAR,4,'0') as nro_processolicitatorio + , CASE WHEN participante_documentos.cod_documento = 4 THEN 1 + WHEN participante_documentos.cod_documento = 8 THEN 2 + END AS tipo_documento + , regexp_replace(participante_documentos.num_documento,'[.|/|\-]','','gi') as nro_documento + , CASE WHEN mapa.cod_tipo_licitacao = 2 THEN + homologacao.lote + ELSE + NULL + END AS nro_lote + , cotacao_fornecedor_item.cod_item + , LPAD('0',6,'0')::numeric(14,2) as perc_desconto + FROM licitacao.homologacao + + JOIN licitacao.adjudicacao + ON adjudicacao.num_adjudicacao = homologacao.num_adjudicacao + AND adjudicacao.cod_entidade = homologacao.cod_entidade + AND adjudicacao.cod_modalidade = homologacao.cod_modalidade + AND adjudicacao.cod_licitacao = homologacao.cod_licitacao + AND adjudicacao.exercicio_licitacao = homologacao.exercicio_licitacao + AND adjudicacao.cod_item = homologacao.cod_item + AND adjudicacao.cod_cotacao = homologacao.cod_cotacao + AND adjudicacao.lote = homologacao.lote + AND adjudicacao.exercicio_cotacao = homologacao.exercicio_cotacao + AND adjudicacao.cgm_fornecedor = homologacao.cgm_fornecedor + + JOIN licitacao.cotacao_licitacao + ON cotacao_licitacao.cod_licitacao = adjudicacao.cod_licitacao + AND cotacao_licitacao.cod_modalidade = adjudicacao.cod_modalidade + AND cotacao_licitacao.cod_entidade = adjudicacao.cod_entidade + AND cotacao_licitacao.exercicio_licitacao = adjudicacao.exercicio_licitacao + AND cotacao_licitacao.lote = adjudicacao.lote + AND cotacao_licitacao.cod_cotacao = adjudicacao.cod_cotacao + AND cotacao_licitacao.cod_item = adjudicacao.cod_item + AND cotacao_licitacao.exercicio_cotacao = adjudicacao.exercicio_cotacao + AND cotacao_licitacao.cgm_fornecedor = adjudicacao.cgm_fornecedor + + JOIN licitacao.licitacao + ON licitacao.cod_licitacao = cotacao_licitacao.cod_licitacao + AND licitacao.cod_modalidade = cotacao_licitacao.cod_modalidade + AND licitacao.cod_entidade = cotacao_licitacao.cod_entidade + AND licitacao.exercicio = cotacao_licitacao.exercicio_licitacao + + JOIN orcamento.unidade + ON unidade.exercicio = licitacao.exercicio + AND unidade.num_unidade = licitacao.num_unidade + AND unidade.num_orgao = licitacao.num_orgao + + JOIN tcmgo.unidade_responsavel + ON unidade_responsavel.exercicio = unidade.exercicio + AND unidade_responsavel.num_unidade = unidade.num_unidade + AND unidade_responsavel.num_orgao = unidade.num_orgao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN licitacao.participante_documentos + ON participante_documentos.cod_licitacao = participante.cod_licitacao + AND participante_documentos.cgm_fornecedor = participante.cgm_fornecedor + AND participante_documentos.cod_modalidade = participante.cod_modalidade + AND participante_documentos.cod_entidade = participante.cod_entidade + AND participante_documentos.exercicio = participante.exercicio + + JOIN compras.fornecedor + ON fornecedor.cgm_fornecedor = participante.cgm_fornecedor + + JOIN compras.cotacao_fornecedor_item + ON cotacao_fornecedor_item.cgm_fornecedor = cotacao_licitacao.cgm_fornecedor + AND cotacao_fornecedor_item.cod_cotacao = cotacao_licitacao.cod_cotacao + AND cotacao_fornecedor_item.exercicio = cotacao_licitacao.exercicio_cotacao + AND cotacao_fornecedor_item.lote = cotacao_licitacao.lote + AND cotacao_fornecedor_item.cod_item = cotacao_licitacao.cod_item + + JOIN compras.cotacao_item + ON cotacao_item.exercicio = cotacao_fornecedor_item.exercicio + AND cotacao_item.cod_cotacao = cotacao_fornecedor_item.cod_cotacao + AND cotacao_item.cod_item = cotacao_fornecedor_item.cod_item + AND cotacao_item.lote = cotacao_fornecedor_item.lote + + JOIN compras.cotacao + ON cotacao.exercicio = cotacao_item.exercicio + AND cotacao.cod_cotacao = cotacao_item.cod_cotacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_cotacao = cotacao.exercicio + AND mapa_cotacao.cod_cotacao = cotacao.cod_cotacao + + JOIN compras.julgamento_item + ON cotacao_fornecedor_item.exercicio = julgamento_item.exercicio + AND cotacao_fornecedor_item.cod_cotacao = julgamento_item.cod_cotacao + AND cotacao_fornecedor_item.cod_item = julgamento_item.cod_item + AND cotacao_fornecedor_item.cgm_fornecedor = julgamento_item.cgm_fornecedor + AND cotacao_fornecedor_item.lote = julgamento_item.lote + + JOIN compras.mapa + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa.exercicio + AND mapa_item.cod_mapa = mapa.cod_mapa + AND mapa_item.cod_item = cotacao_fornecedor_item.cod_item + AND mapa_item.lote = cotacao_fornecedor_item.lote + + JOIN compras.mapa_item_dotacao + ON mapa_item_dotacao.exercicio = mapa_item.exercicio + AND mapa_item_dotacao.cod_mapa = mapa_item.cod_mapa + AND mapa_item_dotacao.exercicio_solicitacao = mapa_item.exercicio_solicitacao + AND mapa_item_dotacao.cod_entidade = mapa_item.cod_entidade + AND mapa_item_dotacao.cod_solicitacao = mapa_item.cod_solicitacao + AND mapa_item_dotacao.cod_centro = mapa_item.cod_centro + AND mapa_item_dotacao.cod_item = mapa_item.cod_item + AND mapa_item_dotacao.lote = mapa_item.lote + + JOIN compras.solicitacao_item_dotacao + ON solicitacao_item_dotacao.exercicio = mapa_item_dotacao.exercicio_solicitacao + AND solicitacao_item_dotacao.cod_entidade = mapa_item_dotacao.cod_entidade + AND solicitacao_item_dotacao.cod_solicitacao = mapa_item_dotacao.cod_solicitacao + AND solicitacao_item_dotacao.cod_centro = mapa_item_dotacao.cod_centro + AND solicitacao_item_dotacao.cod_item = mapa_item_dotacao.cod_item + AND solicitacao_item_dotacao.cod_conta = mapa_item_dotacao.cod_conta + AND solicitacao_item_dotacao.cod_despesa = mapa_item_dotacao.cod_despesa + + JOIN orcamento.despesa + ON despesa.exercicio = solicitacao_item_dotacao.exercicio + AND despesa.cod_despesa = solicitacao_item_dotacao.cod_despesa + + WHERE licitacao.cod_entidade IN (".$this->getDado('cod_entidade').") + AND licitacao.exercicio = '".$this->getDado('exercicio')."' + AND TO_DATE(homologacao.timestamp::varchar, 'YYYY-MM-DD') BETWEEN TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + "; + + return $stSql; +} + +public function recupera30(&$rsRecordSet, $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + + $stGroup = " GROUP BY 1,2,3,4,5,6,7,8,9 + "; + $stOrdem = "ORDER BY nro_processolicitatorio"; + + $stSql = $this->montaRecupera30().$stGroup.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecupera30(){ + $stSql = " SELECT '30'::char(2) AS tiporegistro + ,unidade_responsavel.num_orgao AS cod_orgao + ,unidade_responsavel.num_unidade AS cod_unidadesub + ,homologacao.exercicio_licitacao + ,homologacao.exercicio_licitacao || LPAD(homologacao.cod_entidade::VARCHAR,2,'0') || LPAD(homologacao.cod_modalidade::VARCHAR,2,'0') || LPAD(homologacao.cod_licitacao::VARCHAR,4,'0') as nro_processolicitatorio + ,TO_CHAR(TO_DATE(homologacao.timestamp::varchar, 'YYYY-MM-DD'),'DDMMYYYY') as dt_homologacao + ,TO_CHAR(TO_DATE(adjudicacao.timestamp::varchar, 'YYYY-MM-DD'),'DDMMYYYY') as dt_adjudicacao + ,CASE WHEN participante_documentos.cod_documento = 4 THEN 1 + WHEN participante_documentos.cod_documento = 8 THEN 2 + END AS tipo_documento + ,regexp_replace(participante_documentos.num_documento,'[.|/|\-]','','gi') as nro_documento + + FROM licitacao.homologacao + + JOIN licitacao.adjudicacao + ON adjudicacao.num_adjudicacao = homologacao.num_adjudicacao + AND adjudicacao.cod_entidade = homologacao.cod_entidade + AND adjudicacao.cod_modalidade = homologacao.cod_modalidade + AND adjudicacao.cod_licitacao = homologacao.cod_licitacao + AND adjudicacao.exercicio_licitacao = homologacao.exercicio_licitacao + AND adjudicacao.cod_item = homologacao.cod_item + AND adjudicacao.cod_cotacao = homologacao.cod_cotacao + AND adjudicacao.lote = homologacao.lote + AND adjudicacao.exercicio_cotacao = homologacao.exercicio_cotacao + AND adjudicacao.cgm_fornecedor = homologacao.cgm_fornecedor + + JOIN licitacao.cotacao_licitacao + ON cotacao_licitacao.cod_licitacao = adjudicacao.cod_licitacao + AND cotacao_licitacao.cod_modalidade = adjudicacao.cod_modalidade + AND cotacao_licitacao.cod_entidade = adjudicacao.cod_entidade + AND cotacao_licitacao.exercicio_licitacao = adjudicacao.exercicio_licitacao + AND cotacao_licitacao.lote = adjudicacao.lote + AND cotacao_licitacao.cod_cotacao = adjudicacao.cod_cotacao + AND cotacao_licitacao.cod_item = adjudicacao.cod_item + AND cotacao_licitacao.exercicio_cotacao = adjudicacao.exercicio_cotacao + AND cotacao_licitacao.cgm_fornecedor = adjudicacao.cgm_fornecedor + + JOIN licitacao.licitacao + ON licitacao.cod_licitacao = cotacao_licitacao.cod_licitacao + AND licitacao.cod_modalidade = cotacao_licitacao.cod_modalidade + AND licitacao.cod_entidade = cotacao_licitacao.cod_entidade + AND licitacao.exercicio = cotacao_licitacao.exercicio_licitacao + + JOIN orcamento.unidade + ON unidade.exercicio = licitacao.exercicio + AND unidade.num_unidade = licitacao.num_unidade + AND unidade.num_orgao = licitacao.num_orgao + + JOIN tcmgo.unidade_responsavel + ON unidade_responsavel.exercicio = unidade.exercicio + AND unidade_responsavel.num_unidade = unidade.num_unidade + AND unidade_responsavel.num_orgao = unidade.num_orgao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN licitacao.participante_documentos + ON participante_documentos.cod_licitacao = participante.cod_licitacao + AND participante_documentos.cgm_fornecedor = participante.cgm_fornecedor + AND participante_documentos.cod_modalidade = participante.cod_modalidade + AND participante_documentos.cod_entidade = participante.cod_entidade + AND participante_documentos.exercicio = participante.exercicio + + JOIN compras.fornecedor + ON fornecedor.cgm_fornecedor = participante.cgm_fornecedor + + JOIN compras.cotacao_fornecedor_item + ON cotacao_fornecedor_item.cgm_fornecedor = cotacao_licitacao.cgm_fornecedor + AND cotacao_fornecedor_item.cod_cotacao = cotacao_licitacao.cod_cotacao + AND cotacao_fornecedor_item.exercicio = cotacao_licitacao.exercicio_cotacao + AND cotacao_fornecedor_item.lote = cotacao_licitacao.lote + AND cotacao_fornecedor_item.cod_item = cotacao_licitacao.cod_item + + JOIN compras.cotacao_item + ON cotacao_item.exercicio = cotacao_fornecedor_item.exercicio + AND cotacao_item.cod_cotacao = cotacao_fornecedor_item.cod_cotacao + AND cotacao_item.cod_item = cotacao_fornecedor_item.cod_item + AND cotacao_item.lote = cotacao_fornecedor_item.lote + + JOIN compras.cotacao + ON cotacao.exercicio = cotacao_item.exercicio + AND cotacao.cod_cotacao = cotacao_item.cod_cotacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_cotacao = cotacao.exercicio + AND mapa_cotacao.cod_cotacao = cotacao.cod_cotacao + + JOIN compras.julgamento_item + ON cotacao_fornecedor_item.exercicio = julgamento_item.exercicio + AND cotacao_fornecedor_item.cod_cotacao = julgamento_item.cod_cotacao + AND cotacao_fornecedor_item.cod_item = julgamento_item.cod_item + AND cotacao_fornecedor_item.cgm_fornecedor = julgamento_item.cgm_fornecedor + AND cotacao_fornecedor_item.lote = julgamento_item.lote + + JOIN compras.mapa + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa.exercicio + AND mapa_item.cod_mapa = mapa.cod_mapa + AND mapa_item.cod_item = cotacao_fornecedor_item.cod_item + AND mapa_item.lote = cotacao_fornecedor_item.lote + + JOIN compras.mapa_item_dotacao + ON mapa_item_dotacao.exercicio = mapa_item.exercicio + AND mapa_item_dotacao.cod_mapa = mapa_item.cod_mapa + AND mapa_item_dotacao.exercicio_solicitacao = mapa_item.exercicio_solicitacao + AND mapa_item_dotacao.cod_entidade = mapa_item.cod_entidade + AND mapa_item_dotacao.cod_solicitacao = mapa_item.cod_solicitacao + AND mapa_item_dotacao.cod_centro = mapa_item.cod_centro + AND mapa_item_dotacao.cod_item = mapa_item.cod_item + AND mapa_item_dotacao.lote = mapa_item.lote + + JOIN compras.solicitacao_item_dotacao + ON solicitacao_item_dotacao.exercicio = mapa_item_dotacao.exercicio_solicitacao + AND solicitacao_item_dotacao.cod_entidade = mapa_item_dotacao.cod_entidade + AND solicitacao_item_dotacao.cod_solicitacao = mapa_item_dotacao.cod_solicitacao + AND solicitacao_item_dotacao.cod_centro = mapa_item_dotacao.cod_centro + AND solicitacao_item_dotacao.cod_item = mapa_item_dotacao.cod_item + AND solicitacao_item_dotacao.cod_conta = mapa_item_dotacao.cod_conta + AND solicitacao_item_dotacao.cod_despesa = mapa_item_dotacao.cod_despesa + + JOIN orcamento.despesa + ON despesa.exercicio = solicitacao_item_dotacao.exercicio + AND despesa.cod_despesa = solicitacao_item_dotacao.cod_despesa + + WHERE licitacao.cod_entidade IN (".$this->getDado('cod_entidade').") + AND licitacao.exercicio = '".$this->getDado('exercicio')."' + AND TO_DATE(homologacao.timestamp::varchar, 'YYYY-MM-DD') BETWEEN TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + "; + + return $stSql; + } + +} + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHabilitacaoLicitacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHabilitacaoLicitacao.class.php new file mode 100644 index 0000000..ccf2335 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHabilitacaoLicitacao.class.php @@ -0,0 +1,562 @@ + +montarecuperaExportacao10().$stFiltro.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montarecuperaExportacao10() + { + $stSql = " SELECT 10 AS tipo_registro + , LPAD(tcmgo_orgao.num_orgao::VARCHAR, 2, '0') AS cod_orgao + , LPAD(licitacao.num_unidade::VARCHAR, 2, '0') AS cod_unidade + , licitacao.exercicio_processo AS exercicio_licitacao + , licitacao.exercicio::VARCHAR || LPAD(licitacao.cod_entidade::VARCHAR,2,'0') || LPAD(licitacao.cod_modalidade::VARCHAR,2,'0') || LPAD(licitacao.cod_licitacao::VARCHAR,4,'0') AS num_processo_licitatorio + , documento_cgm.tipo AS tipo_documento + , documento_cgm.numero AS num_documento + , sw_cgm.nom_cgm AS nome_razao_social + , sw_cgm_pessoa_juridica.objeto_social AS objeto_social + , sw_cgm_pessoa_juridica.cod_orgao_registro orgao_resp_registro + , TO_CHAR(sw_cgm_pessoa_juridica.dt_registro,'ddmmyyyy') AS dt_registro + , sw_cgm_pessoa_juridica.num_registro + , TO_CHAR(sw_cgm_pessoa_juridica.dt_registro_cvm, 'ddmmyyyy') AS dt_registro_cvm + , sw_cgm_pessoa_juridica.num_registro_cvm + , sw_cgm_pessoa_juridica.insc_estadual AS num_inscricao_estadual + , sw_uf.sigla_uf AS uf_inscricao_estadual + , CASE WHEN certificacao_documentos.cod_documento = 5 THEN certificacao_documentos.num_certificacao ELSE NULL END AS num_certidao_regularidade_inss + , CASE WHEN certificacao_documentos.cod_documento = 5 THEN TO_CHAR(certificacao_documentos.dt_emissao,'dd/mm/yyyy') ELSE '' END AS dt_emissao_certidao_regularidade_inss + , CASE WHEN certificacao_documentos.cod_documento = 5 THEN TO_CHAR(certificacao_documentos.dt_validade,'dd/mm/yyyy') ELSE '' END AS dt_validade_certidao_regularida_inss + , CASE WHEN certificacao_documentos.cod_documento = 6 THEN certificacao_documentos.num_certificacao ELSE NULL END AS num_certidao_regularidade_fgts + , CASE WHEN certificacao_documentos.cod_documento = 6 THEN TO_CHAR(certificacao_documentos.dt_emissao,'dd/mm/yyyy') ELSE '' END AS dt_emissao_certidao_regularidade_fgts + , CASE WHEN certificacao_documentos.cod_documento = 6 THEN TO_CHAR(certificacao_documentos.dt_validade,'dd/mm/yyyy') ELSE '' END AS dt_validade_certidao_regularida_fgts + , CASE WHEN certificacao_documentos.cod_documento = 7 THEN certificacao_documentos.num_certificacao ELSE NULL END AS num_cndt + , CASE WHEN certificacao_documentos.cod_documento = 7 THEN TO_CHAR(certificacao_documentos.dt_emissao,'dd/mm/yyyy') ELSE '' END AS dt_emissao_cndt + , CASE WHEN certificacao_documentos.cod_documento = 7 THEN TO_CHAR(certificacao_documentos.dt_validade,'dd/mm/yyyy') ELSE '' END AS dt_validade_cndt + , TO_CHAR(participante_certificacao.dt_registro,'ddmmyyyy') AS dt_habilitacao + , CASE WHEN participante_documentos.cgm_fornecedor::VARCHAR <> '' THEN 1 ELSE 2 END AS presenca_licitantes + , CASE WHEN participante.renuncia_recurso = 't' THEN 1 ELSE 2 END AS renuncia_recurso + , CASE WHEN tipo_objeto.cod_tipo_objeto = 1 THEN + CASE WHEN (SUM(cotacao_fornecedor_item.vl_cotacao) > 15000) THEN 2 + ELSE 99 + END + WHEN tipo_objeto.cod_tipo_objeto = 2 THEN + CASE WHEN (SUM(cotacao_fornecedor_item.vl_cotacao) > 8000) THEN 1 + ELSE 99 + END + WHEN tipo_objeto.cod_tipo_objeto = 3 THEN 3 + WHEN tipo_objeto.cod_tipo_objeto = 4 THEN 3 + END AS natureza_objeto + + FROM licitacao.licitacao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN licitacao.participante_documentos + ON participante_documentos.cod_licitacao = participante.cod_licitacao + AND participante_documentos.cgm_fornecedor = participante.cgm_fornecedor + AND participante_documentos.cod_modalidade = participante.cod_modalidade + AND participante_documentos.cod_entidade = participante.cod_entidade + AND participante_documentos.exercicio = participante.exercicio + + JOIN sw_cgm + ON sw_cgm.numcgm = participante.cgm_fornecedor + + JOIN sw_uf + ON sw_cgm.cod_uf = sw_uf.cod_uf + + JOIN (SELECT numcgm + , cpf AS numero + , 1 AS tipo + + FROM sw_cgm_pessoa_fisica + + UNION + + SELECT numcgm + , cnpj AS numero + , 2 AS tipo + FROM sw_cgm_pessoa_juridica + ) AS documento_cgm + ON documento_cgm.numcgm = sw_cgm.numcgm + + LEFT JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = documento_cgm.numcgm + + LEFT JOIN tcmgo.orgao AS tcmgo_orgao + ON tcmgo_orgao.numcgm_orgao = sw_cgm_pessoa_juridica.numcgm + AND tcmgo_orgao.numcgm_contador = sw_cgm.numcgm + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + INNER JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN licitacao.participante_certificacao + ON participante_certificacao.cgm_fornecedor = participante_documentos.cgm_fornecedor + AND participante_certificacao.exercicio = participante_documentos.exercicio + + JOIN licitacao.certificacao_documentos + ON participante_certificacao.num_certificacao = certificacao_documentos.num_certificacao + AND participante_certificacao.exercicio = certificacao_documentos.exercicio + AND participante_certificacao.cgm_fornecedor = certificacao_documentos.cgm_fornecedor + AND certificacao_documentos.timestamp = (SELECT MAX(timestamp) from licitacao.certificacao_documentos AS CD where cgm_fornecedor = certificacao_documentos.cgm_fornecedor) + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + JOIN compras.mapa_cotacao + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + INNER JOIN compras.julgamento + ON julgamento.exercicio = mapa_cotacao.exercicio_cotacao + AND julgamento.cod_cotacao = mapa_cotacao.cod_cotacao + + INNER JOIN compras.julgamento_item + ON julgamento_item.exercicio = julgamento.exercicio + AND julgamento_item.cod_cotacao = julgamento.cod_cotacao + AND julgamento_item.ordem = 1 + + INNER JOIN compras.cotacao_fornecedor_item + ON julgamento_item.exercicio = cotacao_fornecedor_item.exercicio + AND julgamento_item.cod_cotacao = cotacao_fornecedor_item.cod_cotacao + AND julgamento_item.cod_item = cotacao_fornecedor_item.cod_item + AND julgamento_item.cgm_fornecedor = cotacao_fornecedor_item.cgm_fornecedor + AND julgamento_item.lote = cotacao_fornecedor_item.lote + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao = licitacao.cod_licitacao + AND homologacao.cod_modalidade = licitacao.cod_modalidade + AND homologacao.cod_entidade = licitacao.cod_entidade + AND homologacao.exercicio_licitacao = licitacao.exercicio + AND homologacao.cod_item = julgamento_item.cod_item + AND homologacao.lote = julgamento_item.lote + AND ( + SELECT homologacao_anulada.num_homologacao + FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade = licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao = licitacao.exercicio + AND homologacao.num_homologacao = homologacao_anulada.num_homologacao + AND homologacao.cod_item = homologacao_anulada.cod_item + AND homologacao.lote = homologacao_anulada.lote + ) IS NULL + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND participante_certificacao.num_certificacao IN (SELECT num_certificacao FROM licitacao.participante_certificacao) + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + + GROUP BY tipo_registro + , cod_orgao + , cod_unidade + , exercicio_licitacao + , num_processo_licitatorio + , tipo_documento + , documento_cgm.numero + , sw_cgm.nom_cgm + , objeto_social + , orgao_resp_registro + , sw_cgm_pessoa_juridica.dt_registro + , num_registro + , dt_registro_cvm + , num_registro_cvm + , num_inscricao_estadual + , uf_inscricao_estadual + , num_certidao_regularidade_inss + , dt_emissao_certidao_regularidade_inss + , dt_validade_certidao_regularida_inss + , num_certidao_regularidade_fgts + , dt_emissao_certidao_regularidade_fgts + , dt_validade_certidao_regularida_fgts + , num_cndt + , dt_emissao_cndt + , dt_validade_cndt + , dt_habilitacao + , presenca_licitantes + , renuncia_recurso + , licitacao.exercicio_processo + , participante.cgm_fornecedor + , tipo_objeto.cod_tipo_objeto "; + + return $stSql; + } + + function recuperaExportacao11(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montarecuperaExportacao11().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + function montarecuperaExportacao11() + { + $stSql = " SELECT 11 AS tipo_registro + , LPAD(tcmgo_orgao.num_orgao::VARCHAR, 2, '0') AS cod_orgao + , LPAD(licitacao.num_unidade::VARCHAR, 2, '0') AS cod_unidade + , licitacao.exercicio_processo AS exercicio_licitacao + , licitacao.exercicio::VARCHAR || LPAD(licitacao.cod_entidade::VARCHAR,2,'0') || LPAD(licitacao.cod_modalidade::VARCHAR,2,'0') || LPAD(licitacao.cod_licitacao::VARCHAR,4,'0') AS num_processo_licitatorio + , sw_cgm_pessoa_juridica.cnpj AS num_cnpj + , documento_socio.tipo_documento_socio + , documento_socio.num_documento_socio + , fornecedor_socio.cod_tipo AS tipo_participacao + , documento_socio.nom_cgm AS nome_socio + + FROM licitacao.licitacao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN sw_cgm + ON sw_cgm.numcgm = participante.cgm_fornecedor + + JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = sw_cgm.numcgm + + LEFT JOIN tcmgo.orgao AS tcmgo_orgao + ON tcmgo_orgao.numcgm_orgao = sw_cgm_pessoa_juridica.numcgm + AND tcmgo_orgao.numcgm_contador = sw_cgm.numcgm + + JOIN compras.fornecedor + ON fornecedor.cgm_fornecedor = participante.cgm_fornecedor + + LEFT JOIN compras.fornecedor_socio + ON fornecedor_socio.cgm_fornecedor = fornecedor.cgm_fornecedor + + JOIN( SELECT CASE WHEN sw_cgm.numcgm = sw_cgm_pessoa_fisica.numcgm THEN 1 + WHEN sw_cgm.numcgm = sw_cgm_pessoa_juridica.numcgm THEN 2 + END AS tipo_documento_socio + , CASE WHEN sw_cgm.numcgm = sw_cgm_pessoa_fisica.numcgm THEN sw_cgm_pessoa_fisica.cpf + WHEN sw_cgm.numcgm = sw_cgm_pessoa_juridica.numcgm THEN sw_cgm_pessoa_juridica.cnpj + END AS num_documento_socio + , sw_cgm.numcgm + , sw_cgm.nom_cgm + + FROM sw_cgm + + LEFT JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = sw_cgm.numcgm + + LEFT JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + + ) AS documento_socio + ON documento_socio.numcgm = fornecedor_socio.cgm_socio + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_cotacao + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + INNER JOIN compras.julgamento + ON julgamento.exercicio = mapa_cotacao.exercicio_cotacao + AND julgamento.cod_cotacao = mapa_cotacao.cod_cotacao + + INNER JOIN compras.julgamento_item + ON julgamento_item.exercicio = julgamento.exercicio + AND julgamento_item.cod_cotacao = julgamento.cod_cotacao + AND julgamento_item.ordem = 1 + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao = licitacao.cod_licitacao + AND homologacao.cod_modalidade = licitacao.cod_modalidade + AND homologacao.cod_entidade = licitacao.cod_entidade + AND homologacao.exercicio_licitacao = licitacao.exercicio + AND homologacao.cod_item = julgamento_item.cod_item + AND homologacao.lote = julgamento_item.lote + AND ( + SELECT homologacao_anulada.num_homologacao + FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade = licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao = licitacao.exercicio + AND homologacao.num_homologacao = homologacao_anulada.num_homologacao + AND homologacao.cod_item = homologacao_anulada.cod_item + AND homologacao.lote = homologacao_anulada.lote + ) IS NULL + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + + GROUP BY 1,2,3,4,5,6,7,8,9,10 "; + return $stSql; + } + + function recuperaExportacao20(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaExportacao20().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + function montaRecuperaExportacao20() + { + $stSql = " SELECT 20 AS tipo_registro + , LPAD(tcmgo_orgao.num_orgao::VARCHAR, 2, '0') AS cod_orgao + , LPAD(licitacao.num_unidade::VARCHAR, 2, '0') AS cod_unidade + , licitacao.exercicio_processo AS exercicio_licitacao + , licitacao.exercicio::VARCHAR || LPAD(licitacao.cod_entidade::VARCHAR,2,'0') || LPAD(licitacao.cod_modalidade::VARCHAR,2,'0') || LPAD(licitacao.cod_licitacao::VARCHAR,4,'0') AS num_processo_licitatorio + , documento_cgm.tipo AS tipo_documento + , documento_cgm.numero AS num_documento + , TO_CHAR (participante_certificacao.dt_registro, 'ddmmyyyy') AS dt_credenciamento + , CASE WHEN mapa.cod_tipo_licitacao = 2 + THEN mapa_cotacao.cod_cotacao::VARCHAR + ELSE ' ' + END AS num_lote + , julgamento_item.cod_item + , sw_cgm.nom_cgm AS nome_razao_social + , documento_cgm.insc_estadual AS num_inscricao_estadual + , sw_uf.sigla_uf AS uf_inscricao_estadual + , CASE WHEN certificacao_documentos.cod_documento = 5 THEN certificacao_documentos.num_certificacao ELSE NULL END AS num_certidao_regularidade_inss + , CASE WHEN certificacao_documentos.cod_documento = 5 THEN TO_CHAR(certificacao_documentos.dt_emissao,'ddmmyyyy') ELSE '' END AS dt_emissao_certidao_regularidade_inss + , CASE WHEN certificacao_documentos.cod_documento = 5 THEN TO_CHAR(certificacao_documentos.dt_validade,'ddmmyyyy') ELSE '' END AS dt_validade_certidao_regularida_inss + , CASE WHEN certificacao_documentos.cod_documento = 6 THEN certificacao_documentos.num_certificacao ELSE NULL END AS num_certidao_regularidade_fgts + , CASE WHEN certificacao_documentos.cod_documento = 6 THEN TO_CHAR(certificacao_documentos.dt_emissao,'ddmmyyyy') ELSE '' END AS dt_emissao_certidao_regularidade_fgts + , CASE WHEN certificacao_documentos.cod_documento = 6 THEN TO_CHAR(certificacao_documentos.dt_validade,'ddmmyyyy') ELSE '' END AS dt_validade_certidao_regularida_fgts + , CASE WHEN certificacao_documentos.cod_documento = 7 THEN certificacao_documentos.num_certificacao ELSE NULL END AS num_cndt + , CASE WHEN certificacao_documentos.cod_documento = 7 THEN TO_CHAR(certificacao_documentos.dt_emissao,'ddmmyyyy') ELSE '' END AS dt_emissao_cndt + , CASE WHEN certificacao_documentos.cod_documento = 7 THEN TO_CHAR(certificacao_documentos.dt_validade,'ddmmyyyy') ELSE '' END AS dt_validade_cndt + + FROM licitacao.licitacao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN sw_cgm + ON sw_cgm.numcgm = participante.cgm_fornecedor + + LEFT JOIN tcmgo.orgao AS tcmgo_orgao + ON tcmgo_orgao.numcgm_contador = sw_cgm.numcgm + + JOIN sw_uf + ON sw_cgm.cod_uf = sw_uf.cod_uf + + JOIN (SELECT numcgm + , cpf AS numero + , 1 AS tipo + , '' AS insc_estadual + + FROM sw_cgm_pessoa_fisica + + UNION + + SELECT numcgm + , cnpj AS numero + , 2 AS tipo + , '' AS insc_estadual + + FROM sw_cgm_pessoa_juridica + + ) AS documento_cgm + ON documento_cgm.numcgm = sw_cgm.numcgm + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN licitacao.licitacao_documentos + ON licitacao_documentos.cod_licitacao = licitacao.cod_licitacao + AND licitacao_documentos.cod_modalidade = licitacao.cod_modalidade + AND licitacao_documentos.cod_entidade = licitacao.cod_entidade + AND licitacao_documentos.exercicio = licitacao.exercicio + + JOIN licitacao.documento + ON documento.cod_documento = licitacao_documentos.cod_documento + + JOIN licitacao.certificacao_documentos + ON certificacao_documentos.cod_documento = documento.cod_documento + + JOIN licitacao.participante_certificacao + ON participante_certificacao.num_certificacao = certificacao_documentos.num_certificacao + AND participante_certificacao.exercicio = certificacao_documentos.exercicio + AND participante_certificacao.cgm_fornecedor = certificacao_documentos.cgm_fornecedor + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_cotacao + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + INNER JOIN compras.julgamento + ON julgamento.exercicio = mapa_cotacao.exercicio_cotacao + AND julgamento.cod_cotacao = mapa_cotacao.cod_cotacao + + INNER JOIN compras.julgamento_item + ON julgamento_item.exercicio = julgamento.exercicio + AND julgamento_item.cod_cotacao = julgamento.cod_cotacao + AND julgamento_item.ordem = 1 + AND julgamento_item.cgm_fornecedor = participante.cgm_fornecedor + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao = licitacao.cod_licitacao + AND homologacao.cod_modalidade = licitacao.cod_modalidade + AND homologacao.cod_entidade = licitacao.cod_entidade + AND homologacao.exercicio_licitacao = licitacao.exercicio + AND homologacao.cod_item = julgamento_item.cod_item + AND homologacao.lote = julgamento_item.lote + AND ( + SELECT homologacao_anulada.num_homologacao + FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade = licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao = licitacao.exercicio + AND homologacao.num_homologacao = homologacao_anulada.num_homologacao + AND homologacao.cod_item = homologacao_anulada.cod_item + AND homologacao.lote = homologacao_anulada.lote + ) IS NULL + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND participante_certificacao.num_certificacao IN (SELECT num_certificacao FROM licitacao.participante_certificacao) + AND licitacao.cod_modalidade = 10 + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 + + ORDER BY num_processo_licitatorio, cod_item "; + return $stSql; + } + + public function __destruct(){} + +} +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOJulgamentoLicitacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOJulgamentoLicitacao.class.php new file mode 100644 index 0000000..41796df --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOJulgamentoLicitacao.class.php @@ -0,0 +1,444 @@ + +executaRecupera("montaRecuperaExportacao10", $rsRecordSet, $stFiltro, $stOrder, $boTransacao); + } + + public function montaRecuperaExportacao10() + { + $stSql = " SELECT + 10 AS tipo_registro + , LPAD(licitacao.num_orgao::VARCHAR,2,'0') AS cod_orgao + , LPAD(licitacao.num_unidade::VARCHAR, 2, '0') AS cod_unidade + , licitacao.exercicio AS exercicio_licitacao + , licitacao.exercicio::VARCHAR || LPAD(licitacao.cod_entidade::VARCHAR,2,'0') || LPAD(licitacao.cod_modalidade::VARCHAR,2,'0') || LPAD(licitacao.cod_licitacao::VARCHAR,4,'0') AS num_processo_licitatorio + , documento_pessoa.tipo_documento AS tipo_documento + , documento_pessoa.num_documento AS num_documento + , mapa_item.lote AS num_lote + , mapa_item.cod_item AS cod_item + , catalogo_item.descricao::VARCHAR(250) AS dsc_produto_servico + , (mapa_item.vl_total / mapa_item.quantidade)::numeric(14,2) AS vl_unitario + , mapa_item.quantidade::numeric(14,2) AS quantidade + , CASE CONCAT(unidade_medida.cod_unidade,unidade_medida.cod_grandeza) + WHEN '00' THEN 1 + WHEN '17' THEN 1 + WHEN '67' THEN 1 + WHEN '18' THEN 2 + WHEN '34' THEN 11 + WHEN '44' THEN 12 + WHEN '12' THEN 21 + WHEN '22' THEN 22 + WHEN '32' THEN 23 + WHEN '25' THEN 31 + WHEN '15' THEN 32 + WHEN '23' THEN 41 + WHEN '33' THEN 42 + WHEN '31' THEN 51 + WHEN '41' THEN 52 + WHEN '51' THEN 53 + WHEN '61' THEN 54 + ELSE 1 + END AS unidade + + FROM licitacao.licitacao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = mapa.exercicio + AND mapa_cotacao.cod_mapa = mapa.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.cotacao_item + ON cotacao_item.exercicio = cotacao.exercicio + AND cotacao_item.cod_cotacao = cotacao.cod_cotacao + AND cotacao_item.cod_item = mapa_item.cod_item + + JOIN almoxarifado.catalogo_item + ON catalogo_item.cod_item = cotacao_item.cod_item + + JOIN administracao.unidade_medida + ON unidade_medida.cod_grandeza = catalogo_item.cod_grandeza + AND unidade_medida.cod_unidade = catalogo_item.cod_unidade + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN compras.julgamento_item + ON julgamento_item.exercicio = julgamento.exercicio + AND julgamento_item.cod_cotacao = julgamento.cod_cotacao + AND julgamento_item.cod_item = mapa_item.cod_item + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao = licitacao.cod_licitacao + AND homologacao.cod_modalidade = licitacao.cod_modalidade + AND homologacao.cod_entidade = licitacao.cod_entidade + AND homologacao.exercicio_licitacao = licitacao.exercicio + AND homologacao.cod_item = julgamento_item.cod_item + AND homologacao.lote = julgamento_item.lote + AND ( SELECT homologacao_anulada.num_homologacao + FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade = licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao = licitacao.exercicio + AND homologacao.num_homologacao = homologacao_anulada.num_homologacao + AND homologacao.cod_item = homologacao_anulada.cod_item + AND homologacao.lote = homologacao_anulada.lote + ) IS NULL + + JOIN sw_cgm AS responsavel + ON responsavel.numcgm = participante.numcgm_representante + + LEFT JOIN tcmgo.orgao + ON orgao.numcgm_contador = responsavel.numcgm + + JOIN ( SELECT num_documento, numcgm, tipo_documento + FROM ( + SELECT cpf AS num_documento + , numcgm + , 1 AS tipo_documento + FROM sw_cgm_pessoa_fisica + + UNION + + SELECT cnpj AS num_documento + , numcgm + , 2 AS tipo_documento + FROM sw_cgm_pessoa_juridica + ) AS tabela + GROUP BY numcgm, num_documento, tipo_documento + ) AS documento_pessoa + ON documento_pessoa.numcgm = julgamento_item.cgm_fornecedor + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS ( SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio + ) + + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13 + ORDER BY num_processo_licitatorio + "; + return $stSql; + } + + public function recuperaExportacao20(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaExportacao20",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaExportacao20() + { + $stSql = " SELECT + 20 AS tipo_registro + , LPAD(despesa.num_orgao::VARCHAR,2,'0') AS cod_orgao + , LPAD(despesa.num_unidade::VARCHAR, 2, '0') AS cod_unidade + , licitacao.exercicio AS exercicio_licitacao + , licitacao.exercicio::VARCHAR || LPAD(licitacao.cod_entidade::VARCHAR,2,'0') || LPAD(licitacao.cod_modalidade::VARCHAR,2,'0') || LPAD(licitacao.cod_licitacao::VARCHAR,4,'0') AS num_processo_licitatorio + , documento_pessoa.tipo_documento AS tipo_documento + , documento_pessoa.num_documento AS num_documento + , mapa_item.lote AS num_lote + , mapa_item.cod_item AS cod_item + , 0.00 AS perc_desconto + , '' as brancos + + FROM licitacao.licitacao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = mapa.exercicio + AND mapa_cotacao.cod_mapa = mapa.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN compras.mapa_item_dotacao + ON mapa_item_dotacao.exercicio = mapa_item.exercicio + AND mapa_item_dotacao.cod_entidade = mapa_item.cod_entidade + AND mapa_item_dotacao.cod_solicitacao = mapa_item.cod_solicitacao + AND mapa_item_dotacao.cod_mapa = mapa_item.cod_mapa + AND mapa_item_dotacao.cod_centro = mapa_item.cod_centro + AND mapa_item_dotacao.cod_item = mapa_item.cod_item + AND mapa_item_dotacao.lote = mapa_item.lote + AND mapa_item_dotacao.exercicio_solicitacao = mapa_item.exercicio_solicitacao + AND mapa_item_dotacao.cod_entidade = mapa_item.cod_entidade + + JOIN compras.solicitacao_item_dotacao + ON solicitacao_item_dotacao.exercicio = mapa_item_dotacao.exercicio_solicitacao + AND solicitacao_item_dotacao.cod_entidade = mapa_item_dotacao.cod_entidade + AND solicitacao_item_dotacao.cod_solicitacao = mapa_item_dotacao.cod_solicitacao + AND solicitacao_item_dotacao.cod_centro = mapa_item_dotacao.cod_centro + AND solicitacao_item_dotacao.cod_item = mapa_item_dotacao.cod_item + AND solicitacao_item_dotacao.cod_conta = mapa_item_dotacao.cod_conta + AND solicitacao_item_dotacao.cod_despesa = mapa_item_dotacao.cod_despesa + + JOIN orcamento.despesa + ON despesa.exercicio = solicitacao_item_dotacao.exercicio + AND despesa.cod_despesa = solicitacao_item_dotacao.cod_despesa + + JOIN sw_cgm AS responsavel + ON responsavel.numcgm = participante.numcgm_representante + + LEFT JOIN tcmgo.orgao + ON orgao.numcgm_contador = responsavel.numcgm + + JOIN ( SELECT num_documento, numcgm, tipo_documento + FROM ( + SELECT cpf AS num_documento, numcgm, 1 AS tipo_documento + FROM sw_cgm_pessoa_fisica + + UNION + + SELECT cnpj AS num_documento, numcgm, 2 AS tipo_documento + FROM sw_cgm_pessoa_juridica + ) AS tabela + GROUP BY numcgm, num_documento, tipo_documento + ) AS documento_pessoa + ON documento_pessoa.numcgm = responsavel.numcgm + + WHERE TO_DATE(TO_CHAR(licitacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + GROUP BY 1,2,3,4,5,6,7,8,9,10,11 + "; + return $stSql; + } + + public function recuperaExportacao30(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaExportacao30",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaExportacao30() + { + $stSql = " SELECT + 30 AS tipo_registro + , LPAD(licitacao.num_orgao::VARCHAR,2,'0') AS cod_orgao + , LPAD(licitacao.num_unidade::VARCHAR, 2, '0') AS cod_unidade + , licitacao.exercicio AS exercicio_licitacao + , licitacao.exercicio::VARCHAR || LPAD(licitacao.cod_entidade::VARCHAR,2,'0') || LPAD(licitacao.cod_modalidade::VARCHAR,2,'0') || LPAD(licitacao.cod_licitacao::VARCHAR,4,'0') AS num_processo_licitatorio + , TO_CHAR(julgamento.timestamp,'ddmmyyyy') AS dt_julgamento + , 1 AS presenca_licitantes + , CASE WHEN participante.renuncia_recurso = true THEN + 1 + ELSE + 2 + END AS renuncia_recurso + , '' as brancos + + FROM licitacao.licitacao + + JOIN licitacao.participante + ON participante.cod_licitacao = licitacao.cod_licitacao + AND participante.cod_modalidade = licitacao.cod_modalidade + AND participante.cod_entidade = licitacao.cod_entidade + AND participante.exercicio = licitacao.exercicio + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = mapa.exercicio + AND mapa_cotacao.cod_mapa = mapa.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN compras.julgamento_item + ON julgamento_item.exercicio = julgamento.exercicio + AND julgamento_item.cod_cotacao = julgamento.cod_cotacao + AND julgamento_item.cod_item = mapa_item.cod_item + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao=licitacao.cod_licitacao + AND homologacao.cod_modalidade=licitacao.cod_modalidade + AND homologacao.cod_entidade=licitacao.cod_entidade + AND homologacao.exercicio_licitacao=licitacao.exercicio + AND homologacao.cod_item=julgamento_item.cod_item + AND homologacao.lote=julgamento_item.lote + AND ( + SELECT homologacao_anulada.num_homologacao FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao=licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade=licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade=licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao=licitacao.exercicio + AND homologacao.num_homologacao=homologacao_anulada.num_homologacao + AND homologacao.cod_item=homologacao_anulada.cod_item + AND homologacao.lote=homologacao_anulada.lote + ) IS NULL + + JOIN sw_cgm AS responsavel + ON responsavel.numcgm = participante.numcgm_representante + + LEFT JOIN tcmgo.orgao + ON orgao.numcgm_contador = responsavel.numcgm + + JOIN ( SELECT num_documento, numcgm, tipo_documento + FROM ( + SELECT cpf AS num_documento, numcgm, 1 AS tipo_documento + FROM sw_cgm_pessoa_fisica + + UNION + + SELECT cnpj AS num_documento, numcgm, 2 AS tipo_documento + FROM sw_cgm_pessoa_juridica + ) AS tabela + GROUP BY numcgm, num_documento, tipo_documento + ) AS documento_pessoa + ON documento_pessoa.numcgm = responsavel.numcgm + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades'). ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio + ) + GROUP BY tipo_registro, cod_orgao, cod_unidade, exercicio_licitacao, num_processo_licitatorio, dt_julgamento, presenca_licitantes, renuncia_recurso, licitacao.exercicio + ORDER BY num_processo_licitatorio + "; + return $stSql; + } + + public function __destruct(){} + +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLDO.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLDO.class.php new file mode 100644 index 0000000..dd9ee6c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLDO.class.php @@ -0,0 +1,185 @@ + +montaRecuperaArquivoExportacao10(); + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + public function montaRecuperaArquivoExportacao10() + { + $stSql = " SELECT + '10' as tipo_registro + , norma.num_norma AS nro_ldo + , TO_CHAR(norma.dt_assinatura, 'DDMMYYYY') AS data_ldo + , '' AS brancos + FROM tcmgo.configuracao_leis_ldo + + JOIN normas.norma + ON norma.cod_norma = configuracao_leis_ldo.cod_norma + + WHERE configuracao_leis_ldo.exercicio = '".$this->getDado('exercicio')."' + AND configuracao_leis_ldo.status <> 'f' + AND configuracao_leis_ldo.tipo_configuracao = 'consulta' + "; + return $stSql; + } + + public function recuperaArquivoExportacao11(&$rsRecordSet,$boTransacao="") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaArquivoExportacao11(); + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + public function montaRecuperaArquivoExportacao11() + { + $stSql = " SELECT DISTINCT + 11 as tipo_registro + ,norma.num_norma as nro_ldo + , TO_CHAR(norma.dt_assinatura, 'DDMMYYYY') AS data_ldo + ,CASE tipo_veiculos_publicidade.cod_tipo_veiculos_publicidade + WHEN 6 THEN 1 + WHEN 1 THEN 4 + WHEN 2 THEN 4 + WHEN 3 THEN 4 + WHEN 4 THEN 4 + WHEN 5 THEN 5 + WHEN 7 THEN 5 + WHEN 8 THEN 3 + WHEN 9 THEN 9 + END as meio_pub_ldo + ,tipo_veiculos_publicidade.descricao as desc_meio_ldo + ,TO_CHAR(norma.dt_publicacao,'ddmmyyyy') as data_pub_lei_ldo + FROM tcmgo.configuracao_leis_ldo + JOIN normas.norma + ON configuracao_leis_ldo.cod_norma = norma.cod_norma + JOIN ldo.homologacao + ON homologacao.cod_norma = norma.cod_norma + JOIN licitacao.veiculos_publicidade + ON veiculos_publicidade.numcgm = homologacao.numcgm_veiculo + JOIN licitacao.tipo_veiculos_publicidade + ON tipo_veiculos_publicidade.cod_tipo_veiculos_publicidade = veiculos_publicidade.cod_tipo_veiculos_publicidade + WHERE configuracao_leis_ldo.tipo_configuracao = 'consulta' + AND configuracao_leis_ldo.exercicio = '".$this->getDado('exercicio')."' + "; + return $stSql; + } + + public function recuperaArquivoExportacao20(&$rsRecordSet,$boTransacao="") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaArquivoExportacao20(); + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + public function montaRecuperaArquivoExportacao20() + { + $stSql = " SELECT + '20' as tipo_registro + , metas_fiscais_ldo.valor_corrente_receita as meta_rec + , metas_fiscais_ldo.valor_corrente_despesa as meta_desp + , metas_fiscais_ldo.valor_corrente_resultado_primario as meta_rp + , metas_fiscais_ldo.valor_corrente_resultado_nominal as meta_rn + , metas_fiscais_ldo.valor_corrente_divida_consolidada_liquida as meta_dcl + , exercicio + , '' as brancos + FROM tcmgo.metas_fiscais_ldo + WHERE exercicio = '".$this->getDado('exercicio')."' + "; + return $stSql; + } + + public function recuperaArquivoExportacao21(&$rsRecordSet,$boTransacao="") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaArquivoExportacao21(); + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + public function montaRecuperaArquivoExportacao21() + { + $stSql = " SELECT + '21' as tipo_registro + , meta_arrecadacao_1_bi as meta_arrec_1_bim + , meta_arrecadacao_2_bi as meta_arrec_2_bim + , meta_arrecadacao_3_bi as meta_arrec_3_bim + , meta_arrecadacao_4_bi as meta_arrec_4_bim + , meta_arrecadacao_5_bi as meta_arrec_5_bim + , meta_arrecadacao_6_bi as meta_arrec_6_bim + , exercicio + , '' as brancos + FROM tcmgo.metas_arrecadacao_receita + WHERE exercicio = '".$this->getDado('exercicio')."' + "; + return $stSql; + } + + + +} +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasArrecadacaoReceita.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasArrecadacaoReceita.class.php new file mode 100644 index 0000000..7a29504 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasArrecadacaoReceita.class.php @@ -0,0 +1,96 @@ + +setTabela('tcmgo.metas_arrecadacao_receita'); + + $this->setCampoCod('exercicio'); + $this->setComplementoChave(''); + + $this->AddCampo('exercicio' , 'varchar', true, '4' ,true ,false); + $this->AddCampo('meta_arrecadacao_1_bi' , 'numeric', false,'14,2',false,false); + $this->AddCampo('meta_arrecadacao_2_bi' , 'numeric', false,'14,2',false,false); + $this->AddCampo('meta_arrecadacao_3_bi' , 'numeric', false,'14,2',false,false); + $this->AddCampo('meta_arrecadacao_4_bi' , 'numeric', false,'14,2',false,false); + $this->AddCampo('meta_arrecadacao_5_bi' , 'numeric', false,'14,2',false,false); + $this->AddCampo('meta_arrecadacao_6_bi' , 'numeric', false,'14,2',false,false); + } + + public function recuperaMetasArrecadacaoReceita(&$rsRecordSet) + { + return $this->executaRecupera("montaRecuperaMetasArrecadacaoReceita",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaMetasArrecadacaoReceita() + { + $stSql = " + SELECT exercicio + , meta_arrecadacao_1_bi AS meta_arrecadacao_1_bi + , meta_arrecadacao_2_bi AS meta_arrecadacao_2_bi + , meta_arrecadacao_3_bi AS meta_arrecadacao_3_bi + , meta_arrecadacao_4_bi AS meta_arrecadacao_4_bi + , meta_arrecadacao_5_bi AS meta_arrecadacao_5_bi + , meta_arrecadacao_6_bi AS meta_arrecadacao_6_bi + + FROM tcmgo.metas_arrecadacao_receita + WHERE exercicio = ('".$this->getDado('exercicio')."') + ORDER BY exercicio + "; + + return $stSql; + } + + public function __destruct(){} + +} +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasFiscaisLDO.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasFiscaisLDO.class.php new file mode 100644 index 0000000..508d5a2 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasFiscaisLDO.class.php @@ -0,0 +1,92 @@ + +setTabela('tcmgo.metas_fiscais_ldo'); + + $this->setCampoCod('exercicio'); + $this->setComplementoChave(''); + + $this->AddCampo('exercicio' , 'varchar', true, '4' , true ,false); + $this->AddCampo('valor_corrente_receita' , 'numeric', false,'14,2' ,false ,false); + $this->AddCampo('valor_corrente_despesa' , 'numeric', false,'14,2' ,false ,false); + $this->AddCampo('valor_corrente_resultado_primario' , 'numeric', false,'14,2' ,false ,false); + $this->AddCampo('valor_corrente_resultado_nominal' , 'numeric', false,'14,2' ,false ,false); + $this->AddCampo('valor_corrente_divida_consolidada_liquida' , 'numeric', false,'14,2' ,false ,false); + } + + public function recuperaValoresMetasFiscaisLDO(&$rsRecordSet) + { + return $this->executaRecupera("montaRecuperaValoresMetasFiscaisLDO", $rsRecordSet, $stFiltro, $stOrder, $boTransacao); + } + + public function montaRecuperaValoresMetasFiscaisLDO() + { + $stSql = " SELECT exercicio + , REPLACE(valor_corrente_receita::VARCHAR, '.', ',') AS valor_corrente_receita + , REPLACE(valor_corrente_despesa::VARCHAR, '.', ',') AS valor_corrente_despesa + , REPLACE(valor_corrente_resultado_primario::VARCHAR, '.', ',') AS valor_corrente_resultado_primario + , REPLACE(valor_corrente_resultado_nominal::VARCHAR, '.', ',') AS valor_corrente_resultado_nominal + , REPLACE(valor_corrente_divida_consolidada_liquida::VARCHAR, '.', ',') AS valor_corrente_divida_consolidada_liquida + FROM tcmgo.metas_fiscais_ldo + WHERE exercicio::INTEGER IN (".$this->getDado('exercicio').") + ORDER BY exercicio "; + + return $stSql; + } + + public function __destruct(){} + +} + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOParecerLicitacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOParecerLicitacao.class.php new file mode 100644 index 0000000..6f4004e --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOParecerLicitacao.class.php @@ -0,0 +1,157 @@ + +executaRecupera("montaRecuperaPareceLicitacaoRegistro10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaPareceLicitacaoRegistro10() + { + $stSql =" SELECT 10 as tipo_registro + , LPAD(orgao.num_orgao::varchar,2,'0') as cod_orgao + , LPAD(licitacao.num_orgao::varchar,2, '0') AS cod_unidade + , licitacao.exercicio as exercicio_licitacao + , licitacao.exercicio::varchar||LPAD(''||licitacao.cod_entidade::varchar,2, '0')||LPAD(''||licitacao.cod_modalidade::varchar,2, '0')||LPAD(''||licitacao.cod_licitacao::varchar,4, '0') AS num_processo_licitatorio + , to_char(edital.dt_aprovacao_juridico, 'ddmmyyyy') as data_parecer + , 2 as tipo_parecer + , pf.cpf as cpf + , sw_cgm.nom_cgm as nome_resp_parecer + , sw_cgm.logradouro as logra_res + , ''::varchar(20) as setor_logra + , sw_municipio.nom_municipio as cidade_logra + , sw_uf.sigla_uf as uf_cidade_logra + , sw_cgm.cep as cep_logra_responsavel + , CASE WHEN sw_cgm.fone_residencial != '' THEN + sw_cgm.fone_residencial + ELSE + sw_cgm.fone_celular + END as fone + , sw_cgm.e_mail as email + + FROM licitacao.licitacao + JOIN licitacao.edital + ON edital.exercicio_licitacao = licitacao.exercicio + AND edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + JOIN licitacao.cotacao_licitacao AS CL + ON CL.cod_licitacao = licitacao.cod_licitacao + AND CL.cod_modalidade = licitacao.cod_modalidade + AND CL.cod_entidade = licitacao.cod_entidade + AND CL.exercicio_licitacao = licitacao.exercicio + JOIN licitacao.adjudicacao AS A + ON A.cod_licitacao = CL.cod_licitacao + AND A.cod_modalidade = CL.cod_modalidade + AND A.cod_entidade = CL.cod_entidade + AND A.exercicio_licitacao = CL.exercicio_licitacao + AND A.lote = CL.lote + AND A.cod_cotacao = CL.cod_cotacao + AND A.cod_item = CL.cod_item + AND A.exercicio_cotacao = CL.exercicio_cotacao + AND A.cgm_fornecedor = CL.cgm_fornecedor + JOIN licitacao.homologacao AS H + ON H.num_adjudicacao = A.num_adjudicacao + AND H.cod_entidade = A.cod_entidade + AND H.cod_modalidade = A.cod_modalidade + AND H.cod_licitacao = A.cod_licitacao + AND H.exercicio_licitacao = A.exercicio_licitacao + AND H.cod_item = A.cod_item + AND H.cod_cotacao = A.cod_cotacao + AND H.lote = A.lote + AND H.exercicio_cotacao = A.exercicio_cotacao + AND H.cgm_fornecedor = A.cgm_fornecedor + AND ( SELECT num_homologacao + FROM licitacao.homologacao_anulada AS HANUL + WHERE HANUL.num_homologacao = H.num_homologacao + AND HANUL.cod_licitacao = H.cod_licitacao + AND HANUL.cod_modalidade = H.cod_modalidade + AND HANUL.cod_entidade = H.cod_entidade + AND HANUL.num_adjudicacao = H.num_adjudicacao + AND HANUL.exercicio_licitacao = H.exercicio_licitacao + AND HANUL.lote = H.lote + AND HANUL.cod_cotacao = H.cod_cotacao + AND HANUL.cod_item = H.cod_item + AND HANUL.exercicio_cotacao = H.exercicio_cotacao + AND HANUL.cgm_fornecedor = H.cgm_fornecedor + ) IS NULL + + JOIN public.sw_cgm_pessoa_fisica as pf + ON pf.numcgm = edital.responsavel_juridico + + JOIN sw_cgm + ON sw_cgm.numcgm = pf.numcgm + + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + LEFT JOIN tcmgo.orgao + ON orgao.num_orgao = licitacao.num_orgao + AND orgao.exercicio = licitacao.exercicio + + WHERE H.timestamp BETWEEN TO_DATE('".$this->getDado('dt_inicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('dt_final')."','dd/mm/yyyy') + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS (SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.exercicio = licitacao.exercicio + AND licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + ) + + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 + "; + + return $stSql; + } +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOPassivoFinanceiro.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOPassivoFinanceiro.class.php index 718cc72..ee584bf 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOPassivoFinanceiro.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOPassivoFinanceiro.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTCMGOPassivoFinanceiro.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTCMGOPassivoFinanceiro.class.php 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -48,26 +48,39 @@ class TTCMGOPassivoFinanceiro extends TContabilidadeBalancoFinanceiro $this->setDado('exercicio', Sessao::getExercicio() ); } - public function montaRecuperaTodos() + public function recuperaArquivoExportacao10(&$rsRecordSet, $boTransacao = "") { - $stEntidades = $this->getDado( 'stEntidades' ); + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaArquivoExportacao10(); + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } - $stSql = " select consulta.* - , total_debitos - , total_creditos - , ( total_creditos - total_debitos ) as saldo_atual + public function montaRecuperaArquivoExportacao10() + { + $stSql = " SELECT + '10' AS tipo_registro + , consulta.* + , total_debitos + , total_creditos + , ( total_creditos - total_debitos ) as saldo_atual + , '' AS brancos from ( - select plano_conta.cod_estrutural + select + REPLACE(plano_conta.cod_estrutural,'.','') as cod_estrutural , plano_conta.nom_conta , plano_conta.exercicio - , balanco_pfdaaaa.tipo_lancamento - , balanco_pfdaaaa.desdobramento_tipo - , orgao_plano_banco.num_orgao - , unidade.num_unidade + , balancete_extmmaa.tipo_lancamento + , balancete_extmmaa.sub_tipo_lancamento + , (string_to_array(configuracao_entidade.valor, '_'))[1] AS num_orgao + , (string_to_array(configuracao_entidade.valor, '_'))[2] AS num_unidade ---- soma dos debitos , coalesce( ( select sum ( vl_lancamento ) from contabilidade.conta_debito - join contabilidade.valor_lancamento + JOIN contabilidade.valor_lancamento on ( conta_debito.exercicio = valor_lancamento.exercicio and conta_debito.cod_entidade = valor_lancamento.cod_entidade and conta_debito.tipo = valor_lancamento.tipo @@ -77,12 +90,12 @@ class TTCMGOPassivoFinanceiro extends TContabilidadeBalancoFinanceiro where conta_debito.exercicio = plano_analitica.exercicio and conta_debito.cod_plano = plano_analitica.cod_plano and valor_lancamento.tipo <> 'I' - and conta_debito.cod_entidade in ( $stEntidades ) ) + and conta_debito.cod_entidade = configuracao_entidade.cod_entidade ) , 0 ) as total_debitos ---- soma dos creditos ,coalesce ( ( select sum ( vl_lancamento ) from contabilidade.conta_credito - join contabilidade.valor_lancamento + JOIN contabilidade.valor_lancamento on ( conta_credito.exercicio = valor_lancamento.exercicio and conta_credito.cod_entidade = valor_lancamento.cod_entidade and conta_credito.tipo = valor_lancamento.tipo @@ -92,7 +105,7 @@ class TTCMGOPassivoFinanceiro extends TContabilidadeBalancoFinanceiro where conta_credito.exercicio = plano_analitica.exercicio and conta_credito.cod_plano = plano_analitica.cod_plano and valor_lancamento.tipo <> 'I' - and conta_credito.cod_entidade in ( $stEntidades ) ) + and conta_credito.cod_entidade = configuracao_entidade.cod_entidade ) , 0 ) as total_creditos ---- saldo inicial @@ -100,7 +113,7 @@ class TTCMGOPassivoFinanceiro extends TContabilidadeBalancoFinanceiro coalesce( ( select sum ( vl_lancamento ) from contabilidade.conta_debito - join contabilidade.valor_lancamento + JOIN contabilidade.valor_lancamento on ( conta_debito.exercicio = valor_lancamento.exercicio and conta_debito.cod_entidade = valor_lancamento.cod_entidade and conta_debito.tipo = valor_lancamento.tipo @@ -110,12 +123,12 @@ class TTCMGOPassivoFinanceiro extends TContabilidadeBalancoFinanceiro where conta_debito.exercicio = plano_analitica.exercicio and conta_debito.cod_plano = plano_analitica.cod_plano and valor_lancamento.tipo = 'I' - and conta_debito.cod_entidade in ( $stEntidades ) ), 0 ) + and conta_debito.cod_entidade = configuracao_entidade.cod_entidade ), 0 ) + coalesce ( ( select sum ( vl_lancamento ) from contabilidade.conta_credito - join contabilidade.valor_lancamento + JOIN contabilidade.valor_lancamento on ( conta_credito.exercicio = valor_lancamento.exercicio and conta_credito.cod_entidade = valor_lancamento.cod_entidade and conta_credito.tipo = valor_lancamento.tipo @@ -125,32 +138,146 @@ class TTCMGOPassivoFinanceiro extends TContabilidadeBalancoFinanceiro where conta_credito.exercicio = plano_analitica.exercicio and conta_credito.cod_plano = plano_analitica.cod_plano and valor_lancamento.tipo = 'I' - and conta_credito.cod_entidade in ( $stEntidades ) ), 0 ) + and conta_credito.cod_entidade = configuracao_entidade.cod_entidade ), 0 ) ) as saldo_anterior - from contabilidade.plano_conta - join contabilidade.plano_analitica - on ( plano_analitica.cod_conta = plano_conta.cod_conta - and plano_analitica.exercicio = plano_conta.exercicio ) - join tcmgo.balanco_pfdaaaa - on ( plano_analitica.cod_plano = balanco_pfdaaaa.cod_plano - and plano_analitica.exercicio = balanco_pfdaaaa.exercicio ) - join tcmgo.orgao_plano_banco - on ( plano_analitica.exercicio = orgao_plano_banco.exercicio - and plano_analitica.cod_plano = orgao_plano_banco.cod_plano ) - join orcamento.unidade - on ( orgao_plano_banco.exercicio = unidade.exercicio - and orgao_plano_banco.num_orgao = unidade.cod_orgao ) - where plano_conta.exercicio = '".$this->getDado('exercicio')."' - order by plano_conta.cod_estrutural - ) as consulta + from contabilidade.plano_conta + JOIN contabilidade.plano_analitica + on ( plano_analitica.cod_conta = plano_conta.cod_conta + and plano_analitica.exercicio = plano_conta.exercicio ) + JOIN tcmgo.balancete_extmmaa + on ( plano_analitica.exercicio = balancete_extmmaa.exercicio + and plano_analitica.cod_plano = balancete_extmmaa.cod_plano ) + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade IN ( ".$this->getDado( 'stEntidades' )." ) + AND configuracao_entidade.exercicio = balancete_extmmaa.exercicio + AND configuracao_entidade.parametro = 'tc_ug_orgaounidade' + where plano_conta.exercicio = '".$this->getDado('exercicio')."' + order by plano_conta.cod_estrutural + ) as consulta where saldo_anterior <> 0 - or total_debitos <> 0 - or total_creditos <> 0 + or total_debitos <> 0 + or total_creditos <> 0 ORDER BY cod_estrutural "; return $stSql; } + public function recuperaArquivoExportacao11(&$rsRecordSet, $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaArquivoExportacao11(); + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + public function montaRecuperaArquivoExportacao11() + { + $stSql = " SELECT + '11' as tipo_registro + , consulta.* + , total_debitos + , total_creditos + , ( total_creditos - total_debitos ) as saldo_atual + FROM ( + select + REPLACE(plano_conta.cod_estrutural,'.','') as cod_estrutural + , plano_conta.nom_conta + , plano_conta.exercicio + , balancete_extmmaa.tipo_lancamento + , balancete_extmmaa.sub_tipo_lancamento + , (string_to_array(configuracao_entidade.valor, '_'))[1] AS num_orgao + , (string_to_array(configuracao_entidade.valor, '_'))[2] AS num_unidade + , plano_recurso.cod_recurso + ---- soma dos debitos + , coalesce( ( select sum ( vl_lancamento ) + from contabilidade.conta_debito + JOIN contabilidade.valor_lancamento + on ( conta_debito.exercicio = valor_lancamento.exercicio + and conta_debito.cod_entidade = valor_lancamento.cod_entidade + and conta_debito.tipo = valor_lancamento.tipo + and conta_debito.cod_lote = valor_lancamento.cod_lote + and conta_debito.sequencia = valor_lancamento.sequencia + and conta_debito.tipo_valor = valor_lancamento.tipo_valor ) + where conta_debito.exercicio = plano_analitica.exercicio + and conta_debito.cod_plano = plano_analitica.cod_plano + and valor_lancamento.tipo <> 'I' + and conta_debito.cod_entidade = configuracao_entidade.cod_entidade ),0 + ) as total_debitos + ---- soma dos creditos + ,coalesce ( ( select sum ( vl_lancamento ) + from contabilidade.conta_credito + JOIN contabilidade.valor_lancamento + on ( conta_credito.exercicio = valor_lancamento.exercicio + and conta_credito.cod_entidade = valor_lancamento.cod_entidade + and conta_credito.tipo = valor_lancamento.tipo + and conta_credito.cod_lote = valor_lancamento.cod_lote + and conta_credito.sequencia = valor_lancamento.sequencia + and conta_credito.tipo_valor = valor_lancamento.tipo_valor ) + where conta_credito.exercicio = plano_analitica.exercicio + and conta_credito.cod_plano = plano_analitica.cod_plano + and valor_lancamento.tipo <> 'I' + and conta_credito.cod_entidade = configuracao_entidade.cod_entidade ), 0 + ) as total_creditos + ---- saldo inicial + , ( + coalesce( + ( select sum ( vl_lancamento ) + from contabilidade.conta_debito + JOIN contabilidade.valor_lancamento + on ( conta_debito.exercicio = valor_lancamento.exercicio + and conta_debito.cod_entidade = valor_lancamento.cod_entidade + and conta_debito.tipo = valor_lancamento.tipo + and conta_debito.cod_lote = valor_lancamento.cod_lote + and conta_debito.sequencia = valor_lancamento.sequencia + and conta_debito.tipo_valor = valor_lancamento.tipo_valor ) + where conta_debito.exercicio = plano_analitica.exercicio + and conta_debito.cod_plano = plano_analitica.cod_plano + and valor_lancamento.tipo = 'I' + and conta_debito.cod_entidade = configuracao_entidade.cod_entidade ), 0 ) + + + coalesce ( + ( select sum ( vl_lancamento ) + from contabilidade.conta_credito + JOIN contabilidade.valor_lancamento + on ( conta_credito.exercicio = valor_lancamento.exercicio + and conta_credito.cod_entidade = valor_lancamento.cod_entidade + and conta_credito.tipo = valor_lancamento.tipo + and conta_credito.cod_lote = valor_lancamento.cod_lote + and conta_credito.sequencia = valor_lancamento.sequencia + and conta_credito.tipo_valor = valor_lancamento.tipo_valor ) + where conta_credito.exercicio = plano_analitica.exercicio + and conta_credito.cod_plano = plano_analitica.cod_plano + and valor_lancamento.tipo = 'I' + and conta_credito.cod_entidade = configuracao_entidade.cod_entidade ), 0 ) + ) as saldo_anterior + FROM contabilidade.plano_conta + JOIN contabilidade.plano_analitica + on plano_analitica.cod_conta = plano_conta.cod_conta + and plano_analitica.exercicio = plano_conta.exercicio + JOIN contabilidade.plano_recurso + ON plano_recurso.exercicio = plano_analitica.exercicio + AND plano_recurso.cod_plano = plano_analitica.cod_plano + JOIN tcmgo.balancete_extmmaa + ON plano_analitica.exercicio = balancete_extmmaa.exercicio + AND plano_analitica.cod_plano = balancete_extmmaa.cod_plano + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade IN ( ".$this->getDado( 'stEntidades' )." ) + AND configuracao_entidade.exercicio = balancete_extmmaa.exercicio + AND configuracao_entidade.parametro = 'tc_ug_orgaounidade' + where plano_conta.exercicio = '".$this->getDado('exercicio')."' + order by plano_conta.cod_estrutural + ) as consulta + where saldo_anterior <> 0 + or total_debitos <> 0 + or total_creditos <> 0 + ORDER BY cod_estrutural + "; + return $stSql; + } + } ?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGORecita.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGORecita.class.php index 7f0e224..4712b47 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGORecita.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGORecita.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTCMGORecita.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTCMGORecita.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -985,5 +985,94 @@ UNION return $stSQL; } + + public function recuperaArquivoOrcamento10(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaArquivoOrcamento10",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaArquivoOrcamento10() + { + $stSQL = "SELECT + 10 as tipo_registro + , '01' as cod_orgao + , '01' as cod_unidade + , cod_receita as rubrica + , TRIM(descricao) as especificacao + , vl_original AS vl_previsto + , cod_recurso as cod_fonte_recurso + FROM + ( + SELECT + tabela.cod_recurso + , REPLACE(tabela.cod_estrutural::VARCHAR,'.','') AS cod_receita + , tabela.vl_original + , tabela.descricao + FROM tcmgo.arquivo_exportacao_orcamento_rec('".$this->getDado("exercicio") ."', + '".$this->getDado("stEntidades") ."', + '".$this->getDado("dtInicio") ."', + '".$this->getDado("dtFim") ."') + AS tabela( + cod_estrutural varchar, + cod_recurso varchar(13), + cod_receita integer, + descricao varchar, + vl_original numeric + ) + + JOIN orcamento.receita + ON receita.cod_receita = tabela.cod_receita + AND receita.exercicio = '".$this->getDado("exercicio")."' + + ORDER BY tabela.cod_estrutural + ) AS tabela + "; + return $stSQL; + } + + public function recuperaArquivoOrcamento11(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaArquivoOrcamento11",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaArquivoOrcamento11() + { + $stSQL = "SELECT + 11 as tipo_registro + , '01' as cod_orgao + , '01' as cod_unidade + , rubrica as rubrica + , cod_recurso as cod_fonte_recurso + , vl_fonte_recurso + , '' as brancos + FROM + ( + SELECT + tabela.cod_recurso + , REPLACE(tabela.cod_estrutural::VARCHAR,'.','') AS rubrica + , SUM(tabela.vl_original) as vl_fonte_recurso + FROM tcmgo.arquivo_exportacao_orcamento_rec('".$this->getDado("exercicio") ."', + '".$this->getDado("stEntidades") ."', + '".$this->getDado("dtInicio") ."', + '".$this->getDado("dtFim") ."') + AS tabela( + cod_estrutural varchar, + cod_recurso varchar(13), + cod_receita integer, + descricao varchar, + vl_original numeric + ) + + JOIN orcamento.receita + ON receita.cod_receita = tabela.cod_receita + AND receita.exercicio = '".$this->getDado("exercicio")."' + + GROUP BY tabela.cod_recurso, tabela.cod_estrutural + ORDER BY cod_recurso , cod_estrutural + ) AS tabela + "; + return $stSQL; + } + } ?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacao.class.php new file mode 100644 index 0000000..45a2c21 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacao.class.php @@ -0,0 +1,480 @@ + +setTabela('tcmgo.responsavel_licitacao'); + $this->setCampoCod(''); + $this->setComplementoChave('exercicio, cod_entidade, cod_modalidade, cod_licitacao'); + + $this->AddCampo('exercicio' , 'varchar', true, '4', true, false); + $this->AddCampo('cod_entidade' , 'integer', true, '', true, false); + $this->AddCampo('cod_modalidade' , 'integer', true, '', true, false); + $this->AddCampo('cod_licitacao' , 'integer', true, '', true, false); + $this->AddCampo('cgm_resp_abertura_licitacao' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_edital' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_pesquisa' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_recurso_orcamentario' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_conducao_licitacao' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_homologacao' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_adjudicacao' , 'integer', false, '', false, false); + } + + public function recuperaResponsavel(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + + $stSql = $this->montaRecuperaResponsavel($stFiltro).$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaResponsavel($stFiltro) + { + $stSql = " + SELECT nom_cgm + FROM sw_cgm + WHERE sw_cgm.numcgm = ".$stFiltro.";"; + + return $stSql; + } + + function recuperaResponsaveisLicitacao(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaResponsaveisLicitacao().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + function montaRecuperaResponsaveisLicitacao() + { + $stSql =" SELECT 10 as tipo_registro + , LPAD(''||orgao.num_orgao,2, '0') as cod_orgao + , LPAD(''||licitacao.num_unidade,2, '0') AS codunidade + , licitacao.exercicio as exercicio_licitacao + , licitacao.exercicio::varchar||LPAD(''||licitacao.cod_entidade::varchar,2, '0')||LPAD(''||licitacao.cod_modalidade::varchar,2, '0')||LPAD(''||licitacao.cod_licitacao::varchar,4, '0') AS num_processo_licitatorio + , dadosResponsaveis.tipo_responsabilidade + , dadosResponsaveis.cpf + , sw_cgm.nom_cgm as nome_responsavel + , ''::VARCHAR(50) as cargo_responsavel + , sw_cgm.logradouro as logra_res_responsavel + , ''::varchar(20) as setor_logra_responsavel + , sw_municipio.nom_municipio as cidade_logra_responsavel + , sw_uf.sigla_uf as uf_cidade_logra_responsavel + , sw_cgm.cep as cep_logra_responsavel + , CASE WHEN sw_cgm.fone_residencial != '' THEN + sw_cgm.fone_residencial + ELSE + sw_cgm.fone_celular + END as fone_responsavel + , sw_cgm.e_mail as email + , CASE sw_escolaridade.descricao + WHEN '0' THEN 0 + WHEN '1' THEN 01 + WHEN '2' THEN 02 + WHEN '4' THEN 01 + WHEN '5' THEN 02 + WHEN '6' THEN 03 + WHEN '7' THEN 04 + WHEN '8' THEN 05 + WHEN '9' THEN 02 + WHEN '10' THEN 10 + WHEN '11' THEN 12 + WHEN '12' THEN 09 + WHEN '13' THEN 11 + WHEN '14' THEN 08 + WHEN '15' THEN 07 + END as escolaridade + , ''::VARCHAR(15) as brancos + + FROM licitacao.licitacao + + JOIN tcmgo.responsavel_licitacao + ON tcmgo.responsavel_licitacao.exercicio = licitacao.exercicio + AND tcmgo.responsavel_licitacao.cod_licitacao = licitacao.cod_licitacao + AND tcmgo.responsavel_licitacao.cod_modalidade = licitacao.cod_modalidade + AND tcmgo.responsavel_licitacao.cod_entidade = licitacao.cod_entidade + + JOIN ( + SELECT * + , 1 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_abertura_licitacao + + UNION ALL + + SELECT * + , 2 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_edital + + UNION ALL + + SELECT * + , 3 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_pesquisa + + UNION ALL + + SELECT * + , 4 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_recurso_orcamentario + + UNION ALL + + SELECT * + , 5 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_conducao_licitacao + + UNION ALL + + SELECT * + , 6 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_homologacao + + UNION ALL + + SELECT * + , 7 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao.cgm_resp_adjudicacao + + ) AS dadosResponsaveis + ON tcmgo.responsavel_licitacao.exercicio = dadosResponsaveis.exercicio + AND tcmgo.responsavel_licitacao.cod_licitacao = dadosResponsaveis.cod_licitacao + AND tcmgo.responsavel_licitacao.cod_modalidade = dadosResponsaveis.cod_modalidade + AND tcmgo.responsavel_licitacao.cod_entidade = dadosResponsaveis.cod_entidade + + JOIN sw_cgm + ON sw_cgm.numcgm = dadosResponsaveis.numcgm + + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + JOIN sw_escolaridade + ON sw_escolaridade.cod_escolaridade = dadosResponsaveis.cod_escolaridade + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = licitacao.exercicio + AND mapa_cotacao.cod_mapa = licitacao.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao=licitacao.cod_licitacao + AND homologacao.cod_modalidade=licitacao.cod_modalidade + AND homologacao.cod_entidade=licitacao.cod_entidade + AND homologacao.exercicio_licitacao=licitacao.exercicio + AND ( + SELECT homologacao_anulada.num_homologacao + FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade = licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao = licitacao.exercicio + AND homologacao.num_homologacao = homologacao_anulada.num_homologacao + AND homologacao.cod_item = homologacao_anulada.cod_item + AND homologacao.lote = homologacao_anulada.lote + ) IS NULL + + JOIN tcmgo.orgao + ON orgao.num_orgao = licitacao.num_orgao + AND orgao.exercicio = licitacao.exercicio + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 + ORDER BY num_processo_licitatorio"; + return $stSql; + } + + function recuperaComissaoLicitacao(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaComissaoLicitacao().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + function montaRecuperaComissaoLicitacao() + { + $stSql = "SELECT DISTINCT 20 as tipo_registro + , LPAD(''||orgao.num_orgao,2, '0') as cod_orgao + , LPAD(''||licitacao.num_unidade,2, '0') AS cod_unidade + , licitacao.exercicio as exercicio_licitacao + , licitacao.exercicio::varchar||LPAD(''||licitacao.cod_entidade::varchar,2, '0')||LPAD(''||licitacao.cod_modalidade::varchar,2, '0')||LPAD(''||licitacao.cod_licitacao::varchar,4, '0') AS nro_processo_licitatorio + , CASE WHEN comissao.cod_tipo_comissao = 1 THEN 2 + WHEN comissao.cod_tipo_comissao = 2 THEN 1 + WHEN comissao.cod_tipo_comissao = 3 THEN 2 + END AS tipo_comissao + , tipo_membro.cod_tipo_membro as cod_atribuicao + , tipo_membro.cpf as cpf_membro_comissao + , CASE WHEN (norma.cod_tipo_norma = 4) THEN + 1 + ELSE + 2 + END AS tipo_ato_momeacao + , norma.num_norma as nro_ato_nomeacao + , to_char(norma.dt_assinatura,'ddmmyyyy') as data_ato_nomeacao + , to_char(norma.dt_publicacao,'ddmmyyyy') as inicio_vigencia + , to_char(norma_data_termino.dt_termino,'ddmmyyyy') as final_vigencia + , sw_cgm.nom_cgm as nom_membro_com_lic + , CASE WHEN (comissao_membros.numcgm = tipo_membro.numcgm) THEN + comissao_membros.cargo + WHEN (membro_adicional.numcgm = tipo_membro.numcgm) THEN + membro_adicional.cargo + END AS cargo + , CASE WHEN (comissao_membros.numcgm = tipo_membro.numcgm) THEN + comissao_membros.natureza_cargo + WHEN (membro_adicional.numcgm = tipo_membro.numcgm) THEN + membro_adicional.natureza_cargo + END AS natureza_cargo + , sw_cgm.logradouro as logra_res_membro + , ''::varchar(20) as setor_logra_membro + , sw_municipio.nom_municipio as cidade_logra_membro + , sw_uf.sigla_uf as uf_cidade_lograMembro + , sw_cgm.cep as cep_logra_membro + , CASE WHEN sw_cgm.fone_residencial != '' THEN + sw_cgm.fone_residencial + ELSE + sw_cgm.fone_celular + END as fone_membro + , sw_cgm.e_mail as email + , CASE sw_escolaridade.descricao + WHEN '0' THEN 0 + WHEN '1' THEN 01 + WHEN '2' THEN 02 + WHEN '4' THEN 01 + WHEN '5' THEN 02 + WHEN '6' THEN 03 + WHEN '7' THEN 04 + WHEN '8' THEN 05 + WHEN '9' THEN 02 + WHEN '10' THEN 10 + WHEN '11' THEN 12 + WHEN '12' THEN 09 + WHEN '13' THEN 11 + WHEN '14' THEN 08 + WHEN '15' THEN 07 + END as escolaridade + + FROM licitacao.licitacao + + JOIN licitacao.comissao_licitacao + ON comissao_licitacao.exercicio = licitacao.exercicio + AND comissao_licitacao.cod_licitacao = licitacao.cod_licitacao + AND comissao_licitacao.cod_modalidade = licitacao.cod_modalidade + AND comissao_licitacao.cod_entidade = licitacao.cod_entidade + + JOIN licitacao.comissao + ON comissao.cod_comissao = comissao_licitacao.cod_comissao + AND ( comissao.cod_tipo_comissao = 1 + OR comissao.cod_tipo_comissao = 2 + OR comissao.cod_tipo_comissao = 3 ) + JOIN normas.norma + ON norma.cod_norma = comissao.cod_norma + AND ( norma.cod_tipo_norma = 2 + OR norma.cod_tipo_norma = 4 ) + + JOIN normas.norma_data_termino + ON norma_data_termino.cod_norma = norma.cod_norma + + JOIN licitacao.comissao_membros + ON comissao_licitacao.cod_comissao = comissao_membros.cod_comissao + + LEFT JOIN licitacao.membro_adicional + ON membro_adicional.exercicio = licitacao.exercicio + AND membro_adicional.cod_licitacao = licitacao.cod_licitacao + AND membro_adicional.cod_modalidade = licitacao.cod_modalidade + AND membro_adicional.cod_entidade = licitacao.cod_entidade + + JOIN ( SELECT pf.numcgm + , pf.CPF + , CASE WHEN (membro_adicional.numcgm = pf.numcgm) THEN 2 + WHEN (comissao_membros.cod_tipo_membro = 1) THEN 2 + WHEN (comissao_membros.cod_tipo_membro = 2) THEN 3 + WHEN (comissao_membros.cod_tipo_membro = 3) THEN 6 + END AS cod_tipo_membro + , pf.cod_escolaridade + FROM licitacao.licitacao + JOIN licitacao.comissao_licitacao --COD_COMISSAO + ON comissao_licitacao.exercicio = licitacao.exercicio + AND comissao_licitacao.cod_licitacao = licitacao.cod_licitacao + AND comissao_licitacao.cod_modalidade = licitacao.cod_modalidade + AND comissao_licitacao.cod_entidade = licitacao.cod_entidade + JOIN licitacao.comissao_membros + ON comissao_licitacao.cod_comissao = comissao_membros.cod_comissao + LEFT JOIN licitacao.membro_adicional + ON membro_adicional.exercicio = licitacao.exercicio + AND membro_adicional.cod_licitacao = licitacao.cod_licitacao + AND membro_adicional.cod_modalidade = licitacao.cod_modalidade + AND membro_adicional.cod_entidade = licitacao.cod_entidade + LEFT JOIN sw_cgm_pessoa_fisica as pf + ON pf.numcgm = comissao_membros.numcgm + OR pf.numcgm = membro_adicional.numcgm + GROUP BY 1,2,3 + ) AS tipo_membro + ON comissao_membros.numcgm = tipo_membro.numcgm + OR membro_adicional.numcgm = tipo_membro.numcgm + + JOIN sw_cgm + ON sw_cgm.numcgm = tipo_membro.numcgm + + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + JOIN sw_escolaridade + ON sw_escolaridade.cod_escolaridade = tipo_membro.cod_escolaridade + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = licitacao.exercicio + AND mapa_cotacao.cod_mapa = licitacao.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao=licitacao.cod_licitacao + AND homologacao.cod_modalidade=licitacao.cod_modalidade + AND homologacao.cod_entidade=licitacao.cod_entidade + AND homologacao.exercicio_licitacao=licitacao.exercicio + AND ( + SELECT homologacao_anulada.num_homologacao FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao=licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade=licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade=licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao=licitacao.exercicio + AND homologacao.num_homologacao=homologacao_anulada.num_homologacao + AND homologacao.cod_item=homologacao_anulada.cod_item + AND homologacao.lote=homologacao_anulada.lote + ) IS NULL + + JOIN tcmgo.orgao + ON orgao.num_orgao = licitacao.num_orgao + AND orgao.exercicio = licitacao.exercicio + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio + ) + AND NOT EXISTS( SELECT 1 + FROM licitacao.membro_excluido + WHERE membro_excluido.numcgm = tipo_membro.numcgm + ) + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 + "; + return $stSql; + } + + public function __destruct(){} + +} +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacaoDispensa.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacaoDispensa.class.php new file mode 100644 index 0000000..9e8d640 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacaoDispensa.class.php @@ -0,0 +1,478 @@ + +setTabela('tcmgo.responsavel_licitacao_dispensa'); + $this->setCampoCod(''); + $this->setComplementoChave('exercicio, cod_entidade, cod_modalidade, cod_licitacao'); + + $this->AddCampo('exercicio' , 'varchar', true, '4', true, false); + $this->AddCampo('cod_entidade' , 'integer', true, '', true, false); + $this->AddCampo('cod_modalidade' , 'integer', true, '', true, false); + $this->AddCampo('cod_licitacao' , 'integer', true, '', true, false); + $this->AddCampo('cgm_resp_abertura_disp' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_cotacao_precos' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_recurso' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_ratificacao' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_publicacao_orgao' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_parecer_juridico' , 'integer', false, '', false, false); + $this->AddCampo('cgm_resp_parecer_outro' , 'integer', false, '', false, false); + } + + public function recuperaResponsavel(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + + $stSql = $this->montaRecuperaResponsavel($stFiltro).$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaResponsavel($stFiltro) + { + $stSql = " + SELECT nom_cgm + FROM sw_cgm + WHERE sw_cgm.numcgm = ".$stFiltro.";"; + + return $stSql; + } + + function recuperaResponsaveisLicitacao(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaResponsaveisLicitacao().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + function montaRecuperaResponsaveisLicitacao() + { + $stSql =" SELECT 10 as tipo_registro + , LPAD(''||orgao.num_orgao,2, '0') as cod_orgao + , LPAD(''||licitacao.num_unidade,2, '0') AS codunidade + , licitacao.exercicio as exercicio_licitacao + , licitacao.exercicio::varchar||LPAD(''||licitacao.cod_entidade::varchar,2, '0')||LPAD(''||licitacao.cod_modalidade::varchar,2, '0')||LPAD(''||licitacao.cod_licitacao::varchar,4, '0') AS num_processo_licitatorio + , dadosResponsaveis.tipo_responsabilidade + , dadosResponsaveis.cpf + , sw_cgm.nom_cgm as nome_responsavel + , ''::VARCHAR(50) as cargo_responsavel + , sw_cgm.logradouro as logra_res_responsavel + , ''::varchar(20) as setor_logra_responsavel + , sw_municipio.nom_municipio as cidade_logra_responsavel + , sw_uf.sigla_uf as uf_cidade_logra_responsavel + , sw_cgm.cep as cep_logra_responsavel + , CASE WHEN sw_cgm.fone_residencial != '' THEN + sw_cgm.fone_residencial + ELSE + sw_cgm.fone_celular + END as fone_responsavel + , sw_cgm.e_mail as email + , CASE sw_escolaridade.descricao + WHEN '0' THEN 0 + WHEN '1' THEN 01 + WHEN '2' THEN 02 + WHEN '4' THEN 01 + WHEN '5' THEN 02 + WHEN '6' THEN 03 + WHEN '7' THEN 04 + WHEN '8' THEN 05 + WHEN '9' THEN 02 + WHEN '10' THEN 10 + WHEN '11' THEN 12 + WHEN '12' THEN 09 + WHEN '13' THEN 11 + WHEN '14' THEN 08 + WHEN '15' THEN 07 + END as escolaridade + , ''::VARCHAR(15) as brancos + + FROM licitacao.licitacao + + JOIN tcmgo.responsavel_licitacao_dispensa + ON tcmgo.responsavel_licitacao_dispensa.exercicio = licitacao.exercicio + AND tcmgo.responsavel_licitacao_dispensa.cod_licitacao = licitacao.cod_licitacao + AND tcmgo.responsavel_licitacao_dispensa.cod_modalidade = licitacao.cod_modalidade + AND tcmgo.responsavel_licitacao_dispensa.cod_entidade = licitacao.cod_entidade + + JOIN ( + SELECT * + , 1 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_abertura_licitacao + + UNION ALL + + SELECT * + , 2 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_edital + + UNION ALL + + SELECT * + , 3 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_pesquisa + + UNION ALL + + SELECT * + , 4 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_recurso_orcamentario + + UNION ALL + + SELECT * + , 5 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_conducao_licitacao + + UNION ALL + + SELECT * + , 6 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_homologacao + + UNION ALL + + SELECT * + , 7 AS tipo_responsabilidade + + FROM tcmgo.responsavel_licitacao_dispensa + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel_licitacao_dispensa.cgm_resp_adjudicacao + + ) AS dadosResponsaveis + ON tcmgo.responsavel_licitacao_dispensa.exercicio = dadosResponsaveis.exercicio + AND tcmgo.responsavel_licitacao_dispensa.cod_licitacao = dadosResponsaveis.cod_licitacao + AND tcmgo.responsavel_licitacao_dispensa.cod_modalidade = dadosResponsaveis.cod_modalidade + AND tcmgo.responsavel_licitacao_dispensa.cod_entidade = dadosResponsaveis.cod_entidade + + JOIN sw_cgm + ON sw_cgm.numcgm = dadosResponsaveis.numcgm + + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + JOIN sw_escolaridade + ON sw_escolaridade.cod_escolaridade = dadosResponsaveis.cod_escolaridade + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = licitacao.exercicio + AND mapa_cotacao.cod_mapa = licitacao.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao=licitacao.cod_licitacao + AND homologacao.cod_modalidade=licitacao.cod_modalidade + AND homologacao.cod_entidade=licitacao.cod_entidade + AND homologacao.exercicio_licitacao=licitacao.exercicio + AND ( + SELECT homologacao_anulada.num_homologacao + FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade = licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao = licitacao.exercicio + AND homologacao.num_homologacao = homologacao_anulada.num_homologacao + AND homologacao.cod_item = homologacao_anulada.cod_item + AND homologacao.lote = homologacao_anulada.lote + ) IS NULL + + JOIN tcmgo.orgao + ON orgao.numcgm_contador = dadosResponsaveis.numcgm + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio ) + + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 + ORDER BY num_processo_licitatorio"; + return $stSql; + } + + function recuperaComissaoLicitacao(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaComissaoLicitacao().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "" ); + } + + function montaRecuperaComissaoLicitacao() + { + $stSql = "SELECT DISTINCT 20 as tipo_registro + , LPAD(''||orgao.num_orgao,2, '0') as cod_orgao + , LPAD(''||licitacao.num_unidade,2, '0') AS cod_unidade + , licitacao.exercicio as exercicio_licitacao + , licitacao.exercicio::varchar||LPAD(''||licitacao.cod_entidade::varchar,2, '0')||LPAD(''||licitacao.cod_modalidade::varchar,2, '0')||LPAD(''||licitacao.cod_licitacao::varchar,4, '0') AS nro_processo_licitatorio + , CASE WHEN comissao.cod_tipo_comissao = 1 THEN 2 + WHEN comissao.cod_tipo_comissao = 2 THEN 1 + WHEN comissao.cod_tipo_comissao = 3 THEN 2 + END AS tipo_comissao + , tipo_membro.cod_tipo_membro as cod_atribuicao + , tipo_membro.cpf as cpf_membro_comissao + , CASE WHEN (norma.cod_tipo_norma = 4) THEN + 1 + ELSE + 2 + END AS tipo_ato_momeacao + , norma.num_norma as nro_ato_nomeacao + , to_char(norma.dt_assinatura,'ddmmyyyy') as data_ato_nomeacao + , to_char(norma.dt_publicacao,'ddmmyyyy') as inicio_vigencia + , to_char(norma_data_termino.dt_termino,'ddmmyyyy') as final_vigencia + , sw_cgm.nom_cgm as nom_membro_com_lic + , CASE WHEN (comissao_membros.numcgm = tipo_membro.numcgm) THEN + comissao_membros.cargo + WHEN (membro_adicional.numcgm = tipo_membro.numcgm) THEN + membro_adicional.cargo + END AS cargo + , CASE WHEN (comissao_membros.numcgm = tipo_membro.numcgm) THEN + comissao_membros.natureza_cargo + WHEN (membro_adicional.numcgm = tipo_membro.numcgm) THEN + membro_adicional.natureza_cargo + END AS natureza_cargo + , sw_cgm.logradouro as logra_res_membro + , ''::varchar(20) as setor_logra_membro + , sw_municipio.nom_municipio as cidade_logra_membro + , sw_uf.sigla_uf as uf_cidade_lograMembro + , sw_cgm.cep as cep_logra_membro + , CASE WHEN sw_cgm.fone_residencial != '' THEN + sw_cgm.fone_residencial + ELSE + sw_cgm.fone_celular + END as fone_membro + , sw_cgm.e_mail as email + , CASE sw_escolaridade.descricao + WHEN '0' THEN 0 + WHEN '1' THEN 01 + WHEN '2' THEN 02 + WHEN '4' THEN 01 + WHEN '5' THEN 02 + WHEN '6' THEN 03 + WHEN '7' THEN 04 + WHEN '8' THEN 05 + WHEN '9' THEN 02 + WHEN '10' THEN 10 + WHEN '11' THEN 12 + WHEN '12' THEN 09 + WHEN '13' THEN 11 + WHEN '14' THEN 08 + WHEN '15' THEN 07 + END as escolaridade + + FROM licitacao.licitacao + + JOIN licitacao.comissao_licitacao + ON comissao_licitacao.exercicio = licitacao.exercicio + AND comissao_licitacao.cod_licitacao = licitacao.cod_licitacao + AND comissao_licitacao.cod_modalidade = licitacao.cod_modalidade + AND comissao_licitacao.cod_entidade = licitacao.cod_entidade + + JOIN licitacao.comissao + ON comissao.cod_comissao = comissao_licitacao.cod_comissao + AND ( comissao.cod_tipo_comissao = 1 + OR comissao.cod_tipo_comissao = 2 + OR comissao.cod_tipo_comissao = 3 ) + JOIN normas.norma + ON norma.cod_norma = comissao.cod_norma + AND ( norma.cod_tipo_norma = 2 + OR norma.cod_tipo_norma = 4 ) + + JOIN normas.norma_data_termino + ON norma_data_termino.cod_norma = norma.cod_norma + + JOIN licitacao.comissao_membros + ON comissao_licitacao.cod_comissao = comissao_membros.cod_comissao + + LEFT JOIN licitacao.membro_adicional + ON membro_adicional.exercicio = licitacao.exercicio + AND membro_adicional.cod_licitacao = licitacao.cod_licitacao + AND membro_adicional.cod_modalidade = licitacao.cod_modalidade + AND membro_adicional.cod_entidade = licitacao.cod_entidade + + JOIN ( SELECT pf.numcgm + , pf.CPF + , CASE WHEN (membro_adicional.numcgm = pf.numcgm) THEN 2 + WHEN (comissao_membros.cod_tipo_membro = 1) THEN 2 + WHEN (comissao_membros.cod_tipo_membro = 2) THEN 3 + WHEN (comissao_membros.cod_tipo_membro = 3) THEN 6 + END AS cod_tipo_membro + , pf.cod_escolaridade + FROM licitacao.licitacao + JOIN licitacao.comissao_licitacao --COD_COMISSAO + ON comissao_licitacao.exercicio = licitacao.exercicio + AND comissao_licitacao.cod_licitacao = licitacao.cod_licitacao + AND comissao_licitacao.cod_modalidade = licitacao.cod_modalidade + AND comissao_licitacao.cod_entidade = licitacao.cod_entidade + JOIN licitacao.comissao_membros + ON comissao_licitacao.cod_comissao = comissao_membros.cod_comissao + LEFT JOIN licitacao.membro_adicional + ON membro_adicional.exercicio = licitacao.exercicio + AND membro_adicional.cod_licitacao = licitacao.cod_licitacao + AND membro_adicional.cod_modalidade = licitacao.cod_modalidade + AND membro_adicional.cod_entidade = licitacao.cod_entidade + LEFT JOIN sw_cgm_pessoa_fisica as pf + ON pf.numcgm = comissao_membros.numcgm + OR pf.numcgm = membro_adicional.numcgm + GROUP BY 1,2,3 + ) AS tipo_membro + ON comissao_membros.numcgm = tipo_membro.numcgm + OR membro_adicional.numcgm = tipo_membro.numcgm + + JOIN sw_cgm + ON sw_cgm.numcgm = tipo_membro.numcgm + + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + JOIN sw_escolaridade + ON sw_escolaridade.cod_escolaridade = tipo_membro.cod_escolaridade + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_mapa = licitacao.exercicio + AND mapa_cotacao.cod_mapa = licitacao.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento + ON julgamento.exercicio = cotacao.exercicio + AND julgamento.cod_cotacao = cotacao.cod_cotacao + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao=licitacao.cod_licitacao + AND homologacao.cod_modalidade=licitacao.cod_modalidade + AND homologacao.cod_entidade=licitacao.cod_entidade + AND homologacao.exercicio_licitacao=licitacao.exercicio + AND ( + SELECT homologacao_anulada.num_homologacao FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao=licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade=licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade=licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao=licitacao.exercicio + AND homologacao.num_homologacao=homologacao_anulada.num_homologacao + AND homologacao.cod_item=homologacao_anulada.cod_item + AND homologacao.lote=homologacao_anulada.lote + ) IS NULL + + JOIN tcmgo.orgao + ON orgao.numcgm_contador = tipo_membro.numcgm + + WHERE TO_DATE(TO_CHAR(homologacao.timestamp,'dd/mm/yyyy'), 'dd/mm/yyyy') BETWEEN TO_DATE('01/" . $this->getDado('mes') . "/" . $this->getDado('exercicio') . "', 'dd/mm/yyyy') + AND last_day(TO_DATE('" . $this->getDado('exercicio') . "' || '-' || '".$this->getDado('mes') . "' || '-' || '01','yyyy-mm-dd')) + AND licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND licitacao.cod_modalidade NOT IN (8,9) + AND NOT EXISTS( SELECT 1 + FROM licitacao.licitacao_anulada + WHERE licitacao_anulada.cod_licitacao = licitacao.cod_licitacao + AND licitacao_anulada.cod_modalidade = licitacao.cod_modalidade + AND licitacao_anulada.cod_entidade = licitacao.cod_entidade + AND licitacao_anulada.exercicio = licitacao.exercicio + ) + AND NOT EXISTS( SELECT 1 + FROM licitacao.membro_excluido + WHERE membro_excluido.numcgm = tipo_membro.numcgm + ) + GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 + "; + return $stSql; + } + + public function __destruct(){} + +} +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelTecnico.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelTecnico.class.php new file mode 100644 index 0000000..80d2a1d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelTecnico.class.php @@ -0,0 +1,183 @@ +setTabela ('tcmgo.responsavel_tecnico'); + + $this->setCampoCod('cgm_responsavel'); + + $this->AddCampo('cgm_responsavel' , 'integer', true , '' , true , true ); + $this->AddCampo('cod_entidade' , 'integer', true , '' , false , true ); + $this->AddCampo('exercicio' , 'varchar', true , '4' , false , true ); + $this->AddCampo('cod_tipo' , 'integer', true , '' , false , true ); + $this->AddCampo('crc' , 'varchar', false, '10', false , false ); + $this->AddCampo('dt_inicio' , 'date' , true , '' , false , false ); + $this->AddCampo('dt_fim' , 'date' , true , '' , false , false ); + + } + + public function recuperaResponsavelTecnico(&$rsRecordSet, $stCondicao = "" , $stOrdem = "" , $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + + if(trim($stOrdem)) + $stOrdem = (strpos($stOrdem,"ORDER BY")===false)?" ORDER BY $stOrdem":$stOrdem; + $stSql = $this->montaRecuperaResponsavelTecnico().$stCondicao.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaResponsavelTecnico() + { + $stSql = " SELECT + sw_entidade.nom_cgm AS nom_entidade + ,responsavel_tecnico.cgm_responsavel + ,sw_cgm.nom_cgm + ,tipo_responsavel_tecnico.cod_tipo + ,tipo_responsavel_tecnico.descricao + ,responsavel_tecnico.crc + ,entidade.cod_entidade + ,TO_CHAR(responsavel_tecnico.dt_inicio,'dd/mm/yyyy') as dt_inicio + ,TO_CHAR(responsavel_tecnico.dt_fim,'dd/mm/yyyy') as dt_fim + FROM tcmgo.responsavel_tecnico + JOIN sw_cgm + ON responsavel_tecnico.cgm_responsavel = sw_cgm.numcgm + JOIN orcamento.entidade + ON entidade.cod_entidade = responsavel_tecnico.cod_entidade + AND entidade.exercicio = responsavel_tecnico.exercicio + JOIN tcmgo.tipo_responsavel_tecnico + ON tipo_responsavel_tecnico.cod_tipo = responsavel_tecnico.cod_tipo + JOIN sw_cgm as sw_entidade + ON entidade.numcgm = sw_entidade.numcgm + "; + + return $stSql; + } + + public function recuperaArquivoTecnicoResponsavel(&$rsRecordSet, $stCondicao = "" , $stOrdem = "" , $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + + if(trim($stOrdem)) + $stOrdem = (strpos($stOrdem,"ORDER BY")===false)?" ORDER BY $stOrdem":$stOrdem; + $stSql = $this->montaRecuperaArquivoTecnicoResponsavel().$stCondicao.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaArquivoTecnicoResponsavel() + { + $stSql = " SELECT + sw_cgm_pessoa_fisica.cpf + , sw_cgm.nom_cgm as nom_tecnico + , (SELECT sw_cgm_pessoa_juridica.nom_fantasia + FROM sw_cgm_pessoa_juridica + WHERE numcgm = (SELECT CASE WHEN valor = '' THEN '0' ELSE valor END as valor + FROM administracao.configuracao + WHERE exercicio = '".$this->getDado('exercicio')."' + AND cod_modulo = 63 + AND parametro = 'provedor_sistema')::integer + ) as razao_social + , (SELECT sw_cgm.nom_cgm + FROM sw_cgm + WHERE numcgm = (SELECT CASE WHEN valor = '' THEN '0' ELSE valor END as valor + FROM administracao.configuracao + WHERE exercicio = '".$this->getDado('exercicio')."' + AND cod_modulo = 63 + AND parametro = 'provedor_sistema')::integer + ) as provedor_sistema + , sw_cgm.e_mail + , sw_cgm.logradouro + , sw_cgm.numero + , sw_cgm.complemento + , sw_cgm.bairro + , sw_municipio.nom_municipio as municipio + , sw_uf.sigla_uf as estado + , sw_cgm.cep + , SUBSTR(sw_cgm.fone_residencial,1,2) as ddd_telefone + , SUBSTR(sw_cgm.fone_residencial,3) as telefone_fixo + , sw_cgm.fone_celular as celular + , (SELECT sw_cgm_pessoa_juridica.cnpj + FROM sw_cgm_pessoa_juridica + WHERE numcgm = (SELECT CASE WHEN valor = '' THEN '0' ELSE valor END as valor + FROM administracao.configuracao + WHERE exercicio = '".$this->getDado('exercicio')."' + AND cod_modulo = 63 + AND parametro = 'provedor_sistema')::integer + ) as cnpj + , responsavel_tecnico.crc + , tipo_responsavel.cod_tipo as tipo_tecnico + FROM sw_cgm + JOIN tcmgo.responsavel_tecnico + ON responsavel_tecnico.cgm_responsavel = sw_cgm.numcgm + JOIN tcmgo.tipo_responsavel + ON tipo_responsavel.cod_tipo = responsavel_tecnico.cod_tipo + LEFT JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + WHERE (responsavel_tecnico.dt_inicio BETWEEN TO_DATE('".$this->getDado('stDataInicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('stDataFinal')."','dd/mm/yyyy') + OR responsavel_tecnico.dt_fim BETWEEN TO_DATE('".$this->getDado('stDataInicial')."','dd/mm/yyyy') AND TO_DATE('".$this->getDado('stDataFinal')."','dd/mm/yyyy')) + AND responsavel_tecnico.cod_entidade = ".$this->getDado('stEntidade')." + + "; + + return $stSql; + } + +} + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOTipoResponsavelTecnico.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOTipoResponsavelTecnico.class.php new file mode 100644 index 0000000..49c47fb --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOTipoResponsavelTecnico.class.php @@ -0,0 +1,60 @@ + +setTabela("tcmgo.tipo_responsavel_tecnico"); + + $this->setCampoCod('cod_tipo'); + + $this->AddCampo( 'cod_tipo' , 'integer' , true , '' , true , true); + $this->AddCampo( 'descricao' , 'char' , true , '80' , true , true); + } + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php index 59ded6d..1bcc418 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php @@ -33,10 +33,10 @@ * @package URBEM * @subpackage Mapeamento - $Revision: 59820 $ + $Revision: 61683 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-25 11:28:21 -0300 (Qua, 25 Fev 2015) $ * Casos de uso: uc-06.04.00 */ @@ -77,24 +77,247 @@ class TTGODES extends Persistente public function montaRecuperaDespesa() { + $stSql = " SELECT + '10' AS tipo_registro + , ppa_progama.num_programa AS cod_programa + , despesa.cod_despesa + , despesa.num_orgao + , despesa.num_unidade + , despesa.cod_funcao + , despesa.cod_subfuncao + , SUBSTR(acao.num_acao::VARCHAR,1,1) AS cod_natureza + , SUBSTR(acao.num_acao::VARCHAR,2,3) AS numero_pao + , pao.nom_pao + , COALESCE(SUM(despesa.vl_original),0.00) as vl_orcado + , CASE WHEN SUM(vl_transposicao_recurso.valor) IS NOT NULL + THEN + 0.00 + ELSE + COALESCE(SUM(suplementacao.valor),0.00) + END as vl_suplementado + , COALESCE(SUM(reducao.valor),0.00) as vl_reduzido + , COALESCE(SUM(vl_credito_especial.valor),0.00) as vl_credito_especial + , COALESCE(SUM(vl_credito_extra.valor),0.00) as vl_credito_extra + , 0.00 AS vl_limitacao_empenho + , 0.00 AS vl_reversao_limitacao_empenho + , 0.00 AS vl_correcao_orcamento + , 0.00 AS vl_anulacao_realocacao + , COALESCE(SUM(vl_transposicao_recurso.valor),0.00) AS vl_transposicao_recurso + , COALESCE(SUM(empenho_autorizado.vl_total),0.00) as vl_autorizado + , '' AS espacador + , '0' as numero_sequencial + + FROM orcamento.despesa + INNER JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = despesa.exercicio + AND conta_despesa.cod_conta = despesa.cod_conta + INNER JOIN orcamento.programa AS o_programa + ON o_programa.exercicio = despesa.exercicio + AND o_programa.cod_programa = despesa.cod_programa + INNER JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.exercicio = o_programa.exercicio + AND programa_ppa_programa.cod_programa = o_programa.cod_programa + INNER JOIN ppa.programa AS ppa_progama + ON ppa_progama.cod_programa = programa_ppa_programa.cod_programa_ppa + INNER JOIN orcamento.recurso + ON recurso.exercicio = despesa.exercicio + AND recurso.cod_recurso = despesa.cod_recurso + + INNER JOIN orcamento.pao + ON pao.exercicio = despesa.exercicio + AND pao.num_pao = despesa.num_pao + INNER JOIN orcamento.pao_ppa_acao + ON pao_ppa_acao.exercicio = pao.exercicio + AND pao_ppa_acao.num_pao = pao.num_pao + INNER JOIN ppa.acao + ON acao.cod_acao = pao_ppa_acao.cod_acao + + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + GROUP BY suplementacao_suplementada.cod_despesa, suplementacao_suplementada.exercicio + ) AS suplementacao + ON suplementacao.cod_despesa = despesa.cod_despesa + AND suplementacao.exercicio = despesa.exercicio + LEFT JOIN ( SELECT suplementacao_reducao.cod_despesa + , SUM(suplementacao_reducao.valor) AS valor + , suplementacao_reducao.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_reducao + ON suplementacao_reducao.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_reducao.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + GROUP BY suplementacao_reducao.cod_despesa, suplementacao_reducao.exercicio + ) AS reducao + ON reducao.cod_despesa = despesa.cod_despesa + AND reducao.exercicio = despesa.exercicio + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo BETWEEN 6 AND 10 + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + ) AS vl_credito_especial + ON vl_credito_especial.cod_despesa = despesa.cod_despesa + AND vl_credito_especial.exercicio = despesa.exercicio + + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo = 11 + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + ) AS vl_credito_extra + ON vl_credito_extra.cod_despesa = despesa.cod_despesa + AND vl_credito_extra.exercicio = despesa.exercicio + + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo = 13 + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + ) AS vl_transposicao_recurso + ON vl_transposicao_recurso.cod_despesa = despesa.cod_despesa + AND vl_transposicao_recurso.exercicio = despesa.exercicio + + + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo IN (12,13,14) + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + ) AS vl_anulacao_realocacao + ON vl_anulacao_realocacao.cod_despesa = despesa.cod_despesa + AND vl_anulacao_realocacao.exercicio = despesa.exercicio + + LEFT JOIN ( + SELECT ( SUM(item_pre_empenho.vl_total) - SUM(COALESCE(empenho_anulado_item.vl_anulado,0)) ) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.pre_empenho + ON empenho.pre_empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.pre_empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.item_pre_empenho + ON item_pre_empenho.exercicio = pre_empenho.exercicio + AND item_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + LEFT JOIN empenho.empenho_anulado_item + ON empenho_anulado_item.exercicio = item_pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + AND empenho_anulado_item.num_item = item_pre_empenho.num_item + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho.exercicio + AND empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + INNER JOIN empenho.autorizacao_empenho + ON autorizacao_empenho.exercicio = empenho.exercicio + AND autorizacao_empenho.cod_entidade = empenho.cod_entidade + WHERE NOT EXISTS ( SELECT 1 + FROM empenho.autorizacao_anulada + WHERE autorizacao_anulada.exercicio = autorizacao_empenho.exercicio + AND autorizacao_anulada.cod_entidade = autorizacao_empenho.cod_entidade + AND autorizacao_anulada.cod_autorizacao = autorizacao_empenho.cod_autorizacao + ) + GROUP BY pre_empenho_despesa.exercicio, pre_empenho_despesa.cod_despesa + ) AS empenho_autorizado + ON empenho_autorizado.cod_despesa = despesa.cod_despesa + AND empenho_autorizado.exercicio = despesa.exercicio + WHERE despesa.exercicio = '".$this->getDado('exercicio')."' + AND despesa.cod_entidade IN (".$this->getDado('cod_entidade').") + GROUP BY ppa_progama.num_programa + , despesa.cod_despesa + , despesa.num_orgao + , despesa.num_unidade + , despesa.cod_funcao + , despesa.cod_subfuncao + , cod_natureza + , numero_pao + , pao.nom_pao + "; + + return $stSql; + } + + public function recuperaDespesaElemento(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaDespesaElemento",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaDespesaElemento() + { $stSql = " SELECT - '10' AS tipo_registro - , despesa.cod_programa + '11' AS tipo_registro + , ppa_progama.num_programa AS cod_programa , despesa.cod_despesa , despesa.num_orgao , despesa.num_unidade , despesa.cod_funcao , despesa.cod_subfuncao - , SUBSTR(despesa.num_pao,1,1) AS cod_natureza - , SUBSTR(despesa.num_pao,2,3) AS numero_pao - , pao.nom_pao + , SUBSTR(acao.num_acao::VARCHAR,1,1) AS cod_natureza + , SUBSTR(acao.num_acao::VARCHAR,2,3) AS numero_pao + , SUBSTR(REPLACE(conta_despesa.cod_estrutural,'.',''),1,6) AS elemento_despesa , COALESCE(SUM(despesa.vl_original),0.00) as vl_orcado , COALESCE(SUM(suplementacao.valor),0.00) as vl_suplementado , COALESCE(SUM(reducao.valor),0.00) as vl_reduzido , COALESCE(SUM(vl_credito_especial.valor),0.00) as vl_credito_especial , COALESCE(SUM(vl_credito_extra.valor),0.00) as vl_credito_extra + , 0.00 AS vl_limitacao_empenho + , 0.00 AS vl_reversao_limitacao_empenho + , 0.00 AS vl_correcao_orcamento + , COALESCE(SUM(vl_anulacao_realocacao.valor),0.00) AS vl_anulacao_realocacao + , COALESCE(SUM(vl_transposicao_recurso.valor),0.00) AS vl_transposicao_recurso , COALESCE(SUM(empenho_autorizado.vl_total),0.00) as vl_autorizado + , COALESCE(SUM(empenho.vl_total),0.00) as vl_empenhado + , COALESCE(SUM(liquidado.vl_total),0.00) as vl_liquidado + , COALESCE(SUM(nota_paga.vl_total),0.00) as vl_pago + , COALESCE(SUM(fonte.vl_total),0.00) as vl_fonte , '' AS espacador , '0' as numero_sequencial @@ -103,13 +326,28 @@ class TTGODES extends Persistente INNER JOIN orcamento.conta_despesa ON conta_despesa.exercicio = despesa.exercicio AND conta_despesa.cod_conta = despesa.cod_conta - INNER JOIN orcamento.recurso + INNER JOIN orcamento.programa AS o_programa + ON o_programa.exercicio = despesa.exercicio + AND o_programa.cod_programa = despesa.cod_programa + INNER JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.exercicio = o_programa.exercicio + AND programa_ppa_programa.cod_programa = o_programa.cod_programa + INNER JOIN ppa.programa AS ppa_progama + ON ppa_progama.cod_programa = programa_ppa_programa.cod_programa_ppa +INNER JOIN orcamento.recurso ON recurso.exercicio = despesa.exercicio AND recurso.cod_recurso = despesa.cod_recurso - + INNER JOIN orcamento.orgao + ON orcamento.orgao.exercicio = orcamento.despesa.exercicio + AND orcamento.orgao.num_orgao = orcamento.despesa.num_orgao INNER JOIN orcamento.pao ON pao.exercicio = despesa.exercicio AND pao.num_pao = despesa.num_pao + INNER JOIN orcamento.pao_ppa_acao + ON pao_ppa_acao.exercicio = pao.exercicio + AND pao_ppa_acao.num_pao = pao.num_pao + INNER JOIN ppa.acao + ON acao.cod_acao = pao_ppa_acao.cod_acao LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa , SUM(suplementacao_suplementada.valor) AS valor , suplementacao_suplementada.exercicio @@ -179,8 +417,46 @@ class TTGODES extends Persistente ) AS vl_credito_extra ON vl_credito_extra.cod_despesa = despesa.cod_despesa AND vl_credito_extra.exercicio = despesa.exercicio + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo = 13 + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + + ) AS vl_transposicao_recurso + ON vl_transposicao_recurso.cod_despesa = despesa.cod_despesa + AND vl_transposicao_recurso.exercicio = despesa.exercicio + + + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo IN (12,13,14) + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + + ) AS vl_anulacao_realocacao + ON vl_anulacao_realocacao.cod_despesa = despesa.cod_despesa + AND vl_anulacao_realocacao.exercicio = despesa.exercicio LEFT JOIN ( - SELECT ( SUM(item_pre_empenho.vl_total) - SUM(COALESCE(empenho_anulado_item.vl_anulado,0)) ) AS vl_total + SELECT ( SUM(item_pre_empenho.vl_total) - SUM(empenho_anulado_item.vl_anulado) ) AS vl_total , pre_empenho_despesa.cod_despesa , pre_empenho_despesa.exercicio FROM empenho.pre_empenho_despesa @@ -211,38 +487,139 @@ class TTGODES extends Persistente ) AS empenho_autorizado ON empenho_autorizado.cod_despesa = despesa.cod_despesa AND empenho_autorizado.exercicio = despesa.exercicio + LEFT JOIN ( + SELECT ( SUM(item_pre_empenho.vl_total) - SUM(COALESCE(empenho_anulado_item.vl_anulado,0)) ) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.pre_empenho + ON empenho.pre_empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.pre_empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.item_pre_empenho + ON item_pre_empenho.exercicio = pre_empenho.exercicio + AND item_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + LEFT JOIN empenho.empenho_anulado_item + ON empenho_anulado_item.exercicio = item_pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + AND empenho_anulado_item.num_item = item_pre_empenho.num_item + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho.exercicio + AND empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + GROUP BY pre_empenho_despesa.exercicio, pre_empenho_despesa.cod_despesa + + ) AS empenho + ON empenho.cod_despesa = despesa.cod_despesa + AND empenho.exercicio = despesa.exercicio + LEFT JOIN ( + SELECT (SUM(nota_liquidacao_paga.vl_pago) - SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0))) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.nota_liquidacao + ON nota_liquidacao.exercicio_empenho = empenho.exercicio + AND nota_liquidacao.cod_entidade = empenho.cod_entidade + AND nota_liquidacao.cod_empenho = empenho.cod_empenho + INNER JOIN empenho.nota_liquidacao_paga + ON nota_liquidacao_paga.exercicio = nota_liquidacao.exercicio + AND nota_liquidacao_paga.cod_entidade = nota_liquidacao.cod_entidade + AND nota_liquidacao_paga.cod_nota = nota_liquidacao.cod_nota + LEFT JOIN empenho.nota_liquidacao_paga_anulada + ON nota_liquidacao_paga_anulada.exercicio = nota_liquidacao_paga.exercicio + AND nota_liquidacao_paga_anulada.cod_nota = nota_liquidacao_paga.cod_nota + AND nota_liquidacao_paga_anulada.cod_entidade = nota_liquidacao_paga.cod_entidade + + GROUP BY cod_despesa, pre_empenho_despesa.exercicio + ) AS nota_paga + ON nota_paga.cod_despesa = despesa.cod_despesa + AND nota_paga.exercicio = despesa.exercicio + LEFT JOIN ( + SELECT (SUM(nota_liquidacao_item.vl_total) - SUM(COALESCE(nota_liquidacao_item_anulado.vl_anulado,0))) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.nota_liquidacao + ON nota_liquidacao.exercicio_empenho = empenho.exercicio + AND nota_liquidacao.cod_entidade = empenho.cod_entidade + AND nota_liquidacao.cod_empenho = empenho.cod_empenho + INNER JOIN empenho.nota_liquidacao_item + ON nota_liquidacao_item.exercicio = nota_liquidacao.exercicio + AND nota_liquidacao_item.cod_entidade = nota_liquidacao.cod_entidade + AND nota_liquidacao_item.cod_nota = nota_liquidacao.cod_nota + LEFT JOIN empenho.nota_liquidacao_item_anulado + ON nota_liquidacao_item_anulado.exercicio_item = nota_liquidacao_item.exercicio_item + AND nota_liquidacao_item_anulado.cod_pre_empenho = nota_liquidacao_item.cod_pre_empenho + AND nota_liquidacao_item_anulado.num_item = nota_liquidacao_item.num_item + AND nota_liquidacao_item_anulado.exercicio = nota_liquidacao_item.exercicio + AND nota_liquidacao_item_anulado.cod_entidade = nota_liquidacao_item.cod_entidade + AND nota_liquidacao_item_anulado.cod_nota = nota_liquidacao_item.cod_nota + GROUP BY cod_despesa, pre_empenho_despesa.exercicio + ) AS liquidado + ON liquidado.cod_despesa = despesa.cod_despesa + AND liquidado.exercicio = despesa.exercicio + INNER JOIN ( SELECT SUM(receita.vl_original) AS vl_total + , recurso.exercicio + , recurso.cod_recurso + FROM orcamento.recurso + INNER JOIN orcamento.receita + ON receita.exercicio = recurso.exercicio + AND receita.cod_recurso = recurso.cod_recurso + GROUP BY recurso.exercicio, recurso.cod_recurso + ) AS fonte + ON fonte.exercicio = despesa.exercicio + AND fonte.cod_recurso = despesa.cod_recurso WHERE despesa.exercicio = '".$this->getDado('exercicio')."' AND despesa.cod_entidade IN (".$this->getDado('cod_entidade').") - GROUP BY despesa.cod_programa, despesa.cod_despesa, despesa.num_orgao, despesa.num_unidade, despesa.cod_funcao, despesa.cod_subfuncao, cod_natureza, numero_pao, pao.nom_pao + GROUP BY ppa_progama.num_programa + , despesa.cod_despesa + , despesa.num_orgao + , despesa.num_unidade + , despesa.cod_funcao + , despesa.cod_subfuncao + , cod_natureza + , numero_pao + , elemento_despesa "; return $stSql; } - public function recuperaDespesaElemento(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + public function recuperaDespesaRecurso(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") { - return $this->executaRecupera("montaRecuperaDespesaElemento",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + return $this->executaRecupera("montaRecuperaDespesaRecurso",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); } - public function montaRecuperaDespesaElemento() + public function montaRecuperaDespesaRecurso() { $stSql = " SELECT - '11' AS tipo_registro - , despesa.cod_programa + '12' AS tipo_registro + , ppa_progama.num_programa AS cod_programa , despesa.cod_despesa , despesa.num_orgao , despesa.num_unidade , despesa.cod_funcao , despesa.cod_subfuncao - , SUBSTR(despesa.num_pao,1,1) AS cod_natureza - , SUBSTR(despesa.num_pao,2,3) AS numero_pao - , SUBSTR(REPLACE(conta_despesa.cod_estrutural,'.',''),1,6) AS elemento_despesa + , SUBSTR(acao.num_acao::VARCHAR,1,1) AS cod_natureza + , SUBSTR(acao.num_acao::VARCHAR,2,3) AS numero_pao + , SUBSTR(REPLACE(conta_despesa.cod_estrutural,'.',''),1,6) AS elemento_despesa + , SUBSTR(despesa.cod_recurso::VARCHAR,1,3) AS cod_fonte + , fonte_recurso.descricao AS nom_recurso , COALESCE(SUM(despesa.vl_original),0.00) as vl_orcado , COALESCE(SUM(suplementacao.valor),0.00) as vl_suplementado , COALESCE(SUM(reducao.valor),0.00) as vl_reduzido , COALESCE(SUM(vl_credito_especial.valor),0.00) as vl_credito_especial , COALESCE(SUM(vl_credito_extra.valor),0.00) as vl_credito_extra + , 0.00 AS vl_limitacao_empenho + , 0.00 AS vl_reversao_limitacao_empenho + , 0.00 AS vl_correcao_orcamento + , COALESCE(SUM(vl_anulacao_realocacao.valor),0.00) AS vl_anulacao_realocacao + , COALESCE(SUM(vl_transposicao_recurso.valor),0.00) AS vl_transposicao_recurso , COALESCE(SUM(empenho_autorizado.vl_total),0.00) as vl_autorizado , COALESCE(SUM(empenho.vl_total),0.00) as vl_empenhado , COALESCE(SUM(liquidado.vl_total),0.00) as vl_liquidado @@ -250,21 +627,34 @@ class TTGODES extends Persistente , COALESCE(SUM(fonte.vl_total),0.00) as vl_fonte , '' AS espacador , '0' as numero_sequencial - - FROM orcamento.despesa INNER JOIN orcamento.conta_despesa ON conta_despesa.exercicio = despesa.exercicio AND conta_despesa.cod_conta = despesa.cod_conta + INNER JOIN orcamento.programa AS o_programa + ON o_programa.exercicio = despesa.exercicio + AND o_programa.cod_programa = despesa.cod_programa + INNER JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.exercicio = o_programa.exercicio + AND programa_ppa_programa.cod_programa = o_programa.cod_programa + INNER JOIN ppa.programa AS ppa_progama + ON ppa_progama.cod_programa = programa_ppa_programa.cod_programa_ppa INNER JOIN orcamento.recurso ON recurso.exercicio = despesa.exercicio AND recurso.cod_recurso = despesa.cod_recurso - INNER JOIN orcamento.orgao - ON orcamento.orgao.exercicio = orcamento.despesa.exercicio - AND orcamento.orgao.num_orgao = orcamento.despesa.num_orgao + INNER JOIN orcamento.recurso_direto + ON recurso_direto.exercicio = recurso.exercicio + AND recurso_direto.cod_recurso = recurso.cod_recurso + INNER JOIN orcamento.fonte_recurso + ON fonte_recurso.cod_fonte = recurso_direto.cod_fonte INNER JOIN orcamento.pao ON pao.exercicio = despesa.exercicio AND pao.num_pao = despesa.num_pao + INNER JOIN orcamento.pao_ppa_acao + ON pao_ppa_acao.exercicio = pao.exercicio + AND pao_ppa_acao.num_pao = pao.num_pao + INNER JOIN ppa.acao + ON acao.cod_acao = pao_ppa_acao.cod_acao LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa , SUM(suplementacao_suplementada.valor) AS valor , suplementacao_suplementada.exercicio @@ -334,6 +724,45 @@ class TTGODES extends Persistente ) AS vl_credito_extra ON vl_credito_extra.cod_despesa = despesa.cod_despesa AND vl_credito_extra.exercicio = despesa.exercicio + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE NOT EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo = 13 + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + + ) AS vl_transposicao_recurso + ON vl_transposicao_recurso.cod_despesa = despesa.cod_despesa + AND vl_transposicao_recurso.exercicio = despesa.exercicio + + + LEFT JOIN ( SELECT suplementacao_suplementada.cod_despesa + , SUM(suplementacao_suplementada.valor) AS valor + , suplementacao_suplementada.exercicio + FROM orcamento.suplementacao + INNER JOIN orcamento.suplementacao_suplementada + ON suplementacao_suplementada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_suplementada.exercicio = suplementacao.exercicio + WHERE EXISTS ( SELECT 1 + FROM orcamento.suplementacao_anulada + WHERE suplementacao_anulada.cod_suplementacao = suplementacao.cod_suplementacao + AND suplementacao_anulada.exercicio = suplementacao.exercicio + ) + AND suplementacao.cod_tipo IN (12,13,14) + GROUP BY cod_despesa, suplementacao_suplementada.exercicio + + ) AS vl_anulacao_realocacao + ON vl_anulacao_realocacao.cod_despesa = despesa.cod_despesa + AND vl_anulacao_realocacao.exercicio = despesa.exercicio + LEFT JOIN ( SELECT ( SUM(item_pre_empenho.vl_total) - SUM(empenho_anulado_item.vl_anulado) ) AS vl_total , pre_empenho_despesa.cod_despesa @@ -454,68 +883,147 @@ class TTGODES extends Persistente AND fonte.cod_recurso = despesa.cod_recurso WHERE despesa.exercicio = '".$this->getDado('exercicio')."' AND despesa.cod_entidade IN (".$this->getDado('cod_entidade').") - GROUP BY despesa.cod_programa , despesa.cod_despesa, despesa.num_orgao, despesa.num_unidade, despesa.cod_funcao, despesa.cod_subfuncao, cod_natureza, numero_pao, elemento_despesa - "; + GROUP BY ppa_progama.num_programa , despesa.cod_despesa, despesa.num_orgao, despesa.num_unidade, despesa.cod_funcao, despesa.cod_subfuncao, cod_natureza, numero_pao, elemento_despesa, despesa.cod_recurso, fonte_recurso.descricao + "; return $stSql; } - - public function recuperaDespesaRecurso(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + public function recuperaDespesaRecursoDetalhamento(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") { - return $this->executaRecupera("montaRecuperaDespesaRecurso",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + return $this->executaRecupera("montaRecuperaDespesaRecursoDetalhamento",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); } - public function montaRecuperaDespesaRecurso() + public function montaRecuperaDespesaRecursoDetalhamento() { $stSql = " SELECT - '12' AS tipo_registro - , despesa.cod_programa + '13' AS tipo_registro + , ppa_progama.num_programa AS cod_programa , despesa.cod_despesa , despesa.num_orgao , despesa.num_unidade , despesa.cod_funcao , despesa.cod_subfuncao - , SUBSTR(despesa.num_pao,1,1) AS cod_natureza - , SUBSTR(despesa.num_pao,2,3) AS numero_pao - , SUBSTR(REPLACE(conta_despesa.cod_estrutural,'.',''),1,6) AS elemento_despesa - , (recurso_direto.codigo_tc) AS cod_fonte + , SUBSTR(acao.num_acao::VARCHAR,1,1) AS cod_natureza + , SUBSTR(acao.num_acao::VARCHAR,2,3) AS numero_pao + , SUBSTR(REPLACE(conta_despesa.cod_estrutural,'.',''),1,6) AS elemento_despesa + , SUBSTR(despesa.cod_recurso::VARCHAR,1,3) AS cod_fonte + , substring(despesa.cod_recurso::VARCHAR from '...$') AS det_fonte_recurso , fonte_recurso.descricao AS nom_recurso - , COALESCE(SUM(fonte.vl_total),0.00) as vl_fonte + , COALESCE(SUM(empenho.vl_total),0.00) as vl_empenhado + , COALESCE(SUM(liquidado.vl_total),0.00) as vl_liquidado + , COALESCE(SUM(nota_paga.vl_total),0.00) as vl_pago , '' AS espacador , '0' as numero_sequencial FROM orcamento.despesa INNER JOIN orcamento.conta_despesa ON conta_despesa.exercicio = despesa.exercicio AND conta_despesa.cod_conta = despesa.cod_conta + INNER JOIN orcamento.programa AS o_programa + ON o_programa.exercicio = despesa.exercicio + AND o_programa.cod_programa = despesa.cod_programa + INNER JOIN orcamento.programa_ppa_programa + ON programa_ppa_programa.exercicio = o_programa.exercicio + AND programa_ppa_programa.cod_programa = o_programa.cod_programa + INNER JOIN ppa.programa AS ppa_progama + ON ppa_progama.cod_programa = programa_ppa_programa.cod_programa_ppa INNER JOIN orcamento.recurso ON recurso.exercicio = despesa.exercicio + AND recurso.cod_recurso = despesa.cod_recurso INNER JOIN orcamento.recurso_direto ON recurso_direto.exercicio = recurso.exercicio AND recurso_direto.cod_recurso = recurso.cod_recurso INNER JOIN orcamento.fonte_recurso - ON fonte_recurso.cod_fonte = recurso.cod_fonte - AND recurso.cod_recurso = despesa.cod_recurso + ON fonte_recurso.cod_fonte = recurso_direto.cod_fonte INNER JOIN orcamento.pao ON pao.exercicio = despesa.exercicio AND pao.num_pao = despesa.num_pao - INNER JOIN ( SELECT SUM(receita.vl_original) AS vl_total - , recurso.exercicio - , recurso.cod_recurso - FROM orcamento.recurso - INNER JOIN orcamento.receita - ON receita.exercicio = recurso.exercicio - AND receita.cod_recurso = recurso.cod_recurso - GROUP BY recurso.exercicio, recurso.cod_recurso - ) AS fonte - ON fonte.exercicio = despesa.exercicio - AND fonte.cod_recurso = despesa.cod_recurso + INNER JOIN orcamento.pao_ppa_acao + ON pao_ppa_acao.exercicio = pao.exercicio + AND pao_ppa_acao.num_pao = pao.num_pao + INNER JOIN ppa.acao + ON acao.cod_acao = pao_ppa_acao.cod_acao + + LEFT JOIN ( + SELECT ( SUM(item_pre_empenho.vl_total) - SUM(COALESCE(empenho_anulado_item.vl_anulado,0)) ) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.pre_empenho + ON empenho.pre_empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.pre_empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.item_pre_empenho + ON item_pre_empenho.exercicio = pre_empenho.exercicio + AND item_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + LEFT JOIN empenho.empenho_anulado_item + ON empenho_anulado_item.exercicio = item_pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + AND empenho_anulado_item.num_item = item_pre_empenho.num_item + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho.exercicio + AND empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + GROUP BY pre_empenho_despesa.exercicio, pre_empenho_despesa.cod_despesa + + ) AS empenho + ON empenho.cod_despesa = despesa.cod_despesa + AND empenho.exercicio = despesa.exercicio + LEFT JOIN ( + SELECT (SUM(nota_liquidacao_paga.vl_pago) - SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0))) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.nota_liquidacao + ON nota_liquidacao.exercicio_empenho = empenho.exercicio + AND nota_liquidacao.cod_entidade = empenho.cod_entidade + AND nota_liquidacao.cod_empenho = empenho.cod_empenho + INNER JOIN empenho.nota_liquidacao_paga + ON nota_liquidacao_paga.exercicio = nota_liquidacao.exercicio + AND nota_liquidacao_paga.cod_entidade = nota_liquidacao.cod_entidade + AND nota_liquidacao_paga.cod_nota = nota_liquidacao.cod_nota + LEFT JOIN empenho.nota_liquidacao_paga_anulada + ON nota_liquidacao_paga_anulada.exercicio = nota_liquidacao_paga.exercicio + AND nota_liquidacao_paga_anulada.cod_nota = nota_liquidacao_paga.cod_nota + AND nota_liquidacao_paga_anulada.cod_entidade = nota_liquidacao_paga.cod_entidade + + GROUP BY cod_despesa, pre_empenho_despesa.exercicio + ) AS nota_paga + ON nota_paga.cod_despesa = despesa.cod_despesa + AND nota_paga.exercicio = despesa.exercicio + LEFT JOIN ( + SELECT (SUM(nota_liquidacao_item.vl_total) - SUM(COALESCE(nota_liquidacao_item_anulado.vl_anulado,0))) AS vl_total + , pre_empenho_despesa.cod_despesa + , pre_empenho_despesa.exercicio + FROM empenho.pre_empenho_despesa + INNER JOIN empenho.empenho + ON empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + INNER JOIN empenho.nota_liquidacao + ON nota_liquidacao.exercicio_empenho = empenho.exercicio + AND nota_liquidacao.cod_entidade = empenho.cod_entidade + AND nota_liquidacao.cod_empenho = empenho.cod_empenho + INNER JOIN empenho.nota_liquidacao_item + ON nota_liquidacao_item.exercicio = nota_liquidacao.exercicio + AND nota_liquidacao_item.cod_entidade = nota_liquidacao.cod_entidade + AND nota_liquidacao_item.cod_nota = nota_liquidacao.cod_nota + LEFT JOIN empenho.nota_liquidacao_item_anulado + ON nota_liquidacao_item_anulado.exercicio_item = nota_liquidacao_item.exercicio_item + AND nota_liquidacao_item_anulado.cod_pre_empenho = nota_liquidacao_item.cod_pre_empenho + AND nota_liquidacao_item_anulado.num_item = nota_liquidacao_item.num_item + AND nota_liquidacao_item_anulado.exercicio = nota_liquidacao_item.exercicio + AND nota_liquidacao_item_anulado.cod_entidade = nota_liquidacao_item.cod_entidade + AND nota_liquidacao_item_anulado.cod_nota = nota_liquidacao_item.cod_nota + GROUP BY cod_despesa, pre_empenho_despesa.exercicio + ) AS liquidado + ON liquidado.cod_despesa = despesa.cod_despesa + AND liquidado.exercicio = despesa.exercicio WHERE despesa.exercicio = '".$this->getDado('exercicio')."' AND despesa.cod_entidade IN (".$this->getDado('cod_entidade').") - GROUP BY despesa.cod_programa , despesa.cod_despesa, despesa.num_orgao, despesa.num_unidade, despesa.cod_funcao, despesa.cod_subfuncao, cod_natureza, numero_pao, elemento_despesa, recurso.codigo_tc, fonte_recurso.descricao + GROUP BY ppa_progama.num_programa , despesa.cod_despesa, despesa.num_orgao, despesa.num_unidade, despesa.cod_funcao, despesa.cod_subfuncao, cod_natureza, numero_pao, elemento_despesa, despesa.cod_recurso, fonte_recurso.descricao "; return $stSql; } - } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODSI.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODSI.class.php index b5517e4..a8302a2 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODSI.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODSI.class.php @@ -41,64 +41,112 @@ class TTGODSI extends Persistente public function montaRecuperaDetalhamento10() { - $stSql = " - SELECT 10 AS tipo_registro - , 5 AS cod_orgao - , 1 AS cod_unidade - , sw_processo.cod_processo AS num_processo - , sw_processo.ano_exercicio AS ano_exercicio_processo - , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 - WHEN modalidade.cod_modalidade = 9 THEN 2 - END AS tipo_processo - , TO_CHAR(licitacao.timestamp,'dd/mm/yyyy') AS dt_abertura - , CASE WHEN tipo_objeto.cod_tipo_objeto = 1 THEN 2 - WHEN tipo_objeto.cod_tipo_objeto = 2 THEN 1 - WHEN tipo_objeto.cod_tipo_objeto = 3 THEN 3 - WHEN tipo_objeto.cod_tipo_objeto = 4 THEN 3 - END AS natureza_objeto - , objeto.descricao AS objeto - , '' AS justificativa - , '' AS razao - , '' AS dt_publicacao_termo_ratificacao - , veiculo.nom_cgm AS veiculo_publicacao - , 0 AS numero_sequencial + $stSql = " SELECT DISTINCT + 10 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , TO_CHAR(licitacao.timestamp,'dd/mm/yyyy') AS dt_abertura + , CASE WHEN tipo_objeto.cod_tipo_objeto = 1 THEN 2 + WHEN tipo_objeto.cod_tipo_objeto = 2 THEN 1 + WHEN tipo_objeto.cod_tipo_objeto = 3 THEN 3 + WHEN tipo_objeto.cod_tipo_objeto = 4 THEN 3 + END AS natureza_objeto + , objeto.descricao AS objeto + , justificativa_razao.justificativa AS justificativa + , justificativa_razao.razao AS razao + , TO_CHAR(publicacao_edital.data_publicacao,'dd/mm/yyyy') AS dt_publicacao_termo_ratificacao + , veiculo.nom_cgm AS veiculo_publicacao + , 0 AS numero_sequencial - FROM licitacao.licitacao - - JOIN compras.objeto - ON objeto.cod_objeto = licitacao.cod_objeto - - JOIN sw_processo - ON sw_processo.cod_processo = licitacao.cod_processo - AND sw_processo.ano_exercicio = licitacao.exercicio_processo - - JOIN compras.modalidade - ON modalidade.cod_modalidade = licitacao.cod_modalidade - - JOIN compras.tipo_objeto - ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto - - JOIN licitacao.edital - ON edital.cod_licitacao = licitacao.cod_licitacao - AND edital.cod_modalidade = licitacao.cod_modalidade - AND edital.cod_entidade = licitacao.cod_entidade - AND edital.exercicio_licitacao = licitacao.exercicio - - JOIN licitacao.publicacao_edital - ON publicacao_edital.num_edital = edital.num_edital - AND publicacao_edital.exercicio = edital.exercicio - - JOIN licitacao.veiculos_publicidade - ON veiculos_publicidade.numcgm = publicacao_edital.numcgm - - JOIN sw_cgm AS veiculo - ON veiculo.numcgm = veiculos_publicidade.numcgm - - WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' - AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') - AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") - AND modalidade.cod_modalidade IN (8,9) - "; + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN licitacao.veiculos_publicidade + ON veiculos_publicidade.numcgm = publicacao_edital.numcgm + + JOIN sw_cgm AS veiculo + ON veiculo.numcgm = veiculos_publicidade.numcgm + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_cotacao + ON mapa.exercicio = mapa_cotacao.exercicio_mapa + AND mapa.cod_mapa = mapa_cotacao.cod_mapa + + JOIN compras.julgamento + ON julgamento.exercicio = mapa_cotacao.exercicio_cotacao + AND julgamento.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.julgamento_item + ON julgamento_item.exercicio = julgamento.exercicio + AND julgamento_item.cod_cotacao = julgamento.cod_cotacao + AND julgamento_item.ordem = 1 + + JOIN licitacao.homologacao + ON homologacao.cod_licitacao=licitacao.cod_licitacao + AND homologacao.cod_modalidade=licitacao.cod_modalidade + AND homologacao.cod_entidade=licitacao.cod_entidade + AND homologacao.exercicio_licitacao=licitacao.exercicio + AND homologacao.cod_item=julgamento_item.cod_item + AND homologacao.lote=julgamento_item.lote + AND ( + SELECT homologacao_anulada.num_homologacao FROM licitacao.homologacao_anulada + WHERE homologacao_anulada.cod_licitacao=licitacao.cod_licitacao + AND homologacao_anulada.cod_modalidade=licitacao.cod_modalidade + AND homologacao_anulada.cod_entidade=licitacao.cod_entidade + AND homologacao_anulada.exercicio_licitacao=licitacao.exercicio + AND homologacao.num_homologacao=homologacao_anulada.num_homologacao + AND homologacao.cod_item=homologacao_anulada.cod_item + AND homologacao.lote=homologacao_anulada.lote + ) IS NULL + + JOIN compras.cotacao_fornecedor_item + ON julgamento_item.exercicio = cotacao_fornecedor_item.exercicio + AND julgamento_item.cod_cotacao = cotacao_fornecedor_item.cod_cotacao + AND julgamento_item.cod_item = cotacao_fornecedor_item.cod_item + AND julgamento_item.cgm_fornecedor = cotacao_fornecedor_item.cgm_fornecedor + AND julgamento_item.lote = cotacao_fornecedor_item.lote + + LEFT JOIN licitacao.justificativa_razao + ON justificativa_razao.cod_entidade = licitacao.cod_entidade + AND justificativa_razao.cod_licitacao = licitacao.cod_licitacao + AND justificativa_razao.exercicio = licitacao.exercicio + AND justificativa_razao.cod_modalidade = licitacao.cod_modalidade + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) + "; return $stSql; } @@ -111,85 +159,721 @@ class TTGODSI extends Persistente public function montaRecuperaDetalhamento11() { $stSql = " - SELECT 11 AS tipo_registro - , 5 AS cod_orgao - , 1 AS cod_unidade + --------------------- 1 + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade , sw_processo.cod_processo AS num_processo , sw_processo.ano_exercicio AS ano_exercicio_processo , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 - WHEN modalidade.cod_modalidade = 9 THEN 2 + WHEN modalidade.cod_modalidade = 9 THEN 2 END AS tipo_processo , 1 AS tipo_resp - , sw_cgm_pessoa_fisica.cpf AS num_cpf_responsavel - , responsavel.nom_cgm AS nome_responsavel - , responsavel.logradouro AS logradouro - , responsavel.bairro AS setor - , sw_municipio.nom_municipio AS cidade - , responsavel.cep AS cep - , sw_uf.nom_uf AS uf - , CASE WHEN responsavel.fone_residencial = '' - THEN CASE WHEN responsavel.fone_comercial = '' - THEN CASE WHEN responsavel.fone_celular = '' - THEN '' - ELSE responsavel.fone_celular - END - ELSE responsavel.fone_comercial - END - ELSE responsavel.fone_residencial + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial END AS telefone - , CASE WHEN responsavel.e_mail = '' - THEN CASE WHEN responsavel.e_mail_adcional = '' - THEN '' - ELSE responsavel.e_mail_adcional - END - ELSE responsavel.e_mail + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail END AS email , '' AS brancos , 0 AS numero_sequencial - FROM licitacao.licitacao + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio - JOIN compras.objeto - ON objeto.cod_objeto = licitacao.cod_objeto - - JOIN sw_processo - ON sw_processo.cod_processo = licitacao.cod_processo - AND sw_processo.ano_exercicio = licitacao.exercicio_processo - - JOIN compras.modalidade - ON modalidade.cod_modalidade = licitacao.cod_modalidade - - JOIN compras.tipo_objeto - ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto - - JOIN licitacao.edital - ON edital.cod_licitacao = licitacao.cod_licitacao - AND edital.cod_modalidade = licitacao.cod_modalidade - AND edital.cod_entidade = licitacao.cod_entidade - AND edital.exercicio_licitacao = licitacao.exercicio - - JOIN licitacao.publicacao_edital - ON publicacao_edital.num_edital = edital.num_edital - AND publicacao_edital.exercicio = edital.exercicio - - JOIN sw_cgm AS responsavel - ON responsavel.numcgm = edital.responsavel_juridico - - JOIN sw_cgm_pessoa_fisica - ON sw_cgm_pessoa_fisica.numcgm = responsavel.numcgm + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_abertura_disp + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) + + --------------------- 2 + UNION + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , 2 AS tipo_resp + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial + END AS telefone + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail + END AS email + , '' AS brancos + , 0 AS numero_sequencial + + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_cotacao_precos + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) + + --------------------- 3 + UNION + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , 3 AS tipo_resp + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial + END AS telefone + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail + END AS email + , '' AS brancos + , 0 AS numero_sequencial + + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_recurso + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) - JOIN sw_municipio - ON sw_municipio.cod_municipio = responsavel.cod_municipio - AND sw_municipio.cod_uf = responsavel.cod_uf - - JOIN sw_uf - ON sw_uf.cod_uf = sw_municipio.cod_uf + --------------------- 4 + UNION + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , 4 AS tipo_resp + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial + END AS telefone + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail + END AS email + , '' AS brancos + , 0 AS numero_sequencial + + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_ratificacao + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) + --------------------- 5 + UNION + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , 5 AS tipo_resp + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial + END AS telefone + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail + END AS email + , '' AS brancos + , 0 AS numero_sequencial + + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_publicacao_orgao + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") AND modalidade.cod_modalidade IN (8,9) - "; + + --------------------- 6 + UNION + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , 6 AS tipo_resp + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial + END AS telefone + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail + END AS email + , '' AS brancos + , 0 AS numero_sequencial + + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_parecer_juridico + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) + + --------------------- 7 + UNION + + SELECT 11 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , 7 AS tipo_resp + , responsavel_dispensa.cpf AS num_cpf_responsavel + , responsavel_dispensa.nom_cgm AS nome_responsavel + , responsavel_dispensa.logradouro AS logradouro + , responsavel_dispensa.bairro AS setor + , responsavel_dispensa.nom_municipio AS cidade + , responsavel_dispensa.cep AS cep + , responsavel_dispensa.sigla_uf AS uf + + , CASE WHEN responsavel_dispensa.fone_residencial = '' + THEN CASE WHEN responsavel_dispensa.fone_comercial = '' + THEN CASE WHEN responsavel_dispensa.fone_celular = '' + THEN '' + ELSE responsavel_dispensa.fone_celular + END + ELSE responsavel_dispensa.fone_comercial + END + ELSE responsavel_dispensa.fone_residencial + END AS telefone + + , CASE WHEN responsavel_dispensa.e_mail = '' + THEN CASE WHEN responsavel_dispensa.e_mail_adcional = '' + THEN '' + ELSE responsavel_dispensa.e_mail_adcional + END + ELSE responsavel_dispensa.e_mail + END AS email + , '' AS brancos + , 0 AS numero_sequencial + + FROM licitacao.licitacao + + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN tcmgo.responsavel_licitacao_dispensa AS responsavel + ON responsavel.exercicio = licitacao.exercicio + AND responsavel.cod_entidade = licitacao.cod_entidade + AND responsavel.cod_modalidade = licitacao.cod_modalidade + AND responsavel.cod_licitacao = licitacao.cod_licitacao + + JOIN ( SELECT sw_cgm.nom_cgm + , sw_cgm.numcgm + , sw_cgm_pessoa_fisica.cpf + , sw_cgm.logradouro + , sw_cgm.bairro + , sw_cgm.cep + , sw_municipio.nom_municipio + , sw_uf.sigla_uf + , sw_cgm.fone_residencial + , sw_cgm.fone_celular + , sw_cgm.fone_comercial + , sw_cgm.e_mail + , sw_cgm.e_mail_adcional + FROM sw_cgm + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = sw_cgm.numcgm + JOIN sw_municipio + ON sw_municipio.cod_municipio = sw_cgm.cod_municipio + AND sw_municipio.cod_uf = sw_cgm.cod_uf + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + ) AS responsavel_dispensa + ON responsavel_dispensa.numcgm = responsavel.cgm_resp_parecer_outro + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) + + ORDER BY tipo_resp + "; return $stSql; } @@ -201,90 +885,94 @@ class TTGODSI extends Persistente public function montaRecuperaDetalhamento12() { - $stSql = " - SELECT 12 AS tipo_registro - , 5 AS cod_orgao - , 1 AS cod_unidade - , sw_processo.cod_processo AS num_processo - , sw_processo.ano_exercicio AS ano_exercicio_processo - , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 - WHEN modalidade.cod_modalidade = 9 THEN 2 - END AS tipo_processo - , mapa_item.lote AS num_lote - , mapa_item.cod_item AS num_item - , mapa_item.vl_total AS vl_cot_precos_unitario - , '' AS brancos - , 0 AS nro_sequencial + $stSql = " SELECT DISTINCT + 12 AS tipo_registro + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade + , sw_processo.cod_processo AS num_processo + , sw_processo.ano_exercicio AS ano_exercicio_processo + , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 + WHEN modalidade.cod_modalidade = 9 THEN 2 + END AS tipo_processo + , mapa_item.lote AS num_lote + , mapa_item.cod_item AS num_item + , mapa_item.vl_total AS vl_cot_precos_unitario + , catalogo_item.descricao::varchar(250) as desc_item + , '' AS brancos + , 0 AS nro_sequencial - FROM licitacao.licitacao + FROM licitacao.licitacao - JOIN compras.objeto - ON objeto.cod_objeto = licitacao.cod_objeto - - JOIN sw_processo - ON sw_processo.cod_processo = licitacao.cod_processo - AND sw_processo.ano_exercicio = licitacao.exercicio_processo - - JOIN compras.modalidade - ON modalidade.cod_modalidade = licitacao.cod_modalidade - - JOIN compras.tipo_objeto - ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto - - JOIN licitacao.edital - ON edital.cod_licitacao = licitacao.cod_licitacao - AND edital.cod_modalidade = licitacao.cod_modalidade - AND edital.cod_entidade = licitacao.cod_entidade - AND edital.exercicio_licitacao = licitacao.exercicio - - JOIN licitacao.publicacao_edital - ON publicacao_edital.num_edital = edital.num_edital - AND publicacao_edital.exercicio = edital.exercicio - - JOIN sw_cgm AS responsavel - ON responsavel.numcgm = edital.responsavel_juridico - - JOIN sw_cgm_pessoa_fisica - ON sw_cgm_pessoa_fisica.numcgm = responsavel.numcgm - - JOIN sw_municipio - ON sw_municipio.cod_municipio = responsavel.cod_municipio - AND sw_municipio.cod_uf = responsavel.cod_uf - - JOIN sw_uf - ON sw_uf.cod_uf = sw_municipio.cod_uf - - JOIN compras.mapa - ON mapa.exercicio = licitacao.exercicio_mapa - AND mapa.cod_mapa = licitacao.cod_mapa - - JOIN compras.mapa_solicitacao - ON mapa_solicitacao.exercicio = mapa.exercicio - AND mapa_solicitacao.cod_mapa = mapa.cod_mapa - - JOIN compras.mapa_item - ON mapa_item.cod_mapa = mapa_solicitacao.cod_mapa - AND mapa_item.exercicio = mapa_solicitacao.exercicio - AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade - AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao - AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao - - JOIN compras.mapa_cotacao - ON mapa_cotacao.exercicio_cotacao = mapa.exercicio - AND mapa_cotacao.cod_mapa = mapa.cod_mapa - - JOIN compras.cotacao - ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao - AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao - - JOIN compras.cotacao_item - ON cotacao_item.exercicio = cotacao.exercicio - AND cotacao_item.cod_cotacao = cotacao.cod_cotacao - - WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' - AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') - AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") - AND modalidade.cod_modalidade IN (8,9) + JOIN compras.objeto + ON objeto.cod_objeto = licitacao.cod_objeto + + JOIN sw_processo + ON sw_processo.cod_processo = licitacao.cod_processo + AND sw_processo.ano_exercicio = licitacao.exercicio_processo + + JOIN compras.modalidade + ON modalidade.cod_modalidade = licitacao.cod_modalidade + + JOIN compras.tipo_objeto + ON tipo_objeto.cod_tipo_objeto = licitacao.cod_tipo_objeto + + JOIN licitacao.edital + ON edital.cod_licitacao = licitacao.cod_licitacao + AND edital.cod_modalidade = licitacao.cod_modalidade + AND edital.cod_entidade = licitacao.cod_entidade + AND edital.exercicio_licitacao = licitacao.exercicio + + JOIN licitacao.publicacao_edital + ON publicacao_edital.num_edital = edital.num_edital + AND publicacao_edital.exercicio = edital.exercicio + + JOIN sw_cgm AS responsavel + ON responsavel.numcgm = edital.responsavel_juridico + + JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = responsavel.numcgm + + JOIN sw_municipio + ON sw_municipio.cod_municipio = responsavel.cod_municipio + AND sw_municipio.cod_uf = responsavel.cod_uf + + JOIN sw_uf + ON sw_uf.cod_uf = sw_municipio.cod_uf + + JOIN compras.mapa + ON mapa.exercicio = licitacao.exercicio_mapa + AND mapa.cod_mapa = licitacao.cod_mapa + + JOIN compras.mapa_solicitacao + ON mapa_solicitacao.exercicio = mapa.exercicio + AND mapa_solicitacao.cod_mapa = mapa.cod_mapa + + JOIN compras.mapa_item + ON mapa_item.cod_mapa = mapa_solicitacao.cod_mapa + AND mapa_item.exercicio = mapa_solicitacao.exercicio + AND mapa_item.cod_entidade = mapa_solicitacao.cod_entidade + AND mapa_item.cod_solicitacao = mapa_solicitacao.cod_solicitacao + AND mapa_item.exercicio_solicitacao = mapa_solicitacao.exercicio_solicitacao + + JOIN compras.mapa_cotacao + ON mapa_cotacao.exercicio_cotacao = mapa.exercicio + AND mapa_cotacao.cod_mapa = mapa.cod_mapa + + JOIN compras.cotacao + ON cotacao.exercicio = mapa_cotacao.exercicio_cotacao + AND cotacao.cod_cotacao = mapa_cotacao.cod_cotacao + + JOIN compras.cotacao_item + ON cotacao_item.exercicio = cotacao.exercicio + AND cotacao_item.cod_cotacao = cotacao.cod_cotacao + + JOIN almoxarifado.catalogo_item + ON catalogo_item.cod_item = cotacao_item.cod_item + + WHERE licitacao.exercicio = '" . $this->getDado('exercicio') . "' + AND licitacao.timestamp BETWEEN TO_DATE('" . $this->getDado('dtInicio') . "','dd/mm/yyyy') AND TO_DATE('" . $this->getDado('dtFim') . "','dd/mm/yyyy') + AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") + AND modalidade.cod_modalidade IN (8,9) "; return $stSql; @@ -299,8 +987,8 @@ class TTGODSI extends Persistente { $stSql = " SELECT 13 AS tipo_registro - , 5 AS cod_orgao - , 1 AS cod_unidade + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade , sw_processo.cod_processo AS num_processo , sw_processo.ano_exercicio AS ano_exercicio_processo , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 @@ -433,8 +1121,8 @@ class TTGODSI extends Persistente { $stSql = " SELECT 14 AS tipo_registro - , 5 AS cod_orgao - , 1 AS cod_unidade + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade , sw_processo.cod_processo AS num_processo , sw_processo.ano_exercicio AS ano_exercicio_processo , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 @@ -544,6 +1232,32 @@ class TTGODSI extends Persistente AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") AND modalidade.cod_modalidade IN (8,9) AND documento.cod_documento IN (5,6,7) + + GROUP BY tipo_registro + , cod_orgao + , cod_unidade + , num_processo + , ano_exercicio_processo + , tipo_processo + , tipo_documento + , documento_pessoa.num_documento + , num_lote + , num_item + , nom_razao_social + , num_inscricao_estadual + , uf_inscricao_estadual + , num_certidao_regularidade_inss + , dt_emissao_certidao_regularidade_inss + , dt_validade_certidao_regularida_inss + , num_certidao_regularidade_fgts + , dt_emissao_certidao_regularidade_fgts + , dt_validade_certidao_regularida_fgts + , num_cndt + , dt_emissao_cndt + , dt_validade_cndt + , quantidade + , valor_item + , brancos "; return $stSql; @@ -558,8 +1272,8 @@ class TTGODSI extends Persistente { $stSql = " SELECT 15 AS tipo_registro - , 5 AS cod_orgao - , 1 AS cod_unidade + , licitacao.num_orgao AS cod_orgao + , licitacao.num_unidade AS cod_unidade , sw_processo.cod_processo AS num_processo , sw_processo.ano_exercicio AS ano_exercicio_processo , CASE WHEN modalidade.cod_modalidade = 8 THEN 1 @@ -673,6 +1387,30 @@ class TTGODSI extends Persistente AND licitacao.cod_entidade IN (" . $this->getDado('entidades') . ") AND modalidade.cod_modalidade IN (8,9) AND documento.cod_documento IN (5,6,7) + + GROUP BY tipo_registro + , cod_orgao + , cod_unidade + , sw_processo.cod_processo + , sw_processo.ano_exercicio + , tipo_processo + , documento_pessoa.tipo_documento + , documento_pessoa.num_documento + , dt_credenciamento + , num_lote + , num_item + , nome_razao_social + , num_inscricao_estadual + , uf_inscricao_estadual + , num_certidao_regularidade_inss + , dt_emissao_certidao_regularidade_inss + , dt_validade_certidao_regularida_inss + , num_certidao_regularidade_fgts + , dt_emissao_certidao_regularidade_fgts + , dt_validade_certidao_regularida_fgts + , num_cndt + , dt_emissao_cndt + , dt_validade_cndt "; return $stSql; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPFR.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPFR.class.php index 7c8299b..9a353fc 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPFR.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPFR.class.php @@ -33,7 +33,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTGOPFR.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTGOPFR.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -48,112 +48,185 @@ class TTGOPFR extends Persistente public function montaRecuperaTodos() { - $stSQL = " select - '10' as tipo_registro - ,despesa.num_orgao - ,case - when despesa.exercicio <= '2001' then - lpad( despesa.num_unidade, 4, 0 ) || - lpad( despesa.cod_funcao, 2, 0 ) || - lpad( despesa.cod_programa, 2, 0 ) || - lpad( '', 3, 0 ) || - lpad( despesa.num_pao, 4, 0 ) || - substr ( replace ( conta_despesa.cod_estrutural,'.','') , 0 , 7 ) - else - null - end as dotacao2001 - ,case - when despesa.exercicio > '2002' then - lpad( despesa.cod_programa, 4, 0 ) || - lpad( despesa.num_unidade, 2, 0 ) || - lpad( despesa.cod_funcao, 2, 0 ) || - lpad( despesa.cod_subfuncao, 3, 0 ) || - lpad( despesa.num_pao, 4, 0 ) || - substr ( replace ( conta_despesa.cod_estrutural,'.','') , 0 , 7 ) || - lpad( '', 2, 0 ) - else - null - end as dotacao2002 - ,empenho.cod_empenho - ,to_char(empenho.dt_empenho, 'dd/mm/yyyy') as dt_empenho - ,sw_cgm.nom_cgm - ,case - when plano_conta.cod_estrutural like '3.4.6%' then - 2 - else - 1 - end as tipo_lancamento - ,empenho.fn_consultar_valor_empenhado(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade) as vl_original - ,case - when despesa.exercicio = '".$this->getDado('exercicio')."' then - (empenho.fn_consultar_valor_empenhado(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade) - - empenho.fn_consultar_valor_empenhado_pago(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade)) - else - (empenho.fn_empenho_pago(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade,'01/01/'||despesa.exercicio,'31/12/'||despesa.exercicio) - empenho.fn_empenho_estornado(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade,'01/01/'||despesa.exercicio,'31/12/'||despesa.exercicio)) - end as vl_saldo_anterior - ,case - when despesa.exercicio = '".$this->getDado('exercicio')."' then - (empenho.fn_consultar_valor_empenhado(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade) - - empenho.fn_consultar_valor_empenhado_pago(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade)) - else - null - end as vl_inscricao - ,empenho.fn_consultar_valor_empenhado_pago(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade) as vl_baixa_pago - ,empenho.fn_consultar_valor_empenhado_anulado(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade) as vl_cancelado - ,'0.00' as vl_encampacao - ,empenho.fn_empenho_pago(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade, '01/01/'||despesa.exercicio,'01/'||to_char(now(),'dd')||'/'||despesa.exercicio) as saldo_atual - ,empenho.fn_empenho_liquidado(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade, '01/01/'||despesa.exercicio,'01/'||to_char(now(),'dd')||'/'||despesa.exercicio) - empenho.fn_empenho_estornado(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade, '01/01/'||despesa.exercicio,'01/'||to_char(now(),'dd')||'/'||despesa.exercicio) as vl_processado - ,empenho.fn_consultar_valor_empenhado(despesa.exercicio, empenho.cod_empenho, empenho.cod_entidade) - (empenho.fn_empenho_liquidado(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade, '01/01/'||despesa.exercicio,'01/'||to_char(now(),'dd')||'/'||despesa.exercicio) + empenho.fn_empenho_estornado(despesa.exercicio,empenho.cod_empenho,empenho.cod_entidade, '01/01/'||despesa.exercicio,'01/'||to_char(now(),'dd')||'/'||despesa.exercicio)) as vl_n_processado - from - orcamento.despesa - ,orcamento.conta_despesa - ,empenho.empenho - ,empenho.pre_empenho - ,empenho.pre_empenho_despesa - ,contabilidade.plano_conta - ,sw_cgm - where - empenho.exercicio = pre_empenho.exercicio - and empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + $stSQL = " + SELECT '10' AS tipo_registro + , despesa.num_orgao + , CASE WHEN despesa.exercicio <= '2001' THEN + lpad( despesa.num_unidade::text , 4, '0' ) || + lpad( despesa.cod_funcao::text , 2, '0' ) || + lpad( despesa.cod_programa::text , 2, '0' ) || + lpad( '' , 3, '0' ) || + lpad( despesa.num_pao::text , 4, '0' ) || + substr ( replace ( RP_PG.cod_estrutural,'.','') , 0 , 7 ) + ELSE + NULL + END AS dotacao2001 + , CASE WHEN despesa.exercicio > '2002' THEN + lpad( despesa.cod_programa::text , 4, '0' ) || + lpad( despesa.num_unidade::text , 2, '0' ) || + lpad( despesa.cod_funcao::text , 2, '0' ) || + lpad( despesa.cod_subfuncao::text , 3, '0' ) || + lpad( despesa.num_pao::text , 4, '0' ) || + substr ( replace ( RP_PG.cod_estrutural,'.','') , 0 , 7 ) || + lpad( '' , 2, '0' ) + ELSE + NULL + END AS dotacao2002 + , empenho.cod_empenho + , to_char(empenho.dt_empenho, 'dd/mm/yyyy') as dt_empenho + , RP_NL.cod_nota||'/'||RP_NL.exercicio AS cod_nota + , RP_NL.entidade + , sw_cgm.nom_cgm AS credor + , 1 AS tipo_lancamento + , (SELECT * FROM empenho.fn_consultar_valor_empenhado(empenho.exercicio::varchar, empenho.cod_empenho, empenho.cod_entidade)) AS vl_empenhado + , restos.valor_processado_exercicios_anteriores + restos.valor_processado_exercicio_anterior AS vl_processado_anterior + , (restos.valor_nao_processado_exercicios_anteriores + restos.valor_nao_processado_exercicio_anterior) - restos.valor_nao_processado_cancelado AS vl_nao_processado_anterior + , RP_NL.valor AS vl_processado_inscricao + , ((restos.valor_nao_processado_exercicios_anteriores + restos.valor_nao_processado_exercicio_anterior) - restos.valor_nao_processado_cancelado) - RP_NL.valor AS vl_nao_processado_inscricao + , restos.valor_processado_pago + , restos.valor_nao_processado_pago + , restos.valor_processado_cancelado + , restos.valor_nao_processado_cancelado + , 0.00 valor_processado_atribuicao + , 0.00 valor_nao_processado_atribuicao + , 0.00 valor_processado_encampacao + , 0.00 valor_nao_processado_encampacao + , restos.valor_processado_exercicios_anteriores + restos.valor_processado_exercicio_anterior + RP_NL.valor AS vl_processado_atual + , ( ( SELECT * FROM empenho.fn_consultar_valor_empenhado(empenho.exercicio::varchar, empenho.cod_empenho, empenho.cod_entidade) ) + - + ( restos.valor_processado_cancelado + restos.valor_nao_processado_cancelado ) ) + - + ( restos.valor_processado_exercicios_anteriores + restos.valor_processado_exercicio_anterior + RP_NL.valor ) + AS vl_nao_processado_atual + , 0 AS tipo_cancelamento + , 0 AS nro_sequencial + + FROM empenho.empenho + INNER JOIN ( SELECT * FROM empenho.fn_empenho_restos_pagar_anulado_liquidado_estornoliquidacao + ( '' + , '' + , '01/01/".$this->getDado('exercicio')."' + , '31/12/".$this->getDado('exercicio')."' + , '".$this->getDado('stEntidades')."' + , '' + , '' + , '' + , '' + , '' + , '' + , '".$this->getDado('stEntidades')."' + , '' + , '' + ) AS retorno( + entidade INTEGER, + empenho INTEGER, + exercicio CHARACTER(4), + cgm INTEGER, + razao_social VARCHAR, + cod_nota INTEGER, + valor NUMERIC, + data TEXT + ) + ) AS RP_NL + ON RP_NL.empenho = empenho.cod_empenho + AND RP_NL.exercicio = empenho.exercicio + AND RP_NL.entidade = empenho.cod_entidade + LEFT JOIN ( SELECT * FROM empenho.fn_empenho_restos_pagar_pagamento_estorno_credor + ( '' + , '' + , '01/01/".$this->getDado('exercicio')."' + , '31/12/".$this->getDado('exercicio')."' + , '".$this->getDado('stEntidades')."' + , '' + , '' + , '' + , '' + , '' + , '' + , '' + , '1' + , '' + , 'true' + , '' + , '' + ) AS retorno( + entidade INTEGER, + empenho INTEGER, + exercicio CHARACTER(4), + credor VARCHAR, + cod_estrutural VARCHAR, + cod_nota INTEGER, + data TEXT, + conta INTEGER, + banco VARCHAR, + valor NUMERIC + ) + ) AS RP_PG + ON RP_PG.empenho = empenho.cod_empenho + AND RP_PG.exercicio = empenho.exercicio + AND RP_NL.entidade = empenho.cod_entidade + LEFT JOIN empenho.pre_empenho + ON empenho.exercicio = pre_empenho.exercicio + AND empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + LEFT JOIN empenho.pre_empenho_despesa + ON empenho.exercicio = pre_empenho_despesa.exercicio + AND empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + LEFT JOIN orcamento.despesa + ON pre_empenho_despesa.cod_despesa = despesa.cod_despesa + AND pre_empenho_despesa.exercicio = despesa.exercicio + JOIN sw_cgm + ON pre_empenho.cgm_beneficiario = sw_cgm.numcgm + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + AND conta_despesa.exercicio = pre_empenho_despesa.exercicio + INNER JOIN ( SELECT * FROM tcmgo.fn_restos_pagar + ( '".$this->getDado('exercicio')."' + , '".$this->getDado('stEntidades')."' + , '31/12/".$this->getDado('exercicio')."' + ) as rp ( + cod_empenho INTEGER, + cod_entidade INTEGER, + exercicio CHARACTER(4), + valor_processado_exercicios_anteriores NUMERIC, + valor_processado_exercicio_anterior NUMERIC, + valor_processado_cancelado NUMERIC, + valor_processado_pago NUMERIC, + valor_nao_processado_exercicios_anteriores NUMERIC, + valor_nao_processado_exercicio_anterior NUMERIC, + valor_nao_processado_cancelado NUMERIC, + valor_nao_processado_pago NUMERIC + ) + ) AS restos + ON restos.cod_empenho = empenho.cod_empenho + AND restos.exercicio = empenho.exercicio - and pre_empenho.exercicio = pre_empenho_despesa.exercicio - and pre_empenho.cod_pre_empenho = pre_empenho_despesa.cod_pre_empenho + WHERE restos.valor_nao_processado_pago > 0 - and pre_empenho_despesa.cod_despesa = despesa.cod_despesa - and pre_empenho_despesa.exercicio = despesa.exercicio - - and despesa.exercicio = conta_despesa.exercicio - and despesa.cod_conta = conta_despesa.cod_conta - - and plano_conta.exercicio = conta_despesa.exercicio - and '3.'||conta_despesa.cod_estrutural like publico.fn_mascarareduzida(plano_conta.cod_estrutural)||'%' - - and pre_empenho.cgm_beneficiario = sw_cgm.numcgm - - and despesa.cod_entidade in ( ".$this->getDado('stEntidades')." ) - - and despesa.exercicio <= '".$this->getDado('exercicio')."' - - group by - tipo_registro - ,num_orgao - ,dotacao2001 - ,dotacao2002 - ,dt_empenho - ,despesa.exercicio - ,empenho.cod_entidade - ,empenho.cod_empenho - ,nom_cgm - ,tipo_lancamento - ,vl_original - ,vl_baixa_pago - ,vl_saldo_anterior - ,vl_inscricao - ,vl_cancelado - ,saldo_atual - ,vl_processado - ,vl_n_processado - "; + GROUP BY RP_NL.empenho + , RP_NL.exercicio + , RP_NL.entidade + , RP_NL.cod_nota + , RP_NL.valor + , despesa.num_orgao + , dotacao2001 + , dotacao2002 + , empenho.cod_empenho + , empenho.dt_empenho + , empenho.exercicio + , empenho.cod_entidade + , sw_cgm.nom_cgm + , conta_despesa.descricao + , restos.valor_processado_exercicios_anteriores + , restos.valor_processado_exercicio_anterior + , restos.valor_processado_cancelado + , restos.valor_processado_pago + , restos.valor_nao_processado_exercicios_anteriores + , restos.valor_nao_processado_exercicio_anterior + , restos.valor_nao_processado_cancelado + , restos.valor_nao_processado_pago + + ORDER BY RP_NL.empenho, RP_NL.exercicio + "; return $stSQL; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPatrimonioBemObra.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPatrimonioBemObra.class.php new file mode 100644 index 0000000..e086b4c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPatrimonioBemObra.class.php @@ -0,0 +1,62 @@ + +setTabela("tcmgo.patrimonio_bem_obra"); + + $this->setCampoCod('cod_bem'); + $this->setComplementoChave('cod_obra, ano_obra'); + + $this->AddCampo( 'cod_bem' , 'integer', true , '' , true , true ); + $this->AddCampo( 'cod_obra' , 'integer', true , '' , true , true ); + $this->AddCampo( 'ano_obra' , 'integer', true , '' , true , true ); +} + +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOREP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOREP.class.php index 174dea8..a3b6961 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOREP.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOREP.class.php @@ -34,7 +34,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTGOREP.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTGOREP.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -695,4 +695,240 @@ GROUP BY "; return $stSql; } + +public function recuperaTodos2015(&$rsRecordSet, $stFiltro = '', $stOrdem = '', $boTransacao = '') +{ + $rsRecordSet = new RecordSet(); + $obConexao = new Conexao(); + + $stSQL = $this->montaRecuperaTodos2015(); + $this->setDebug($stSQL); + + return $obConexao->executaSQL($rsRecordSet, $stSQL, $boTransacao); +} + +//Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal +function montaRecuperaTodos2015() +{ +$stSql = " +SELECT * + , 10 AS tipo_registro + , '".$this->getDado('stEntidades')."' AS cod_orgao + , '".$this->getDado('exercicio')."' AS exercicio + , 0 AS numero_registro + FROM +( +SELECT CASE WHEN SUM(despesas) > SUM(receitas) + THEN '02' + ELSE '01' + END AS tipo_saldo_pat_ex + , SUM(receitas) - SUM(despesas) AS saldo_pat_ex + FROM ( +SELECT CASE WHEN cod_estrutural ILIKE '5.%' + THEN tabela1.vl_arrecadado + ELSE 0.00 + END AS despesas + , CASE WHEN cod_estrutural ILIKE '4.%' + THEN tabela1.vl_arrecadado + ELSE CASE WHEN cod_estrutural ILIKE '6.%' + THEN tabela1.vl_arrecadado + ELSE 0.00 + END + END AS receitas + , cod_estrutural +FROM ( + SELECT tbl.cod_estrutural + , abs( sum( tbl.vl_arrecadado_debito ) + sum( tbl.vl_arrecadado_credito ) ) as vl_arrecadado + , OCR.nom_conta + , CASE WHEN publico.fn_nivel( tbl.cod_estrutural ) > 5 + THEN 5 + ELSE publico.fn_nivel( tbl.cod_estrutural ) + END AS nivel + FROM ( SELECT substr( OPC.cod_estrutural, 1, 9 ) AS cod_estrutural + , OPC.exercicio + , sum( coalesce( CCD.vl_lancamento, 0.00 ) ) * ( -1 ) AS vl_arrecadado_debito + , sum( coalesce( CCC.vl_lancamento, 0.00 ) ) * ( -1 ) AS vl_arrecadado_credito + FROM contabilidade.plano_conta AS OPC + -- Join com plano analitica + LEFT JOIN contabilidade.plano_analitica AS OCA + ON OPC.cod_conta = OCA.cod_conta + AND OPC.exercicio = OCA.exercicio + -- Join com contabilidade.valor_lancamento + LEFT JOIN (SELECT CCD.cod_plano + , CCD.exercicio + , sum( vl_lancamento ) as vl_lancamento + FROM contabilidade.conta_debito AS CCD + , contabilidade.valor_lancamento AS CVLD + , contabilidade.lancamento AS CLA + , contabilidade.lote AS CLO + WHERE CCD.cod_lote = CVLD.cod_lote + AND CCD.tipo = CVLD.tipo + AND CCD.sequencia = CVLD.sequencia + AND CCD.exercicio = CVLD.exercicio + AND CCD.tipo_valor = CVLD.tipo_valor + AND CCD.cod_entidade = CVLD.cod_entidade + AND CVLD.tipo_valor = 'D' + AND CVLD.cod_lote = CLA.cod_lote + AND CVLD.tipo = CLA.tipo + AND CVLD.cod_entidade = CLA.cod_entidade + AND CVLD.exercicio = CLA.exercicio + AND CVLD.sequencia = CLA.sequencia + AND CLA.cod_lote = CLO.cod_lote + AND CLA.tipo = CLO.tipo + AND CLA.cod_entidade = CLO.cod_entidade + AND CLA.exercicio = CLO.exercicio + AND CCD.exercicio = '".$this->getDado('exercicio')."' + AND CVLD.cod_entidade IN( ".$this->getDado('stEntidades')." ) + AND CLO.dt_lote BETWEEN TO_DATE( '01/01/".$this->getDado('exercicio')."', 'dd/mm/yyyy' ) + AND TO_DATE( '31/12/".$this->getDado('exercicio')."', 'dd/mm/yyyy' ) + AND CLA.cod_historico not between 800 and 899 + GROUP BY CCD.cod_plano + , CCD.exercicio + ORDER BY CCD.cod_plano + , CCD.exercicio + ) AS CCD + ON OCA.cod_plano = CCD.cod_plano + AND OCA.exercicio = CCD.exercicio + -- Join com contabilidade.valor_lancamento + LEFT JOIN (SELECT CCC.cod_plano + , CCC.exercicio + , sum(vl_lancamento) as vl_lancamento + FROM contabilidade.conta_credito AS CCC + , contabilidade.valor_lancamento AS CVLC + , contabilidade.lancamento AS CLA + , contabilidade.lote AS CLO + WHERE CCC.cod_lote = CVLC.cod_lote + AND CCC.tipo = CVLC.tipo + AND CCC.sequencia = CVLC.sequencia + AND CCC.exercicio = CVLC.exercicio + AND CCC.tipo_valor = CVLC.tipo_valor + AND CCC.cod_entidade = CVLC.cod_entidade + AND CVLC.tipo_valor = 'C' + AND CVLC.cod_lote = CLA.cod_lote + AND CVLC.tipo = CLA.tipo + AND CVLC.cod_entidade = CLA.cod_entidade + AND CVLC.exercicio = CLA.exercicio + AND CVLC.sequencia = CLA.sequencia + AND CLA.cod_lote = CLO.cod_lote + AND CLA.tipo = CLO.tipo + AND CLA.cod_entidade = CLO.cod_entidade + AND CLA.exercicio = CLO.exercicio + AND CCC.exercicio = '".$this->getDado('exercicio')."' + AND CVLC.cod_entidade IN( ".$this->getDado('stEntidades')." ) + AND CLO.dt_lote BETWEEN TO_DATE( '01/01/".$this->getDado('exercicio')."', 'dd/mm/yyyy' ) + AND TO_DATE( '31/12/".$this->getDado('exercicio')."', 'dd/mm/yyyy' ) + AND CLA.cod_historico not between 800 and 899 + GROUP BY CCC.cod_plano + , CCC.exercicio + ORDER BY CCC.cod_plano + , CCC.exercicio + ) AS CCC + ON OCA.cod_plano = CCC.cod_plano + AND OCA.exercicio = CCC.exercicio + WHERE OPC.exercicio = '".$this->getDado('exercicio')."' + AND (OPC.cod_estrutural LIKE '4.1%' OR + OPC.cod_estrutural LIKE '4.2%' OR + OPC.cod_estrutural LIKE '4.7%' OR + OPC.cod_estrutural LIKE '4.8%' OR + OPC.cod_estrutural LIKE '9.%' OR + OPC.cod_estrutural LIKE '3.3%' OR + OPC.cod_estrutural LIKE '3.4%' OR + OPC.cod_estrutural LIKE '5.1.2%' OR + OPC.cod_estrutural LIKE '5.1.3%' OR + OPC.cod_estrutural LIKE '5.2%' OR + OPC.cod_estrutural LIKE '6.1%' OR + OPC.cod_estrutural LIKE '6.2%' + ) + GROUP BY OPC.cod_estrutural + , OPC.exercicio + ORDER BY OPC.cod_estrutural + , OPC.exercicio + ) AS tbl + , contabilidade.plano_conta AS OCR + WHERE tbl.cod_estrutural = substr( OCR.cod_estrutural, 1, 9 ) + AND length( publico.fn_mascarareduzida( OCR.cod_estrutural ) ) <= 9 + AND tbl.exercicio = OCR.exercicio + GROUP BY tbl.cod_estrutural + , OCR.nom_conta + ORDER BY tbl.cod_estrutural + , OCR.nom_conta + ) AS tabela1 + ) AS tabela2 +) AS resultado_patrimonial +,( +SELECT CASE WHEN abs(ativo.vl_ativo_real) - abs(passivo.vl_passivo_real) > 0.00 + THEN '01' + ELSE '02' + END AS tipo_saldo_ex_ant + , abs(abs(ativo.vl_ativo_real) - abs(passivo.vl_passivo_real)) AS saldo_pat_ex_ant + FROM (SELECT SUM(vl_saldo_atual) AS vl_ativo_real + FROM contabilidade.fn_rl_balanco_patrimonial('".($this->getDado('exercicio')-1)."','cod_entidade IN ( ".$this->getDado('stEntidades')." ) ','01/01/".($this->getDado('exercicio')-1)."','31/12/".($this->getDado('exercicio')-1)."','') + AS retorno( cod_estrutural varchar + , nivel integer + , nom_conta varchar + , vl_saldo_anterior numeric + , vl_saldo_debitos numeric + , vl_saldo_creditos numeric + , vl_saldo_atual numeric + , nom_sistema varchar + ) + WHERE cod_estrutural ILIKE '1.%' + AND (nom_sistema ILIKE '%Financeiro%' OR nom_sistema ILIKE '%Patrimonial%') + ) + AS ativo + , (SELECT SUM(vl_saldo_atual) AS vl_passivo_real + FROM contabilidade.fn_rl_balanco_patrimonial('".($this->getDado('exercicio')-1)."','cod_entidade IN ( ".$this->getDado('stEntidades')." ) ','01/01/".($this->getDado('exercicio')-1)."','31/12/".($this->getDado('exercicio')-1)."','') + AS retorno( cod_estrutural varchar + , nivel integer + , nom_conta varchar + , vl_saldo_anterior numeric + , vl_saldo_debitos numeric + , vl_saldo_creditos numeric + , vl_saldo_atual numeric + , nom_sistema varchar + ) + WHERE (cod_estrutural ILIKE '2.1%' OR cod_estrutural ILIKE '2.2%') + AND (nom_sistema ILIKE '%Financeiro%' OR nom_sistema ILIKE '%Patrimonial%') + ) AS passivo +) AS exercicio_anterior +,( +SELECT CASE WHEN abs(ativo.vl_ativo_real) - abs(passivo.vl_passivo_real) > 0.00 + THEN '01' + ELSE '02' + END AS tipo_saldo_ex_atual + , ABS(abs(ativo.vl_ativo_real) - abs(passivo.vl_passivo_real)) AS saldo_pat_ex_atual + FROM (SELECT SUM(vl_saldo_atual) AS vl_ativo_real + FROM contabilidade.fn_rl_balanco_patrimonial('".$this->getDado('exercicio')."','cod_entidade IN ( ".$this->getDado('stEntidades')." ) ','01/01/".$this->getDado('exercicio')."','31/12/".$this->getDado('exercicio')."','') + AS retorno( cod_estrutural varchar + , nivel integer + , nom_conta varchar + , vl_saldo_anterior numeric + , vl_saldo_debitos numeric + , vl_saldo_creditos numeric + , vl_saldo_atual numeric + , nom_sistema varchar + ) + WHERE cod_estrutural ILIKE '1.%' + AND (nom_sistema ILIKE '%Financeiro%' OR nom_sistema ILIKE '%Patrimonial%') + ) + AS ativo + , (SELECT SUM(vl_saldo_atual) AS vl_passivo_real + FROM contabilidade.fn_rl_balanco_patrimonial('".$this->getDado('exercicio')."','cod_entidade IN ( ".$this->getDado('stEntidades')." ) ','01/01/".$this->getDado('exercicio')."','31/12/".$this->getDado('exercicio')."','') + AS retorno( cod_estrutural varchar + , nivel integer + , nom_conta varchar + , vl_saldo_anterior numeric + , vl_saldo_debitos numeric + , vl_saldo_creditos numeric + , vl_saldo_atual numeric + , nom_sistema varchar + ) + WHERE (cod_estrutural ILIKE '2.1%' OR cod_estrutural ILIKE '2.2%') + AND (nom_sistema ILIKE '%Financeiro%' OR nom_sistema ILIKE '%Patrimonial%') + ) AS passivo + ) AS exercicio_atual +"; +return $stSql; +} + } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOROP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOROP.class.php index c7d2ca0..c7ff1d5 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOROP.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOROP.class.php @@ -32,7 +32,7 @@ * @package URBEM * @subpackage Mapeamento - $Id: TTGOROP.class.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: TTGOROP.class.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -55,51 +55,100 @@ class TTGOROP extends Persistente //Mapeamento do case pode ser encontrado no documento de tabelas auxiliares do tribunal public function montaRecuperaTodos() { - $stSql = " select '10' as tipo_registro - , cons.codigo_obra - , cons.num_orgao - , cons.num_unidade - , cons.ano_obra - , cons.especificacao - , sum ( saldo ) as saldo - from ( - select obra.ano_obra ||obra.cod_obra as codigo_obra - , obra.especificacao - , obra.ano_obra - , despesa.num_orgao - , despesa.num_unidade - , ( empenho.fn_consultar_valor_empenhado( empenho.exercicio ,empenho.cod_empenho ,empenho.cod_entidade ) - - empenho.fn_consultar_valor_empenhado_anulado( empenho.exercicio ,empenho.cod_empenho ,empenho.cod_entidade) ) - - - ( empenho.fn_consultar_valor_liquidado(empenho.exercicio ,empenho.cod_empenho ,empenho.cod_entidade ) - - empenho.fn_consultar_valor_liquidado_anulado( empenho.exercicio, empenho.cod_empenho, empenho.cod_entidade ) - ) AS saldo - from tcmgo.obra - join tcmgo.obra_empenho - on ( obra.cod_obra = obra_empenho.cod_obra - and obra.ano_obra = obra_empenho.ano_obra ) - join empenho.empenho - on ( obra_empenho.cod_empenho = empenho.cod_empenho - and obra_empenho.cod_entidade = empenho.cod_entidade - and obra_empenho.exercicio = empenho.exercicio ) - join empenho.pre_empenho - on ( empenho.exercicio = pre_empenho.exercicio - and empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho ) - join empenho.pre_empenho_despesa - on ( pre_empenho_despesa.exercicio = pre_empenho.exercicio - and pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho ) - join orcamento.despesa - on ( despesa.exercicio = pre_empenho_despesa.exercicio - and despesa.cod_despesa = pre_empenho_despesa.cod_despesa ) - where obra_empenho.cod_entidade in ( ". $this->getDado ( 'stEntidades') ." ) - and obra_empenho.exercicio = '". $this->getDado( 'exercicio' ) ."' - ) as cons - group by tipo_registro - , cons.codigo_obra - , cons.num_orgao - , cons.num_unidade - , cons.ano_obra - , cons.especificacao"; + $stSql = " SELECT + '10' as tipo_registro + , despesa.num_orgao as cod_orgao + , despesa.num_unidade as cod_unidade + , TRIM(obra.especificacao) as descricao_obra + , obra.cod_obra + , obra.ano_obra + , bem.vl_bem as vl_aquisicao + ,( SELECT vl_atualizado + FROM patrimonio.fn_depreciacao_acumulada(COALESCE(reavaliacao.cod_bem,bem.cod_bem)) + as retorno ( + cod_bem INTEGER + ,vl_acumulado NUMERIC + ,vl_atualizado NUMERIC + ,vl_bem NUMERIC + ,min_competencia VARCHAR + ,max_competencia VARCHAR) + ) as vl_inc_reavaliacao + , CASE WHEN bem_baixado.tipo_baixa = 1 THEN + ( SELECT vl_atualizado + FROM patrimonio.fn_depreciacao_acumulada(bem_baixado.cod_bem) + as retorno ( + cod_bem INTEGER + ,vl_acumulado NUMERIC + ,vl_atualizado NUMERIC + ,vl_bem NUMERIC + ,min_competencia VARCHAR + ,max_competencia VARCHAR) + ) + ELSE + ( SELECT vl_bem + FROM patrimonio.fn_depreciacao_acumulada(COALESCE(bem_baixado.cod_bem,bem.cod_bem)) + as retorno ( + cod_bem INTEGER + ,vl_acumulado NUMERIC + ,vl_atualizado NUMERIC + ,vl_bem NUMERIC + ,min_competencia VARCHAR + ,max_competencia VARCHAR) + ) + END AS vl_bai_doacao + ,( SELECT vl_atualizado + FROM patrimonio.fn_depreciacao_acumulada(COALESCE(bem_baixado.cod_bem,bem.cod_bem)) + as retorno ( + cod_bem INTEGER + ,vl_acumulado NUMERIC + ,vl_atualizado NUMERIC + ,vl_bem NUMERIC + ,min_competencia VARCHAR + ,max_competencia VARCHAR) + ) as vl_bai_depreciacao + , ( empenho.fn_consultar_valor_empenhado( empenho.exercicio ,empenho.cod_empenho ,empenho.cod_entidade ) - + empenho.fn_consultar_valor_empenhado_anulado( empenho.exercicio ,empenho.cod_empenho ,empenho.cod_entidade) ) + - + ( empenho.fn_consultar_valor_liquidado(empenho.exercicio ,empenho.cod_empenho ,empenho.cod_entidade ) - + empenho.fn_consultar_valor_liquidado_anulado( empenho.exercicio, empenho.cod_empenho, empenho.cod_entidade ) + ) AS saldo_atual + FROM tcmgo.obra + JOIn tcmgo.patrimonio_bem_obra + ON patrimonio_bem_obra.cod_obra = obra.cod_obra + AND patrimonio_bem_obra.ano_obra = obra.ano_obra + + JOIN patrimonio.bem + ON bem.cod_bem = patrimonio_bem_obra.cod_bem + LEFT JOIN patrimonio.reavaliacao + ON reavaliacao.cod_bem = bem.cod_bem + + LEFT JOIN patrimonio.bem_baixado + ON bem_baixado.cod_bem = bem.cod_bem + + JOIN tcmgo.obra_empenho + on obra.cod_obra = obra_empenho.cod_obra + and obra.ano_obra = obra_empenho.ano_obra + + JOIN empenho.empenho + on obra_empenho.cod_empenho = empenho.cod_empenho + and obra_empenho.cod_entidade = empenho.cod_entidade + and obra_empenho.exercicio = empenho.exercicio + + JOIN empenho.pre_empenho + on empenho.exercicio = pre_empenho.exercicio + and empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + JOIN empenho.pre_empenho_despesa + on pre_empenho_despesa.exercicio = pre_empenho.exercicio + and pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho + + JOIN orcamento.despesa + on despesa.exercicio = pre_empenho_despesa.exercicio + and despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + WHERE obra_empenho.cod_entidade in ( ". $this->getDado ( 'stEntidades') ." ) + AND obra.ano_obra = '". $this->getDado( 'exercicio' ) ."' + "; return $stSql; } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasArrecadacaoReceita.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasArrecadacaoReceita.php new file mode 100644 index 0000000..696de0e --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasArrecadacaoReceita.php @@ -0,0 +1,96 @@ + +setName("stAcao"); +$obHdnAcao->setValue($stAcao); + +//DEFINICAO DO FORM +$obForm = new Form; +$obForm->setAction($pgForm); + +$obIntExercicio = new Inteiro(); +$obIntExercicio->setRotulo("Exercício de configurações para Metas de Arrecadação de Receita."); +$obIntExercicio->setTitle("Informe o exercício de vigência das configurações para Metas de Arrecadação de Receita."); +$obIntExercicio->setName("inExercicio"); +$obIntExercicio->setNull(false); +$obIntExercicio->setSize(5); +$obIntExercicio->setMaxLength(4); + +$obBtnOk = new Ok; + +$obBtnLimpar = new Limpar(); +$obBtnLimpar->setName("btnLimpar"); +$obBtnLimpar->setValue("Limpar"); +$obBtnLimpar->setTitle("Clique para limpar os dados dos campos."); +$obBtnLimpar->obEvento->setOnClick("document.frm.reset();"); + +//DEFINICAO DO FORMULARIO +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->setLarguraRotulo( 30 ); +$obFormulario->setLarguraCampo ( 70 ); +$obFormulario->addHidden( $obHdnAcao ); +$obFormulario->addTitulo("Dados para filtro"); +$obFormulario->addComponente($obIntExercicio); +$obFormulario->defineBarra( array( $obBtnOk,$obBtnLimpar )); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasFiscaisLDO.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasFiscaisLDO.php new file mode 100644 index 0000000..805efc9 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasFiscaisLDO.php @@ -0,0 +1,97 @@ + +setName("stAcao"); +$obHdnAcao->setValue($stAcao); + +//DEFINICAO DO FORM +$obForm = new Form; +$obForm->setAction($pgForm); + +$obIntExercicio = new Inteiro(); +$obIntExercicio->setRotulo("Exercício de configurações para Metas Fiscais LDO."); +$obIntExercicio->setTitle ("Informe o exercício de vigência das configurações de Metas Fiscais LDO."); +$obIntExercicio->setName ("inExercicio"); +$obIntExercicio->setNull (false); +$obIntExercicio->setSize (5); +$obIntExercicio->setMaxLength(4); + +$obBtnOk = new Ok; + +$obBtnLimpar = new Limpar(); +$obBtnLimpar->setName ("btnLimpar"); +$obBtnLimpar->setValue("Limpar"); +$obBtnLimpar->setTitle("Clique para limpar os dados dos campos."); +$obBtnLimpar->obEvento->setOnClick("document.frm.reset();"); + +//DEFINICAO DO FORMULARIO +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->setLarguraRotulo( 30 ); +$obFormulario->setLarguraCampo ( 70 ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addTitulo ("Dados para filtro"); +$obFormulario->addComponente ($obIntExercicio); +$obFormulario->defineBarra ( array( $obBtnOk,$obBtnLimpar )); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterDividaFundada.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterDividaFundada.php new file mode 100644 index 0000000..772f5f9 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterDividaFundada.php @@ -0,0 +1,103 @@ + +setAction( $pgList ); +$obForm->setTarget( "telaPrincipal" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "stCtrl" ); + +$obEntidade = new ITextBoxSelectEntidadeUsuario; +$obEntidade->setNull ( false ); + +$obIntExercicio = new Inteiro(); +$obIntExercicio->setRotulo ( "Exercício de configurações para Dados da Dívida Consolidada." ); +$obIntExercicio->setTitle ( "Informe o exercício de vigência das configurações de Dados da Dívida Consolidada." ); +$obIntExercicio->setId ( "inExercicio" ); +$obIntExercicio->setName ( "inExercicio" ); +$obIntExercicio->setValue ( Sessao::getExercicio() ); +$obIntExercicio->setNull ( false ); +$obIntExercicio->setSize ( 5 ); +$obIntExercicio->setMaxLength ( 4 ); + +$obRadIncluir = new Radio(); +$obRadIncluir->setRotulo('Ação'); +$obRadIncluir->setId ('stControleAcao'); +$obRadIncluir->setName ('stControleAcao'); +$obRadIncluir->setValue ('incluir'); +$obRadIncluir->setLabel ('Incluir'); + +$obRadAlterar = new Radio(); +$obRadAlterar->setId ('stControleAcao'); +$obRadAlterar->setName ('stControleAcao'); +$obRadAlterar->setValue ('alterar'); +$obRadAlterar->setLabel ('Alterar'); +$obRadAlterar->setChecked (true); + +$arRadControleAcao = array($obRadIncluir, $obRadAlterar); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addTitulo ( "Dados para filtro" ); +$obFormulario->addComponente ( $obEntidade ); +$obFormulario->addComponente ( $obIntExercicio ); +$obFormulario->agrupaComponentes ( $arRadControleAcao ); + +$obFormulario->OK(); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacao.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacao.php new file mode 100644 index 0000000..f60f594 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacao.php @@ -0,0 +1,126 @@ + +setName ( "stAcao" ); +$obHdnAcao->setValue ( $stAcao ); + +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setValue( "" ); + +$obForm = new Form; +$obForm->setAction ( $pgList ); + +/// Entidade +$obEntidadeUsuario = new ISelectMultiploEntidadeUsuario; +$obEntidadeUsuario->setNull(true); + +//Define objeto de select critério julgamento +$obISelectCriterioJulgamento = new ISelectCriterioJulgamento(); + +//Define objeto de select tipo Objeto +$obISelectTipoObjeto = new ISelectTipoObjeto(); + +//Define objeto de popup objeto +$obPopUpObjeto = new IPopUpObjeto($obForm); + +//Define objeto de select tipo licitacao +$obISelectTipoLicitacao = new ISelectTipoLicitacao(); + +$obPopUpMapa = new IPopUpMapaCompras($obForm); + +$obPeriodicidade = new Periodicidade(); +$obPeriodicidade->setExercicio ( Sessao::getExercicio() ); +if ($stAcao!='consultar' OR $stAcao!='alterar' or $stAcao!= 'anular') { + $obPeriodicidade->setValidaExercicio( true ); +} +$obPeriodicidade->setNull ( true ); +$obPeriodicidade->setValue( 4 ); + +$obPopUpProcesso = new IPopUpProcesso($obForm); + +$obMontaLicitacao = new IMontaNumeroLicitacaoMultiploEntidadeUsuario($obForm); + +//Definição do Formulário +$obFormulario = new Formulario; +$obFormulario->addTitulo ( "Dados Para o Filtro" ); +$obFormulario->addForm ( $obForm ); +$obFormulario->setAjuda ( "UC-03.05.15" ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obMontaLicitacao->geraFormulario ( $obFormulario ); +$obFormulario->addComponente ( $obPopUpProcesso ); +$obFormulario->addComponente ( $obPopUpMapa ); +$obFormulario ->addComponente ( $obPeriodicidade ); +$obFormulario->addComponente ( $obISelectTipoLicitacao ); +$obFormulario->addComponente ( $obISelectCriterioJulgamento ); +$obFormulario->addComponente ( $obISelectTipoObjeto ); +$obFormulario->addComponente ( $obPopUpObjeto ); +$obFormulario->OK(); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacaoDispensa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacaoDispensa.php new file mode 100644 index 0000000..4ec93af --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacaoDispensa.php @@ -0,0 +1,126 @@ + +setName ( "stAcao" ); +$obHdnAcao->setValue ( $stAcao ); + +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setValue( "" ); + +$obForm = new Form; +$obForm->setAction ( $pgList ); + +/// Entidade +$obEntidadeUsuario = new ISelectMultiploEntidadeUsuario; +$obEntidadeUsuario->setNull(true); + +//Define objeto de select critério julgamento +$obISelectCriterioJulgamento = new ISelectCriterioJulgamento(); + +//Define objeto de select tipo Objeto +$obISelectTipoObjeto = new ISelectTipoObjeto(); + +//Define objeto de popup objeto +$obPopUpObjeto = new IPopUpObjeto($obForm); + +//Define objeto de select tipo licitacao +$obISelectTipoLicitacao = new ISelectTipoLicitacao(); + +$obPopUpMapa = new IPopUpMapaCompras($obForm); + +$obPeriodicidade = new Periodicidade(); +$obPeriodicidade->setExercicio ( Sessao::getExercicio() ); +if ($stAcao!='consultar' OR $stAcao!='alterar' or $stAcao!= 'anular') { + $obPeriodicidade->setValidaExercicio( true ); +} +$obPeriodicidade->setNull ( true ); +$obPeriodicidade->setValue( 4 ); + +$obPopUpProcesso = new IPopUpProcesso($obForm); + +$obMontaLicitacao = new IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa($obForm); + +//Definição do Formulário +$obFormulario = new Formulario; +$obFormulario->addTitulo ( "Dados Para o Filtro" ); +$obFormulario->addForm ( $obForm ); +$obFormulario->setAjuda ( "UC-03.05.15" ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obMontaLicitacao->geraFormulario ( $obFormulario ); +$obFormulario->addComponente ( $obPopUpProcesso ); +$obFormulario->addComponente ( $obPopUpMapa ); +$obFormulario ->addComponente ( $obPeriodicidade ); +$obFormulario->addComponente ( $obISelectTipoLicitacao ); +$obFormulario->addComponente ( $obISelectCriterioJulgamento ); +$obFormulario->addComponente ( $obISelectTipoObjeto ); +$obFormulario->addComponente ( $obPopUpObjeto ); +$obFormulario->OK(); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterApcaaaa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterApcaaaa.php index b17e559..b6848b7 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterApcaaaa.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterApcaaaa.php @@ -31,7 +31,7 @@ * @ignore - * $Id: FMManterApcaaaa.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: FMManterApcaaaa.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso : uc-06.04.00 */ @@ -82,7 +82,7 @@ $obCmbTipoLancamento->addOption ('1','Dívida Ativa Tributária'); $obCmbTipoLancamento->addOption ('2','Dívida Ativa Não Tributária'); $obCmbTipoLancamento->addOption ('3','Valores (Ações, etc..)'); $obCmbTipoLancamento->addOption ('4','Diversos (Cotas Consórcio, etc...)'); -$obCmbTipoLancamento->obEvento->setOnChange("montaParametrosGET('preencheLista','inTipoLancamento','true');"); +$obCmbTipoLancamento->obEvento->setOnChange("montaParametrosGET('preencheLista','inTipoLancamento');"); $obBscConta = new BuscaInner; $obBscConta->setRotulo ( "Conta" ); @@ -97,12 +97,12 @@ $obBscConta->obCampoCod->setId ( "inCodConta" ); $obBscConta->obCampoCod->setNull ( true ); $obBscConta->obCampoCod->setValue ( $inCodConta ); $obBscConta->obCampoCod->setAlign ( "left" ); -$obBscConta->obCampoCod->obEvento->setOnChange("montaParametrosGET('buscaEstrutural','inTipoLancamento,inCodConta','true');"); +$obBscConta->obCampoCod->obEvento->setOnChange("montaParametrosGET('buscaEstrutural','inTipoLancamento,inCodConta');"); $obBscConta->setFuncaoBusca("abrePopUp('".CAM_GF_CONT_POPUPS."planoConta/FLPlanoConta.php','frm','inCodConta','stConta','conta_analitica_estrutural','".Sessao::getId()."&inCodIniEstrutural=1&tipoBusca2=Apcaaaa','800','550');"); $obBtnOk = new Button(); $obBtnOk->setValue('Incluir'); -$obBtnOk->obEvento->setOnClick("montaParametrosGET('incluirConta','inTipoLancamento,inCodConta','true');"); +$obBtnOk->obEvento->setOnClick("montaParametrosGET('incluirConta','inTipoLancamento,inCodConta');"); $obBtnLimpar = new Button(); $obBtnLimpar->setValue('Limpar'); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLOA.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLOA.php new file mode 100644 index 0000000..6f95f33 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLOA.php @@ -0,0 +1,124 @@ + +get('stAcao') == '') { + $stAcao = 'manter'; +} else { + $stAcao = $request->get('stAcao'); +} + +//****************************************// +//Define COMPONENTES DO FORMULARIO +//****************************************// +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "stCtrl" ); + +### Leis de Alteracao do PPA ### +$obIBuscaInnerLeiAlteracaoPPA = new IBuscaInnerNorma(false,true); +$obIBuscaInnerLeiAlteracaoPPA->obBscNorma->setRotulo('Lei Orçamentária Anual'); + +### 1 – Abertura de créditos suplementares (deve permitir digitação do percentual ) +$obPorSuplementacao = new Porcentagem(); +$obPorSuplementacao->setRotulo('Percentual de suplementação'); +$obPorSuplementacao->setName ('nuPorSuplementacao'); +$obPorSuplementacao->setId ('nuPorSuplementacao'); + +### 2 – Contratação de operações de crédito (deve permitir digitação do percentual ) +$obPorCreditoInterna = new Porcentagem(); +$obPorCreditoInterna->setRotulo('Percentual de Operações de Crédito Interna'); +$obPorCreditoInterna->setName ('nuPorCreditoInterna'); +$obPorCreditoInterna->setId ('nuPorCreditoInterna'); + +### 3 – Contratação de operações de crédito por antecipação de receita (deve permitir digitação do percentual ) +$obPorCreditoAntecipacaoReceita = new Porcentagem(); +$obPorCreditoAntecipacaoReceita->setRotulo('Percentual de Operações de Crédito por Antecipação de Receita'); +$obPorCreditoAntecipacaoReceita->setName ('nuPorCreditoAntecipacaoReceita'); +$obPorCreditoAntecipacaoReceita->setId ('nuPorCreditoAntecipacaoReceita'); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addTitulo ( "Dados para Configuração de LOA" ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); +$obIBuscaInnerLeiAlteracaoPPA->geraFormulario($obFormulario); +$obFormulario->addTitulo ( "Percentuais Autorizados LOA" ); +$obFormulario->addComponente ( $obPorSuplementacao ); +$obFormulario->addComponente ( $obPorCreditoInterna ); +$obFormulario->addComponente ( $obPorCreditoAntecipacaoReceita ); + +$obFormulario->OK(); +$obFormulario->show(); + +processarForm(true,"Form",$stAcao); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisLDO.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisLDO.php new file mode 100644 index 0000000..87e2bb3 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisLDO.php @@ -0,0 +1,145 @@ + +get('stAcao') == '') { + $stAcao = 'incluir'; +} else { + $stAcao = $request->get('stAcao'); +} + +$rsTTCMGOConfiguracaoLeisLDO = new RecordSet(); + +$obTTCMGOConfiguracaoLeisLDO = new TTCMGOConfiguracaoLeisLDO(); +$stFiltro = " AND tipo_configuracao = 'alteracao' "; +$stFiltro .= " AND status = true "; +$obTTCMGOConfiguracaoLeisLDO->recuperaRelacionamento($rsTTCMGOConfiguracaoLeisLDO,$stFiltro); + +while (!$rsTTCMGOConfiguracaoLeisLDO->eof()) { + $arNorma['inCodNorma'] = $rsTTCMGOConfiguracaoLeisLDO->getCampo("cod_norma"); + $arNorma['inCodTipoNorma'] = $rsTTCMGOConfiguracaoLeisLDO->getCampo("cod_tipo_norma"); + + $arNormas[] = $arNorma; + + $rsTTCMGOConfiguracaoLeisLDO->proximo(); +} + +Sessao::write("arCodNorma", $arNormas); + +//****************************************// +//Define COMPONENTES DO FORMULARIO +//****************************************// +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "stCtrl" ); + +### Lei do LDO ### +$obIPopUpLeiLDO = new IPopUpNorma(); +$obIPopUpLeiLDO->obInnerNorma->setId('stNomeLeiLDO'); +$obIPopUpLeiLDO->obInnerNorma->obCampoCod->stId = 'inCodLeiLDO'; +$obIPopUpLeiLDO->obInnerNorma->obCampoCod->setName( "inCodLeiLDO" ); +$obIPopUpLeiLDO->obInnerNorma->setRotulo("Lei do LDO"); + +### Leis de Alteracao do LDO ### +$obIPopUpLeiAlteracaoLDO = new IBuscaInnerNorma(false,true); +$obIPopUpLeiAlteracaoLDO->obBscNorma->setRotulo('Lei Alteração LDO'); + +$obSpnNormasFundamentacaoLegal = new Span(); +$obSpnNormasFundamentacaoLegal->setId("spnFundamentacaoLegal"); + +$obBtnIncluirNorma = new Button; +$obBtnIncluirNorma->setName ( "btIncluirNorma" ); +$obBtnIncluirNorma->setId ( "btIncluirNorma" ); +$obBtnIncluirNorma->setValue ( "Incluir" ); +$obBtnIncluirNorma->obEvento->setOnClick( "buscaValor('incluirNorma');" ); +$obBtnIncluirNorma->setTitle ( "Clique para incluir a norma na lista de Normas/Fundamentação Legal" ); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addTitulo ( "Dados para Configuração de Leis do LDO" ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); + +$obIPopUpLeiLDO->geraFormulario($obFormulario); +$obFormulario->addTitulo ( "Dados para Configuração de Leis de Alteração do LDO" ); +$obIPopUpLeiAlteracaoLDO->geraFormulario($obFormulario); +$obFormulario->addComponente($obBtnIncluirNorma); +$obFormulario->addSpan($obSpnNormasFundamentacaoLegal); +$obFormulario->OK(); +$obFormulario->show(); + +processarForm(true,"Form",$stAcao); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisPPA.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisPPA.php new file mode 100644 index 0000000..b680436 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisPPA.php @@ -0,0 +1,182 @@ + +get('stAcao') == '' || $request->get('stAcao') == 'manter') { + $stAcao = 'incluir'; +} else { + $stAcao = $request->get('stAcao'); +} + +$rsTTCMGOConfiguracaoLeisPPA = new RecordSet(); + +include_once(CAM_GPC_TGO_MAPEAMENTO."TTCMGOConfiguracaoLeisPPA.class.php"); +$obTTCMGOConfiguracaoLeisPPA = new TTCMGOConfiguracaoLeisPPA(); +$stFiltro = " AND tipo_configuracao = 'alteracao' "; +$stFiltro .= " AND status = true "; +$obTTCMGOConfiguracaoLeisPPA->recuperaRelacionamento($rsTTCMGOConfiguracaoLeisPPA,$stFiltro); + +while (!$rsTTCMGOConfiguracaoLeisPPA->eof()) { + $arNorma['inCodNorma'] = $rsTTCMGOConfiguracaoLeisPPA->getCampo("cod_norma"); + $arNorma['inCodTipoNorma'] = $rsTTCMGOConfiguracaoLeisPPA->getCampo("cod_tipo_norma"); + + $arNormas[] = $arNorma; + + $rsTTCMGOConfiguracaoLeisPPA->proximo(); +} + +Sessao::write("arCodNorma", $arNormas); + +//****************************************// +//Define COMPONENTES DO FORMULARIO +//****************************************// +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "stCtrl" ); + +### Lei do PPA ### +$obLblLeiPPA = new Label; +$obLblLeiPPA->setRotulo ( "Lei do PPA" ); +$obLblLeiPPA->setId ( "stNomeLeiPPA" ); +$obLblLeiPPA->setName ( "stNomeLeiPPA" ); + +### Leis de Alteracao do PPA ### +$obIPopUpLeiAlteracaoPPA = new IBuscaInnerNorma(false,true); +$obIPopUpLeiAlteracaoPPA->obBscNorma->setRotulo('Lei Alteração PPA'); + +$obSpnNormasFundamentacaoLegal = new Span(); +$obSpnNormasFundamentacaoLegal->setId("spnFundamentacaoLegal"); + +$obBtnIncluirNorma = new Button; +$obBtnIncluirNorma->setName ( "btIncluirNorma" ); +$obBtnIncluirNorma->setId ( "btIncluirNorma" ); +$obBtnIncluirNorma->setValue ( "Incluir" ); +$obBtnIncluirNorma->obEvento->setOnClick( "buscaValor('incluirNorma');" ); +$obBtnIncluirNorma->setTitle ( "Clique para incluir a norma na lista de Normas/Fundamentação Legal" ); + +//Lista de Publicidade TCM +$arPubLei = array(); +$arPubLei[0]['cod_publicidade'] = 1; +$arPubLei[0]['descricao'] = 'Diário Oficial do Estado'; +$arPubLei[1]['cod_publicidade'] = 2; +$arPubLei[1]['descricao'] = 'Diário Oficial do Município'; +$arPubLei[2]['cod_publicidade'] = 3; +$arPubLei[2]['descricao'] = 'Placar da Prefeitura ou da Câmara Municipal'; +$arPubLei[3]['cod_publicidade'] = 4; +$arPubLei[3]['descricao'] = 'Jornal de grande circulação'; +$arPubLei[4]['cod_publicidade'] = 5; +$arPubLei[4]['descricao'] = 'Diário Oficial da União'; +$arPubLei[5]['cod_publicidade'] = 9; +$arPubLei[5]['descricao'] = 'Endereço eletrônico completo (Internet)'; + +$rsPubLei = new RecordSet(); +$rsPubLei->preenche($arPubLei); + +//Painel veiculos de publicidade +$obCmbPubLeiAlteracao = new Select; +$obCmbPubLeiAlteracao->setName ( "codPubLeiAlteracao" ); +$obCmbPubLeiAlteracao->setRotulo ( "*Veículo de Publicação" ); +$obCmbPubLeiAlteracao->setId ( "codPubLeiAlteracao" ); +$obCmbPubLeiAlteracao->setCampoId ( "cod_publicidade" ); +$obCmbPubLeiAlteracao->setCampoDesc ( "descricao" ); +$obCmbPubLeiAlteracao->addOption ( '','Selecione' ); +$obCmbPubLeiAlteracao->preencheCombo( $rsPubLei ); +$obCmbPubLeiAlteracao->setNull ( true ); +$obCmbPubLeiAlteracao->setValue ( '' ); +$obCmbPubLeiAlteracao->obEvento->setOnChange ("montaParametrosGET('carregaLeiAlteracao','codPubLeiAlteracao');"); + + +$obSpnPubLeiAlteracao = new Span(); +$obSpnPubLeiAlteracao->setId("spnPubLeiAlteracao"); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addTitulo ( "Dados para Configuração de Leis do PPA" ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); + +$obFormulario->addComponente ( $obLblLeiPPA ); +$obFormulario->addTitulo ( "Dados para Configuração de Leis de Alteração do PPA" ); +$obIPopUpLeiAlteracaoPPA->geraFormulario($obFormulario ); +$obFormulario->addComponente ( $obCmbPubLeiAlteracao ); +$obFormulario->addSpan ($obSpnPubLeiAlteracao ); +$obFormulario->addComponente ($obBtnIncluirNorma ); +$obFormulario->addSpan ($obSpnNormasFundamentacaoLegal ); +$obFormulario->OK(); +$obFormulario->show(); + +processarForm(true,"Form",$stAcao); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasArrecadacaoReceita.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasArrecadacaoReceita.php new file mode 100644 index 0000000..fb75f77 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasArrecadacaoReceita.php @@ -0,0 +1,184 @@ + +setDado('exercicio',$_REQUEST['inExercicio']); +$obTTCMGOMetasArrecadacaoReceita->recuperaMetasArrecadacaoReceita($rsTTCMGOMetasArrecadacaoReceita); + +if ($rsTTCMGOMetasArrecadacaoReceita->getNumLinhas() > 0) { + $vlMetaArrecadacao1Bi = number_format($rsTTCMGOMetasArrecadacaoReceita->getCampo('meta_arrecadacao_1_bi'),2,",","."); + $vlMetaArrecadacao2Bi = number_format($rsTTCMGOMetasArrecadacaoReceita->getCampo('meta_arrecadacao_2_bi'),2,",","."); + $vlMetaArrecadacao3Bi = number_format($rsTTCMGOMetasArrecadacaoReceita->getCampo('meta_arrecadacao_3_bi'),2,",","."); + $vlMetaArrecadacao4Bi = number_format($rsTTCMGOMetasArrecadacaoReceita->getCampo('meta_arrecadacao_4_bi'),2,",","."); + $vlMetaArrecadacao5Bi = number_format($rsTTCMGOMetasArrecadacaoReceita->getCampo('meta_arrecadacao_5_bi'),2,",","."); + $vlMetaArrecadacao6Bi = number_format($rsTTCMGOMetasArrecadacaoReceita->getCampo('meta_arrecadacao_6_bi'),2,",","."); + +} else { + $vlMetaArrecadacao1Bi = '0,00'; + $vlMetaArrecadacao2Bi = '0,00'; + $vlMetaArrecadacao3Bi = '0,00'; + $vlMetaArrecadacao4Bi = '0,00'; + $vlMetaArrecadacao5Bi = '0,00'; + $vlMetaArrecadacao6Bi = '0,00'; +} + +//****************************************// +//Define COMPONENTES DO FORMULARIO +//****************************************// +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "stCtrl" ); + +$obHdnStExercicio = new Hidden(); +$obHdnStExercicio->setName('stExercicio'); +$obHdnStExercicio->setValue($_REQUEST['inExercicio']); + +//****************************************// +//Monta valores dos Bimestres +//****************************************// +$obValorMetaArrecadacao1Bi = new Numerico(); +$obValorMetaArrecadacao1Bi->setId ('valorMetaArrecadacao1Bi'); +$obValorMetaArrecadacao1Bi->setName ('valorMetaArrecadacao1Bi'); +$obValorMetaArrecadacao1Bi->setRotulo('Meta de arrecadação do 1º Bimestre'); +$obValorMetaArrecadacao1Bi->setTitle ('Informar o valor da meta de arrecadação do 1º bimestre.'); +$obValorMetaArrecadacao1Bi->setDecimais(2); +$obValorMetaArrecadacao1Bi->setMaxLength(15); +$obValorMetaArrecadacao1Bi->setSize(17); +$obValorMetaArrecadacao1Bi->setValue($vlMetaArrecadacao1Bi); + +$obValorMetaArrecadacao2Bi = new Numerico(); +$obValorMetaArrecadacao2Bi->setId ('valorMetaArrecadacao2Bi'); +$obValorMetaArrecadacao2Bi->setName ('valorMetaArrecadacao2Bi'); +$obValorMetaArrecadacao2Bi->setRotulo('Meta de arrecadação do 2º Bimestre'); +$obValorMetaArrecadacao2Bi->setTitle ('Informar o valor da meta de arrecadação do 2º bimestre.'); +$obValorMetaArrecadacao2Bi->setDecimais(2); +$obValorMetaArrecadacao2Bi->setMaxLength(15); +$obValorMetaArrecadacao2Bi->setSize(17); +$obValorMetaArrecadacao2Bi->setValue($vlMetaArrecadacao2Bi); + +$obValorMetaArrecadacao3Bi = new Numerico(); +$obValorMetaArrecadacao3Bi->setId ('valorMetaArrecadacao3Bi'); +$obValorMetaArrecadacao3Bi->setName ('valorMetaArrecadacao3Bi'); +$obValorMetaArrecadacao3Bi->setRotulo('Meta de arrecadação do 3º Bimestre'); +$obValorMetaArrecadacao3Bi->setTitle ('Informar o valor da meta de arrecadação do 3º bimestre.'); +$obValorMetaArrecadacao3Bi->setDecimais(2); +$obValorMetaArrecadacao3Bi->setMaxLength(15); +$obValorMetaArrecadacao3Bi->setSize(17); +$obValorMetaArrecadacao3Bi->setValue($vlMetaArrecadacao3Bi); + +$obValorMetaArrecadacao4Bi = new Numerico(); +$obValorMetaArrecadacao4Bi->setId ('valorMetaArrecadacao4Bi'); +$obValorMetaArrecadacao4Bi->setName ('valorMetaArrecadacao4Bi'); +$obValorMetaArrecadacao4Bi->setRotulo('Meta de arrecadação do 4º Bimestre'); +$obValorMetaArrecadacao4Bi->setTitle ('Informar o valor da meta de arrecadação do 4º bimestre.'); +$obValorMetaArrecadacao4Bi->setDecimais(2); +$obValorMetaArrecadacao4Bi->setMaxLength(15); +$obValorMetaArrecadacao4Bi->setSize(17); +$obValorMetaArrecadacao4Bi->setValue($vlMetaArrecadacao4Bi); + +$obValorMetaArrecadacao5Bi = new Numerico(); +$obValorMetaArrecadacao5Bi->setId ('valorMetaArrecadacao5Bi'); +$obValorMetaArrecadacao5Bi->setName ('valorMetaArrecadacao5Bi'); +$obValorMetaArrecadacao5Bi->setRotulo('Meta de arrecadação do 5º Bimestre'); +$obValorMetaArrecadacao5Bi->setTitle ('Informar o valor da meta de arrecadação do 5º bimestre.'); +$obValorMetaArrecadacao5Bi->setDecimais(2); +$obValorMetaArrecadacao5Bi->setMaxLength(15); +$obValorMetaArrecadacao5Bi->setSize(17); +$obValorMetaArrecadacao5Bi->setValue($vlMetaArrecadacao5Bi); + +$obValorMetaArrecadacao6Bi = new Numerico(); +$obValorMetaArrecadacao6Bi->setId ('valorMetaArrecadacao6Bi'); +$obValorMetaArrecadacao6Bi->setName ('valorMetaArrecadacao6Bi'); +$obValorMetaArrecadacao6Bi->setRotulo('Meta de arrecadação do 6º Bimestre'); +$obValorMetaArrecadacao6Bi->setTitle ('Informar o valor da meta de arrecadação do 6º bimestre.'); +$obValorMetaArrecadacao6Bi->setDecimais(2); +$obValorMetaArrecadacao6Bi->setMaxLength(15); +$obValorMetaArrecadacao6Bi->setSize(17); +$obValorMetaArrecadacao6Bi->setValue($vlMetaArrecadacao6Bi); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnStExercicio ); +$obFormulario->setLarguraRotulo( 30 ); +$obFormulario->setLarguraCampo ( 70 ); +$obFormulario->addTitulo ( "Detalhamento das Metas das Arrecadações de Receitas" ); +$obFormulario->addComponente ( $obValorMetaArrecadacao1Bi ); +$obFormulario->addComponente ( $obValorMetaArrecadacao2Bi ); +$obFormulario->addComponente ( $obValorMetaArrecadacao3Bi ); +$obFormulario->addComponente ( $obValorMetaArrecadacao4Bi ); +$obFormulario->addComponente ( $obValorMetaArrecadacao5Bi ); +$obFormulario->addComponente ( $obValorMetaArrecadacao6Bi ); + +$obFormulario->OK(); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasFiscaisLDO.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasFiscaisLDO.php new file mode 100644 index 0000000..3a63e8a --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasFiscaisLDO.php @@ -0,0 +1,169 @@ + +setDado('exercicio',$request->get('inExercicio')); +$obTTCMGOMetasFiscaisLDO->recuperaValoresMetasFiscaisLDO($rsTTCMGOMetasFiscaisLDO); + +if ($rsTTCMGOMetasFiscaisLDO->getNumLinhas() > 0) { + $vlCorrenteReceita = number_format($rsTTCMGOMetasFiscaisLDO->getCampo('valor_corrente_receita'),2,',','.'); + $vlCorrenteDespesa = number_format($rsTTCMGOMetasFiscaisLDO->getCampo('valor_corrente_despesa'),2,',','.'); + $vlCorrenteResultadoPrimario = number_format($rsTTCMGOMetasFiscaisLDO->getCampo('valor_corrente_resultado_primario'),2,',','.'); + $vlCorrenteResultadoNominal = number_format($rsTTCMGOMetasFiscaisLDO->getCampo('valor_corrente_resultado_nominal'),2,',','.'); + $vlCorrenteDividaConsolidadaLiquida = number_format($rsTTCMGOMetasFiscaisLDO->getCampo('valor_corrente_divida_consolidada_liquida'),2,',','.'); +} else { + $vlCorrenteReceita = '0,00'; + $vlCorrenteDespesa = '0,00'; + $vlCorrenteResultadoPrimario = '0,00'; + $vlCorrenteResultadoNominal = '0,00'; + $vlCorrenteDividaConsolidadaLiquida = '0,00'; +} + +//****************************************// +//Define COMPONENTES DO FORMULARIO +//****************************************// +//Instancia o formulário +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "stCtrl" ); + +$obHdnStExercicio = new Hidden(); +$obHdnStExercicio->setName('stExercicio'); +$obHdnStExercicio->setValue($request->get('inExercicio')); + +//****************************************// +//Monta valores Correntes +//****************************************// +$obFlValorCorrenteReceita = new Numerico(); +$obFlValorCorrenteReceita->setId ( 'flValorCorrenteReceita' ); +$obFlValorCorrenteReceita->setName ( 'flValorCorrenteReceita' ); +$obFlValorCorrenteReceita->setRotulo ( 'Valor Corrente da Receita' ); +$obFlValorCorrenteReceita->setTitle ( 'Informar o valor corrente da Meta Fiscal da Receita.' ); +$obFlValorCorrenteReceita->setDecimais ( 2 ); +$obFlValorCorrenteReceita->setMaxLength ( 15 ); +$obFlValorCorrenteReceita->setSize ( 17 ); +$obFlValorCorrenteReceita->setValue ( $vlCorrenteReceita ); + +$obFlValorCorrenteDespesa = new Numerico(); +$obFlValorCorrenteDespesa->setId ( 'flValorCorrenteDespesa' ); +$obFlValorCorrenteDespesa->setName ( 'flValorCorrenteDespesa' ); +$obFlValorCorrenteDespesa->setRotulo ( 'Valor Corrente da Despesa' ); +$obFlValorCorrenteDespesa->setTitle ( 'Informar o valor corrente da Meta Fiscal da Despesa.' ); +$obFlValorCorrenteDespesa->setDecimais ( 2 ); +$obFlValorCorrenteDespesa->setMaxLength( 15 ); +$obFlValorCorrenteDespesa->setSize ( 17 ); +$obFlValorCorrenteDespesa->setValue ( $vlCorrenteDespesa ); + +$obFlValorCorrenteResultadoPrimario = new Numerico(); +$obFlValorCorrenteResultadoPrimario->setId ( 'flValorCorrenteResultadoPrimario' ); +$obFlValorCorrenteResultadoPrimario->setName ( 'flValorCorrenteResultadoPrimario' ); +$obFlValorCorrenteResultadoPrimario->setRotulo ( 'Valor Corrente do Resultado Primário' ); +$obFlValorCorrenteResultadoPrimario->setTitle ( 'Valor do resultado primário que correspondente a diferença entre a receita primária e despesa primária.' ); +$obFlValorCorrenteResultadoPrimario->setDecimais ( 2 ); +$obFlValorCorrenteResultadoPrimario->setMaxLength ( 15 ); +$obFlValorCorrenteResultadoPrimario->setSize ( 17 ); +$obFlValorCorrenteResultadoPrimario->setValue ($vlCorrenteResultadoPrimario ); + +$obFlValorCorrenteResultadoNominal = new Numerico(); +$obFlValorCorrenteResultadoNominal->setId ( 'flValorCorrenteResultadoNominal' ); +$obFlValorCorrenteResultadoNominal->setName ( 'flValorCorrenteResultadoNominal' ); +$obFlValorCorrenteResultadoNominal->setRotulo ( 'Valor Corrente do Resultado Nominal' ); +$obFlValorCorrenteResultadoNominal->setTitle ( 'Informar o valor corrente da Meta Fiscal esperada para o Resultado Nominal.' ); +$obFlValorCorrenteResultadoNominal->setDecimais ( 2 ); +$obFlValorCorrenteResultadoNominal->setMaxLength ( 15 ); +$obFlValorCorrenteResultadoNominal->setSize ( 17 ); +$obFlValorCorrenteResultadoNominal->setValue ( $vlCorrenteResultadoNominal ); + +$obFlValorCorrenteDividaConsolidadaLiquida = new Numerico(); +$obFlValorCorrenteDividaConsolidadaLiquida->setId ( 'flValorCorrenteDividaConsolidadaLiquida' ); +$obFlValorCorrenteDividaConsolidadaLiquida->setName ( 'flValorCorrenteDividaConsolidadaLiquida' ); +$obFlValorCorrenteDividaConsolidadaLiquida->setRotulo ( 'Valor Corrente da Dívida Consolidada Líquida' ); +$obFlValorCorrenteDividaConsolidadaLiquida->setTitle ( 'Informar o valor corrente da Meta Fiscal para a Dívida Consolidada Líquida do exercício.' ); +$obFlValorCorrenteDividaConsolidadaLiquida->setDecimais ( 2 ); +$obFlValorCorrenteDividaConsolidadaLiquida->setMaxLength ( 15 ); +$obFlValorCorrenteDividaConsolidadaLiquida->setSize ( 17 ); +$obFlValorCorrenteDividaConsolidadaLiquida->setValue ( $vlCorrenteDividaConsolidadaLiquida ); + +//****************************************// +//Monta FORMULARIO +//****************************************// +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnStExercicio ); +$obFormulario->setLarguraRotulo( 30 ); +$obFormulario->setLarguraCampo ( 70 ); +$obFormulario->addTitulo ( "Detalhamento das Metas Fiscais (Valor Corrente)" ); +$obFormulario->addComponente ( $obFlValorCorrenteReceita ); +$obFormulario->addComponente ( $obFlValorCorrenteDespesa ); +$obFormulario->addComponente ( $obFlValorCorrenteResultadoPrimario ); +$obFormulario->addComponente ( $obFlValorCorrenteResultadoNominal ); +$obFormulario->addComponente ( $obFlValorCorrenteDividaConsolidadaLiquida ); + +$obFormulario->OK(); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterDividaFundada.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterDividaFundada.php index e29fa4e..7c1d1a9 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterDividaFundada.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterDividaFundada.php @@ -31,7 +31,7 @@ * @ignore - $Id: FMManterDividaFundada.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterDividaFundada.php 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso : uc-06.04.00 */ @@ -39,7 +39,8 @@ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; include_once( CAM_GF_CONT_NEGOCIO."RContabilidadePlanoBanco.class.php" ); -include_once( TTGO."TTGOTipoConta.class.php" ); +include_once '../../../../../../gestaoFinanceira/fontes/PHP/orcamento/classes/componentes/ITextBoxSelectEntidadeUsuario.class.php'; +require_once '../../../../../../gestaoAdministrativa/fontes/PHP/normas/classes/componentes/IPopUpNorma.class.php'; $stPrograma = "ManterDividaFundada"; $pgFilt = "FL".$stPrograma.".php"; @@ -49,20 +50,11 @@ $pgProc = "PR".$stPrograma.".php"; $pgOcul = "OC".$stPrograma.".php"; $pgJs = "JS".$stPrograma.".js"; -include( $pgJs ); - $stAcao = $request->get('stAcao'); -Sessao::write('arContas', array()); - -$stLocation = $pgList . "?". Sessao::getId() . "&stAcao=" . $stAcao; - -if ($inCodigo) { - $stLocation .= "&inCodigo=$inCodigo"; -} $obForm = new Form; $obForm->setAction( $pgProc ); -$obForm->setTarget( "oculto" ); +$obForm->setTarget( "telaPrincipal" ); $obHdnAcao = new Hidden; $obHdnAcao->setName( "stAcao" ); @@ -72,85 +64,198 @@ $obHdnCtrl = new Hidden; $obHdnCtrl->setName( "stCtrl" ); $obHdnCtrl->setValue( "" ); -$obTTGOTipoConta = new TTGOTipoConta(); -$obTTGOTipoConta->recuperaTodos( $rsTipoLancamento, ' WHERE cod_tipo_lancamento = 2 AND cod_tipo IN (6,7,8) '); +$obEntidadeUsuario = new ITextBoxSelectEntidadeUsuario; +$obEntidadeUsuario->setNull ( true ); +$obEntidadeUsuario->setRotulo( "*Entidade" ); +$obEntidadeUsuario->setCodEntidade($request->get('inCodEntidade')); + +$obHdnCodEntidade = new Hidden; +$obHdnCodEntidade->setName ( "inCodEntidade" ); +$obHdnCodEntidade->setValue ( $request->get('inCodEntidade') ); + +$obInOrgao = new Inteiro; +$obInOrgao->setName ( "inNumOrgao" ); +$obInOrgao->setId ( "inNumOrgao" ); +$obInOrgao->setRotulo ( "Número do Órgão" ); +$obInOrgao->setTitle ( "Informe o número do órgão" ); +$obInOrgao->setValue ( $request->get('inNumOrgao') ); +$obInOrgao->setNull ( false ); +$obInOrgao->setSize ( 10 ); +$obInOrgao->setMaxLength ( 2 ); + +$obInUnidade = new Inteiro; +$obInUnidade->setName ( "inNumUnidade" ); +$obInUnidade->setId ( "inNumUnidade" ); +$obInUnidade->setRotulo ( "Número da Unidade" ); +$obInUnidade->setTitle ( "Informe o número da unidade" ); +$obInUnidade->setValue ( $request->get('inNumUnidade') ); +$obInUnidade->setNull ( false ); +$obInUnidade->setSize ( 10 ); +$obInUnidade->setMaxLength ( 2 ); + +$obTxtExercicio = new TextBox; +$obTxtExercicio->setName ( "stExercicio" ); +$obTxtExercicio->setId ( "stExercicio" ); +$obTxtExercicio->setValue ( $request->get('inExercicio') ); +$obTxtExercicio->setRotulo ( "Exercício" ); +$obTxtExercicio->setTitle ( "Informe o exercício." ); +$obTxtExercicio->setInteiro ( false ); +$obTxtExercicio->setNull ( false ); +$obTxtExercicio->setMaxLength( 4 ); +$obTxtExercicio->setSize ( 5 ); + +if ($stAcao == 'alterar') { + $obNorma = new RNorma; + $obNorma->setCodNorma( $request->get('inCodNorma') ); + $obNorma->listarDecreto( $rsNorma ); + + $inLeiAutorizacao = $request->get('inCodNorma'); + $stNomNorma = $rsNorma->getCampo('nom_tipo_norma')." ".$rsNorma->getCampo('num_norma_exercicio')." - ".$rsNorma->getCampo('nom_norma'); + + if ( !empty($request->get('inNumCgm')) ) + $stNomeCGMCredor = SistemaLegado::pegaDado('nom_cgm','sw_cgm','where numcgm='.$request->get('inNumCgm')); + else + $stNomeCGMCredor = ""; + +} else { + $inLeiAutorizacao = ""; + $stNomNorma = ""; + +} + +$obIPopUpLeiAutorizacao = new IPopUpNorma(); +$obIPopUpLeiAutorizacao->obInnerNorma->setId ( "stNomeLeiAutorizacao" ); +$obIPopUpLeiAutorizacao->obInnerNorma->obCampoCod->setId ( "inCodLeiAutorizacao" ); +$obIPopUpLeiAutorizacao->obInnerNorma->obCampoCod->setName ( "inCodLeiAutorizacao" ); +$obIPopUpLeiAutorizacao->obInnerNorma->setRotulo ( "Lei de Autorização" ); +$obIPopUpLeiAutorizacao->obInnerNorma->setTitle ( "Informe o número de Lei de Autorização"); +$obIPopUpLeiAutorizacao->obInnerNorma->obCampoCod->setValue ( $inLeiAutorizacao ); +$obIPopUpLeiAutorizacao->obInnerNorma->setValue ( $stNomNorma ); + +$obBscCGM = new IPopUpCGM($obForm); +$obBscCGM->setId ( 'stNomeCGM' ); +$obBscCGM->setRotulo ( 'Credor' ); +$obBscCGM->setTipo ( 'fisica' ); +$obBscCGM->setTitle ( 'Nome, denominação ou razão social da entidade (credora da dívida) '); +$obBscCGM->setValue ( $stNomeCGMCredor ); +$obBscCGM->obCampoCod->setName ( 'inCGM' ); +$obBscCGM->obCampoCod->setId ( 'inCGM' ); +$obBscCGM->obCampoCod->setSize ( 8 ); +$obBscCGM->obCampoCod->setValue ( $request->get('inNumCgm') ); +$obBscCGM->setNull ( true ); $obCmbTipoLancamento = new Select(); -$obCmbTipoLancamento->setName ( 'inTipoLancamento' ); -$obCmbTipoLancamento->setId ( 'inTipoLancamento' ); -$obCmbTipoLancamento->setRotulo ( 'Tipo de Lançamento' ); -$obCmbTipoLancamento->setNull ( false ); -$obCmbTipoLancamento->setValue ( '' ); -$obCmbTipoLancamento->addOption ( '', 'Selecione' ); -$obCmbTipoLancamento->setCampoId( 'cod_tipo' ); -$obCmbTipoLancamento->setCampoDesc( 'descricao' ); -$obCmbTipoLancamento->preencheCombo( $rsTipoLancamento ); -$obCmbTipoLancamento->obEvento->setOnChange("montaParametrosGET('preencheLista','inTipoLancamento','true');"); - -$obRContabilidadePlanoBanco = new RContabilidadePlanoBanco; - -//Recupera Mascara -$obRContabilidadePlanoBanco->setExercicio( Sessao::getExercicio() ); -$obRContabilidadePlanoBanco->recuperaMascaraConta( $stMascara ); - -$obBscConta = new BuscaInner; -$obBscConta->setRotulo ( "Conta" ); -$obBscConta->setTitle ( "Informe a conta." ); -$obBscConta->setObrigatorioBarra ( true ); -$obBscConta->setNull( true ); -$obBscConta->setId ( "stConta" ); -$obBscConta->setName ( "stConta" ); -$obBscConta->setValue ( $stConta ); -$obBscConta->obCampoCod->setName ( "inCodConta" ); -$obBscConta->obCampoCod->setId ( "inCodConta" ); -$obBscConta->obCampoCod->setNull ( true ); -$obBscConta->obCampoCod->setValue ( $inCodConta ); -$obBscConta->obCampoCod->setMascara ( $stMascara ); -$obBscConta->obCampoCod->setPreencheComZeros( 'D' ); -$obBscConta->obCampoCod->obEvento->setOnKeyPress( "return validaExpressao( this, event, '[0-9.]');" ); -$obBscConta->obCampoCod->setAlign ( "left" ); -$obBscConta->obCampoCod->obEvento->setOnChange("montaParametrosGET('buscaEstrutural','inCodConta','true');"); -$obBscConta->setFuncaoBusca("abrePopUp('".CAM_GF_CONT_POPUPS."planoConta/FLPlanoConta.php','frm','inCodConta','stConta','conta_analitica_estrutural','".Sessao::getId()."&inCodIniEstrutural=2','800','550');"); - -$obTxtNumeroLei = new Inteiro(); -$obTxtNumeroLei->setRotulo( 'Lei de Autorização' ); -$obTxtNumeroLei->setName( 'inNumeroLei' ); -$obTxtNumeroLei->setId( 'inNumeroLei' ); -$obTxtNumeroLei->setMaxLength( 10 ); -$obTxtNumeroLei->setObrigatorioBarra( true ); - -$obData = new Data(); -$obData->setName( 'stData' ); -$obData->setId( 'stData' ); -$obData->setRotulo( 'Data' ); -$obData->setTitle( 'Data' ); -$obData->setObrigatorioBarra( true ); - -$obBtnOk = new Button(); -$obBtnOk->setValue('Incluir'); -$obBtnOk->obEvento->setOnClick("montaParametrosGET('incluirConta','inTipoLancamento,inCodConta,inNumeroLei,stData','true');"); - -$obBtnLimpar = new Button(); -$obBtnLimpar->setValue('Limpar'); -$obBtnLimpar->obEvento->setOnClick("limpaConta();"); - -$obSpnContas = new Span(); -$obSpnContas->setId('spnContas'); +$obCmbTipoLancamento->setName ( 'inTipoLancamento' ); +$obCmbTipoLancamento->setId ( 'inTipoLancamento' ); +$obCmbTipoLancamento->setRotulo ( 'Tipo de Lançamento' ); +$obCmbTipoLancamento->setNull ( false ); +$obCmbTipoLancamento->addOption ( '','Selecione' ); +$obCmbTipoLancamento->addOption ( '1','1 - Dívida Fundada Interna' ); +$obCmbTipoLancamento->addOption ( '2','2 - Dívida Fundada Externa' ); +$obCmbTipoLancamento->addOption ( '3','3 - Diversos' ); +$obCmbTipoLancamento->setValue ( $request->get('inCodTipoLancamento') ); + +$obFlValorSaldoAnterior = new Numerico(); +$obFlValorSaldoAnterior->setId ( "flValorSaldoAnterior" ); +$obFlValorSaldoAnterior->setName ( "flValorSaldoAnterior" ); +$obFlValorSaldoAnterior->setRotulo ( "Valor do Saldo Anterior" ); +$obFlValorSaldoAnterior->setTitle ( "Informe Valor do Saldo Anterior." ); +$obFlValorSaldoAnterior->setValue ( $request->get('vlSaldoAnterior') ); +$obFlValorSaldoAnterior->setNull ( false ); +$obFlValorSaldoAnterior->setDecimais ( 2 ); +$obFlValorSaldoAnterior->setMaxLength ( 16 ); +$obFlValorSaldoAnterior->setSize ( 17 ); + +$obFlValorContratacao = new Numerico(); +$obFlValorContratacao->setId ( "flValorContratacao" ); +$obFlValorContratacao->setName ( "flValorContratacao" ); +$obFlValorContratacao->setRotulo ( "Valor de Contratação" ); +$obFlValorContratacao->setTitle ( "Informe o Valor de Contratação." ); +$obFlValorContratacao->setNull ( false ); +$obFlValorContratacao->setValue ( $request->get('vlContratacao') ); +$obFlValorContratacao->setDecimais ( 2 ); +$obFlValorContratacao->setMaxLength ( 16 ); +$obFlValorContratacao->setSize ( 17 ); + +$obFlValorAmortizacao = new Numerico(); +$obFlValorAmortizacao->setId ( "flValorAmortizacao" ); +$obFlValorAmortizacao->setName ( "flValorAmortizacao" ); +$obFlValorAmortizacao->setRotulo ( "Valor de Amortização" ); +$obFlValorAmortizacao->setTitle ( "Informe o Valor de Amortização." ); +$obFlValorAmortizacao->setValue ( $request->get('vlAmortizacao') ); +$obFlValorAmortizacao->setNull ( false ); +$obFlValorAmortizacao->setDecimais ( 2 ); +$obFlValorAmortizacao->setMaxLength ( 16 ); +$obFlValorAmortizacao->setSize ( 17 ); + +$obFlValorCancelamento = new Numerico(); +$obFlValorCancelamento->setId ( "flValorCancelamento" ); +$obFlValorCancelamento->setName ( "flValorCancelamento" ); +$obFlValorCancelamento->setRotulo ( "Valor de Cancelamento" ); +$obFlValorCancelamento->setTitle ( "Informe o Valor de Cancelamento." ); +$obFlValorCancelamento->setValue ( $request->get('vlCancelamento') ); +$obFlValorCancelamento->setNull ( false ); +$obFlValorCancelamento->setDecimais ( 2 ); +$obFlValorCancelamento->setMaxLength ( 16 ); +$obFlValorCancelamento->setSize ( 17 ); + +$obFlValorEncampacao = new Numerico(); +$obFlValorEncampacao->setId ( "flValorEncampacao" ); +$obFlValorEncampacao->setName ( "flValorEncampacao" ); +$obFlValorEncampacao->setRotulo ( "Valor de Encampação" ); +$obFlValorEncampacao->setTitle ( "Informe o Valor de Encampação." ); +$obFlValorEncampacao->setValue ( $request->get('vlEncampacao') ); +$obFlValorEncampacao->setNull ( false ); +$obFlValorEncampacao->setDecimais ( 2 ); +$obFlValorEncampacao->setMaxLength ( 16 ); +$obFlValorEncampacao->setSize ( 17 ); + +$obFlValorCorrecao = new Numerico(); +$obFlValorCorrecao->setId ( "flValorCorrecao" ); +$obFlValorCorrecao->setName ( "flValorCorrecao" ); +$obFlValorCorrecao->setRotulo ( "Valor da Correção" ); +$obFlValorCorrecao->setTitle ( "Informe o Valor da Correção." ); +$obFlValorCorrecao->setValue ( $request->get('vlCorrecao') ); +$obFlValorCorrecao->setNull ( false ); +$obFlValorCorrecao->setDecimais ( 2 ); +$obFlValorCorrecao->setMaxLength ( 16 ); +$obFlValorCorrecao->setSize ( 17 ); + +$obFlValorSaldoAtual = new Numerico(); +$obFlValorSaldoAtual->setId ( "flValorSaldoAtual" ); +$obFlValorSaldoAtual->setName ( "flValorSaldoAtual" ); +$obFlValorSaldoAtual->setRotulo ( "Valor do Saldo Atual" ); +$obFlValorSaldoAtual->setTitle ( "Informe o Valor do Saldo Atual." ); +$obFlValorSaldoAtual->setValue ( $request->get('vlSaldoAtual') ); +$obFlValorSaldoAtual->setNull ( false ); +$obFlValorSaldoAtual->setDecimais ( 2 ); +$obFlValorSaldoAtual->setMaxLength ( 16 ); +$obFlValorSaldoAtual->setSize ( 17 ); //DEFINICAO DOS COMPONENTES $obFormulario = new Formulario(); -$obFormulario->addForm ($obForm); -$obFormulario->addHidden ($obHdnAcao); -$obFormulario->addHidden ($obHdnCtrl); -$obFormulario->addTitulo ( "Tipo de Conta" ); -$obFormulario->addComponente ($obCmbTipoLancamento); -$obFormulario->addTitulo ( "Conta" ); -$obFormulario->addComponente ($obBscConta); -$obFormulario->addComponente ($obTxtNumeroLei); -$obFormulario->addComponente ($obData); -$obFormulario->agrupaComponentes (array($obBtnOk,$obBtnLimpar)); -$obFormulario->addSpan ($obSpnContas); -$obFormulario->OK (); +$obFormulario->addForm ( $obForm ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnCodEntidade ); +$obFormulario->addComponente ( $obEntidadeUsuario ); +$obFormulario->addComponente ( $obInOrgao ); +$obFormulario->addComponente ( $obInUnidade ); +$obIPopUpLeiAutorizacao->geraFormulario ( $obFormulario ); +$obFormulario->addComponente ( $obBscCGM ); +$obFormulario->addComponente ( $obTxtExercicio ); +$obFormulario->addComponente ( $obCmbTipoLancamento ); +$obFormulario->addComponente ( $obFlValorSaldoAnterior ); +$obFormulario->addComponente ( $obFlValorContratacao ); +$obFormulario->addComponente ( $obFlValorAmortizacao ); +$obFormulario->addComponente ( $obFlValorCancelamento ); +$obFormulario->addComponente ( $obFlValorEncampacao ); +$obFormulario->addComponente ( $obFlValorCorrecao ); +$obFormulario->addComponente ( $obFlValorSaldoAtual ); + +$obFormulario->OK(); $obFormulario->show(); include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterObra.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterObra.php index 009fad5..35d4d3d 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterObra.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterObra.php @@ -35,7 +35,7 @@ * @ignore - $Id: FMManterObra.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FMManterObra.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -258,11 +258,11 @@ $obTxtFiscal->setValue ( $stFiscal ); $obTxtFiscal->setSize ( 50 ); $obTxtFiscal->setMaxLength ( 50 ); -$obExercicioEmpenho = new Exercicio; -$obExercicioEmpenho->setObrigatorioBarra ( true ); -$obExercicioEmpenho->setName ( 'stExercicioEmpenho' ); -$obExercicioEmpenho->setId ( 'stExercicioEmpenho' ); -$obExercicioEmpenho->setNull ( true ); +//$obExercicioEmpenho = new Exercicio; +//$obExercicioEmpenho->setObrigatorioBarra ( true ); +//$obExercicioEmpenho->setName ( 'stExercicioEmpenho' ); +//$obExercicioEmpenho->setId ( 'stExercicioEmpenho' ); +//$obExercicioEmpenho->setNull ( true ); // Define Objeto BuscaInner para Empenho $obIPopUpEmpenho = new IPopUpEmpenho( $obForm ); @@ -270,7 +270,6 @@ $obIPopUpEmpenho->setObrigatorioBarra ( true ); $obIPopUpEmpenho->setTipoBusca ( 'obra_tcmgo' ); $arInclusao = array(); -$arInclusao[] = $obExercicioEmpenho; $arInclusao[] = $obIPopUpEmpenho; $spnEmpenhos = new Span; @@ -290,7 +289,7 @@ if ($stAcao == 'alterar') { $obFormulario->addComponente ( $stExercicio ); } -$obExercicioEmpenho->setNull ( true ); +//$obExercicioEmpenho->setNull ( true ); $obFormulario->addComponente ( $obTxtDescricao ); $obFormulario->agrupaComponentes(array($obLblGrauLatitude, $obTxtGrauLatitude, $obLblMinuto, $obTxtMinutoLatitude, $obLblSegundo, $obTxtSegundoLatitude)); $obFormulario->agrupaComponentes(array($obLblGrauLongitude, $obTxtGrauLongitude, $obLblMinuto, $obTxtMinutoLongitude, $obLblSegundo, $obTxtSegundoLongitude)); @@ -300,9 +299,10 @@ $obFormulario->addComponente ( $obTxtEndereco ); $obFormulario->addComponente ( $obTxtBairro ); $obFormulario->addComponente ( $obTxtFiscal ); $obFormulario->addTitulo ( 'Dados dos empenhos da obra.' ); -$obFormulario->addComponente ( $obExercicioEmpenho ); +//$obFormulario->addComponente ( $obExercicioEmpenho ); + $obIPopUpEmpenho->geraFormulario($obFormulario); -$obFormulario->Incluir( 'Empenho', $arInclusao, true ); +$obFormulario->Incluir( 'Empenho', $arInclusao, true ); $obFormulario->addSpan ( $spnEmpenhos ); if ($stAcao == 'incluir') { @@ -313,6 +313,7 @@ if ($stAcao == 'incluir') { $obFormulario->show(); + include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; $stJs .= listaEmpenhos ( ); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterProvedorSistema.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterProvedorSistema.php new file mode 100644 index 0000000..58d6411 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterProvedorSistema.php @@ -0,0 +1,95 @@ +get('stAcao'); + +$obForm = new Form; +$obForm->setAction($pgProc); +$obForm->setTarget('oculto'); + +$obHdnAcao = new Hidden; +$obHdnAcao->setName ('stAcao'); +$obHdnAcao->setValue($stAcao); + +//Recupera CGM já cadastrado +$inCGM = SistemaLegado::pegaConfiguracao("provedor_sistema", 42, Sessao::getExercicio(), $boTransacao ); +if ($inCGM) + $stNomCGM = SistemaLegado::pegaDado("nom_cgm", "sw_cgm"," where numcgm = ". $inCGM ); + +//Recupera exercício (sessão) +$obLblExercicio = new Label; +$obLblExercicio->setId ( 'stExercicio' ); +$obLblExercicio->setName ( 'stExercicio' ); +$obLblExercicio->setValue ( Sessao::getExercicio() ); +$obLblExercicio->setRotulo( 'Exercício' ); + +//Componente para buscar CGM (pessoa física) +$obBscCGMSolicitante = new IPopUpCGM ($obForm); +$obBscCGMSolicitante->setTitle ( 'Informe o CGM.' ); +$obBscCGMSolicitante->setRotulo ('CGM' ); +$obBscCGMSolicitante->setTipo ('juridica' ); +$obBscCGMSolicitante->setId ('stNomCGM' ); +$obBscCGMSolicitante->setNull ( false ); +$obBscCGMSolicitante->setValue ( $stNomCGM ); +$obBscCGMSolicitante->obCampoCod->setValue ( $inCGM ); +$obBscCGMSolicitante->obCampoCod->setName ( 'inCodCGM' ); +$obBscCGMSolicitante->obCampoCod->setSize ( 10 ); + +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addComponente( $obLblExercicio ); +$obFormulario->addComponente( $obBscCGMSolicitante ); + +$obFormulario->Cancelar ($pgForm.'?'.Sessao::getId().'&stAcao='.$stAcao); + +$obFormulario->show(); + +require_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacao.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacao.php new file mode 100644 index 0000000..26ae93c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacao.php @@ -0,0 +1,241 @@ + +setDado('exercicio', $_REQUEST['stExercicioLicitacao']); +$obTTCMGOResponsavelLicitacao->setDado('cod_entidade', $arEntidade[0]); +$obTTCMGOResponsavelLicitacao->setDado('cod_modalidade', $arModalidade[0]); +$obTTCMGOResponsavelLicitacao->setDado('cod_licitacao', $_REQUEST['inCodLicitacao']); +$obTTCMGOResponsavelLicitacao->recuperaPorChave($rsRecordSet); + +$obForm = new Form; +$obForm->setAction ( $pgProc ); + +# Define o formulário +$obFormulario = new Formulario; +$obFormulario->addForm( $obForm ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setValue( "" ); + +# Define o Label do Exercicio +$obLblExercicio = new Label; +$obLblExercicio->setRotulo('Exercício da Licitação'); +$obLblExercicio->setValue($_REQUEST['stExercicioLicitacao']); + +$obHdnExercicio = new Hidden; +$obHdnExercicio->setName ( "stExercicioLicitacao" ); +$obHdnExercicio->setValue( $_REQUEST['stExercicioLicitacao'] ); + +# Define o Label para modalidade +$obLblModalidade = new Label; +$obLblModalidade->setRotulo('Modalidade'); +$obLblModalidade->setValue($_REQUEST['stModalidade']); + +$obHdnModalidade = new Hidden; +$obHdnModalidade->setName ( "stModalidade" ); +$obHdnModalidade->setValue( $_REQUEST['stModalidade'] ); + +# Define o Label da licitacao +$obLblLicitação = new Label; +$obLblLicitação->setRotulo('Código da Licitação'); +$obLblLicitação->setValue($_REQUEST['inCodLicitacao']); + +$obHdnLicitacao = new Hidden; +$obHdnLicitacao->setName ( "inCodLicitacao" ); +$obHdnLicitacao->setValue( $_REQUEST['inCodLicitacao'] ); + +# Define o Label da Entidade +$obLblEntidade = new Label; +$obLblEntidade->setRotulo('Entidade'); +$obLblEntidade->setValue($_REQUEST['stEntidade']); + +$obHdnCodEntidade = new Hidden; +$obHdnCodEntidade->setName ( "stEntidade" ); +$obHdnCodEntidade->setValue( $_REQUEST['stEntidade']); + +$obHdnCodModalidade = new Hidden; +$obHdnCodModalidade->setName ( "inCodModalidade" ); +$obHdnCodModalidade->setValue( $_REQUEST['inCodModalidade']); + + +$obTTCMGOResponsavelLicitacao->recuperaPorChave($rsRecordSet); + +if(!empty($arCGMResponsaveis)){ + $arResponsabilidades = array( + 0 => array('responsabilidade'=>'Autorização para abertura do procedimento licitatório', 'cgm_responsavel' => $arCGMResponsaveis[1]['inNumCGM_1'], 'nom_cgm' => $arCGMResponsaveis[1]['stNomCGM_1']), + 1 => array('responsabilidade'=>'Emissão do edital' , 'cgm_responsavel' => $arCGMResponsaveis[2]['inNumCGM_2'], 'nom_cgm' => $arCGMResponsaveis[2]['stNomCGM_2']), + 2 => array('responsabilidade'=>'Pesquisa de preços' , 'cgm_responsavel' => $arCGMResponsaveis[3]['inNumCGM_9'], 'nom_cgm' => $arCGMResponsaveis[3]['stNomCGM_9']), + 3 => array('responsabilidade'=>'Informação de existência de recursos orçamentários' , 'cgm_responsavel' => $arCGMResponsaveis[4]['inNumCGM_3'], 'nom_cgm' => $arCGMResponsaveis[4]['stNomCGM_3']), + 4 => array('responsabilidade'=>'Condução do procedimento licitatório' , 'cgm_responsavel' => $arCGMResponsaveis[5]['inNumCGM_4'], 'nom_cgm' => $arCGMResponsaveis[5]['stNomCGM_4']), + 5 => array('responsabilidade'=>'Homologação' , 'cgm_responsavel' => $arCGMResponsaveis[6]['inNumCGM_5'], 'nom_cgm' => $arCGMResponsaveis[6]['stNomCGM_5']), + 6 => array('responsabilidade'=>'Adjudicação' , 'cgm_responsavel' => $arCGMResponsaveis[7]['inNumCGM_6'], 'nom_cgm' => $arCGMResponsaveis[7]['stNomCGM_6']), + ); +}else{ + $arResponsabilidades = array( + 0 => array('responsabilidade'=>'Autorização para abertura do procedimento licitatório', 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_abertura_licitacao') , 'nom_cgm'=>""), + 1 => array('responsabilidade'=>'Emissão do edital' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_edital') , 'nom_cgm'=>""), + 2 => array('responsabilidade'=>'Pesquisa de preços' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_pesquisa') , 'nom_cgm'=>""), + 3 => array('responsabilidade'=>'Informação de existência de recursos orçamentários' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_recurso_orcamentario'), 'nom_cgm'=>""), + 4 => array('responsabilidade'=>'Condução do procedimento licitatório' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_conducao_licitacao') , 'nom_cgm'=>""), + 5 => array('responsabilidade'=>'Homologação' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_homologacao') , 'nom_cgm'=>""), + 6 => array('responsabilidade'=>'Adjudicação' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_adjudicacao') , 'nom_cgm'=>""), + ); +} + +foreach($arResponsabilidades as $inIndice => $valor){ + $stFiltro = $arResponsabilidades[$inIndice]['cgm_responsavel']; + if(!empty($stFiltro)){ + $obTTCMGOResponsavelLicitacao->recuperaResponsavel($rsNomCGM, $stFiltro); + $arResponsabilidades[$inIndice]['nom_cgm'] = $rsNomCGM->arElementos[0]['nom_cgm']; + } +} + +$rsLista = new RecordSet; +$rsLista->preenche($arResponsabilidades); + +$obLista = new Lista; +$obLista->setMostraPaginacao(false); +$obLista->setTitulo('Lista de Responsabilidades'); +$obLista->setRecordSet($rsLista); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( " " ); +$obLista->commitCabecalho(); +$obLista->ultimoCabecalho->setWidth( 1); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Responsabilidade" ); +$obLista->ultimoCabecalho->setWidth( 20 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setCampo( 'responsabilidade' ); +$obLista->ultimoDado->setAlinhamento( 'ESQUERDA' ); +$obLista->commitDado(); + +//Define objeto BuscaInner para cgm +$obBscCGM = new BuscaInner; +$obBscCGM->setRotulo ( "CGM" ); +$obBscCGM->setTitle ( "Selecione o CGM" ); +if(($_REQUEST['inCodModalidade'] != '9') && ($_REQUEST['inCodModalidade'] != '8')){ + $obBscCGM->setNull ( false ); +} +$obBscCGM->setName ( 'stNomCGM' ); +$obBscCGM->setValue ( "nom_cgm" ); +$obBscCGM->obCampoCod->setId ( "inNumCGM" ); +$obBscCGM->obCampoCod->setSize ( 8 ); +$obBscCGM->obCampoCod->setName ( "inNumCGM" ); +$obBscCGM->obCampoCod->setValue ( "cgm_responsavel" ); +if(($_REQUEST['inCodModalidade'] != '9') && ($_REQUEST['inCodModalidade'] != '8')){ + $obBscCGM->obCampoCod->setNull ( true ); +} +$obBscCGM->setValoresBusca($pgOcul."?".Sessao::getId(),$obForm->getName(),'validaCGM'); +$obBscCGM->setFuncaoBusca("abrePopUp('".CAM_GA_CGM_POPUPS."cgm/FLProcurarCgm.php','frm','inNumCGM','stNomCGM','fisica','".Sessao::getId()."','800','550');" ); + +$obLista->addCabecalho('Responsável', 8); +$obLista->addDadoComponente( $obBscCGM ); +$obLista->commitDadoComponente(); + +$obSpnCodigos = new Span(); +$obSpnCodigos->setId('spnCodigos'); +$obLista->montaHTML(); +$obSpnCodigos->setValue($obLista->getHTML()); + +# Define o caminho de ajuda do Caso de uso (padrão no Framework) +$obFormulario->addTitulo ( "Dados da Licitação" ); +$obFormulario->addComponente ( $obLblEntidade ); +$obFormulario->addComponente ( $obLblExercicio ); +$obFormulario->addComponente ( $obLblModalidade ); +$obFormulario->addComponente ( $obLblLicitação ); +$obFormulario->addSpan ( $obSpnCodigos ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnExercicio ); +$obFormulario->addHidden ( $obHdnModalidade ); +$obFormulario->addHidden ( $obHdnCodEntidade ); +$obFormulario->addHidden ( $obHdnLicitacao ); +$obFormulario->addHidden ( $obHdnCodModalidade ); + +$obBtnOK = new Ok(); +$obBtnOK->obEvento->setOnClick("Salvar();"); +$obBtnOK->setId('Ok'); + +$obLimpar = new Limpar(); +$obLimpar->obEvento->setOnClick( "Limpar();" ); + +$stLocation = $pgList.'?'.Sessao::getId().$stFiltro; +$obCancelar = new Cancelar; +$obCancelar->obEvento->setOnClick("Cancelar('".$stLocation."','telaPrincipal');"); + +$obFormulario->defineBarra(array($obBtnOK,$obLimpar,$obCancelar)); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacaoDispensa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacaoDispensa.php new file mode 100644 index 0000000..7ee9da8 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacaoDispensa.php @@ -0,0 +1,241 @@ + +setDado('exercicio', $_REQUEST['stExercicioLicitacao']); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('cod_entidade', $arEntidade[0]); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('cod_modalidade', $arModalidade[0]); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('cod_licitacao', $_REQUEST['inCodLicitacao']); +$obTTCMGOResponsavelLicitacaoDispensa->recuperaPorChave($rsRecordSet); + +$obForm = new Form; +$obForm->setAction ( $pgProc ); + +# Define o formulário +$obFormulario = new Formulario; +$obFormulario->addForm( $obForm ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setValue( "" ); + +# Define o Label do Exercicio +$obLblExercicio = new Label; +$obLblExercicio->setRotulo('Exercício da Licitação'); +$obLblExercicio->setValue($_REQUEST['stExercicioLicitacao']); + +$obHdnExercicio = new Hidden; +$obHdnExercicio->setName ( "stExercicioLicitacao" ); +$obHdnExercicio->setValue( $_REQUEST['stExercicioLicitacao'] ); + +# Define o Label para modalidade +$obLblModalidade = new Label; +$obLblModalidade->setRotulo('Modalidade'); +$obLblModalidade->setValue($_REQUEST['stModalidade']); + +$obHdnModalidade = new Hidden; +$obHdnModalidade->setName ( "stModalidade" ); +$obHdnModalidade->setValue( $_REQUEST['stModalidade'] ); + +# Define o Label da licitacao +$obLblLicitação = new Label; +$obLblLicitação->setRotulo('Código da Licitação'); +$obLblLicitação->setValue($_REQUEST['inCodLicitacao']); + +$obHdnLicitacao = new Hidden; +$obHdnLicitacao->setName ( "inCodLicitacao" ); +$obHdnLicitacao->setValue( $_REQUEST['inCodLicitacao'] ); + +# Define o Label da Entidade +$obLblEntidade = new Label; +$obLblEntidade->setRotulo('Entidade'); +$obLblEntidade->setValue($_REQUEST['stEntidade']); + +$obHdnCodEntidade = new Hidden; +$obHdnCodEntidade->setName ( "stEntidade" ); +$obHdnCodEntidade->setValue( $_REQUEST['stEntidade']); + +$obHdnCodModalidade = new Hidden; +$obHdnCodModalidade->setName ( "inCodModalidade" ); +$obHdnCodModalidade->setValue( $_REQUEST['inCodModalidade']); + + +$obTTCMGOResponsavelLicitacaoDispensa->recuperaPorChave($rsRecordSet); + +if(!empty($arCGMResponsaveis)){ + $arResponsabilidades = array( + 0 => array('responsabilidade'=>'Autorização para abertura do procedimento licitatório', 'cgm_responsavel' => $arCGMResponsaveis[1]['inNumCGM_1'], 'nom_cgm' => $arCGMResponsaveis[1]['stNomCGM_1']), + 1 => array('responsabilidade'=>'Cotação de preços' , 'cgm_responsavel' => $arCGMResponsaveis[2]['inNumCGM_2'], 'nom_cgm' => $arCGMResponsaveis[2]['stNomCGM_2']), + 2 => array('responsabilidade'=>'Informação de existência de recursos orçamentários' , 'cgm_responsavel' => $arCGMResponsaveis[3]['inNumCGM_3'], 'nom_cgm' => $arCGMResponsaveis[3]['stNomCGM_3']), + 3 => array('responsabilidade'=>'Ratificação' , 'cgm_responsavel' => $arCGMResponsaveis[4]['inNumCGM_4'], 'nom_cgm' => $arCGMResponsaveis[4]['stNomCGM_4']), + 4 => array('responsabilidade'=>'Publicação em órgão oficial' , 'cgm_responsavel' => $arCGMResponsaveis[5]['inNumCGM_5'], 'nom_cgm' => $arCGMResponsaveis[5]['stNomCGM_5']), + 5 => array('responsabilidade'=>'Parecer Jurídico' , 'cgm_responsavel' => $arCGMResponsaveis[6]['inNumCGM_6'], 'nom_cgm' => $arCGMResponsaveis[6]['stNomCGM_6']), + 6 => array('responsabilidade'=>'Parecer (outros)' , 'cgm_responsavel' => $arCGMResponsaveis[7]['inNumCGM_7'], 'nom_cgm' => $arCGMResponsaveis[7]['stNomCGM_7']), + ); +}else{ + $arResponsabilidades = array( + 0 => array('responsabilidade'=>'Autorização para abertura do procedimento licitatório', 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_abertura_disp') , 'nom_cgm'=>""), + 1 => array('responsabilidade'=>'Cotação de preços' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_cotacao_precos') , 'nom_cgm'=>""), + 2 => array('responsabilidade'=>'Informação de existência de recursos orçamentários' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_recurso') , 'nom_cgm'=>""), + 3 => array('responsabilidade'=>'Ratificação' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_ratificacao') , 'nom_cgm'=>""), + 4 => array('responsabilidade'=>'Publicação em órgão oficial' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_publicacao_orgao') , 'nom_cgm'=>""), + 5 => array('responsabilidade'=>'Parecer Jurídico' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_parecer_juridico') , 'nom_cgm'=>""), + 6 => array('responsabilidade'=>'Parecer (outros)' , 'cgm_responsavel' => $rsRecordSet->getCampo('cgm_resp_parecer_outro') , 'nom_cgm'=>""), + ); +} + +foreach($arResponsabilidades as $inIndice => $valor){ + $stFiltro = $arResponsabilidades[$inIndice]['cgm_responsavel']; + if(!empty($stFiltro)){ + $obTTCMGOResponsavelLicitacaoDispensa->recuperaResponsavel($rsNomCGM, $stFiltro); + $arResponsabilidades[$inIndice]['nom_cgm'] = $rsNomCGM->arElementos[0]['nom_cgm']; + } +} + +$rsLista = new RecordSet; +$rsLista->preenche($arResponsabilidades); + +$obLista = new Lista; +$obLista->setMostraPaginacao(false); +$obLista->setTitulo('Lista de Responsabilidades'); +$obLista->setRecordSet($rsLista); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( " " ); +$obLista->commitCabecalho(); +$obLista->ultimoCabecalho->setWidth( 1); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Responsabilidade" ); +$obLista->ultimoCabecalho->setWidth( 20 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setCampo( 'responsabilidade' ); +$obLista->ultimoDado->setAlinhamento( 'ESQUERDA' ); +$obLista->commitDado(); + +//Define objeto BuscaInner para cgm +$obBscCGM = new BuscaInner; +$obBscCGM->setRotulo ( "CGM" ); +$obBscCGM->setTitle ( "Selecione o CGM" ); +if(($_REQUEST['inCodModalidade'] != '9') && ($_REQUEST['inCodModalidade'] != '8')){ + $obBscCGM->setNull ( false ); +} +$obBscCGM->setName ( 'stNomCGM' ); +$obBscCGM->setValue ( "nom_cgm" ); +$obBscCGM->obCampoCod->setId ( "inNumCGM" ); +$obBscCGM->obCampoCod->setSize ( 8 ); +$obBscCGM->obCampoCod->setName ( "inNumCGM" ); +$obBscCGM->obCampoCod->setValue ( "cgm_responsavel" ); +if(($_REQUEST['inCodModalidade'] != '9') && ($_REQUEST['inCodModalidade'] != '8')){ + $obBscCGM->obCampoCod->setNull ( true ); +} +$obBscCGM->setValoresBusca($pgOcul."?".Sessao::getId(),$obForm->getName(),'validaCGM'); +$obBscCGM->setFuncaoBusca("abrePopUp('".CAM_GA_CGM_POPUPS."cgm/FLProcurarCgm.php','frm','inNumCGM','stNomCGM','fisica','".Sessao::getId()."','800','550');" ); + +$obLista->addCabecalho('Responsável', 8); +$obLista->addDadoComponente( $obBscCGM ); +$obLista->commitDadoComponente(); + +$obSpnCodigos = new Span(); +$obSpnCodigos->setId('spnCodigos'); +$obLista->montaHTML(); +$obSpnCodigos->setValue($obLista->getHTML()); + +# Define o caminho de ajuda do Caso de uso (padrão no Framework) +$obFormulario->addTitulo ( "Dados da Licitação" ); +$obFormulario->addComponente ( $obLblEntidade ); +$obFormulario->addComponente ( $obLblExercicio ); +$obFormulario->addComponente ( $obLblModalidade ); +$obFormulario->addComponente ( $obLblLicitação ); +$obFormulario->addSpan ( $obSpnCodigos ); +$obFormulario->addHidden ( $obHdnCtrl ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnExercicio ); +$obFormulario->addHidden ( $obHdnModalidade ); +$obFormulario->addHidden ( $obHdnCodEntidade ); +$obFormulario->addHidden ( $obHdnLicitacao ); +$obFormulario->addHidden ( $obHdnCodModalidade ); + +$obBtnOK = new Ok(); +$obBtnOK->obEvento->setOnClick("Salvar();"); +$obBtnOK->setId('Ok'); + +$obLimpar = new Limpar(); +$obLimpar->obEvento->setOnClick( "Limpar();" ); + +$stLocation = $pgList.'?'.Sessao::getId().$stFiltro; +$obCancelar = new Cancelar; +$obCancelar->obEvento->setOnClick("Cancelar('".$stLocation."','telaPrincipal');"); + +$obFormulario->defineBarra(array($obBtnOK,$obLimpar,$obCancelar)); +$obFormulario->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterTecnicoResponsavel.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterTecnicoResponsavel.php new file mode 100644 index 0000000..b373d0d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterTecnicoResponsavel.php @@ -0,0 +1,204 @@ +get('stAcao'); + +//Recupera da base de dados os valores e grava na sessão. +$obTTCMGOResponsavelTecnico = new TTCMGOResponsavelTecnico(); +$obTTCMGOResponsavelTecnico->recuperaResponsavelTecnico($rsResponsavelTecnico, "" , "" , $boTransacao ); + +$inId = 0; + +foreach ($rsResponsavelTecnico->getElementos() as $dados) { + $arTecnicoResponsavel[$inId]['id'] = $inId; + $arTecnicoResponsavel[$inId]['cod_entidade'] = $dados['cod_entidade']; + $arTecnicoResponsavel[$inId]['exercicio'] = Sessao::getExercicio(); + $arTecnicoResponsavel[$inId]['cgm_responsavel'] = $dados['cgm_responsavel']; + $arTecnicoResponsavel[$inId]['nom_cgm'] = $dados['nom_cgm']; + $arTecnicoResponsavel[$inId]['nom_entidade'] = $dados['nom_entidade']; + $arTecnicoResponsavel[$inId]['crc'] = $dados['crc']; + $arTecnicoResponsavel[$inId]['cod_tipo'] = $dados['cod_tipo']; + $arTecnicoResponsavel[$inId]['descricao'] = $dados['descricao']; + $arTecnicoResponsavel[$inId]['dt_inicio'] = $dados['dt_inicio']; + $arTecnicoResponsavel[$inId]['dt_fim'] = $dados['dt_fim']; + + $inId++; +} + +Sessao::write('arTecnicoResponsavel', $arTecnicoResponsavel); + +$obForm = new Form; +$obForm->setAction($pgProc); +$obForm->setTarget('oculto'); + +$obHdnAcao = new Hidden; +$obHdnAcao->setName ('stAcao'); +$obHdnAcao->setValue($stAcao); + +$obHdnNomEntidade = new Hidden; +$obHdnNomEntidade->setId('stNomEntidade'); +$obHdnNomEntidade->setName('stNomEntidade'); + +$obHdnNomTecResponsavel = new Hidden; +$obHdnNomTecResponsavel->setId('stNomTecResponsavel'); +$obHdnNomTecResponsavel->setName('stNomTecResponsavel'); + +$obHdnInId = new Hidden; +$obHdnInId->setId('inId'); +$obHdnInId->setName('inId'); + +//Recupera exercício (sessão) +$obLblExercicio = new Label; +$obLblExercicio->setId('stExercicio'); +$obLblExercicio->setName('stExercicio'); +$obLblExercicio->setValue(Sessao::getExercicio()); +$obLblExercicio->setRotulo('Exercício'); + +//Recupera Entidades +$obROrcamentoEntidade = new ROrcamentoEntidade; +$obROrcamentoEntidade->setExercicio (Sessao::getExercicio()); +$obROrcamentoEntidade->listarEntidades($rsEntidades); + +$obCmbEntidades = new Select; +$obCmbEntidades->setRotulo ('*Entidade'); +$obCmbEntidades->setId ('inCodEntidade'); +$obCmbEntidades->setName ('inCodEntidade'); +$obCmbEntidades->setCampoId ('cod_entidade'); +$obCmbEntidades->setCampoDesc ('[nom_cgm]'); +$obCmbEntidades->addOption ('', 'Selecione'); +$obCmbEntidades->setNull ( true ); +$obCmbEntidades->preencheCombo($rsEntidades); +$obCmbEntidades->obEvento->setOnBlur("jQuery('#stNomEntidade').val(jQuery('#inCodEntidade :selected').text());"); + +//Componente para buscar CGM (pessoa física) +$obBscCGMSolicitante = new IPopUpCGM ($obForm); +$obBscCGMSolicitante->setRotulo('*CGM'); +$obBscCGMSolicitante->setTipo('fisica'); +$obBscCGMSolicitante->setId('stNomCGM'); +$obBscCGMSolicitante->setNull( true ); +$obBscCGMSolicitante->setTitle( 'Informe o CGM.'); +$obBscCGMSolicitante->setValue( $stNomCGM ); +$obBscCGMSolicitante->obCampoCod->setValue( $inCGM ); +$obBscCGMSolicitante->obCampoCod->setSize(10); +$obBscCGMSolicitante->obCampoCod->setName( 'inCodCGM' ); +$obBscCGMSolicitante->obImagem->setId('imgBuscaCGM'); + +$obTTCMGOTipoResponsavelTecnico = new TTCMGOTipoResponsavelTecnico(); +$obTTCMGOTipoResponsavelTecnico->recuperaTodos($rsTipoResponsavel); +//Tipo de Responsável +$obCmbTipoResponsavel = new Select; +$obCmbTipoResponsavel->setRotulo ( '*Tipo Responsável' ); +$obCmbTipoResponsavel->setId ( 'inCodTipo' ); +$obCmbTipoResponsavel->setName ( 'inCodTipo' ); +$obCmbTipoResponsavel->setCampoId ('[cod_tipo] - [descricao]'); +$obCmbTipoResponsavel->setCampoDesc ('[cod_tipo] - [descricao]'); +$obCmbTipoResponsavel->addOption ( '', 'Selecione' ); +$obCmbTipoResponsavel->setNull ( true ); +$obCmbTipoResponsavel->preencheCombo ( $rsTipoResponsavel ); + +//CRC +$obTxtCRC = new TextBox(); +$obTxtCRC->setRotulo ( 'CRC' ); +$obTxtCRC->setName ( "stCRC" ); +$obTxtCRC->setId ( "stCRC" ); +$obTxtCRC->setMaxLength ( 10 ); +$obTxtCRC->setSize ( 10 ); +$obTxtCRC->setDefinicao ( "text" ); + +$obDtVigencia = new Periodo(); +$obDtVigencia->setRotulo ( '*Vigência' ); +$obDtVigencia->setExercicio ( Sessao::getExercicio() ); +$obDtVigencia->setNull ( true ); +$obDtVigencia->setValue ( 4 ); +$obDtVigencia->obDataInicial->setValue( date("d/m/Y") ); + +//Botão para Incluir / Limpar +$obBtnIncluir = new Button; +$obBtnIncluir->setId('btnIncluir'); +$obBtnIncluir->setValue('Incluir'); +$obBtnIncluir->obEvento->setOnClick("montaParametrosGET('incluirLista');"); + +$obBtnLimpar = new Button; +$obBtnLimpar->setValue('Limpar'); +$obBtnLimpar->obEvento->setOnClick("executaFuncaoAjax('limparLista');"); + +$obSpnLista = new Span; +$obSpnLista->setId('spnLista'); +$obSpnLista->setValue($stHTML); + +$obFormulario = new Formulario; +$obFormulario->addForm ($obForm); +$obFormulario->addHidden($obHdnAcao); +$obFormulario->addHidden($obHdnNomEntidade); +$obFormulario->addHidden($obHdnNomTecResponsavel); +$obFormulario->addHidden($obHdnInId); +$obFormulario->addComponente($obLblExercicio); +$obFormulario->addComponente($obCmbEntidades); +$obFormulario->addComponente($obBscCGMSolicitante ); +$obFormulario->addComponente($obCmbTipoResponsavel); +$obFormulario->addComponente($obTxtCRC); +$obFormulario->addComponente($obDtVigencia); + +$obFormulario->agrupaComponentes(array($obBtnIncluir, $obBtnLimpar)); +$obFormulario->addSpan($obSpnLista); + +$obFormulario->Cancelar ($pgForm.'?'.Sessao::getId().'&stAcao='.$stAcao); + +$obFormulario->show(); + +$jsOnLoad = 'montaParametrosGET("montarLista");'; + +require_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisLDO.js b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisLDO.js new file mode 100644 index 0000000..31a0ee6 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisLDO.js @@ -0,0 +1,67 @@ + + + \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisPPA.js b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisPPA.js new file mode 100644 index 0000000..cb4b05d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisPPA.js @@ -0,0 +1,67 @@ + + + \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterDividaFundada.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterDividaFundada.php new file mode 100644 index 0000000..9f6a4cd --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterDividaFundada.php @@ -0,0 +1,167 @@ + +setAction( $pgList ); +$obForm->setTarget( "telaPrincipal" ); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $request->get('stAcao') ); + +//Define o objeto de controle +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setId ( "" ); + +$obTTCMGODividaFundada = new TTCMGODividaFundada; + +$obTTCMGODividaFundada->recuperaTodos($rsRecordSet, " WHERE exercicio = '".$request->get('inExercicio')."' AND cod_entidade = ".$request->get('inCodEntidade').""); + +$obLista = new Lista; +$obLista->setRecordSet( $rsRecordSet ); +$obLista->obPaginacao->setFiltro("&stLink=".$stLink ); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo('Número da Norma'); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo('Número do Órgão'); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo('Número da Unidade'); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo('Tipo do Lançamento'); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Ação"); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "cod_norma" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "num_orgao" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "num_unidade" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("CENTRO"); +$obLista->ultimoDado->setCampo( "cod_tipo_lancamento" ); +$obLista->commitDado(); + +$stAcao = 'alterar'; +$obLista->addAcao(); +$obLista->ultimaAcao->setAcao ( "ALTERAR" ); +$obLista->ultimaAcao->setLink ( $pgForm."?stAcao=$stAcao&".Sessao::getId().$stLink ); +$obLista->ultimaAcao->addCampo( "&inCodNorma" , "cod_norma" ); +$obLista->ultimaAcao->addCampo( "&inNumOrgao" , "num_orgao" ); +$obLista->ultimaAcao->addCampo( "&inNumUnidade" , "num_unidade" ); +$obLista->ultimaAcao->addCampo( "&inNumUnidade" , "num_unidade" ); +$obLista->ultimaAcao->addCampo( "&inExercicio" , "exercicio" ); +$obLista->ultimaAcao->addCampo( "&inCodTipoLancamento" , "cod_tipo_lancamento" ); +$obLista->ultimaAcao->addCampo( "&inCodEntidade" , "cod_entidade" ); +$obLista->ultimaAcao->addCampo( "&inNumCgm" , "numcgm" ); +$obLista->ultimaAcao->addCampo( "&vlSaldoAnterior" , "valor_saldo_anterior" ); +$obLista->ultimaAcao->addCampo( "&vlContratacao" , "valor_contratacao" ); +$obLista->ultimaAcao->addCampo( "&vlAmortizacao" , "valor_amortizacao" ); +$obLista->ultimaAcao->addCampo( "&vlCancelamento" , "valor_cancelamento" ); +$obLista->ultimaAcao->addCampo( "&vlEncampacao" , "valor_encampacao" ); +$obLista->ultimaAcao->addCampo( "&vlCorrecao" , "valor_correcao" ); +$obLista->ultimaAcao->addCampo( "&vlSaldoAtual" , "valor_saldo_atual" ); +$obLista->commitAcao(); +$stAcao = 'excluir'; +$obLista->addAcao(); +$obLista->ultimaAcao->setAcao ( "EXCLUIR" ); +$obLista->ultimaAcao->setLink ( $pgProc."?stAcao=$stAcao&".Sessao::getId() ); +$obLista->ultimaAcao->addCampo( "&inCodNorma" , "cod_norma" ); +$obLista->ultimaAcao->addCampo( "&inNumOrgao" , "num_orgao" ); +$obLista->ultimaAcao->addCampo( "&inNumUnidade" , "num_unidade" ); +$obLista->ultimaAcao->addCampo( "&inNumUnidade" , "num_unidade" ); +$obLista->ultimaAcao->addCampo( "&inExercicio" , "exercicio" ); +$obLista->ultimaAcao->addCampo( "&inCodTipoLancamento" , "cod_tipo_lancamento" ); +$obLista->ultimaAcao->addCampo( "&inCodEntidade" , "cod_entidade" ); +$obLista->ultimaAcao->addCampo( "&inNumCgm" , "numcgm" ); +$obLista->ultimaAcao->addCampo( "&vlSaldoAnterior" , "valor_saldo_anterior" ); +$obLista->ultimaAcao->addCampo( "&vlContratacao" , "valor_contratacao" ); +$obLista->ultimaAcao->addCampo( "&vlAmortizacao" , "valor_amortizacao" ); +$obLista->ultimaAcao->addCampo( "&vlCancelamento" , "valor_cancelamento" ); +$obLista->ultimaAcao->addCampo( "&vlEncampacao" , "valor_encampacao" ); +$obLista->ultimaAcao->addCampo( "&vlCorrecao" , "valor_correcao" ); +$obLista->ultimaAcao->addCampo( "&vlSaldoAtual" , "valor_saldo_atual" ); +$obLista->commitAcao(); + +$obLista->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacao.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacao.php new file mode 100644 index 0000000..2159a93 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacao.php @@ -0,0 +1,238 @@ + + $stValor) { + $arFiltro[$stCampo] = $stValor; + } + Sessao::write('paginando',true); +} + +if ($arFiltro) { + foreach ($arFiltro as $key => $value) { + $_REQUEST[$key] = $value; + } +} + +Sessao::write('paginando',true); +Sessao::write('filtro',$arFiltro); + +$obTLicitacaoLicitacao = new TLicitacaoLicitacao(); + +if ($_REQUEST['inCodEntidade']) { + $inCodEntidade = implode(',',$_REQUEST['inCodEntidade']); + $obTLicitacaoLicitacao->setDado('cod_entidade',$inCodEntidade); +} + +if ($_REQUEST['inCodLicitacao']) { + $obTLicitacaoLicitacao->setDado('cod_licitacao',$_REQUEST['inCodLicitacao']); +} +if ($_REQUEST['stExercicioLicitacao']) + $obTLicitacaoLicitacao->setDado('exercicio',$_REQUEST['stExercicioLicitacao']); + +if ($_REQUEST['stChaveProcesso']) { + $arProcesso = explode ('/',$_REQUEST['stChaveProcesso']); + $obTLicitacaoLicitacao->setDado('cod_processo',$arProcesso[0]); + $obTLicitacaoLicitacao->setDado('exercicio_processo',$arProcesso[1]); +} + +if ($_REQUEST['inPeriodicidade'] != "") { + + if ($_REQUEST['stDataInicial']) { + + $dtDataInicial = $_REQUEST["stDataInicial"]; + $dtDataFinal = $_REQUEST["stDataFinal"]; + + $stFiltro .= " AND TO_DATE(ll.timestamp,'yyyy-mm-dd') BETWEEN TO_DATE('".$dtDataInicial."','dd/mm/yyyy') \n"; + $stFiltro .= " AND TO_DATE('".$dtDataFinal."','dd/mm/yyyy') \n"; + } +} + +if ($_REQUEST['stMapaCompras']) { + $arMapa = explode ('/',$_REQUEST['stMapaCompras']); + $obTLicitacaoLicitacao->setDado('cod_mapa',$arMapa[0]); + $obTLicitacaoLicitacao->setDado('exercicio_mapa',$arMapa[1]); +} + +if ($_REQUEST['inCodTipoLicitacao']) + $obTLicitacaoLicitacao->setDado('cod_tipo_licitacao',$_REQUEST['inCodTipoLicitacao']); + +if ($_REQUEST['inCodModalidade']) + $obTLicitacaoLicitacao->setDado('cod_modalidade',$_REQUEST['inCodModalidade']); + +if ($_REQUEST['inCodCriterio']) + $obTLicitacaoLicitacao->setDado('cod_criterio',$_REQUEST['inCodCriterio']); + +if ($_REQUEST['inCodTipoObjeto']) + $obTLicitacaoLicitacao->setDado('cod_tipo_objeto',$_REQUEST['inCodTipoObjeto']); + +if ($_REQUEST['HdnstObjeto']) + $obTLicitacaoLicitacao->setDado('cod_objeto',$_REQUEST['HdnstObjeto']); + +$stOrder = " + ORDER BY + ll.exercicio DESC, + ll.cod_entidade, + ll.cod_licitacao, + ll.cod_modalidade +"; + +if ($stAcao == 'consultar') { + Sessao::write('consulta', true); +} + +$obTLicitacaoLicitacao->recuperaLicitacao($rsLicitacao,$stFiltro, $stOrder); +$stFiltro = $stLink = ""; + +$stLink .= "&stAcao=".$stAcao; + +$obLista = new Lista; +$obLista->obPaginacao->setFiltro("&stLink=".$stLink ); +$obLista->setRecordSet( $rsLicitacao ); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Licitação" ); +$obLista->ultimoCabecalho->setWidth( 15 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Entidade"); +$obLista->ultimoCabecalho->setWidth( 35 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Processo"); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Modalidade"); +$obLista->ultimoCabecalho->setWidth( 30 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Ação"); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "[cod_licitacao]/[exercicio]" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("ESQUERDA"); +$obLista->ultimoDado->setCampo( "entidade" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "processo" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("ESQUERDA"); +$obLista->ultimoDado->setCampo( "[cod_modalidade] - [descricao]" ); +$obLista->commitDado(); + +$obLista->addAcao(); +$obLista->ultimaAcao->setAcao( $stAcao ); +$obLista->ultimaAcao->addCampo( "&stEntidade","entidade"); +$obLista->ultimaAcao->addCampo( "&stProcesso","processo"); +$obLista->ultimaAcao->addCampo( "&stMapaCompra","mapa_compra"); +$obLista->ultimaAcao->addCampo( "&inCodLicitacao","cod_licitacao"); +$obLista->ultimaAcao->addCampo( "&stModalidade","modalidade"); +$obLista->ultimaAcao->addCampo( "&stCodObjeto","cod_objeto"); +$obLista->ultimaAcao->addCampo( "&inCodTipoObjeto","cod_tipo_objeto"); +$obLista->ultimaAcao->addCampo( "&inCodComissao","cod_comissao"); +$obLista->ultimaAcao->addCampo( "&inCodTipoLicitacao","cod_tipo_licitacao"); +$obLista->ultimaAcao->addCampo( "&inCodCriterio","cod_criterio"); +$obLista->ultimaAcao->addCampo( "&vlCotado","vl_cotado"); +$obLista->ultimaAcao->addCampo( "&stExercicioLicitacao","exercicio"); +$obLista->ultimaAcao->addCampo( "&inCodModalidade","cod_modalidade"); +$obLista->ultimaAcao->addCampo( "&inCodEntidade","cod_entidade"); + +$obLista->ultimaAcao->setLink( $stCaminho.$pgProx."?".Sessao::getId().$stLink ); + +$obLista->commitAcao(); +$obLista->Show(); +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacaoDispensa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacaoDispensa.php new file mode 100644 index 0000000..1ca478d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacaoDispensa.php @@ -0,0 +1,237 @@ + + $stValor) { + $arFiltro[$stCampo] = $stValor; + } + Sessao::write('paginando',true); +} + +if ($arFiltro) { + foreach ($arFiltro as $key => $value) { + $_REQUEST[$key] = $value; + } +} + +Sessao::write('paginando',true); +Sessao::write('filtro',$arFiltro); + +$obTLicitacaoLicitacao = new TLicitacaoLicitacao(); +$obTLicitacaoLicitacao->setDado('cod_modalidade', '8,9'); + + +if ($_REQUEST['inCodEntidade']) { + $inCodEntidade = implode(',',$_REQUEST['inCodEntidade']); + $obTLicitacaoLicitacao->setDado('cod_entidade',$inCodEntidade); +} + +if ($_REQUEST['inCodLicitacao']) { + $obTLicitacaoLicitacao->setDado('cod_licitacao',$_REQUEST['inCodLicitacao']); +} +if ($_REQUEST['stExercicioLicitacao']) + $obTLicitacaoLicitacao->setDado('exercicio',$_REQUEST['stExercicioLicitacao']); + +if ($_REQUEST['stChaveProcesso']) { + $arProcesso = explode ('/',$_REQUEST['stChaveProcesso']); + $obTLicitacaoLicitacao->setDado('cod_processo',$arProcesso[0]); + $obTLicitacaoLicitacao->setDado('exercicio_processo',$arProcesso[1]); +} + +if ($_REQUEST['inPeriodicidade'] != "") { + + if ($_REQUEST['stDataInicial']) { + + $dtDataInicial = $_REQUEST["stDataInicial"]; + $dtDataFinal = $_REQUEST["stDataFinal"]; + + $stFiltro .= " AND TO_DATE(ll.timestamp,'yyyy-mm-dd') BETWEEN TO_DATE('".$dtDataInicial."','dd/mm/yyyy') \n"; + $stFiltro .= " AND TO_DATE('".$dtDataFinal."','dd/mm/yyyy') \n"; + } +} + +if ($_REQUEST['stMapaCompras']) { + $arMapa = explode ('/',$_REQUEST['stMapaCompras']); + $obTLicitacaoLicitacao->setDado('cod_mapa',$arMapa[0]); + $obTLicitacaoLicitacao->setDado('exercicio_mapa',$arMapa[1]); +} + +if ($_REQUEST['inCodTipoLicitacao']) + $obTLicitacaoLicitacao->setDado('cod_tipo_licitacao',$_REQUEST['inCodTipoLicitacao']); + +if ($_REQUEST['inCodCriterio']) + $obTLicitacaoLicitacao->setDado('cod_criterio',$_REQUEST['inCodCriterio']); + +if ($_REQUEST['inCodTipoObjeto']) + $obTLicitacaoLicitacao->setDado('cod_tipo_objeto',$_REQUEST['inCodTipoObjeto']); + +if ($_REQUEST['HdnstObjeto']) + $obTLicitacaoLicitacao->setDado('cod_objeto',$_REQUEST['HdnstObjeto']); + +$stOrder = " + ORDER BY + ll.exercicio DESC, + ll.cod_entidade, + ll.cod_licitacao, + ll.cod_modalidade +"; + +if ($stAcao == 'consultar') { + Sessao::write('consulta', true); +} + +$obTLicitacaoLicitacao->recuperaLicitacao($rsLicitacao,$stFiltro, $stOrder); +$stFiltro = $stLink = ""; + +$stLink .= "&stAcao=".$stAcao; + +$obLista = new Lista; +$obLista->obPaginacao->setFiltro("&stLink=".$stLink ); +$obLista->setRecordSet( $rsLicitacao ); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Licitação" ); +$obLista->ultimoCabecalho->setWidth( 15 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Entidade"); +$obLista->ultimoCabecalho->setWidth( 35 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Processo"); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Modalidade"); +$obLista->ultimoCabecalho->setWidth( 30 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Ação"); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "[cod_licitacao]/[exercicio]" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("ESQUERDA"); +$obLista->ultimoDado->setCampo( "entidade" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "processo" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("ESQUERDA"); +$obLista->ultimoDado->setCampo( "[cod_modalidade] - [descricao]" ); +$obLista->commitDado(); + +$obLista->addAcao(); +$obLista->ultimaAcao->setAcao( $stAcao ); +$obLista->ultimaAcao->addCampo( "&stEntidade","entidade"); +$obLista->ultimaAcao->addCampo( "&stProcesso","processo"); +$obLista->ultimaAcao->addCampo( "&stMapaCompra","mapa_compra"); +$obLista->ultimaAcao->addCampo( "&inCodLicitacao","cod_licitacao"); +$obLista->ultimaAcao->addCampo( "&stModalidade","modalidade"); +$obLista->ultimaAcao->addCampo( "&stCodObjeto","cod_objeto"); +$obLista->ultimaAcao->addCampo( "&inCodTipoObjeto","cod_tipo_objeto"); +$obLista->ultimaAcao->addCampo( "&inCodComissao","cod_comissao"); +$obLista->ultimaAcao->addCampo( "&inCodTipoLicitacao","cod_tipo_licitacao"); +$obLista->ultimaAcao->addCampo( "&inCodCriterio","cod_criterio"); +$obLista->ultimaAcao->addCampo( "&vlCotado","vl_cotado"); +$obLista->ultimaAcao->addCampo( "&stExercicioLicitacao","exercicio"); +$obLista->ultimaAcao->addCampo( "&inCodModalidade","cod_modalidade"); +$obLista->ultimaAcao->addCampo( "&inCodEntidade","cod_entidade"); + +$obLista->ultimaAcao->setLink( $stCaminho.$pgProx."?".Sessao::getId().$stLink ); + +$obLista->commitAcao(); +$obLista->Show(); +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterApcaaaa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterApcaaaa.php index d6c4380..4f9dae9 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterApcaaaa.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterApcaaaa.php @@ -20,10 +20,7 @@ * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * * * ********************************************************************************** -*/ -?> -preenche( $arConta ); @@ -85,14 +85,11 @@ function montaLista($arConta) $stHTML = str_replace( " " ,"" ,$stHTML ); $stHTML = str_replace( "'","\\'",$stHTML ); - $stJs = "document.getElementById('spnContas').innerHTML = '".$stHTML."';"; + $stJs .= "document.getElementById('spnContas').innerHTML = '".$stHTML."';"; return $stJs; } -$arContas = Sessao::read('arContas'); -$arExcluidas = Sessao::read('arExcluidas'); - switch ($stCtrl) { case 'buscaEstrutural' : if ($_REQUEST['inCodConta'] == '') { @@ -112,14 +109,16 @@ switch ($stCtrl) { ) "; $obTContabilidadePlanoAnalitica->recuperaContaAnalitica( $rsConta, $stFiltro ); if ( $rsConta->getNumLinhas() > 0 ) { - $stJs = "document.getElementById('stConta').innerHTML = '".$rsConta->getCampo('nom_conta')."'; "; + $stJs .= "document.getElementById('stConta').innerHTML = '".$rsConta->getCampo('nom_conta')."'; "; } else { $stJs.= "alertaAviso('@Código estrutural inválido!', 'form','erro','".Sessao::getId()."');"; $stJs.= "document.getElementById('stConta').innerHTML = ' ';"; $stJs.= "document.getElementById('inCodConta').value = '';"; } break; + case 'incluirConta' : + $arContas = Sessao::read('arContas'); if ($_REQUEST['inCodConta'] == '') { $stMensagem = 'Conta inválida!'; } @@ -128,35 +127,45 @@ switch ($stCtrl) { $stMensagem = 'Preencha o tipo do lançamento!'; } - if ( count( $arContas ) > 0 ) { - foreach ($arContas as $arAux) { - foreach ($arAux as $arContas) { - if ($arContas['cod_plano'] == $_REQUEST['inCodConta']) { + if ( count( $arContas['arContas_'.$_REQUEST['inTipoLancamento']] ) > 0 ) { + foreach ($arContas['arContas_'.$_REQUEST['inTipoLancamento']] as $arAux) { + if ( $arAux['cod_plano'] == $_REQUEST['inCodConta'] ) { $stMensagem = 'Esta conta já consta na lista!'; break; - } } } } - if (!$stMensagem) { + if (!$stMensagem) { + $inCount = count($arContas['arContas_'.$_REQUEST['inTipoLancamento']]); $obTContabilidadePlanoAnalitica = new TContabilidadePlanoAnalitica(); $stFiltro.= " AND pa.exercicio = '".Sessao::getExercicio()."' "; $stFiltro.= " AND pa.cod_plano = ".$_REQUEST['inCodConta']." "; $obTContabilidadePlanoAnalitica->recuperaContaAnalitica( $rsConta, $stFiltro ); - $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$inCount]['id'] = $inCount; - $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$inCount]['cod_estrutural'] = $rsConta->getCampo('cod_estrutural'); - $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$inCount]['cod_plano'] = $rsConta->getCampo('cod_plano'); - $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$inCount]['nom_conta'] = $rsConta->getCampo('nom_conta'); - $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$inCount]['tipo_lancamento'] = $_REQUEST['inTipoLancamento']; - - Sessao::write('arContas', $arContas); - - $stJs.= montaLista( $arContas['arContas_'.$_REQUEST['inTipoLancamento']] ); + + for($i=0; $i <= $inCount; $i++){ + if ( $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$i]['id'] === $i ) { + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['id'] = $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$i]['id']; + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['cod_estrutural'] = $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$i]['cod_estrutural']; + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['cod_plano'] = $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$i]['cod_plano']; + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['nom_conta'] = $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$i]['nom_conta']; + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['tipo_lancamento'] = $arContas['arContas_'.$_REQUEST['inTipoLancamento']][$i]['tipo_lancamento']; + } else { + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['id'] = $inCount; + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['cod_estrutural'] = $rsConta->getCampo('cod_estrutural'); + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['cod_plano'] = $rsConta->getCampo('cod_plano'); + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['nom_conta'] = $rsConta->getCampo('nom_conta'); + $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']][$i]['tipo_lancamento'] = $_REQUEST['inTipoLancamento']; + } + } + Sessao::write('arContas', $arContasAux); + $stJs.= "document.getElementById('stConta').innerHTML = ' ';"; $stJs.= "document.getElementById('inCodConta').value = '';"; + $stJs.= montaLista( $arContasAux['arContas_'.$_REQUEST['inTipoLancamento']] ); + if (count($arExcluidas['arExcluidas_'.$_REQUEST['inTipoLancamento']]) > 0) { foreach ($arExcluidas['arExcluidas_'.$_REQUEST['inTipoLancamento']] as $arAux) { if ( $arAux['cod_plano'] != $rsConta->getCampo('cod_plano') ) { @@ -170,9 +179,10 @@ switch ($stCtrl) { $stJs .= "alertaAviso('@".$stMensagem."!', 'form','erro','".Sessao::getId()."');"; } break; + case 'excluirListaItens' : $i=0; - foreach ($arContas['arContas_'.$_REQUEST['tipo_lancamento']] as $arAux) { + foreach ($arContas['arContas_'.$_REQUEST['tipo_lancamento']] as $arAux) { if ($arAux['id'] != $_REQUEST['id']) { $arTemp[$i] = $arAux; $arTemp[$i]['id'] = $i; @@ -183,10 +193,11 @@ switch ($stCtrl) { Sessao::write('arExcluidas', $arExcluidas); } } - $arContas['arContas_'.$_REQUEST['tipo_lancamento']] = $arTemp; + $arContas['arContas_'.$_REQUEST['tipo_lancamento']] = $arTemp; Sessao::write('arContas', $arContas); - $stJs = montaLista( $arContas['arExcluidas_'.$_REQUEST['tipo_lancamento']] ); + $stJs .= montaLista( $arContas['arContas_'.$_REQUEST['tipo_lancamento']] ); break; + case 'preencheLista' : if ($_REQUEST['inTipoLancamento'] != '') { $obTTGOBalancoApcaaaa = new TTGOBalancoApcaaaa(); @@ -222,7 +233,9 @@ switch ($stCtrl) { } } Sessao::write('arContas', $arContas); - $stJs.= montaLista( $arContas['arContas_'.$_REQUEST['inTipoLancamento']] ); + $stJs .= montaLista( $arContas['arContas_'.$_REQUEST['inTipoLancamento']] ); break; } echo $stJs; + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLOA.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLOA.php new file mode 100644 index 0000000..30110b8 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLOA.php @@ -0,0 +1,90 @@ + +setDado('exercicio', Sessao::getExercicio()); + $obTCMGConfiguracaoLOA->recuperaPorChave($rsTCMGOConfiguracaoLOA); + + if ($rsTCMGOConfiguracaoLOA->getNumLinhas() > 0) { + $stFiltro = " WHERE cod_norma = ".$rsTCMGOConfiguracaoLOA->getCampo('cod_norma'); + $obTNorma->recuperaNormas( $rsNorma, $stFiltro ); + if ($rsNorma->getNumLinhas() > 0) { + $stJs .= "document.getElementById('stCodNorma').focus();\n"; + $stJs .= "document.getElementById('stCodNorma').value = trim('".$rsNorma->getCampo('num_norma_exercicio')."'); \n"; + $stJs .= "document.getElementById('hdnCodTipoNorma').value = '".$rsNorma->getCampo('cod_tipo_norma')."'; \n"; + $stJs .= "document.getElementById('hdnCodNorma').value = '".$rsNorma->getCampo('cod_norma')."'; \n"; + $stJs .= "document.getElementById('nuPorSuplementacao').focus();\n"; + $stJs .= "document.getElementById('nuPorSuplementacao').value = '".str_replace('.',',',$rsTCMGOConfiguracaoLOA->getCampo('percentual_suplementacao'))."';\n"; + $stJs .= "document.getElementById('nuPorCreditoInterna').value = '".str_replace('.',',',$rsTCMGOConfiguracaoLOA->getCampo('percentual_credito_interna'))."';\n"; + $stJs .= "document.getElementById('nuPorCreditoAntecipacaoReceita').value = '".str_replace('.',',',$rsTCMGOConfiguracaoLOA->getCampo('percentual_credito_antecipacao_receita'))."';\n"; + } + + return $stJs; + } +} +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisLDO.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisLDO.php new file mode 100644 index 0000000..16ac1d5 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisLDO.php @@ -0,0 +1,327 @@ + +setDescricao("Informe o Tipo de Norma e a Norma!"); + } else { + + $arCodNorma = explode("/",$_REQUEST["stCodNorma"]); + $stFiltroTipoNorma = " WHERE cod_tipo_norma = ".$_REQUEST['hdnCodTipoNorma']; + + $stFiltroNorma = " WHERE cod_tipo_norma = ".$_REQUEST['hdnCodTipoNorma']; + $stFiltroNorma .= " AND num_norma = '".(int) $arCodNorma[0]."'"; + + $obTNorma->recuperaNormas($rsRecordSetNorma, $stFiltroNorma); + $obTTipoNorma->recuperaTodos($rsRecordSetTipoNorma, $stFiltroTipoNorma); + + $stFiltroDataTermino = " WHERE cod_norma = ".$rsRecordSetNorma->getCampo('cod_norma'); + $obTNormaDataTermino->recuperaTodos($rsRecordSetDataTermino, $stFiltroDataTermino); + $arNormas = Sessao::read('arNormas'); + + $arNorma = array(); + $arNorma['stNomTipoNorma'] = $rsRecordSetTipoNorma->getCampo('nom_tipo_norma'); + $arNorma['stNorma'] = $rsRecordSetNorma->getCampo('num_norma_exercicio')." - ".$rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['dtAssinatura'] = $rsRecordSetNorma->getCampo('dt_assinatura_formatado'); + $arNorma['dtTermino'] = $rsRecordSetDataTermino->getCampo('dt_termino'); + $arNorma['dtPublicacao'] = $rsRecordSetNorma->getCampo('dt_publicacao'); + $arNorma['inCodNorma'] = $rsRecordSetNorma->getCampo('cod_norma'); + $arNorma['inCodTipoNorma'] = $rsRecordSetNorma->getCampo('cod_tipo_norma'); + $arNorma['stNomNorma'] = $rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['stDescricao'] = $rsRecordSetNorma->getCampo('descricao'); + $arNorma['stExercicio'] = $rsRecordSetNorma->getCampo('exercicio'); + $arNorma['inNumNorma'] = $rsRecordSetNorma->getCampo('num_norma'); + $arNorma['inId'] = count($arNormas); + + if ($arNormas != "") { + foreach ($arNormas as $arrNorma) { + if ($arrNorma['stTipoNorma'] == $arNorma['stTipoNorma'] && $arrNorma['stNorma'] == $arNorma['stNorma']) { + $obErro->setDescricao("Esta norma já está na lista!"); + } + } + } + } + + if ($obErro->ocorreu()) { + $stJs .= "alertaAviso('".$obErro->getDescricao()."','form','erro','".Sessao::getId()."');\n"; + } else { + $arNormas[] = $arNorma; + Sessao::write('arNormas',$arNormas); + $stJs .= montaListaNorma(); + } + + $stJs .= "f.hdnCodTipoNorma.value = '';\n"; + $stJs .= "f.stCodNorma.value = '';\n"; + $stJs .= "d.getElementById('stNorma').innerHTML = ' ';\n"; + + return $stJs; +} + +function buscaNormas() +{ + include_once CAM_GA_NORMAS_MAPEAMENTO."TNorma.class.php"; + include_once CAM_GA_NORMAS_MAPEAMENTO."TTipoNorma.class.php"; + include_once CAM_GA_NORMAS_MAPEAMENTO."TNormaDataTermino.class.php"; + + $obErro = new Erro(); + $obTNorma = new TNorma(); + $obTTipoNorma = new TTipoNorma(); + $obTNormaDataTermino = new TNormaDataTermino(); + + $arCodNormas = Sessao::read('arCodNorma'); + if ($arCodNormas != "") { + foreach ($arCodNormas as $norma) { + if ($norma['inCodTipoNorma'] == "" || $norma['inCodNorma'] == "") { + $obErro->setDescricao("Informe o Tipo de Norma e a Norma!"); + } + + $stFiltroTipoNorma = " WHERE cod_tipo_norma = ".$norma['inCodTipoNorma']; + + $stFiltroNorma = " WHERE cod_tipo_norma = ".$norma['inCodTipoNorma']; + $stFiltroNorma .= " AND cod_norma = ".$norma['inCodNorma']; + + $stFiltroDataTermino = " WHERE cod_norma = ".$norma['inCodNorma']; + + $obTNorma->recuperaNormas($rsRecordSetNorma, $stFiltroNorma); + $obTTipoNorma->recuperaTodos($rsRecordSetTipoNorma, $stFiltroTipoNorma); + $obTNormaDataTermino->recuperaTodos($rsRecordSetDataTermino, $stFiltroDataTermino); + + $arNorma = array(); + $arNorma['stNomTipoNorma'] = $rsRecordSetTipoNorma->getCampo('nom_tipo_norma'); + $arNorma['stNorma'] = $rsRecordSetNorma->getCampo('num_norma_exercicio')." - ".$rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['dtAssinatura'] = $rsRecordSetNorma->getCampo('dt_assinatura_formatado'); + $arNorma['dtTermino'] = $rsRecordSetDataTermino->getCampo('dt_termino'); + $arNorma['dtPublicacao'] = $rsRecordSetNorma->getCampo('dt_publicacao'); + $arNorma['inCodNorma'] = $rsRecordSetNorma->getCampo('cod_norma'); + $arNorma['inCodTipoNorma'] = $rsRecordSetNorma->getCampo('cod_tipo_norma'); + $arNorma['stNomNorma'] = $rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['stDescricao'] = $rsRecordSetNorma->getCampo('descricao'); + $arNorma['stExercicio'] = $rsRecordSetNorma->getCampo('exercicio'); + $arNorma['inNumNorma'] = $rsRecordSetNorma->getCampo('num_norma'); + $arNorma['inId'] = count($arNormas); + + $arNormas[] = $arNorma; + } + Sessao::write('arNormas',$arNormas); + } else { + if (Sessao::read('arNormas') != '') { + $stJs .= montaListaNorma(); + sistemaLegado::executaFrameOculto($stJs); + } + } +} + +function preencheLeisConsultaLDO() +{ + include_once(CAM_GPC_TGO_MAPEAMENTO."TTCMGOConfiguracaoLeisLDO.class.php"); + $obTTCMGOConfiguracaoLeisLDO = new TTCMGOConfiguracaoLeisLDO(); + $stFiltro = " AND tipo_configuracao = 'consulta' "; + $stFiltro .= " AND status = true "; + $stFiltro .= " AND configuracao_leis_ldo.exercicio = '".Sessao::getExercicio()."'"; + $obTTCMGOConfiguracaoLeisLDO->recuperaRelacionamento($rsTTCMGOConfiguracaoLeisLDO,$stFiltro); + + while (!$rsTTCMGOConfiguracaoLeisLDO->eof()) { + $inCodNorma = $rsTTCMGOConfiguracaoLeisLDO->getCampo("cod_norma"); + + $rsTTCMGOConfiguracaoLeisLDO->proximo(); + } + + Sessao::write('inCodNormaSalvo', $inCodNorma); + + $stJs .= "f.inCodLeiLDO.focus();\n"; + $stJs .= "f.inCodLeiLDO.value = '".$inCodNorma."';\n"; + $stJs .= "f.stCodNorma.focus();\n"; + + return $stJs; +} + +function montaListaNorma() +{ + $rsRecordSet = new RecordSet(); + if (Sessao::read('arNormas') != "") { + $rsRecordSet->preenche(Sessao::read('arNormas')); + } + + $obLista = new Lista; + $obLista->setMostraPaginacao( false ); + $obLista->setTitulo( "Normas/Fundamentação Legal" ); + + $obLista->setRecordSet( $rsRecordSet ); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo(" "); + $obLista->ultimoCabecalho->setWidth( 3 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Tipo Norma" ); + $obLista->ultimoCabecalho->setWidth( 17 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Norma" ); + $obLista->ultimoCabecalho->setWidth( 37 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Assinatura" ); + $obLista->ultimoCabecalho->setWidth( 12 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Publicação" ); + $obLista->ultimoCabecalho->setWidth( 12 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Término" ); + $obLista->ultimoCabecalho->setWidth( 12 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo(" "); + $obLista->ultimoCabecalho->setWidth( 4 ); + $obLista->commitCabecalho(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stNomTipoNorma" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stNorma" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "dtAssinatura" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "dtPublicacao" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "dtTermino" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + + $obLista->addAcao(); + $obLista->ultimaAcao->setAcao( "EXCLUIR" ); + $obLista->ultimaAcao->setFuncao( true ); + $obLista->ultimaAcao->setLink( "JavaScript:modificaDado('excluirNorma');" ); + $obLista->ultimaAcao->addCampo("1","inId"); + $obLista->commitAcao(); + + $obLista->montaHTML(); + $stHtml = $obLista->getHTML(); + $stHtml = str_replace("\n","",$stHtml); + $stHtml = str_replace(" ","",$stHtml); + $stHtml = str_replace("'","\\'",$stHtml); + $stJs .= "d.getElementById('spnFundamentacaoLegal').innerHTML = '".$stHtml."';"; + + return $stJs; +} + +function excluirNorma() +{ + $arTemp = array(); + $arTempRemovido = array(); + + $arNormas = Sessao::read('arNormas'); + $arNormasRemovidos = Sessao::read('arNormasRemovido'); + + foreach ($arNormas as $arNorma) { + if ($arNorma['inId'] != $_GET['inId']) { + $arTemp[] = $arNorma; + } else { + $arNormasRemovidos[] = $arNorma; + } + } + + $arNormas = $arTemp; + + Sessao::write('arNormasRemovido', $arNormasRemovidos); + Sessao::write('arNormas', $arNormas); + + $stJs .= montaListaNorma(); + + return $stJs; +} + +switch ($request->get('stCtrl')) { + case "incluirNorma": + $stJs .= incluirNorma(); + break; + case "excluirNorma": + $stJs .= excluirNorma(); + break; +} + +if (isset($stJs)) { + sistemaLegado::executaFrameOculto($stJs); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisPPA.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisPPA.php new file mode 100644 index 0000000..0a026e2 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisPPA.php @@ -0,0 +1,366 @@ + +setDescricao("Informe o Tipo de Norma e a Norma!"); + } + else if($_REQUEST['codPubLeiAlteracao']==""){ + $obErro->setDescricao("Informe o Veículo de Publicação da Lei de Alteração!"); + } + else if(isset($_REQUEST['stDescLeiAlteracao'])&&$_REQUEST['stDescLeiAlteracao']==""){ + $obErro->setDescricao("Informe a Descrição do Veículo de Publicação da Lei de Alteração!"); + } + else { + $arCodNorma = explode("/",$_REQUEST["stCodNorma"]); + $stFiltroTipoNorma = " WHERE cod_tipo_norma = ".$_REQUEST['hdnCodTipoNorma']; + + $stFiltroNorma = " WHERE cod_tipo_norma = ".$_REQUEST['hdnCodTipoNorma']; + $stFiltroNorma .= " AND num_norma = '".(int) $arCodNorma[0]."'"; + + $obTNorma->recuperaNormas($rsRecordSetNorma, $stFiltroNorma); + $obTTipoNorma->recuperaTodos($rsRecordSetTipoNorma, $stFiltroTipoNorma); + + $stFiltroDataTermino = " WHERE cod_norma = ".$rsRecordSetNorma->getCampo('cod_norma'); + $obTNormaDataTermino->recuperaTodos($rsRecordSetDataTermino, $stFiltroDataTermino); + $arNormas = Sessao::read('arNormas'); + + $arNorma = array(); + $arNorma['stNomTipoNorma'] = $rsRecordSetTipoNorma->getCampo('nom_tipo_norma'); + $arNorma['stNorma'] = $rsRecordSetNorma->getCampo('num_norma_exercicio')." - ".$rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['dtAssinatura'] = $rsRecordSetNorma->getCampo('dt_assinatura_formatado'); + $arNorma['dtTermino'] = $rsRecordSetDataTermino->getCampo('dt_termino'); + $arNorma['dtPublicacao'] = $rsRecordSetNorma->getCampo('dt_publicacao'); + $arNorma['inCodNorma'] = $rsRecordSetNorma->getCampo('cod_norma'); + $arNorma['inCodTipoNorma'] = $rsRecordSetNorma->getCampo('cod_tipo_norma'); + $arNorma['stNomNorma'] = $rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['stDescricao'] = $rsRecordSetNorma->getCampo('descricao'); + $arNorma['stExercicio'] = $rsRecordSetNorma->getCampo('exercicio'); + $arNorma['inNumNorma'] = $rsRecordSetNorma->getCampo('num_norma'); + $arNorma['codPubLeiAlteracao'] = $_REQUEST['codPubLeiAlteracao']; + $arNorma['stDescLeiAlteracao'] = (isset($_REQUEST['stDescLeiAlteracao'])) ? $_REQUEST['stDescLeiAlteracao'] : ''; + $arNorma['inId'] = count($arNormas); + + if ($arNormas != "") { + foreach ($arNormas as $arrNorma) { + if ($arrNorma['stTipoNorma'] == $arNorma['stTipoNorma'] && $arrNorma['inCodNorma'] == $arNorma['inCodNorma']) { + $obErro->setDescricao("Esta norma já está na lista!"); + } + } + } + } + + if ($obErro->ocorreu()) { + $stJs .= "alertaAviso('".$obErro->getDescricao()."','form','erro','".Sessao::getId()."');\n"; + } else { + $arNormas[] = $arNorma; + Sessao::write('arNormas',$arNormas); + $stJs .= montaListaNorma(); + $stJs .= "f.hdnCodTipoNorma.value = '';\n"; + $stJs .= "f.stCodNorma.value = '';\n"; + $stJs .= "f.codPubLeiAlteracao.value = '';\n"; + $stJs .= "d.getElementById('stNorma').innerHTML = ' ';\n"; + $stJs .= carregaLeiAlteracao(); + } + + return $stJs; +} + +function buscaNormas() +{ + include_once CAM_GA_NORMAS_MAPEAMENTO."TNorma.class.php"; + include_once CAM_GA_NORMAS_MAPEAMENTO."TTipoNorma.class.php"; + include_once CAM_GA_NORMAS_MAPEAMENTO."TNormaDataTermino.class.php"; + include_once CAM_GPC_TGO_MAPEAMENTO."TTCMGOConfiguracaoLeisPPA.class.php"; + + $obErro = new Erro(); + $obTNorma = new TNorma(); + $obTTipoNorma = new TTipoNorma(); + $obTNormaDataTermino = new TNormaDataTermino(); + $obTTCMGOConfiguracaoLeisPPA = new TTCMGOConfiguracaoLeisPPA(); + + $arCodNormas = Sessao::read('arCodNorma'); + if ($arCodNormas != "") { + foreach ($arCodNormas as $norma) { + if ($norma['inCodTipoNorma'] == "" || $norma['inCodNorma'] == "") { + $obErro->setDescricao("Informe o Tipo de Norma e a Norma!"); + } + + $stFiltroTipoNorma = " WHERE cod_tipo_norma = ".$norma['inCodTipoNorma']; + + $stFiltroNorma = " WHERE cod_tipo_norma = ".$norma['inCodTipoNorma']; + $stFiltroNorma .= " AND cod_norma = ".$norma['inCodNorma']; + + $stFiltroDataTermino = " WHERE cod_norma = ".$norma['inCodNorma']; + + $stFiltro = " AND configuracao_leis_ppa.cod_norma = ".$norma['inCodNorma']; + $stFiltro .= " AND configuracao_leis_ppa.exercicio = '".Sessao::getExercicio()."'"; + + $obTNorma->recuperaNormas($rsRecordSetNorma, $stFiltroNorma); + $obTTipoNorma->recuperaTodos($rsRecordSetTipoNorma, $stFiltroTipoNorma); + $obTNormaDataTermino->recuperaTodos($rsRecordSetDataTermino, $stFiltroDataTermino); + $obTTCMGOConfiguracaoLeisPPA->recuperaRelacionamento($rsTTCMGOConfiguracaoLeisPPA,$stFiltro); + + $arNorma = array(); + $arNorma['stNomTipoNorma'] = $rsRecordSetTipoNorma->getCampo('nom_tipo_norma'); + $arNorma['stNorma'] = $rsRecordSetNorma->getCampo('num_norma_exercicio')." - ".$rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['dtAssinatura'] = $rsRecordSetNorma->getCampo('dt_assinatura_formatado'); + $arNorma['dtTermino'] = $rsRecordSetDataTermino->getCampo('dt_termino'); + $arNorma['dtPublicacao'] = $rsRecordSetNorma->getCampo('dt_publicacao'); + $arNorma['inCodNorma'] = $rsRecordSetNorma->getCampo('cod_norma'); + $arNorma['inCodTipoNorma'] = $rsRecordSetNorma->getCampo('cod_tipo_norma'); + $arNorma['stNomNorma'] = $rsRecordSetNorma->getCampo('nom_norma'); + $arNorma['stDescricao'] = $rsRecordSetNorma->getCampo('descricao'); + $arNorma['stExercicio'] = $rsRecordSetNorma->getCampo('exercicio'); + $arNorma['inNumNorma'] = $rsRecordSetNorma->getCampo('num_norma'); + $arNorma['codPubLeiAlteracao'] = $rsTTCMGOConfiguracaoLeisPPA->getCampo('cod_veiculo_publicacao'); + $arNorma['stDescLeiAlteracao'] = $rsTTCMGOConfiguracaoLeisPPA->getCampo('descricao_publicacao'); + $arNorma['inId'] = count($arNormas); + + $arNormas[] = $arNorma; + } + Sessao::write('arNormas',$arNormas); + } else { + if (Sessao::read('arNormas') != '') { + $stJs .= montaListaNorma(); + sistemaLegado::executaFrameOculto($stJs); + } + } +} + +function preencheLeisConsultaPPA() +{ + include_once(CAM_GF_PPA_MAPEAMENTO."TPPA.class.php"); + $obTPPA = new TPPA(); + $obTPPA->recuperaPPAHomolagacaoNorma($rsPPANorma); + + $stNomeLeiPPA = ' '; + + while (!$rsPPANorma->eof()) { + $stNomeLeiPPA = $rsPPANorma->getCampo("descricao_norma"); + + $rsPPANorma->proximo(); + } + + $stJs .= "d.getElementById('stNomeLeiPPA').innerHTML = '".$stNomeLeiPPA."';\n"; + + return $stJs; +} + +function montaListaNorma() +{ + $rsRecordSet = new RecordSet(); + if (Sessao::read('arNormas') != "") { + $rsRecordSet->preenche(Sessao::read('arNormas')); + } + + $obLista = new Lista; + $obLista->setMostraPaginacao( false ); + $obLista->setTitulo( "Normas/Fundamentação Legal" ); + + $obLista->setRecordSet( $rsRecordSet ); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo(" "); + $obLista->ultimoCabecalho->setWidth( 3 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Tipo Norma" ); + $obLista->ultimoCabecalho->setWidth( 17 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Norma" ); + $obLista->ultimoCabecalho->setWidth( 37 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Assinatura" ); + $obLista->ultimoCabecalho->setWidth( 12 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Publicação" ); + $obLista->ultimoCabecalho->setWidth( 12 ); + $obLista->commitCabecalho(); + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo( "Término" ); + $obLista->ultimoCabecalho->setWidth( 12 ); + $obLista->commitCabecalho(); + + $obLista->addCabecalho(); + $obLista->ultimoCabecalho->addConteudo(" "); + $obLista->ultimoCabecalho->setWidth( 4 ); + $obLista->commitCabecalho(); + + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stNomTipoNorma" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "stNorma" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "dtAssinatura" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "dtPublicacao" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + $obLista->addDado(); + $obLista->ultimoDado->setCampo( "dtTermino" ); + $obLista->ultimoDado->setAlinhamento('ESQUERDA' ); + $obLista->commitDado(); + + $obLista->addAcao(); + $obLista->ultimaAcao->setAcao( "EXCLUIR" ); + $obLista->ultimaAcao->setFuncao( true ); + $obLista->ultimaAcao->setLink( "JavaScript:modificaDado('excluirNorma');" ); + $obLista->ultimaAcao->addCampo("1","inId"); + $obLista->commitAcao(); + + $obLista->montaHTML(); + $stHtml = $obLista->getHTML(); + $stHtml = str_replace("\n","",$stHtml); + $stHtml = str_replace(" ","",$stHtml); + $stHtml = str_replace("'","\\'",$stHtml); + $stJs .= "d.getElementById('spnFundamentacaoLegal').innerHTML = '".$stHtml."';"; + + return $stJs; +} + +function excluirNorma() +{ + $arTemp = array(); + $arTempRemovido = array(); + + $arNormas = Sessao::read('arNormas'); + $arNormasRemovidos = Sessao::read('arNormasRemovido'); + + foreach ($arNormas as $arNorma) { + if ($arNorma['inId'] != $_GET['inId']) { + $arTemp[] = $arNorma; + } else { + $arNormasRemovidos[] = $arNorma; + } + } + + $arNormas = $arTemp; + + Sessao::write('arNormasRemovido', $arNormasRemovidos); + Sessao::write('arNormas', $arNormas); + + $stJs .= montaListaNorma(); + + return $stJs; +} + +function carregaLeiAlteracao($codPubLeiAlteracao = '') +{ + if($codPubLeiAlteracao==''||$codPubLeiAlteracao!=9) + $stJs .= "d.getElementById('spnPubLeiAlteracao').innerHTML = '';\n"; + else{ + $obTxtObs = new TextArea; + $obTxtObs->setName ( "stDescLeiAlteracao" ); + $obTxtObs->setId ( "stDescLeiAlteracao" ); + $obTxtObs->setRotulo( "Descrição do Veículo de Publicação" ); + $obTxtObs->setNull ( false ); + $obTxtObs->setRows ( 2 ); + $obTxtObs->setCols ( 50 ); + $obTxtObs->setMaxCaracteres( 300 ); + + $obFormulario = new Formulario(); + $obFormulario->addComponente( $obTxtObs ); + $obFormulario->montaInnerHtml(); + + $stJs .= "d.getElementById('spnPubLeiAlteracao').innerHTML = '".$obFormulario->getHTML()."';\n"; + } + + return $stJs; +} + +switch ($request->get('stCtrl')) { + case "incluirNorma": + $stJs .= incluirNorma(); + break; + case "excluirNorma": + $stJs .= excluirNorma(); + break; + case "carregaLeiAlteracao": + echo carregaLeiAlteracao($_REQUEST['codPubLeiAlteracao']); + break; +} + +if (isset($stJs)) { + sistemaLegado::executaFrameOculto($stJs); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterDividaFundada.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterDividaFundada.php index 1d3e0fc..44cfed5 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterDividaFundada.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterDividaFundada.php @@ -31,11 +31,11 @@ * @ignore - *$Id: OCManterDividaFundada.php 59820 2014-09-12 18:17:20Z luciana $ + *$Id: OCManterDividaFundada.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso : uc-06.04.00 */ - +/* include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/componentes/Table/TableTree.class.php'; @@ -210,3 +210,4 @@ switch ($stCtrl) { break; } echo $stJs; +*/ \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterObra.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterObra.php index 6ce145a..9c5736a 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterObra.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterObra.php @@ -35,7 +35,7 @@ * @ignore - $Id: OCManterObra.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCManterObra.php 61647 2015-02-20 11:26:55Z luciana $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -185,47 +185,49 @@ switch ($stCtrl) { case 'incluirEmpenho' : - $arRequest = array(); - $arRequest = explode('/', $_REQUEST['inCodEmpenho']); - $inReqCodEmpenho = $arRequest[0]; - - $boIncluir = true; - if ( count( $arEmpenhos ) > 0 ) { - foreach ($arEmpenhos as $key => $array) { - $stCod = $array['cod_empenho']; - $stEnt = $array['cod_entidade']; - - if ($inReqCodEmpenho == $stCod && $_REQUEST['inCodEntidade'] == $stEnt) { - $boIncluir = false; - $stErro = "Este empenho já está na lista."; - break; - } + //SistemaLegado::mostravar($_REQUEST); + + $arRequest = array(); + $arRequest = explode('/', $_REQUEST['inCodEmpenho']); + $inReqCodEmpenho = $arRequest[0]; + + $boIncluir = true; + if ( count( $arEmpenhos ) > 0 ) { + foreach ($arEmpenhos as $key => $array) { + $stCod = $array['cod_empenho']; + $stEnt = $array['cod_entidade']; + + if ($inReqCodEmpenho == $stCod && $_REQUEST['inCodEntidade'] == $stEnt) { + $boIncluir = false; + $stErro = "Este empenho já está na lista."; + break; } } + } - if ($boIncluir) { - include_once( CAM_GF_EMP_MAPEAMENTO."TEmpenhoEmpenho.class.php" ); - $arEmpenho = explode('/', $_REQUEST["inCodEmpenho"]); + if ($boIncluir) { + include_once( CAM_GF_EMP_MAPEAMENTO."TEmpenhoEmpenho.class.php" ); + $arEmpenho = explode('/', $_REQUEST["inCodEmpenho"]); - $obTEmpenhoEmpenho = new TEmpenhoEmpenho; - $obTEmpenhoEmpenho->setDado( 'cod_entidade' , $_REQUEST["inCodEntidade" ] ); - $obTEmpenhoEmpenho->setDado( 'exercicio' , $_REQUEST["stExercicioEmpenho"] ); - $obTEmpenhoEmpenho->setDado( 'cod_empenho' , $arEmpenho[0] ); - $obTEmpenhoEmpenho->recuperaEmpenhoObra ($rsLista); + $obTEmpenhoEmpenho = new TEmpenhoEmpenho; + $obTEmpenhoEmpenho->setDado( 'cod_entidade' , $_REQUEST["inCodEntidade"]); + $obTEmpenhoEmpenho->setDado( 'cod_empenho' , $arEmpenho[0] ); + $obTEmpenhoEmpenho->setDado( 'exercicio' , $arEmpenho[1] ); + $obTEmpenhoEmpenho->recuperaEmpenhoObra ($rsLista); - $arRegistro['cod_entidade'] = $rsLista->getCampo('cod_entidade'); - $arRegistro['cod_empenho' ] = $rsLista->getCampo('cod_empenho'); - $arRegistro['data_empenho'] = $rsLista->getCampo('dt_empenho'); - $arRegistro['nom_cgm' ] = $rsLista->getCampo('nom_fornecedor'); - $arRegistro['exercicio' ] = $rsLista->getCampo('exercicio_empenho'); + $arRegistro['cod_entidade'] = $rsLista->getCampo('cod_entidade'); + $arRegistro['cod_empenho' ] = $rsLista->getCampo('cod_empenho'); + $arRegistro['data_empenho'] = $rsLista->getCampo('dt_empenho'); + $arRegistro['nom_cgm' ] = $rsLista->getCampo('nom_fornecedor'); + $arRegistro['exercicio' ] = $rsLista->getCampo('exercicio_empenho'); - $arEmpenhos[] = $arRegistro ; + $arEmpenhos[] = $arRegistro ; - Sessao::write('arEmpenhos', $arEmpenhos); - $stJs = listaEmpenhos(); - } else { - $stJs .= "alertaAviso('$stErro','form','erro','".Sessao::getId()."');\n"; - } + Sessao::write('arEmpenhos', $arEmpenhos); + $stJs = listaEmpenhos(); + } else { + $stJs .= "alertaAviso('$stErro','form','erro','".Sessao::getId()."');\n"; + } break; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacao.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacao.php new file mode 100644 index 0000000..65bd08f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacao.php @@ -0,0 +1,93 @@ + +get('stTipoBusca'); +$boTransacao = new Transacao(); + +// Acoes por pagina +switch ($stCtrl) { + case "validaCGM": + $obTCGMPessoaFisica = new TCGMPessoaFisica(); + $rsCGM = new RecordSet(); + + $inNumCGM = $request->get($request->get('stNomCampoCod')); + if ( !$inNumCGM == "" ) { + $obTCGMPessoaFisica->recuperaRelacionamento( $rsCGM, "AND PF.numcgm = ".$inNumCGM."","",$boTransacao ); + + if ($rsCGM->getNumLinhas() < 1) { + $stJs = "alertaAviso('@Número do CGM (". $request->get($request->get('stNomCampoCod')) .") não encontrado no cadastro de Pessoa ', 'form','erro','".Sessao::getId()."');"; + + $stNomCampoCod = $request->get('stNomCampoCod'); + $stIdCampoDesc = $request->get('stIdCampoDesc'); + $stJs .= " d.getElementById('".$stNomCampoCod."').value = ''; "; + $stJs .= " d.getElementById('".$stIdCampoDesc."').innerHTML = ' '; "; + + }else{ + $stNomCGM = $rsCGM->getCampo('nom_cgm'); + $stJs = "retornaValorBscInner( '".$request->get('stNomCampoCod')."', '".$request->get('stIdCampoDesc')."', 'frm', '".str_replace("'", "\'", $stNomCGM)."');"; + } + + }else{ + $stNomCampoCod = $request->get('stNomCampoCod'); + $stIdCampoDesc = $request->get('stIdCampoDesc'); + $stJs = " d.getElementById('".$stNomCampoCod."').value = ''; "; + $stJs .= " d.getElementById('".$stIdCampoDesc."').innerHTML = ' '; "; + } + break; +} + +if ($stJs) { + SistemaLegado::executaFrameOculto($stJs); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacaoDispensa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacaoDispensa.php new file mode 100644 index 0000000..e00ee45 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacaoDispensa.php @@ -0,0 +1,93 @@ + +get('stTipoBusca'); +$boTransacao = new Transacao(); + +// Acoes por pagina +switch ($stCtrl) { + case "validaCGM": + $obTCGMPessoaFisica = new TCGMPessoaFisica(); + $rsCGM = new RecordSet(); + + $inNumCGM = $request->get($request->get('stNomCampoCod')); + if ( !$inNumCGM == "" ) { + $obTCGMPessoaFisica->recuperaRelacionamento( $rsCGM, "AND PF.numcgm = ".$inNumCGM."","",$boTransacao ); + + if ($rsCGM->getNumLinhas() < 1) { + $stJs = "alertaAviso('@Número do CGM (". $request->get($request->get('stNomCampoCod')) .") não encontrado no cadastro de Pessoa ', 'form','erro','".Sessao::getId()."');"; + + $stNomCampoCod = $request->get('stNomCampoCod'); + $stIdCampoDesc = $request->get('stIdCampoDesc'); + $stJs .= " d.getElementById('".$stNomCampoCod."').value = ''; "; + $stJs .= " d.getElementById('".$stIdCampoDesc."').innerHTML = ' '; "; + + }else{ + $stNomCGM = $rsCGM->getCampo('nom_cgm'); + $stJs = "retornaValorBscInner( '".$request->get('stNomCampoCod')."', '".$request->get('stIdCampoDesc')."', 'frm', '".str_replace("'", "\'", $stNomCGM)."');"; + } + + }else{ + $stNomCampoCod = $request->get('stNomCampoCod'); + $stIdCampoDesc = $request->get('stIdCampoDesc'); + $stJs = " d.getElementById('".$stNomCampoCod."').value = ''; "; + $stJs .= " d.getElementById('".$stIdCampoDesc."').innerHTML = ' '; "; + } + break; +} + +if ($stJs) { + SistemaLegado::executaFrameOculto($stJs); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterTecnicoResponsavel.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterTecnicoResponsavel.php new file mode 100644 index 0000000..ba34558 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterTecnicoResponsavel.php @@ -0,0 +1,304 @@ +get('stCtrl'); +$stAcao = $request->get('stAcao'); + +function montarLista() +{ + $obTTCMGOResponsavelTecnico = new TTCMGOResponsavelTecnico(); + + $arTecnicoResponsavel = Sessao::read('arTecnicoResponsavel'); + + if (count($arTecnicoResponsavel) > 0) { + + $rsTecResponsavel = new RecordSet; + $rsTecResponsavel->preenche ($arTecnicoResponsavel); + $rsTecResponsavel->setPrimeiroElemento(); + + $obTableTree = new Table; + $obTableTree->setRecordset ( $rsTecResponsavel ); + $obTableTree->setSummary ( 'Lista de Responsável Técnico' ); + $obTableTree->setConditional ( true ); + $obTableTree->Head->addCabecalho ( 'Entidade' , 20 ); + $obTableTree->Head->addCabecalho ( 'CGM' , 4 ); + $obTableTree->Head->addCabecalho ( 'Responsável Técnico' , 20 ); + $obTableTree->Head->addCabecalho ( 'Tipo Responsável' , 10 ); + $obTableTree->Head->addCabecalho ( 'CRC' , 8 ); + $obTableTree->Body->addCampo ( "[nom_entidade]" , 'E'); + $obTableTree->Body->addCampo ( "[cgm_responsavel]" , 'C'); + $obTableTree->Body->addCampo ( "[nom_cgm]" , 'E'); + $obTableTree->Body->addCampo ( "[cod_tipo] - [descricao]" , 'C'); + $obTableTree->Body->addCampo ( "[crc]" , 'C'); + + $obTableTree->Body->addAcao ( 'alterar', 'executaFuncaoAjax(\'%s\',\'&inId=%s\')',array('alterarResponsavelLista', 'id')); + $obTableTree->Body->addAcao ( 'excluir', 'executaFuncaoAjax(\'%s\',\'&inId=%s\')',array('excluirResponsavelLista', 'id')); + $obTableTree->montaHTML ( true ); + + $stHTML = $obTableTree->getHtml(); + + $stHTML = str_replace( "\n" ,"" ,$stHTML ); + $stHTML = str_replace( chr(13) ,"
" ,$stHTML ); + $stHTML = str_replace( " " ,"" ,$stHTML ); + $stHTML = str_replace( "'","\\'",$stHTML ); + $stHTML = str_replace( "\\\\'","\\'",$stHTML ); + + $stJs .= "jQuery('#spnLista').html('".$stHTML."'); \n"; + } else { + $stJs .= "jQuery('#spnLista').html(''); \n"; + } + + + return $stJs; +} + +function limparLista() { + $stJs = ""; + $stJs .= "jQuery('#inId').val('');"; + $stJs .= "jQuery('#inCGM').val('');"; + $stJs .= "jQuery('#stCRC').val('');"; + $stJs .= "jQuery('#stDataInicial').val('".date("d/m/Y")."');"; + $stJs .= "jQuery('#stDataFinal').val('');"; + $stJs .= "jQuery('#stNomCGM').html(' ');"; + $stJs .= "jQuery('select#inCodEntidade').selectOptions('');"; + $stJs .= "jQuery('select#inCodTipo').selectOptions('');"; + $stJs .= "jQuery('#inCGM').focus();"; + + return $stJs; +} + +switch ($stCtrl) { + case "incluirLista": + + $inCodEntidade = $_REQUEST['inCodEntidade']; + $stNomEntidade = $_REQUEST['stNomEntidade']; + $inNumCgm = $_REQUEST['inCodCGM']; + $stNomCgm = $_REQUEST['stNomCGM']; + $stCRC = $_REQUEST['stCRC']; + $stDescricaoTipo = explode(' - ', $_REQUEST['inCodTipo']); + $inCodTipo = $stDescricaoTipo[0]; + $stDataInicial = $_REQUEST['stDataInicial']; + $stDataFinal = $_REQUEST['stDataFinal']; + + if ( $inCodEntidade != '' && $inNumCgm != '' && $inCodTipo != '' && $stDataInicial != '' && $stDataFinal != '' ) { + if( SistemaLegado::comparaDatas($_REQUEST['stDataInicial'], $_REQUEST['stDataFinal'], true )) { + echo "alertaAviso('@A data final não pode ser MENOR que a data inicial.','form','erro','".Sessao::getId()."');"; + exit; + } + + $obTTCMGOResponsavelTecnico = new TTCMGOResponsavelTecnico(); + $obTTCMGOResponsavelTecnico->recuperaResponsavelTecnico($rsResponsavelTecnico, "WHERE cgm_responsavel = ".$_REQUEST['inCodCGM']); + + $arTecnicoResponsavel = Sessao::read('arTecnicoResponsavel'); + + if (is_array($arTecnicoResponsavel)) { + foreach ($arTecnicoResponsavel as $arResponsavel) { + if ($arResponsavel['cgm_responsavel'] == $inNumCgm) { + echo "alertaAviso('@O CGM informado já está na lista de Responsáveis Técnicos.','form','erro','".Sessao::getId()."');"; + exit; + } + } + } + + # Inicializa o ID com 0, ou então o total de registros + 1. + $inId = (count($arTecnicoResponsavel) == 0) ? 0 : count($arTecnicoResponsavel); + + $arTecnicoResponsavel[$inId]['id'] = $inId; + $arTecnicoResponsavel[$inId]['cod_entidade'] = $inCodEntidade; + $arTecnicoResponsavel[$inId]['exercicio'] = Sessao::getExercicio(); + $arTecnicoResponsavel[$inId]['cgm_responsavel'] = $inNumCgm; + $arTecnicoResponsavel[$inId]['nom_cgm'] = $stNomCgm; + $arTecnicoResponsavel[$inId]['nom_entidade'] = $stNomEntidade; + $arTecnicoResponsavel[$inId]['cod_tipo'] = $inCodTipo; + $arTecnicoResponsavel[$inId]['crc'] = $stCRC; + $arTecnicoResponsavel[$inId]['descricao'] = $stDescricaoTipo[1]; + $arTecnicoResponsavel[$inId]['dt_inicio'] = $stDataInicial; + $arTecnicoResponsavel[$inId]['dt_fim'] = $stDataFinal; + + Sessao::write('arTecnicoResponsavel',$arTecnicoResponsavel); + + $stJs = montarLista(); + $stJs .= limparLista(); + $stJs .= "alertaAviso('".$stDescricaoTipo[1]." inserido na lista.','','info','".Sessao::getId()."');"; + + echo $stJs; + + } else { + echo "alertaAviso('@Informe todos os campos para incluir um novo Responsável Técnico','form','erro','".Sessao::getId()."');"; + } + break; + + case "excluirResponsavelLista": + $inCount = 0; + + $arTecnicoResponsavel = Sessao::read('arTecnicoResponsavel'); + + foreach ($arTecnicoResponsavel as $arResponsavel) { + if ($arResponsavel["id"] != $_REQUEST["inId"]) { + $arTmp[$inCount] = $arResponsavel; + $inCount++; + } + } + + Sessao::write('arTecnicoResponsavel',$arTmp); + + $stJs .= "jQuery('#btnIncluir').val('Incluir');"; + $stJs .= "jQuery('#btnIncluir').attr('onclick','montaParametrosGET(\'incluirLista\');');"; + + $stJs .= "alertaAviso('Responsável Técnico excluido da lista.','','info','".Sessao::getId()."');"; + $stJs .= montarLista(); + $stJs .= limparLista(); + + echo $stJs; + break; + + case "alterarResponsavelLista": + $inCount = 0; + + $arTecnicoResponsavel = Sessao::read('arTecnicoResponsavel'); + + $stJs = ""; + + foreach ($arTecnicoResponsavel as $arResponsavel) { + if ($arResponsavel["id"] == $_REQUEST["inId"]) { + $stJs .= "jQuery('#inId').val('".$arResponsavel["id"]."');"; + $stJs .= "jQuery('#inCGM').val('".$arResponsavel["cgm_responsavel"]."');"; + $stJs .= "jQuery('#stNomCGM').html('".$arResponsavel["nom_cgm"]."');"; + $stJs .= "jQuery('select#inCodEntidade').val('".$arResponsavel["cod_entidade"]."');"; + $stJs .= "jQuery('#stNomEntidade').val('".$arResponsavel["nom_entidade"]."');"; + $stJs .= "jQuery('select#inCodTipo').val('".$arResponsavel["cod_tipo"]." - ".$arResponsavel["descricao"]."');"; + $stJs .= "jQuery('#stCRC').val('".$arResponsavel["crc"]."');"; + $stJs .= "jQuery('#stDataInicial').val('".$arResponsavel["dt_inicio"]."');"; + $stJs .= "jQuery('#stDataFinal').val('".$arResponsavel["dt_fim"]."');"; + $stJs .= "jQuery('#btnIncluir').val('Alterar');"; + $stJs .= "jQuery('#btnIncluir').attr('onclick','montaParametrosGET(\'alterarLista\');');"; + + break; + } + } + + $stJs .= montarLista(); + + echo $stJs; + break; + + case "alterarLista": + + $arTecnicoResponsavel = Sessao::read('arTecnicoResponsavel'); + $arTmp = array(); + + $inCodEntidade = $_REQUEST['inCodEntidade']; + $stNomEntidade = $_REQUEST['stNomEntidade']; + $inNumCgm = $_REQUEST['inCodCGM']; + $stNomCgm = $_REQUEST['stNomCGM']; + $stCRC = $_REQUEST['stCRC']; + $stDescricaoTipo = explode(' - ', $_REQUEST['inCodTipo']); + $inCodTipo = $stDescricaoTipo[0]; + $stDataInicial = $_REQUEST['stDataInicial']; + $stDataFinal = $_REQUEST['stDataFinal']; + + $stDescricaoTipo = explode(' - ', $_REQUEST['inCodTipo']); + + if ( $inCodEntidade != '' && $inNumCgm != '' && $inCodTipo != '' && $stDataInicial != '' && $stDataFinal != '' ) { + if( SistemaLegado::comparaDatas($_REQUEST['stDataInicial'], $_REQUEST['stDataFinal'], true )) { + echo "alertaAviso('@A data final não pode ser MENOR que a data inicial.','form','erro','".Sessao::getId()."');"; + exit; + } + + foreach ($arTecnicoResponsavel as $arResponsavelTmp) { + if ($arResponsavelTmp['cgm_responsavel'] == $inNumCgm && $arResponsavelTmp["id"] != $_REQUEST["inId"]) { + echo "alertaAviso('@O CGM informado já está na lista de Responsáveis Técnicos.','form','erro','".Sessao::getId()."');"; + exit; + } + + if ($arResponsavelTmp["id"] == $_REQUEST["inId"]) { + + include_once(TCGM."TCGM.class.php"); + $obTCGM = new TCGM(); + $obTCGM->setDado('numcgm', $_REQUEST['inCodCGM']); + $obTCGM->recuperaPorChave($rsCGM); + + $arResponsavelTmp["cod_entidade"] = $inCodEntidade; + $arResponsavelTmp["nom_entidade"] = $stNomEntidade; + $arResponsavelTmp['cgm_responsavel'] = $inNumCgm; + $arResponsavelTmp['nom_cgm'] = $rsCGM->getCampo('nom_cgm'); + $arResponsavelTmp['cod_tipo'] = $stDescricaoTipo[0]; + $arResponsavelTmp['crc'] = $_REQUEST['stCRC']; + $arResponsavelTmp['descricao'] = $stDescricaoTipo[1]; + $arResponsavelTmp['dt_inicio'] = $stDataInicial; + $arResponsavelTmp['dt_fim'] = $stDataFinal; + + } + + $arTmp[] = $arResponsavelTmp; + } + + + Sessao::write('arTecnicoResponsavel',$arTmp); + + $stJs .= "jQuery('#btnIncluir').val('Incluir CGM');"; + $stJs .= "jQuery('#btnIncluir').attr('onclick','montaParametrosGET(\'incluirLista\');');"; + + $stJs .= "alertaAviso('Responsável Técnico alterado na lista.','','info','".Sessao::getId()."');"; + + $stJs .= montarLista(); + $stJs .= limparLista(); + + echo $stJs; + } else { + echo "alertaAviso('@Informe todos os campos para incluir um novo Responsável Técnico','form','erro','".Sessao::getId()."');"; + } + break; + + case "limparLista": + echo limparLista(); + break; + + case 'montarLista': + echo montarLista(); + break; + +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterApcaaaa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterApcaaaa.php index dd17383..4f27ed2 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterApcaaaa.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterApcaaaa.php @@ -20,10 +20,7 @@ * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * * * ********************************************************************************** -*/ -?> -setDado( 'exercicio', Sessao::getExercicio() ); - if ( count( $arExcluidas ) > 0 ) { - foreach ($arExcluidas as $arAux) { - foreach ($arAux as $arContas) { - $obTTGOBalancoApcaaaa->setDado('cod_plano',$arContas['cod_plano']); - $obTTGOBalancoApcaaaa->exclusao(); - } + $obTTGOBalancoApcaaaa->setDado( 'exercicio', Sessao::getExercicio() ); + + //excluir contas + if ( count( $arExcluidas['arExcluidas_'.$_REQUEST['inTipoLancamento']] ) > 0 ) { + foreach ( $arExcluidas['arExcluidas_'.$_REQUEST['inTipoLancamento']] as $arAux ) { + $obTTGOBalancoApcaaaa->setDado('cod_plano',$arAux['cod_plano']); + $obTTGOBalancoApcaaaa->exclusao( $boTransacao ); } } - if ( count( $arContas ) > 0 ) { - foreach ($arContas as $arAux) { - if ( count( $arAux ) > 0 ) { - foreach ($arAux as $arContas) { - $obTTGOBalancoApcaaaa->setDado( 'cod_plano', $arContas['cod_plano'] ); - $obTTGOBalancoApcaaaa->setDado( 'tipo_lancamento', $arContas['tipo_lancamento'] ); - $obTTGOBalancoApcaaaa->recuperaRelacionamento( $rsContas ); - if ( $rsContas->getNumLinhas() <= 0 ) { - $obTTGOBalancoApcaaaa->inclusao(); - } - } - } + + //Adicionar ou atualizar contas de acordo com o tipo de lancamento + if ( count( $arContas['arContas_'.$_REQUEST['inTipoLancamento']] ) > 0 ) { + foreach ($arContas['arContas_'.$_REQUEST['inTipoLancamento']] as $arAux) { + $obTTGOBalancoApcaaaa->setDado( 'cod_plano', $arAux['cod_plano'] ); + $obTTGOBalancoApcaaaa->setDado( 'tipo_lancamento', $arAux['tipo_lancamento'] ); + $obTTGOBalancoApcaaaa->recuperaRelacionamento( $rsContas ); + + if ( $rsContas->getNumLinhas() > 0 ) { + $obTTGOBalancoApcaaaa->alteracao( $boTransacao ); + } else { + $obTTGOBalancoApcaaaa->inclusao( $boTransacao ); + } } } SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=$stAcao","Configuração ","incluir","incluir_n", Sessao::getId(), "../"); } Sessao::encerraExcecao(); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLOA.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLOA.php new file mode 100644 index 0000000..dccc7be --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLOA.php @@ -0,0 +1,83 @@ + +get('stAcao'); + +$obErro = new Erro(); +switch ($stAcao) { + case 'manter': + $boFlagTransacao = false; + $obTransacao = new Transacao(); + $obTCMGOConfiguracaoLOA = new TCMGOConfiguracaoLOA(); + $rsTCMGOConfiguracaoLOA = new RecordSet(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + if (!$obErro->ocorreu()) { + $obTCMGOConfiguracaoLOA->setDado('exercicio' , Sessao::getExercicio() ); + $obTCMGOConfiguracaoLOA->setDado('cod_norma' , $request->get('hdnCodNorma') ); + $obTCMGOConfiguracaoLOA->setDado('percentual_suplementacao' , $request->get('nuPorSuplementacao') ); + $obTCMGOConfiguracaoLOA->setDado('percentual_credito_interna' , $request->get('nuPorCreditoInterna') ); + $obTCMGOConfiguracaoLOA->setDado('percentual_credito_antecipacao_receita', $request->get('nuPorCreditoAntecipacaoReceita') ); + + $obTCMGOConfiguracaoLOA->recuperaPorChave($rsTCMGOConfiguracaoLOA,$boTransacao); + + if ($rsTCMGOConfiguracaoLOA->getNumLinhas() < 0) { + $obErro = $obTCMGOConfiguracaoLOA->inclusao($boTransacao); + } else { + $obErro = $obTCMGOConfiguracaoLOA->alteracao($boTransacao); + } + + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obTCMGOConfiguracaoLOA); + } + break; +} +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisLDO.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisLDO.php new file mode 100644 index 0000000..f3a0585 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisLDO.php @@ -0,0 +1,142 @@ +get('stAcao'); + +$obErro = new Erro; + +switch ($stAcao) { + default: + $boFlagTransacao = false; + $obTransacao = new Transacao; + $rsTTCMGOConfiguracaoLeisLDO = new RecordSet(); + $obTTCMGOConfiguracaoLeisLDO = new TTCMGOConfiguracaoLeisLDO(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + + if (!$obErro->ocorreu) { + // INCLUINDO LEIS DE CONSULTA + if ($request->get('inCodLeiLDO') != '') { + $obTTCMGOConfiguracaoLeisLDO->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisLDO->setDado('cod_norma',$request->get('inCodLeiLDO')); + $obTTCMGOConfiguracaoLeisLDO->setDado('tipo_configuracao',"consulta"); + $obTTCMGOConfiguracaoLeisLDO->setDado('status',true); + $obTTCMGOConfiguracaoLeisLDO->recuperaPorChave($rsTTCMGOConfiguracaoLeisLDO,$boTransacao); + + $inCodNormaSalvo = Sessao::read('inCodNormaSalvo'); + if ($rsTTCMGOConfiguracaoLeisLDO->getCampo('cod_norma') != $inCodNormaSalvo) { + $obTTCMGOConfiguracaoLeisLDOAnterior = new TTCMGOConfiguracaoLeisLDO(); + $obTTCMGOConfiguracaoLeisLDOAnterior->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisLDOAnterior->setDado('cod_norma',$inCodNormaSalvo); + $obTTCMGOConfiguracaoLeisLDOAnterior->setDado('tipo_configuracao',"consulta"); + $obTTCMGOConfiguracaoLeisLDOAnterior->setDado('status',false); + $obErro = $obTTCMGOConfiguracaoLeisLDOAnterior->alteracao($boTransacao); + } + + if ($rsTTCMGOConfiguracaoLeisLDO->getNumLinhas() < 0) { + $obErro = $obTTCMGOConfiguracaoLeisLDO->inclusao($boTransacao); + } else { + $obErro = $obTTCMGOConfiguracaoLeisLDO->alteracao($boTransacao); + } + + // INCLUINDO LEIS DE ALTERAÇÃO + if (!$obErro->ocorreu) { + $arNormas = Sessao::read('arNormas'); + if (count($arNormas) > 0) { + foreach ($arNormas as $arNorma) { + $obTTCMGOConfiguracaoLeisLDO->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisLDO->setDado('cod_norma',$arNorma['inCodNorma']); + $obTTCMGOConfiguracaoLeisLDO->setDado('tipo_configuracao',"alteracao"); + $obTTCMGOConfiguracaoLeisLDO->setDado('status',true); + $obTTCMGOConfiguracaoLeisLDO->recuperaPorChave($rsTTCMGOConfiguracaoLeisLDO,$boTransacao); + + if ($rsTTCMGOConfiguracaoLeisLDO->getNumLinhas() < 0) { + $obErro = $obTTCMGOConfiguracaoLeisLDO->inclusao($boTransacao); + } else { + $obErro = $obTTCMGOConfiguracaoLeisLDO->alteracao($boTransacao); + } + } + } + $arNormasRemovidos = Sessao::read('arNormasRemovido'); + if (count($arNormasRemovidos) > 0) { + foreach ($arNormasRemovidos as $arNormaRemovido) { + $obTTCMGOConfiguracaoLeisLDO->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisLDO->setDado('cod_norma',$arNormaRemovido['inCodNorma']); + $obTTCMGOConfiguracaoLeisLDO->setDado('tipo_configuracao',"alteracao"); + $obTTCMGOConfiguracaoLeisLDO->setDado('status',false); + $obTTCMGOConfiguracaoLeisLDO->recuperaPorChave($rsTTCMGOConfiguracaoLeisLDO,$boTransacao); + + if ($rsTTCMGOConfiguracaoLeisLDO->getNumLinhas() < 0) { + $obErro = $obTTCMGOConfiguracaoLeisLDO->inclusao($boTransacao); + } else { + $obErro = $obTTCMGOConfiguracaoLeisLDO->alteracao($boTransacao); + } + } + } + } + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId(),"Configuração Leis do LDO","incluir","aviso", Sessao::getId(), "../"); + Sessao::remove('inCodNormaSalvo'); + Sessao::remove('arNormas'); + Sessao::remove('arNormasRemovido'); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obTTCMGOConfiguracaoLeisLDO); + } + + break; +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisPPA.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisPPA.php new file mode 100644 index 0000000..f4d1bc6 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisPPA.php @@ -0,0 +1,156 @@ + +get('stAcao'); + +$obErro = new Erro; + +switch ($stAcao) { + default: + $boFlagTransacao = false; + $obTransacao = new Transacao; + $obErro = new Erro; + $rsTTCMGOConfiguracaoLeisPPA = new RecordSet(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + + $arDescPubLei = array(); + $arDescPubLei[1] = 'Diário Oficial do Estado'; + $arDescPubLei[2] = 'Diário Oficial do Município'; + $arDescPubLei[3] = 'Placar da Prefeitura ou da Câmara Municipal'; + $arDescPubLei[4] = 'Jornal de grande circulação'; + $arDescPubLei[5] = 'Diário Oficial da União'; + $arDescPubLei[9] = 'Endereço eletrônico completo (Internet)'; + + if (!$obErro->ocorreu()) { + // INCLUINDO LEIS DE CONSULTA + $arNormasRemovidos = Sessao::read('arNormasRemovido'); + if (count($arNormasRemovidos) > 0) { + foreach ($arNormasRemovidos as $arNormaRemovido) { + $obTTCMGOConfiguracaoLeisNormaRemovido = new TTCMGOConfiguracaoLeisPPA(); + $obTTCMGOConfiguracaoLeisNormaRemovido->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisNormaRemovido->setDado('cod_norma',$arNormaRemovido['inCodNorma']); + $obTTCMGOConfiguracaoLeisNormaRemovido->setDado('tipo_configuracao',"alteracao"); + $obTTCMGOConfiguracaoLeisNormaRemovido->setDado('cod_veiculo_publicacao', 0); + $obTTCMGOConfiguracaoLeisNormaRemovido->setDado('status',false); + $obTTCMGOConfiguracaoLeisNormaRemovido->recuperaPorChave($rsNormaRemovido,$boTransacao); + + if($rsNormaRemovido->getCampo('cod_veiculo_publicacao')>0) + $obTTCMGOConfiguracaoLeisNormaRemovido->setDado('cod_veiculo_publicacao',$rsNormaRemovido->getCampo('cod_veiculo_publicacao')); + + if ($rsNormaRemovido->getNumLinhas() < 0) + $obErro = $obTTCMGOConfiguracaoLeisNormaRemovido->inclusao($boTransacao); + else + $obErro = $obTTCMGOConfiguracaoLeisNormaRemovido->alteracao($boTransacao); + } + } + + $obTTCMGOConfiguracaoLeisPPA = new TTCMGOConfiguracaoLeisPPA(); + $obTTCMGOConfiguracaoLeisPPA->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisPPA->setDado('tipo_configuracao',"consulta"); + $obTTCMGOConfiguracaoLeisPPA->recuperaPorChave($rsTTCMGOConfiguracaoLeisPPA,$boTransacao); + + while (!$rsTTCMGOConfiguracaoLeisPPA->eof()) { + $obTTCMGOConfiguracaoLeisPPAAnterior = new TTCMGOConfiguracaoLeisPPA(); + $obTTCMGOConfiguracaoLeisPPAAnterior->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisPPAAnterior->setDado('cod_norma',$rsTTCMGOConfiguracaoLeisPPA->getCampo('cod_norma')); + $obTTCMGOConfiguracaoLeisPPAAnterior->setDado('tipo_configuracao',"consulta"); + $obTTCMGOConfiguracaoLeisPPAAnterior->setDado('cod_veiculo_publicacao',$rsTTCMGOConfiguracaoLeisPPA->getCampo('cod_veiculo_publicacao')); + $obTTCMGOConfiguracaoLeisPPAAnterior->setDado('status',false); + $obErro = $obTTCMGOConfiguracaoLeisPPAAnterior->alteracao($boTransacao); + + $rsTTCMGOConfiguracaoLeisPPA->proximo(); + } + + // INCLUINDO LEIS DE ALTERAÇÃO + if (!$obErro->ocorreu()) { + $arNormas = Sessao::read('arNormas'); + + if (count($arNormas) > 0 && !$obErro->ocorreu()) { + foreach ($arNormas as $arNorma) { + $obTTCMGOConfiguracaoLeisPPA = new TTCMGOConfiguracaoLeisPPA(); + $obTTCMGOConfiguracaoLeisPPA->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisPPA->setDado('cod_norma',$arNorma['inCodNorma']); + $obTTCMGOConfiguracaoLeisPPA->setDado('tipo_configuracao',"alteracao"); + $obTTCMGOConfiguracaoLeisPPA->setDado('status',true); + $obTTCMGOConfiguracaoLeisPPA->setDado('cod_veiculo_publicacao',($arNorma['codPubLeiAlteracao'] !='') ? $arNorma['codPubLeiAlteracao'] : 0); + + $stDescLei = ($arNorma['codPubLeiAlteracao'] == 9 ) ? $arNorma['stDescLeiAlteracao'] : $arDescPubLei[$arNorma['codPubLeiAlteracao']]; + $obTTCMGOConfiguracaoLeisPPA->setDado('descricao_publicacao',$stDescLei); + $obTTCMGOConfiguracaoLeisPPA->recuperaPorChave($rsTTCMGOConfiguracaoLeisPPA,$boTransacao); + + if ($rsTTCMGOConfiguracaoLeisPPA->getNumLinhas() < 0) { + $obErro = $obTTCMGOConfiguracaoLeisPPA->inclusao($boTransacao); + } else { + $obErro = $obTTCMGOConfiguracaoLeisPPA->alteracao($boTransacao); + } + } + } + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId(),"Configuração Leis do PPA","incluir","aviso", Sessao::getId(), "../"); + Sessao::remove('arNormas'); + Sessao::remove('arNormasRemovido'); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obTTCMGOConfiguracaoLeisPPA); + } + + break; +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasArrecadacaoReceita.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasArrecadacaoReceita.php new file mode 100644 index 0000000..5b5138f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasArrecadacaoReceita.php @@ -0,0 +1,96 @@ + +get('stAcao'); +$obErro = new Erro; + +switch ($stAcao) { + default: + $boFlagTransacao = false; + $obTransacao = new Transacao; + $rsTTCMGOMetasArrecadacaoReceita = new RecordSet(); + $obTTCMGOMetasArrecadacaoReceita = new TTCMGOMetasArrecadacaoReceita(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + + if (!$obErro->ocorreu()) { + $obTTCMGOMetasArrecadacaoReceita->setDado('exercicio' , $request->get('stExercicio')); + $obTTCMGOMetasArrecadacaoReceita->setDado('meta_arrecadacao_1_bi' , $request->get('valorMetaArrecadacao1Bi')); + $obTTCMGOMetasArrecadacaoReceita->setDado('meta_arrecadacao_2_bi' , $request->get('valorMetaArrecadacao2Bi')); + $obTTCMGOMetasArrecadacaoReceita->setDado('meta_arrecadacao_3_bi' , $request->get('valorMetaArrecadacao3Bi')); + $obTTCMGOMetasArrecadacaoReceita->setDado('meta_arrecadacao_4_bi' , $request->get('valorMetaArrecadacao4Bi')); + $obTTCMGOMetasArrecadacaoReceita->setDado('meta_arrecadacao_5_bi' , $request->get('valorMetaArrecadacao5Bi')); + $obTTCMGOMetasArrecadacaoReceita->setDado('meta_arrecadacao_6_bi' , $request->get('valorMetaArrecadacao6Bi')); + + $obTTCMGOMetasArrecadacaoReceita->recuperaPorChave($rsTTCMGOMetasArrecadacaoReceita,$boTransacao); + + if ($rsTTCMGOMetasArrecadacaoReceita->getNumLinhas() < 0) { + $obErro = $obTTCMGOMetasArrecadacaoReceita->inclusao($boTransacao); + } else { + $obErro = $obTTCMGOMetasArrecadacaoReceita->alteracao($boTransacao); + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId(),"Configurar Metas de Arrecadação de Receitas concluído com sucesso!","manter","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + $obTransacao->fechaTransacao($boFlagTransacao,$boTransacao,$obErro,$obTTCMGOMetasArrecadacaoReceita); + } + + break; +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasFiscaisLDO.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasFiscaisLDO.php new file mode 100644 index 0000000..92a7ca6 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasFiscaisLDO.php @@ -0,0 +1,96 @@ + +get('stAcao'); +$obErro = new Erro; + +switch ($stAcao) { + default: + $boFlagTransacao = false; + $obTransacao = new Transacao; + $rsTTCMGOMetasFiscaisLDO = new RecordSet(); + $obTTCMGOMetasFiscaisLDO = new TTCMGOMetasFiscaisLDO(); + $obErro = $obTransacao->abreTransacao($boFlagTransacao, $boTransacao); + + if (!$obErro->ocorreu()) { + $obTTCMGOMetasFiscaisLDO->setDado('exercicio' , $request->get('stExercicio')); + $obTTCMGOMetasFiscaisLDO->setDado('valor_corrente_receita' , $request->get('flValorCorrenteReceita')); + $obTTCMGOMetasFiscaisLDO->setDado('valor_corrente_despesa' , $request->get('flValorCorrenteDespesa')); + $obTTCMGOMetasFiscaisLDO->setDado('valor_corrente_resultado_primario' , $request->get('flValorCorrenteResultadoPrimario')); + $obTTCMGOMetasFiscaisLDO->setDado('valor_corrente_resultado_nominal' , $request->get('flValorCorrenteResultadoNominal')); + $obTTCMGOMetasFiscaisLDO->setDado('valor_corrente_divida_consolidada_liquida' , $request->get('flValorCorrenteDividaConsolidadaLiquida')); + + $obTTCMGOMetasFiscaisLDO->recuperaPorChave($rsTTCMGOMetasFiscaisLDO, $boTransacao); + + if ($rsTTCMGOMetasFiscaisLDO->getNumLinhas() < 0) { + $obErro = $obTTCMGOMetasFiscaisLDO->inclusao($boTransacao); + } else { + $obErro = $obTTCMGOMetasFiscaisLDO->alteracao($boTransacao); + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgFilt."?".Sessao::getId(),"Configurar Metas Fiscais concluído com sucesso!","manter","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + $obTransacao->fechaTransacao($boFlagTransacao, $boTransacao, $obErro, $obTTCMGOMetasFiscaisLDO); + } + + break; +} + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterContaOrgao.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterContaOrgao.php index 9e4c7a9..5ad612e 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterContaOrgao.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterContaOrgao.php @@ -31,7 +31,7 @@ * @ignore - * $Id: PRManterContaOrgao.php 59820 2014-09-12 18:17:20Z luciana $ + * $Id: PRManterContaOrgao.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso : uc-06.04.00 */ @@ -39,6 +39,7 @@ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; include_once(TTGO.'TTGOOrgaoPlanoBanco.class.php'); +include_once(TTGO.'TTGOOrgao.class.php'); //Define o nome dos arquivos PHP $stPrograma = "ManterContaOrgao"; @@ -57,13 +58,30 @@ switch ($_REQUEST['stAcao']) { $obTTGOOrgaoPlanoBanco->setDado('exercicio', Sessao::getExercicio()); $obTTGOOrgaoPlanoBanco->setDado('num_orgao', Sessao::read('inOrgao')); $obTTGOOrgaoPlanoBanco->exclusao(); + + $obTTGOOrgao = new TTGOOrgao(); + if ( is_array($arContas) ) { foreach ($arContas as $arAux) { - $obTTGOOrgaoPlanoBanco->setDado('num_orgao',$arAux['num_orgao']); - $obTTGOOrgaoPlanoBanco->setDado('cod_plano',$arAux['cod_plano']); - $obTTGOOrgaoPlanoBanco->inclusao(); + $obTTGOOrgao->setDado('num_orgao', $arAux['num_orgao']); + $obTTGOOrgao->setDado('exercicio', Sessao::getExercicio()); + $obTTGOOrgao->recuperaPorChave($rsRecordSet); + + if ($rsRecordSet->getNumLinhas() > 0) { + $obTTGOOrgaoPlanoBanco->setDado('num_orgao',$arAux['num_orgao']); + $obTTGOOrgaoPlanoBanco->setDado('cod_plano',$arAux['cod_plano']); + $obTTGOOrgaoPlanoBanco->inclusao(); + } else { + $stMensagem = "Deve ser configurado o orgão ".$arAux['num_orgao']." - ".$arAux['nom_orgao']." antes!"; + break; + } + } + + if (!$stMensagem) { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=$stAcao","Configuração ","incluir","incluir_n", Sessao::getId(), "../"); + } else { + sistemaLegado::exibeAviso(urlencode($stMensagem),"n_incluir","erro"); } - SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=$stAcao","Configuração ","incluir","incluir_n", Sessao::getId(), "../"); } else { sistemaLegado::exibeAviso(urlencode('É necessário cadastrar pelo uma conta!'),"n_incluir","erro"); } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterDividaFundada.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterDividaFundada.php index 1233bb2..9e02210 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterDividaFundada.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterDividaFundada.php @@ -31,15 +31,14 @@ * @ignore - $Id: PRManterDividaFundada.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: PRManterDividaFundada.php 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso : uc-06.04.00 */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; -include_once(TTGO.'TTGOGrupoPlanoAnalitica.class.php'); -include_once(TTGO.'TTGOGrupoPlanoAnaliticaLei.class.php'); +include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGODividaFundada.class.php" ); //Define o nome dos arquivos PHP $stPrograma = "ManterDividaFundada"; @@ -49,46 +48,104 @@ $pgForm = "FM".$stPrograma.".php"; $pgProc = "PR".$stPrograma.".php"; $pgOcul = "OC".$stPrograma.".php"; -Sessao::setTrataExcecao ( true ); $stAcao = $request->get('stAcao'); -$arContas = Sessao::read('arContas'); -switch ($_REQUEST['stAcao']) { +$obErro = new Erro; + +$boFlagTransacao = false; +$obTransacao = new Transacao; +$obErro = $obTransacao->abreTransacao( $boFlagTransacao, $boTransacao ); + +switch ($stAcao) { case 'incluir' : - if ($arContas > 0) { - - $obTTGOGrupoPlanoAnalitica = new TTGOGrupoPlanoAnalitica(); - $obTTGOGrupoPlanoAnaliticaLei = new TTGOGrupoPlanoAnaliticaLei(); - - $obTTGOGrupoPlanoAnalitica->setDado('exercicio',Sessao::getExercicio()); - $obTTGOGrupoPlanoAnalitica->setDado('cod_tipo_lancamento','2'); - $obTTGOGrupoPlanoAnalitica->setDado('cod_tipo',$_REQUEST['inTipoLancamento']); - $obTTGOGrupoPlanoAnalitica->recuperaGrupoPlanoAnalitica( $rsContas ); - - while ( !$rsContas->eof() ) { - $obTTGOGrupoPlanoAnaliticaLei->setDado( 'exercicio', Sessao::getExercicio() ); - $obTTGOGrupoPlanoAnaliticaLei->setDado( 'cod_plano', $rsContas->getCampo('cod_plano') ); - $obTTGOGrupoPlanoAnaliticaLei->exclusao(); - $obTTGOGrupoPlanoAnalitica->setDado('cod_plano',$rsContas->getCampo('cod_plano')); - $obTTGOGrupoPlanoAnalitica->exclusao(); - $rsContas->proximo(); - } - - foreach ($arContas as $arAux) { - $obTTGOGrupoPlanoAnalitica->setDado('cod_plano',$arAux['cod_plano']); - $obTTGOGrupoPlanoAnalitica->inclusao(); - $obTTGOGrupoPlanoAnaliticaLei->setDado( 'cod_plano', $arAux['cod_plano'] ); - $obTTGOGrupoPlanoAnaliticaLei->setDado( 'exercicio', Sessao::getExercicio() ); - $obTTGOGrupoPlanoAnaliticaLei->setDado( 'nro_lei', $arAux['lei_autorizacao'] ); - $obTTGOGrupoPlanoAnaliticaLei->setDado( 'data_lei', $arAux['data_autorizacao'] ); - $obTTGOGrupoPlanoAnaliticaLei->inclusao(); - } - - SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=$stAcao","Configuração ","incluir","incluir_n", Sessao::getId(), "../"); + $obTTCMGODividaFundada = new TTCMGODividaFundada; + $obTTCMGODividaFundada->setDado('exercicio' , $request->get('stExercicio')); + $obTTCMGODividaFundada->setDado('cod_entidade' , $request->get('inCodEntidade')); + $obTTCMGODividaFundada->setDado('num_unidade' , $request->get('inNumUnidade')); + $obTTCMGODividaFundada->setDado('num_orgao' , $request->get('inNumOrgao')); + $obTTCMGODividaFundada->setDado('cod_norma' , $request->get('inCodLeiAutorizacao')); + $obTTCMGODividaFundada->setDado('numcgm' , $request->get('inCGM')); + $obTTCMGODividaFundada->setDado('cod_tipo_lancamento' , $request->get('inTipoLancamento')); + $obTTCMGODividaFundada->setDado('valor_saldo_anterior' , $request->get('flValorSaldoAnterior')); + $obTTCMGODividaFundada->setDado('valor_contratacao' , $request->get('flValorContratacao')); + $obTTCMGODividaFundada->setDado('valor_amortizacao' , $request->get('flValorAmortizacao')); + $obTTCMGODividaFundada->setDado('valor_cancelamento' , $request->get('flValorCancelamento')); + $obTTCMGODividaFundada->setDado('valor_encampacao' , $request->get('flValorEncampacao')); + $obTTCMGODividaFundada->setDado('valor_correcao' , $request->get('flValorCorrecao')); + $obTTCMGODividaFundada->setDado('valor_saldo_atual' , $request->get('flValorSaldoAtual')); + + $obErro = $obTTCMGODividaFundada->inclusao($boTransacao); + + $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obTTCMGODividaFundada ); + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm,"Dívida Fundada".$request->get('cod_norma'),"alterar","aviso", Sessao::getId(), "../"); } else { - sistemaLegado::exibeAviso(urlencode('É necessário cadastrar pelo uma conta!'),"n_incluir","erro"); + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); } + + break; + + case 'alterar': + $obTTCMGODividaFundada = new TTCMGODividaFundada; + $obTTCMGODividaFundada->setDado('exercicio' , $request->get('stExercicio')); + $obTTCMGODividaFundada->setDado('cod_entidade' , $request->get('inCodEntidade')); + $obTTCMGODividaFundada->setDado('num_unidade' , $request->get('inNumUnidade')); + $obTTCMGODividaFundada->setDado('num_orgao' , $request->get('inNumOrgao')); + $obTTCMGODividaFundada->setDado('cod_norma' , $request->get('inCodLeiAutorizacao')); + $obTTCMGODividaFundada->setDado('numcgm' , $request->get('inCGM')); + $obTTCMGODividaFundada->setDado('cod_tipo_lancamento' , $request->get('inTipoLancamento')); + $obTTCMGODividaFundada->setDado('valor_saldo_anterior' , $request->get('flValorSaldoAnterior')); + $obTTCMGODividaFundada->setDado('valor_contratacao' , $request->get('flValorContratacao')); + $obTTCMGODividaFundada->setDado('valor_amortizacao' , $request->get('flValorAmortizacao')); + $obTTCMGODividaFundada->setDado('valor_cancelamento' , $request->get('flValorCancelamento')); + $obTTCMGODividaFundada->setDado('valor_encampacao' , $request->get('flValorEncampacao')); + $obTTCMGODividaFundada->setDado('valor_correcao' , $request->get('flValorCorrecao')); + $obTTCMGODividaFundada->setDado('valor_saldo_atual' , $request->get('flValorSaldoAtual')); + + $obErro = $obTTCMGODividaFundada->alteracao($boTransacao); + + $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obTTCMGODividaFundada ); + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgFilt,"Dívida Fundada".$request->get('cod_norma'),"alterar","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); + } + + break; + + case 'excluir': + $obTTCMGODividaFundada = new TTCMGODividaFundada; + $obTTCMGODividaFundada->setDado('exercicio' ,$request->get('inExercicio')); + $obTTCMGODividaFundada->setDado('cod_entidade' ,$request->get('inCodEntidade')); + $obTTCMGODividaFundada->setDado('num_unidade' ,$request->get('inNumUnidade')); + $obTTCMGODividaFundada->setDado('num_orgao' ,$request->get('inNumOrgao')); + $obTTCMGODividaFundada->setDado('cod_norma' ,$request->get('inCodNorma')); + $obTTCMGODividaFundada->setDado('numcgm' ,$request->get('inNumCgm')); + $obTTCMGODividaFundada->setDado('cod_tipo_lancamento' ,$request->get('inCodTipoLancamento')); + $obTTCMGODividaFundada->setDado('valor_saldo_anterior' ,$request->get('vlSaldoAnterior')); + $obTTCMGODividaFundada->setDado('valor_contratacao' ,$request->get('vlContratacao')); + $obTTCMGODividaFundada->setDado('valor_amortizacao' ,$request->get('vlAmortizacao')); + $obTTCMGODividaFundada->setDado('valor_cancelamento' ,$request->get('vlCancelamento')); + $obTTCMGODividaFundada->setDado('valor_encampacao' ,$request->get('vlEncampacao')); + $obTTCMGODividaFundada->setDado('valor_correcao' ,$request->get('vlCorrecao')); + $obTTCMGODividaFundada->setDado('valor_saldo_atual' ,$request->get('vlSaldoAtual')); + + $obErro = $obTTCMGODividaFundada->exclusao($boTransacao); + + $obTransacao->fechaTransacao( $boFlagTransacao, $boTransacao, $obErro, $obTTCMGODividaFundada ); + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgFilt,"Dívida Fundada".$request->get('cod_norma'),"alterar","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_alterar","erro"); + } + + break; } -Sessao::encerraExcecao(); +//Sessao::encerraExcecao(); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterProvedorSistema.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterProvedorSistema.php new file mode 100644 index 0000000..4ccd600 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterProvedorSistema.php @@ -0,0 +1,68 @@ +setMapeamento( $obTAdministracaoConfiguracao ); + +$obTAdministracaoConfiguracao->setDado('exercicio' , Sessao::getExercicio() ); +$obTAdministracaoConfiguracao->setDado('cod_modulo' , 42 ); +$obTAdministracaoConfiguracao->setDado('parametro' , 'provedor_sistema' ); +$obTAdministracaoConfiguracao->setDado('valor' , $request->get('inCodCGM') ); +$obTAdministracaoConfiguracao->alteracao(); + +//Encerra o controle de transação +Sessao::encerraExcecao(); + +SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao,"Configuração ","incluir","incluir_n", Sessao::getId(), "../"); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacao.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacao.php new file mode 100644 index 0000000..e10bc12 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacao.php @@ -0,0 +1,127 @@ + +$stValue){ + if($stKey == 'inNumCGM_'.$inCount){ + $arCGMResponsaveis[$inCount] = array( $stKey=>$stValue,'stNomCGM_'.$inCount=>$_REQUEST['stNomCGM_'.$inCount] ); + + if(empty($_REQUEST['inNumCGM_'.$inCount]) && ($_REQUEST['inCodModalidade'] != '9') && ($_REQUEST['inCodModalidade'] != '8')){ + $arCGMResponsaveis[$inCount]['stNomCGM_'.$inCount] = ""; + $obErro->setDescricao('Campo Vazio'); + } + + if(($_REQUEST['inNumCGM_'.$inCount] == "") && ($_REQUEST['stNomCGM_'.$inCount] != "")){ + if(($_REQUEST['inCodModalidade'] == '9') || ($_REQUEST['inCodModalidade'] == '8')){ + $arCGMResponsaveis[$inCount]['inNumCGM_'.$inCount] = "null"; + $_REQUEST['inNumCGM_'.$inCount] = "null"; + } + } + $inCount++; + } +} + +Sessao::write("arCGMResponsaveis",$arCGMResponsaveis); + +$arEntidade = explode('-',$_REQUEST['stEntidade']); +$arModalidade = explode('-',$_REQUEST['stModalidade']); +$obTTCMGOResponsavelLicitacao = new TTCMGOResponsavelLicitacao(); +$obTTCMGOResponsavelLicitacao->setDado('exercicio' , $_REQUEST['stExercicioLicitacao']); +$obTTCMGOResponsavelLicitacao->setDado('cod_entidade' , $arEntidade[0]); +$obTTCMGOResponsavelLicitacao->setDado('cod_modalidade' , $arModalidade[0]); +$obTTCMGOResponsavelLicitacao->setDado('cod_licitacao' , $_REQUEST['inCodLicitacao']); + +$obTTCMGOResponsavelLicitacao->recuperaPorChave($rsRecordSet); + +if(!$obErro->ocorreu()){ + if($rsRecordSet->getNumLinhas()>0){ + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_abertura_licitacao' , $_REQUEST['inNumCGM_1']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_edital' , $_REQUEST['inNumCGM_2']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_pesquisa' , $_REQUEST['inNumCGM_3']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_recurso_orcamentario', $_REQUEST['inNumCGM_4']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_conducao_licitacao' , $_REQUEST['inNumCGM_5']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_homologacao' , $_REQUEST['inNumCGM_6']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_adjudicacao' , $_REQUEST['inNumCGM_7']); + + $obErro = $obTTCMGOResponsavelLicitacao->alteracao(); + + if($obErro->ocorreu()){ + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao, urlencode($obErro->getDescricao()),"n_incluir","erro", Sessao::getId(), "../"); + }else{ + SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao,"Licitaçao ".$_REQUEST['licitacao'],"alterar","aviso", Sessao::getId(), "../"); + } + }else{ + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_abertura_licitacao' , $_REQUEST['inNumCGM_1']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_edital' , $_REQUEST['inNumCGM_2']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_pesquisa' , $_REQUEST['inNumCGM_3']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_recurso_orcamentario', $_REQUEST['inNumCGM_4']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_conducao_licitacao' , $_REQUEST['inNumCGM_5']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_homologacao' , $_REQUEST['inNumCGM_6']); + $obTTCMGOResponsavelLicitacao->setDado('cgm_resp_adjudicacao' , $_REQUEST['inNumCGM_7']); + $obErro = $obTTCMGOResponsavelLicitacao->inclusao(); + + if($obErro->ocorreu()){ + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao, urlencode($obErro->getDescricao()),"n_incluir","aviso", Sessao::getId(), "../"); + }else{ + SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao,"Licitacao ".$_REQUEST['licitacao'],"incluir","aviso", Sessao::getId(), "../"); + } + } +}else { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao, urlencode($obErro->getDescricao()),"n_incluir","erro", Sessao::getId(), "../"); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacaoDispensa.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacaoDispensa.php new file mode 100644 index 0000000..cc7f1de --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacaoDispensa.php @@ -0,0 +1,127 @@ + +$stValue){ + if($stKey == 'inNumCGM_'.$inCount){ + $arCGMResponsaveis[$inCount] = array( $stKey=>$stValue,'stNomCGM_'.$inCount=>$_REQUEST['stNomCGM_'.$inCount] ); + + if(empty($_REQUEST['inNumCGM_'.$inCount]) && ($_REQUEST['inCodModalidade'] != '9') && ($_REQUEST['inCodModalidade'] != '8')){ + $arCGMResponsaveis[$inCount]['stNomCGM_'.$inCount] = ""; + $obErro->setDescricao('Campo Vazio'); + } + + if(($_REQUEST['inNumCGM_'.$inCount] == "") && ($_REQUEST['stNomCGM_'.$inCount] != "")){ + if(($_REQUEST['inCodModalidade'] == '9') || ($_REQUEST['inCodModalidade'] == '8')){ + $arCGMResponsaveis[$inCount]['inNumCGM_'.$inCount] = "null"; + $_REQUEST['inNumCGM_'.$inCount] = "null"; + } + } + $inCount++; + } +} + +Sessao::write("arCGMResponsaveis",$arCGMResponsaveis); + +$arEntidade = explode('-',$_REQUEST['stEntidade']); +$arModalidade = explode('-',$_REQUEST['stModalidade']); +$obTTCMGOResponsavelLicitacaoDispensa = new TTCMGOResponsavelLicitacaoDispensa(); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('exercicio' , $_REQUEST['stExercicioLicitacao']); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('cod_entidade' , $arEntidade[0]); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('cod_modalidade' , $arModalidade[0]); +$obTTCMGOResponsavelLicitacaoDispensa->setDado('cod_licitacao' , $_REQUEST['inCodLicitacao']); + +$obTTCMGOResponsavelLicitacaoDispensa->recuperaPorChave($rsRecordSet); + +if(!$obErro->ocorreu()){ + if($rsRecordSet->getNumLinhas()>0){ + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_abertura_disp' , $_REQUEST['inNumCGM_1']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_cotacao_precos' , $_REQUEST['inNumCGM_2']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_recurso' , $_REQUEST['inNumCGM_3']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_ratificacao' , $_REQUEST['inNumCGM_4']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_publicacao_orgao', $_REQUEST['inNumCGM_5']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_parecer_juridico', $_REQUEST['inNumCGM_6']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_parecer_outro' , $_REQUEST['inNumCGM_7']); + + $obErro = $obTTCMGOResponsavelLicitacaoDispensa->alteracao(); + + if($obErro->ocorreu()){ + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao, urlencode($obErro->getDescricao()),"n_incluir","erro", Sessao::getId(), "../"); + }else{ + SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao,"Licitaçao ".$_REQUEST['licitacao'],"alterar","aviso", Sessao::getId(), "../"); + } + }else{ + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_abertura_disp' , $_REQUEST['inNumCGM_1']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_cotacao_precos' , $_REQUEST['inNumCGM_2']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_recurso' , $_REQUEST['inNumCGM_3']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_ratificacao' , $_REQUEST['inNumCGM_4']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_publicacao_orgao', $_REQUEST['inNumCGM_5']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_parecer_juridico', $_REQUEST['inNumCGM_6']); + $obTTCMGOResponsavelLicitacaoDispensa->setDado('cgm_resp_parecer_outro' , $_REQUEST['inNumCGM_7']); + $obErro = $obTTCMGOResponsavelLicitacaoDispensa->inclusao(); + + if($obErro->ocorreu()){ + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao, urlencode($obErro->getDescricao()),"n_incluir","aviso", Sessao::getId(), "../"); + }else{ + SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao,"Licitacao ".$_REQUEST['licitacao'],"incluir","aviso", Sessao::getId(), "../"); + } + } +}else { + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao, urlencode($obErro->getDescricao()),"n_incluir","erro", Sessao::getId(), "../"); +} + +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterTecnicoResponsavel.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterTecnicoResponsavel.php new file mode 100644 index 0000000..746591d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterTecnicoResponsavel.php @@ -0,0 +1,83 @@ +setMapeamento( $obTTCMGOResponsavelTecnico ); + +//Exclui todos os registros da tabela e insere novamente. +$obTTCMGOResponsavelTecnico->excluirTodos(); + +$arTecnicoResponsavel = Sessao::read('arTecnicoResponsavel'); + +//Percorre o Array de dados de Responsavel Tecnico e insere. +if (!empty($arTecnicoResponsavel)) { + foreach ($arTecnicoResponsavel as $arResponsavel) { + $obTTCMGOResponsavelTecnico->setDado('exercicio' , Sessao::getExercicio() ); + $obTTCMGOResponsavelTecnico->setDado('cgm_responsavel' , $arResponsavel['cgm_responsavel'] ); + $obTTCMGOResponsavelTecnico->setDado('cod_entidade' , $arResponsavel['cod_entidade'] ); + $obTTCMGOResponsavelTecnico->setDado('cod_tipo' , $arResponsavel['cod_tipo'] ); + $obTTCMGOResponsavelTecnico->setDado('crc' , $arResponsavel['crc'] ); + $obTTCMGOResponsavelTecnico->setDado('dt_inicio' , $arResponsavel['dt_inicio'] ); + $obTTCMGOResponsavelTecnico->setDado('dt_fim' , $arResponsavel['dt_fim'] ); + $obTTCMGOResponsavelTecnico->inclusao(); + } +}else{ + $obTTCMGOResponsavelTecnico->excluirTodos(); +} + +//Encerra o controle de transação +Sessao::encerraExcecao(); + +SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao,"Configuração ","incluir","incluir_n", Sessao::getId(), "../"); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFD.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFD.inc.php index 2170d57..2610f9c 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFD.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFD.inc.php @@ -33,10 +33,10 @@ * @ignore - $Revision: 59820 $ + $Revision: 61782 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-03-03 15:35:51 -0300 (Ter, 03 Mar 2015) $ * Casos de uso: uc-06.04.00 */ @@ -54,70 +54,189 @@ Revision 1.1 2007/05/08 14:49:18 bruce */ include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGOAFD.class.php" ); - $obTMapeamento = new TTCMGOAFD (); - $obTMapeamento->setDado('exercicio', Sessao::getExercicio()); - $obTMapeamento->setDado('cod_entidade', $stEntidades ); - - $obTMapeamento->recuperaContasBancarias($arRecordSet[$stArquivo]); - - $i = 0; - - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_sequencial'] = ++$i; + $obTTCMGOAFD = new TTCMGOAFD(); + $obTTCMGOAFD->setDado('exercicio', Sessao::getExercicio()); + $obTTCMGOAFD->setDado('cod_entidade', $stEntidades ); + + $obTTCMGOAFD->recuperaContasBancarias($rsRecordSetAFD10); + $obTTCMGOAFD->recuperaContasBancariasFonteRecurso($rsRecordSetAFD11); + + $inCount = 0; + + if (count($rsRecordSetAFD10->getElementos()) > 0) { + $stChave10 = ''; + + //Registro 10 + foreach ($rsRecordSetAFD10->getElementos() as $arAFD10) { + + $inCount++; + $stChave10 = $arAFD10['cod_orgao'].$arAFD10['banco'].$arAFD10['agencia'].$arAFD10['conta_corrente'].$arAFD10['conta_corrente_dv'].$arAFD10['tipo_documento']; + $arAFD10['numero_sequencial'] = $inCount; + + $$rsBloco10 = 'rsBloco10_'.$inCount; + unset($$rsBloco10); + $$rsBloco10 = new RecordSet(); + $$rsBloco10->preenche(array($arAFD10)); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco10 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("banco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("agencia"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("conta_corrente"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("conta_corrente_dv"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_inicial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_entradas"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saidas"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_final"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(26); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + // Registro 11 + if (count($rsRecordSetAFD11->getElementos()) > 0) { + $stChave11 = ''; + + foreach ($rsRecordSetAFD11->getElementos() as $arAFD11){ + + if ($stChave10 == $arAFD11['cod_orgao'].$arAFD11['banco'].$arAFD11['agencia'].$arAFD11['conta_corrente'].$arAFD11['conta_corrente_dv'].$arAFD11['tipo_documento']) { + $stChave11 = $arAFD11['cod_orgao'].$arAFD11['banco'].$arAFD11['agencia'].$arAFD11['conta_corrente'].$arAFD11['conta_corrente_dv'].$arAFD11['tipo_documento'].$arAFD11['cod_fonte_recurso']; + $inCount++; + + $arAFD11['numero_sequencial'] = $inCount; + + $rsBloco11 = 'rsBloco11_'.$inCount; + unset($$rsBloco11); + $$rsBloco11 = new RecordSet(); + $$rsBloco11->preenche(array($arAFD11)); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco11 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("banco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("agencia"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("conta_corrente"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("conta_corrente_dv"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_inicial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_entradas"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saidas"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_final"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + }// Fim foreach registro 11 + } + }// Fim foreach registro 10 } - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_banco"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_agencia"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("conta_corrente"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_inicial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_final"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - - //tipo99 - $arTemp[0] = array( 'tipo_registro'=> '99', 'espacador'=> '', 'numero_sequencial' => ++$i ); - - $arRecordSet[$stArquivo] = new RecordSet(); - $arRecordSet[$stArquivo]->preenche( $arTemp ); - - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + //Tipo Registro 99 + $arRecordSetAFD99 = array( + '0' => array( + 'tipo_registro' => '99', + 'brancos' => '', + 'numero_sequencial' => $inCount+1, + ) + ); + + $rsRecordSetAFD99 = new RecordSet(); + $rsRecordSetAFD99->preenche($arRecordSetAFD99); + + $obExportador->roUltimoArquivo->addBloco($rsRecordSetAFD99); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(99); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(104); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $rsRecordSetAFD10 = null; + $rsRecordSetAFD11 = null; + $rsRecordSetAFD99 = null; + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFR.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFR.inc.php index dd8feb4..7dd8abf 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFR.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFR.inc.php @@ -31,10 +31,10 @@ * @ignore - $Revision: 59820 $ + $Revision: 61647 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * Casos de uso: uc-06.04.00 */ @@ -75,93 +75,202 @@ Revision 1.1 2007/04/20 20:24:27 bruce Bug #9169# */ - include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGOAtivoFinanceiro.class.php" ); - - $obTMapeamento = new TTCMGOAtivoFinanceiro; - $obTMapeamento->setDado ('exercicio' , Sessao::getExercicio() ); - $obTMapeamento->setDado ('stEntidades', $stEntidades ); - $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); - $i = 1; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i; - $arRecordSet[$stArquivo]->arElementos[$i]['tipo_registro'] = 10; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelamento'] = 0; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_encampacao'] = 0; - $i++; +include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGOAtivoFinanceiro.class.php" ); + +$obTMapeamento = new TTCMGOAtivoFinanceiro; +$obTMapeamento->setDado ('exercicio' , Sessao::getExercicio() ); +$obTMapeamento->setDado ('stEntidades', $stEntidades ); +$obTMapeamento->recuperaArquivoExportacao10($rsRegistro10,"","",$boTransacao); +$obTMapeamento->recuperaArquivoExportacao11($rsRegistro11,"","",$boTransacao); + +$i = 0; +$j = 0; + +if ($rsRegistro10->getNumLinhas() > 0) { + $stChave10 = ''; + $stChaveAuxiliar10 = ''; + foreach ($rsRegistro10->arElementos as $stChave) { + $rsRegistro10->arElementos[$i]['numero_registro'] = $i+1; + $rsRegistro10->arElementos[$i]['vl_cancelamento'] = 0; + $rsRegistro10->arElementos[$i]['vl_encampacao'] = 0; + $i++; + } + foreach ($rsRegistro10->getElementos() as $arRegistro10) { + $stChaveAuxiliar10 = $arRegistro10['num_orgao'] . $arRegistro10['num_unidade'] . $arRegistro10['exercicio'] . $arRegistro10['tipo_lancamento']; + if ( $stChaveAuxiliar10 != $stChave10 ) { + $stChave10 = $arRegistro10['num_orgao'] . $arRegistro10['num_unidade'] . $arRegistro10['exercicio'] . $arRegistro10['tipo_lancamento']; + + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro10)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_anterior"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_creditos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_debitos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_atual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + if ($rsRegistro11->getNumLinhas() > 0) { + $stChave11 = ''; + foreach ($rsRegistro11->arElementos as $stChave) { + $rsRegistro11->arElementos[$j]['numero_registro'] = $j+1; + $rsRegistro11->arElementos[$j]['vl_cancelamento'] = 0; + $rsRegistro11->arElementos[$j]['vl_encampacao'] = 0; + $j++; + } + + foreach ($rsRegistro11->getElementos() as $arRegistro11) { + $stChave20Aux = $arRegistro11['num_orgao'] . $arRegistro11['num_unidade'] . $arRegistro11['exercicio'] . $arRegistro11['tipo_lancamento']; + //Verifica se registro 20 bate com chave do registro 10 + if ($stChave10 === $stChave20Aux) { + //Chave única do registro 20 + if ($stChave20 != $stChave20Aux ) { + $stChave20 = $stChave20Aux; + + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro11)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte" ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_anterior"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_creditos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_debitos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_atual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + } } + } +} - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); +$rsRecordSetRodape = new RecordSet; - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); +$arRegistro = array(); +$arRegistro[0][ 'tipo_registro' ] = 99 ; +$arRegistro[0][ 'brancos' ] = ' '; +$arRegistro[0][ 'numero_registro'] = count($rsRegistro10->getElementos()) + count($rsRegistro11->getElementos()); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); +$rsRecordSetRodape->preenche ( $arRegistro ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); +$obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 295 ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); +unset($rsRegistro10); +unset($rsRegistro11); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_anterior"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_creditos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_debitos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelamento"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_atual"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); - - $rsRecordSetRodape = new RecordSet; - - $arRegistro = array(); - $arRegistro[0][ 'tipo_registro' ] = 99 ; - $arRegistro[0][ 'brancos' ] = ' '; - $arRegistro[0][ 'numero_registro'] = $i ; - - $rsRecordSetRodape->preenche ( $arRegistro ); - - $obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 244 ); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APB.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APB.inc.php new file mode 100644 index 0000000..3551cd0 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APB.inc.php @@ -0,0 +1,179 @@ + +setDado ('exercicio' , Sessao::getExercicio() ); + $obTMapeamento->setDado ('stEntidades', $stEntidades ); + $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); + + $i = 1; + foreach ($arRecordSet[$stArquivo]->arElementos as $stChave => $valor) { + $arRecordSet[$stArquivo]->arElementos[$stChave]['numero_registro'] = $i; + $arRecordSet[$stArquivo]->arElementos[$stChave]['tipo_registro'] = 10; + + $i++; + } + + $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_aquisicao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_bem"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_bem_movel" ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_combustivel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_bem"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tombamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("qtde"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_aquisicao_saldo_anterior"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ano_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_aquisicao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_doacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reavaliacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_alienacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_doacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_depreciacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_atual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + + $rsRecordSetRodape = new RecordSet; + + $arRegistro = array(); + $arRegistro[0][ 'tipo_registro' ] = 99 ; + $arRegistro[0][ 'brancos' ] = ' '; + $arRegistro[0][ 'numero_registro'] = $i ; + + $rsRecordSetRodape->preenche ( $arRegistro ); + + $obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 346 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APC.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APC.inc.php index d6496f5..0373f06 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APC.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APC.inc.php @@ -31,10 +31,10 @@ * @ignore - $Revision: 59820 $ + $Revision: 61683 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-25 11:28:21 -0300 (Qua, 25 Fev 2015) $ * Casos de uso: uc-06.04.00 */ @@ -59,19 +59,20 @@ Revision 1.1 2007/05/18 16:02:16 bruce $obTMapeamento = new TTCMGOAtivoPermanenteCreditos; $obTMapeamento->setDado ('exercicio' , Sessao::getExercicio() ); $obTMapeamento->setDado ('stEntidades', $stEntidades ); - $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); + $obTMapeamento->recuperaTodos($rsRegistro10); + $obTMapeamento->debug();die(); $i = 1; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i; - $arRecordSet[$stArquivo]->arElementos[$i]['tipo_registro'] = 10; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelamento'] = 0; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_encampacao'] = 0; - + foreach ($rsRegistro10->arElementos as $stChave) { + $rsRegistro10->arElementos[$i]['numero_registro'] = $i; + $rsRegistro10->arElementos[$i]['tipo_registro'] = 10; + $rsRegistro10->arElementos[$i]['vl_cancelamento'] = 0; + $rsRegistro10->arElementos[$i]['vl_encampacao'] = 0; $i++; } - - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + + + $obExportador->roUltimoArquivo->addBloco($rsRegistro10); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); @@ -86,7 +87,7 @@ Revision 1.1 2007/05/18 16:02:16 bruce $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); @@ -95,7 +96,7 @@ Revision 1.1 2007/05/18 16:02:16 bruce $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_anterior"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); @@ -125,6 +126,7 @@ Revision 1.1 2007/05/18 16:02:16 bruce $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + $rsRecordSetRodape = new RecordSet; $arRegistro = array(); @@ -141,8 +143,11 @@ Revision 1.1 2007/05/18 16:02:16 bruce $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 244 ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 288 ); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +?> + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php index 5485ad0..93ec3c0 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php @@ -33,266 +33,569 @@ * @ignore - $Revision: 59820 $ + $Revision: 61683 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-25 11:28:21 -0300 (Qua, 25 Fev 2015) $ * Casos de uso: uc-06.04.00 */ - -/* -$Log$ -Revision 1.2 2007/06/12 18:33:46 hboaventura -inclusão dos casos de uso uc-06.04.00 - -Revision 1.1 2007/04/26 20:22:39 hboaventura -Arquivos para geração do TCMGO - -*/ include_once( CAM_GPC_TGO_MAPEAMENTO."TTGODES.class.php" ); $obTMapeamento = new TTGODES(); $obTMapeamento->setDado('exercicio' , Sessao::getExercicio() ); $obTMapeamento->setDado('cod_entidade',$stEntidades ); - $obTMapeamento->recuperaDespesa( $arRecordSet[$stArquivo] ); - $i = 0; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_sequencial'] = ++$i; - } - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + //registro 10 + $obTMapeamento->recuperaDespesa( $rsDespesa,"","",$boTransacao ); + //registro 11 + $obTMapeamento->recuperaDespesaElemento( $rsDSPElemento,"","",$boTransacao ); + //registro 12 + $obTMapeamento->recuperaDespesaRecurso( $rsDSPRecurso,"","",$boTransacao ); + //registro 13 + if ( Sessao::getExercicio() == '2015' ) + $obTMapeamento->recuperaDespesaRecursoDetalhamento( $rsDSPRecursoDetalhamento,"","",$boTransacao ); + + $inCount = 0; + + //REGISTRO 10 + $stChave10 = ''; + $stChaveAuxiliar10 = ''; + foreach ($rsDespesa->getElementos() as $arRegistro10) { + $arRegistro10['numero_sequencial'] = ++$inCount; + $stChaveAuxiliar10 = $arRegistro10['cod_programa'] + .$arRegistro10['num_orgao'] + .$arRegistro10['num_unidade'] + .$arRegistro10['cod_funcao'] + .$arRegistro10['cod_subfuncao'] + .$arRegistro10['cod_natureza'] + .$arRegistro10['numero_pao']; + + if ( $stChaveAuxiliar10 != $stChave10 ) { + $stChave10 = $arRegistro10['cod_programa'] + .$arRegistro10['num_orgao'] + .$arRegistro10['num_unidade'] + .$arRegistro10['cod_funcao'] + .$arRegistro10['cod_subfuncao'] + .$arRegistro10['cod_natureza'] + .$arRegistro10['numero_pao']; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro10)); + + $obExportador->roUltimoArquivo->addBloco( $$rsBloco ); + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_pao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_pao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_orcado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_suplementado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reduzido"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_especial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_extra"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + if( Sessao::getExercicio() == '2015' ) { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_limitacao_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_resersao_limitacao_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_correcao_orcamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_anulacao_realocacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_transposicao_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + } + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_autorizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + if( Sessao::getExercicio() == '2015' ) { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(39); + } + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + //REGISTRO 11 + $stChave11 = ''; + foreach ($rsDSPElemento->getElementos() as $arRegistro11) { + $stChave11Aux = $arRegistro11['cod_programa'] + .$arRegistro11['num_orgao'] + .$arRegistro11['num_unidade'] + .$arRegistro11['cod_funcao'] + .$arRegistro11['cod_subfuncao'] + .$arRegistro11['cod_natureza'] + .$arRegistro11['numero_pao']; + //Verifica se registro 11 bate com chave do registro 10 + if ($stChave10 == $stChave11Aux) { + //Chave única do registro 11 + if ($stChave11 != $stChave11Aux) { + $stChave11 = $stChave11Aux; + + $arRegistro11['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro11)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + $obExportador->roUltimoArquivo->setTipoDocumento('TCE_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_pao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_orcado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_suplementado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reduzido"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_especial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_extra"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + if ( Sessao::getExercicio() == '2015' ) + { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_limitacao_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reversao_limitacao_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_correcao_orcamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_anulacao_realocacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_transposicao_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + } + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_autorizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_empenhado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_liquidado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_pago"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + if ( Sessao::getExercicio() == '2015' ) + { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(194); + + } else { + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_fonte"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(142); + } + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + //REGISTRO 12 + $stChave12 = ''; + foreach ($rsDSPRecurso->getElementos() as $arRegistro12) { + $stChave12Aux = $arRegistro12['cod_programa'] + .$arRegistro12['num_orgao'] + .$arRegistro12['num_unidade'] + .$arRegistro12['cod_funcao'] + .$arRegistro12['cod_subfuncao'] + .$arRegistro12['cod_natureza'] + .$arRegistro12['numero_pao']; + + //Verifica se registro 12 bate com chave do registro 11 + if ($stChave11 == $stChave12Aux) { + //Chave única do registro 12 + if ($stChave12 != $stChave12Aux) { + $stChave12 = $stChave12Aux; + + $arRegistro12['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro12)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + $obExportador->roUltimoArquivo->setTipoDocumento('TCE_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_pao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + if ( Sessao::getExercicio() == '2015' ){ + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_orcado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_suplementado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reduzido"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_especial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_extra"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_limitacao_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reversao_limitacao_empenho"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_correcao_orcamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_anulacao_realocacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_transposicao_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_autorizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_empenhado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_liquidado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_pago"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(191); + + }else{ + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_fonte"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(157); + + } + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + //REGISTRO 13 + $stChave13 = ''; + if ( Sessao::getExercicio() == '2015' ) { + foreach ($rsDSPRecursoDetalhamento->getElementos() as $arRegistro13) { + $stChave13Aux = $arRegistro13['cod_programa'] + .$arRegistro13['num_orgao'] + .$arRegistro13['num_unidade'] + .$arRegistro13['cod_funcao'] + .$arRegistro13['cod_subfuncao'] + .$arRegistro13['cod_natureza'] + .$arRegistro13['numero_pao']; + //Verifica se registro 13 bate com chave do registro 12 + if ($stChave12 == $stChave13Aux) { + //Chave única do registro 13 + if ($stChave13 != $stChave13Aux) { + $stChave13 = $stChave13Aux; + + $arRegistro13['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro13)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + $obExportador->roUltimoArquivo->setTipoDocumento('TCE_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_pao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("det_fonte_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_empenhado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_liquidado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_pago"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(331); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + }//if chave registro 13 + }//if registro 13 + }//foreach registro 13 + }//if registro 13 ano 2015 + }//if chave registro 12 + }//if registro 12 + }//foreach registro 12 + }//if chave registro 11 + }//if registro 11 + }//foreach registro 11 + }//if chave registro 10 + }//foreach registro 10 + + $arTemp[0] = array( 'tipo_registro'=> '99', 'espacador'=> '', 'numero_sequencial' => ++$inCount ); + + $rsRegistro99 = new RecordSet(); + $rsRegistro99->preenche( $arTemp ); + + $obExportador->roUltimoArquivo->addBloco($rsRegistro99); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_pao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_pao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_orcado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_suplementado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reduzido"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_especial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_extra"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_autorizado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - - $obTMapeamento->recuperaDespesaElemento( $rsDSPElemento ); - $j=0; - foreach ($rsDSPElemento->arElementos as $stChave) { - $rsDSPElemento->arElementos[$j++]['numero_sequencial'] = ++$i; - } - - $obExportador->roUltimoArquivo->addBloco($rsDSPElemento); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_pao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_orcado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_suplementado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_reduzido"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_especial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_credito_extra"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_autorizado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_empenhado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_liquidado"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_pago"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_fonte"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(142); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - - $obTMapeamento->recuperaDespesaRecurso( $rsDSPRecurso ); - $j=0; - foreach ($rsDSPRecurso->arElementos as $stChave) { - $rsDSPRecurso->arElementos[$j++]['numero_sequencial'] = ++$i; + if ( Sessao::getExercicio() == '2015' ) { + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(399); + } else { + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(295); } - - $obExportador->roUltimoArquivo->addBloco($rsDSPRecurso); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_natureza"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_pao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_recurso"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_fonte"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(157); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); - $arTemp[0] = array( 'tipo_registro'=> '99', 'espacador'=> '', 'numero_sequencial' => ++$i ); - $arRecordSet[$stArquivo] = new RecordSet(); - $arRecordSet[$stArquivo]->preenche( $arTemp ); - - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(295); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DSI.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DSI.inc.php index 5eba9ef..684fa8f 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DSI.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DSI.inc.php @@ -30,20 +30,18 @@ include_once( CAM_GPC_TGO_MAPEAMENTO."TTGODSI.class.php" ); $obTMapeamento = new TTGODSI(); - $obTMapeamento->setDado('exercicio', Sessao::getExercicio()); - $obTMapeamento->setDado('dtInicio', $arFiltroRelatorio['stDataInicial']); - $obTMapeamento->setDado('dtFim', $arFiltroRelatorio['stDataFinal']); - $obTMapeamento->setDado('entidades',$stEntidades); + $obTMapeamento->setDado('exercicio' , Sessao::getExercicio()); + $obTMapeamento->setDado('dtInicio' , $arFiltroRelatorio['stDataInicial']); + $obTMapeamento->setDado('dtFim' , $arFiltroRelatorio['stDataFinal']); + $obTMapeamento->setDado('entidades' , $stEntidades); $obTMapeamento->recuperaDetalhamento10($rsDetalhamento); $obTMapeamento->recuperaDetalhamento11($rsResponsaveis); $obTMapeamento->recuperaDetalhamento12($rsPesquisa); $obTMapeamento->recuperaDetalhamento13($rsRecurso); $obTMapeamento->recuperaDetalhamento14($rsFornecedor); + $obTMapeamento->recuperaDetalhamento15($rsCredenciado); - // O Registro 15 ainda não existe - //$obTMapeamento->recuperaDetalhamento15($rsCredenciado); - $inCount = 0; // Registro 10 - Detalhamento da Dispensa ou da Inexigibilidade @@ -272,7 +270,7 @@ include_once( CAM_GPC_TGO_MAPEAMENTO."TTGODSI.class.php" ); $stKey13 = $stChaveRecurso['cod_orgao'] . $stChaveRecurso['cod_unidade'] . $stChaveRecurso['num_processo'] . $stChaveRecurso['ano_exercicio_processo'] . $stChaveRecurso['tipo_processo']; //. $stChaveRecurso['cod_funcao'] . $stChaveRecurso['cod_subfuncao'] . $stChaveRecurso['cod_programa'] . $stChaveRecurso['natureza_acao'] . $stChaveRecurso['num_proj_ativ'] . $stChaveRecurso['elemento_despesa'] . $stChaveRecurso['subelemento'] . $stChaveRecurso['cod_fonte_recurso']; if ($stKey13 === $stKey) { - $arEmpenhoContrato['numero_sequencial'] = ++$inCount; + $stChaveRecurso['numero_sequencial'] = ++$inCount; $rsBloco = 'rsBloco_' . $inCount; unset($$rsBloco); $$rsBloco = new RecordSet(); @@ -355,8 +353,8 @@ include_once( CAM_GPC_TGO_MAPEAMENTO."TTGODSI.class.php" ); foreach ($rsFornecedor->arElementos as $stChaveFornecedor) { $stKey14 = $stChaveFornecedor['cod_orgao'] . $stChaveFornecedor['cod_unidade'] . $stChaveFornecedor['num_processo'] . $stChaveFornecedor['ano_exercicio_processo'] . $stChaveFornecedor['tipo_processo']; //. $stChaveFornecedor['tipo_documento'] . $stChaveFornecedor['num_documento'] . $stChaveFornecedor['num_lote'] . $stChaveFornecedor['num_item']; - if ($stKey13 === $stKey) { - $arEmpenhoContrato['numero_sequencial'] = ++$inCount; + if ($stKey14 === $stKey) { + $stChaveFornecedor['numero_sequencial'] = ++$inCount; $rsBloco = 'rsBloco_' . $inCount; unset($$rsBloco); $$rsBloco = new RecordSet(); @@ -470,11 +468,9 @@ include_once( CAM_GPC_TGO_MAPEAMENTO."TTGODSI.class.php" ); } } - // O registro 15 tem apenas sua estrutura criada, pois ainda nõa há dados ainda - // Registro 15 - Detalhamento do Credenciado Preencher este detalhamento somente para processos de inexigibilidade por credenciamento / chamada pública ou dispensa por chamada pública. - /* + //Registro 15 - Detalhamento do Credenciado Preencher este detalhamento somente para processos de inexigibilidade por credenciamento / chamada pública ou dispensa por chamada pública. foreach ($rsCredenciado->arElementos as $stChaveCredenciado) { - $stKey15 = $stChaveCredenciado['cod_orgao'] . $stChaveCredenciado['cod_unidade'] . $stChaveCredenciado['num_processo'] . $stChaveCredenciado['ano_exercicio_processo'] . $stChaveCredenciado['tipo_processo'] . $stChaveCredenciado['tipo_documento'] . $stChaveCredenciado['num_documento'] . $stChaveCredenciado['dt_credenciamento'] . $stChaveCredenciado['num_lote'] . $stChaveCredenciado['num_item']; + $stKey15 = $stChaveCredenciado['cod_orgao'] . $stChaveCredenciado['cod_unidade'] . $stChaveCredenciado['num_processo'] . $stChaveCredenciado['ano_exercicio_processo'] . $stChaveCredenciado['tipo_processo']; // . $stChaveCredenciado['tipo_documento'] . $stChaveCredenciado['num_documento'] . $stChaveCredenciado['dt_credenciamento'] . $stChaveCredenciado['num_lote'] . $stChaveCredenciado['num_item']; if ($stKey15 === $stKey) { $arEmpenhoContrato['numero_sequencial'] = ++$inCount; @@ -585,7 +581,7 @@ include_once( CAM_GPC_TGO_MAPEAMENTO."TTGODSI.class.php" ); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); } - }*/ + } } $arTemp[0] = array('tipo_registro'=> '99', 'brancos'=> '', 'numero_sequencial' => ++$inCount); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoBalanco.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoBalanco.php index 688a9a8..2699a66 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoBalanco.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoBalanco.php @@ -33,7 +33,7 @@ * @ignore - $Id: FLExportacaoBalanco.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: FLExportacaoBalanco.php 61647 2015-02-20 11:26:55Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -93,8 +93,8 @@ $obRdbTipoExportArqCompactado->setValue ( "compactados" ); $arNomeArquivos = array( 'AFD.txt', 'AFR.txt', - // 'APB.txt', - 'APC.txt', + 'APB.txt', + 'APC.txt', 'BLP.txt', 'COM.txt', 'DES.txt', diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoOrcamento.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoOrcamento.php new file mode 100644 index 0000000..a165b15 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoOrcamento.php @@ -0,0 +1,152 @@ + +get('stAcao'); + +//Define o objeto da ação stAcao +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +//Define o objeto que ira armazenar o nome da pagina oculta +$obHdnAcao = new Hidden; +$obHdnAcao->setName ( "hdnPaginaExportacao" ); +$obHdnAcao->setValue( "../../../TCMGO/instancias/exportacao/".$pgOcul ); + +$obTxtPeriodoExport = new Select(); +$obTxtPeriodoExport->setRotulo ( "*Periodo" ); +$obTxtPeriodoExport->setName ( "inPeriodo" ); +$obTxtPeriodoExport->setId ( "inPeriodo" ); +$obTxtPeriodoExport->obEvento->setOnChange ( 'rd_extra();' ); + +/* Radio para selecionar tipo de exportacao*/ +/* Tipo Arquivo Individual */ +$obRdbTipoExportArqIndividual = new Radio; +$obRdbTipoExportArqIndividual->setName ( "stTipoExport" ); +$obRdbTipoExportArqIndividual->setLabel ( "Arquivos Individuais" ); +$obRdbTipoExportArqIndividual->setValue ( "individuais" ); +$obRdbTipoExportArqIndividual->setRotulo ( "*Tipo de Exportação" ); +$obRdbTipoExportArqIndividual->setTitle ( "Tipo de Exportação" ); +$obRdbTipoExportArqIndividual->setChecked(true ); +/* Tipo Arquivo Compactado */ +$obRdbTipoExportArqCompactado = new Radio; +$obRdbTipoExportArqCompactado->setName ( "stTipoExport" ); +$obRdbTipoExportArqCompactado->setLabel ( "Compactados" ); +$obRdbTipoExportArqCompactado->setValue ( "compactados" ); + +$arNomeArquivos = array( + 'IDE.txt', + 'ORGAO.txt', + 'UOC.txt', + 'ISI.txt', + 'LPP.txt', + 'PRO.txt', + 'AMP.txt', + 'LDO.txt', + 'LOC.txt', + 'REC.txt', + 'DSP.txt', + ); + +for ($inCounter=0;$inCounter < count($arNomeArquivos);$inCounter++) { + $arElementosArq[$inCounter]['Arquivo' ] = $arNomeArquivos[$inCounter] ; + $arElementosArq[$inCounter]['Nome' ] = $arNomeArquivos[$inCounter] ; +} + +$obISelectEntidade = new ISelectMultiploEntidadeUsuario(); + +$rsArqSelecionados = new RecordSet; +$rsArqDisponiveis = new RecordSet; +$rsArqDisponiveis->preenche($arElementosArq); + +$obCmbArquivos = new SelectMultiplo(); +$obCmbArquivos->setName ( 'arArquivosSelecionados' ); +$obCmbArquivos->setRotulo( "Arquivos" ); +$obCmbArquivos->setNull ( false ); +$obCmbArquivos->setTitle ( 'Arquivos Disponiveis' ); + +// lista de ARQUIVOS disponiveis +$obCmbArquivos->SetNomeLista1( 'arCodArqDisponiveis' ); +$obCmbArquivos->setCampoId1 ( 'Arquivo' ); +$obCmbArquivos->setCampoDesc1( 'Nome' ); +$obCmbArquivos->SetRecord1 ( $rsArqDisponiveis ); + +// lista de ARQUIVOS selecionados +$obCmbArquivos->SetNomeLista2( 'arArquivosSelecionados' ); +$obCmbArquivos->setCampoId2 ( 'Arquivo' ); +$obCmbArquivos->setCampoDesc2( 'Nome' ); +$obCmbArquivos->SetRecord2 ( $rsArqSelecionados ); + +//Instancia o formulário +$obForm = new Form; +$obForm->setAction ( "../../../exportacao/instancias/processamento/PRExportador.php" ); +$obForm->setTarget ( "telaPrincipal" ); + +//DEFINICAO DO FORMULARIO +$obFormulario = new Formulario; +$obFormulario->addForm ( $obForm ); +$obFormulario->addTitulo ( "Dados para geração de arquivos" ); +$obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addComponente ( $obISelectEntidade ); +$obFormulario->agrupaComponentes ( array($obRdbTipoExportArqIndividual,$obRdbTipoExportArqCompactado) ); +$obFormulario->addComponente ( $obCmbArquivos ); + +$obFormulario->OK (); +$obFormulario->show (); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HBL.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HBL.inc.php index a43f047..bbbb9a3 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HBL.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HBL.inc.php @@ -33,31 +33,398 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * @ignore - * $Id: HBL.inc.php 59820 2014-09-12 18:17:20Z luciana $ - * $Rev: 59820 $ + * $Id: HBL.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Rev: 61647 $ * $Author: luciana $ - * $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ */ -$arrayDado = array ( - 'tipo_registro' => '99', - 'brancos' => '', - 'nro_sequencial' => '1' +include_once CAM_GPC_TGO_MAPEAMENTO."TTCMGOHabilitacaoLicitacao.class.php"; + +$rsRecordSetHBL10 = new RecordSet(); +$rsRecordSetHBL11 = new RecordSet(); +$rsRecordSetHBL20 = new RecordSet(); + +$obTTCMGOHabilitacaoLicitacao = new TTCMGOHabilitacaoLicitacao(); +$obTTCMGOHabilitacaoLicitacao->setDado('exercicio' , Sessao::getExercicio()); +$obTTCMGOHabilitacaoLicitacao->setDado('entidades' , $stEntidades); +$obTTCMGOHabilitacaoLicitacao->setDado('mes' , $inMes); +$obTTCMGOHabilitacaoLicitacao->setDado('dataInicial', $stDataInicial); +$obTTCMGOHabilitacaoLicitacao->setDado('dataFinal' , $stDataFinal); + +//Tipo Registro 10 +$obTTCMGOHabilitacaoLicitacao->recuperaExportacao10($rsRecordSetHBL10); + +//Tipo Registro 11 +$obTTCMGOHabilitacaoLicitacao->recuperaExportacao11($rsRecordSetHBL11); + +//Tipo Registro 20 +$obTTCMGOHabilitacaoLicitacao->recuperaExportacao20($rsRecordSetHBL20); + +$i = 0; +foreach ($rsRecordSetHBL10->arElementos as $stChave) { + $rsRecordSetHBL10->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} + +$i = 0; +foreach ($rsRecordSetHBL11->arElementos as $stChave) { + $rsRecordSetHBL11->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} + +$i = 0; +foreach ($rsRecordSetHBL20->arElementos as $stChave) { + $rsRecordSetHBL20->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} + +//Tipo Registro 99 +$arRecordSetHBL99 = array( + '0' => array( + 'tipo_registro' => '99', + 'brancos' => '', + 'nro_sequencial' => 1, + ) ); -$recordSet[$stArquivo] = new RecordSet(); -$recordSet[$stArquivo]->preenche( array($arrayDado) ); +$rsRecordSetHBL99 = new RecordSet(); +$rsRecordSetHBL99->preenche($arRecordSetHBL99); + +$inCount = 0; -$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + if (count($rsRecordSetHBL10->getElementos()) > 0) { + $stChave10 = ''; + + //Registro 10 + foreach ($rsRecordSetHBL10->getElementos() as $arHBL10) { + + $inCount++; + $stChave10 = $arHBL10['cod_orgao'].$arHBL10['cod_unidade'].$arHBL10['exercicio_licitacao'].$arHBL10['num_processo_licitatorio'].$arHBL10['tipo_documento'].$arHBL10['num_documento']; + + $$rsBloco10 = 'rsBloco10_'.$inCount; + unset($$rsBloco10); + $$rsBloco10 = new RecordSet(); + $$rsBloco10->preenche(array($arHBL10)); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco10 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_razao_social"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("objeto_social"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(500); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("orgao_resp_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_registro_cvm"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_registro_cvm"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_inscricao_estadual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("uf_inscricao_estadual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_certidao_regularidade_inss"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_emissao_certidao_regularidade_inss"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_validade_certidao_regularidade_inss"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_certidao_regularidade_fgts"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_emissao_certidao_regularidade_fgts"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_validade_certidao_regularidade_fgts"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_cndt"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_emissao_cndt"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_validade_cndt"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_habilitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("presenca_licitantes"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("renuncia_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + // Registro 11 + if (count($rsRecordSetHBL11->getElementos()) > 0) { + $stChave11 = ''; + + foreach ($rsRecordSetHBL11->getElementos() as $arHBL11){ + + if ($stChave10 == $arHBL11['cod_orgao'].$arHBL11['cod_unidade'].$arHBL11['exercicio_licitacao'].$arHBL11['num_processo_licitatorio'].$arHBL11['tipo_documento_socio'].$arHBL11['num_documento_socio']) { + $stChave11 = $arHBL11['cod_orgao'].$arHBL11['cod_unidade'].$arHBL11['exercicio_licitacao'].$arHBL11['num_cnpj'].$arHBL11['num_processo_licitatorio'].$arHBL11['tipo_documento_socio'].$arHBL11['num_documento_socio']; + + $rsBloco11 = 'rsBloco11_'.$inCount; + unset($$rsBloco11); + $$rsBloco11 = new RecordSet(); + $$rsBloco11->preenche(array($arHBL11)); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco11 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_cnpj"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento_socio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento_socio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_participacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_socio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espaco_branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(753); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + }//Fim foreach 10 + + if (count($rsRecordSetHBL20->getElementos()) > 0) { + $stChave20 = ''; + + foreach ($rsRecordSetHBL20->getElementos() as $arHBL20){ + + + if ($stChave10 == $arHBL20['cod_orgao'].$arHBL20['cod_unidade'].$arHBL20['exercicio_licitacao'].$arHBL20['num_processo_licitatorio'].$arHBL20['tipo_documento'].$arHBL20['num_documento']) { + $stChave20 = $arHBL20['cod_orgao'].$arHBL20['cod_unidade'].$arHBL20['exercicio_licitacao'].$arHBL20['num_processo_licitatorio'].$arHBL20['tipo_documento'].$arHBL20['num_documento'].$arHBL20['num_lote'].$arHBL20['cod_item']; + + $rsBloco20 = 'rsBloco20_'.$inCount; + unset($$rsBloco20); + $$rsBloco20 = new RecordSet(); + $$rsBloco20->preenche(array($arHBL20)); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco20 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_credenciamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_lote"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_item"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_razao_social"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_inscricao_estadual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("uf_inscricao_estadual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_certidao_regularidade_inss"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_emissao_certidao_regularidade_inss"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_validade_certidao_regularidade_inss"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_certidao_regularidade_fgts"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_emissao_certidao_regularidade_fgts"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_validade_certidao_regularidade_fgts"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_cndt"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_emissao_cndt"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_validade_cndt"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espaco_branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(642); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + + } else { + $obExportador->roUltimoArquivo->addBloco($rsRecordSetHBL99); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(903); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(903); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + + $rsRecordSetHBL10 = null; + $rsRecordSetHBL11 = null; + $rsRecordSetHBL20 = null; + $rsRecordSetHBL99 = null; -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); \ No newline at end of file +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HML.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HML.inc.php index 6c06536..f2ec225 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HML.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HML.inc.php @@ -33,31 +33,337 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * @ignore - * $Id: HML.inc.php 59820 2014-09-12 18:17:20Z luciana $ - * $Rev: 59820 $ + * $Id: HML.inc.php 61726 2015-02-27 16:39:09Z luciana $ + * $Rev: 61726 $ * $Author: luciana $ - * $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + * $Date: 2015-02-27 13:39:09 -0300 (Sex, 27 Fev 2015) $ */ -$arrayDado = array ( - 'tipo_registro' => '99', - 'brancos' => '', - 'nro_sequencial' => '1' +include_once CAM_GPC_TGO_MAPEAMENTO."TTCMGOHML.class.php"; + +$rsRecordSeTTCMGOHML10 = new RecordSet(); +$rsRecordSeTTCMGOHML20 = new RecordSet(); +$rsRecordSeTTCMGOHML30 = new RecordSet(); + +$obTTCMGOHML = new TTCMGOHML(); +$obTTCMGOHML->setDado('exercicio' , Sessao::getExercicio()); +$obTTCMGOHML->setDado('cod_entidade', $stEntidades); +$obTTCMGOHML->setDado('dt_inicial' , $arFiltroRelatorio['stDataInicial'] ); +$obTTCMGOHML->setDado('dt_final' , $arFiltroRelatorio['stDataFinal'] ); + +$obTTCMGOHML->recupera10($rsRecordSetHML10,$boTransacao); +$obTTCMGOHML->recupera20($rsRecordSetHML20,$boTransacao); +$obTTCMGOHML->recupera30($rsRecordSetHML30,$boTransacao); + +//Tipo Registro 99 - Declaro que no mês desta remessa não há informações inerentes ao arquivo “Homologação da Licitação. +$arRecordSetHML99 = array( + '0' => array( + 'tipo_registro' => '99', + 'numero_registro' => '1' + ) ); -$recordSet[$stArquivo] = new RecordSet(); -$recordSet[$stArquivo]->preenche( array($arrayDado) ); +$rsRecordSetHML99 = new RecordSet(); +$rsRecordSetHML99->preenche($arRecordSetHML99); + +$inContador =0; +$inCount=0; +$stChave30 = ''; +$arRecordSetHML10 = $rsRecordSetHML10->getElementos(); + +if (count($arRecordSetHML10) > 0) { + $stChave10 = ''; + foreach ( $arRecordSetHML10 as $arHML ) { + $inContador++; + if ( !($stChave10 === $arHML['tiporegistro'] + .$arHML['cod_orgao'] + .$arHML['cod_unidadesub'] + .$arHML['exercicio_licitacao'] + .$arHML['nro_processolicitatorio'] + .$arHML['tipo_documento'] + .$arHML['nro_documento'] + .$arHML['nro_lote'] + .$arHML['cod_item'])) + { + $stChave10 = $arHML['tiporegistro'] + .$arHML['cod_orgao'] + .$arHML['cod_unidadesub'] + .$arHML['exercicio_licitacao'] + .$arHML['nro_processolicitatorio'] + .$arHML['tipo_documento'] + .$arHML['nro_documento'] + .$arHML['nro_lote'] + .$arHML['cod_item']; + + //$stChaveCodReduzido = $arHML['cod_reduzido']; + $stNumProcLic = $arHML['nro_processolicitatorio']; + $arHML['numero_registro'] = ++$inCount; + + $rsBloco10 = 'rsBloco10_'.$inCount; + unset($$rsBloco10); + $$rsBloco10 = new RecordSet(); + $$rsBloco10->preenche(array($arHML)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco10 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tiporegistro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidadesub"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_processolicitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_lote"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_item"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_item"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(250); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("quantidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_unitario"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + if (count($rsRecordSetHML20->getElementos()) > 0) { + $stChave20 = ''; + + //Percorre array de registros + foreach ($rsRecordSetHML20->getElementos() as $arHML20) { + $stChave20Aux = $arHML20['cod_orgao'].$arHML20['cod_unidadesub'].$arHML20['exercicio_licitacao']; + $stChave20Aux .= $arHML20['nro_processolicitatorio'].$arHML20['tipo_documento'].$arHML20['nro_documento']; + $stChave20Aux .= $arHML20['nro_lote'].$arHML20['cod_item']; + + //Verifica se registro 20 bate com chave do registro 10 + if ($stChave10 === '10'.$stChave20Aux) { + //Chave única do registro 20 + if ($stChave20 != $arHML20['tiporegistro'].$stChave20Aux ) { + $stChave20 = $arHML20['tiporegistro'].$stChave20Aux; + + $arHML20['numero_registro'] = ++$inCount; + + $rsBloco20 = 'rsBloco20_'.$inCount; + unset($$rsBloco20); + $$rsBloco20 = new RecordSet(); + $$rsBloco20->preenche(array($arHML20)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco20 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tiporegistro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidadesub"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_processolicitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_lote"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_item"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("perc_desconto"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 265 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + } // Fim do foreach principal HML20 + + if($arRecordSetHMLC10[$inContador]['nro_processolicitatorio'] != $stNumProcLic){ + //Se houver registros no array + if ( count($rsRecordSetHML30->getElementos()) > 0 ) { + //Percorre array de registros + foreach ($rsRecordSetHML30->getElementos() as $arHML30) { + $stChave30Aux = $arHML30['nro_processolicitatorio']; + //Verifica se registro 10 bate com chave do registro 30 + if ( $stNumProcLic === $stChave30Aux ) { + + $arHML30['numero_registro'] = ++$inCount; + + $stChave30 = $stChave30Aux; + $rsBloco30 = 'rsBloco30_'.$inCount; + unset($$rsBloco30); + $$rsBloco30 = new RecordSet(); + $$rsBloco30->preenche(array($arHML30)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco( $$rsBloco30 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tiporegistro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidadesub"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_processolicitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_homologacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_adjudicacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(270); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + } // Fim do foreach principal HML30 + } // Fim do foreach principal HML10 + } +} else { + $obExportador->roUltimoArquivo->addBloco($rsRecordSetHML99); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); -$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(321); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(321); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(''); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); +} -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); \ No newline at end of file +$rsRecordSetHOMML10 = null; +$obTTCEMGOHML = null; +$rsRecordSetHML99 = null; +$arRecordSetHML10 = null; +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ISI.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ISI.inc.php index 6b182f1..8865d6c 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ISI.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ISI.inc.php @@ -22,56 +22,51 @@ ********************************************************************************** */ ?> - '10', - 'cpf_cnpj' => '00703157000183', - 'tipo_pessoa' => '2', - 'razao_social' => 'Confederação Nacional de Municipios', - 'logradouro' => '', - 'bairro' => '', - 'cidade' => '', - 'uf' => '', - 'cep' => '', - 'fone_proprietario' => '', - 'email_proprietario' => '', - 'cpf_responsavel' => '', - 'nome_responsavel' => '', - 'email_responsavel' => '', - 'nome_sistema' => '', - 'versao_sistema' => '', - 'portal_transparencia' => '', - 'url_portal_transparencia' => '', - 'sistema_integrado' => '', - 'disponibiliza_despesa' => '', - 'disponibiliza_receita' => '', - 'portal_transparencia' => '', - 'numero_registro' => '1', - ); - -$recordSet[$stArquivo] = new RecordSet(); -$recordSet[$stArquivo]->preenche(array($dadosArquivo)); - -/*$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); +$obTMapeamento = new TTCMGOArquivoOrcamentoISI(); +$obTMapeamento->setDado('exercicio' , Sessao::getExercicio() ); +$obTMapeamento->setDado('cod_entidade',$stEntidades ); +$obTMapeamento->recuperaISI($arRecordSet[$stArquivo]); + +$i = 0; +foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { + $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i+1; + $i++; +} + +$obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); +$obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf_cnpj"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_pessoa"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("razao_social"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_cgm"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); @@ -79,27 +74,27 @@ $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("logradouro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("bairro"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("setor"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cidade"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_municipio"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("uf"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sigla_uf"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cep"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fone_proprietario"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fone_residencial"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email_proprietario"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("e_mail"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(80); @@ -107,60 +102,41 @@ $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf_responsavel"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(11); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_responsavel"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_responsavel_tec"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email_responsavel"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email_responsavel_tec"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_sistema"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_sistema"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("versao_sistema"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("versao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("portal_transparencia"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("url_portal_transparencia"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); - -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sistema_integrado"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("disponibiliza_despesa"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("disponibiliza_receita"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6);*/ +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); /*************************************************************************************************/ +$recordSet[$stArquivo] = new RecordSet(); +$recordSet[$stArquivo]->preenche(array(array('tipo_registro' => 99,'espacador'=> '', 'numero_registro' => $i))); -$recordSet2[$stArquivo] = new RecordSet(); -$recordSet2[$stArquivo]->preenche(array(array('tipo_registro' => 99, 'numero_registro' => 1))); - -$obExportador->roUltimoArquivo->addBloco($recordSet2[$stArquivo]); +$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(630); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(526); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/JGL.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/JGL.inc.php index 1e72692..b01c56e 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/JGL.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/JGL.inc.php @@ -27,37 +27,282 @@ /** * Página de Include Oculta - JULGAMENTO DA LICITAÇÃO - * Data de Criação : 28/02/2014 + * Data de Criação : 27/01/2015 - * @author Analista: Eduardo Paculski Schitz - * @author Desenvolvedor: Franver Sarmento de Moraes + * @author Analista: Ane Caroline Fiegenbaum Pereira + * @author Desenvolvedor: Evandro Melos * @ignore - * $Id: JGL.inc.php 59820 2014-09-12 18:17:20Z luciana $ - * $Rev: 59820 $ + * $Id: JGL.inc.php 61726 2015-02-27 16:39:09Z luciana $ + * $Rev: 61726 $ * $Author: luciana $ - * $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + * $Date: 2015-02-27 13:39:09 -0300 (Sex, 27 Fev 2015) $ */ -$arrayDado = array ( - 'tipo_registro' => '99', - 'brancos' => '', - 'nro_sequencial' => '1' +include_once CAM_GPC_TGO_MAPEAMENTO."TTCMGOJulgamentoLicitacao.class.php"; + +$rsRecordSetJGL10 = new RecordSet(); +$rsRecordSetJGL20 = new RecordSet(); +$rsRecordSetJGL30 = new RecordSet(); + +$obTTCMGOJulgamentoLicitacao = new TTCMGOJulgamentoLicitacao(); +$obTTCMGOJulgamentoLicitacao->setDado('exercicio' , Sessao::getExercicio()); +$obTTCMGOJulgamentoLicitacao->setDado('entidades' , $stEntidades); +$obTTCMGOJulgamentoLicitacao->setDado('mes' , $inMes); +$obTTCMGOJulgamentoLicitacao->setDado('dataInicial', $arFiltroRelatorio['stDataInicial']); +$obTTCMGOJulgamentoLicitacao->setDado('dataFinal' , $arFiltroRelatorio['stDataFinal']); + +//Tipo Registro 10 +$obTTCMGOJulgamentoLicitacao->recuperaExportacao10($rsRecordSetJGL10); +//Tipo Registro 20 +$obTTCMGOJulgamentoLicitacao->recuperaExportacao20($rsRecordSetJGL20); +//Tipo Registro 30 +$obTTCMGOJulgamentoLicitacao->recuperaExportacao30($rsRecordSetJGL30); + +//Tipo Registro 99 +$arRegistro99 = array ( + 'tipo_registro' => '99', + 'brancos' => '', + 'nro_sequencial' => '1' ); + +$rsRegistro99 = new RecordSet(); +$rsRegistro99->preenche( array($arRegistro99) ); + +$inContador =0; +$boChave = false; +//10 +$arRecordSetJULGLIC10 = $rsRecordSetJGL10->getElementos(); +if (count($arRecordSetJULGLIC10) > 0) { + $boChave = true; + $stChave10 = ''; + foreach ($arRecordSetJULGLIC10 as $arJULGLIC10) { + $stChave10Aux = $arJULGLIC10['num_processo_licitatorio'].$arJULGLIC10['cod_item']; + + if(!($stChave10===$stChave10Aux)){ + $arJULGLIC10['nro_sequencial'] = ++$inContador; + $stNumProcLic = $arJULGLIC10['num_processo_licitatorio']; + $stChave10 = $arJULGLIC10['num_processo_licitatorio'].$arJULGLIC10['cod_item']; + $inCount++; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arJULGLIC10)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_lote"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_item"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dsc_produto_servico"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(250); -$recordSet[$stArquivo] = new RecordSet(); -$recordSet[$stArquivo]->preenche( array($arrayDado) ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_unitario"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("quantidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(321); + //20 + if (count($rsRecordSetJGL20->getElementos()) > 0) { + $boChave = true; + $stChave20 = ""; + foreach ($rsRecordSetJGL20->getElementos() as $arJULGLIC20) { + $stChave20Aux = $arJULGLIC20['num_processo_licitatorio'].$arJULGLIC20['cod_item']; + if($stChave10===$stChave20Aux){ + if($stChave20!=$stChave20Aux){ + $arJULGLIC20['nro_sequencial'] = ++$inContador; + $stChave20 = $stChave20Aux; + $inCount++; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arJULGLIC20)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_lote"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_item"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("perc_desconto"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(265); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + } + + //30 + //Verifica se o proximo num_processo_licitatorio do array é diferente + if (count($rsRecordSetJGL30->getElementos()) > 0) { + $boChave = true; + foreach ($rsRecordSetJGL30->getElementos() as $arJULGLIC30) { + $stChave = $arJULGLIC30['num_processo_licitatorio']; + if( $stChave === $stNumProcLic ){ + $arJULGLIC30['nro_sequencial'] = ++$inContador; + $inCount++; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arJULGLIC30)); + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_julgamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("presenca_licitantes"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("renuncia_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(291); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } + } + } +}else{ + + $obExportador->roUltimoArquivo->addBloco($rsRegistro99); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(321); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); +} +unset( $rsRegistro99 ); +unset( $rsRecordSetJGL10 ); +unset( $rsRecordSetJGL20 ); +unset( $rsRecordSetJGL30 ); +unset( $obTTCMGOJulgamentoLicitacao); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); \ No newline at end of file +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoBalancete.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoBalancete.php index 9c851bf..ad3125d 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoBalancete.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoBalancete.php @@ -33,7 +33,7 @@ * @ignore - $Id: OCExportacaoBalancete.php 59820 2014-09-12 18:17:20Z luciana $ + $Id: OCExportacaoBalancete.php 61683 2015-02-25 14:28:21Z luciana $ * Casos de uso: uc-06.04.00 */ @@ -54,7 +54,7 @@ $arFiltroRelatorio = Sessao::read('filtroRelatorio'); $inMes = $arFiltroRelatorio['inMes']; $arFiltroRelatorio['stDataInicial'] = '01/'.$inMes.'/'.Sessao::getExercicio(); -$arFiltroRelatorio['stDataFinal'] = SistemaLegado::retornaUltimoDiaMes($inMes, Sessao::getExercicio()); +$arFiltroRelatorio['stDataFinal'] = SistemaLegado::retornaUltimoDiaMes($inMes, Sessao::getExercicio()); Sessao::write('filtroRelatorio', $arFiltroRelatorio); @@ -73,12 +73,14 @@ foreach ($arFiltroRelatorio['inCodEntidade'] as $inCodEntidade) { $arUnidadesGestoras[ $obTConfiguracao->getDado('valor') ] .= $inCodEntidade; } + $stTipoDocumento = "TCM_GO"; $obExportador = new Exportador(); foreach ($arFiltroRelatorio["arArquivosSelecionados"] as $stArquivo) { //foreach ($arUnidadesGestoras as $inUnidadeGestora => $stEntidades) { $arArquivo = explode( '.',$stArquivo ); + if ($stArquivo == 'Ide.txt' OR $stArquivo == 'Orgao.txt') { $obExportador->addArquivo($arArquivo[0].'.'.$arArquivo[1]); } elseif ($stArquivo == 'CON.txt') { @@ -86,6 +88,7 @@ foreach ($arFiltroRelatorio["arArquivosSelecionados"] as $stArquivo) { } else { $obExportador->addArquivo($arArquivo[0].$inMes.substr(Sessao::getExercicio(),2,2).'.'.$arArquivo[1]); } + $obExportador->roUltimoArquivo->setTipoDocumento($stTipoDocumento); if ($stArquivo == 'CON.txt') { include ('CONArq'. ".inc.php"); @@ -102,5 +105,3 @@ if ($arFiltroRelatorio['stTipoExport'] == 'compactados') { $obExportador->show(); SistemaLegado::LiberaFrames(); - -?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoOrcamento.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoOrcamento.php new file mode 100644 index 0000000..588af72 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoOrcamento.php @@ -0,0 +1,88 @@ + +setDado('parametro','tc_codigo_unidade_gestora'); + +foreach ($arFiltroRelatorio['inCodEntidade'] as $inCodEntidade) { + $obTConfiguracao->setDado('cod_entidade', $inCodEntidade ); + $obTConfiguracao->consultar(); + if ( trim($arUnidadesGestoras[ $obTConfiguracao->getDado('valor') ]) ) { + $arUnidadesGestoras[ $obTConfiguracao->getDado('valor') ] .= ','; + } + $arUnidadesGestoras[ $obTConfiguracao->getDado('valor') ] .= $inCodEntidade; +} + +$stTipoDocumento = "TCM_GO"; + +$obExportador = new Exportador(); + +foreach ($arFiltroRelatorio["arArquivosSelecionados"] as $stArquivo) { + $arArquivo = explode( '.',$stArquivo ); + if ($stArquivo == 'IDE.txt' OR $stArquivo == 'ORGAO.txt') { + $obExportador->addArquivo($stArquivo); + } else { + $obExportador->addArquivo($arArquivo[0].Sessao::getExercicio().'.'.$arArquivo[1]); + } + $obExportador->roUltimoArquivo->setTipoDocumento($stTipoDocumento); + + include_once(CAM_GPC_TGO_INSTANCIAS."layout_arquivos/orcamento/".substr($stArquivo,0,strpos($stArquivo,'.txt')).".inc.php"); + $arRecordSet = null; +} + +if ($arFiltroRelatorio['stTipoExport'] == 'compactados') { + $obExportador->setNomeArquivoZip('Orcamento'.Sessao::getExercicio().'.zip'); +} + +$obExportador->show(); +SistemaLegado::LiberaFrames(); +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFD.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFD.inc.php index e6cff26..bce13eb 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFD.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFD.inc.php @@ -31,64 +31,49 @@ * @ignore - $Revision: 59820 $ + $Id: PFD.inc.php 61726 2015-02-27 16:39:09Z luciana $ + $Revision: 61726 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-27 13:39:09 -0300 (Sex, 27 Fev 2015) $ * Casos de uso: uc-06.04.00 */ -/* -$Log$ -Revision 1.4 2007/06/12 18:33:46 hboaventura -inclusão dos casos de uso uc-06.04.00 - -Revision 1.3 2007/05/24 14:20:01 bruce -colocando unidade - -Revision 1.2 2007/05/15 21:12:06 bruce -acrescentado o tipo de lançamento, e desdobramento - -Revision 1.1 2007/05/07 19:50:43 bruce -*** empty log message *** - -Revision 1.5 2007/04/26 20:27:53 bruce -*** empty log message *** - -Revision 1.4 2007/04/25 20:33:26 bruce -correções no formato dos campos monetários - -Revision 1.3 2007/04/24 15:34:16 bruce -correções - -Revision 1.2 2007/04/24 13:47:24 bruce -corrigida ultima linha do arquivo - -Revision 1.1 2007/04/20 20:24:27 bruce -Bug #9169# - -*/ - include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGOPassivoFinanceiro.class.php" ); - - $obTMapeamento = new TTCMGOPassivoFinanceiro ; - $obTMapeamento->setDado('exercicio' , Sessao::getExercicio() ); - $obTMapeamento->setDado('inMes' , $inMes ); - $obTMapeamento->setDado('stEntidades', $stEntidades ); - $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); - - $i = 0; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i; - $arRecordSet[$stArquivo]->arElementos[$i]['tipo_registro'] = 10; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelamento'] = 0; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_encampacao'] = 0; - - $i++; - - } - - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); +include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGOPassivoFinanceiro.class.php" ); + +$obTTCMGOPassivoFinanceiro = new TTCMGOPassivoFinanceiro ; +$obTTCMGOPassivoFinanceiro->setDado('exercicio' , Sessao::getExercicio() ); +$obTTCMGOPassivoFinanceiro->setDado('inMes' , $inMes ); +$obTTCMGOPassivoFinanceiro->setDado('stEntidades', $stEntidades ); +$obTTCMGOPassivoFinanceiro->recuperaArquivoExportacao10($rsRegistro10, $boTransacao); +$obTTCMGOPassivoFinanceiro->recuperaArquivoExportacao11($rsRegistro11, $boTransacao); + +$i = 0; +foreach ($rsRegistro10->arElementos as $stChave) { + $rsRegistro10->arElementos[$i]['vl_cancelamento'] = 0; + $rsRegistro10->arElementos[$i]['vl_encampacao'] = 0; + $i++; +} +$i = 0; +foreach ($rsRegistro11->arElementos as $stChave) { + $rsRegistro11->arElementos[$i]['vl_cancelamento'] = 0; + $rsRegistro11->arElementos[$i]['vl_encampacao'] = 0; + $i++; +} + +$inCount = 0; +if ($rsRegistro10->getNumLinhas() > 0) { + foreach ($rsRegistro10->arElementos as $stChave) { + $stChave['numero_sequencial'] = ++$inCount; + $stKey = $stChave['cod_estrutural'] . $stChave['num_orgao'] . $stChave['num_unidade'] . $stChave['tipo_lancamento'] . $stChave['desdobramento_tipo']; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); @@ -97,73 +82,160 @@ Bug #9169# $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna( "desdobramento_tipo" ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna( "sub_tipo_lancamento" ); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_anterior"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_creditos"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_debitos"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelamento"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_atual"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); - - $rsRecordSetRodape = new RecordSet; - - $arRegistro = array(); - $arRegistro[0][ 'tipo_registro' ] = 99 ; - $arRegistro[0][ 'brancos' ] = ' '; - $arRegistro[0][ 'numero_registro'] = $i ; - - $rsRecordSetRodape->preenche ( $arRegistro ); - - $obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 244 ); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + //Registro 11 + foreach ($rsRegistro11->arElementos as $stChave11) { + $stKey11 = $stChave11['cod_estrutural'] . $stChave11['num_orgao'] . $stChave11['num_unidade'] . $stChave11['tipo_lancamento'] . $stChave11['desdobramento_tipo']; + + if ($stKey11 === $stKey) { + $stChave11['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave11)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sub_tipo_lancamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_anterior"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_creditos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_debitos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_atual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + }//if registro 11 + }//foreach registro 11 + } +} + +$rsRecordSetRodape = new RecordSet; + +$arRegistro = array(); +$arRegistro[0][ 'tipo_registro' ] = 99 ; +$arRegistro[0][ 'brancos' ] = ' '; +$arRegistro[0][ 'numero_sequencial'] = $inCount+1; + +$rsRecordSetRodape->preenche ( $arRegistro ); + +$obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 297 ); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFR.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFR.inc.php index 0431bb9..1814734 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFR.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFR.inc.php @@ -33,10 +33,10 @@ * @ignore - $Revision: 59820 $ + $Revision: 61647 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * Casos de uso: uc-06.04.00 */ @@ -54,40 +54,11 @@ $obTMapeamento->setDado( 'stEntidades', $stEntidades ); $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); $i = 0; +$nro_sequencial = 1; foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_sequencial'] = ++$i; - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_original'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_original'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_original']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_baixa_pago'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_baixa_pago'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_baixa_pago']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_saldo_anterior'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_saldo_anterior'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_saldo_anterior']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_inscricao'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_inscricao'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_inscricao']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelado'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelado'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelado']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['saldo_atual'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['saldo_atual'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['saldo_atual']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_processado'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_processado'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_processado']), 12, '0', 'STR_PAD_LEFT'); - } - - if ($arRecordSet[$stArquivo]->arElementos[$i]['vl_n_processado'] < 0) { - $arRecordSet[$stArquivo]->arElementos[$i]['vl_n_processado'] = '-'.str_pad(abs($arRecordSet[$stArquivo]->arElementos[$i]['vl_n_processado']), 12, '0', 'STR_PAD_LEFT'); - } + $arRecordSet[$stArquivo]->arElementos[$i]['nro_sequencial'] = $nro_sequencial; + $i++; + $nro_sequencial++; } $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); @@ -116,7 +87,7 @@ $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_empenho"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_cgm"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("credor"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); @@ -124,43 +95,75 @@ $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_original"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_empenhado"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_processado_anterior"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_nao_processado_anterior"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_processado_inscricao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_nao_processado_inscricao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_processado_pago"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna('valor_nao_processado_pago'); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_saldo_anterior"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_processado_cancelado"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_inscricao"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_nao_processado_cancelado"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_pago"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_processado_atribuicao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelado"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_nao_processado_atribuicao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_processado_encampacao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna('saldo_atual'); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_nao_processado_encampacao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_processado"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_cancelamento"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_processado_atual"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_n_processado"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_nao_processado_atual"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); -$arTemp[0] = array( 'tipo_registro'=> '99', 'brancos'=> '', 'numero_sequencial' => ++$i ); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +$arTemp[0] = array( 'tipo_registro'=> '99', 'brancos'=> '', 'nro_sequencial' => $nro_sequencial ); $arRecordSet[$stArquivo] = new RecordSet(); $arRecordSet[$stArquivo]->preenche( $arTemp ); @@ -172,8 +175,8 @@ $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02 $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(229); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(309); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PPD.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PPD.inc.php index 00c6ab4..fd52ac7 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PPD.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PPD.inc.php @@ -63,105 +63,112 @@ Revision 1.1 2007/04/20 20:24:27 bruce Bug #9169# */ - include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGOPassivoPermanente.class.php" ); + include_once( CAM_GPC_TGO_MAPEAMENTO."TTCMGODividaFundada.class.php" ); - $obTMapeamento = new TTCMGOPassivoPermanente ; - $obTMapeamento->setDado('exercicio' , Sessao::getExercicio() ); - $obTMapeamento->setDado('inMes' , $inMes ); - $obTMapeamento->setDado('stEntidades', $stEntidades ); - $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); + $obTMapeamento = new TTCMGODividaFundada(); + $obTMapeamento->recuperaRegistro10($rsRegistro10, " WHERE divida_fundada.cod_entidade = '".$stEntidades."' AND divida_fundada.exercicio = '".Sessao::getExercicio()."'"); - $i = 1; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i; - $arRecordSet[$stArquivo]->arElementos[$i]['tipo_registro'] = 10; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_cancelamento'] = 0; - $arRecordSet[$stArquivo]->arElementos[$i]['vl_encampacao'] = 0; + $i = 0; - $i++; + if (!$rsRegistro10->eof()) { + foreach ($rsRegistro10->arElementos as $stChave){ + $obExportador->roUltimoArquivo->addBloco($rsRegistro10); + $stChave['sequencial'] = ++$i; - } + $rsBloco10 = 'rsBloco10_'.$inCount; + unset($$rsBloco10); + $$rsBloco10 = new RecordSet(); + $$rsBloco10->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco10); - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_cgm"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_conta"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_tipo_lancamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento" ); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_norma"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 10 ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna( "nro_lei" ); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 10 ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_lei"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 8 ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna( "data_lei" ); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 10 ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_saldo_anterior"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_contratacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_anterior"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_amortizacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_creditos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_cancelamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_debitos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_encampacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_cancelamento"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_correcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_encampacao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor_saldo_atual"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_atual"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } - $rsRecordSetRodape = new RecordSet; + $arRegistro99 = array(); + $arRegistro99['tipo_registro'] = '99'; + $arRegistro99['sequencial'] = ++$i; - $arRegistro = array(); - $arRegistro[0][ 'tipo_registro' ] = 99 ; - $arRegistro[0][ 'brancos' ] = ' '; - $arRegistro[0][ 'numero_registro'] = $i ; + $rsBloco99 = 'rsBloco99_'.$inCount; + unset($$rsBloco99); + $$rsBloco99 = new RecordSet(); + $$rsBloco99->preenche(array($arRegistro99)); - $rsRecordSetRodape->preenche ( $arRegistro ); + $obExportador->roUltimoArquivo->addBloco($$rsBloco99); - $obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 244 ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(319); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PRL.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PRL.inc.php index 06e788d..8a81446 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PRL.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PRL.inc.php @@ -26,38 +26,131 @@ /** * Página de Include Oculta - PARECER DA LICITAÇÃO - * Data de Criação : 28/02/2014 - * @author Analista: Eduardo Paculski Schitz * @author Desenvolvedor: Franver Sarmento de Moraes - * @ignore - * $Id: PRL.inc.php 59820 2014-09-12 18:17:20Z luciana $ - * $Rev: 59820 $ + * $Id: PRL.inc.php 61647 2015-02-20 11:26:55Z luciana $ + * $Rev: 61647 $ * $Author: luciana $ - * $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ - + * $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ */ +include_once CAM_GPC_TGO_MAPEAMENTO.'TTCMGOParecerLicitacao.class.php'; + +$obTTCMGOParecerLicitacao = new RecordSet(); +$obTTCMGOParecerLicitacao = new TTCMGOParecerLicitacao(); +$obTTCMGOParecerLicitacao->setDado('exercicio' , Sessao::getExercicio()); +$obTTCMGOParecerLicitacao->setDado('entidades' , $inCodEntidade); +$obTTCMGOParecerLicitacao->setDado('dt_inicial', $arFiltroRelatorio['stDataInicial']); +$obTTCMGOParecerLicitacao->setDado('dt_final' , $arFiltroRelatorio['stDataFinal']); + +$obTTCMGOParecerLicitacao->recuperaPareceLicitacaoRegistro10($rsRecordSetPRL10); -$arrayDado = array ( +$i = 0; +foreach ($rsRecordSetPRL10->arElementos as $stChave) { + $rsRecordSetPRL10->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} + +$arRecordSetPRL99 = array ( 'tipo_registro' => '99', 'brancos' => '', 'nro_sequencial' => '1' ); -$recordSet[$stArquivo] = new RecordSet(); -$recordSet[$stArquivo]->preenche( array($arrayDado) ); +if (count($rsRecordSetPRL10->getElementos()) > 0) { + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco($rsRecordSetPRL10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(5); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_parecer"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_parecer"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(11); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_resp_parecer"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("logra_res"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("setor_logra"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cidade_logra"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("uf_cidade_logra"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cep_logra_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fone"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(80); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +}else{ + + $rsRecordSetPRL99 = new RecordSet(); + $rsRecordSetPRL99->preenche( $arRecordSetPRL99 ); + + $obExportador->roUltimoArquivo->addBloco($rsRecordSetPRL99); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(330); -$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(330); +} -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); \ No newline at end of file +$obTTCMGOParecerLicitacao = null; +$rsRecordSetPRL10 = null; +$rsRecordSetPRL99 = null; +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/REP.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/REP.inc.php index 262ff08..eab36bd 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/REP.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/REP.inc.php @@ -33,10 +33,10 @@ * @ignore - $Revision: 59820 $ + $Revision: 61726 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-27 13:39:09 -0300 (Sex, 27 Fev 2015) $ * Casos de uso: uc-06.04.00 */ @@ -50,10 +50,17 @@ Inclusão uc-06.04.00 include_once( CAM_GPC_TGO_MAPEAMENTO."TTGOREP.class.php" ); $obTMapeamento = new TTGOREP(); $obTMapeamento->setDado('stEntidades', $stEntidades ); - $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); - $i = 0; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i++; + if ( Sessao::getExercicio() < '2015') { + $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); + } else { + $obTMapeamento->recuperaTodos2015($arRecordSet[$stArquivo]); + } + + $i = 1; + + foreach ($arRecordSet[$stArquivo]->arElementos as $stChave => $valor) { + $arRecordSet[$stArquivo]->arElementos[$stChave]['numero_registro'] = $i; + $i++; } $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); @@ -96,3 +103,21 @@ Inclusão uc-06.04.00 $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $arTemp[0] = array( 'tipo_registro'=> '99', 'espacador'=> '', 'numero_sequencial' => $i ); + + $arRecordSet[$stArquivo] = new RecordSet(); + $arRecordSet[$stArquivo]->preenche( $arTemp ); + + $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(51); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ROP.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ROP.inc.php index bf75e45..145d733 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ROP.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ROP.inc.php @@ -31,10 +31,10 @@ * @author Analista: Gelson * @ignore - $Revision: 59820 $ + $Revision: 61647 $ $Name$ $Author: luciana $ - $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * Casos de uso: uc-06.04.00 */ @@ -45,90 +45,90 @@ Revision 1.1 2007/10/16 13:34:28 bruce */ - include_once( CAM_GPC_TGO_MAPEAMENTO."TTGOROP.class.php" ); - $obTMapeamento = new TTGOROP(); - $obTMapeamento->setDado('stEntidades', $stEntidades ); - $obTMapeamento->recuperaTodos($arRecordSet[$stArquivo]); - - $i = 0; - foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { - $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i++; - } - - $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ano_obra"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("especificacao"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("codigo_obra"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("valor"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); - - $rsRecordSetRodape = new RecordSet; - $arRegistro = array(); - $arRegistro[0][ 'tipo_registro' ] = 99 ; - $arRegistro[0][ 'brancos' ] = ' '; - $arRegistro[0][ 'numero_registro'] = $i ; - - $rsRecordSetRodape->preenche ( $arRegistro ); - - $obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 244 ); - - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); +include_once( CAM_GPC_TGO_MAPEAMENTO."TTGOROP.class.php" ); +$obTTGOROP = new TTGOROP(); +$obTTGOROP->setDado('stEntidades', $stEntidades ); +$obTTGOROP->recuperaTodos($rsRegistro10, $boTransacao); + +$i = 0; +foreach ($rsRegistro10->arElementos as $stChave) { + $rsRegistro10->arElementos[$i]['numero_registro'] = ++$i; +} + +$obExportador->roUltimoArquivo->addBloco($rsRegistro10); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("descricao_obra"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(200); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_obra"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ano_obra"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_aquisicao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_inc_reavaliacao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_bai_doacao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_bai_depreciacao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_atual"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(13); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +$rsRecordSetRodape = new RecordSet; +$arRegistro = array(); +$arRegistro[0][ 'tipo_registro' ] = 99 ; +$arRegistro[0][ 'brancos' ] = ' '; +$arRegistro[0][ 'numero_registro'] = $i ; + +$rsRecordSetRodape->preenche ( $arRegistro ); + +$obExportador->roUltimoArquivo->addBloco( $rsRecordSetRodape ); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 277 ); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +unset($obTTGOROP); +unset($arRegistro); +unset($rsRecordSetRodape); +unset($rsRegistro10); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/RPL.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/RPL.inc.php index 06b3bf8..d163d0e 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/RPL.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/RPL.inc.php @@ -33,31 +33,285 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * @ignore - * $Id: RPL.inc.php 59820 2014-09-12 18:17:20Z luciana $ - * $Rev: 59820 $ + * $Id: RPL.inc.php 61726 2015-02-27 16:39:09Z luciana $ + * $Rev: 61726 $ * $Author: luciana $ - * $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ + * $Date: 2015-02-27 13:39:09 -0300 (Sex, 27 Fev 2015) $ */ +include_once CAM_GPC_TGO_MAPEAMENTO."TTCMGOResponsavelLicitacao.class.php"; -$arrayDado = array ( - 'tipo_registro' => '99', - 'brancos' => '', - 'nro_sequencial' => '1' +$rsRecordSetRESPLIC10 = new RecordSet(); +$rsRecordSetRESPLIC20 = new RecordSet(); + +$obTTCMGOResponsavelLicitacao = new TTCMGOResponsavelLicitacao(); +$obTTCMGOResponsavelLicitacao->setDado('exercicio' , Sessao::getExercicio()); +$obTTCMGOResponsavelLicitacao->setDado('entidades' , $stEntidades); +$obTTCMGOResponsavelLicitacao->setDado('dt_inicial' , $stDataInicial); +$obTTCMGOResponsavelLicitacao->setDado('dt_final' , $stDataFinal); +$obTTCMGOResponsavelLicitacao->setDado('mes', $inMes); + +//Tipo Registro 10 +$obTTCMGOResponsavelLicitacao->recuperaResponsaveisLicitacao($rsRecordSetRESPLIC10); + +//Tipo Registro 20 +$obTTCMGOResponsavelLicitacao->recuperaComissaoLicitacao($rsRecordSetRESPLIC20); + +$i = 0; +foreach ($rsRecordSetRESPLIC10->arElementos as $stChave) { + $rsRecordSetRESPLIC10->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} +$i = 0; +foreach ($rsRecordSetRESPLIC20->arElementos as $stChave) { + $rsRecordSetRESPLIC20->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} +//Tipo Registro 99 +$arRecordSetRESPLIC99 = array( + '0' => array( + 'tipo_registro' => '99', + 'brancos' => '', + 'nro_sequencial' => 1, + ) ); +$rsRecordSetRESPLIC99 = new RecordSet(); +$rsRecordSetRESPLIC99->preenche($arRecordSetRESPLIC99); + +//REGISTRO 10 +$inCount = 0; +if ( count($rsRecordSetRESPLIC10->getElementos()) > 0 ) { + $stChave10 = ''; + $stChave = ''; + foreach ( $rsRecordSetRESPLIC10->getElementos() as $arRESPLIC10 ) { + $auxiliarStChave10=$arRESPLIC10['tipo_registro'].$arRESPLIC10['cod_orgao'].$arRESPLIC10['codunidadesub'].$arRESPLIC10['exercicio_licitacao'].$arRESPLIC10['num_processo_licitatorio'].$arRESPLIC10['tipo_responsabilidade']; + if ( !($stChave10 === $auxiliarStChave10)){ + $inCount++; + $stChave10 = $arRESPLIC10['tipo_registro'].$arRESPLIC10['cod_orgao'].$arRESPLIC10['codunidadesub'].$arRESPLIC10['exercicio_licitacao'].$arRESPLIC10['num_processo_licitatorio'].$arRESPLIC10['tipo_responsabilidade']; + $stChave = $arRESPLIC10['num_processo_licitatorio']; + $stChaveAuxiliar = $arRESPLIC10['num_processo_licitatorio'].$arRESPLIC10['codunidadesub']; + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRESPLIC10)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("codunidadesub"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(5); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_responsabilidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(11); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cargo_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("logra_res_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("setor_logra_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cidade_logra_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("uf_cidade_logra_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cep_logra_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fone_responsavel"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(80); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("escolaridade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + } + } + + //REGISTRO 20 + if ( count($rsRecordSetRESPLIC20->getElementos()) > 0 ) { + $stChave20 = ''; + foreach ( $rsRecordSetRESPLIC20->getElementos() as $arRESPLIC20 ) { + $stChaveElemento = $arRESPLIC20['num_processo_licitatorio'].$arRESPLIC20['codunidadesub']; + if ( $stChaveElemento==$stChaveAuxiliar ) { + $inCount++; + $stChave20 = $arRESPLIC20['num_processo_licitatorio'].$arRESPLIC20['codunidadesub']; + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRESPLIC20)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(5); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("exercicio_licitacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_processo_licitatorio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(12); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_comissao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_atribuicao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf_membro_comissao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(11); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_ato_momeacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_ato_nomeacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_ato_nomeacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("inicio_vigencia"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("final_vigencia"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_membro_com_lic"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(80); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cargo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza_cargo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("logra_res_membro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("setor_logra_membro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cidade_logra_membro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("uf_cidade_lograMembro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cep_logra_membro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fone_membro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(80); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("escolaridade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } + } +}else { + $obExportador->roUltimoArquivo->addBloco($rsRecordSetRESPLIC99); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); -$recordSet[$stArquivo] = new RecordSet(); -$recordSet[$stArquivo]->preenche( array($arrayDado) ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(389); -$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); +} -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(389); +$rsRecordSetRESPLIC10 = null; +$rsRecordSetRESPLIC20 = null; +$obTTCMGOResponsavelLicitacao = null; +$rsRecordSetRESPLIC99 = null; -$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); -$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); \ No newline at end of file +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/index.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/index.php new file mode 100644 index 0000000..82a130c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/index.php @@ -0,0 +1,52 @@ + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/AMP.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/AMP.inc.php new file mode 100644 index 0000000..69c00aa --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/AMP.inc.php @@ -0,0 +1,182 @@ + +setDado('exercicio', Sessao::getExercicio()); +$obTMapeamento->recuperaDadosTipo10($rsRegistro10); + +$i = 0; + +if (!$rsRegistro10->eof()) { + foreach ($rsRegistro10->arElementos as $stChave){ + //$obExportador->roUltimoArquivo->addBloco($rsRegistro10); + $stChave['sequencial'] = ++$i; + + $rsBloco10 = 'rsBloco10_'.$inCount; + unset($$rsBloco10); + $$rsBloco10 = new RecordSet(); + $$rsBloco10->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 4 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza_acao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 1 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_proj_ativ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 3 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("esfera_orcamentaria"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 1 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("acao_detalhada"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 200 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("publico_alvo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 100 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("produto"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 100 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("acao_reduzida"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 60 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("unidade_medida"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_fisica_1Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_fisica_2Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_fisica_3Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_fisica_4Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_financeira_1Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_financeira_2Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_financeira_3Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_financeira_4Ano"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + } +} + + $arRegistro99 = array(); + $arRegistro99['tipo_registro'] = '99'; + $arRegistro99['sequencial'] = ++$i; + + $rsBloco99 = 'rsBloco99_'.$inCount; + unset($$rsBloco99); + $$rsBloco99 = new RecordSet(); + $$rsBloco99->preenche(array($arRegistro99)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco99); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 600 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/DSP.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/DSP.inc.php new file mode 100644 index 0000000..2b19a1b --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/DSP.inc.php @@ -0,0 +1,208 @@ + +setDado('exercicio' , Sessao::getExercicio() ); + $obTMapeamento->setDado('cod_entidade',$stEntidades ); + $obTMapeamento->recuperaDSP10( $rsDSP10 ); + $obTMapeamento->recuperaDSP11( $rsDSP11 ); + + $inCount = 0; + //loop do tipo 10 + foreach ($rsDSP10->arElementos as $arDSP10) { + + $stChave = $arDSP10['cod_programa'] + .$arDSP10['num_orgao'] + .$arDSP10['num_unidade'] + .$arDSP10['cod_funcao'] + .$arDSP10['cod_subfuncao'] + .$arDSP10['natureza_acao'] + .$arDSP10['num_proj_atividade'] + .$arDSP10['elemento_despesa']; + + $arDSP10['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arDSP10)); + + $obExportador->roUltimoArquivo->addBloco( $$rsBloco ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza_acao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_proj_atividade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_total_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("branco"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + //loop do tipo 11 + foreach ($rsDSP11->arElementos as $arDSP11) { + $stChaveElemento = $arDSP11['cod_programa'] + .$arDSP11['num_orgao'] + .$arDSP11['num_unidade'] + .$arDSP11['cod_funcao'] + .$arDSP11['cod_subfuncao'] + .$arDSP11['natureza_acao'] + .$arDSP11['num_proj_atividade'] + .$arDSP11['elemento_despesa']; + + if ($stChave === $stChaveElemento) { + $arDSP11['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arDSP11)); + + $obExportador->roUltimoArquivo->addBloco( $$rsBloco ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_funcao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_subfuncao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("natureza_acao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_proj_atividade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("elemento_despesa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(03); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_fonte"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + } + } + } + + $arTemp[0] = array( 'tipo_registro'=> '99', 'espacador'=> '', 'numero_sequencial' => $inCount+1 ); + + $arFinalizador = new RecordSet(); + $arFinalizador->preenche( $arTemp ); + + $obExportador->roUltimoArquivo->addBloco( $arFinalizador ); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(41); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/IDE.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/IDE.inc.php new file mode 100644 index 0000000..775f332 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/IDE.inc.php @@ -0,0 +1,87 @@ + +setDado('stEntidades', $stEntidades ); + $obTTCMGOArquivoOrcamentoIDE->setDado('inCodModulo', 42 ); + $obTTCMGOArquivoOrcamentoIDE->recuperaTodos($arRecordSet[$stArquivo]); + + $i = 0; + foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { + $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i+1; + $i++; + } + + $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_municipio"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ano_referencia_loa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ano_inicial_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ano_final_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(04); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_geracao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(08); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ISI.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ISI.inc.php new file mode 100644 index 0000000..8865d6c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ISI.inc.php @@ -0,0 +1,142 @@ + +setDado('exercicio' , Sessao::getExercicio() ); +$obTMapeamento->setDado('cod_entidade',$stEntidades ); +$obTMapeamento->recuperaISI($arRecordSet[$stArquivo]); + +$i = 0; +foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { + $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i+1; + $i++; +} + +$obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); +$obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_documento"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_pessoa"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(01); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_cgm"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("logradouro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("setor"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_municipio"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sigla_uf"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cep"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fone_residencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("e_mail"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(80); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf_responsavel"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(11); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_responsavel_tec"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("email_responsavel_tec"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_sistema"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("versao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + +/*************************************************************************************************/ +$recordSet[$stArquivo] = new RecordSet(); +$recordSet[$stArquivo]->preenche(array(array('tipo_registro' => 99,'espacador'=> '', 'numero_registro' => $i))); + +$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(526); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LDO.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LDO.inc.php new file mode 100644 index 0000000..d760dad --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LDO.inc.php @@ -0,0 +1,252 @@ + +setDado('exercicio', Sessao::getExercicio()); + +//Tipo Registro 10 +$obTTCMGOLDO->recuperaArquivoExportacao10($rsRegistro10, $boTransacao); +$obTTCMGOLDO->recuperaArquivoExportacao11($rsRegistro11, $boTransacao); +$obTTCMGOLDO->recuperaArquivoExportacao20($rsRegistro20, $boTransacao); +$obTTCMGOLDO->recuperaArquivoExportacao21($rsRegistro21, $boTransacao); +//$obTTCMGOLDO->debug();die(); + +$inCount = 0; +if ($rsRegistro10->getNumLinhas() > 0) { + foreach ($rsRegistro10->arElementos as $stChave) { + $stChave['numero_sequencial'] = ++$inCount; + $stKey = $stChave['nro_ldo'] . $stChave['data_ldo']; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_ldo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_ldo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(296); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + //Registro 11 + foreach ($rsRegistro11->arElementos as $stChave11) { + $stKey11 = $stChave11['nro_ldo'] . $stChave11['data_ldo']; + + if ($stKey11 === $stKey) { + $stChave11['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave11)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meio_pub_ldo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_meio_ldo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(300); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_pub_lei_ldo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + }//if registro 11 + }//foreach registro 11 + }//foreach registro 10 + + //Registro 20 + foreach ($rsRegistro20->arElementos as $stChave20) { + $stChave20['numero_sequencial'] = ++$inCount; + $stKey20 = $stChave20['exercicio']; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave20)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_rec"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_desp"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_rp"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_rn"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_dcl"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(240); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + foreach ($rsRegistro21->arElementos as $stChave21) { + $stKey21 = $stChave21['exercicio']; + + if ($stKey21 === $stKey20) { + $stChave21['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave21)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_arrec_1_bim"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_arrec_2_bim"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_arrec_3_bim"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_arrec_4_bim"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_arrec_5_bim"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meta_arrec_6_bim"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(226); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + }//if registro 21 + }//foreach registro 21 + }//foreach registro 20 +} + +//Tipo Registro 99 +$arRecordSet99[0] = array( 'tipo_registro'=> '99', 'brancos'=> '', 'numero_sequencial' => ++$inCount ); + +$rsRecordSet99 = new RecordSet(); +$rsRecordSet99->preenche($arRecordSet99); + +$obExportador->roUltimoArquivo->addBloco($rsRecordSet99); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(310); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +unset($obTTCMGOLDO); +unset($rsRegistro10); +unset($rsRegistro11); +unset($rsRegistro20); +unset($rsRegistro21); +unset($arRecordSet99); +unset($rsRecordSet99); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LOC.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LOC.inc.php new file mode 100644 index 0000000..658174a --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LOC.inc.php @@ -0,0 +1,164 @@ + +setDado('exercicio', Sessao::getExercicio()); +$obTMapeamento->recuperaRegistro10($rsRegistro10); +$obTMapeamento->recuperaRegistro11($rsRegistro11); + +$i = 0; + +if ($rsRegistro10->getNumLinhas() > 0) { + foreach ($rsRegistro10->arElementos as $stChave){ + + $stChaveRegistro10 = $stChave['num_loa']; + + $stChave['sequencial'] = ++$i; + + $rsBloco10 = 'rsBloco10_'.$inCount; + unset($$rsBloco10); + $$rsBloco10 = new RecordSet(); + $$rsBloco10->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco10); + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_loa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_loa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 8 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("perc_suplementacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("perc_op_cred_int"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("perc_op_cred_aro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 278 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + if ($rsRegistro11->getNumLinhas() > 0) { + foreach ($rsRegistro11->arElementos as $stChave){ + + $stChaveRegistro11 = $stChave['num_loa']; + + if ($stChaveRegistro11 === $stChaveRegistro10) { + $stChave['sequencial'] = ++$i; + + $rsBloco11 = 'rsBloco11_'.$inCount; + unset($$rsBloco11); + $$rsBloco11 = new RecordSet(); + $$rsBloco11->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco11); + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meio_pub_loa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_meio_loa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 300 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_lei_loa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 8 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + } + } + } + } +} + + $arRegistro99 = array(); + $arRegistro99['tipo_registro'] = '99'; + $arRegistro99['sequencial'] = ++$i; + + $rsBloco99 = 'rsBloco99_'.$inCount; + unset($$rsBloco99); + $$rsBloco99 = new RecordSet(); + $$rsBloco99->preenche(array($arRegistro99)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco99); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 310 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + + + + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LPP.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LPP.inc.php new file mode 100644 index 0000000..e8120d6 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LPP.inc.php @@ -0,0 +1,233 @@ + +recuperaExportacao10( $rsRegistro10, "", "", $boTransacao ); +$obTTCMGOConfiguracaoLeisPPA->recuperaExportacao11( $rsRegistro11, "", "", $boTransacao ); +$obTTCMGOConfiguracaoLeisPPA->recuperaExportacao20( $rsRegistro20, "", "", $boTransacao ); +$obTTCMGOConfiguracaoLeisPPA->recuperaExportacao21( $rsRegistro21, "", "", $boTransacao ); + +//Tipo Registro 99 +$arRecordSet99 = array( + 'tipo_registro' => '99', + 'brancos' => '', + 'numero_sequencial' => 1 +); + +$inCount = 0; +$arDescPubLei = array(); +$arDescPubLei[1] = 'Diário Oficial do Estado'; +$arDescPubLei[2] = 'Diário Oficial do Município'; +$arDescPubLei[3] = 'Placar da Prefeitura ou da Câmara Municipal'; +$arDescPubLei[4] = 'Jornal de grande circulação'; +$arDescPubLei[5] = 'Diário Oficial da União'; +$arDescPubLei[9] = 'Endereço eletrônico completo (Internet)'; + +if ($rsRegistro10->getNumLinhas() > 0) { + foreach ($rsRegistro10->arElementos as $stChave) { + $stChave['numero_sequencial'] = ++$inCount; + $stKey = $stChave['nro_lei_ppa'] . $stChave['data_pub_lei_ppa']; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_lei_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_lei_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(296); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + //Registro 11 + foreach ($rsRegistro11->arElementos as $stChave11) { + $stKey11 = $stChave11['nro_lei_ppa'] . $stChave11['data_pub_lei_ppa']; + + if ($stKey11 === $stKey) { + if($stChave11['meio_pub_ppa']!=9) + $stChave11['desc_meio_ppa'] = $arDescPubLei[$stChave11['meio_pub_ppa']]; + + $stChave11['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave11)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meio_pub_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_meio_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(300); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_pub_lei_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + }//if registro 11 + }//foreach registro 11 + }//foreach registro 10 + + //Registro 20 + foreach ($rsRegistro20->arElementos as $stChave20) { + $stChave20['numero_sequencial'] = ++$inCount; + $stKey20 = $stChave20['nro_lei_alt_ppa'] . $stChave20['data_lei_alt_ppa']; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave20)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_lei_alt_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_lei_alt_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(296); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + foreach ($rsRegistro21->arElementos as $stChave21) { + $stKey21 = $stChave21['nro_lei_alt_ppa'] . $stChave21['data_lei_alt_ppa']; + + if ($stKey21 === $stKey20) { + $stChave21['numero_sequencial'] = ++$inCount; + + $rsBloco = 'rsBloco_' . $inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($stChave21)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("meio_pub_alt_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_meio_alt_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(300); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_pub_lei_alt_ppa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + }//if registro 21 + }//foreach registro 21 + }//foreach registro 20 +}else{ + //Tipo Registro 99 + $rsRegistro99 = new RecordSet(); + $rsRegistro99->preenche($arRecordSet99); + + $obExportador->roUltimoArquivo->addBloco($rsRegistro99); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(310); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); +} + +unset($rsRegistro10); +unset($rsRegistro11); +unset($rsRegistro20); +unset($rsRegistro21); +unset($arRecordSet99); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ORGAO.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ORGAO.inc.php new file mode 100644 index 0000000..55261f3 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ORGAO.inc.php @@ -0,0 +1,96 @@ + +setDado('exercicio' , Sessao::getExercicio() ); + $obTMapeamento->recuperaOrgao( $rsOrgao2 ); + + $i = 0; + + foreach ($rsOrgao2->arElementos as $stChave) { + $rsOrgao2->arElementos[$i]['numero_sequencial'] = $i+1; + $i++; + } + + $obExportador->roUltimoArquivo->addBloco($rsOrgao2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf_gestor"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(11); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $arTemp[0] = array( 'tipo_registro'=> '99', 'espacador'=> '', 'numero_sequencial' => $i+1 ); + + $arRodape2 = new RecordSet(); + $arRodape2->preenche( $arTemp ); + + $obExportador->roUltimoArquivo->addBloco($arRodape2); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/PRO.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/PRO.inc.php new file mode 100644 index 0000000..e346893 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/PRO.inc.php @@ -0,0 +1,139 @@ + +setDado('exercicio' , Sessao::getExercicio()); + +//Tipo Registro 10 +$obTCMGOArquivoProgramasPPA->recuperaTotalRecursos($rsRecordSetPRO10); + +$i = 0; +foreach ($rsRecordSetPRO10->arElementos as $stChave) { + $rsRecordSetPRO10->arElementos[$i]['nro_sequencial'] = $i+1; + $i++; +} + +//Tipo Registro 99 +$arRecordSetPRO99 = array( + '0' => array( + 'tipo_registro' => '99', + 'brancos' => '', + 'nro_sequencial' => $i+1, + ) +); + +$rsRecordSetPRO99 = new RecordSet(); +$rsRecordSetPRO99->preenche($arRecordSetPRO99); + +if (count($rsRecordSetPRO10->getElementos()) > 0) { + + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + $obExportador->roUltimoArquivo->addBloco($rsRecordSetPRO10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("num_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(4); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_programa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("objetivo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(300); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_recursos_ano_1"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_recursos_ano_2"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_recursos_ano_3"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("total_recursos_ano_4"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +} + + $obExportador->roUltimoArquivo->addBloco($rsRecordSetPRO99); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + if ( Sessao::getExercicio() >= '2015' ) { + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(415); + } else { + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(215); + } + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nro_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +$rsRecordSetRESPLIC10 = null; +$rsRecordSetRESPLIC20 = null; +$obTTCMGOResponsavelLicitacao = null; +$rsRecordSetRESPLIC99 = null; + +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/REC.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/REC.inc.php new file mode 100644 index 0000000..78f3ebc --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/REC.inc.php @@ -0,0 +1,171 @@ + +setDado('exercicio' , Sessao::getExercicio() ); +$obTMapeamento->setDado('dtInicio' , $arFiltroRelatorio['stDataInicial'] ); +$obTMapeamento->setDado('dtFim' , $arFiltroRelatorio['stDataFinal'] ); +$obTMapeamento->setDado('stEntidades', $stEntidades ); +$obTMapeamento->recuperaArquivoOrcamento10($rsRegistro10, "", "",$boTransacao); +$obTMapeamento->recuperaArquivoOrcamento11($rsRegistro11, "", "",$boTransacao); + +$i = 0; +$inCount = 0; + +//tipo10 +foreach ($rsRegistro10->arElementos as $arRegistro10) { + + $arRegistro10['numero_registro'] = ++$inCount; + $stChave = $arRegistro10['cod_orgao'].$arRegistro10['rubrica']; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro10)); + + $obExportador->roUltimoArquivo->addBloco( $$rsBloco ); + $obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("rubrica"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(9); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("especificacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_previsto"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + + /* TIPO REGISTRO 11 -- MOVIMENTAÇÃO FINANCEIRA*/ + foreach ($rsRegistro11->arElementos as $arRegistro11) { + $stChaveElemento = $arRegistro11['cod_orgao'].$arRegistro11['rubrica']; + $stChaveElemento2 = $arRegistro11['cod_orgao'].$arRegistro11['rubrica']; + $boChave = false; + + if ($stChave == $stChaveElemento) { + $arRegistro11['numero_registro'] = ++$inCount; + $boChave = true; + + $rsBloco = 'rsBloco_'.$inCount; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro11)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + $obExportador->roUltimoArquivo->setTipoDocumento('TCE_GO'); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("rubrica"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(9); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_fonte_recurso"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(3); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_previsto"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(15); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(97); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + } + } +} + +//tipo99 +$arTemp[0] = array( 'tipo_registro'=> '99', 'brancos'=> '', 'numero_sequencial' => $inCount+1 ); + +$arRecordSet[$stArquivo] = new RecordSet(); +$arRecordSet[$stArquivo]->preenche( $arTemp ); + +$obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("brancos"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(128); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/UOC.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/UOC.inc.php new file mode 100644 index 0000000..c0c82d9 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/UOC.inc.php @@ -0,0 +1,99 @@ + +recuperaUnidade($arRecordSet[$stArquivo]); +$i = 0; +foreach ($arRecordSet[$stArquivo]->arElementos as $stChave) { + $arRecordSet[$stArquivo]->arElementos[$i]['numero_registro'] = $i+1; + $i++; +} + +$obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); +$obExportador->roUltimoArquivo->setTipoDocumento('TCM_GO'); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_orgao"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cod_unidade"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("desc_unidade"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_unidade"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + +/*************************************************************************************************/ +$recordSet[$stArquivo] = new RecordSet(); +$recordSet[$stArquivo]->preenche(array(array('tipo_registro' => 99,'espacador'=> '', 'numero_registro' => $i))); + +$obExportador->roUltimoArquivo->addBloco($recordSet[$stArquivo]); +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("espacador"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(56); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_registro"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(6); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/index.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/index.php new file mode 100644 index 0000000..82a130c --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/index.php @@ -0,0 +1,52 @@ + + diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2RPPS_novo_mensal.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2RPPS_novo_mensal.plsql index 9dea790..6583db8 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2RPPS_novo_mensal.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2RPPS_novo_mensal.plsql @@ -26,7 +26,7 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Id: relatorioRGFAnexo2RPPS_novo_mensal.plsql 61167 2014-12-12 14:15:52Z silvia $ +* $Id: relatorioRGFAnexo2RPPS_novo_mensal.plsql 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso: uc-06.01.02 */ @@ -331,7 +331,7 @@ BEGIN INSERT INTO tmp_valores VALUES (arDescricao[10] , 10 , ( (SELECT valor_exercicio_anterior FROM tmp_valores WHERE ordem = 1) - (SELECT valor_exercicio_anterior FROM tmp_valores WHERE ordem = 4) ) - , ( (SELECT valor_1 FROM tmp_valores WHERE ordem = 1) - (SELECT valor_1 FROM tmp_valores WHERE ordem = 4) ) + , ( (SELECT valor_mes FROM tmp_valores WHERE ordem = 1) - (SELECT valor_mes FROM tmp_valores WHERE ordem = 4) ) ); END If; diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo.plsql index b4b499e..bd55ef7 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo.plsql @@ -131,7 +131,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN @@ -168,7 +168,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN @@ -201,7 +201,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN @@ -234,7 +234,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN @@ -267,7 +267,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN @@ -281,11 +281,11 @@ BEGIN arFiltro[8] := ''; arBoFiltroVazio[8] := TRUE; - arFiltro[9] := '( REPLACE(plano_conta.cod_estrutural,''''.'''','''' '''') LIKE ''''111%'''' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + arFiltro[9] := '( REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE ''''111%'''' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; arBoFiltroVazio[9] := FALSE; - arFiltro[10] := '( REPLACE(plano_conta.cod_estrutural,''''.'''','''' '''') LIKE ''''1211%'''' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + arFiltro[10] := '( REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE ''''1211%'''' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; arBoFiltroVazio[10] := FALSE; - + -- PEGA CONFIGURAÇÃO PARA A LINHA Dívida Contratual Interna stContasConfiguracao := ''; stSqlConfiguracao := ' @@ -307,7 +307,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo_mensal.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo_mensal.plsql index 62e75da..be3c750 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo_mensal.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo_mensal.plsql @@ -26,7 +26,7 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Id: relatorioRGFAnexo2_novo_mensal.plsql 61167 2014-12-12 14:15:52Z silvia $ +* $Id: relatorioRGFAnexo2_novo_mensal.plsql 61726 2015-02-27 16:39:09Z luciana $ * Casos de uso: uc-06.01.02 */ @@ -127,7 +127,7 @@ BEGIN FOR reConfiguracao IN EXECUTE stSqlConfiguracao LOOP - stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''.'','''') LIKE '''||reConfiguracao.estrutural||'%'' '; + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; END LOOP; IF stContasConfiguracao <> '' THEN diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRREOAnexo4_despesa.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRREOAnexo4_despesa.plsql index 53892eb..2ef2333 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRREOAnexo4_despesa.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRREOAnexo4_despesa.plsql @@ -35,7 +35,7 @@ * Casos de uso : uc-06.01.04 - $Id: relatorioRREOAnexo4_despesa.plsql 61167 2014-12-12 14:15:52Z silvia $ + $Id: relatorioRREOAnexo4_despesa.plsql 61647 2015-02-20 11:26:55Z luciana $ */ CREATE OR REPLACE FUNCTION stn.fn_rreo_anexo4_despesas(varchar, varchar, varchar, varchar) RETURNS SETOF RECORD AS $$ @@ -160,12 +160,12 @@ BEGIN , conta_despesa.cod_estrutural , sum(tmp_despesa_lib.vl_original) as vl_original , (coalesce(sum(tmp_despesa_lib.vl_original),0.00)) + (coalesce(sum(tmp_despesa_lib.vl_credito_adicional),0.00)) as vl_suplementacoes - , COALESCE((SELECT * FROM stn.fn_rreo_despesa_empenhada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(stDataInicial) || ', ' || quote_literal(stDataFinal) || ', false )), 0.00) AS vl_empenhado_bimestre - , COALESCE((SELECT * FROM stn.fn_rreo_despesa_empenhada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAno) || ', ' || quote_literal(stDataFinal) || ', false )), 0.00) AS vl_empenhado_ate_bimestre - , COALESCE((SELECT * FROM stn.fn_rreo_despesa_empenhada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicioAnterior) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAnoAnterior) || ', ' || quote_literal(dtFinalAnterior) || ', false )), 0.00) AS vl_empenhado_ate_bimestre_anterior - , COALESCE((SELECT * FROM stn.fn_rreo_despesa_liquidada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(stDataInicial) || ', ' || quote_literal(stDataFinal) || ', false )), 0.00) AS vl_liquidado_bimestre - , COALESCE((SELECT * FROM stn.fn_rreo_despesa_liquidada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAno) || ', ' || quote_literal(stDataFinal) || ', false )), 0.00) AS vl_liquidado_ate_bimestre - , COALESCE((SELECT * FROM stn.fn_rreo_despesa_liquidada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicioAnterior) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAnoAnterior) || ', ' || quote_literal(dtFinalAnterior) || ', false )), 0.00) AS vl_liquidado_ate_bimestre_anterior + , COALESCE((SELECT * FROM stn.fn_rreo_despesa_empenhada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(stDataInicial) || ', ' || quote_literal(stDataFinal) || ', true )), 0.00) AS vl_empenhado_bimestre + , COALESCE((SELECT * FROM stn.fn_rreo_despesa_empenhada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAno) || ', ' || quote_literal(stDataFinal) || ', true )), 0.00) AS vl_empenhado_ate_bimestre + , COALESCE((SELECT * FROM stn.fn_rreo_despesa_empenhada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicioAnterior) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAnoAnterior) || ', ' || quote_literal(dtFinalAnterior) || ', true )), 0.00) AS vl_empenhado_ate_bimestre_anterior + , COALESCE((SELECT * FROM stn.fn_rreo_despesa_liquidada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(stDataInicial) || ', ' || quote_literal(stDataFinal) || ', true )), 0.00) AS vl_liquidado_bimestre + , COALESCE((SELECT * FROM stn.fn_rreo_despesa_liquidada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAno) || ', ' || quote_literal(stDataFinal) || ', true )), 0.00) AS vl_liquidado_ate_bimestre + , COALESCE((SELECT * FROM stn.fn_rreo_despesa_liquidada( publico.fn_mascarareduzida(conta_despesa.cod_estrutural), ' || quote_literal(stExercicioAnterior) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(dtInicioAnoAnterior) || ', ' || quote_literal(dtFinalAnterior) || ', true )), 0.00) AS vl_liquidado_ate_bimestre_anterior --Calcula os restos nao processados do exercicio anterior , COALESCE((SELECT * FROM stn.fn_rreo_anexo4_despesas_restos_nao_processados(' || quote_literal(stExercicio) || ', ' || quote_literal(stCodEntidades) || ', ' || quote_literal(stDataFinal) || ', conta_despesa.cod_estrutural, ''nao_processados_exercicio_anterior'')),0.00) AS vl_restos_nao_processados_exercicio_anterior @@ -176,24 +176,21 @@ BEGIN LEFT JOIN orcamento.conta_despesa ON conta_despesa.cod_conta = despesa.cod_conta AND conta_despesa.exercicio = despesa.exercicio - LEFT JOIN orcamento.funcao - ON funcao.exercicio = despesa.exercicio - AND funcao.cod_funcao = despesa.cod_funcao + LEFT JOIN tmp_despesa_lib ON tmp_despesa_lib.exercicio = despesa.exercicio AND tmp_despesa_lib.cod_despesa = despesa.cod_despesa where despesa.exercicio = ' || quote_literal(stExercicio) || ' - and despesa.cod_entidade IN (' || stCodEntidades || ') - --and despesa.cod_funcao IN (4,9) - and (conta_despesa.cod_estrutural ilike ''3.%'' - or conta_despesa.cod_estrutural ilike ''4.%'' - or conta_despesa.cod_estrutural ilike ''9.%'' - or conta_despesa.cod_estrutural ilike ''7.%'') - --and conta_despesa.cod_estrutural not ilike ''%.9.1.%'' - group by funcao.descricao, conta_despesa.cod_estrutural, conta_despesa.descricao - order by funcao.descricao, conta_despesa.cod_estrutural + and despesa.cod_entidade IN (' || stCodEntidades || ') + -- and (conta_despesa.cod_estrutural ilike ''3.%'' + -- or conta_despesa.cod_estrutural ilike ''4.%'' + -- or conta_despesa.cod_estrutural ilike ''9.%'' + -- or conta_despesa.cod_estrutural ilike ''7.%'') + + group by conta_despesa.cod_estrutural, conta_despesa.descricao + order by conta_despesa.cod_estrutural ) '; EXECUTE stSql; diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGArquivoEXTRegistro20.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGArquivoEXTRegistro20.plsql index d015ca5..80da147 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGArquivoEXTRegistro20.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGArquivoEXTRegistro20.plsql @@ -25,11 +25,11 @@ * * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br -* $Id: FTCEMGArquivoEXTRegistro20.plsql 59820 2014-09-12 18:17:20Z luciana $ -* $Revision: 59820 $ +* $Id: FTCEMGArquivoEXTRegistro20.plsql 61647 2015-02-20 11:26:55Z luciana $ +* $Revision: 61647 $ * $Name$ * $Author: luciana $ -* $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ +* $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * */ @@ -231,159 +231,315 @@ BEGIN ) ORDER BY cod_estrutural '; ELSE - stSql := ' - SELECT cod_estrutural - , tipo_registro - , cod_orgao - , cod_ext - , cod_recurso - , SUM(0.00) as vl_saldo_anterior - , SUM(0.00) as vl_saldo_debitos - , SUM(0.00) as vl_saldo_creditos - , SUM(0.00) as vl_saldo_atual - FROM ( SELECT pc.cod_estrutural - , 20 AS tipo_registro - , LPAD(configuracao_entidade.valor::VARCHAR,2,''0'')::VARCHAR AS cod_orgao - , t_be.cod_plano AS cod_ext - , c_pr.cod_recurso - , 0.00 as vl_saldo_anterior - , 0.00 as vl_saldo_debitos - , 0.00 as vl_saldo_creditos - , 0.00 as vl_saldo_atual - - FROM tesouraria.transferencia - - JOIN contabilidade.plano_analitica as pa - ON pa.cod_plano = transferencia.cod_plano_credito - AND pa.exercicio = transferencia.exercicio - - JOIN tcemg.balancete_extmmaa AS t_be - ON t_be.cod_plano = pa.cod_plano - AND t_be.exercicio = pa.exercicio - - JOIN contabilidade.plano_conta as pc - ON pa.cod_conta = pc.cod_conta - and pa.exercicio = pc.exercicio - - JOIN (SELECT lote.exercicio - , conta_credito.cod_plano - , lote.tipo - , lote.cod_entidade - FROM contabilidade.lote - JOIN contabilidade.valor_lancamento - ON valor_lancamento.exercicio = lote.exercicio - AND valor_lancamento.cod_entidade = lote.cod_entidade - AND valor_lancamento.tipo = lote.tipo - AND valor_lancamento.cod_lote = lote.cod_lote - AND valor_lancamento.tipo_valor = ''C'' - - JOIN contabilidade.conta_credito - ON conta_credito.exercicio = valor_lancamento.exercicio - AND conta_credito.cod_entidade = valor_lancamento.cod_entidade - AND conta_credito.tipo = valor_lancamento.tipo - AND conta_credito.cod_lote = valor_lancamento.cod_lote - AND conta_credito.sequencia = valor_lancamento.sequencia - --AND valor_lancamento.tipo = ''T'' - - WHERE lote.exercicio = '''||stExercicio||''' - --AND lote.tipo = ''T'' - AND lote.dt_lote BETWEEN TO_DATE('''||stDtInicial||''', ''dd/mm/yyyy'') and TO_DATE('''||stDtFinal||''', ''dd/mm/yyyy'') - GROUP BY 1,2,3,4 - - ) as valor - ON valor.exercicio = pa.exercicio - AND valor.cod_plano = pa.cod_plano - AND valor.tipo = transferencia.tipo - AND valor.cod_entidade = transferencia.cod_entidade - - JOIN contabilidade.plano_recurso AS c_pr - ON c_pr.cod_plano = valor.cod_plano - AND c_pr.exercicio = valor.exercicio - - JOIN administracao.configuracao_entidade - ON configuracao_entidade.cod_entidade = valor.cod_entidade - AND configuracao_entidade.exercicio = valor.exercicio - AND configuracao_entidade.cod_modulo = 55 - AND configuracao_entidade.parametro = ''tcemg_codigo_orgao_entidade_sicom'' - - WHERE t_be.exercicio = '''||stExercicio||''' - AND transferencia.'||stFiltro||' - AND transferencia.cod_tipo = 2 - GROUP BY cod_estrutural, t_be.cod_plano, cod_recurso, cod_orgao - UNION - SELECT pc.cod_estrutural - , 20 AS tipo_registro - , LPAD(configuracao_entidade.valor::VARCHAR,2,''0'')::VARCHAR AS cod_orgao - , t_be.cod_plano AS cod_ext - , c_pr.cod_recurso - , 0.00 as vl_saldo_anterior - , 0.00 as vl_saldo_debitos - , 0.00 as vl_saldo_creditos - , 0.00 as vl_saldo_atual - - FROM tesouraria.transferencia - - JOIN contabilidade.plano_analitica as pa - ON pa.cod_plano = transferencia.cod_plano_debito - AND pa.exercicio = transferencia.exercicio - - JOIN tcemg.balancete_extmmaa AS t_be - ON t_be.cod_plano = pa.cod_plano - AND t_be.exercicio = pa.exercicio - - JOIN contabilidade.plano_conta as pc - ON pa.cod_conta = pc.cod_conta - and pa.exercicio = pc.exercicio - - JOIN (SELECT lote.exercicio - , conta_debito.cod_plano - , lote.tipo - , lote.cod_entidade - FROM contabilidade.lote - JOIN contabilidade.valor_lancamento - ON valor_lancamento.exercicio = lote.exercicio - AND valor_lancamento.cod_entidade = lote.cod_entidade - AND valor_lancamento.tipo = lote.tipo - AND valor_lancamento.cod_lote = lote.cod_lote - AND valor_lancamento.tipo_valor = ''D'' - - JOIN contabilidade.conta_debito - ON conta_debito.exercicio = valor_lancamento.exercicio - AND conta_debito.cod_entidade = valor_lancamento.cod_entidade - AND conta_debito.tipo = valor_lancamento.tipo - AND conta_debito.cod_lote = valor_lancamento.cod_lote - AND conta_debito.sequencia = valor_lancamento.sequencia - --AND valor_lancamento.tipo = ''T'' - - WHERE lote.exercicio = '''||stExercicio||''' - --AND lote.tipo = ''T'' - AND lote.dt_lote BETWEEN TO_DATE('''||stDtInicial||''', ''dd/mm/yyyy'') and TO_DATE('''||stDtFinal||''', ''dd/mm/yyyy'') - GROUP BY 1,2,3,4 - - ) as valor - ON valor.exercicio = pa.exercicio - AND valor.cod_plano = pa.cod_plano - AND valor.tipo = transferencia.tipo - AND valor.cod_entidade = transferencia.cod_entidade - - JOIN contabilidade.plano_recurso AS c_pr - ON c_pr.cod_plano = valor.cod_plano - AND c_pr.exercicio = valor.exercicio - - JOIN administracao.configuracao_entidade - ON configuracao_entidade.cod_entidade = valor.cod_entidade - AND configuracao_entidade.exercicio = valor.exercicio - AND configuracao_entidade.cod_modulo = 55 - AND configuracao_entidade.parametro = ''tcemg_codigo_orgao_entidade_sicom'' - - WHERE t_be.exercicio = '''||stExercicio||''' - AND transferencia.'||stFiltro||' - AND transferencia.cod_tipo = 1 - GROUP BY cod_estrutural, t_be.cod_plano, cod_recurso, cod_orgao - ) AS registros - GROUP BY tipo_registro, cod_orgao, cod_ext , cod_recurso, cod_estrutural - ORDER BY cod_ext - '; + IF quote_literal(stExercicio) >= '2015' THEN + stSql := ' + SELECT cod_estrutural + , tipo_registro + , cod_orgao + , cod_ext + , cod_recurso + , SUM(0.00) as vl_saldo_anterior + , SUM(0.00) as vl_saldo_debitos + , SUM(0.00) as vl_saldo_creditos + , SUM(0.00) as vl_saldo_atual + FROM ( SELECT pc.cod_estrutural + , 20 AS tipo_registro + , LPAD(configuracao_entidade.valor::VARCHAR,2,''0'')::VARCHAR AS cod_orgao + , t_be.cod_plano AS cod_ext + , c_pr.cod_recurso + , 0.00 as vl_saldo_anterior + , 0.00 as vl_saldo_debitos + , 0.00 as vl_saldo_creditos + , 0.00 as vl_saldo_atual + + FROM tesouraria.transferencia + + JOIN contabilidade.plano_analitica as pa + ON pa.cod_plano = transferencia.cod_plano_credito + AND pa.exercicio = transferencia.exercicio + + JOIN tcemg.balancete_extmmaa AS t_be + ON t_be.cod_plano = pa.cod_plano + AND t_be.exercicio = pa.exercicio + + JOIN contabilidade.plano_conta as pc + ON pa.cod_conta = pc.cod_conta + and pa.exercicio = pc.exercicio + + JOIN (SELECT lote.exercicio + , conta_credito.cod_plano + , lote.tipo + , lote.cod_entidade + FROM contabilidade.lote + JOIN contabilidade.valor_lancamento + ON valor_lancamento.exercicio = lote.exercicio + AND valor_lancamento.cod_entidade = lote.cod_entidade + AND valor_lancamento.tipo = lote.tipo + AND valor_lancamento.cod_lote = lote.cod_lote + AND valor_lancamento.tipo_valor = ''C'' + + JOIN contabilidade.conta_credito + ON conta_credito.exercicio = valor_lancamento.exercicio + AND conta_credito.cod_entidade = valor_lancamento.cod_entidade + AND conta_credito.tipo = valor_lancamento.tipo + AND conta_credito.cod_lote = valor_lancamento.cod_lote + AND conta_credito.sequencia = valor_lancamento.sequencia + --AND valor_lancamento.tipo = ''T'' + + WHERE lote.exercicio = '''||stExercicio||''' + --AND lote.tipo = ''T'' + AND lote.dt_lote BETWEEN TO_DATE('''||stDtInicial||''', ''dd/mm/yyyy'') and TO_DATE('''||stDtFinal||''', ''dd/mm/yyyy'') + GROUP BY 1,2,3,4 + + ) as valor + ON valor.exercicio = pa.exercicio + AND valor.cod_plano = pa.cod_plano + AND valor.tipo = transferencia.tipo + AND valor.cod_entidade = transferencia.cod_entidade + + LEFT JOIN contabilidade.plano_recurso AS c_pr + ON c_pr.cod_plano = valor.cod_plano + AND c_pr.exercicio = valor.exercicio + + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = valor.cod_entidade + AND configuracao_entidade.exercicio = valor.exercicio + AND configuracao_entidade.cod_modulo = 55 + AND configuracao_entidade.parametro = ''tcemg_codigo_orgao_entidade_sicom'' + + WHERE t_be.exercicio = '''||stExercicio||''' + AND transferencia.'||stFiltro||' + AND transferencia.cod_tipo = 2 + GROUP BY cod_estrutural, t_be.cod_plano, cod_recurso, cod_orgao + UNION + SELECT pc.cod_estrutural + , 20 AS tipo_registro + , LPAD(configuracao_entidade.valor::VARCHAR,2,''0'')::VARCHAR AS cod_orgao + , t_be.cod_plano AS cod_ext + , c_pr.cod_recurso + , 0.00 as vl_saldo_anterior + , 0.00 as vl_saldo_debitos + , 0.00 as vl_saldo_creditos + , 0.00 as vl_saldo_atual + + FROM tesouraria.transferencia + + JOIN contabilidade.plano_analitica as pa + ON pa.cod_plano = transferencia.cod_plano_debito + AND pa.exercicio = transferencia.exercicio + + JOIN tcemg.balancete_extmmaa AS t_be + ON t_be.cod_plano = pa.cod_plano + AND t_be.exercicio = pa.exercicio + + JOIN contabilidade.plano_conta as pc + ON pa.cod_conta = pc.cod_conta + and pa.exercicio = pc.exercicio + + JOIN (SELECT lote.exercicio + , conta_debito.cod_plano + , lote.tipo + , lote.cod_entidade + FROM contabilidade.lote + JOIN contabilidade.valor_lancamento + ON valor_lancamento.exercicio = lote.exercicio + AND valor_lancamento.cod_entidade = lote.cod_entidade + AND valor_lancamento.tipo = lote.tipo + AND valor_lancamento.cod_lote = lote.cod_lote + AND valor_lancamento.tipo_valor = ''D'' + + JOIN contabilidade.conta_debito + ON conta_debito.exercicio = valor_lancamento.exercicio + AND conta_debito.cod_entidade = valor_lancamento.cod_entidade + AND conta_debito.tipo = valor_lancamento.tipo + AND conta_debito.cod_lote = valor_lancamento.cod_lote + AND conta_debito.sequencia = valor_lancamento.sequencia + --AND valor_lancamento.tipo = ''T'' + + WHERE lote.exercicio = '''||stExercicio||''' + --AND lote.tipo = ''T'' + AND lote.dt_lote BETWEEN TO_DATE('''||stDtInicial||''', ''dd/mm/yyyy'') and TO_DATE('''||stDtFinal||''', ''dd/mm/yyyy'') + GROUP BY 1,2,3,4 + + ) as valor + ON valor.exercicio = pa.exercicio + AND valor.cod_plano = pa.cod_plano + AND valor.tipo = transferencia.tipo + AND valor.cod_entidade = transferencia.cod_entidade + + LEFT JOIN contabilidade.plano_recurso AS c_pr + ON c_pr.cod_plano = valor.cod_plano + AND c_pr.exercicio = valor.exercicio + + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = valor.cod_entidade + AND configuracao_entidade.exercicio = valor.exercicio + AND configuracao_entidade.cod_modulo = 55 + AND configuracao_entidade.parametro = ''tcemg_codigo_orgao_entidade_sicom'' + + WHERE t_be.exercicio = '''||stExercicio||''' + AND transferencia.'||stFiltro||' + AND transferencia.cod_tipo = 1 + GROUP BY cod_estrutural, t_be.cod_plano, cod_recurso, cod_orgao + ) AS registros + GROUP BY tipo_registro, cod_orgao, cod_ext , cod_recurso, cod_estrutural + ORDER BY cod_ext + '; + ELSE + stSql := ' + SELECT cod_estrutural + , tipo_registro + , cod_orgao + , cod_ext + , cod_recurso + , SUM(0.00) as vl_saldo_anterior + , SUM(0.00) as vl_saldo_debitos + , SUM(0.00) as vl_saldo_creditos + , SUM(0.00) as vl_saldo_atual + FROM ( SELECT pc.cod_estrutural + , 20 AS tipo_registro + , LPAD(configuracao_entidade.valor::VARCHAR,2,''0'')::VARCHAR AS cod_orgao + , t_be.cod_plano AS cod_ext + , c_pr.cod_recurso + , 0.00 as vl_saldo_anterior + , 0.00 as vl_saldo_debitos + , 0.00 as vl_saldo_creditos + , 0.00 as vl_saldo_atual + + FROM tesouraria.transferencia + + JOIN contabilidade.plano_analitica as pa + ON pa.cod_plano = transferencia.cod_plano_credito + AND pa.exercicio = transferencia.exercicio + + JOIN tcemg.balancete_extmmaa AS t_be + ON t_be.cod_plano = pa.cod_plano + AND t_be.exercicio = pa.exercicio + + JOIN contabilidade.plano_conta as pc + ON pa.cod_conta = pc.cod_conta + and pa.exercicio = pc.exercicio + + JOIN (SELECT lote.exercicio + , conta_credito.cod_plano + , lote.tipo + , lote.cod_entidade + FROM contabilidade.lote + JOIN contabilidade.valor_lancamento + ON valor_lancamento.exercicio = lote.exercicio + AND valor_lancamento.cod_entidade = lote.cod_entidade + AND valor_lancamento.tipo = lote.tipo + AND valor_lancamento.cod_lote = lote.cod_lote + AND valor_lancamento.tipo_valor = ''C'' + + JOIN contabilidade.conta_credito + ON conta_credito.exercicio = valor_lancamento.exercicio + AND conta_credito.cod_entidade = valor_lancamento.cod_entidade + AND conta_credito.tipo = valor_lancamento.tipo + AND conta_credito.cod_lote = valor_lancamento.cod_lote + AND conta_credito.sequencia = valor_lancamento.sequencia + --AND valor_lancamento.tipo = ''T'' + + WHERE lote.exercicio = '''||stExercicio||''' + --AND lote.tipo = ''T'' + AND lote.dt_lote BETWEEN TO_DATE('''||stDtInicial||''', ''dd/mm/yyyy'') and TO_DATE('''||stDtFinal||''', ''dd/mm/yyyy'') + GROUP BY 1,2,3,4 + + ) as valor + ON valor.exercicio = pa.exercicio + AND valor.cod_plano = pa.cod_plano + AND valor.tipo = transferencia.tipo + AND valor.cod_entidade = transferencia.cod_entidade + + JOIN contabilidade.plano_recurso AS c_pr + ON c_pr.cod_plano = valor.cod_plano + AND c_pr.exercicio = valor.exercicio + + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = valor.cod_entidade + AND configuracao_entidade.exercicio = valor.exercicio + AND configuracao_entidade.cod_modulo = 55 + AND configuracao_entidade.parametro = ''tcemg_codigo_orgao_entidade_sicom'' + + WHERE t_be.exercicio = '''||stExercicio||''' + AND transferencia.'||stFiltro||' + AND transferencia.cod_tipo = 2 + GROUP BY cod_estrutural, t_be.cod_plano, cod_recurso, cod_orgao + UNION + SELECT pc.cod_estrutural + , 20 AS tipo_registro + , LPAD(configuracao_entidade.valor::VARCHAR,2,''0'')::VARCHAR AS cod_orgao + , t_be.cod_plano AS cod_ext + , c_pr.cod_recurso + , 0.00 as vl_saldo_anterior + , 0.00 as vl_saldo_debitos + , 0.00 as vl_saldo_creditos + , 0.00 as vl_saldo_atual + + FROM tesouraria.transferencia + + JOIN contabilidade.plano_analitica as pa + ON pa.cod_plano = transferencia.cod_plano_debito + AND pa.exercicio = transferencia.exercicio + + JOIN tcemg.balancete_extmmaa AS t_be + ON t_be.cod_plano = pa.cod_plano + AND t_be.exercicio = pa.exercicio + + JOIN contabilidade.plano_conta as pc + ON pa.cod_conta = pc.cod_conta + and pa.exercicio = pc.exercicio + + JOIN (SELECT lote.exercicio + , conta_debito.cod_plano + , lote.tipo + , lote.cod_entidade + FROM contabilidade.lote + JOIN contabilidade.valor_lancamento + ON valor_lancamento.exercicio = lote.exercicio + AND valor_lancamento.cod_entidade = lote.cod_entidade + AND valor_lancamento.tipo = lote.tipo + AND valor_lancamento.cod_lote = lote.cod_lote + AND valor_lancamento.tipo_valor = ''D'' + + JOIN contabilidade.conta_debito + ON conta_debito.exercicio = valor_lancamento.exercicio + AND conta_debito.cod_entidade = valor_lancamento.cod_entidade + AND conta_debito.tipo = valor_lancamento.tipo + AND conta_debito.cod_lote = valor_lancamento.cod_lote + AND conta_debito.sequencia = valor_lancamento.sequencia + --AND valor_lancamento.tipo = ''T'' + + WHERE lote.exercicio = '''||stExercicio||''' + --AND lote.tipo = ''T'' + AND lote.dt_lote BETWEEN TO_DATE('''||stDtInicial||''', ''dd/mm/yyyy'') and TO_DATE('''||stDtFinal||''', ''dd/mm/yyyy'') + GROUP BY 1,2,3,4 + + ) as valor + ON valor.exercicio = pa.exercicio + AND valor.cod_plano = pa.cod_plano + AND valor.tipo = transferencia.tipo + AND valor.cod_entidade = transferencia.cod_entidade + + JOIN contabilidade.plano_recurso AS c_pr + ON c_pr.cod_plano = valor.cod_plano + AND c_pr.exercicio = valor.exercicio + + JOIN administracao.configuracao_entidade + ON configuracao_entidade.cod_entidade = valor.cod_entidade + AND configuracao_entidade.exercicio = valor.exercicio + AND configuracao_entidade.cod_modulo = 55 + AND configuracao_entidade.parametro = ''tcemg_codigo_orgao_entidade_sicom'' + + WHERE t_be.exercicio = '''||stExercicio||''' + AND transferencia.'||stFiltro||' + AND transferencia.cod_tipo = 1 + GROUP BY cod_estrutural, t_be.cod_plano, cod_recurso, cod_orgao + ) AS registros + GROUP BY tipo_registro, cod_orgao, cod_ext , cod_recurso, cod_estrutural + ORDER BY cod_ext + '; + END IF; END IF; FOR reRegistro IN EXECUTE stSql LOOP diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoal.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoal.plsql index 5447cc0..9af42ac 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoal.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoal.plsql @@ -419,7 +419,7 @@ BEGIN ) AS vencimentos_vantagens_1'; EXECUTE stSql; - + -- Calculando os valores referente as contas 3.1.90.11.07, 3.1.90.11.08, 3.1.90.11.09 stSql := ' INSERT INTO tmp_vencimentos_vantagens_2 @@ -545,7 +545,7 @@ BEGIN ) AS vencimentos_vantagens_2 '; EXECUTE stSql; - + /* OBS.: O calculo está sendo feito apartir das contas 3.1.90.04.00.00 + 3.1.90.11.00.00 + 3.1.90.16.00.00 + 3.1.90.94.00.00 - 3.1.90.11.07 - 3.1.90.11.08 - 3.1.90.11.09 */ stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -573,7 +573,7 @@ BEGIN AND tmp_vencimentos_vantagens_2.cod_conta = tmp_vencimentos_vantagens_1.cod_conta; '; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.01.00.00 Nível 6 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -612,7 +612,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.03.00.00 Nível 6 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -651,7 +651,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.05.00.00 Nível 6 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -729,7 +729,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.11.08 Nível 7 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -768,7 +768,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.11.09 Nível 7 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -807,7 +807,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.13.03 Nível 7 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -846,7 +846,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Calculando os valores referente as contas 3.1.90.13.02 + 3.1.91.13.02 Nível 7 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -937,7 +937,7 @@ BEGIN ) AS repasse_patronal'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.91.00.00 Nível 6 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -999,7 +999,7 @@ BEGIN , 0.00 )'; EXECUTE stSql; - + -- Calculando os valores referente a conta 3.1.90.92.00.00 Nível 6 stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -1038,7 +1038,7 @@ BEGIN , mes_12 NUMERIC , total NUMERIC );'; EXECUTE stSql; - + -- Valores a serem conferidos stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal @@ -1084,7 +1084,7 @@ BEGIN , 0.00 )'; EXECUTE stSql; - + ------ EXCLUSÕES ELSIF inTipoDados = 2 THEN @@ -1208,7 +1208,12 @@ BEGIN , mes_11 , mes_12 , total - FROM tcemg.sub_consulta_despesa_total_pessoal('||quote_literal(stDtIni)||', '||quote_literal(stDtFim)||','||quote_literal(stExercicio)||','||quote_literal(stEntidades)||',''3.3.1.9.0.01'', 6, '||quote_literal(stTipoSituacao)||') + FROM tcemg.sub_consulta_despesa_total_pessoal('||quote_literal(stDtIni)||', '||quote_literal(stDtFim)||','||quote_literal(stExercicio)||','''|| + (SELECT valor FROM administracao.configuracao + WHERE cod_modulo = 8 + AND parametro ilike 'cod_entidade_rpps' + AND exercicio = stExercicio)||''',''3.3.1.9.0.01'',6,' + ||quote_literal(stTipoSituacao)||') AS retorno ( cod_conta VARCHAR , nom_conta VARCHAR , cod_estrutural VARCHAR @@ -1242,7 +1247,11 @@ BEGIN , mes_11 , mes_12 , total - FROM tcemg.sub_consulta_despesa_total_pessoal('||quote_literal(stDtIni)||', '||quote_literal(stDtFim)||','||quote_literal(stExercicio)||','||quote_literal(stEntidades)||',''3.3.1.9.0.03'', 6, '||quote_literal(stTipoSituacao)||') + FROM tcemg.sub_consulta_despesa_total_pessoal('||quote_literal(stDtIni)||', '||quote_literal(stDtFim)||','||quote_literal(stExercicio)||',''' + ||(select valor from administracao.configuracao + WHERE cod_modulo = 8 + AND parametro ilike 'cod_entidade_rpps' + AND exercicio = stExercicio)||''',''3.3.1.9.0.03'', 6, '||quote_literal(stTipoSituacao)||') AS retorno ( cod_conta VARCHAR , nom_conta VARCHAR , cod_estrutural VARCHAR @@ -1262,7 +1271,7 @@ BEGIN ) AS Inativos_pensionistas '; EXECUTE stSql; - + -- Valores a serem conferidos stSql := ' INSERT INTO tmp_tcemg_despesa_total_pessoal diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoalEmpenhada.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoalEmpenhada.plsql index 557b187..04db407 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoalEmpenhada.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoalEmpenhada.plsql @@ -64,28 +64,13 @@ BEGIN AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho AND pre_empenho.exercicio = empenho.exercicio - AND NOT EXISTS - ( - SELECT - 1 - FROM empenho.nota_liquidacao - , empenho.nota_liquidacao_paga - WHERE nota_liquidacao.exercicio = nota_liquidacao_paga.exercicio - AND nota_liquidacao.cod_entidade = nota_liquidacao_paga.cod_entidade - AND nota_liquidacao.cod_nota = nota_liquidacao_paga.cod_nota - - AND nota_liquidacao.exercicio = empenho.exercicio - AND nota_liquidacao.cod_entidade = empenho.cod_entidade - AND nota_liquidacao.cod_empenho = empenho.cod_empenho - ) - AND pre_empenho.cod_pre_empenho = item_pre_empenho.cod_pre_empenho AND pre_empenho.exercicio = item_pre_empenho.exercicio AND dt_empenho between to_date(''' || stDtInicial || ''',''dd/mm/yyyy'') AND to_date(''' || stDtFinal || ''', ''dd/mm/yyyy'') AND ' || stCondicao || ' AND empenho.cod_entidade IN (' || stEntidades || ') '; - + FOR reRegistro IN EXECUTE stSql LOOP nuTotal := reRegistro.vl_final; diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGContasCTB.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGContasCTB.plsql new file mode 100644 index 0000000..1e51f5d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGContasCTB.plsql @@ -0,0 +1,237 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* + * Script de função PLPGSQL + * + * URBEM Soluções de Gestão Pública Ltda + * www.urbem.cnm.org.br + */ + +/* + +*/ + +CREATE OR REPLACE FUNCTION tcemg.contasCTB (varchar, varchar) RETURNS SETOF RECORD AS $$ + +DECLARE + stExercicio ALIAS FOR $1; + stCodEntidades ALIAS FOR $2; + stSql VARCHAR := ''; + reRegistro RECORD; + +BEGIN + ---TIPO DE CONTA: CONTA-CORRENTE + stSql := 'CREATE TEMPORARY TABLE tmp_corrente AS + SELECT conta_bancaria.cod_conta + , ''''::VARCHAR AS cod_tipo_aplicacao + , CASE WHEN cod_ctb_anterior IS NULL THEN plano_banco.cod_plano + ELSE cod_ctb_anterior + END AS cod_ctb_anterior + , 1 AS tipo_conta + , conta_bancaria.exercicio + , (banco.num_banco || agencia.num_agencia || plano_banco.conta_corrente) AS conta + , CASE WHEN LTRIM(replace(num_agencia,''-'',''''),''9'') = '''' AND num_banco = ''999'' THEN ''999999999999'' + ELSE LTRIM( REPLACE(split_part(plano_banco.conta_corrente,''-'',1),''.'',''''),''0'') + END as num_conta_corrente + , REPLACE(plano_banco.conta_corrente,''.'','''') AS conta_corrente + , plano_banco.cod_entidade AS cod_orgao + , num_banco::VARCHAR as banco + , split_part(num_agencia,''-'',1) AS agencia + , SPLIT_PART(num_agencia,''-'',2) AS digito_verificador_agencia + , SPLIT_PART(plano_banco.conta_corrente,''-'',2) AS digito_verificador_conta_bancaria + , (''Banco:''||banco.num_banco || '' Agencia:'' ||agencia.num_agencia || '' Conta Corrente:'' || REPLACE(plano_banco.conta_corrente,''.'','''') )::VARCHAR as desc_conta_bancaria + FROM tcemg.conta_bancaria + INNER JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = conta_bancaria.cod_conta + AND plano_conta.exercicio = conta_bancaria.exercicio + INNER JOIN contabilidade.plano_analitica + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_banco + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + INNER JOIN monetario.agencia + ON agencia.cod_banco = plano_banco.cod_banco + AND agencia.cod_agencia = plano_banco.cod_agencia + INNER JOIN monetario.banco + ON banco.cod_banco = plano_banco.cod_banco + WHERE conta_bancaria.exercicio = ' || quote_literal(stExercicio) || ' + AND conta_bancaria.cod_entidade = (' || stCodEntidades || ') + AND plano_conta.cod_estrutural LIKE ''1.1.1.1.1.19%'' + '; + EXECUTE stSql; + + ---TIPO DE CONTA: CONTAS UNICAS, QUE SAO CORRENTE E APLICACAO EM UMA UNICA CONTA + stSql := 'CREATE TEMPORARY TABLE tmp_conta_unica AS + SELECT DISTINCT cod_conta_aplicacao AS cod_conta, + ''''::VARCHAR AS cod_tipo_aplicacao, + cod_ctb_anterior_aplicacao AS cod_ctb_anterior, + 1 AS tipo_conta, + exercicio_aplicacao AS exercicio, + conta, + num_conta_corrente, + conta_corrente, + cod_orgao, + banco, + agencia, + digito_verificador_agencia, + digito_verificador_conta_bancaria, + desc_conta_bancaria + FROM ( + (SELECT conta_bancaria.cod_conta + , CASE WHEN cod_ctb_anterior IS NULL then plano_banco.cod_plano + ELSE cod_ctb_anterior + END AS cod_ctb_anterior + , conta_bancaria.exercicio + , (banco.num_banco || agencia.num_agencia || plano_banco.conta_corrente) AS conta + , CASE WHEN LTRIM(replace(num_agencia,''-'',''''),''9'') = '''' AND num_banco = ''999'' THEN ''999999999999'' + ELSE LTRIM( REPLACE(split_part(plano_banco.conta_corrente,''-'',1),''.'',''''),''0'') + END as num_conta_corrente + , REPLACE(plano_banco.conta_corrente,''.'','''') AS conta_corrente + , plano_banco.cod_entidade AS cod_orgao + , num_banco ::VARCHAR as banco + , split_part(num_agencia,''-'',1) AS agencia + , SPLIT_PART(num_agencia,''-'',2) AS digito_verificador_agencia + , SPLIT_PART(plano_banco.conta_corrente,''-'',2) AS digito_verificador_conta_bancaria + , (''Banco:''||banco.num_banco || '' Agencia:'' ||agencia.num_agencia || '' Conta Corrente:'' || REPLACE(plano_banco.conta_corrente,''.'','''') )::VARCHAR as desc_conta_bancaria + FROM tcemg.conta_bancaria + INNER JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = conta_bancaria.cod_conta + AND plano_conta.exercicio = conta_bancaria.exercicio + INNER JOIN contabilidade.plano_analitica + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_banco + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + INNER JOIN monetario.agencia + ON agencia.cod_banco = plano_banco.cod_banco + AND agencia.cod_agencia = plano_banco.cod_agencia + INNER JOIN monetario.banco + ON banco.cod_banco = plano_banco.cod_banco + WHERE conta_bancaria.exercicio = '|| quote_literal(stExercicio) ||' + AND conta_bancaria.cod_entidade = ' || stCodEntidades || ' + AND plano_conta.cod_estrutural LIKE ''1.1.1.1.1.19%'' + ) as corrente + INNER JOIN(SELECT conta_bancaria.cod_conta AS cod_conta_aplicacao + , CASE WHEN cod_ctb_anterior IS NULL THEN plano_banco.cod_plano + ELSE cod_ctb_anterior + END AS cod_ctb_anterior_aplicacao + , conta_bancaria.exercicio AS exercicio_aplicacao + FROM tcemg.conta_bancaria + INNER JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = conta_bancaria.cod_conta + AND plano_conta.exercicio = conta_bancaria.exercicio + INNER JOIN contabilidade.plano_analitica + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_banco + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + WHERE conta_bancaria.exercicio = '|| quote_literal(stExercicio) ||' + AND conta_bancaria.cod_entidade = ' || stCodEntidades || ' + AND plano_conta.cod_estrutural LIKE ''1.1.1.1.1.50%'' OR plano_conta.cod_estrutural LIKE ''1.1.4%'' + ) as aplicacao + ON corrente.exercicio = aplicacao.exercicio_aplicacao + AND corrente.cod_ctb_anterior = aplicacao.cod_ctb_anterior_aplicacao + )conta + ORDER BY cod_ctb_anterior '; + EXECUTE stSql; + + CREATE UNIQUE INDEX unq_corrente ON tmp_corrente (exercicio, cod_conta); + CREATE UNIQUE INDEX unq_conta_unica ON tmp_conta_unica (exercicio, cod_conta); + + + ---TIPO DE CONTA: APLICACAO + stSql := 'CREATE TEMPORARY TABLE tmp_aplicacao AS + SELECT conta_bancaria.cod_conta + , LPAD(cod_tipo_aplicacao::VARCHAR,2,''0'') AS cod_tipo_aplicacao + , CASE WHEN cod_ctb_anterior IS NULL THEN plano_banco.cod_plano + ELSE cod_ctb_anterior + END AS cod_ctb_anterior + , 2 AS tipo_conta + , conta_bancaria.exercicio + , (banco.num_banco || agencia.num_agencia || plano_banco.conta_corrente) AS conta + , CASE WHEN LTRIM(replace(num_agencia,''-'',''''),''9'') = '''' AND num_banco = ''999'' THEN ''999999999999'' + ELSE LTRIM( REPLACE(split_part(plano_banco.conta_corrente,''-'',1),''.'',''''),''0'') + END as num_conta_corrente + , REPLACE(plano_banco.conta_corrente,''.'','''') AS conta_corrente + , plano_banco.cod_entidade AS cod_orgao + , num_banco ::VARCHAR as banco + , split_part(num_agencia,''-'',1) AS agencia + , SPLIT_PART(num_agencia,''-'',2) AS digito_verificador_agencia + , SPLIT_PART(plano_banco.conta_corrente,''-'',2) AS digito_verificador_conta_bancaria + , (''Banco:''||banco.num_banco || '' Agencia:'' ||agencia.num_agencia || '' Conta Corrente:'' || REPLACE(plano_banco.conta_corrente,''.'','''') )::VARCHAR as desc_conta_bancaria + FROM tcemg.conta_bancaria + INNER JOIN contabilidade.plano_conta + ON plano_conta.cod_conta = conta_bancaria.cod_conta + AND plano_conta.exercicio = conta_bancaria.exercicio + INNER JOIN contabilidade.plano_analitica + ON plano_conta.cod_conta = plano_analitica.cod_conta + AND plano_conta.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_banco + ON plano_analitica.cod_plano = plano_banco.cod_plano + AND plano_analitica.exercicio = plano_banco.exercicio + INNER JOIN monetario.agencia + ON agencia.cod_banco = plano_banco.cod_banco + AND agencia.cod_agencia = plano_banco.cod_agencia + INNER JOIN monetario.banco + ON banco.cod_banco = plano_banco.cod_banco + WHERE conta_bancaria.exercicio = ' || quote_literal(stExercicio) || ' + AND conta_bancaria.cod_entidade = (' || stCodEntidades || ') + AND ( plano_conta.cod_estrutural LIKE ''1.1.1.1.1.50%'' OR plano_conta.cod_estrutural LIKE ''1.1.4%'' ) + AND NOT EXISTS ( SELECT 1 + FROM tmp_conta_unica + WHERE tmp_conta_unica.cod_conta = conta_bancaria.cod_conta + ) + UNION ALL + SELECT * + FROM tmp_conta_unica + '; + EXECUTE stSql; + + CREATE UNIQUE INDEX unq_aplicacao ON tmp_aplicacao (exercicio, cod_conta ); + +stSql := 'SELECT * + FROM tmp_corrente + UNION ALL + SELECT * + FROM tmp_aplicacao + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN NEXT reRegistro; + END LOOP; + + DROP INDEX unq_corrente ; + DROP INDEX unq_aplicacao; + DROP INDEX unq_conta_unica; + + DROP TABLE tmp_corrente; + DROP TABLE tmp_aplicacao; + DROP TABLE tmp_conta_unica; + + RETURN; +END; +$$ LANGUAGE 'plpgsql'; \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGDemonstrativoOpCredito.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGDemonstrativoOpCredito.plsql new file mode 100644 index 0000000..43e8147 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGDemonstrativoOpCredito.plsql @@ -0,0 +1,415 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* +* Script de função PLPGSQL +* +* URBEM Soluções de Gestão Pública Ltda +* www.urbem.cnm.org.br +* +* $Id:$ + +* +*/ + +CREATE OR REPLACE FUNCTION tcemg.demonstrativo_op_credito(varchar,varchar,integer,varchar) RETURNS SETOF RECORD AS $$ +DECLARE + + stExercicio ALIAS FOR $1; + stTipoPeriodo ALIAS FOR $2; + inPeriodo ALIAS FOR $3; + stCodEntidade ALIAS FOR $4; + + dtInicial VARCHAR := ''; + arDtFinal VARCHAR[]; + stExercicioAnterior VARCHAR := ''; + stSql VARCHAR := ''; + stSqlConfiguracao VARCHAR := ''; + stContasConfiguracao VARCHAR := ''; + arFiltro VARCHAR[]; + arDatas VARCHAR[]; + inCondicao INTEGER := 1; + + valorMobiliariaInterna NUMERIC(14,4) := 0.0000; + valorContratExter NUMERIC(14,4) := 0.0000; + valorAberturaCredito NUMERIC(14,4) := 0.0000; + valorDemAntecReceita NUMERIC(14,4) := 0.0000; + valorParcDivTrib NUMERIC(14,4) := 0.0000; + valorParcDivPrev NUMERIC(14,4) := 0.0000; + valorParcDivDemCS NUMERIC(14,4) := 0.0000; + valorParcDivFGTS NUMERIC(14,4) := 0.0000; + + inCodEntidadeRPPS INTEGER := NULL; + + reConfiguracao RECORD; + reRegistro RECORD; + +BEGIN + + IF( stTipoPeriodo = 'Mes' ) THEN + arDatas := publico.mes(stExercicio,inPeriodo); + dtInicial := arDatas[0]; + arDtFinal[1] := arDatas[1]; + END IF; + + stExercicioAnterior := trim(to_char((to_number(stExercicio,'9999')-1),'9999')); + + -- + -- DESCOBRE A ENTIDADE RPPS + -- + SELECT valor + INTO inCodEntidadeRPPS + FROM administracao.configuracao + WHERE configuracao.exercicio = stExercicio + AND parametro = 'cod_entidade_rpps'; + + --CRIA UMA TABLE TEMPORARIA + stSql := ' + CREATE TEMPORARY TABLE tmp_valores( + mes integer + ,vl_imobiliaria_interna numeric(14,2) + ,vl_contrat_externa numeric(14,2) + ,vl_abertura_credito numeric(14,2) + ,vl_dem_antec_receita numeric(14,2) + ,vl_parc_div_trib numeric(14,2) + ,vl_parc_div_prev numeric(14,2) + ,vl_parc_div_dem_cs numeric(14,2) + ,vl_parc_div_fgts numeric(14,2) + ) '; + EXECUTE stSql; + + -------------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA Dívida Mobiliária + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 1 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + -- DEFINE O FILTRO PARA CADA LINHA + arFiltro[1] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[1] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ----------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA Dívida Contratual Externa + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 3 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[2] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[2] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ---------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA valor Abertura Credito + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , plano_analitica.exercicio + FROM contabilidade.plano_analitica + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE plano_conta.cod_estrutural ilike ''2.1.2%'' + AND plano_analitica.exercicio = '''||stExercicio||''' + AND plano_analitica.natureza_saldo = ''C'' + AND NOT EXISTS( SELECT 1 FROM stn.vinculo_contas_rgf_2 + WHERE vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio ) + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[3] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[3] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ----------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA ANTECIPAÇÕES DE RECEITA ORÇAMENTÁRIA - ARO + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 17 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[4] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[4] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ----------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA Valor de parcelamento de dívidas de tributos + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 7 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[5] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[5] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ----------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA Valor de parcelamento de dívidas com previdenciárias + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 8 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[6] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[6] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ----------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA Valor de parcelamento de dívidas com demais contribuições sociais + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 9 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[7] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[7] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + ----------------------------------- PEGA CONFIGURAÇÃO PARA A LINHA Valor de parcelamento de dívidas do FGTS + stContasConfiguracao := ''; + stSqlConfiguracao := ' + SELECT REPLACE(publico.fn_mascarareduzida(cod_estrutural),''.'','''') as estrutural + , vinculo_contas_rgf_2.exercicio + FROM stn.vinculo_contas_rgf_2 + INNER JOIN contabilidade.plano_analitica + ON vinculo_contas_rgf_2.cod_plano = plano_analitica.cod_plano + AND vinculo_contas_rgf_2.exercicio = plano_analitica.exercicio + INNER JOIN contabilidade.plano_conta + ON plano_analitica.cod_conta = plano_conta.cod_conta + AND plano_analitica.exercicio = plano_conta.exercicio + WHERE vinculo_contas_rgf_2.exercicio = '''||stExercicio||''' + AND vinculo_contas_rgf_2.cod_conta = 10 + AND vinculo_contas_rgf_2.timestamp = (SELECT MAX(timestamp) + FROM stn.vinculo_contas_rgf_2 tbl + WHERE vinculo_contas_rgf_2.exercicio = tbl.exercicio); + '; + + FOR reConfiguracao IN EXECUTE stSqlConfiguracao + LOOP + stContasConfiguracao := stContasConfiguracao || ' OR REPLACE(plano_conta.cod_estrutural,''''.'''','''''''') LIKE '''''||reConfiguracao.estrutural||'%'''' '; + END LOOP; + + IF stContasConfiguracao <> '' THEN + arFiltro[8] := '( '||SUBSTR(stContasConfiguracao, 5)||' ) AND lote.cod_entidade <> '||inCodEntidadeRPPS||' '; + ELSE + arFiltro[8] := ''; + END IF; + --------- FIM PEGA CONFIGURAÇÃO + + + + -- LOOP PARA EXECUTAR AS CONSULTAS E INSERIR OS RESULTADOS NA TABELA TEMPORARIA + FOR i IN 1..8 LOOP + inCondicao := -1; + IF(arFiltro[i] != '') THEN + stSql := ' + SELECT + ( SELECT SUM( stn.pl_saldo_contas( '''||stExercicio||''' + , '''||dtInicial||''' + , '''||arDtFinal[1]||''' + , '''||arFiltro[i]||''' + , '''||stCodEntidade||''' + ) * '||inCondicao||' + ) + ) AS valor_mes + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + IF i = 1 THEN + valorMobiliariaInterna := reRegistro.valor_mes; + ELSEIF i = 2 THEN + valorContratExter := reRegistro.valor_mes; + ELSEIF i = 3 THEN + valorAberturaCredito := reRegistro.valor_mes; + ELSEIF i = 4 THEN + valorDemAntecReceita := reRegistro.valor_mes; + ELSEIF i = 5 THEN + valorParcDivTrib := reRegistro.valor_mes; + ELSEIF i = 6 THEN + valorParcDivPrev := reRegistro.valor_mes; + ELSEIF i = 7 THEN + valorParcDivDemCS := reRegistro.valor_mes; + ELSEIF i = 8 THEN + valorParcDivFGTS := reRegistro.valor_mes; + END IF; + + END LOOP; + END IF; + END LOOP; + + stSql := ' INSERT INTO tmp_valores + VALUES( '||inPeriodo||' + , '||valorMobiliariaInterna||' + , '||valorContratExter||' + , '||valorAberturaCredito||' + , '||valorDemAntecReceita||' + , '||valorParcDivTrib||' + , '||valorParcDivPrev||' + , '||valorParcDivDemCS||' + , '||valorParcDivFGTS||' + ) + '; + EXECUTE stSql; + + stSql := 'SELECT * FROM tmp_valores'; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN next reRegistro; + END LOOP; + + DROP TABLE tmp_valores; + +END; + +$$ language 'plpgsql'; + diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGRecuperaPPAPrograma.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGRecuperaPPAPrograma.plsql index 476a719..ad4c8dd 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGRecuperaPPAPrograma.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGRecuperaPPAPrograma.plsql @@ -44,13 +44,14 @@ BEGIN stSql := ' SELECT * FROM ( - SELECT programa.cod_programa AS cod_programa - , programa_dados.identificacao AS nome_programa - , programa_dados.objetivo AS objetivo - , REPLACE(SUM(total_recursos.ano1)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_1 - , REPLACE(SUM(total_recursos.ano2)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_2 - , REPLACE(SUM(total_recursos.ano3)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_3 - , REPLACE(SUM(total_recursos.ano4)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_4 + SELECT programa.cod_programa AS cod_programa + , programa.num_programa AS num_programa + , programa_dados.identificacao AS nome_programa + , programa_dados.objetivo AS objetivo + , REPLACE(SUM(total_recursos.ano1)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_1 + , REPLACE(SUM(total_recursos.ano2)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_2 + , REPLACE(SUM(total_recursos.ano3)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_3 + , REPLACE(SUM(total_recursos.ano4)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_4 FROM ppa.programa JOIN ppa.programa_dados ON programa_dados.cod_programa = programa.cod_programa @@ -129,10 +130,10 @@ BEGIN INSERT INTO tcemg.registros_arquivo_programa (exercicio, cod_programa) VALUES (stExercicio, rsProgramas.cod_programa); END IF; - IF rsProgramas.cod_programa = 999 THEN - rsProgramas.cod_programa := 9999; + IF rsProgramas.num_programa = 999 THEN + rsProgramas.num_programa := 9999; ELSE - rsProgramas.cod_programa := rsProgramas.cod_programa; + rsProgramas.num_programa := rsProgramas.num_programa; END IF; RETURN next rsProgramas; diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCERS/exportacaoEmpenhoRS.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCERS/exportacaoEmpenhoRS.plsql index 1f78faf..656d3e9 100755 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCERS/exportacaoEmpenhoRS.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCERS/exportacaoEmpenhoRS.plsql @@ -26,10 +26,10 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Revision: 59820 $ +* $Revision: 61647 $ * $Name$ * $Author: luciana $ -* $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ +* $Date: 2015-02-20 09:26:55 -0200 (Sex, 20 Fev 2015) $ * * Casos de uso: uc-02.00.00 * Casos de uso: uc-02.00.00 @@ -48,24 +48,30 @@ Adicionada tag Log aos arquivos */ -CREATE OR REPLACE FUNCTION tcers.exportacaoEmpenho(varchar,varchar,varchar,varchar) RETURNS SETOF record AS ' +CREATE OR REPLACE FUNCTION tcers.exportacaoEmpenho(varchar,varchar,varchar,varchar) RETURNS SETOF record AS $$ DECLARE - stExercicio ALIAS FOR $1 ; - stDataInicial ALIAS FOR $2 ; - stDataFinal ALIAS FOR $3 ; - stCodEntidade ALIAS FOR $4 ; - stSql VARCHAR := '''' ; - stOut VARCHAR := '''' ; - raRegistro RECORD ; + stExercicio ALIAS FOR $1; + stDataInicial ALIAS FOR $2; + stDataFinal ALIAS FOR $3; + stCodEntidade ALIAS FOR $4; + stSql VARCHAR := ''; + stOut VARCHAR := ''; + raRegistro RECORD; arDados VARCHAR[] := array[0]; BEGIN -stSql = '' +stSql = ' -- Select para soma do itens --> data vem de empenho.empenho.dt_empenho ------------------------------------------------------------------------------ -SELECT tabela.*,0 as caracteristica,0 as modalidade,''''''''::text as nro_licitacao,''''''''::text as outras_modalidades,''''N''''::text as preco +SELECT tabela.* + ,0 as caracteristica + ,0 as modalidade + ,''''::text as nro_licitacao + ,''''::text as outras_modalidades + ,''N''::text as preco + ,''''::text as modalidade_licitacao FROM - tcers.fn_exportacao_Empenho_Soma_Dos_Itens(''''''||stExercicio||'''''',''''''||stDataInicial||'''''',''''''||stDataFinal||'''''',''''''||stCodEntidade||'''''') + tcers.fn_exportacao_Empenho_Soma_Dos_Itens('''||stExercicio||''','''||stDataInicial||''','''||stDataFinal||''','''||stCodEntidade||''') as tabela ( @@ -92,9 +98,15 @@ as ------------------------------------------------------------------------------ UNION -- FAZ A UNIAO COM O SEBUNDO BLOCO , ITENS ANULADOS ------------------------------------------------------------------------------ -SELECT tabela.*,0 as caracteristica,0 as modalidade,''''''''::text as nro_licitacao,''''''''::text as outras_modalidades,''''N''''::text as preco +SELECT tabela.* + ,0 as caracteristica + ,0 as modalidade + ,''''::text as nro_licitacao + ,''''::text as outras_modalidades + ,''N''::text as preco + ,''''::text as modalidade_licitacao FROM - tcers.fn_exportacao_Empenho_Itens_Anulados(''''''||stExercicio||'''''',''''''||stDataInicial||'''''',''''''||stDataFinal||'''''',''''''||stCodEntidade||'''''') + tcers.fn_exportacao_Empenho_Itens_Anulados('''||stExercicio||''','''||stDataInicial||''','''||stDataFinal||''','''||stCodEntidade||''') as tabela ( @@ -124,9 +136,15 @@ UNION -- FAZ UNIAO COM O 3o Bloco , restos a pagar(anos anteriores) ----------------------------------------------------------------------------- --SELECT ( - SELECT tabela.*,0 as caracteristica,0 as modalidade,''''''''::text as nro_licitacao,''''''''::text as outras_modalidades,''''N''''::text as preco + SELECT tabela.* + ,0 as caracteristica + ,0 as modalidade + ,''''::text as nro_licitacao + ,''''::text as outras_modalidades + ,''N''::text as preco + ,''''::text as modalidade_licitacao FROM - tcers.fn_exportacao_Empenho_Restos_Pagar(''''''||stExercicio||'''''',''''''||stCodEntidade||'''''') + tcers.fn_exportacao_Empenho_Restos_Pagar('''||stExercicio||''','''||stCodEntidade||''') as tabela ( @@ -151,7 +169,7 @@ UNION -- FAZ UNIAO COM O 3o Bloco , restos a pagar(anos anteriores) oid oid ) where tabela.vl_empenhado > 0 -''; +'; -- Encerra conteudo do sql @@ -160,14 +178,14 @@ UNION -- FAZ UNIAO COM O 3o Bloco , restos a pagar(anos anteriores) arDados := tcers.fn_exportacao_dados_empenho(raRegistro.cod_empenho,raRegistro.exercicio,raRegistro.cod_entidade); - raRegistro.num_orgao := to_number(arDados[1], ''9999999999''); - raRegistro.num_unidade := to_number(arDados[2], ''9999999999''); - raRegistro.cod_funcao := to_number(arDados[3], ''9999999999''); - raRegistro.cod_subfuncao := to_number(arDados[4], ''9999999999''); - raRegistro.cod_programa := to_number(arDados[5], ''9999999999''); - raRegistro.num_pao := to_number(arDados[6], ''9999999999''); + raRegistro.num_orgao := to_number(arDados[1], '9999999999'); + raRegistro.num_unidade := to_number(arDados[2], '9999999999'); + raRegistro.cod_funcao := to_number(arDados[3], '9999999999'); + raRegistro.cod_subfuncao := to_number(arDados[4], '9999999999'); + raRegistro.cod_programa := to_number(arDados[5], '9999999999'); + raRegistro.num_pao := to_number(arDados[6], '9999999999'); raRegistro.cod_estrutural := arDados[7]; - raRegistro.cod_recurso := to_number(arDados[8], ''9999999999''); + raRegistro.cod_recurso := to_number(arDados[8], '9999999999'); raRegistro.caracteristica := ( select case when valor::integer = 1 then 000 @@ -199,7 +217,7 @@ UNION -- FAZ UNIAO COM O 3o Bloco , restos a pagar(anos anteriores) raRegistro.caracteristica := 000; END IF; - raRegistro.historico := regexp_replace(raRegistro.historico, E''[\\n\\r]+'', '''', ''g'' ); + raRegistro.historico := regexp_replace(raRegistro.historico, E'[\\n\\r]+', '', 'g' ); raRegistro.modalidade := ( select valor as modalidade @@ -237,21 +255,46 @@ UNION -- FAZ UNIAO COM O 3o Bloco , restos a pagar(anos anteriores) ); - if raRegistro.modalidade = 1 then raRegistro.outras_modalidades := ''Concurso''; raRegistro.modalidade := 99; - elsif raRegistro.modalidade = 2 then raRegistro.modalidade := 3; - elsif raRegistro.modalidade = 3 then raRegistro.modalidade := 4; - elsif raRegistro.modalidade = 4 then raRegistro.modalidade := 5; - elsif raRegistro.modalidade = 5 then raRegistro.modalidade := 1; - elsif raRegistro.modalidade = 6 then raRegistro.modalidade := 2; - elsif raRegistro.modalidade = 7 then raRegistro.modalidade := 0; - elsif raRegistro.modalidade = 8 then raRegistro.outras_modalidades := ''Suprimentos''; raRegistro.modalidade := 99; - elsif raRegistro.modalidade = 9 then raRegistro.outras_modalidades := ''Integracao''; raRegistro.modalidade := 99; - elsif raRegistro.modalidade = 13 then raRegistro.outras_modalidades := ''Chamada Publica''; raRegistro.modalidade := 99; - elsif raRegistro.modalidade = 14 then raRegistro.outras_modalidades := ''Registro de Precos'';raRegistro.preco := ''S''; raRegistro.modalidade := 99; - elsif raRegistro.modalidade = 11 then raRegistro.modalidade := 6; - elsif raRegistro.modalidade = 12 then raRegistro.modalidade := 7; - else raRegistro.outras_modalidades := null; + IF stExercicio::INTEGER < 2015 THEN + + if raRegistro.modalidade = 1 then raRegistro.outras_modalidades := 'Concurso'; raRegistro.modalidade := 99; + elsif raRegistro.modalidade = 2 then raRegistro.modalidade := 3; + elsif raRegistro.modalidade = 3 then raRegistro.modalidade := 4; + elsif raRegistro.modalidade = 4 then raRegistro.modalidade := 5; + elsif raRegistro.modalidade = 5 then raRegistro.modalidade := 1; + elsif raRegistro.modalidade = 6 then raRegistro.modalidade := 2; + elsif raRegistro.modalidade = 7 then raRegistro.modalidade := 0; + elsif raRegistro.modalidade = 8 then raRegistro.outras_modalidades := 'Suprimentos'; raRegistro.modalidade := 99; + elsif raRegistro.modalidade = 9 then raRegistro.outras_modalidades := 'Integracao'; raRegistro.modalidade := 99; + elsif raRegistro.modalidade = 13 then raRegistro.outras_modalidades := 'Chamada Publica'; raRegistro.modalidade := 99; + elsif raRegistro.modalidade = 14 then raRegistro.outras_modalidades := 'Registro de Precos';raRegistro.preco := 'S'; raRegistro.modalidade := 99; + elsif raRegistro.modalidade = 11 then raRegistro.modalidade := 6; + elsif raRegistro.modalidade = 12 then raRegistro.modalidade := 7; + else raRegistro.outras_modalidades := null; + end if; + + ELSE + + if raRegistro.modalidade = 1 then raRegistro.modalidade_licitacao := 'CNS'; + elsif raRegistro.modalidade = 2 then raRegistro.modalidade_licitacao := 'CNV'; + elsif raRegistro.modalidade = 3 then raRegistro.modalidade_licitacao := 'TMP'; + elsif raRegistro.modalidade = 4 then raRegistro.modalidade_licitacao := 'CNC'; + elsif raRegistro.modalidade = 5 then raRegistro.modalidade_licitacao := 'PRD'; + elsif raRegistro.modalidade = 6 then raRegistro.modalidade_licitacao := ''; + elsif raRegistro.modalidade = 7 then raRegistro.modalidade_licitacao := 'NSA'; + elsif raRegistro.modalidade = 8 then raRegistro.modalidade_licitacao := ''; + elsif raRegistro.modalidade = 9 then raRegistro.modalidade_licitacao := ''; + elsif raRegistro.modalidade = 10 then raRegistro.modalidade_licitacao := 'PRP'; + elsif raRegistro.modalidade = 11 then raRegistro.modalidade_licitacao := 'PRP'; + elsif raRegistro.modalidade = 12 then raRegistro.modalidade_licitacao := 'PRE'; + elsif raRegistro.modalidade = 13 then raRegistro.modalidade_licitacao := ''; + elsif raRegistro.modalidade = 14 then raRegistro.modalidade_licitacao := 'RPO'; + elsif raRegistro.modalidade = 15 then raRegistro.modalidade_licitacao := ''; + elsif raRegistro.modalidade = 20 then raRegistro.modalidade_licitacao := 'DPV'; + else raRegistro.outras_modalidades := null; end if; + END IF; + -- @@ -260,5 +303,4 @@ UNION -- FAZ UNIAO COM O 3o Bloco , restos a pagar(anos anteriores) RETURN; END; -' LANGUAGE 'plpgsql'; - +$$ LANGUAGE 'plpgsql'; \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/FTCMGORestosPagar.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/FTCMGORestosPagar.plsql new file mode 100644 index 0000000..ab31a4d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/FTCMGORestosPagar.plsql @@ -0,0 +1,1602 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* + * Script de função PLPGSQL + * + * URBEM Soluções de Gestão Pública Ltda + * www.urbem.cnm.org.br + * + * Casos de uso: uc-06.01.10 + * + * $Id: FTCMGORestosPagar.plsql 61647 2015-02-20 11:26:55Z luciana $ + */ + +/** + * Recebe como paramentro exercicio, entidade, periodo + */ + +CREATE OR REPLACE FUNCTION tcmgo.fn_restos_pagar(varchar,varchar,varchar) RETURNS SETOF RECORD AS $$ +DECLARE + + stExercicio ALIAS FOR $1; + stCodEntidade ALIAS FOR $2; + dtFinal ALIAS FOR $3; + + dtInicial VARCHAR := ''; + stExercicioAnterior VARCHAR := ''; + stSql VARCHAR := ''; + reRegistro RECORD; + +BEGIN + + dtInicial := '01/01/' || stExercicio; + stExercicioAnterior := trim(to_char((to_number(stExercicio,'9999')-1),'9999')); + + -- cria a tabela temporaria para o valor processado no exercicios anteriores + stSql := ' + CREATE TEMPORARY TABLE tmp_processados_exercicios_anteriores AS + + SELECT liquidado.cod_empenho + , liquidado.cod_entidade + , liquidado.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + + , ( SUM(COALESCE(liquidado.vl_liquidado,0.00)) - SUM(COALESCE(pago.vl_pago,0.00)) ) AS vl_total + FROM ( SELECT pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_empenho + , empenho.cod_entidade + , ( SUM(liquidado.vl_total) ) AS vl_liquidado + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + LEFT JOIN ( SELECT nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + , ( SUM(COALESCE(nota_liquidacao_item.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_item_anulado.vl_anulado,0.00)) ) AS vl_total + FROM empenho.nota_liquidacao_item + LEFT JOIN ( SELECT exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + , SUM(COALESCE(vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_item_anulado + WHERE TO_DATE(timestamp::TEXT,''yyyy-mm-dd'') <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + ) AS nota_liquidacao_item_anulado + ON nota_liquidacao_item_anulado.exercicio = nota_liquidacao_item.exercicio + AND nota_liquidacao_item_anulado.cod_nota = nota_liquidacao_item.cod_nota + AND nota_liquidacao_item_anulado.num_item = nota_liquidacao_item.num_item + AND nota_liquidacao_item_anulado.exercicio_item = nota_liquidacao_item.exercicio_item + AND nota_liquidacao_item_anulado.cod_pre_empenho = nota_liquidacao_item.cod_pre_empenho + AND nota_liquidacao_item_anulado.cod_entidade = nota_liquidacao_item.cod_entidade + GROUP BY nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + + ) AS liquidado + ON liquidado.exercicio = nota_liquidacao.exercicio + AND liquidado.cod_entidade = nota_liquidacao.cod_entidade + AND liquidado.cod_nota = nota_liquidacao.cod_nota + + WHERE empenho.exercicio < '''||stExercicioAnterior||''' + AND empenho.dt_empenho < TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + ) AS liquidado + LEFT JOIN ( SELECT ( SUM(liquidacao_paga.vl_total) ) AS vl_pago + , pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_empenho + , empenho.cod_entidade + + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , ( SUM(COALESCE(nota_liquidacao_paga.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) ) AS vl_total + + FROM ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , SUM(nota_liquidacao_paga.vl_pago) AS vl_total + FROM empenho.nota_liquidacao_paga + WHERE TO_DATE(nota_liquidacao_paga.timestamp::TEXT,''yyyy-mm-dd'') <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + ) AS nota_liquidacao_paga + + LEFT JOIN ( SELECT nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + , SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_paga_anulada + WHERE TO_DATE(nota_liquidacao_paga_anulada.timestamp_anulada::TEXT,''yyyy-mm-dd'') < TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + ) AS nota_liquidacao_paga_anulada + ON nota_liquidacao_paga_anulada.exercicio = nota_liquidacao_paga.exercicio + AND nota_liquidacao_paga_anulada.cod_entidade = nota_liquidacao_paga.cod_entidade + AND nota_liquidacao_paga_anulada.cod_nota = nota_liquidacao_paga.cod_nota + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + + ) AS liquidacao_paga + ON liquidacao_paga.exercicio = nota_liquidacao.exercicio + AND liquidacao_paga.cod_entidade = nota_liquidacao.cod_entidade + AND liquidacao_paga.cod_nota = nota_liquidacao.cod_nota + + WHERE empenho.exercicio < '''||stExercicioAnterior||''' + AND empenho.dt_empenho < TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_empenho + , empenho.cod_entidade + + ) AS pago + ON pago.exercicio = liquidado.exercicio + AND pago.cod_pre_empenho = liquidado.cod_pre_empenho + AND pago.cod_entidade = liquidado.cod_entidade + AND pago.cod_empenho = liquidado.cod_empenho + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = liquidado.exercicio + AND entidade.cod_entidade = liquidado.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = liquidado.exercicio + AND pre_empenho_despesa.cod_pre_empenho = liquidado.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = liquidado.exercicio + AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + GROUP BY liquidado.cod_empenho + , liquidado.cod_entidade + , liquidado.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + + HAVING ( SUM(COALESCE(liquidado.vl_liquidado,0.00)) - SUM(COALESCE(pago.vl_pago,0.00)) ) > 0 + + '; + + EXECUTE stSql; + + -- cria a tabela temporaria para o valor processado no exercicio anterior + stSql := ' + CREATE TEMPORARY TABLE tmp_processados_exercicio_anterior AS + + SELECT liquidado.cod_empenho + , liquidado.cod_entidade + , liquidado.exercicio + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + , ( SUM(COALESCE(liquidado.vl_liquidado,0.00))) AS vl_total + FROM ( SELECT pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + , ( SUM(liquidado.vl_total) ) AS vl_liquidado + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + LEFT JOIN ( SELECT nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + , ( SUM(COALESCE(nota_liquidacao_item.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_item_anulado.vl_anulado,0.00)) ) AS vl_total + FROM empenho.nota_liquidacao_item + LEFT JOIN ( SELECT exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + , SUM(COALESCE(vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_item_anulado + WHERE TO_DATE(timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + ) AS nota_liquidacao_item_anulado + ON nota_liquidacao_item_anulado.exercicio = nota_liquidacao_item.exercicio + AND nota_liquidacao_item_anulado.cod_nota = nota_liquidacao_item.cod_nota + AND nota_liquidacao_item_anulado.num_item = nota_liquidacao_item.num_item + AND nota_liquidacao_item_anulado.exercicio_item = nota_liquidacao_item.exercicio_item + AND nota_liquidacao_item_anulado.cod_pre_empenho = nota_liquidacao_item.cod_pre_empenho + AND nota_liquidacao_item_anulado.cod_entidade = nota_liquidacao_item.cod_entidade + GROUP BY nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + + ) AS liquidado + ON liquidado.exercicio = nota_liquidacao.exercicio + AND liquidado.cod_entidade = nota_liquidacao.cod_entidade + AND liquidado.cod_nota = nota_liquidacao.cod_nota + + WHERE empenho.exercicio = '''||stExercicioAnterior||''' + AND empenho.dt_empenho BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + ) AS liquidado + LEFT JOIN ( SELECT ( SUM(liquidacao_paga.vl_total) ) AS vl_pago + , pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , ( SUM(COALESCE(nota_liquidacao_paga.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) ) AS vl_total + + FROM ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , SUM(nota_liquidacao_paga.vl_pago) AS vl_total + FROM empenho.nota_liquidacao_paga + WHERE TO_DATE(nota_liquidacao_paga.timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + ) AS nota_liquidacao_paga + + LEFT JOIN ( SELECT nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + , SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_paga_anulada + WHERE TO_DATE(nota_liquidacao_paga_anulada.timestamp_anulada::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + ) AS nota_liquidacao_paga_anulada + ON nota_liquidacao_paga_anulada.exercicio = nota_liquidacao_paga.exercicio + AND nota_liquidacao_paga_anulada.cod_entidade = nota_liquidacao_paga.cod_entidade + AND nota_liquidacao_paga_anulada.cod_nota = nota_liquidacao_paga.cod_nota + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + + ) AS liquidacao_paga + ON liquidacao_paga.exercicio = nota_liquidacao.exercicio + AND liquidacao_paga.cod_entidade = nota_liquidacao.cod_entidade + AND liquidacao_paga.cod_nota = nota_liquidacao.cod_nota + + WHERE empenho.exercicio = '''||stExercicioAnterior||''' + AND empenho.dt_empenho BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + ) AS pago + ON pago.exercicio = liquidado.exercicio + AND pago.cod_pre_empenho = liquidado.cod_pre_empenho + AND pago.cod_entidade = liquidado.cod_entidade + AND pago.cod_empenho = liquidado.cod_empenho + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = liquidado.exercicio + AND entidade.cod_entidade = liquidado.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = liquidado.exercicio + AND pre_empenho_despesa.cod_pre_empenho = liquidado.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = liquidado.exercicio + AND restos_pre_empenho.cod_pre_empenho = liquidado.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + GROUP BY liquidado.cod_empenho + , liquidado.cod_entidade + , liquidado.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING ( SUM(COALESCE(liquidado.vl_liquidado,0.00))) > 0 + '; + + EXECUTE stSql; + + -- cria a tabela temporaria para o valor cancelado processado + stSql := ' + CREATE TEMPORARY TABLE tmp_processados_cancelado AS + SELECT SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) AS vl_total + , empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + FROM empenho.empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN empenho.item_pre_empenho + ON pre_empenho.exercicio = item_pre_empenho.exercicio + AND pre_empenho.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + + INNER JOIN ( SELECT empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , empenho_anulado_item.num_item + , SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) AS vl_anulado + FROM empenho.empenho_anulado_item + WHERE TO_DATE(empenho_anulado_item.timestamp::TEXT,''yyyy-mm-dd'') <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') -- AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + GROUP BY empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , empenho_anulado_item.num_item + ) AS empenho_anulado_item + ON empenho_anulado_item.exercicio = item_pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + AND empenho_anulado_item.num_item = item_pre_empenho.num_item + + INNER JOIN ( SELECT nota_liquidacao.cod_empenho + , nota_liquidacao.exercicio_empenho + , nota_liquidacao.cod_entidade + FROM empenho.nota_liquidacao + WHERE nota_liquidacao.dt_liquidacao <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') -- AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao.cod_empenho + , nota_liquidacao.exercicio_empenho + , nota_liquidacao.cod_entidade + ) AS liquidacao + ON liquidacao.cod_empenho = empenho.cod_empenho + AND liquidacao.exercicio_empenho = empenho.exercicio + AND liquidacao.cod_entidade = empenho.cod_entidade + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = empenho.exercicio + AND entidade.cod_entidade = empenho.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = pre_empenho.exercicio + AND pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = pre_empenho.exercicio + AND restos_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + WHERE empenho.exercicio <= '''||stExercicioAnterior||''' + AND empenho.dt_empenho <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING ( SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) ) > 0 + '; + + EXECUTE stSql; + + -- cria a table temporaria para o valor processado pago + stSql := ' + CREATE TEMPORARY TABLE tmp_processados_pago AS + SELECT ( SUM(liquidacao_paga.vl_total) ) AS vl_total + , empenho.cod_entidade + , empenho.cod_empenho + , empenho.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , ( SUM(COALESCE(nota_liquidacao_paga.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) ) AS vl_total + + FROM ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , SUM(nota_liquidacao_paga.vl_pago) AS vl_total + FROM empenho.nota_liquidacao_paga + WHERE TO_DATE(nota_liquidacao_paga.timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + ) AS nota_liquidacao_paga + + LEFT JOIN ( SELECT nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + , SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_paga_anulada + WHERE TO_DATE(nota_liquidacao_paga_anulada.timestamp_anulada::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + ) AS nota_liquidacao_paga_anulada + ON nota_liquidacao_paga_anulada.exercicio = nota_liquidacao_paga.exercicio + AND nota_liquidacao_paga_anulada.cod_entidade = nota_liquidacao_paga.cod_entidade + AND nota_liquidacao_paga_anulada.cod_nota = nota_liquidacao_paga.cod_nota + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + + ) AS liquidacao_paga + ON liquidacao_paga.exercicio = nota_liquidacao.exercicio + AND liquidacao_paga.cod_entidade = nota_liquidacao.cod_entidade + AND liquidacao_paga.cod_nota = nota_liquidacao.cod_nota + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = empenho.exercicio + AND entidade.cod_entidade = empenho.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = pre_empenho.exercicio + AND pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = pre_empenho.exercicio + AND restos_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + WHERE empenho.exercicio <= '''||stExercicioAnterior||''' + AND empenho.dt_empenho <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING ( SUM(liquidacao_paga.vl_total) ) > 0 + '; + + EXECUTE stSql; + + -- cria a tabela temporaria para o valor nao processado em exercicios anteriores + StSql := ' + CREATE TEMPORARY TABLE tmp_nao_processados_exercicios_anteriores AS + + SELECT empenhado.cod_empenho + , empenhado.cod_entidade + , empenhado.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + , (SUM(COALESCE(empenhado.vl_empenhado,0.00)) - SUM(COALESCE(liquidado.vl_liquidado,0.00))) AS vl_total + FROM ( SELECT ( SUM(COALESCE(item_pre_empenho.vl_total,0.00)) + - + SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) ) AS vl_empenhado + , pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + FROM empenho.empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN empenho.item_pre_empenho + ON item_pre_empenho.exercicio = pre_empenho.exercicio + AND item_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN ( SELECT empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , empenho_anulado_item.num_item + , SUM(empenho_anulado_item.vl_anulado) AS vl_anulado + FROM empenho.empenho_anulado_item + WHERE TO_DATE(empenho_anulado_item.timestamp::TEXT,''yyyy-mm-dd'') <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , empenho_anulado_item.num_item + ) AS empenho_anulado_item + ON empenho_anulado_item.exercicio = item_pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + AND empenho_anulado_item.num_item = item_pre_empenho.num_item + + WHERE empenho.exercicio < '''||stExercicioAnterior||''' + AND empenho.dt_empenho < TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + ) AS empenhado + + LEFT JOIN ( SELECT ( SUM(COALESCE(liquidado.vl_total,0.00)) ) AS vl_liquidado + , pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + LEFT JOIN ( SELECT nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + , ( SUM(COALESCE(nota_liquidacao_item.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_item_anulado.vl_anulado,0.00)) ) AS vl_total + FROM empenho.nota_liquidacao_item + LEFT JOIN ( SELECT exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + , SUM(COALESCE(vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_item_anulado + WHERE TO_DATE(timestamp::TEXT,''yyyy-mm-dd'') <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + ) AS nota_liquidacao_item_anulado + ON nota_liquidacao_item_anulado.exercicio = nota_liquidacao_item.exercicio + AND nota_liquidacao_item_anulado.cod_nota = nota_liquidacao_item.cod_nota + AND nota_liquidacao_item_anulado.num_item = nota_liquidacao_item.num_item + AND nota_liquidacao_item_anulado.exercicio_item = nota_liquidacao_item.exercicio_item + AND nota_liquidacao_item_anulado.cod_pre_empenho = nota_liquidacao_item.cod_pre_empenho + AND nota_liquidacao_item_anulado.cod_entidade = nota_liquidacao_item.cod_entidade + GROUP BY nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + + ) AS liquidado + ON liquidado.exercicio = nota_liquidacao.exercicio + AND liquidado.cod_entidade = nota_liquidacao.cod_entidade + AND liquidado.cod_nota = nota_liquidacao.cod_nota + + WHERE empenho.exercicio < '''||stExercicioAnterior||''' + AND empenho.dt_empenho < TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') + + AND nota_liquidacao.dt_liquidacao <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + + ) AS liquidado + ON liquidado.exercicio = empenhado.exercicio + AND liquidado.cod_pre_empenho = empenhado.cod_pre_empenho + AND liquidado.cod_entidade = empenhado.cod_entidade + AND liquidado.cod_empenho = empenhado.cod_empenho + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = empenhado.exercicio + AND entidade.cod_entidade = empenhado.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = empenhado.exercicio + AND pre_empenho_despesa.cod_pre_empenho = empenhado.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = empenhado.exercicio + AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + GROUP BY empenhado.cod_empenho + , empenhado.cod_entidade + , empenhado.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING (SUM(COALESCE(empenhado.vl_empenhado,0.00)) - SUM(COALESCE(liquidado.vl_liquidado,0.00)) ) > 0 + '; + + EXECUTE stSql; + + -- cria a tabela temporaria para o valor nao processado no exercicio anterior + StSql := ' + CREATE TEMPORARY TABLE tmp_nao_processados_exercicio_anterior AS + + SELECT empenhado.cod_empenho + , empenhado.cod_entidade + , empenhado.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + , (SUM(COALESCE(empenhado.vl_empenhado,0.00)) - SUM(COALESCE(liquidado.vl_liquidado,0.00))) AS vl_total + FROM ( SELECT ( SUM(COALESCE(item_pre_empenho.vl_total,0.00)) + - + SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) ) AS vl_empenhado + , pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + + FROM empenho.empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN empenho.item_pre_empenho + ON item_pre_empenho.exercicio = pre_empenho.exercicio + AND item_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN ( SELECT empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , empenho_anulado_item.num_item + , SUM(empenho_anulado_item.vl_anulado) AS vl_anulado + FROM empenho.empenho_anulado_item + WHERE TO_DATE(empenho_anulado_item.timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'|| stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , empenho_anulado_item.num_item + ) AS empenho_anulado_item + ON empenho_anulado_item.exercicio = item_pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = item_pre_empenho.cod_pre_empenho + AND empenho_anulado_item.num_item = item_pre_empenho.num_item + + WHERE empenho.exercicio = '''|| stExercicioAnterior ||''' + AND empenho.dt_empenho BETWEEN TO_DATE(''01/01/'|| stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'|| stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('|| stCodEntidade ||') + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + ) AS empenhado + + LEFT JOIN ( SELECT ( SUM(liquidado.vl_total) ) AS vl_liquidado + , pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + LEFT JOIN ( SELECT nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + , ( SUM(COALESCE(nota_liquidacao_item.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_item_anulado.vl_anulado,0.00)) ) AS vl_total + FROM empenho.nota_liquidacao_item + LEFT JOIN ( SELECT exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + , SUM(COALESCE(vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_item_anulado + WHERE TO_DATE(timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + GROUP BY exercicio + , cod_nota + , num_item + , exercicio_item + , cod_pre_empenho + , cod_entidade + ) AS nota_liquidacao_item_anulado + ON nota_liquidacao_item_anulado.exercicio = nota_liquidacao_item.exercicio + AND nota_liquidacao_item_anulado.cod_nota = nota_liquidacao_item.cod_nota + AND nota_liquidacao_item_anulado.num_item = nota_liquidacao_item.num_item + AND nota_liquidacao_item_anulado.exercicio_item = nota_liquidacao_item.exercicio_item + AND nota_liquidacao_item_anulado.cod_pre_empenho = nota_liquidacao_item.cod_pre_empenho + AND nota_liquidacao_item_anulado.cod_entidade = nota_liquidacao_item.cod_entidade + GROUP BY nota_liquidacao_item.exercicio + , nota_liquidacao_item.cod_entidade + , nota_liquidacao_item.cod_nota + + ) AS liquidado + ON liquidado.exercicio = nota_liquidacao.exercicio + AND liquidado.cod_entidade = nota_liquidacao.cod_entidade + AND liquidado.cod_nota = nota_liquidacao.cod_nota + WHERE empenho.exercicio = '''||stExercicioAnterior||''' + AND empenho.dt_empenho BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + GROUP BY pre_empenho.exercicio + , pre_empenho.cod_pre_empenho + , empenho.cod_entidade + , empenho.cod_empenho + + ) AS liquidado + ON liquidado.exercicio = empenhado.exercicio + AND liquidado.cod_pre_empenho = empenhado.cod_pre_empenho + AND liquidado.cod_entidade = empenhado.cod_entidade + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = empenhado.exercicio + AND entidade.cod_entidade = empenhado.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = empenhado.exercicio + AND pre_empenho_despesa.cod_pre_empenho = empenhado.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = empenhado.exercicio + AND restos_pre_empenho.cod_pre_empenho = empenhado.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + GROUP BY empenhado.cod_empenho + , empenhado.cod_entidade + , empenhado.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING (SUM(COALESCE(empenhado.vl_empenhado,0.00)) - SUM(COALESCE(liquidado.vl_liquidado,0.00)) ) > 0 + '; + + EXECUTE stSql; + + --cria a tabela temporaria para o valor nao processado cancelado + stSql := ' + CREATE TEMPORARY TABLE tmp_nao_processados_cancelado AS + SELECT ( SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) ) AS vl_total + , empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + FROM empenho.empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN ( SELECT empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + , SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) AS vl_anulado + FROM empenho.empenho_anulado_item + WHERE TO_DATE(empenho_anulado_item.timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicio||''',''dd/mm/yyyy'') AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + GROUP BY empenho_anulado_item.exercicio + , empenho_anulado_item.cod_pre_empenho + ) AS empenho_anulado_item + ON empenho_anulado_item.exercicio = pre_empenho.exercicio + AND empenho_anulado_item.cod_pre_empenho = pre_empenho.cod_pre_empenho + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = empenho.exercicio + AND entidade.cod_entidade = empenho.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = pre_empenho.exercicio + AND pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = pre_empenho.exercicio + AND restos_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + WHERE empenho.exercicio <= '''||stExercicioAnterior||''' + AND empenho.dt_empenho <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND ( NOT EXISTS ( SELECT 1 + FROM empenho.nota_liquidacao + WHERE nota_liquidacao.exercicio_empenho = empenho.exercicio + AND nota_liquidacao.cod_empenho = empenho.cod_empenho + AND nota_liquidacao.cod_entidade = empenho.cod_entidade + --AND nota_liquidacao.dt_liquidacao <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + ) + OR + EXISTS ( SELECT 1 + FROM empenho.nota_liquidacao + WHERE nota_liquidacao.exercicio_empenho = empenho.exercicio + AND nota_liquidacao.cod_empenho = empenho.cod_empenho + AND nota_liquidacao.cod_entidade = empenho.cod_entidade + --AND nota_liquidacao.dt_liquidacao BETWEEN TO_DATE(''01/01/'||stExercicio||''',''dd/mm/yyyy'') AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + ) + ) + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING ( SUM(COALESCE(empenho_anulado_item.vl_anulado,0.00)) ) > 0 + '; + + EXECUTE stSql; + + --cria a tabela temporaria para o valor nao processado cancelado + stSql := ' + CREATE TEMPORARY TABLE tmp_nao_processados_pago AS + SELECT ( SUM(liquidacao_paga.vl_total) ) AS vl_total + , empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm AS nom_entidade + , CASE WHEN restos_pre_empenho.cod_estrutural IS NOT NULL + THEN ( CASE WHEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),1,2) = ''00'' + THEN SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),5,2) + ELSE SUBSTR(REPLACE(restos_pre_empenho.cod_estrutural,''.'',''''),3,2) + END + ) + ELSE SUBSTR(REPLACE(conta_despesa.cod_estrutural,''.'',''''),3,2) + END AS cod_estrutural + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN ''ÓRGÃO NÃO INFORMADO'' + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.nom_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.nom_orgao + END AS nom_orgao + , CASE WHEN (orgao_implantado.num_orgao IS NULL) AND (orgao.num_orgao IS NULL) + THEN 99 + WHEN (orgao.num_orgao IS NULL) + THEN orgao_implantado.num_orgao + WHEN (orgao_implantado.num_orgao IS NULL) + THEN orgao.num_orgao + END AS num_orgao + FROM empenho.nota_liquidacao + + INNER JOIN empenho.empenho + ON empenho.exercicio = nota_liquidacao.exercicio_empenho + AND empenho.cod_entidade = nota_liquidacao.cod_entidade + AND empenho.cod_empenho = nota_liquidacao.cod_empenho + + INNER JOIN empenho.pre_empenho + ON pre_empenho.exercicio = empenho.exercicio + AND pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + + INNER JOIN ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , ( SUM(COALESCE(nota_liquidacao_paga.vl_total,0.00)) - SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) ) AS vl_total + + FROM ( SELECT nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + , SUM(nota_liquidacao_paga.vl_pago) AS vl_total + FROM empenho.nota_liquidacao_paga + WHERE TO_DATE(nota_liquidacao_paga.timestamp::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicio||''',''dd/mm/yyyy'') AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + ) AS nota_liquidacao_paga + + LEFT JOIN ( SELECT nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + , SUM(COALESCE(nota_liquidacao_paga_anulada.vl_anulado,0.00)) AS vl_anulado + FROM empenho.nota_liquidacao_paga_anulada + WHERE TO_DATE(nota_liquidacao_paga_anulada.timestamp_anulada::TEXT,''yyyy-mm-dd'') BETWEEN TO_DATE(''01/01/'||stExercicio||''',''dd/mm/yyyy'') AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + GROUP BY nota_liquidacao_paga_anulada.exercicio + , nota_liquidacao_paga_anulada.cod_entidade + , nota_liquidacao_paga_anulada.cod_nota + ) AS nota_liquidacao_paga_anulada + ON nota_liquidacao_paga_anulada.exercicio = nota_liquidacao_paga.exercicio + AND nota_liquidacao_paga_anulada.cod_entidade = nota_liquidacao_paga.cod_entidade + AND nota_liquidacao_paga_anulada.cod_nota = nota_liquidacao_paga.cod_nota + GROUP BY nota_liquidacao_paga.exercicio + , nota_liquidacao_paga.cod_entidade + , nota_liquidacao_paga.cod_nota + + ) AS liquidacao_paga + ON liquidacao_paga.exercicio = nota_liquidacao.exercicio + AND liquidacao_paga.cod_entidade = nota_liquidacao.cod_entidade + AND liquidacao_paga.cod_nota = nota_liquidacao.cod_nota + +-- inner para achar a entidade a que ele pertence + INNER JOIN orcamento.entidade + ON entidade.exercicio = empenho.exercicio + AND entidade.cod_entidade = empenho.cod_entidade + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + +--left para achar o cod_estrutural + LEFT JOIN empenho.pre_empenho_despesa + ON pre_empenho_despesa.exercicio = pre_empenho.exercicio + AND pre_empenho_despesa.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.despesa + ON despesa.exercicio = pre_empenho_despesa.exercicio + AND despesa.cod_despesa = pre_empenho_despesa.cod_despesa + + LEFT JOIN orcamento.conta_despesa + ON conta_despesa.exercicio = pre_empenho_despesa.exercicio + AND conta_despesa.cod_conta = pre_empenho_despesa.cod_conta + + LEFT JOIN orcamento.orgao + ON orgao.exercicio = '''||stExercicio||''' + AND orgao.num_orgao = despesa.num_orgao + + LEFT JOIN empenho.restos_pre_empenho + ON restos_pre_empenho.exercicio = pre_empenho.exercicio + AND restos_pre_empenho.cod_pre_empenho = pre_empenho.cod_pre_empenho + + LEFT JOIN orcamento.orgao AS orgao_implantado + ON orgao_implantado.exercicio = '''||stExercicio||''' + AND orgao_implantado.num_orgao = restos_pre_empenho.num_orgao + + WHERE empenho.exercicio <= '''||stExercicio||''' + AND empenho.dt_empenho <= TO_DATE(''31/12/'||stExercicioAnterior||''',''dd/mm/yyyy'') + AND nota_liquidacao.dt_liquidacao BETWEEN TO_DATE(''01/01/'||stExercicioAnterior||''',''dd/mm/yyyy'') AND TO_DATE('''||dtFinal||''',''dd/mm/yyyy'') + AND empenho.cod_entidade IN ('||stCodEntidade||') + + GROUP BY empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , sw_cgm.nom_cgm + , restos_pre_empenho.cod_estrutural + , conta_despesa.cod_estrutural + , orgao.num_orgao + , orgao.nom_orgao + , orgao_implantado.nom_orgao + , orgao_implantado.num_orgao + , despesa.dt_criacao + HAVING ( SUM(liquidacao_paga.vl_total) ) > 0 + '; + + EXECUTE stSql; + + stSql := ' + SELECT cod_empenho + , cod_entidade + , exercicio + , SUM(valor_processado_exercicios_anteriores) AS valor_processado_exercicios_anteriores + , SUM(valor_processado_exercicio_anterior) AS valor_processado_exercicio_anterior + , SUM(valor_processado_cancelado) AS valor_processado_cancelado + , SUM(valor_processado_pago) AS valor_processado_pago + , SUM(valor_nao_processado_exercicios_anteriores) AS valor_nao_processado_exercicios_anteriores + , SUM(valor_nao_processado_exercicio_anterior) AS valor_nao_processado_exercicio_anterior + , SUM(valor_nao_processado_cancelado) AS valor_nao_processado_cancelado + , SUM(valor_nao_processado_pago) AS valor_nao_processado_pago + FROM + ( + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , SUM(tmp_processados_exercicios_anteriores.vl_total) AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_processados_exercicios_anteriores + ON tmp_processados_exercicios_anteriores.cod_empenho = empenho.cod_empenho + AND tmp_processados_exercicios_anteriores.cod_entidade = empenho.cod_entidade + AND tmp_processados_exercicios_anteriores.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , SUM(tmp_processados_exercicio_anterior.vl_total) AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_processados_exercicio_anterior + ON tmp_processados_exercicio_anterior.cod_empenho = empenho.cod_empenho + AND tmp_processados_exercicio_anterior.cod_entidade = empenho.cod_entidade + AND tmp_processados_exercicio_anterior.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , SUM(tmp_processados_cancelado.vl_total) AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_processados_cancelado + ON tmp_processados_cancelado.cod_empenho = empenho.cod_empenho + AND tmp_processados_cancelado.cod_entidade = empenho.cod_entidade + AND tmp_processados_cancelado.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , SUM(tmp_processados_pago.vl_total) AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_processados_pago + ON tmp_processados_pago.cod_empenho = empenho.cod_empenho + AND tmp_processados_pago.cod_entidade = empenho.cod_entidade + AND tmp_processados_pago.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , SUM(tmp_nao_processados_exercicios_anteriores.vl_total) AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_nao_processados_exercicios_anteriores + ON tmp_nao_processados_exercicios_anteriores.cod_empenho = empenho.cod_empenho + AND tmp_nao_processados_exercicios_anteriores.cod_entidade = empenho.cod_entidade + AND tmp_nao_processados_exercicios_anteriores.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , SUM(tmp_nao_processados_exercicio_anterior.vl_total) AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_nao_processados_exercicio_anterior + ON tmp_nao_processados_exercicio_anterior.cod_empenho = empenho.cod_empenho + AND tmp_nao_processados_exercicio_anterior.cod_entidade = empenho.cod_entidade + AND tmp_nao_processados_exercicio_anterior.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , SUM(tmp_nao_processados_cancelado.vl_total) AS valor_nao_processado_cancelado + , 0.00 AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_nao_processados_cancelado + ON tmp_nao_processados_cancelado.cod_empenho = empenho.cod_empenho + AND tmp_nao_processados_cancelado.cod_entidade = empenho.cod_entidade + AND tmp_nao_processados_cancelado.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + UNION + + SELECT + empenho.cod_empenho + , empenho.cod_entidade + , empenho.exercicio + , 0.00 AS valor_processado_exercicios_anteriores + , 0.00 AS valor_processado_exercicio_anterior + , 0.00 AS valor_processado_cancelado + , 0.00 AS valor_processado_pago + , 0.00 AS valor_nao_processado_exercicios_anteriores + , 0.00 AS valor_nao_processado_exercicio_anterior + , 0.00 AS valor_nao_processado_cancelado + , SUM(tmp_nao_processados_pago.vl_total) AS valor_nao_processado_pago + + FROM empenho.empenho + + JOIN tmp_nao_processados_pago + ON tmp_nao_processados_pago.cod_empenho = empenho.cod_empenho + AND tmp_nao_processados_pago.cod_entidade = empenho.cod_entidade + AND tmp_nao_processados_pago.exercicio = empenho.exercicio + + WHERE empenho.exercicio <= ''' || stExercicio || ''' AND empenho.cod_entidade IN (' || stCodEntidade || ') + + GROUP BY empenho.cod_empenho, empenho.cod_entidade, empenho.exercicio + + ) AS record + + GROUP BY cod_empenho, cod_entidade, exercicio + + ORDER BY cod_empenho + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN next reRegistro; + END LOOP; + + DROP TABLE tmp_processados_exercicios_anteriores; + DROP TABLE tmp_processados_exercicio_anterior; + DROP TABLE tmp_processados_cancelado; + DROP TABLE tmp_processados_pago; + DROP TABLE tmp_nao_processados_exercicios_anteriores; + DROP TABLE tmp_nao_processados_exercicio_anterior; + DROP TABLE tmp_nao_processados_cancelado; + DROP TABLE tmp_nao_processados_pago; + +END; + +$$ language 'plpgsql'; diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOArquivoExportacaoOrcamentoRec.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOArquivoExportacaoOrcamentoRec.plsql new file mode 100644 index 0000000..cd8e6b7 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOArquivoExportacaoOrcamentoRec.plsql @@ -0,0 +1,76 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* +* Script de função PLPGSQL +* +* URBEM Soluções de Gestão Pública Ltda +* www.urbem.cnm.org.br +* +* $Revision: $ +* $Name: $ +* $Author: gelson $ +* $Date: $ +* +*/ + +CREATE OR REPLACE FUNCTION tcmgo.arquivo_exportacao_orcamento_rec(varchar,varchar,varchar,varchar) RETURNS SETOF RECORD AS $$ +DECLARE + stExercicio ALIAS FOR $1; + stCodEntidades ALIAS FOR $2; + stDataInicial ALIAS FOR $3; + stDataFinal ALIAS FOR $4; + stSql VARCHAR := ''; + reRegistro RECORD; + arRetorno NUMERIC[] := array[0]; +BEGIN + stSql := ' + SELECT tabela.cod_estrutural + , tabela.cod_recurso + , tabela.cod_receita + , tabela.descricao + , coalesce(tabela.vl_previsto ,0.00) as vl_previsto + FROM + + orcamento.fn_balancete_receita('|| quote_literal(stExercicio) ||','''','|| quote_literal(stDataInicial) ||', '|| quote_literal(stDataFinal) ||', '|| quote_literal(stCodEntidades) ||','''','''','''','''','''','''','''' ) + as tabela + ( + cod_estrutural VARCHAR , + cod_receita INTEGER , + cod_recurso VARCHAR(13) , + descricao VARCHAR , + vl_previsto NUMERIC , + vl_arrecadado NUMERIC , + vl_arrecadado_ano NUMERIC , + diferenca NUMERIC + ) + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN NEXT reRegistro; + END LOOP; + + RETURN; + +END; +$$ LANGUAGE 'plpgsql'; diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGORecuperaPPAPrograma.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGORecuperaPPAPrograma.plsql new file mode 100755 index 0000000..b87f906 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGORecuperaPPAPrograma.plsql @@ -0,0 +1,139 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ + +/* +* Script de DDL e DML +* +* URBEM Soluções de Gestão Pública Ltda +* www.urbem.cnm.org.br +* $Id: $ +* $Revision: $ +* $Author: $ +* $Date: $ +* +* Caso de uso: uc-06.04.00 +*/ + +CREATE OR REPLACE FUNCTION tcmgo.recupera_ppa_programa(VARCHAR) RETURNS SETOF RECORD AS $$ +DECLARE + + stExercicio ALIAS FOR $1; + + stSql VARCHAR := ''; + var INTEGER := 0; + + rsProgramas RECORD; + +BEGIN + + stSql := ' + SELECT * + FROM ( + SELECT programa.cod_programa AS cod_programa + , CASE WHEN programa_dados.continuo = true + THEN 1 + ELSE 2 + END AS tipo_programa + , programa_dados.identificacao AS nome_programa + , programa.num_programa AS num_programa + , programa_dados.objetivo AS objetivo + , REPLACE(SUM(total_recursos.ano1)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_1 + , REPLACE(SUM(total_recursos.ano2)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_2 + , REPLACE(SUM(total_recursos.ano3)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_3 + , REPLACE(SUM(total_recursos.ano4)::VARCHAR, ''.'', '','')::VARCHAR AS total_recursos_ano_4 + FROM ppa.ppa + INNER JOIN ppa.macro_objetivo + ON macro_objetivo.cod_ppa = ppa.cod_ppa + INNER JOIN ppa.programa_setorial + ON programa_setorial.cod_macro = macro_objetivo.cod_macro + INNER JOIN ppa.programa + ON programa.cod_setorial = programa_setorial.cod_setorial + INNER JOIN ppa.programa_dados + ON programa_dados.cod_programa = programa.cod_programa + AND programa_dados.timestamp_programa_dados = programa.ultimo_timestamp_programa_dados + INNER JOIN ppa.acao + ON acao.cod_programa = programa.cod_programa + LEFT JOIN ( + SELECT p_ar.cod_acao + , p_ar.timestamp_acao_dados + , COALESCE((SELECT COALESCE(ano_1.valor, ''0.00'') + FROM ppa.acao_recurso AS ano_1 + WHERE ano_1.ano = ''1'' + AND p_ar.cod_acao = ano_1.cod_acao + AND p_ar.timestamp_acao_dados = ano_1.timestamp_acao_dados + AND p_ar.cod_recurso = ano_1.cod_recurso),0.00) AS ano1 + + , COALESCE((SELECT COALESCE(ano_2.valor, ''0.00'') + FROM ppa.acao_recurso AS ano_2 + WHERE ano_2.ano = ''2'' + AND p_ar.cod_acao = ano_2.cod_acao + AND p_ar.timestamp_acao_dados = ano_2.timestamp_acao_dados + AND p_ar.cod_recurso = ano_2.cod_recurso),0.00) AS ano2 + + , COALESCE((SELECT COALESCE(ano_3.valor, ''0.00'') + FROM ppa.acao_recurso AS ano_3 + WHERE ano_3.ano = ''3'' + AND p_ar.cod_acao = ano_3.cod_acao + AND p_ar.timestamp_acao_dados = ano_3.timestamp_acao_dados + AND p_ar.cod_recurso = ano_3.cod_recurso),0.00) AS ano3 + + , COALESCE((SELECT COALESCE(ano_4.valor, ''0.00'') + FROM ppa.acao_recurso AS ano_4 + WHERE ano_4.ano = ''4'' + AND p_ar.cod_acao = ano_4.cod_acao + AND p_ar.timestamp_acao_dados = ano_4.timestamp_acao_dados + AND p_ar.cod_recurso = ano_4.cod_recurso),0.00) AS ano4 + + FROM ppa.acao_recurso AS p_ar + INNER JOIN orcamento.recurso(''' || stExercicio || ''') AS recurso + ON p_ar.cod_recurso = recurso.cod_recurso + group by p_ar.cod_acao + , p_ar.timestamp_acao_dados + , p_ar.cod_recurso + order by p_ar.cod_acao + ) AS total_recursos + ON total_recursos.cod_acao = acao.cod_acao + AND total_recursos.timestamp_acao_dados = acao.ultimo_timestamp_acao_dados + WHERE '||stExercicio||' BETWEEN ano_inicio::INTEGER AND ano_final::INTEGER + GROUP BY programa.cod_programa + , programa_dados.identificacao + , programa_dados.objetivo + , programa_dados.continuo + ORDER BY programa.num_programa + ) AS tmp + WHERE total_recursos_ano_1 IS NOT NULL + AND total_recursos_ano_2 IS NOT NULL + AND total_recursos_ano_3 IS NOT NULL + AND total_recursos_ano_4 IS NOT NULL + + ORDER BY tmp.cod_programa; + '; + + FOR rsProgramas IN EXECUTE stSql + LOOP + RETURN next rsProgramas; + END LOOP; + +END; + +$$ LANGUAGE 'plpgsql'; \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/ativoPermanenteCreditos.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/ativoPermanenteCreditos.plsql index d75149e..2d8c364 100644 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/ativoPermanenteCreditos.plsql +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/ativoPermanenteCreditos.plsql @@ -26,10 +26,10 @@ * URBEM Soluções de Gestão Pública Ltda * www.urbem.cnm.org.br * -* $Revision: 59820 $ +* $Revision: 61683 $ * $Name$ * $Author: luciana $ -* $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ +* $Date: 2015-02-25 11:28:21 -0300 (Qua, 25 Fev 2015) $ * * Casos de uso: uc-02.02.11 */ @@ -58,22 +58,18 @@ Adicionada tag Log aos arquivos */ -CREATE OR REPLACE FUNCTION tcmgo.ativo_permanente_creditos (varchar, varchar, varchar, varchar, bpchar) RETURNS SETOF RECORD AS -' +CREATE OR REPLACE FUNCTION tcmgo.ativo_permanente_creditos (varchar, varchar, varchar, varchar) RETURNS SETOF RECORD AS $$ DECLARE stExercicio ALIAS FOR $1; stFiltro ALIAS FOR $2; stDtInicial ALIAS FOR $3; - stDtFinal ALIAS FOR $4; - chEstilo ALIAS FOR $5; - stSql VARCHAR := ''''; - stSqlComplemento VARCHAR := ''''; + stDtFinal ALIAS FOR $4; + stSql VARCHAR := ''; + stSqlComplemento VARCHAR := ''; reRegistro RECORD; arRetorno NUMERIC[]; - BEGIN - - stSql := ''CREATE TEMPORARY TABLE tmp_debito AS + stSql := 'CREATE TEMPORARY TABLE tmp_debito AS SELECT * FROM ( SELECT @@ -110,19 +106,19 @@ BEGIN AND vl.sequencia = la.sequencia AND vl.exercicio = la.exercicio AND vl.cod_entidade = la.cod_entidade - AND vl.tipo_valor = ''''D'''' + AND vl.tipo_valor = ''D'' AND la.cod_lote = lo.cod_lote AND la.exercicio = lo.exercicio AND la.tipo = lo.tipo AND la.cod_entidade = lo.cod_entidade - AND pa.exercicio = '' || stExercicio || '' + AND pa.exercicio = ' || quote_literal(stExercicio) || ' ORDER BY pc.cod_estrutural ) as tabela WHERE - '' || stFiltro ; + ' || stFiltro ; EXECUTE stSql; - stSql := ''CREATE TEMPORARY TABLE tmp_credito AS + stSql := 'CREATE TEMPORARY TABLE tmp_credito AS SELECT * FROM ( SELECT @@ -159,16 +155,16 @@ BEGIN AND vl.sequencia = la.sequencia AND vl.exercicio = la.exercicio AND vl.cod_entidade = la.cod_entidade - AND vl.tipo_valor = ''''C'''' + AND vl.tipo_valor = ''C'' AND la.cod_lote = lo.cod_lote AND la.exercicio = lo.exercicio AND la.tipo = lo.tipo AND la.cod_entidade = lo.cod_entidade - AND pa.exercicio = '' || stExercicio || '' + AND pa.exercicio = ' || quote_literal(stExercicio) || ' ORDER BY pc.cod_estrutural ) as tabela WHERE - '' || stFiltro ; + ' || stFiltro ; EXECUTE stSql; CREATE UNIQUE INDEX unq_debito ON tmp_debito (cod_estrutural varchar_pattern_ops, oid_temp); @@ -177,44 +173,51 @@ BEGIN CREATE TEMPORARY TABLE tmp_totaliza_debito AS SELECT * FROM tmp_debito - WHERE dt_lote BETWEEN to_date( stDtInicial , ''dd/mm/yyyy'' ) AND to_date( stDtFinal , ''dd/mm/yyyy'' ) - AND tipo <> ''I''; + WHERE dt_lote BETWEEN to_date( stDtInicial , 'dd/mm/yyyy' ) AND to_date( stDtFinal , 'dd/mm/yyyy' ) + AND tipo <> 'I'; CREATE TEMPORARY TABLE tmp_totaliza_credito AS SELECT * FROM tmp_credito - WHERE dt_lote BETWEEN to_date( stDtInicial , ''dd/mm/yyyy'' ) AND to_date( stDtFinal , ''dd/mm/yyyy'' ) - AND tipo <> ''I''; + WHERE dt_lote BETWEEN to_date( stDtInicial , 'dd/mm/yyyy' ) AND to_date( stDtFinal , 'dd/mm/yyyy' ) + AND tipo <> 'I'; CREATE UNIQUE INDEX unq_totaliza_credito ON tmp_totaliza_credito (cod_estrutural varchar_pattern_ops, oid_temp); CREATE UNIQUE INDEX unq_totaliza_debito ON tmp_totaliza_debito (cod_estrutural varchar_pattern_ops, oid_temp); - IF substr(stDtInicial,1,5) = ''01/01'' THEN - stSqlComplemento := '' dt_lote = to_date( '' || quote_literal(stDtInicial) || '','' || quote_literal(''dd/mm/yyyy'') || '') ''; - stSqlComplemento := stSqlComplemento || '' AND tipo = ''||quote_literal(''I'')||'' ''; - ELSE - stSqlComplemento := '' dt_lote <= to_date( '' || quote_literal(stDtInicial) || '','' || quote_literal(''dd/mm/yyyy'') || '')-1 ''; - END IF; - - stSql := ''CREATE TEMPORARY TABLE tmp_totaliza AS - SELECT * FROM tmp_debito - WHERE - '' || stSqlComplemento || '' - UNION - SELECT * FROM tmp_credito - WHERE - '' || stSqlComplemento || '' - ''; + stSql := 'CREATE TEMPORARY TABLE tmp_totaliza AS + SELECT * + FROM tmp_debito + WHERE dt_lote = to_date( ' || quote_literal(stDtInicial) || ',''dd/mm/yyyy'') + AND tipo = ''I'' + UNION + SELECT * + FROM tmp_credito + WHERE dt_lote = to_date( ' || quote_literal(stDtInicial) || ',''dd/mm/yyyy'') + AND tipo = ''I'' + '; EXECUTE stSql; CREATE UNIQUE INDEX unq_totaliza ON tmp_totaliza (cod_estrutural varchar_pattern_ops, oid_temp); - stSql := '' SELECT + stSql :=' SELECT pc.cod_estrutural ,publico.fn_nivel(pc.cod_estrutural) as nivel ,pc.nom_conta - ,org.num_orgao - ,ou.cod_unidade + , ( SELECT LPAD(tcmgo.orgao.num_orgao::VARCHAR, 2, ''0'') AS cod_orgao + FROM orcamento.orgao + INNER JOIN tcmgo.orgao + ON tcmgo.orgao.num_orgao = orcamento.orgao.num_orgao + AND tcmgo.orgao.exercicio = orcamento.orgao.exercicio + WHERE tcmgo.orgao.exercicio = ' || quote_literal(stExercicio) || ' + ) AS num_orgao + , ( SELECT LPAD(unidade.num_unidade::VARCHAR, 2, ''0'') AS cod_orgao + FROM orcamento.unidade + INNER JOIN tcmgo.orgao + ON tcmgo.orgao.num_orgao = orcamento.unidade.num_orgao + AND tcmgo.orgao.exercicio = orcamento.unidade.exercicio + WHERE tcmgo.orgao.exercicio = ' || quote_literal(stExercicio) || ' + ) AS cod_unidade ,0.00 as vl_saldo_anterior ,0.00 as vl_saldo_debitos ,0.00 as vl_saldo_creditos @@ -222,26 +225,24 @@ BEGIN ,sc.nom_sistema ,ba.tipo_lancamento FROM - contabilidade.plano_conta as pc - ,contabilidade.sistema_contabil as sc - ,contabilidade.plano_analitica as c_pa - ,tcmgo.orgao_plano_banco as org - ,tcmgo.balanco_apcaaaa as ba - ,orcamento.unidade as ou - WHERE - pc.exercicio = '' || stExercicio || '' - AND pc.cod_sistema = sc.cod_sistema + contabilidade.plano_conta as pc + + INNER JOIN contabilidade.sistema_contabil as sc + ON pc.cod_sistema = sc.cod_sistema AND pc.exercicio = sc.exercicio - AND c_pa.cod_conta = pc.cod_conta + + INNER JOIN contabilidade.plano_analitica as c_pa + ON c_pa.cod_conta = pc.cod_conta AND c_pa.exercicio = pc.exercicio - AND org.exercicio = c_pa.exercicio - AND org.cod_plano = c_pa.exercicio - AND ba.cod_plano = c_pa.cod_plano - AND ba.exercicio = c_pa.exercicio - AND org.exercicio = ou.exercicio - AND org.num_orgao = ou.num_orgao - ORDER BY sc.nom_sistema, pc.cod_estrutural ''; + INNER JOIN tcmgo.balanco_apcaaaa as ba + ON ba.cod_plano = c_pa.cod_plano + AND ba.exercicio = c_pa.exercicio + + WHERE pc.exercicio = ' || quote_literal(stExercicio) || ' + + ORDER BY sc.nom_sistema, pc.cod_estrutural + '; FOR reRegistro IN EXECUTE stSql LOOP @@ -272,4 +273,4 @@ BEGIN RETURN; END; -' LANGUAGE 'plpgsql' +$$ LANGUAGE 'plpgsql' diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/balancoPatrimonial.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/balancoPatrimonial.plsql deleted file mode 100644 index 4dcbc7c..0000000 --- a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/balancoPatrimonial.plsql +++ /dev/null @@ -1,273 +0,0 @@ -/* - ********************************************************************************** - * * - * @package URBEM CNM - Soluções em Gestão Pública * - * @copyright (c) 2013 Confederação Nacional de Municípos * - * @author Confederação Nacional de Municípios * - * * - * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * - * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * - * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * - * * - * Este programa é distribuído na expectativa de que seja útil, porém, * - * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * - * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * - * para mais detalhes. * - * * - * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * - * com este programa; se não, escreva para a Free Software Foundation Inc., * - * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * - * * - ********************************************************************************** -*/ -/* -* Script de função PLPGSQL -* -* URBEM Soluções de Gestão Pública Ltda -* www.urbem.cnm.org.br -* -* $Revision: 59820 $ -* $Name$ -* $Author: luciana $ -* $Date: 2014-09-12 15:17:20 -0300 (Sex, 12 Set 2014) $ -* -* Casos de uso: uc-02.02.11 -*/ - -/* -$Log$ -Revision 1.3 2007/05/24 20:51:57 bruce -corrigido o retorno da pl e feita ligação com a Unidade - -Revision 1.2 2007/05/15 20:46:31 bruce -acrescentado o tipo de lançamento - -Revision 1.1 2007/05/15 13:43:55 bruce -*** empty log message *** - -Revision 1.9 2006/07/14 17:58:30 andre.almeida -Bug #6556# - -Alterado scripts de NOT IN para NOT EXISTS. - -Revision 1.8 2006/07/05 20:37:31 cleisson -Adicionada tag Log aos arquivos - -*/ - -CREATE OR REPLACE FUNCTION tcmgo.fn_rl_balanco_patrimonial (varchar, varchar, varchar, varchar, bpchar) RETURNS SETOF RECORD AS -' -DECLARE - stExercicio ALIAS FOR $1; - stFiltro ALIAS FOR $2; - stDtInicial ALIAS FOR $3; - stDtFinal ALIAS FOR $4; - chEstilo ALIAS FOR $5; - stSql VARCHAR := ''''; - stSqlComplemento VARCHAR := ''''; - reRegistro RECORD; - arRetorno NUMERIC[]; - -BEGIN - - stSql := ''CREATE TEMPORARY TABLE tmp_debito AS - SELECT * - FROM ( - SELECT - pc.cod_estrutural - ,pa.cod_plano - ,vl.tipo_valor - ,vl.vl_lancamento - ,vl.cod_entidade - ,lo.cod_lote - ,lo.dt_lote - ,lo.exercicio - ,lo.tipo - ,vl.sequencia - ,vl.oid as oid_temp - FROM - contabilidade.plano_conta as pc - ,contabilidade.plano_analitica as pa - ,contabilidade.conta_debito as cd - ,contabilidade.valor_lancamento as vl - ,contabilidade.lancamento as la - ,contabilidade.lote as lo - WHERE pc.cod_conta = pa.cod_conta - AND pc.exercicio = pa.exercicio - AND pa.cod_plano = cd.cod_plano - AND pa.exercicio = cd.exercicio - AND cd.cod_lote = vl.cod_lote - AND cd.tipo = vl.tipo - AND cd.sequencia = vl.sequencia - AND cd.exercicio = vl.exercicio - AND cd.tipo_valor = vl.tipo_valor - AND cd.cod_entidade = vl.cod_entidade - AND vl.cod_lote = la.cod_lote - AND vl.tipo = la.tipo - AND vl.sequencia = la.sequencia - AND vl.exercicio = la.exercicio - AND vl.cod_entidade = la.cod_entidade - AND vl.tipo_valor = ''''D'''' - AND la.cod_lote = lo.cod_lote - AND la.exercicio = lo.exercicio - AND la.tipo = lo.tipo - AND la.cod_entidade = lo.cod_entidade - AND pa.exercicio = '' || stExercicio || '' - ORDER BY pc.cod_estrutural - ) as tabela - WHERE - '' || stFiltro ; - EXECUTE stSql; - - stSql := ''CREATE TEMPORARY TABLE tmp_credito AS - SELECT * - FROM ( - SELECT - pc.cod_estrutural - ,pa.cod_plano - ,vl.tipo_valor - ,vl.vl_lancamento - ,vl.cod_entidade - ,lo.cod_lote - ,lo.dt_lote - ,lo.exercicio - ,lo.tipo - ,vl.sequencia - ,vl.oid as oid_temp - FROM - contabilidade.plano_conta as pc - ,contabilidade.plano_analitica as pa - ,contabilidade.conta_credito as cc - ,contabilidade.valor_lancamento as vl - ,contabilidade.lancamento as la - ,contabilidade.lote as lo - WHERE pc.cod_conta = pa.cod_conta - AND pc.exercicio = pa.exercicio - AND pa.cod_plano = cc.cod_plano - AND pa.exercicio = cc.exercicio - AND cc.cod_lote = vl.cod_lote - AND cc.tipo = vl.tipo - AND cc.sequencia = vl.sequencia - AND cc.exercicio = vl.exercicio - AND cc.tipo_valor = vl.tipo_valor - AND cc.cod_entidade = vl.cod_entidade - AND vl.cod_lote = la.cod_lote - AND vl.tipo = la.tipo - AND vl.sequencia = la.sequencia - AND vl.exercicio = la.exercicio - AND vl.cod_entidade = la.cod_entidade - AND vl.tipo_valor = ''''C'''' - AND la.cod_lote = lo.cod_lote - AND la.exercicio = lo.exercicio - AND la.tipo = lo.tipo - AND la.cod_entidade = lo.cod_entidade - AND pa.exercicio = '' || stExercicio || '' - ORDER BY pc.cod_estrutural - ) as tabela - WHERE - '' || stFiltro ; - EXECUTE stSql; - - CREATE UNIQUE INDEX unq_debito ON tmp_debito (cod_estrutural varchar_pattern_ops, oid_temp); - CREATE UNIQUE INDEX unq_credito ON tmp_credito (cod_estrutural varchar_pattern_ops, oid_temp); - - CREATE TEMPORARY TABLE tmp_totaliza_debito AS - SELECT * - FROM tmp_debito - WHERE dt_lote BETWEEN to_date( stDtInicial , ''dd/mm/yyyy'' ) AND to_date( stDtFinal , ''dd/mm/yyyy'' ) - AND tipo <> ''I''; - - CREATE TEMPORARY TABLE tmp_totaliza_credito AS - SELECT * - FROM tmp_credito - WHERE dt_lote BETWEEN to_date( stDtInicial , ''dd/mm/yyyy'' ) AND to_date( stDtFinal , ''dd/mm/yyyy'' ) - AND tipo <> ''I''; - - CREATE UNIQUE INDEX unq_totaliza_credito ON tmp_totaliza_credito (cod_estrutural varchar_pattern_ops, oid_temp); - CREATE UNIQUE INDEX unq_totaliza_debito ON tmp_totaliza_debito (cod_estrutural varchar_pattern_ops, oid_temp); - - IF substr(stDtInicial,1,5) = ''01/01'' THEN - stSqlComplemento := '' dt_lote = to_date( '' || quote_literal(stDtInicial) || '','' || quote_literal(''dd/mm/yyyy'') || '') ''; - stSqlComplemento := stSqlComplemento || '' AND tipo = ''||quote_literal(''I'')||'' ''; - ELSE - stSqlComplemento := '' dt_lote <= to_date( '' || quote_literal(stDtInicial) || '','' || quote_literal(''dd/mm/yyyy'') || '')-1 ''; - END IF; - - stSql := ''CREATE TEMPORARY TABLE tmp_totaliza AS - SELECT * FROM tmp_debito - WHERE - '' || stSqlComplemento || '' - UNION - SELECT * FROM tmp_credito - WHERE - '' || stSqlComplemento || '' - ''; - EXECUTE stSql; - - CREATE UNIQUE INDEX unq_totaliza ON tmp_totaliza (cod_estrutural varchar_pattern_ops, oid_temp); - - stSql := '' SELECT - pc.cod_estrutural - ,publico.fn_nivel(pc.cod_estrutural) as nivel - ,pc.nom_conta - ,org.num_orgao - ,ou.num_unidade - ,0.00 as vl_saldo_anterior - ,0.00 as vl_saldo_debitos - ,0.00 as vl_saldo_creditos - ,0.00 as vl_saldo_atual - ,sc.nom_sistema - ,ba.tipo_lancamento - FROM - contabilidade.plano_conta as pc - ,contabilidade.sistema_contabil as sc - ,contabilidade.plano_analitica as c_pa - ,tcmgo.orgao_plano_banco as org - ,tcmgo.balanco_afraaaa as ba - ,orcamento.unidade as ou - WHERE - pc.exercicio = '' || stExercicio || '' - AND pc.cod_sistema = sc.cod_sistema - AND pc.exercicio = sc.exercicio - AND c_pa.cod_conta = pc.cod_conta - AND c_pa.exercicio = pc.exercicio - AND org.exercicio = c_pa.exercicio - AND org.cod_plano = c_pa.exercicio - AND ba.cod_plano = c_pa.cod_plano - AND ba.exercicio = c_pa.exercicio - AND org.exercicio = ou.exercicio - AND org.num_orgao = ou.num_orgao - - ORDER BY sc.nom_sistema, pc.cod_estrutural ''; - - - FOR reRegistro IN EXECUTE stSql - LOOP - arRetorno := contabilidade.fn_totaliza_balancete_verificacao( publico.fn_mascarareduzida(reRegistro.cod_estrutural) , stDtInicial, stDtFinal); - reRegistro.vl_saldo_anterior := arRetorno[1]; - reRegistro.vl_saldo_debitos := arRetorno[2]; - reRegistro.vl_saldo_creditos := arRetorno[3]; - reRegistro.vl_saldo_atual := arRetorno[4]; - IF ( reRegistro.vl_saldo_anterior <> 0.00 ) OR - ( reRegistro.vl_saldo_debitos <> 0.00 ) OR - ( reRegistro.vl_saldo_creditos <> 0.00 ) - THEN - RETURN NEXT reRegistro; - END IF; - END LOOP; - - DROP INDEX unq_totaliza; - DROP INDEX unq_totaliza_debito; - DROP INDEX unq_totaliza_credito; - DROP INDEX unq_debito; - DROP INDEX unq_credito; - - DROP TABLE tmp_totaliza; - DROP TABLE tmp_debito; - DROP TABLE tmp_credito; - DROP TABLE tmp_totaliza_debito; - DROP TABLE tmp_totaliza_credito; - - RETURN; -END; -' LANGUAGE 'plpgsql' diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao10.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao10.plsql new file mode 100644 index 0000000..3552944 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao10.plsql @@ -0,0 +1,271 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* +* Script de função PLPGSQL +* +* URBEM Soluções de Gestão Pública Ltda +* www.urbem.cnm.org.br +* +* $Revision: 59612 $ +* $Name$ +* $Author: gelson $ +* $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ +* +* Casos de uso: uc-02.02.11 +*/ + +/* +$Log$ +Revision 1.3 2007/05/24 20:51:57 bruce +corrigido o retorno da pl e feita ligação com a Unidade + +Revision 1.2 2007/05/15 20:46:31 bruce +acrescentado o tipo de lançamento + +Revision 1.1 2007/05/15 13:43:55 bruce +*** empty log message *** + +Revision 1.9 2006/07/14 17:58:30 andre.almeida +Bug #6556# + +Alterado scripts de NOT IN para NOT EXISTS. + +Revision 1.8 2006/07/05 20:37:31 cleisson +Adicionada tag Log aos arquivos + +*/ + +CREATE OR REPLACE FUNCTION tcmgo.arquivo_afr_exportacao10 (varchar, varchar, varchar, varchar, bpchar) RETURNS SETOF RECORD AS $$ +DECLARE + stExercicio ALIAS FOR $1; + stFiltro ALIAS FOR $2; + stDtInicial ALIAS FOR $3; + stDtFinal ALIAS FOR $4; + chEstilo ALIAS FOR $5; + stSql VARCHAR := ''; + stSqlComplemento VARCHAR := ''; + reRegistro RECORD; + arRetorno NUMERIC[]; + +BEGIN + + stSql := 'CREATE TEMPORARY TABLE tmp_debito AS + SELECT * + FROM ( + SELECT + pc.cod_estrutural + ,pa.cod_plano + ,vl.tipo_valor + ,vl.vl_lancamento + ,vl.cod_entidade + ,lo.cod_lote + ,lo.dt_lote + ,lo.exercicio + ,lo.tipo + ,vl.sequencia + ,vl.oid as oid_temp + FROM + contabilidade.plano_conta as pc + ,contabilidade.plano_analitica as pa + ,contabilidade.conta_debito as cd + ,contabilidade.valor_lancamento as vl + ,contabilidade.lancamento as la + ,contabilidade.lote as lo + WHERE pc.cod_conta = pa.cod_conta + AND pc.exercicio = pa.exercicio + AND pa.cod_plano = cd.cod_plano + AND pa.exercicio = cd.exercicio + AND cd.cod_lote = vl.cod_lote + AND cd.tipo = vl.tipo + AND cd.sequencia = vl.sequencia + AND cd.exercicio = vl.exercicio + AND cd.tipo_valor = vl.tipo_valor + AND cd.cod_entidade = vl.cod_entidade + AND vl.cod_lote = la.cod_lote + AND vl.tipo = la.tipo + AND vl.sequencia = la.sequencia + AND vl.exercicio = la.exercicio + AND vl.cod_entidade = la.cod_entidade + AND vl.tipo_valor = ''D'' + AND la.cod_lote = lo.cod_lote + AND la.exercicio = lo.exercicio + AND la.tipo = lo.tipo + AND la.cod_entidade = lo.cod_entidade + AND pa.exercicio = ''' || stExercicio || ''' + ORDER BY pc.cod_estrutural + ) as tabela + WHERE + ' || stFiltro ; + EXECUTE stSql; + + stSql := 'CREATE TEMPORARY TABLE tmp_credito AS + SELECT * + FROM ( + SELECT + pc.cod_estrutural + ,pa.cod_plano + ,vl.tipo_valor + ,vl.vl_lancamento + ,vl.cod_entidade + ,lo.cod_lote + ,lo.dt_lote + ,lo.exercicio + ,lo.tipo + ,vl.sequencia + ,vl.oid as oid_temp + FROM + contabilidade.plano_conta as pc + ,contabilidade.plano_analitica as pa + ,contabilidade.conta_credito as cc + ,contabilidade.valor_lancamento as vl + ,contabilidade.lancamento as la + ,contabilidade.lote as lo + WHERE pc.cod_conta = pa.cod_conta + AND pc.exercicio = pa.exercicio + AND pa.cod_plano = cc.cod_plano + AND pa.exercicio = cc.exercicio + AND cc.cod_lote = vl.cod_lote + AND cc.tipo = vl.tipo + AND cc.sequencia = vl.sequencia + AND cc.exercicio = vl.exercicio + AND cc.tipo_valor = vl.tipo_valor + AND cc.cod_entidade = vl.cod_entidade + AND vl.cod_lote = la.cod_lote + AND vl.tipo = la.tipo + AND vl.sequencia = la.sequencia + AND vl.exercicio = la.exercicio + AND vl.cod_entidade = la.cod_entidade + AND vl.tipo_valor = ''C'' + AND la.cod_lote = lo.cod_lote + AND la.exercicio = lo.exercicio + AND la.tipo = lo.tipo + AND la.cod_entidade = lo.cod_entidade + AND pa.exercicio = ''' || stExercicio || ''' + ORDER BY pc.cod_estrutural + ) as tabela + WHERE + ' || stFiltro ; + EXECUTE stSql; + + CREATE UNIQUE INDEX unq_debito ON tmp_debito (cod_estrutural varchar_pattern_ops, oid_temp); + CREATE UNIQUE INDEX unq_credito ON tmp_credito (cod_estrutural varchar_pattern_ops, oid_temp); + + CREATE TEMPORARY TABLE tmp_totaliza_debito AS + SELECT * + FROM tmp_debito + WHERE dt_lote BETWEEN to_date( stDtInicial , 'dd/mm/yyyy' ) AND to_date( stDtFinal , 'dd/mm/yyyy' ) + AND tipo <> 'I'; + + CREATE TEMPORARY TABLE tmp_totaliza_credito AS + SELECT * + FROM tmp_credito + WHERE dt_lote BETWEEN to_date( stDtInicial , 'dd/mm/yyyy' ) AND to_date( stDtFinal , 'dd/mm/yyyy' ) + AND tipo <> 'I'; + + CREATE UNIQUE INDEX unq_totaliza_credito ON tmp_totaliza_credito (cod_estrutural varchar_pattern_ops, oid_temp); + CREATE UNIQUE INDEX unq_totaliza_debito ON tmp_totaliza_debito (cod_estrutural varchar_pattern_ops, oid_temp); + + IF substr(stDtInicial,1,5) = '01/01' THEN + stSqlComplemento := ' dt_lote = to_date( ''' || stDtInicial || ''',''dd/mm/yyyy'') '; + stSqlComplemento := stSqlComplemento || ' AND tipo = ''I'' '; + ELSE + stSqlComplemento := ' dt_lote <= to_date( ''' || stDtInicial || ''',''dd/mm/yyyy'')-1 '; + END IF; + + stSql := 'CREATE TEMPORARY TABLE tmp_totaliza AS + SELECT * FROM tmp_debito + WHERE + ' || stSqlComplemento || ' + UNION + SELECT * FROM tmp_credito + WHERE + ' || stSqlComplemento || ' + '; + EXECUTE stSql; + + CREATE UNIQUE INDEX unq_totaliza ON tmp_totaliza (cod_estrutural varchar_pattern_ops, oid_temp); + + stSql := ' SELECT + pc.cod_estrutural + ,publico.fn_nivel(pc.cod_estrutural) as nivel + ,pc.nom_conta + ,org.num_orgao + ,ou.num_unidade + ,0.00 as vl_saldo_anterior + ,0.00 as vl_saldo_debitos + ,0.00 as vl_saldo_creditos + ,0.00 as vl_saldo_atual + ,sc.nom_sistema + ,ba.tipo_lancamento + FROM contabilidade.plano_conta as pc + JOIN contabilidade.sistema_contabil as sc + ON pc.cod_sistema = sc.cod_sistema + AND pc.exercicio = sc.exercicio + JOIN contabilidade.plano_analitica as c_pa + ON c_pa.cod_conta = pc.cod_conta + AND c_pa.exercicio = pc.exercicio + JOIN tcmgo.orgao_plano_banco as org + ON org.exercicio = c_pa.exercicio + AND org.cod_plano = c_pa.cod_plano + LEFT JOIN tcmgo.balanco_afraaaa as ba + ON ba.cod_plano = c_pa.cod_plano + AND ba.exercicio = c_pa.exercicio + JOIN orcamento.unidade as ou + ON org.exercicio = ou.exercicio + AND org.num_orgao = ou.num_orgao + + WHERE pc.exercicio = ''' || stExercicio || ''' + + ORDER BY sc.nom_sistema, pc.cod_estrutural + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + arRetorno := contabilidade.fn_totaliza_balancete_verificacao( publico.fn_mascarareduzida(reRegistro.cod_estrutural) , stDtInicial, stDtFinal); + reRegistro.vl_saldo_anterior := arRetorno[1]; + reRegistro.vl_saldo_debitos := arRetorno[2]; + reRegistro.vl_saldo_creditos := arRetorno[3]; + reRegistro.vl_saldo_atual := arRetorno[4]; + IF ( reRegistro.vl_saldo_anterior <> 0.00 ) OR + ( reRegistro.vl_saldo_debitos <> 0.00 ) OR + ( reRegistro.vl_saldo_creditos <> 0.00 ) + THEN + RETURN NEXT reRegistro; + END IF; + END LOOP; + + DROP INDEX unq_totaliza; + DROP INDEX unq_totaliza_debito; + DROP INDEX unq_totaliza_credito; + DROP INDEX unq_debito; + DROP INDEX unq_credito; + + DROP TABLE tmp_totaliza; + DROP TABLE tmp_debito; + DROP TABLE tmp_credito; + DROP TABLE tmp_totaliza_debito; + DROP TABLE tmp_totaliza_credito; + + RETURN; +END; +$$ LANGUAGE 'plpgsql' diff --git a/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao11.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao11.plsql new file mode 100644 index 0000000..c1b463f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao11.plsql @@ -0,0 +1,268 @@ +/* + ********************************************************************************** + * * + * @package URBEM CNM - Soluções em Gestão Pública * + * @copyright (c) 2013 Confederação Nacional de Municípos * + * @author Confederação Nacional de Municípios * + * * + * O URBEM CNM é um software livre; você pode redistribuí-lo e/ou modificá-lo sob * + * os termos da Licença Pública Geral GNU conforme publicada pela Fundação do * + * Software Livre (FSF - Free Software Foundation); na versão 2 da Licença. * + * * + * Este programa é distribuído na expectativa de que seja útil, porém, * + * SEM NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU * + * ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral do GNU * + * para mais detalhes. * + * * + * Você deve ter recebido uma cópia da Licença Pública Geral do GNU "LICENCA.txt" * + * com este programa; se não, escreva para a Free Software Foundation Inc., * + * no endereço 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * + * * + ********************************************************************************** +*/ +/* +* Script de função PLPGSQL +* +* URBEM Soluções de Gestão Pública Ltda +* www.urbem.cnm.org.br +* +* $Revision: 59612 $ +* $Name$ +* $Author: gelson $ +* $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ +* +* Casos de uso: uc-02.02.11 +*/ + +CREATE OR REPLACE FUNCTION tcmgo.arquivo_afr_exportacao11 (varchar, varchar, varchar, varchar, bpchar) RETURNS SETOF RECORD AS $$ +DECLARE + stExercicio ALIAS FOR $1; + stFiltro ALIAS FOR $2; + stDtInicial ALIAS FOR $3; + stDtFinal ALIAS FOR $4; + chEstilo ALIAS FOR $5; + stSql VARCHAR := ''; + stSqlComplemento VARCHAR := ''; + reRegistro RECORD; + arRetorno NUMERIC[]; + +BEGIN + + stSql := 'CREATE TEMPORARY TABLE tmp_debito AS + SELECT * + FROM ( + SELECT + pc.cod_estrutural + ,pa.cod_plano + ,vl.tipo_valor + ,vl.vl_lancamento + ,vl.cod_entidade + ,lo.cod_lote + ,lo.dt_lote + ,lo.exercicio + ,lo.tipo + ,vl.sequencia + ,vl.oid as oid_temp + FROM + contabilidade.plano_conta as pc + ,contabilidade.plano_analitica as pa + ,contabilidade.conta_debito as cd + ,contabilidade.valor_lancamento as vl + ,contabilidade.lancamento as la + ,contabilidade.lote as lo + WHERE pc.cod_conta = pa.cod_conta + AND pc.exercicio = pa.exercicio + AND pa.cod_plano = cd.cod_plano + AND pa.exercicio = cd.exercicio + AND cd.cod_lote = vl.cod_lote + AND cd.tipo = vl.tipo + AND cd.sequencia = vl.sequencia + AND cd.exercicio = vl.exercicio + AND cd.tipo_valor = vl.tipo_valor + AND cd.cod_entidade = vl.cod_entidade + AND vl.cod_lote = la.cod_lote + AND vl.tipo = la.tipo + AND vl.sequencia = la.sequencia + AND vl.exercicio = la.exercicio + AND vl.cod_entidade = la.cod_entidade + AND vl.tipo_valor = ''D'' + AND la.cod_lote = lo.cod_lote + AND la.exercicio = lo.exercicio + AND la.tipo = lo.tipo + AND la.cod_entidade = lo.cod_entidade + AND pa.exercicio = ''' || stExercicio || ''' + ORDER BY pc.cod_estrutural + ) as tabela + WHERE + ' || stFiltro ; + EXECUTE stSql; + + stSql := 'CREATE TEMPORARY TABLE tmp_credito AS + SELECT * + FROM ( + SELECT + pc.cod_estrutural + ,pa.cod_plano + ,vl.tipo_valor + ,vl.vl_lancamento + ,vl.cod_entidade + ,lo.cod_lote + ,lo.dt_lote + ,lo.exercicio + ,lo.tipo + ,vl.sequencia + ,vl.oid as oid_temp + FROM + contabilidade.plano_conta as pc + ,contabilidade.plano_analitica as pa + ,contabilidade.conta_credito as cc + ,contabilidade.valor_lancamento as vl + ,contabilidade.lancamento as la + ,contabilidade.lote as lo + WHERE pc.cod_conta = pa.cod_conta + AND pc.exercicio = pa.exercicio + AND pa.cod_plano = cc.cod_plano + AND pa.exercicio = cc.exercicio + AND cc.cod_lote = vl.cod_lote + AND cc.tipo = vl.tipo + AND cc.sequencia = vl.sequencia + AND cc.exercicio = vl.exercicio + AND cc.tipo_valor = vl.tipo_valor + AND cc.cod_entidade = vl.cod_entidade + AND vl.cod_lote = la.cod_lote + AND vl.tipo = la.tipo + AND vl.sequencia = la.sequencia + AND vl.exercicio = la.exercicio + AND vl.cod_entidade = la.cod_entidade + AND vl.tipo_valor = ''C'' + AND la.cod_lote = lo.cod_lote + AND la.exercicio = lo.exercicio + AND la.tipo = lo.tipo + AND la.cod_entidade = lo.cod_entidade + AND pa.exercicio = ''' || stExercicio || ''' + ORDER BY pc.cod_estrutural + ) as tabela + WHERE + ' || stFiltro ; + EXECUTE stSql; + + CREATE UNIQUE INDEX unq_debito ON tmp_debito (cod_estrutural varchar_pattern_ops, oid_temp); + CREATE UNIQUE INDEX unq_credito ON tmp_credito (cod_estrutural varchar_pattern_ops, oid_temp); + + CREATE TEMPORARY TABLE tmp_totaliza_debito AS + SELECT * + FROM tmp_debito + WHERE dt_lote BETWEEN to_date( stDtInicial , 'dd/mm/yyyy' ) AND to_date( stDtFinal , 'dd/mm/yyyy' ) + AND tipo <> 'I'; + + CREATE TEMPORARY TABLE tmp_totaliza_credito AS + SELECT * + FROM tmp_credito + WHERE dt_lote BETWEEN to_date( stDtInicial , 'dd/mm/yyyy' ) AND to_date( stDtFinal , 'dd/mm/yyyy' ) + AND tipo <> 'I'; + + CREATE UNIQUE INDEX unq_totaliza_credito ON tmp_totaliza_credito (cod_estrutural varchar_pattern_ops, oid_temp); + CREATE UNIQUE INDEX unq_totaliza_debito ON tmp_totaliza_debito (cod_estrutural varchar_pattern_ops, oid_temp); + + IF substr(stDtInicial,1,5) = '01/01' THEN + stSqlComplemento := ' dt_lote = to_date( ''' || stDtInicial || ''',''dd/mm/yyyy'') '; + stSqlComplemento := stSqlComplemento || ' AND tipo = ''I'' '; + ELSE + stSqlComplemento := ' dt_lote <= to_date( ''' || stDtInicial || ''',''dd/mm/yyyy'')-1 '; + END IF; + + stSql := 'CREATE TEMPORARY TABLE tmp_totaliza AS + SELECT * FROM tmp_debito + WHERE + ' || stSqlComplemento || ' + UNION + SELECT * FROM tmp_credito + WHERE + ' || stSqlComplemento || ' + '; + EXECUTE stSql; + + CREATE UNIQUE INDEX unq_totaliza ON tmp_totaliza (cod_estrutural varchar_pattern_ops, oid_temp); + + stSql := ' SELECT + pc.cod_estrutural + ,publico.fn_nivel(pc.cod_estrutural) as nivel + ,pc.nom_conta + ,org.num_orgao + ,ou.num_unidade + ,0.00 as vl_saldo_anterior + ,0.00 as vl_saldo_debitos + ,0.00 as vl_saldo_creditos + ,0.00 as vl_saldo_atual + ,sc.nom_sistema + ,ba.tipo_lancamento + ,recurso.cod_fonte + FROM contabilidade.plano_conta as pc + + JOIN contabilidade.sistema_contabil as sc + ON pc.cod_sistema = sc.cod_sistema + AND pc.exercicio = sc.exercicio + + JOIN contabilidade.plano_analitica as c_pa + ON c_pa.cod_conta = pc.cod_conta + AND c_pa.exercicio = pc.exercicio + + JOIN tcmgo.orgao_plano_banco as org + ON org.exercicio = c_pa.exercicio + AND org.cod_plano = c_pa.cod_plano + + LEFT JOIN tcmgo.balanco_afraaaa as ba + ON ba.cod_plano = c_pa.cod_plano + AND ba.exercicio = c_pa.exercicio + + JOIN orcamento.unidade as ou + ON org.exercicio = ou.exercicio + AND org.num_orgao = ou.num_orgao + + JOIN contabilidade.plano_analitica + ON plano_analitica.exercicio = pc.exercicio + AND plano_analitica.cod_conta = pc.cod_conta + + JOIN contabilidade.plano_recurso + ON plano_recurso.exercicio = plano_analitica.exercicio + AND plano_recurso.cod_plano = plano_analitica.cod_plano + + JOIN orcamento.recurso + ON recurso.exercicio = plano_recurso.exercicio + AND recurso.cod_recurso = plano_recurso.cod_recurso + + WHERE pc.exercicio = ''' || stExercicio || ''' + + ORDER BY sc.nom_sistema, pc.cod_estrutural + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + arRetorno := contabilidade.fn_totaliza_balancete_verificacao( publico.fn_mascarareduzida(reRegistro.cod_estrutural) , stDtInicial, stDtFinal); + reRegistro.vl_saldo_anterior := arRetorno[1]; + reRegistro.vl_saldo_debitos := arRetorno[2]; + reRegistro.vl_saldo_creditos := arRetorno[3]; + reRegistro.vl_saldo_atual := arRetorno[4]; + IF ( reRegistro.vl_saldo_anterior <> 0.00 ) OR + ( reRegistro.vl_saldo_debitos <> 0.00 ) OR + ( reRegistro.vl_saldo_creditos <> 0.00 ) + THEN + RETURN NEXT reRegistro; + END IF; + END LOOP; + + DROP INDEX unq_totaliza; + DROP INDEX unq_totaliza_debito; + DROP INDEX unq_totaliza_credito; + DROP INDEX unq_debito; + DROP INDEX unq_credito; + + DROP TABLE tmp_totaliza; + DROP TABLE tmp_debito; + DROP TABLE tmp_credito; + DROP TABLE tmp_totaliza_debito; + DROP TABLE tmp_totaliza_credito; + + RETURN; +END; +$$ LANGUAGE 'plpgsql' diff --git a/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo2.rptdesign b/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo2.rptdesign index b0a01f8..8dbf345 100644 --- a/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo2.rptdesign +++ b/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo2.rptdesign @@ -462,26 +462,28 @@ from ]]> 2012) { - this.queryText += " FROM stn.fn_rgf_anexo2_novo('"+params['exercicio']+"','"+params['tipo_periodo']+"',"+params['periodo']+",'"+params['entidade']+"') AS tbl "; + this.queryText += " FROM stn.fn_rgf_anexo2_novo('"+params['exercicio']+"','"+params['tipo_periodo']+"',"+params['periodo']+",'"+params['entidade']+"') AS tbl \n"; } else { - this.queryText += " FROM stn.fn_rgf_anexo2('"+params['exercicio']+"','"+params['tipo_periodo']+"',"+params['periodo']+",'"+params['entidade']+"') AS tbl "; + this.queryText += " FROM stn.fn_rgf_anexo2('"+params['exercicio']+"','"+params['tipo_periodo']+"',"+params['periodo']+",'"+params['entidade']+"') AS tbl \n"; } -this.queryText += " ( descricao varchar "; -this.queryText += " , ordem integer "; -this.queryText += " , valor_exercicio_anterior numeric "; -this.queryText += " , valor_quadrimestre_1 numeric "; -this.queryText += " , valor_quadrimestre_2 numeric "; -this.queryText += " , valor_quadrimestre_3 numeric "; -this.queryText += " , nivel integer "; -this.queryText += " ) ";]]> +this.queryText += " ( descricao varchar \n"; +this.queryText += " , ordem integer \n"; +this.queryText += " , valor_exercicio_anterior numeric \n"; +this.queryText += " , valor_quadrimestre_1 numeric \n"; +this.queryText += " , valor_quadrimestre_2 numeric \n"; +this.queryText += " , valor_quadrimestre_3 numeric \n"; +this.queryText += " , nivel integer \n"; +this.queryText += " ) \n"; + +//params['query'] = this.queryText;]]> postgres diff --git a/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo5Novo.rptdesign b/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo5Novo.rptdesign index 09882ff..51789fb 100644 --- a/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo5Novo.rptdesign +++ b/gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo5Novo.rptdesign @@ -1,9 +1,9 @@ - + Bruce Cruz de Sena - Eclipse BIRT Designer Version 2.5.0.v20090603 Build <2.5.0.v20090617-0630> - mm Copyright (c) 2006 <<CNM - Confederacao Nacional de Municipios>> + Eclipse BIRT Designer Version 4.4.0.v201405191524 Build <4.4.0.v20140606-1451> + mm fixed layout @@ -15,9 +15,9 @@ static string + true simple text-box - true Unformatted @@ -27,10 +27,10 @@ static false string + true simple false text-box - true 1 Unformatted @@ -149,9 +149,9 @@ static false string + true simple text-box - true Unformatted @@ -160,9 +160,9 @@ static false decimal + true simple text-box - true Unformatted @@ -175,9 +175,9 @@ static false string + true simple text-box - true Unformatted @@ -186,9 +186,9 @@ static false string + true simple text-box - true Unformatted @@ -197,9 +197,9 @@ static false string + true simple text-box - true Unformatted @@ -208,9 +208,9 @@ static false string + true simple text-box - true Unformatted @@ -219,10 +219,10 @@ static false string + true simple true text-box - true Unformatted @@ -231,9 +231,9 @@ static false float + true simple text-box - true Unformatted @@ -242,9 +242,9 @@ static false string + true simple text-box - true Unformatted @@ -352,63 +352,97 @@ extensionProperties.odaPassword = params["db_password"].value; ]]> - - - param_1 - exercicio - string - 1 - true - false - - - param_2 - data_inicio - string - 2 - true - false - - - param_3 - data_fim - string - 3 - true - false - - - param_4 - cod_entidade - string - 4 - true - false - - + Data Source - + + @@ -545,6 +579,7 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> + bottom sans-serif 7pt @@ -571,8 +606,9 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> saldo_bruto_vinculados - dataSetRow["caixa"] + dataSetRow["disponibilidade_caixa_bruta"] decimal + true total_vinculado @@ -595,13 +631,15 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> obrigacoes - (dataSetRow["a_pagar_exercicio"] + dataSetRow["a_pagar_exercicio_anteriores"] + dataSetRow["consignacoes"])*(-1); + dataSetRow["obrigacoes_financeiras"] decimal + true caixa_liquida - row["saldo_bruto_vinculados"] - row["obrigacoes"] + dataSetRow["disponibilidade_liquida"] decimal + true total_caixa_liquida @@ -649,16 +687,6 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> row["total_III"] - row["total_obrigacoes_III"] decimal - - consignacoes - dataSetRow["consignacoes"] - decimal - - - teste - Total.sum(row["obrigacoes"]) + Total.sum(dataSetRow["consignacoes"]) - decimal - 73.55416666666667mm @@ -674,7 +702,6 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]>
- 12.170833333333333mm #000000 solid 1px @@ -682,6 +709,7 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> solid 1px middle + 12.170833333333333mm 7pt @@ -827,7 +855,6 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> - 3.96875mm //} ]]> + 3.96875mm #000000 solid @@ -904,10 +932,10 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]>