From c85301ef37238e643cb72ec05f6f1f5d8117cb2b Mon Sep 17 00:00:00 2001 From: Gelson Date: Wed, 4 Mar 2015 08:32:37 -0300 Subject: [PATCH] Atualização --- atualizador.sh | 3 ++- gestaoAdministrativa/fontes/PHP/administracao/administracao/usuarios/interfaceUsuario.class.php | 8 ++++---- gestaoAdministrativa/fontes/PHP/administracao/classes/negocio/RCadastroDinamico.class.php | 6 +++--- gestaoAdministrativa/fontes/PHP/framework/URBEM/SistemaLegado.class.php | 27 +++++++++++++++++++++++++++ gestaoAdministrativa/fontes/PHP/framework/bancoDados/postgreSQL/Conexao.class.php | 12 ++++++------ gestaoAdministrativa/fontes/PHP/framework/birt/classes/PreviewBirt.class.php | 14 +++++++++----- gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportador.class.php | 6 +++++- gestaoAdministrativa/fontes/PHP/framework/legado/imagens/copiaDigitalLegado.php | 52 +++++++++++++++++++++++++++++++++------------------- gestaoAdministrativa/fontes/PHP/framework/legado/processosLegado.class.php | 35 ++++++++++++++++++++++++----------- gestaoAdministrativa/fontes/PHP/framework/temas/padrao/imagens/PMMP.jpg | Bin 0 -> 1643 bytes gestaoAdministrativa/fontes/PHP/normas/classes/mapeamento/TNorma.class.php | 31 ++++++++++++++++++++++++++++--- gestaoAdministrativa/fontes/PHP/normas/classes/negocio/RNorma.class.php | 53 ++++++++++++++++++++++++++++++++++++----------------- gestaoAdministrativa/fontes/PHP/normas/instancias/norma/FMManterNorma.php | 5 ++++- gestaoAdministrativa/fontes/PHP/normas/instancias/norma/PRManterNorma.php | 23 ++++++++--------------- gestaoAdministrativa/fontes/PHP/pacotes/GPC.inc.php | 11 ++++++----- gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/IChkDocumentoProcesso.class.php | 134 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------- gestaoAdministrativa/fontes/PHP/protocolo/classes/componentes/JSIChkDocumentoProcesso.js | 17 +++++++++++++---- gestaoAdministrativa/fontes/PHP/protocolo/classes/mapeamento/TClassificacao.class.php | 18 +++++++++--------- gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/FMManterAssunto.php | 33 +++++++++++++++++++++++++++++++++ gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/PRManterAssunto.php | 63 ++++++++++++++++++++++++++++++++++++++++++++------------------- gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/FMManterClassificacao.php | 104 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/LSManterClassificacao.php | 100 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/PRManterClassificacao.php | 126 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/FMDocumentoProcesso.php | 38 +++++++++++++++++++++++++------------- gestaoAdministrativa/fontes/PHP/protocolo/popups/documento/PRDocumentoProcesso.php | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/configuracao/configuracaoProtocolo.php | 37 ++++++++++++++++++++++++++++++++++++- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php | 5 ++++- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/PRManterProcesso.php | 3 +-- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/arquivaProcesso.php | 4 ++-- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/consultaProcesso.php | 32 ++++++++++++++++++++++++++++++-- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php | 9 +++++---- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/interfaceProcessos.class.php | 11 +++++++++-- gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/reciboProcesso.php | 4 ++-- gestaoAdministrativa/fontes/SQL/GA_2036.sql | 244 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoAdministrativa/fontes/SQL/GA_2037.sql | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php | 86 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++- gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCBalancoOrcamentario.php | 4 ++-- gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioBalancoFinanceiro.php | 2 +- gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoMutPatrimonioLiquido.php | 2 +- gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemoVariacoesPatrimoniais.php | 2 +- gestaoFinanceira/fontes/PHP/contabilidade/instancias/relatorio/OCGeraRelatorioDemostrativoFluxoCaixa.php | 2 +- gestaoFinanceira/fontes/PHP/contabilidade/popups/planoConta/LSPlanoConta.php | 4 ++-- gestaoFinanceira/fontes/PHP/empenho/classes/mapeamento/TEmpenhoEmpenho.class.php | 120 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------- gestaoFinanceira/fontes/PHP/empenho/instancias/adiantamentos/OCGeraNotaPrestacaoContas.php | 2 +- gestaoFinanceira/fontes/PHP/empenho/instancias/empenho/FMConsultarEmpenho.php | 14 +++++++++++++- gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php | 4 ++-- gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php | 14 +++++--------- gestaoFinanceira/fontes/PHP/empenho/popups/empenho/OCProcurarEmpenho.php | 5 +++-- gestaoFinanceira/fontes/PHP/ldo/classes/mapeamento/TLDOHomologacao.class.php | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php | 5 ++--- gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoPrevisaoReceita.class.php | 6 ++++++ gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoReceita.class.php | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------ gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasDespesa.js | 8 ++++++++ gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/JSMetasReceita.js | 8 ++++++++ gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasDespesa.php | 1 + gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/LSMetasReceita.php | 9 ++++++++- gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRMetasDespesa.php | 24 ++++++++++++++---------- gestaoFinanceira/fontes/PHP/orcamento/instancias/elaboracaoOrcamento/PRMetasReceita.php | 27 +++++++++++++++++---------- gestaoFinanceira/fontes/PHP/orcamento/instancias/processamento/OCReceita.php | 28 ++++++++++++++++++++++++++-- gestaoFinanceira/fontes/PHP/orcamento/popups/despesa/LSDespesa.php | 4 ++-- gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPA.class.php | 42 ++++++++++++++++++++++++++++++++++++++++++ gestaoFinanceira/fontes/PHP/ppa/classes/mapeamento/TPPAAcao.class.php | 4 ++++ gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaUsuarioTerminal.class.php | 29 +++++++++++++++++++++++++++++ gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaImpressoraCheque.class.php | 43 ++++++++++++++++++++++++++++++++++--------- gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/FMVincularImpressoraCheque.php | 13 +++++++++++-- gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/PRVincularImpressoraCheque.php | 14 ++++++-------- gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php | 15 ++++++++++++--- gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/PRReciboDespesaExtra.php | 8 ++++++-- gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php | 13 +++++++++++-- gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/PRReciboReceitaExtra.php | 6 +++++- gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosExtras.php | 4 ++-- gestaoFinanceira/fontes/PHP/tesouraria/instancias/relatorio/OCGeraRelacaoPagamentosOrcamentarios.php | 14 +++++++------- gestaoFinanceira/fontes/PLPGSQL/contabilidade/insereLancamentoDepreciacao.plsql | 202 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------- gestaoFinanceira/fontes/PLPGSQL/empenho/saldoDotacao.plsql | 1 + gestaoFinanceira/fontes/RPT/ppa/report/design/despesaFonteRecurso.rptdesign | 749 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoDespesaExtra.rptdesign | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------- gestaoFinanceira/fontes/RPT/tesouraria/report/design/relacaoReceitaExtra.rptdesign | 16 +++++----------- gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoAlmoxarifado.class.php | 67 +------------------------------------------------------------------ gestaoPatrimonial/fontes/PHP/almoxarifado/classes/negocio/RAlmoxarifadoLocalizacao.class.php | 104 +++++++++++++++++++++++++++++++------------------------------------------------------------------------- gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/FMManterAlmoxarifado.php | 56 +------------------------------------------------------- gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/LSManterAlmoxarifado.php | 8 ++------ gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/almoxarifado/PRManterAlmoxarifado.php | 22 +--------------------- gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/FMManterLocalizacao.php | 85 +++++++++++++++++++++++++++++++++++++++++++------------------------------------------ gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/OCManterLocalizacao.php | 93 +++++++++++++++++++++++++++++++++++++-------------------------------------------------------- gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/localizacao/PRManterLocalizacao.php | 163 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------------------------------------------------------------------- gestaoPatrimonial/fontes/PHP/almoxarifado/instancias/saida/OCGeraMovimentacaoDiversa.php | 2 +- gestaoPatrimonial/fontes/PHP/compras/classes/mapeamento/TComprasCompraDiretaHomologacao.class.php | 1 + gestaoPatrimonial/fontes/PHP/compras/instancias/compraDireta/OCManterHomologacao.php | 5 +++-- gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/FMManterAditivoContrato.php | 4 ++-- gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/LSManterAditivoContrato.php | 28 ++++++++++++++-------------- gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/PRManterAditivoContrato.php | 6 ++---- gestaoPatrimonial/fontes/PHP/compras/instancias/solicitacaoCompra/FMManterSolicitacaoCompra.php | 11 ++++++++--- gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaTipoVeiculo.class.php | 39 ++++++++++++++++++++++++++++++++++++++- gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaVeiculoLocacao.class.php | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php | 4 ++-- gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioManutencao.php | 4 ++-- gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/FMManterVeiculo.php | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--- gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/OCManterVeiculo.php | 506 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------- gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/PRManterVeiculo.php | 158 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++- gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php | 14 +++----------- gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoLicitacao.class.php | 142 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------ gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoPublicacaoContratoAditivos.class.php | 7 ++----- gestaoPatrimonial/fontes/PHP/licitacao/instancias/homologacao/FMManterHomologacao.php | 6 +++--- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FLManterManutencaoParticipante.php | 116 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FMManterManutencaoParticipante.php | 31 ++++++++++++++++--------------- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterManutencaoParticipante.php | 230 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterProcessoLicitatorio.php | 5 ++--- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterJulgamentoProposta.php | 10 +++++----- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCGeraManterManutencaoProposta.php | 2 +- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterManutencaoParticipante.php | 73 ++++++++++++++++++++++++++++++++++++++++++++++++------------------------- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php | 58 ++++++++++++++++++++++++++++++++-------------------------- gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/PRManterProcessoLicitatorio.php | 96 ++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------ gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBem.class.php | 22 +++++++++++++++++++++- gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemComprado.class.php | 3 ++- gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemPlanoDepreciacao.class.php | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---- gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemProcesso.class.php | 47 +++++++++++++++++++++++++++++++++++++++++++++++ gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacao.class.php | 9 +++++++++ gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioDepreciacaoAnulada.class.php | 21 ++++++++++++++++++++- gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioGrupo.class.php | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterBem.php | 11 ++++++++++- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FLManterTransferirBem.php | 19 ++++++++++++++++++- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterBem.php | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------ gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterConsultarBem.php | 23 ++++++++++++++++++++++- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php | 52 +++++++++++++++++++++++++++++++++++++++------------- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/OCManterBem.php | 36 +++++++++++++++++++++++++++++++++++- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRDepreciacaoAutomatica.php | 42 +++++++++++++++++++----------------------- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRLancamentoContabilDepreciacao.php | 4 ++-- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php | 208 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterTransferirBem.php | 111 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------ gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/FMManterGrupo.php | 10 ++++++++-- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/configuracao/PRManterGrupo.php | 49 ++++++++++++++++++++++++++++++++++--------------- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/inventario/OCGeraAberturaEncerramentoInventario.php | 2 +- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioBemEntidade.php | 4 +++- gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioPatrimonial.php | 2 +- gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql | 45 ++++++++++++++++++++++++++------------------- gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_anulacao.plsql | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql | 120 +++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------- gestaoPatrimonial/fontes/RPT/almoxarifado/report/design/saidaDiversa.rptdesign | 5 ----- gestaoPatrimonial/fontes/RPT/patrimonio/report/design/termoResponsabilidade.rptdesign | 30 ++++++++++++++++-------------- gestaoPatrimonial/fontes/SQL/GP_2036.sql | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPatrimonial/fontes/SQL/GP_2037.sql | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/SIOPE_SIOPS/instancias/relatorio/OCGeraDespesasSIOPE.php | 4 ++-- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo1.php | 10 +++++----- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo2.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo3.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo4.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo5.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo6.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRGFAnexo7.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo1.php | 14 +++++++------- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo10.php | 4 ++-- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo11.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo13.php | 4 ++-- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo14.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo16.php | 16 ++++++++-------- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo18.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo2.php | 10 +++++----- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo3.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo5.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo6.php | 12 ++++++------ gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo7.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo8.php | 6 +++--- gestaoPrestacaoContas/fontes/PHP/STN/instancias/relatorios/OCGeraRREOAnexo9.php | 10 +++++----- gestaoPrestacaoContas/fontes/PHP/TCEAL/classes/mapeamento/TTCEALAtivoPermanente.class.php | 52 ++++++++++++++++++++++++++++++++-------------------- gestaoPrestacaoContas/fontes/PHP/TCEAL/instancias/exportacao/ativoPermanente.inc.php | 48 ++++++++++++++++++++++++------------------------ gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/controle/CTCEMGExportacao.class.php | 1 + gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAMP.class.php | 38 +++++++++++++++++++++++++++++++++++++- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGAOC.class.php | 234 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGCTB.class.php | 698 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoEMP.class.php | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoOrgao.class.php | 150 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------ gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGDemostrativoOpCredito.class.php | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGEMP.class.php | 70 +++++++++++++++++++++++++++++++++++++++++++++++----------------------- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGExtraOrcamentarias.class.php | 133 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php | 9 +++++---- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRegistrosArquivoPrograma.class.php | 33 +++++++++++++++++---------------- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGRestosPagar.class.php | 2 +- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGExportacaoArquivosPlanejamento.class.php | 22 ++++++++++++++-------- gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/negocio/RTCEMGRelatorioDespesaTotalPessoal.class.php | 27 ++++++++++++++++++++------- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/FMManterConfiguracaoEMP.php | 191 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/JSManterConfiguracaoEMP.js | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/OCManterConfiguracaoEMP.php | 450 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/PRManterConfiguracaoEMP.php | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/OCExportarArquivosPlanejamento.php | 4 ++-- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/demonstrativoOpCredito.inc.php | 114 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/obsMetaArrecadacao.inc.php | 2 ++ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/AOC.csv.inc.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CTB.csv.inc.php | 204 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/CVC.csv.inc.php | 13 ++++++++----- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/EXT.csv.inc.php | 17 ++++++++--------- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/NTF.csv.inc.php | 17 +++++++++++------ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/ORGAO.csv.inc.php | 31 +++++++++++++++++++------------ gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/RSP.csv.inc.php | 10 +++++----- gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/relatorios/OCGeraRelatorioDemonstrativoPessoal.php | 4 ++-- gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNCategoriaVeiculoTCE.class.php | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNEspecieVeiculoTCE.class.php | 47 +++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoTCE.class.php | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoVinculo.class.php | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNVeiculoCategoriaVinculo.class.php | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTRNAnexo28.class.php | 332 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/FMManterVinculoTipoVeiculo.php | 140 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/OCManterVinculoTipoVeiculo.php | 105 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/PRManterVinculoTipoVeiculo.php | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/ANEXO28.inc.php | 194 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/FLManterExportacao.php | 2 +- gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php | 108 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------- gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoTCERSExportacaoBalanceteReceita.class.php | 55 ++++++++++++++++++++++++++++--------------------------- gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/TTCERSContratosLiquidacao.class.php | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERS/classes/negocio/RExportacaoTCERSArquivosPrincipais.class.php | 54 +++++++++++++++++++++++++++++++++--------------------- gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/FMManterContratosLiquidacao.php | 184 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/JSManterContratosLiquidacao.js | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/OCManterContratosLiquidacao.php | 289 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/PRManterContratosLiquidacao.php | 105 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/FLExportacaoPrincipais.php | 4 ++-- gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSExportacaoPrincipais.js | 22 ++++++++++++++-------- gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSManterContratosLiquidacao.js | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/OCExportacaoPrincipais.php | 178 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/componentes/IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa.class.php | 100 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOArquivoProgramasPPA.class.php | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOConfiguracaoLOA.class.php | 143 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAFD.class.php | 515 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAMP.class.php | 192 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoDSP.class.php | 164 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoIDE.class.php | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoISI.class.php | 117 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoOrgao.class.php | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoUOC.class.php | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoFinanceiro.class.php | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++------ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteBem.class.php | 248 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteCreditos.class.php | 19 +++++++++++-------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisLDO.class.php | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisPPA.class.php | 207 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoUnidadeGestora.class.php | 82 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODDA.class.php | 152 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODividaFundada.class.php | 82 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHML.class.php | 619 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHabilitacaoLicitacao.class.php | 562 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOJulgamentoLicitacao.class.php | 444 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLDO.class.php | 185 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLNC.class.php | 24 ++++++++++++------------ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasArrecadacaoReceita.class.php | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasFiscaisLDO.class.php | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOParecerLicitacao.class.php | 157 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOPassivoFinanceiro.class.php | 203 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGORecita.class.php | 110 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacao.class.php | 480 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacaoDispensa.class.php | 478 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelTecnico.class.php | 183 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOTipoResponsavelTecnico.class.php | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOBLP.class.php | 239 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php | 614 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODSI.class.php | 1152 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPFR.class.php | 283 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPatrimonioBemObra.class.php | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOREP.class.php | 238 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++- gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOROP.class.php | 141 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasArrecadacaoReceita.php | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasFiscaisLDO.php | 97 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterDividaFundada.php | 103 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacao.php | 126 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacaoDispensa.php | 126 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterApcaaaa.php | 8 ++++---- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLOA.php | 124 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisLDO.php | 146 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisPPA.php | 182 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasArrecadacaoReceita.php | 184 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasFiscaisLDO.php | 169 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterDividaFundada.php | 277 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterObra.php | 21 +++++++++++---------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterProvedorSistema.php | 95 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacao.php | 241 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacaoDispensa.php | 241 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterTecnicoResponsavel.php | 204 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisLDO.js | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisPPA.js | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterDividaFundada.php | 167 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacao.php | 239 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacaoDispensa.php | 237 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterApcaaaa.php | 71 ++++++++++++++++++++++++++++++++++++++++++----------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLOA.php | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisLDO.php | 321 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisPPA.php | 366 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterDividaFundada.php | 5 +++-- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterObra.php | 72 +++++++++++++++++++++++++++++++++++++----------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacao.php | 93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacaoDispensa.php | 93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterTecnicoResponsavel.php | 304 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterApcaaaa.php | 48 ++++++++++++++++++++++++------------------------ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLOA.php | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisLDO.php | 143 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisPPA.php | 156 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasArrecadacaoReceita.php | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasFiscaisLDO.php | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterContaOrgao.php | 28 +++++++++++++++++++++++----- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterDividaFundada.php | 133 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterProvedorSistema.php | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacao.php | 127 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacaoDispensa.php | 127 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterTecnicoResponsavel.php | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFD.inc.php | 237 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/AFR.inc.php | 277 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------------------ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APB.inc.php | 179 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APC.inc.php | 35 ++++++++++++++++++++--------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/BLP.inc.php | 27 ++++++++++++++++++++++----- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DDA.inc.php | 221 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php | 787 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DSI.inc.php | 26 +++++++++++--------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoBalanco.php | 7 ++++--- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoOrcamento.php | 152 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HBL.inc.php | 407 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/HML.inc.php | 346 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ISI.inc.php | 122 +++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/JGL.inc.php | 291 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoBalancete.php | 9 +++++---- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoOrcamento.php | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFD.inc.php | 246 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PFR.inc.php | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PPD.inc.php | 159 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/PRL.inc.php | 135 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/REP.inc.php | 39 ++++++++++++++++++++++++++++++++------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/ROP.inc.php | 180 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------------------------ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/RPL.inc.php | 294 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------- gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/index.php | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/AMP.inc.php | 182 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/DSP.inc.php | 208 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/IDE.inc.php | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ISI.inc.php | 142 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LDO.inc.php | 252 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LOC.inc.php | 164 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LPP.inc.php | 233 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ORGAO.inc.php | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/PRO.inc.php | 139 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/REC.inc.php | 171 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/UOC.inc.php | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/index.php | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2RPPS_novo_mensal.plsql | 4 ++-- gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo.plsql | 18 +++++++++--------- gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRGFAnexo2_novo_mensal.plsql | 4 ++-- gestaoPrestacaoContas/fontes/PLPGSQL/STN/relatorioRREOAnexo4_despesa.plsql | 35 ++++++++++++++++------------------- gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGArquivoEXTRegistro20.plsql | 470 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoal.plsql | 41 +++++++++++++++++++++++++---------------- gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/FTCEMGDespesaTotalPessoalEmpenhada.plsql | 17 +---------------- gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGContasCTB.plsql | 237 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGDemonstrativoOpCredito.plsql | 415 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGRecuperaPPAPrograma.plsql | 21 +++++++++++---------- gestaoPrestacaoContas/fontes/PLPGSQL/TCERS/exportacaoEmpenhoRS.plsql | 128 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------- gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/FTCMGORestosPagar.plsql | 1602 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOArquivoExportacaoOrcamentoRec.plsql | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpAtivo.plsql | 1073 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPassivo.plsql | 430 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPatrimonioLiquido.plsql | 1065 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGORecuperaPPAPrograma.plsql | 139 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/ativoPermanenteCreditos.plsql | 121 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/balancoPatrimonial.plsql | 273 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao10.plsql | 271 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao11.plsql | 268 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo2.rptdesign | 34 ++++++++++++++++++---------------- gestaoPrestacaoContas/fontes/RPT/STN/report/design/RGFAnexo5Novo.rptdesign | 140 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------- gestaoPrestacaoContas/fontes/RPT/STN/report/design/RREOAnexo2_2015.rptdesign | 160 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------- gestaoPrestacaoContas/fontes/RPT/STN/report/design/RREOAnexo4_2015.rptdesign | 2 +- gestaoPrestacaoContas/fontes/SQL/GPC_2036.sql | 614 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoPrestacaoContas/fontes/SQL/GPC_2037.sql | 277 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoRH/fontes/PHP/IMA/instancias/consignacao/FMEmprestimoBanrisulResumo.php | 7 +++++++ gestaoRH/fontes/PHP/IMA/instancias/consignacao/PREmprestimoBanrisulArquivo.php | 5 ++++- gestaoRH/fontes/PHP/IMA/instancias/rais/PRExportarRAIS.php | 4 ++-- gestaoRH/fontes/PHP/IMA/instancias/sefip/PRExportarSEFIP.php | 7 ++++--- gestaoRH/fontes/PHP/beneficios/instancias/planoSaude/LayoutArquivoUnimed.php | 71 +++++++++++++++++++++++++++++++++++++++++------------------------------ gestaoRH/fontes/PHP/beneficios/instancias/planoSaude/OCManterBeneficiario.php | 5 ++++- gestaoRH/fontes/PHP/beneficios/instancias/planoSaude/PRManterImportacaoMensal.php | 11 ++++++++++- gestaoRH/fontes/PHP/concurso/instancias/concurso/FMManterConcurso.php | 6 ++---- gestaoRH/fontes/PHP/diarias/instancias/relatorios/PRRelacaoDiarias.php | 2 +- gestaoRH/fontes/PHP/estagio/instancias/estagiarios/FMManterEstagiario.php | 6 +++--- gestaoRH/fontes/PHP/estagio/instancias/estagiarios/OCManterEstagiario.php | 11 +++++++---- gestaoRH/fontes/PHP/folhaPagamento/instancias/movimentacaoFinanceira/PRConsultarRegistroEvento.php | 14 +++++++------- gestaoRH/fontes/PHP/folhaPagamento/instancias/relatorio/OCGeraRelatorioContraCheque.php | 4 ++-- gestaoRH/fontes/PHP/pessoal/classes/mapeamento/TPessoalContratoServidor.class.php | 12 ++++++------ gestaoRH/fontes/PHP/pessoal/classes/negocio/RPessoalContratoServidor.class.php | 2 +- gestaoRH/fontes/PHP/pessoal/classes/negocio/RPessoalGeracaoAssentamento.class.php | 8 ++++---- gestaoRH/fontes/PHP/pessoal/classes/negocio/RPessoalServidor.class.php | 14 ++++++++++---- gestaoRH/fontes/PHP/pessoal/instancias/assentamento/FMManterGeracaoAssentamento.php | 19 ++++++++++++++----- gestaoRH/fontes/PHP/pessoal/instancias/assentamento/OCManterGeracaoAssentamento.php | 459 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- gestaoRH/fontes/PHP/pessoal/instancias/assentamento/PRManterGeracaoAssentamento.php | 300 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------------------------------------------------------------- gestaoRH/fontes/PHP/pessoal/instancias/causaRescisao/OCManterCausa.php | 12 ++++++++++++ gestaoRH/fontes/PHP/pessoal/instancias/causaRescisao/PRManterCausa.php | 144 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------- gestaoRH/fontes/PHP/pessoal/instancias/ferias/OCManterCadastroFerias.php | 4 ++-- gestaoRH/fontes/PHP/pessoal/instancias/servidor/FMManterServidor.php | 6 +++--- gestaoRH/fontes/PHP/pessoal/instancias/servidor/FMManterServidorAbaIdentificao.php | 77 ++++++++++++++++++++++++++++++++++++++++++++++++----------------------------- gestaoRH/fontes/PHP/pessoal/instancias/servidor/OCManterServidorAbaIdentificacao.php | 31 +++++++++++++++++++++---------- gestaoRH/fontes/PHP/pessoal/instancias/servidor/PRManterServidor.php | 28 +++++++++++++++------------- gestaoRH/fontes/PHP/ponto/classes/mapeamento/TPontoEscalaContrato.class.php | 2 +- gestaoRH/fontes/PHP/ponto/instancias/escalaHorario/FLManterVinculo.php | 2 +- gestaoRH/fontes/PLPGSQL/folhaPagamento/FolhaDecimo/mediaDecimoValorQuantidadeFixoAtualDeduzindo.plsql | 2 +- gestaoRH/fontes/PLPGSQL/folhaPagamento/FontesInternas/pega1QuantidadeAnosParaAnueniosProgressao.plsql | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoRH/fontes/RPT/diarias/report/design/relacaoDiarias.rptdesign | 2 +- gestaoRH/fontes/RPT/folhaPagamento/report/design/consultarRegistroEvento.rptdesign | 430 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ gestaoRH/fontes/SQL/GRH_2037.sql | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/PHP/arrecadacao/classes/boletos/RCarneDiversosMarianaPimentel.class.php | 25 ++++++++++++++++--------- gestaoTributaria/fontes/PHP/arrecadacao/classes/boletos/RCarneDividaMarianaPimentel.class.php | 224 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--------------------------------------------------------------------------------------- gestaoTributaria/fontes/PHP/arrecadacao/classes/mapeamento/FARRCalculaParcelasReemissao.class.php | 24 +++++++++++++++++++++++- gestaoTributaria/fontes/PHP/arrecadacao/classes/mapeamento/TARRLancamento.class.php | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++- gestaoTributaria/fontes/PHP/arrecadacao/classes/negocio/RARRCalculo.class.php | 11 ++--------- gestaoTributaria/fontes/PHP/arrecadacao/instancias/calculo/FMRelatorioExecucao.php | 12 +++++++----- gestaoTributaria/fontes/PHP/arrecadacao/instancias/calculo/LSManterLancamentoSituacao.php | 11 ++++++----- gestaoTributaria/fontes/PHP/arrecadacao/instancias/documentos/FLEmitirCarne.php | 125 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------- gestaoTributaria/fontes/PHP/arrecadacao/instancias/documentos/OCGeraEmissao.php | 10 +++++----- gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/FLRelatorioLancamentoAutomatico.php | 213 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/JSRelatorioLancamentoAutomatico.js | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/OCGeraRelatorioLancamentoAutomatico.php | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/OCGeraRelatorioResumoLote.php | 6 +++--- gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/OCGeraRelatorioValoresLancadosAnalitico.php | 20 ++++++++++---------- gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/OCRelatorioLancamentoAutomatico.php | 106 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/PHP/cadastroEconomico/anexos/alvara/alvara_autonomo.odt | Bin 41440 -> 0 bytes gestaoTributaria/fontes/PHP/cadastroEconomico/anexos/alvara/alvara_funcionamento.odt | Bin 34390 -> 0 bytes gestaoTributaria/fontes/PHP/dividaAtiva/classes/anexos/modelos_usuario/certidaoDividaMariana.odt | Bin 41513 -> 0 bytes gestaoTributaria/fontes/PHP/dividaAtiva/instancias/cobranca/LSManterCobrancaParcelas.php | 14 ++++++++------ gestaoTributaria/fontes/PHP/dividaAtiva/instancias/cobranca/OCGeraRelatorioSimulacaoCobranca.php | 70 ++++++++++++++++++++++++++++++++++++++++------------------------------ gestaoTributaria/fontes/PHP/dividaAtiva/instancias/cobranca/PRManterCobranca.php | 87 ++++++++++++++++++++++++++++++++++++++++++++------------------------------------------- gestaoTributaria/fontes/PHP/dividaAtiva/instancias/emissao/FMManterEmissao.php | 37 +++++++++++++++++++------------------ gestaoTributaria/fontes/PHP/dividaAtiva/instancias/relatorios/PRRelatorioDividaCancelada.php | 2 +- gestaoTributaria/fontes/PLPGSQL/arrecadacao/calculaProporcaoParcela.plsql | 6 +++--- gestaoTributaria/fontes/PLPGSQL/arrecadacao/calculaValoresParcelasCobranca.plsql | 175 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/PLPGSQL/arrecadacao/calculaValoresParcelasReemissao.plsql | 10 +++++----- gestaoTributaria/fontes/PLPGSQL/arrecadacao/fn_aplica_correcao.plsql | 37 +++++++++++++++++-------------------- gestaoTributaria/fontes/PLPGSQL/arrecadacao/fn_aplica_juro.plsql | 34 +++++++++++++++++----------------- gestaoTributaria/fontes/PLPGSQL/arrecadacao/fn_aplica_multa.plsql | 34 +++++++++++++++++----------------- gestaoTributaria/fontes/RPT/arrecadacao/MPDF/LHLancamentoAutomatico.php | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/RPT/arrecadacao/MPDF/index.php | 40 ++++++++++++++++++++++++++++++++++++++++ gestaoTributaria/fontes/RPT/arrecadacao/report/design/logCalculo.rptdesign | 22 +++++++++++++--------- gestaoTributaria/fontes/SQL/GT_2036.sql | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 429 files changed, 38145 insertions(+), 6540 deletions(-) create mode 100755 gestaoAdministrativa/fontes/PHP/framework/temas/padrao/imagens/PMMP.jpg create mode 100644 gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/FMManterClassificacao.php create mode 100644 gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/LSManterClassificacao.php create mode 100644 gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/PRManterClassificacao.php create mode 100644 gestaoAdministrativa/fontes/SQL/GA_2036.sql create mode 100644 gestaoAdministrativa/fontes/SQL/GA_2037.sql create mode 100644 gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaVeiculoLocacao.class.php create mode 100755 gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FLManterManutencaoParticipante.php create mode 100755 gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterManutencaoParticipante.php create mode 100644 gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemProcesso.class.php create mode 100755 gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_anulacao.plsql create mode 100644 gestaoPatrimonial/fontes/SQL/GP_2036.sql create mode 100644 gestaoPatrimonial/fontes/SQL/GP_2037.sql create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoEMP.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGDemostrativoOpCredito.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/FMManterConfiguracaoEMP.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/JSManterConfiguracaoEMP.js create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/OCManterConfiguracaoEMP.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/configuracao/PRManterConfiguracaoEMP.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/demonstrativoOpCredito.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNCategoriaVeiculoTCE.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNEspecieVeiculoTCE.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoTCE.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoVinculo.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNVeiculoCategoriaVinculo.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTRNAnexo28.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/FMManterVinculoTipoVeiculo.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/OCManterVinculoTipoVeiculo.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/PRManterVinculoTipoVeiculo.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/ANEXO28.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/TTCERSContratosLiquidacao.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/FMManterContratosLiquidacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/JSManterContratosLiquidacao.js create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/OCManterContratosLiquidacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/configuracao/PRManterContratosLiquidacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCERS/instancias/exportacao/JSManterContratosLiquidacao.js create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/componentes/IMontaNumeroLicitacaoMultiploEntidadeUsuarioDispensa.class.php create mode 100755 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOArquivoProgramasPPA.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOConfiguracaoLOA.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAMP.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoDSP.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoIDE.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoISI.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoOrgao.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOArquivoOrcamentoUOC.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOAtivoPermanenteBem.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisLDO.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoLeisPPA.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoUnidadeGestora.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODDA.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODividaFundada.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHML.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOHabilitacaoLicitacao.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOJulgamentoLicitacao.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLDO.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasArrecadacaoReceita.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOMetasFiscaisLDO.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOParecerLicitacao.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacao.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelLicitacaoDispensa.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOResponsavelTecnico.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOTipoResponsavelTecnico.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOPatrimonioBemObra.class.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasArrecadacaoReceita.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterConfiguracaoMetasFiscaisLDO.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterDividaFundada.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FLManterResponsavelLicitacaoDispensa.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLOA.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisLDO.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisPPA.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasArrecadacaoReceita.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoMetasFiscaisLDO.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterProvedorSistema.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterResponsavelLicitacaoDispensa.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterTecnicoResponsavel.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisLDO.js create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/JSManterConfiguracaoLeisPPA.js create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterDividaFundada.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacaoDispensa.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLOA.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisLDO.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisPPA.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterResponsavelLicitacaoDispensa.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterTecnicoResponsavel.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLOA.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisLDO.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisPPA.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasArrecadacaoReceita.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoMetasFiscaisLDO.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterProvedorSistema.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacao.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterResponsavelLicitacaoDispensa.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterTecnicoResponsavel.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/APB.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DDA.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/FLExportacaoOrcamento.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/OCExportacaoOrcamento.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/index.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/AMP.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/DSP.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/IDE.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ISI.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LDO.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LOC.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/LPP.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/ORGAO.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/PRO.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/REC.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/UOC.inc.php create mode 100644 gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/layout_arquivos/orcamento/index.php create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGContasCTB.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCEMG/TCEMGDemonstrativoOpCredito.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/FTCMGORestosPagar.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOArquivoExportacaoOrcamentoRec.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpAtivo.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPassivo.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPatrimonioLiquido.plsql create mode 100755 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGORecuperaPPAPrograma.plsql delete mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/balancoPatrimonial.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao10.plsql create mode 100644 gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/tcmgoArquivoAFRexportacao11.plsql create mode 100644 gestaoPrestacaoContas/fontes/SQL/GPC_2036.sql create mode 100644 gestaoPrestacaoContas/fontes/SQL/GPC_2037.sql create mode 100644 gestaoRH/fontes/PLPGSQL/folhaPagamento/FontesInternas/pega1QuantidadeAnosParaAnueniosProgressao.plsql create mode 100644 gestaoRH/fontes/SQL/GRH_2037.sql create mode 100644 gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/FLRelatorioLancamentoAutomatico.php create mode 100755 gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/JSRelatorioLancamentoAutomatico.js create mode 100755 gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/OCGeraRelatorioLancamentoAutomatico.php create mode 100755 gestaoTributaria/fontes/PHP/arrecadacao/instancias/relatorios/OCRelatorioLancamentoAutomatico.php create mode 100644 gestaoTributaria/fontes/PLPGSQL/arrecadacao/calculaValoresParcelasCobranca.plsql create mode 100644 gestaoTributaria/fontes/RPT/arrecadacao/MPDF/LHLancamentoAutomatico.php create mode 100755 gestaoTributaria/fontes/RPT/arrecadacao/MPDF/index.php create mode 100644 gestaoTributaria/fontes/SQL/GT_2036.sql diff --git a/atualizador.sh b/atualizador.sh index 4d3d414..1ff2dc7 100755 --- a/atualizador.sh +++ b/atualizador.sh @@ -28,7 +28,7 @@ # $Revision: 28724 $ # $Name$ # $Author: gelson $ -# $Date: 2014-09-29 08:53:57 -0300 (Seg, 29 Set 2014) $ +# $Date: 2015-02-12 11:36:25 -0200 (Qui, 12 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 4e322ca..7cf3c89 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 59612 2014-09-02 12:00:51Z gelson $ +$Id: RCadastroDinamico.class.php 61695 2015-02-26 12:13:37Z franver $ $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 5606c9d..2297b35 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 75856b2..a7542e2 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: PreviewBirt.class.php 61606 2015-02-12 16:07:01Z diogo.zarpelon $ * 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/exportacao/ArquivoExportador.class.php b/gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportador.class.php index 63b4d42..aa56fa7 100755 --- a/gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportador.class.php +++ b/gestaoAdministrativa/fontes/PHP/framework/exportacao/ArquivoExportador.class.php @@ -30,7 +30,7 @@ * @author Desenvolvedor: Cassiano de Vasconcellos Ferreira * @author Documentor: Cassiano de Vasconcellos Ferreira - $Id: ArquivoExportador.class.php 60030 2014-09-25 19:20:35Z michel $ + $Id: ArquivoExportador.class.php 61661 2015-02-23 17:39:34Z jean $ * @package framework * @subpackage componentes @@ -368,6 +368,10 @@ function FormataTipoDocumento() case "ANEXO27FUNDEFBBAAS": $inTamanhoColuna = 160; break; + case "ANEXO28": + $arCabecalho[0]['nome_arquivo'] = 'ANEXO28'; + $inTamanhoColuna = 160; + break; } ### 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 7c6e466..2a57b11 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 60298 2014-10-10 21:01:01Z arthur $ + $Id: processosLegado.class.php 61760 2015-03-02 17:50:02Z evandro $ */ @@ -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 { @@ -1619,7 +1631,7 @@ function encaminhaProcessoLote($arProcessos, $orgao, $codUsuario) $conn->abreBD(); $conn->abreSelecao($stSql); $conn->vaiPrimeiro(); - $registros = $conn->numeroDeLinhas; + $registros = $conn->numeroDeLinhas; if ($registros > 0) { for ($i = 1; $i <= $registros; $i++) { $codProcesso_pai = $conn->pegaCampo("cod_processo_pai"); @@ -1630,7 +1642,7 @@ function encaminhaProcessoLote($arProcessos, $orgao, $codUsuario) $stFiltro = "Where cod_processo = '$codProcesso_filho' And ano_exercicio = '".$exercicio_filho."'"; $codAndamento = pegaID("cod_andamento","sw_andamento", $stFiltro ); - $codSituacao = pegaID("cod_situacao","sw_andamento", $stFiltro ); + $codSituacao = pegaID("cod_situacao","sw_andamento", $stFiltro ); $sql .= " INSERT INTO sw_andamento ( \n"; $sql .= " cod_andamento, cod_processo, ano_exercicio, \n"; @@ -1651,8 +1663,9 @@ function encaminhaProcessoLote($arProcessos, $orgao, $codUsuario) //Insere um novo andamento para o processo que deve ser o setor para o qual o processo está sendo encaminhado $stFiltro = " WHERE cod_processo = '$codProcesso' AND ano_exercicio = '".$anoExercicio."'"; - $codAndamento = pegaID("cod_andamento","sw_andamento",$stFiltro); - $codSituacao = pegaID("cod_situacao","sw_andamento", $stFiltro ); + $codAndamento = pegaID("cod_andamento","sw_andamento",$stFiltro); + $codSituacao = pegaValor(" SELECT MAX(cod_situacao) as cod_situacao + FROM sw_andamento ". $stFiltro, "cod_situacao" ); $sql .= " INSERT INTO sw_andamento ( \n"; $sql .= " cod_andamento, cod_processo, ano_exercicio, \n"; 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 558da89..db38c5f 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 61405 2015-01-14 13:55:15Z lisiane $ +$Id: RNorma.class.php 61604 2015-02-12 15:21:35Z evandro $ 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/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/classes/mapeamento/TClassificacao.class.php b/gestaoAdministrativa/fontes/PHP/protocolo/classes/mapeamento/TClassificacao.class.php index 298162a..91aee9f 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/classes/mapeamento/TClassificacao.class.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/classes/mapeamento/TClassificacao.class.php @@ -39,17 +39,17 @@ Casos de uso: uc-01.06.94 */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.php'; -include_once ( CLA_PERSISTENTE ); +include_once CLA_PERSISTENTE; class TClassificacao extends Persistente { -function TClassificacao() -{ - parent::Persistente(); - $this->setTabela('sw_classificacao'); - $this->setCampoCod('cod_classificacao'); + public function TClassificacao() + { + parent::Persistente(); + $this->setTabela('sw_classificacao'); + $this->setCampoCod('cod_classificacao'); - $this->AddCampo('cod_classificacao','integer',true,'',true,false); - $this->AddCampo('nom_classificacao','varchar',true,'',false,false); -} + $this->AddCampo('cod_classificacao', 'integer' ,true ,'' ,true ,false); + $this->AddCampo('nom_classificacao', 'varchar' ,true ,'' ,false ,false); + } } diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/FMManterAssunto.php b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/FMManterAssunto.php index e2419f6..5e6b5ae 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/FMManterAssunto.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/FMManterAssunto.php @@ -214,6 +214,30 @@ $obLblClassificacao = new Label(); $obLblClassificacao->setRotulo('Classificação'); $obLblClassificacao->setValue( $rsClassificacao->getCampo('cod_classificacao').' '.$rsClassificacao->getCampo('nom_classificacao') ); +# Busca da configuração do Protocolo se deve gerar o código de classificação automático ou manual. +$boGeraCodigo = SistemaLegado::pegaConfiguracao("tipo_numeracao_classificacao_assunto", 5); + +if (!empty($boGeraCodigo) && $boGeraCodigo == 'manual' && $stAcao == "incluir") { + $obCodAssunto = new TextBox; + $obCodAssunto->setRotulo ( "Código do Assunto" ); + $obCodAssunto->setId ( "inCodigoAssunto" ); + $obCodAssunto->setName ( "inCodigoAssunto" ); + $obCodAssunto->setValue ( $inCodigoAssunto ); + $obCodAssunto->setSize ( 5 ); + $obCodAssunto->setMaxLength ( 3 ); + $obCodAssunto->setInteiro ( true ); + $obCodAssunto->setTitle ( "Informe o código do assunto" ); + $obCodAssunto->setNull ( false ); +} else { + $obHdnCodClassificacao = new Hidden; + $obHdnCodClassificacao->setName( "inCodClassificacao" ); + $obHdnCodClassificacao->setValue( $inCodClassificacao ); + + $obLabelAssunto = new Label; + $obLabelAssunto->setRotulo('Código do Assunto'); + $obLabelAssunto->setValue($inCodigoAssunto); +} + $obTxtDescricao = new TextBox(); $obTxtDescricao->setRotulo ("Descrição"); $obTxtDescricao->setName ("stDescricao"); @@ -320,6 +344,15 @@ if ($stAcao != 'incluir') { } else { $obFormulario->addComponenteComposto($obTxtCodigoClassificacao, $obCmbClassificacao); } + +if (!empty($boGeraCodigo) && $boGeraCodigo == 'manual' && $stAcao == "incluir") { + $obFormulario->addComponente($obCodAssunto); +} + +if ($stAcao == 'alterar') { + $obFormulario->addComponente($obLabelAssunto); +} + $obFormulario->addComponente($obTxtDescricao); $obFormulario->agrupaComponentes(array($obRdConfidencialNao,$obRdConfidencialSim)); diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/PRManterAssunto.php b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/PRManterAssunto.php index 64b1fd0..f9e3d02 100644 --- a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/PRManterAssunto.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/assunto/PRManterAssunto.php @@ -57,6 +57,7 @@ $pgJs = "JS".$stPrograma.".js"; $obTPROClassificacao = new TPROClassificacao(); $obTPROAssunto = new TPROAssunto(); $obTPROAssuntoAcao = new TPROAssuntoAcao(); +$obErro = new Erro; $obTPROAssunto->obTPROClassificacao = &$obTPROClassificacao; $inCodigoClassificacao = $_POST['inCmbCodigoClassificacao'] ? $_POST['inCmbCodigoClassificacao'] : $_POST['inCodigoClassificacao']; @@ -88,28 +89,52 @@ if (is_array($_POST['inAtributo'])) { switch ($_REQUEST['stAcao']) { case "incluir": Sessao::setTrataExcecao(true); - //Sessao::getTransacao()->setMapeamento( $obTPROAssunto ); - $obTPROAssunto->proximoCod($inCodigoAssunto); - $obTPROAssunto->setDado('cod_assunto',$inCodigoAssunto); - $obTPROAssunto->inclusao(); - foreach ($arDocumentos as $obDocumento) { - $obDocumento->inclusao(); - } - foreach ($arAtributos as $obAtributo) { - $obAtributo->inclusao(); + + $boGeraCodigo = SistemaLegado::pegaConfiguracao("tipo_numeracao_classificacao_assunto", 5); + + if (!empty($boGeraCodigo) && $boGeraCodigo == 'automatico') { + $obTPROAssunto->proximoCod($inCodigoAssunto); + } else { + $inCodigoAssunto = $_POST['inCodigoAssunto']; + $inValidaCod = SistemaLegado::pegaDado('cod_assunto', 'sw_assunto', ' WHERE cod_assunto = '.$inCodigoAssunto.' AND cod_classificacao = '.$inCodigoClassificacao ); + + if ($inCodigoAssunto == $inValidaCod) { + $obErro->setDescricao('O código informado já está sendo utilizado.'); + } } - //pega os dados da sessao - $arAcaoSessao = Sessao::read('acaoSessao'); - $obTPROAssuntoAcao->obTPROAssunto = &$obTPROAssunto; - if ( is_array($arAcaoSessao) ) { - foreach ($arAcaoSessao as $arAcao) { - $obTPROAssuntoAcao->setDado('cod_acao',$arAcao['cod_acao']); - $obTPROAssuntoAcao->inclusao(); - } + + if (!$obErro->ocorreu()) { + + $obTPROAssunto->setDado('cod_assunto',$inCodigoAssunto); + $obTPROAssunto->inclusao(); + + foreach ($arDocumentos as $obDocumento) { + $obDocumento->inclusao(); + } + + foreach ($arAtributos as $obAtributo) { + $obAtributo->inclusao(); + } + + //pega os dados da sessao + $arAcaoSessao = Sessao::read('acaoSessao'); + $obTPROAssuntoAcao->obTPROAssunto = &$obTPROAssunto; + if ( is_array($arAcaoSessao) ) { + foreach ($arAcaoSessao as $arAcao) { + $obTPROAssuntoAcao->setDado('cod_acao',$arAcao['cod_acao']); + $obTPROAssuntoAcao->inclusao(); } - $stMensagem = "Assunto: ".$inCodigoAssunto." - ".$_POST['stDescricao']; + } + $stMensagem = "Assunto: ".$inCodigoAssunto." - ".$_POST['stDescricao']; + } Sessao::encerraExcecao(); - sistemaLegado::alertaAviso($pgForm,$stMensagem ,"incluir","aviso", Sessao::getId(), "../"); + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm."?stAcao=".$stAcao, $stMensagem ,"incluir","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + break; case "alterar": Sessao::setTrataExcecao(true); diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/FMManterClassificacao.php b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/FMManterClassificacao.php new file mode 100644 index 0000000..5cebde7 --- /dev/null +++ b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/FMManterClassificacao.php @@ -0,0 +1,104 @@ +get('stAcao'); + +$inCodClassificacao = $request->get('inCodClassificacao'); +$stNomeClassificacao = $request->get('stNomeClassificacao'); + +$obHdnAcao = new Hidden; +$obHdnAcao->setName( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +# Busca da configuração do Protocolo se deve gerar o código de classificação automático ou manual. +$boGeraCodigo = SistemaLegado::pegaConfiguracao("tipo_numeracao_classificacao_assunto", 5); + +if (!empty($boGeraCodigo) && $boGeraCodigo == 'manual' && $stAcao == "incluir") { + $obCodClassificacao = new TextBox; + $obCodClassificacao->setRotulo ( "Código" ); + $obCodClassificacao->setId ( "inCodClassificacao" ); + $obCodClassificacao->setName ( "inCodClassificacao" ); + $obCodClassificacao->setValue ( $inCodClassificacao ); + $obCodClassificacao->setSize ( 5 ); + $obCodClassificacao->setMaxLength ( 3 ); + $obCodClassificacao->setInteiro ( true ); + $obCodClassificacao->setTitle ( "Informe o código da classificação" ); + $obCodClassificacao->setNull ( false ); +} else { + $obHdnCodClassificacao = new Hidden; + $obHdnCodClassificacao->setName( "inCodClassificacao" ); + $obHdnCodClassificacao->setValue( $inCodClassificacao ); + + $obLabelClassificacao = new Label; + $obLabelClassificacao->setRotulo('Código'); + $obLabelClassificacao->setValue($inCodClassificacao); + $obLabelClassificacao->setName(''); +} + +$obNomeClassificacao = new TextBox; +$obNomeClassificacao->setRotulo ( "Descrição" ); +$obNomeClassificacao->setTitle ( "Informe a descrição da classificação" ); +$obNomeClassificacao->setName ( "stNomeClassificacao" ); +$obNomeClassificacao->setValue ( $stNomeClassificacao ); +$obNomeClassificacao->setSize ( 60 ); +$obNomeClassificacao->setMaxLength ( 60 ); +$obNomeClassificacao->setNull ( false ); + + +$obForm = new Form(); +$obForm->setAction($pgProc); +$obForm->setTarget('oculto'); + +$obFormulario = new Formulario(); +$obFormulario->addForm($obForm); +$obFormulario->addTitulo("Dados da Classificação"); +$obFormulario->addHidden($obHdnAcao); + +if (!empty($boGeraCodigo) && $boGeraCodigo == 'manual' && $stAcao == "incluir") { + $obFormulario->addComponente($obCodClassificacao); +} + +if ($stAcao == 'alterar') { + $obFormulario->addHidden($obHdnCodClassificacao); + $obFormulario->addComponente($obLabelClassificacao); +} + +$obFormulario->addComponente($obNomeClassificacao); +$obFormulario->OK(); + +$obFormulario->show(); + +$jsOnLoad = "jQuery('#');'"; + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> \ No newline at end of file diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/LSManterClassificacao.php b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/LSManterClassificacao.php new file mode 100644 index 0000000..edc5ce4 --- /dev/null +++ b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/LSManterClassificacao.php @@ -0,0 +1,100 @@ + +get('stAcao'); +$stCaminho = CAM_GA_PROT_INSTANCIAS."classificacao/"; + +# MANTEM FILTRO E PAGINACAO +$stLink .= "&stAcao=".$stAcao; + +if ($_GET["pg"] && $_GET["pos"]) { + Sessao::write('link_pg',$_GET["pg"]); + Sessao::write('link_pos',$_GET["pos"]); +} + +$obTClassificacao = new TClassificacao; +$obTClassificacao->recuperaTodos($rsRecordSet); + +$obLista = new Lista; +$obLista->obPaginacao->setFiltro("&stLink=".$stLink ); +$obLista->setRecordSet( $rsRecordSet ); +$obLista->setTitulo ("Registros de Classificação"); +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Código" ); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo( "Descrição" ); +$obLista->ultimoCabecalho->setWidth( 80 ); +$obLista->commitCabecalho(); +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento ( 'CENTER' ); +$obLista->ultimoDado->setCampo( "cod_classificacao" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setCampo( "nom_classificacao" ); +$obLista->commitDado(); + +$obLista->addAcao(); +$obLista->ultimaAcao->setAcao( $stAcao ); +$obLista->ultimaAcao->addCampo("&inCodClassificacao" , "cod_classificacao"); +$obLista->ultimaAcao->addCampo("&stNomeClassificacao" , "nom_classificacao"); +$obLista->ultimaAcao->setLink( $pgProx."?".Sessao::getId().$stLink ); +$obLista->commitAcao(); + +if ($stAcao == "excluir") { + $obLista->ultimaAcao->addCampo("stDescQuestao" ,"nom_classificacao"); + $pgProx = $stCaminho.$pgProc; +} +$obLista->ultimaAcao->setLink( $pgProx."?".Sessao::getId().$stLink ); + +$obLista->show(); + +?> diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/PRManterClassificacao.php b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/PRManterClassificacao.php new file mode 100644 index 0000000..ec0ead8 --- /dev/null +++ b/gestaoAdministrativa/fontes/PHP/protocolo/instancias/classificacao/PRManterClassificacao.php @@ -0,0 +1,126 @@ +get('stAcao'); +$boGeraManual = $request->get('boGeraManual'); +$inCodClassificacao = $request->get('inCodClassificacao'); +$stNomeClassificacao = $request->get('stNomeClassificacao'); + +$obErro = new Erro; +$obTClassificacao = new TClassificacao; + +switch ($stAcao) { + + case "incluir": + Sessao::setTrataExcecao(true); + + if (!empty($stNomeClassificacao)) { + + $boGeraCodigo = SistemaLegado::pegaConfiguracao("tipo_numeracao_classificacao_assunto", 5); + + if (!empty($boGeraCodigo) && $boGeraCodigo == 'automatico') { + $obTClassificacao->proximoCod($inCodClassificacao); + } else { + $inValidaCod = SistemaLegado::pegaDado('cod_classificacao', 'sw_classificacao', ' WHERE cod_classificacao = '.$inCodClassificacao); + + if ($inCodClassificacao == $inValidaCod) { + $obErro->setDescricao('O código informado já está sendo utilizado.'); + } + } + + if (!$obErro->ocorreu()) { + $obTClassificacao->setDado('cod_classificacao', $inCodClassificacao); + $obTClassificacao->setDado('nom_classificacao', $stNomeClassificacao); + $obTClassificacao->inclusao(); + + $stMensagem = "Classificação: ".$inCodClassificacao." - ".$stNomeClassificacao; + } + Sessao::encerraExcecao(); + } else { + $obErro->setDescricao('Informe a descrição da classificação.'); + } + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgForm."?stAcao=".$stAcao, $stMensagem ,"incluir","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + break; + + case "alterar": + Sessao::setTrataExcecao(true); + + $stValidaNome = SistemaLegado::pegaDado("nom_classificacao", "sw_classificacao", " WHERE nom_classificacao = '".$stNomeClassificacao."' AND cod_classificacao <> ".$inCodClassificacao); + + if ($stValidaNome == $stNomeClassificacao) { + $obErro->setDescricao('Essa descrição de classificação já existe.'); + } else { + $obTClassificacao->setDado('cod_classificacao', $inCodClassificacao); + $obTClassificacao->setDado('nom_classificacao', $stNomeClassificacao); + $obTClassificacao->alteracao(); + + $stMensagem = "Classificação: ".$inCodClassificacao." - ".$stNomeClassificacao; + } + + Sessao::encerraExcecao(); + + if (!$obErro->ocorreu()) { + SistemaLegado::alertaAviso($pgList."?stAcao=".$stAcao, $stMensagem ,"alterar","aviso", Sessao::getId(), "../"); + } else { + SistemaLegado::exibeAviso(urlencode($obErro->getDescricao()),"n_incluir","erro"); + } + + break; + + case "excluir": + $pgProx = $pgList; + Sessao::setTrataExcecao(true); + + $boValidaExclusao = SistemaLegado::pegaDado("cod_classificacao", "sw_assunto", " WHERE cod_classificacao = ".$inCodClassificacao); + + if (!empty($boValidaExclusao)) { + $stMensagem = 'Essa classificação não pode ser excluída por estar sendo utilizada.'; + } else { + $obTClassificacao->setDado('cod_classificacao', $inCodClassificacao); + $obTClassificacao->exclusao(); + + $stMensagem = "Classificação: ".$inCodClassificacao." - ".$stNomeClassificacao; + } + + Sessao::encerraExcecao(); + SistemaLegado::alertaAviso($pgList."?stAcao=".$stAcao, $stMensagem, "excluir", "aviso", Sessao::getId(), "../"); + break; +} + +?> \ No newline at end of file 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/configuracao/configuracaoProtocolo.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/configuracao/configuracaoProtocolo.php index 83293c4..7951616 100755 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/configuracao/configuracaoProtocolo.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/configuracao/configuracaoProtocolo.php @@ -55,6 +55,7 @@ switch ($ctrl) { $caminhoRecibo = pegaConfiguracao("caminho_recibo_processo", 5); $txtRecibo = pegaConfiguracao("mensagem_recibo_processo", 5); $tipoNumeracao = pegaConfiguracao("tipo_numeracao_processo", 5); + $boNumeracaoClassificaoAssunto = pegaConfiguracao("tipo_numeracao_classificacao_assunto", 5); $numeroCopias = pegaConfiguracao("copias_recibo_processo", 5); $mascaraProcesso = pegaConfiguracao("mascara_processo", 5); $mascaraAssunto = pegaConfiguracao("mascara_assunto", 5); @@ -125,6 +126,7 @@ switch ($ctrl) { if (erro) alertaAviso(mensagem,'form','erro',''); return !(erro); } + function Salvar() { if (Valida()) { @@ -240,11 +242,35 @@ switch ($ctrl) { - Dados para classificação/assunto + Dados para Classificação/Assunto + + *Geração do código + + + + + + + *Máscara do código @@ -281,6 +307,15 @@ document.frm.caminhoRecibo.focus(); cod_modulo = 5;"; $audit .= "Tipo de numeração de processo
\n"; } + + if ($_REQUEST["tipoNumeracaoClassificacaoAssuntoHdn"] != $_REQUEST["tipoNumeracaoClassificacaoAssunto"]) { + $sql .= "UPDATE administracao.configuracao + SET valor = '".$_REQUEST["tipoNumeracaoClassificacaoAssunto"]."' + WHERE parametro = 'tipo_numeracao_classificacao_assunto' + AND cod_modulo = 5;"; + $audit .= "Tipo de numeração de processo
\n"; + } + if ($_REQUEST["numeroCopiasHdn"] != $_REQUEST["numeroCopias"]) { $sql .= "UPDATE administracao.configuracao diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/FMManterProcesso.php index eb2c529..8b53f8b 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterProcesso.php 61555 2015-02-04 18:03:43Z diogo.zarpelon $ */ @@ -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 032ee8b..9d7d89d 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: PRManterProcesso.php 61555 2015-02-04 18:03:43Z diogo.zarpelon $ */ @@ -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/arquivaProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/arquivaProcesso.php index 359a7c6..60a1525 100755 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/arquivaProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/arquivaProcesso.php @@ -32,7 +32,7 @@ Casos de uso: uc-01.06.98 - $Id: arquivaProcesso.php 60948 2014-11-26 11:28:25Z arthur $ + $Id: arquivaProcesso.php 61785 2015-03-03 21:06:56Z evandro $ */ include '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/cabecalho.inc.php'; @@ -602,7 +602,7 @@ case 2: - + diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/consultaProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/consultaProcesso.php index cc0a060..e3e2bcc 100755 --- a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/consultaProcesso.php +++ b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/consultaProcesso.php @@ -32,7 +32,7 @@ Casos de uso: uc-01.06.98 - $Id: consultaProcesso.php 59612 2014-09-02 12:00:51Z gelson $ + $Id: consultaProcesso.php 61785 2015-03-03 21:06:56Z evandro $ */ @@ -442,6 +442,19 @@ function Valida() document.frm.submit(); } + function ImprimeProcesoArquivado(cod_historico) + { + if (cod_historico != '') { + document.frm.action = "arquivaProcessoDefinitivo.php?&historicoArquivamento="+cod_historico+" "; + document.frm.submit(); + }else{ + document.frm.action = "arquivaProcessoTemporario.php?"; + document.frm.submit(); + } + + } + + function Salvar() { document.frm.action = "reciboProcesso.php?&ctrl=2&codProcesso&anoExercicio"; @@ -1639,6 +1652,20 @@ a.timestamp = p.timestamp; #$_REQUEST['anoExercicioSetor'] = $processo["anoExercicioSetor"]; $botoesPDF = new botoesPdfLegado; + + if ( $processo["codSituacao"] == 5 || $processo["codSituacao"] == 9){ + + $stTextComplementar = SistemaLegado::pegaDado("texto_complementar","sw_processo_arquivado","WHERE ano_exercicio = '".$anoExercicio."' AND cod_processo = ".$processo["codProcesso"].""); + Sessao::write("texto_complementar",$stTextComplementar); + + if ($processo["codSituacao"] == 9) { + $historicoArquivamento = SistemaLegado::pegaDado("cod_historico","sw_processo_arquivado","WHERE ano_exercicio = '".$anoExercicio."' AND cod_processo = ".$processo["codProcesso"]." "); + } + $stImprimeProcessoArquivado = ' + '; + }else{ + $stImprimeProcessoArquivado = ''; + } print ' @@ -1648,7 +1675,8 @@ a.timestamp = p.timestamp;
- + + '.$stImprimeProcessoArquivado.'
'; diff --git a/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php b/gestaoAdministrativa/fontes/PHP/protocolo/protocolo/processos/despachaProcesso.php index 3b78182..c331272 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 60209 2014-10-07 12:35:42Z lisiane $ + $Id: despachaProcesso.php 61555 2015-02-04 18:03:43Z diogo.zarpelon $ */ @@ -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 105f1dd..9e37f26 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 60640 2014-11-05 12:37:03Z franver $ + $Id: interfaceProcessos.class.php 61760 2015-03-02 17:50:02Z evandro $ */ 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() @@ -1498,7 +1505,7 @@ if (!empty($codClassificacao)) { 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/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/gestaoAdministrativa/fontes/SQL/GA_2037.sql b/gestaoAdministrativa/fontes/SQL/GA_2037.sql new file mode 100644 index 0000000..6f5c5a7 --- /dev/null +++ b/gestaoAdministrativa/fontes/SQL/GA_2037.sql @@ -0,0 +1,56 @@ +/* + ********************************************************************************** + * * + * @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.7 +* +* Fabio Bertoldi - 20150226 +* +*/ + +---------------- +-- Ticket #22713 +---------------- + +UPDATE administracao.acao SET nom_arquivo = 'FMManterClassificacao.php', parametro = 'incluir', ordem = 1 WHERE cod_acao = 115; +UPDATE administracao.acao SET nom_arquivo = 'LSManterClassificacao.php', parametro = 'alterar', ordem = 2 WHERE cod_acao = 116; +UPDATE administracao.acao SET nom_arquivo = 'LSManterClassificacao.php', parametro = 'excluir', ordem = 3 WHERE cod_acao = 114; + +UPDATE administracao.funcionalidade SET nom_diretorio = 'instancias/classificacao/' WHERE cod_funcionalidade = 29; + +INSERT + INTO administracao.configuracao + ( cod_modulo + , exercicio + , parametro + , valor + ) + VALUES + ( 5 + , '2015' + , 'tipo_numeracao_classificacao_assunto' + , 'automatico' + ); + diff --git a/gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php b/gestaoFinanceira/fontes/PHP/contabilidade/classes/mapeamento/TContabilidadePlanoConta.class.php index 830d0b1..2e8cd1f 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 61326 2015-01-07 11:02:55Z carolina $ + $Id: TContabilidadePlanoConta.class.php 61473 2015-01-21 13:32:02Z evandro $ */ 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/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 93e7265..5b5e46a 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 61128 2014-12-10 16:58:44Z silvia $ + * $Id: LSPlanoConta.php 61653 2015-02-20 19:35:15Z arthur $ * 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 3edb13a..b8ec8e9 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 61279 2014-12-29 15:31:48Z evandro $ + * $Id: TEmpenhoEmpenho.class.php 61680 2015-02-25 13:56:31Z arthur $ * 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/empenho/FMConsultarEmpenho.php b/gestaoFinanceira/fontes/PHP/empenho/instancias/empenho/FMConsultarEmpenho.php index e6140fb..dfac5de 100755 --- a/gestaoFinanceira/fontes/PHP/empenho/instancias/empenho/FMConsultarEmpenho.php +++ b/gestaoFinanceira/fontes/PHP/empenho/instancias/empenho/FMConsultarEmpenho.php @@ -32,7 +32,7 @@ * @ignore - $Id: FMConsultarEmpenho.php 60997 2014-11-27 18:53:16Z jean $ + $Id: FMConsultarEmpenho.php 61753 2015-03-02 13:55:48Z jean $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -265,6 +265,17 @@ if ( Sessao::read('filtro') ) { $arFiltro = Sessao::read('filtro'); $stFiltro = ''; foreach ($arFiltro as $stCampo => $stValor) { + if (is_array($stValor)) { + $stValorAux = ''; + foreach ($stValor as $index => $value) { + if ($stValor[$index+1] != '') { + $stValorAux = $stValorAux.$value.','; + } else { + $stValorAux = $stValorAux.$value; + } + } + $stValor = $stValorAux; + } $stFiltro .= "&".$stCampo."=".@urlencode( $stValor ); } $stFiltro .= '&pg='.Sessao::read('pg').'&pos='.Sessao::read('pos').'&paginando'.Sessao::read('paginando'); @@ -621,6 +632,7 @@ $obSpnLista = new Span; $obSpnLista->setId ( "spnLista" ); $stLocation = $pgList.'?'.Sessao::getId().'&stAcao='.$stAcao.$stFiltro; + $obButtonVoltar = new Button; $obButtonVoltar->setName ( "Voltar" ); $obButtonVoltar->setValue ( "Voltar" ); diff --git a/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php b/gestaoFinanceira/fontes/PHP/empenho/instancias/relatorio/OCGeraRelacaoEmpenho.php index 12c4c8d..3748649 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 60092 2014-09-29 20:12:10Z evandro $ +* $Id: OCGeraRelacaoEmpenho.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ * */ @@ -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 722adab..b78bbd7 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: OCGeraRelatorioRestosPagarAnuladoPagamentoEstorno.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ * 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/ldo/classes/mapeamento/TLDOHomologacao.class.php b/gestaoFinanceira/fontes/PHP/ldo/classes/mapeamento/TLDOHomologacao.class.php index d18a9f0..16fb825 100644 --- a/gestaoFinanceira/fontes/PHP/ldo/classes/mapeamento/TLDOHomologacao.class.php +++ b/gestaoFinanceira/fontes/PHP/ldo/classes/mapeamento/TLDOHomologacao.class.php @@ -32,6 +32,7 @@ * @package GF * @subpackage LDO * + * $Id: TLDOHomologacao.class.php 61768 2015-03-03 13:08:43Z michel $ */ class TLDOHomologacao extends Persistente @@ -78,5 +79,59 @@ class TLDOHomologacao extends Persistente return $this->executaRecuperaSql($stSql, $rsPPAs, $stFiltro, $stOrdem, $boTransacao); } + + function recuperaLDOPorAnoPPANorma(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stOrdem = ($stOrdem != "") ? " ORDER BY ".$stOrdem : $stOrdem; + $stSql = $this->montaRecuperaLDOPorAnoPPANorma().$stFiltro.$stOrdem; + $this->setDebug( $stSql ); + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaLDOPorAnoPPANorma() + { + if($this->getDado('exercicio')) + $inExercicio = $this->getDado('exercicio'); + else + $inExercicio = Sessao::getExercicio(); + + $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_ppa \n"; + $stSql.= " , ppa_publicacao.cod_norma AS cod_norma_ppa \n"; + $stSql.= " , tipo_norma.nom_tipo_norma||' '||LPAD(norma.num_norma, 6, '0')||'/'||norma.exercicio||' - '||norma.nom_norma AS descricao_norma_ppa \n"; + $stSql.= " , (".$inExercicio." - ppa.ano_inicio::integer + 1) AS ano_ldo \n"; + $stSql.= " , homologacao.cod_norma AS cod_norma_ldo \n"; + $stSql.= " , tipo_norma_ldo.nom_tipo_norma||' '||LPAD(norma_ldo.num_norma, 6, '0')||'/'||norma_ldo.exercicio||' - '||norma_ldo.nom_norma AS descricao_norma_ldo \n"; + $stSql.= " , homologacao.timestamp::date AS dt_homologacao_ldo \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"; + $stSql.= " AND ".$inExercicio." 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.= " JOIN ldo.homologacao \n"; + $stSql.= " ON homologacao.cod_ppa = ppa.cod_ppa \n"; + $stSql.= " AND homologacao.ano = (".$inExercicio." - ppa.ano_inicio::integer + 1)::varchar \n"; + $stSql.= " AND homologacao.timestamp = (select max(timestamp) from ldo.homologacao as lh where lh.cod_ppa = homologacao.cod_ppa and lh.ano = homologacao.ano) \n"; + $stSql.= " JOIN normas.norma AS norma_ldo \n"; + $stSql.= " ON norma_ldo.cod_norma = homologacao.cod_norma \n"; + $stSql.= " JOIN normas.tipo_norma AS tipo_norma_ldo \n"; + $stSql.= " ON tipo_norma_ldo.cod_tipo_norma = norma_ldo.cod_tipo_norma \n"; + $stSql.= " WHERE ppa.fn_verifica_homologacao(ppa.cod_ppa) = TRUE \n"; + + return $stSql; + } } diff --git a/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php b/gestaoFinanceira/fontes/PHP/orcamento/classes/mapeamento/TOrcamentoDespesa.class.php index 5846dd1..cf70518 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 59856 2014-09-16 13:49:58Z lisiane $ + $Id: TOrcamentoDespesa.class.php 61640 2015-02-19 13:32:40Z michel $ $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 4e0ad74..dc21e78 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 61338 2015-01-08 16:56:57Z evandro $ + $Id: TOrcamentoReceita.class.php 61612 2015-02-13 16:47:23Z lisiane $ * 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 708145e..ff58b66 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: OCReceita.php 61612 2015-02-13 16:47:23Z lisiane $ 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 0815d12..f6739e6 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 60900 2014-11-21 17:39:56Z michel $ + $Id: LSDespesa.php 61756 2015-03-02 16:03:30Z michel $ $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..62f93c5 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 61668 2015-02-24 13:48:38Z michel $ + * 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/classes/mapeamento/TTesourariaUsuarioTerminal.class.php b/gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaUsuarioTerminal.class.php index 783d7f2..c3f3591 100755 --- a/gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaUsuarioTerminal.class.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/classes/mapeamento/TTesourariaUsuarioTerminal.class.php @@ -115,4 +115,33 @@ function montaRecuperaRelacionamento() return $stSql; } + function recuperaCodigoTimestamp(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = ""){ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaCodigoTimestamp().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + return $obErro; + } + + function montaRecuperaCodigoTimestamp(){ + $stSql = " SELECT usuario_terminal.cod_terminal + , usuario_terminal.timestamp_terminal + FROM tesouraria.terminal + + INNER JOIN tesouraria.usuario_terminal + ON usuario_terminal.cod_terminal = terminal.cod_terminal + AND usuario_terminal.timestamp_terminal = terminal.timestamp_terminal + + WHERE usuario_terminal.timestamp_terminal = ( SELECT MAX(timestamp_terminal) + FROM tesouraria.usuario_terminal + WHERE cgm_usuario = ".$this->getDado('cgm_usuario')." + AND responsavel = true )"; + + return $stSql; + } + } + +?> \ No newline at end of file diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaImpressoraCheque.class.php b/gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaImpressoraCheque.class.php index a0e629f..60b92cb 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaImpressoraCheque.class.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/classes/negocio/RTesourariaImpressoraCheque.class.php @@ -32,18 +32,20 @@ * @author Desenvolvedor Henrique Boaventura * $Id:$ */ -include CAM_GF_TES_MAPEAMENTO . 'TTesourariaBancoChequeLayout.class.php'; -include CAM_GF_TES_MAPEAMENTO . 'TTesourariaChequeImpressoraTerminal.class.php'; -include_once CAM_GF_TES_NEGOCIO . 'RTesourariaTerminal.class.php'; -include CAM_GA_ADM_MAPEAMENTO . 'TAdministracaoImpressora.class.php'; +include_once ( CAM_GF_TES_MAPEAMENTO.'TTesourariaBancoChequeLayout.class.php' ); +include_once ( CAM_GF_TES_MAPEAMENTO.'TTesourariaChequeImpressoraTerminal.class.php' ); +include_once ( CAM_GF_TES_NEGOCIO.'RTesourariaTerminal.class.php' ); +include_once ( CAM_GA_ADM_MAPEAMENTO.'TAdministracaoImpressora.class.php' ); +include_once ( CAM_GF_TES_MAPEAMENTO.'TTesourariaUsuarioTerminal.class.php' ); class RTesourariaImpressoraCheque { public $obTTesourariaBancoChequeLayout, - $obRTesourariaTerminal, - $obTTesourariaChequeImpressoraTerminal, - $inCodImpressora, - $stFilaImpressao; + $obRTesourariaTerminal, + $obTTesourariaChequeImpressoraTerminal, + $obTTesourariaUsuarioTerminal, + $inCodImpressora, + $stFilaImpressao; /** * Método contrutor, instancia as classes necessarias. @@ -58,6 +60,7 @@ class RTesourariaImpressoraCheque $this->obTTesourariaBancoChequeLayout = new TTesourariaBancoChequeLayout(); $this->obRTesourariaTerminal = new RTesourariaTerminal(); $this->obTTesourariaChequeImpressoraTerminal = new TTesourariaChequeImpressoraTerminal(); + $this->obTTesourariaUsuarioTerminal = new TTesourariaUsuarioTerminal(); } /** @@ -248,7 +251,7 @@ class RTesourariaImpressoraCheque { $obTAdministracaoImpressora = new TAdministracaoImpressora(); $obErro = $obTAdministracaoImpressora->recuperaTodos($rsImpressora); - + return $obErro; } @@ -277,6 +280,7 @@ class RTesourariaImpressoraCheque } $obErro = $this->obTTesourariaChequeImpressoraTerminal->findImpressoraTerminal($rsImpressora,$stFiltro); + $this->stFilaImpressao = $rsImpressora->getCampo('fila_impressao'); $this->inCodImpressora = $rsImpressora->getCampo('cod_impressora'); @@ -300,6 +304,7 @@ class RTesourariaImpressoraCheque $this->obTTesourariaChequeImpressoraTerminal->setDado ('cod_impressora' , $this->inCodImpressora ); $obErro = $this->removeImpressoraTerminal(); + if (!$obErro->ocorreu()) { $obErro = $this->obTTesourariaChequeImpressoraTerminal->inclusao(); } @@ -331,5 +336,25 @@ class RTesourariaImpressoraCheque return $obErro; } + + /** + * Método que seta os valores de codigo e timestamp do terminal para vincular uma impressora ao terminal + * + * @author Analista + * @author Desenvolvedor Arthur Cruz + * + * @return object $obErro + */ + public function recuperaCodigoTimestampTerminal($inCGM) + { + $this->obTTesourariaUsuarioTerminal->setDado('cgm_usuario', $inCGM); + + $obErro = $this->obTTesourariaUsuarioTerminal->recuperaCodigoTimestamp($rsCodigoTimestamp); + + $this->obRTesourariaTerminal->inCodTerminal = $rsCodigoTimestamp->getCampo('cod_terminal'); + $this->obRTesourariaTerminal->stTimestampTerminal = $rsCodigoTimestamp->getCampo('timestamp_terminal'); + + return $obErro; + } } diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/FMVincularImpressoraCheque.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/FMVincularImpressoraCheque.php index bed2522..9ecb108 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/FMVincularImpressoraCheque.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/FMVincularImpressoraCheque.php @@ -41,9 +41,17 @@ $stAcao = $request->get('stAcao'); $pgOcul = 'OCVincularImpressoraCheque.php'; +$stPrograma = "VincularImpressoraCheque"; +$pgFilt = "FL".$stPrograma.".php"; +$pgList = "LS".$stPrograma.".php"; +$pgForm = "FM".$stPrograma.".php"; +$pgProc = "PR".$stPrograma.".php"; +$pgOcul = "OC".$stPrograma.".php"; +$pgJs = "JS".$stPrograma.".js"; + //Instancia um objeto Form $obForm = new Form; -$obForm->setAction('PRVincularImpressoraCheque.php'); +$obForm->setAction( $pgProc ); $obForm->setTarget('oculto'); //Instancia um objeto hidden da acao @@ -58,7 +66,8 @@ $obLblUsuario->setValue (Sessao::read('numCgm') . ' - ' . Sessao::read('nomCgm' //Recupera as impressoras do sistema $obRTesourariaImpressoraCheque = new RTesourariaImpressoraCheque(); -$obRTesourariaImpressoraCheque->listImpressorasSistema ($rsImpressoras); +$obRTesourariaImpressoraCheque->listImpressorasSistema ($rsImpressoras); + //Instancia um select para as impressoras $obCmbImpressora = new Select (); $obCmbImpressora->setRotulo ('Impressora' ); diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/PRVincularImpressoraCheque.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/PRVincularImpressoraCheque.php index 7fb93fc..0c875c4 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/PRVincularImpressoraCheque.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/configuracao/PRVincularImpressoraCheque.php @@ -42,16 +42,14 @@ $stAcao = $request->get('stAcao'); switch ($stAcao) { case 'incluir' : - sistemaLegado::mostraVar($_REQUEST); - + $obRTesourariaImpressoraCheque = new RTesourariaImpressoraCheque(); - $obRTesourariaImpressoraCheque->obRTesourariaTerminal->inCodTerminal = $_REQUEST['inCodTerminal' ]; - $obRTesourariaImpressoraCheque->obRTesourariaTerminal->stTimestampTerminal = $_REQUEST['stTimestampTerminal']; - + $obRTesourariaImpressoraCheque->recuperaCodigoTimestampTerminal(Sessao::read('numCgm')); + $obRTesourariaImpressoraCheque->removeImpressoraTerminal(); - $obRTesourariaImpressoraCheque->inCodImpressora = $_REQUEST['inCodImpressora' ]; - + $obRTesourariaImpressoraCheque->inCodImpressora = $request->get('inCodImpressora'); + $obErro = $obRTesourariaImpressoraCheque->insertImpressoraTerminal(); if ( !$obErro->ocorreu() ) { @@ -64,4 +62,4 @@ case 'incluir' : } -?> +?> \ No newline at end of file diff --git a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/FMReciboDespesaExtra.php index 955c35c..32063aa 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 61419 2015-01-15 13:48:46Z lisiane $ + $Id: FMReciboDespesaExtra.php 61703 2015-02-26 14:35:46Z arthur $ * Casos de uso: uc-02.04.30 */ @@ -149,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/PRReciboDespesaExtra.php b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboDespesaExtra/PRReciboDespesaExtra.php index ea4c71e..9509b05 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: PRReciboDespesaExtra.php 61703 2015-02-26 14:35:46Z arthur $ * 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 295b485..c40451d 100644 --- a/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php +++ b/gestaoFinanceira/fontes/PHP/tesouraria/instancias/reciboReceitaExtra/FMReciboReceitaExtra.php @@ -167,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/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..f413f52 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,151 @@ 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 ( 1 - Bens móveis ou 2 - Bens imóveis ) 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 +241,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 +274,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 +293,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 +311,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 +324,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 +355,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 +505,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 +524,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 +573,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/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 5273759..42909b9 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterAlmoxarifado.php 61639 2015-02-19 13:05:36Z diogo.zarpelon $ * 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 e6045fe..2500ceb 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: LSManterAlmoxarifado.php 61639 2015-02-19 13:05:36Z diogo.zarpelon $ */ 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 553da02..dd2a596 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterLocalizacao.php 61639 2015-02-19 13:05:36Z diogo.zarpelon $ **/ 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 88f8789..6e598a1 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: OCManterLocalizacao.php 61639 2015-02-19 13:05:36Z diogo.zarpelon $ */ 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 19cb386..36b9163 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: PRManterLocalizacao.php 61639 2015-02-19 13:05:36Z diogo.zarpelon $ */ 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/FMManterAditivoContrato.php b/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/FMManterAditivoContrato.php index dc2432f..d8df044 100644 --- a/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/FMManterAditivoContrato.php +++ b/gestaoPatrimonial/fontes/PHP/compras/instancias/contrato/FMManterAditivoContrato.php @@ -269,11 +269,11 @@ if ($stAcao == 'alterarCD') { $obTLicitacaoPublicacaoContrato->setDado('exercicio', "'".Sessao::getExercicio()."'"); $obTLicitacaoPublicacaoContrato->setDado('exercicio_contrato', "'".$_REQUEST["stExercicioContrato"]."'"); $obTLicitacaoPublicacaoContrato->setDado('cod_entidade', $_REQUEST['inCodEntidade']); - $obTLicitacaoPublicacaoContrato->setDado('num_aditivo', $_REQUEST['inNumAditivo']); + $obTLicitacaoPublicacaoContrato->setDado('num_aditivo', $_REQUEST['inNumeroAditivo']); $inCount = 0; $arValores = array(); - + $obTLicitacaoPublicacaoContrato->recuperaVeiculosPublicacao( $rsVeiculosPublicacao ); while ( !$rsVeiculosPublicacao->eof() ) { 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 f19c42a..3bf3408 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterSolicitacaoCompra.php 61756 2015-03-02 16:03:30Z michel $ */ @@ -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/classes/mapeamento/TFrotaTipoVeiculo.class.php b/gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaTipoVeiculo.class.php index bb116c0..eeca561 100644 --- a/gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaTipoVeiculo.class.php +++ b/gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaTipoVeiculo.class.php @@ -30,7 +30,7 @@ * @author Analista: * @author Programador: Fernando Zank Correa Evangelista - $Id: TFrotaTipoVeiculo.class.php 59612 2014-09-02 12:00:51Z gelson $ + $Id: TFrotaTipoVeiculo.class.php 61597 2015-02-11 18:46:51Z jean $ Caso de uso: uc-03.02.10 **/ @@ -156,4 +156,41 @@ function montaRecuperaVinculoTipoVeiculoTCE() return $stSql; } +function recuperaVinculoTipoVeiculoTCERN(&$rsRecordSet, $stFiltro = "", $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->montaRecuperaVinculoTipoVeiculoTCERN().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; +} + +function montaRecuperaVinculoTipoVeiculoTCERN() +{ + $stSql = "SELECT tipo_veiculo.cod_tipo + , tipo_veiculo.nom_tipo + , tipo_veiculo.placa + , tipo_veiculo.prefixo + , tipo_veiculo_vinculo.cod_tipo_tce + , tipo_veiculo_vinculo.cod_especie_tce + + FROM frota.tipo_veiculo + + LEFT JOIN tcern.tipo_veiculo_vinculo + ON tipo_veiculo_vinculo.cod_tipo = tipo_veiculo.cod_tipo + "; + + if ($this->getDado('inCodTipoVeiculo') ) { + $stSql .= " where tipo_veiculo.cod_tipo = ".$this->getDado('inCodTipoVeiculo')." \n"; + } + + return $stSql; +} + } diff --git a/gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaVeiculoLocacao.class.php b/gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaVeiculoLocacao.class.php new file mode 100644 index 0000000..72476c5 --- /dev/null +++ b/gestaoPatrimonial/fontes/PHP/frota/classes/mapeamento/TFrotaVeiculoLocacao.class.php @@ -0,0 +1,55 @@ + +setTabela('frota.veiculo_locacao'); + $this->setCampoCod('id'); + $this->setComplementoChave(''); + $this->AddCampo('id' ,'integer',true,'',true,false); + $this->AddCampo('cod_veiculo' ,'integer',true,'',false,true); + $this->AddCampo('cod_processo' ,'integer',true,'',false,true); + $this->AddCampo('ano_exercicio' ,'varchar',true,'4',false,true); + $this->AddCampo('cgm_locatario' ,'integer',true,'',false,true); + $this->AddCampo('dt_contrato' ,'date',true,'',false,true); + $this->AddCampo('dt_inicio' ,'date',true,'',false,false); + $this->AddCampo('dt_termino' ,'date',true,'',false,false); + $this->AddCampo('exercicio' ,'varchar',true,'4',false,true); + $this->AddCampo('cod_entidade' ,'integer',true,'',false,true); + $this->AddCampo('cod_empenho' ,'integer',true,'',false,true); + $this->AddCampo('vl_locacao' ,'numeric',true,'14,2',false,false); + } +} \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php b/gestaoPatrimonial/fontes/PHP/frota/instancias/relatorio/OCGeraRelatorioAbastecimento.php index c853b67..805a01e 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: OCGeraRelatorioAbastecimento.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ * 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 6c185fd..7284a07 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: OCGeraRelatorioManutencao.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ * 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/frota/instancias/veiculo/FMManterVeiculo.php b/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/FMManterVeiculo.php index db3c14f..ddea50f 100755 --- a/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/FMManterVeiculo.php +++ b/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/FMManterVeiculo.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - $Id: FMManterVeiculo.php 59967 2014-09-24 12:57:36Z diogo.zarpelon $ + $Id: FMManterVeiculo.php 61654 2015-02-20 20:34:48Z jean $ * Casos de uso: uc-03.02.06 */ @@ -44,6 +44,8 @@ include_once( CAM_GP_FRO_MAPEAMENTO.'TFrotaCategoriaHabilitacao.class.php' ); include_once( CAM_GP_FRO_MAPEAMENTO.'TFrotaDocumento.class.php' ); include_once( CAM_GP_FRO_MAPEAMENTO."TFrotaControleInterno.class.php" ); include_once( CAM_GA_CGM_COMPONENTES."IPopUpCGMVinculado.class.php" ); +include_once( CAM_GPC_TCERN_MAPEAMENTO."TTCERNCategoriaVeiculoTCE.class.php" ); +include_once( CAM_GPC_TCERN_MAPEAMENTO."TTCERNVeiculoCategoriaVinculo.class.php" ); $stPrograma = "ManterVeiculo"; $pgFilt = "FL".$stPrograma.".php"; @@ -332,6 +334,47 @@ $obRdControleInternoNao->setValue ( "false" ); $obRdControleInternoNao->setChecked (($boControleInterno == 'f')); $obRdControleInternoNao->setNull ( false ); +// TCERN - select para as categorias necessárias + +if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio()) == '20') { + + $obTTCERNCategoriaVeiculoTCE = new TTCERNCategoriaVeiculoTCE(); + $obTTCERNCategoriaVeiculoTCE->recuperaTodos($rsCategoriaVeiculo); + + if ($stAcao == 'alterar') { + $obTTCERNVeiculoCategoriaVinculo = new TTCERNVeiculoCategoriaVinculo(); + $obTTCERNVeiculoCategoriaVinculo->recuperaTodos($rsCategoriaVinculo, " WHERE cod_veiculo = ".$rsVeiculo->getCampo('cod_veiculo')); + } + + $obCmbCategoriaVeiculo = new Select(); + $obCmbCategoriaVeiculo->setRotulo ( 'Categoria do Veículo' ); + $obCmbCategoriaVeiculo->setTitle ( 'Selecione a categoria do veículo.' ); + $obCmbCategoriaVeiculo->setName ( 'inCategoriaVeiculo' ); + $obCmbCategoriaVeiculo->setId ( 'inCategoriaVeiculo' ); + $obCmbCategoriaVeiculo->addOption ( '','Selecione' ); + $obCmbCategoriaVeiculo->setCampoId ( 'cod_categoria' ); + $obCmbCategoriaVeiculo->setCampoDesc ( 'nom_categoria' ); + $obCmbCategoriaVeiculo->preencheCombo( $rsCategoriaVeiculo ); + + if ($rsCategoriaVinculo) { + $obCmbCategoriaVeiculo->setValue ( $rsCategoriaVinculo->getCampo('cod_categoria') ); + } + + $obCmbCategoriaVeiculo->setNull ( false ); +} + +$obSelectHabilitacao = new Select(); +$obSelectHabilitacao->setRotulo ( 'Habilitação Exigida' ); +$obSelectHabilitacao->setTitle ( 'Selecione a habilitação exigida pelo veículo.' ); +$obSelectHabilitacao->setName ( 'slHabilitacao' ); +$obSelectHabilitacao->setId ( 'slHabilitacao' ); +$obSelectHabilitacao->addOption ( '','Selecione' ); +$obSelectHabilitacao->setCampoId ( 'cod_categoria' ); +$obSelectHabilitacao->setCampoDesc ( 'nom_categoria' ); +$obSelectHabilitacao->preencheCombo( $rsCategoriaHabilitacao ); +$obSelectHabilitacao->setValue ( $rsVeiculo->getCampo('cod_categoria') ); +$obSelectHabilitacao->setNull ( false ); + //instancia um textbox para a potencia $obTxtNumPassageiro = new Inteiro(); $obTxtNumPassageiro->setRotulo( 'Número de Passageiros' ); @@ -355,6 +398,11 @@ $obTxtCapacidadeTanque->setValue( $rsVeiculo->getCampo('capacidade_tanque') ); $obSpnResponsavel = new Span(); $obSpnResponsavel->setId( 'spnResponsavel' ); +//span para a Locação de Veículos +$obSpnLocacao = new Span(); +$obSpnLocacao->setId ( 'spnLocacao' ); +//$obSpnLocacao->setName ( 'spnLocacao' ); + /**** * Controle de documentos ****/ @@ -485,6 +533,14 @@ $obFormulario->addComponente( $obTxtCor ); $obFormulario->addComponente( $obDtAquisicao ); $obFormulario->addComponente( $obSelectHabilitacao ); $obFormulario->agrupaComponentes( array( $obRdControleInternoSim, $obRdControleInternoNao) ); +$obFormulario->addSpan ( $obSpnLocacao ); + +if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio()) == '20') { + + $obFormulario->addTitulo ( 'Dados TCE-RN' ); + $obFormulario->addComponente( $obCmbCategoriaVeiculo ); + +} $obFormulario->addSpan ( $obSpnResponsavel ); @@ -513,12 +569,12 @@ if ($stAcao == 'alterar') { $stOrigem = 'terceiro'; } $jsOnLoad = "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&inCodVeiculo=".$_REQUEST['inCodVeiculo']."&inCodMarca=".$rsVeiculo->getCampo('cod_marca')."&inCodModelo=".$rsVeiculo->getCampo('cod_modelo')."&stOrigem=".$rsVeiculo->getCampo('proprio')."&inCodEntidade=".$rsVeiculo->getCampo('cod_entidade')."&inCodUnidade=".$rsVeiculo->getCampo('num_unidade')."','montaAlterar');"; - $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&stOrigem=".$stOrigem."&inCodPropriedade=".$rsVeiculo->getCampo('cod_propriedade')."&stNomPropriedade=".$rsVeiculo->getCampo('nom_propriedade')."&stLocalizacao=".$rsVeiculo->getCampo('localizacao')."','montaOrigem' );"; + $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&stOrigem=".$stOrigem."&inCodPropriedade=".$rsVeiculo->getCampo('cod_propriedade')."&stNomPropriedade=".$rsVeiculo->getCampo('nom_propriedade')."&stLocalizacao=".$rsVeiculo->getCampo('localizacao')."&inCodVeiculo=".$rsVeiculo->getCampo('cod_veiculo')."','montaOrigem' );"; $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&stOrigem=".$stOrigem."&inCodResponsavel=".$rsVeiculo->getCampo('cod_responsavel')."&stNomResponsavel=".$rsVeiculo->getCampo('nom_responsavel')."&dtInicio=".$rsVeiculo->getCampo('dt_inicio')."','montaResponsavel');"; if ( $rsVeiculo->getCampo('proprio') == 't' ) { $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&inCodBem=".$rsVeiculo->getCampo('cod_propriedade')."','preencheDetalheBem');"; } else { - $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&stOrigem=".$stOrigem."&inCodPropriedade=".$rsVeiculo->getCampo('cod_propriedade')."&stNomPropriedade=".$rsVeiculo->getCampo('nom_propriedade')."&stLocalizacao=".$rsVeiculo->getCampo('localizacao')."&stExercicioEntidade=".$rsVeiculo->getCampo('exercicio_entidade')."&inCodEntidade=".$rsVeiculo->getCampo('cod_entidade')."&inCodEntidade=".$rsVeiculo->getCampo('cod_entidade')."&inCodOrgao=".$rsVeiculo->getCampo('num_orgao')."&inCodUnidade=".$rsVeiculo->getCampo('num_unidade')."','montaOrigem' );"; + $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&stOrigem=".$stOrigem."&inCodPropriedade=".$rsVeiculo->getCampo('cod_propriedade')."&stNomPropriedade=".$rsVeiculo->getCampo('nom_propriedade')."&stLocalizacao=".$rsVeiculo->getCampo('localizacao')."&stExercicioEntidade=".$rsVeiculo->getCampo('exercicio_entidade')."&inCodEntidade=".$rsVeiculo->getCampo('cod_entidade')."&inCodEntidade=".$rsVeiculo->getCampo('cod_entidade')."&inCodOrgao=".$rsVeiculo->getCampo('num_orgao')."&inCodUnidade=".$rsVeiculo->getCampo('num_unidade')."&inCodVeiculo=".$rsVeiculo->getCampo('cod_veiculo')."','montaOrigem' );"; } $jsOnLoad .= "ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&slTipoVeiculo=".$rsVeiculo->getCampo('cod_tipo_veiculo')."&stNumPlaca=".$rsVeiculo->getCampo('placa_masc')."&stPrefixo=".$rsVeiculo->getCampo('prefixo')."','montaPrefixoPlaca');"; diff --git a/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/OCManterVeiculo.php b/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/OCManterVeiculo.php index 89b3d6b..b741ffd 100755 --- a/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/OCManterVeiculo.php +++ b/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/OCManterVeiculo.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - * $Id: OCManterVeiculo.php 59920 2014-09-22 14:27:58Z arthur $ + * $Id: OCManterVeiculo.php 61654 2015-02-20 20:34:48Z jean $ * Casos de uso: uc-03.02.06 */ @@ -43,12 +43,16 @@ include_once '../../../../../../gestaoFinanceira/fontes/PHP/empenho/classes/nego include_once ( CAM_GP_PAT_MAPEAMENTO.'TPatrimonioBem.class.php' ); include_once ( CAM_GP_FRO_MAPEAMENTO.'TFrotaVeiculoDocumento.class.php' ); include_once ( CAM_GP_FRO_MAPEAMENTO.'TFrotaTipoVeiculo.class.php' ); -include_once ( CAM_GF_ORC_COMPONENTES.'ITextBoxSelectEntidadeUsuario.class.php' ); include_once ( CAM_GP_PAT_COMPONENTES.'IPopUpBem.class.php' ); include_once ( CAM_GA_ADM_COMPONENTES.'IMontaLocalizacao.class.php' ); include_once ( CAM_GA_CGM_COMPONENTES."IPopUpCGMVinculado.class.php" ); include_once ( CAM_GP_FRO_MAPEAMENTO.'TFrotaInfracao.class.php' ); include_once( CAM_GF_ORC_MAPEAMENTO.'TOrcamentoEntidade.class.php' ); +include_once CAM_GF_ORC_COMPONENTES."ITextBoxSelectEntidadeGeral.class.php"; +include_once CAM_GF_ORC_COMPONENTES."ITextBoxSelectEntidadeUsuario.class.php"; +include_once(CAM_GA_PROT_COMPONENTES.'IPopUpProcesso.class.php'); +include_once ( CAM_GP_FRO_MAPEAMENTO.'TFrotaVeiculoLocacao.class.php' ); + //Define o nome dos arquivos PHP $stPrograma = "ManterVeiculo"; $pgFilt = "FL".$stPrograma.".php"; @@ -92,6 +96,46 @@ function montaListaDocumentos($arDocumentos) } +function montaListaLocacoes($arLocacoes) +{ + global $pgOcul; + + if ( !is_array($arLocacoes) ) { + $arLocacoes = array(); + } + + $rsLocacoes = new RecordSet(); + $rsLocacoes->preenche( $arLocacoes ); + + $obTable = new Table(); + $obTable->setRecordset( $rsLocacoes ); + $obTable->setSummary( 'Lista de Locações do Veículo' ); + + $obTable->Head->addCabecalho( 'Processo', 10 ); + $obTable->Head->addCabecalho( 'Locatário', 30 ); + $obTable->Head->addCabecalho( 'Empenho', 10 ); + $obTable->Head->addCabecalho( 'Data do Contrato', 10 ); + $obTable->Head->addCabecalho( 'Início', 10 ); + $obTable->Head->addCabecalho( 'Término', 10 ); + $obTable->Head->addCabecalho( 'Valor da Locação', 10 ); + + $obTable->Body->addCampo( 'stProcessoLocacao', 'C' ); + $obTable->Body->addCampo( '[inCodLocatario] - [stNomLocatario]', 'C' ); + $obTable->Body->addCampo( 'inNumEmpenhoLocacao', 'C' ); + $obTable->Body->addCampo( 'dtContrato', 'C' ); + $obTable->Body->addCampo( 'dtIniLocacao', 'C' ); + $obTable->Body->addCampo( 'dtFimLocacao', 'C' ); + $obTable->Body->addCampo( 'inValorLocacao', 'C' ); + + $obTable->Body->addAcao( 'alterar', "JavaScript:ajaxJavaScript( '".CAM_GP_FRO_INSTANCIAS."veiculo/".$pgOcul."?".Sessao::getId()."&id=%s', 'montaAlteracaoLocacoes' );", array( 'id')); + $obTable->Body->addAcao( 'excluir', "JavaScript:ajaxJavaScript( '".CAM_GP_FRO_INSTANCIAS."veiculo/".$pgOcul."?".Sessao::getId()."&id=%s', 'excluirLocacoes' );", array( 'id',)); + + $obTable->montaHTML( true ); + + return "$('spnLocacaoDados').innerHTML = '".$obTable->getHtml()."';"; + +} + function montaEmpenho() { //instancia um formulario @@ -483,6 +527,165 @@ switch ($stCtrl) { if ($obIMontaOrganograma->getScript()) { $stEval = $stEval.$obIMontaOrganograma->getScript(); } + + //cria um form + $obFormLocacao = new Form(); + $obFormLocacao->setAction ($pgProc); + $obFormLocacao->setTarget ("oculto"); + + $obFormularioLocacao = new Formulario(); + + // LOCAÇÃO ----------------------------------------- + + //if (is_array(Sessao::read('arLocacoes'))) { + $obTFrotaVeiculoLocacao = new TFrotaVeiculoLocacao; + $obTFrotaVeiculoLocacao->recuperaTodos($rsVeiculoLocacoes, " WHERE cod_veiculo = ".$_REQUEST['inCodVeiculo']." AND exercicio = '".Sessao::getExercicio()."'"); + //} + + //id da locacao + $obHdnIdLocacao = new Hidden; + $obHdnIdLocacao->setId('hdnIdLocacao'); + $obHdnIdLocacao->setName('hdnIdLocacao'); + + //processo + $obPopUpProcesso = new IPopUpProcesso($obFormLocacao); + $obPopUpProcesso->setRotulo("Processo"); + $obPopUpProcesso->obCampoCod->setId('stProcessoLocacao'); + $obPopUpProcesso->obCampoCod->setName('stProcessoLocacao'); + $obPopUpProcesso->setValidar(true); + $obPopUpProcesso->setNull(true); + + //data do contrato + $obDtContrato = new Data(); + $obDtContrato->setRotulo( 'Data do Contrato' ); + $obDtContrato->setTitle( 'Informe a data do contrato de locação.' ); + $obDtContrato->setName( 'dtContrato' ); + $obDtContrato->setId( 'dtContrato' ); + $obDtContrato->setNull( true ); + + //data inicial + $obDtIniLocacao = new Data(); + $obDtIniLocacao->setRotulo( 'Data de Início' ); + $obDtIniLocacao->setTitle( 'Informe a data de início da locação.' ); + $obDtIniLocacao->setName( 'dtIniLocacao' ); + $obDtIniLocacao->setId( 'dtIniLocacao' ); + $obDtIniLocacao->setNull( true ); + + //data final + $obDtFimLocacao = new Data(); + $obDtFimLocacao->setRotulo( 'Data de Término' ); + $obDtFimLocacao->setTitle( 'Informe a data de término da locação.' ); + $obDtFimLocacao->setName( 'dtFimLocacao' ); + $obDtFimLocacao->setId( 'dtFimLocacao' ); + $obDtFimLocacao->setNull( true ); + + //exercicio da locacao + $obExercicioLocacao = new Exercicio(); + $obExercicioLocacao->setRotulo( 'Exercício' ); + $obExercicioLocacao->setNull( true ); + $obExercicioLocacao->setId( 'stExercicioLocacao' ); + $obExercicioLocacao->setName( 'stExercicioLocacao' ); + + // entidade + $obISelectEntidadeLocacao = new ITextBoxSelectEntidadeGeral(); + $obISelectEntidadeLocacao->obTextBox->setName ('inCodEntidadeLocacao'); + $obISelectEntidadeLocacao->obTextBox->setId ('inCodEntidadeLocacao'); + $obISelectEntidadeLocacao->obSelect->setName ('stNomEntidadeLocacao'); + $obISelectEntidadeLocacao->obSelect->setId ('stNomEntidadeLocacao'); + + //instancia o componente Inteiro para o empenho + $obNumEmpenhoLocacao = new Inteiro(); + $obNumEmpenhoLocacao->setRotulo( 'Número do Empenho' ); + $obNumEmpenhoLocacao->setTitle ( 'Informe o número do empenho da locação.' ); + $obNumEmpenhoLocacao->setName ( 'inNumEmpenhoLocacao' ); + $obNumEmpenhoLocacao->setId ( 'inNumEmpenhoLocacao' ); + $obNumEmpenhoLocacao->setNull ( true ); + + //Valor da depreciação inicial. + $obInValorLocacao = new Moeda(); + $obInValorLocacao->setRotulo('Valor da Locação'); + $obInValorLocacao->setTitle ('Informe o valor da locação.'); + $obInValorLocacao->setName ('inValorLocacao'); + $obInValorLocacao->setId ('inValorLocacao'); + $obInValorLocacao->setNull ( true ); + + //instancia o componente IPopUpCGMVinculado para o responsavel + $obIPopUpLocatario = new IPopUpCGMVinculado( $obFormLocacao ); + $obIPopUpLocatario->setTabelaVinculo ( 'sw_cgm_pessoa_juridica' ); + $obIPopUpLocatario->setCampoVinculo ( 'numcgm' ); + $obIPopUpLocatario->setNomeVinculo ( 'locatário' ); + $obIPopUpLocatario->setRotulo ( 'Locatário' ); + $obIPopUpLocatario->setTitle ( 'Informe o locatário do veículo.' ); + $obIPopUpLocatario->setName ( 'stNomLocatario' ); + $obIPopUpLocatario->setId ( 'stNomLocatario' ); + $obIPopUpLocatario->obCampoCod->setName ( 'inCodLocatario' ); + $obIPopUpLocatario->obCampoCod->setId ( 'inCodLocatario' ); + $obIPopUpLocatario->setNull ( true ); + + //define objeto buttion para incluir dados da locação + $obBtnIncluirLocacao = new Button; + $obBtnIncluirLocacao->setValue ( "Incluir" ); + $obBtnIncluirLocacao->setId ( "incluiDadosLocacao" ); + $obBtnIncluirLocacao->obEvento->setOnClick ( "montaParametrosGET('incluirDadosLocacao', + 'stProcessoLocacao, + dtContrato, + dtIniLocacao, + dtFimLocacao, + stExercicioLocacao, + inCodEntidadeLocacao, + inNumEmpenho, + inValorLocacao, + inCodLocatario, + inNumEmpenhoLocacao, + stNomLocatario' + );" + ); + + //Define Objeto Button para Limpar dados da locação + $obBtnLimparLocacao = new Button; + $obBtnLimparLocacao->setValue ( "Limpar" ); + $obBtnLimparLocacao->obEvento->setOnClick ( "montaParametrosGET('limparDadosLocacao');" ); + + //cria um span para os dados da locação + $obSpnLocacaoDados = new Span(); + $obSpnLocacaoDados->setId( 'spnLocacaoDados' ); + + $obFormularioLocacao->addTitulo ( 'Locação' ); + $obFormularioLocacao->addHidden($obHdnIdLocacao); + $obFormularioLocacao->addComponente($obPopUpProcesso); + $obFormularioLocacao->addComponente($obIPopUpLocatario); + $obFormularioLocacao->addComponente($obDtContrato); + $obFormularioLocacao->addComponente($obDtIniLocacao); + $obFormularioLocacao->addComponente($obDtFimLocacao); + $obFormularioLocacao->addComponente($obExercicioLocacao); + $obFormularioLocacao->addComponente($obISelectEntidadeLocacao); + $obFormularioLocacao->addComponente($obNumEmpenhoLocacao); + $obFormularioLocacao->addComponente($obInValorLocacao); + + $obFormularioLocacao->defineBarra ( array( $obBtnIncluirLocacao, $obBtnLimparLocacao ) ); + $obFormularioLocacao->addSpan ( $obSpnLocacaoDados ); + + $obFormularioLocacao->montaInnerHTML(); + + $stJs .= "$('spnLocacao').innerHTML = '".$obFormularioLocacao->getHTML()."'; "; + if ($rsVeiculoLocacoes->getNumLinhas() > 0) { + $arVeiculoLocacoes = array(); + foreach ($rsVeiculoLocacoes->getElementos() as $i => $valor) { + $arVeiculoLocacoes[$i]['id'] = $valor['id']; + $arVeiculoLocacoes[$i]['stProcessoLocacao'] = str_pad($valor['cod_processo'],5,'0',STR_PAD_LEFT)."/".$valor['ano_exercicio']; + $arVeiculoLocacoes[$i]['stExercicioLocacao'] = $valor['exercicio']; + $arVeiculoLocacoes[$i]['dtIniLocacao'] = $valor['dt_inicio']; + $arVeiculoLocacoes[$i]['dtFimLocacao'] = $valor['dt_termino']; + $arVeiculoLocacoes[$i]['inCodEntidadeLocacao'] = $valor['cod_entidade']; + $arVeiculoLocacoes[$i]['dtContrato'] = $valor['dt_contrato']; + $arVeiculoLocacoes[$i]['inCodLocatario'] = $valor['cgm_locatario']; + $arVeiculoLocacoes[$i]['inNumEmpenhoLocacao'] = $valor['cod_empenho']; + $arVeiculoLocacoes[$i]['inValorLocacao'] = $valor['vl_locacao']; + $arVeiculoLocacoes[$i]['stNomLocatario'] = SistemaLegado::pegaDado('nom_cgm','sw_cgm',' WHERE numcgm = '.$valor['cgm_locatario'].''); + } + Sessao::write('arLocacoes',$arVeiculoLocacoes); + $stJs .= montaListaLocacoes($arVeiculoLocacoes); + } } $obFormulario->montaInnerHTML(); @@ -501,7 +704,9 @@ switch ($stCtrl) { $stJs .= "$('spnOrigem').innerHTML = '';"; $stJs .= "$('hdnOrigem').value = ''; "; } - break; + //SistemaLegado::mostravar($stJs);die; + break; + case "MontaUnidade": $stJs .= "if(f.inCodUnidade){ limpaSelect(f.inCodUnidade,0); } \n"; $stJs .= "jq('#inCodUnidadeTxt').value = ''; \n"; @@ -587,29 +792,110 @@ switch ($stCtrl) { $stJs .= "$('stNomFornecedor').innerHTML = ' ';"; } break; - case 'incluirDocumento' : + case 'incluirDadosLocacao' : $stJs = isset($stJs) ? $stJs : null; - - if ($_REQUEST['stDocumento'] == '') { - $stMensagem = 'Selecione um documento.'; - } elseif ($_REQUEST['stExercicio'] == '') { - $stMensagem = 'Selecione o ano de vencimento.'; - } elseif ( $_REQUEST['stExercicio'] != '' AND $_REQUEST['stExercicio'] > Sessao::getExercicio() ) { + + if ($_REQUEST['stProcessoLocacao'] == '') { + $stMensagem = 'Selecione um processo.'; + } elseif ($_REQUEST['inNumEmpenhoLocacao'] == '') { + $stMensagem = 'Informe o empenho da locação.'; + } elseif ($_REQUEST['stExercicioLocacao'] == '') { + $stMensagem = 'Selecione o ano da locação.'; + } elseif ( $_REQUEST['stExercicioLocacao'] != '' AND $_REQUEST['stExercicioLocacao'] > Sessao::getExercicio() ) { $stMensagem = 'O ano do vencimento deve ser menor ou igual ao ano atual.'; - } elseif ($_REQUEST['inMes'] == '') { - $stMensagem = 'Selecione o mês de vencimento.'; - } elseif ($_REQUEST['stSituacao'] == '') { - $stMensagem = 'Selecione a situação do documento.'; - } elseif ($_REQUEST['stSituacao'] == 'pago') { - if ($_REQUEST['stExercicioEmpenho'] == '') { - $stMensagem = 'Informe o exercícío do empenho.'; - } elseif ($_REQUEST['inCodEntidadeOculto'] == '') { - $stMensagem = 'Informe a entidade do empenho.'; - } - if ($_REQUEST['inCodigoEmpenho'] == '') { - $stMensagem = 'Informe o código do empenho.'; + } elseif ($_REQUEST['dtIniLocacao'] == '') { + $stMensagem = 'Informe a data de início da locação.'; + } elseif ($_REQUEST['dtIniLocacao'] != '' && $_REQUEST['dtIniLocacao'] < '01/01/'.Sessao::getExercicio()) { + $stMensagem = 'A data de início da locação não pode ser menor que o ano atual.'; + } elseif ($_REQUEST['dtFimLocacao'] == '') { + $stMensagem = 'Informe a data de término da locação.'; + } elseif ($_REQUEST['dtFimLocacao'] != '' && $_REQUEST['dtFimLocacao'] <= $_REQUEST['dtIniLocacao']) { + $stMensagem = 'A data de término da locação não pode ser menor ou igual que a data de início da locação.'; + } elseif ($_REQUEST['inCodEntidadeLocacao'] == '') { + $stMensagem = 'Selecione a entidade para a locação.'; + } elseif ($_REQUEST['dtContrato'] == '') { + $stMensagem = 'Informe a data do contrato de locação.'; + } elseif ($_REQUEST['dtContrato'] != '' && ($_REQUEST['dtContrato'] < $_REQUEST['dtIniLocacao'] || $_REQUEST['dtContrato'] > $_REQUEST['dtFimLocacao'])) { + $stMensagem = 'A data do contrato ser igual ou maior que a data de início e menor ou igual que a data de término da locação.'; + } elseif ($_REQUEST['inCodLocatario'] == '') { + $stMensagem = 'Selecione o locatário.'; + } elseif ($_REQUEST['inValorLocacao'] == '') { + $stMensagem = 'Informe o valor da locação.'; + } + + if ( count( Sessao::read('arLocacoes') ) > 0 ) { + foreach ( Sessao::read('arLocacoes') AS $arTemp ) { + if ( ($arTemp['stProcessoLocacao'] == $_REQUEST['stProcessoLocacao']) + && ($arTemp['stExercicioLocacao'] == $_REQUEST['stExercicioLocacao']) + && ($arTemp['dtIniLocacao']."&&".$arTemp['dtFimLocacao'] == $_REQUEST['dtIniLocacao']."&&".$_REQUEST['dtFimLocacao']) + && ($arTemp['inCodEntidadeLocacao'] == $_REQUEST['inCodEntidadeLocacao']) + && ($arTemp['dtContrato'] == $_REQUEST['dtContrato']) + && ($arTemp['inCodLocatario'] == $_REQUEST['inCodLocatario']) + && ($arTemp['inValorLocacao'] == $_REQUEST['inValorLocacao']) + && ($arTemp['inNumEmpenhoLocacao'] == $_REQUEST['inNumEmpenhoLocacao']) + ) { + $stMensagem = 'Esta locação já está na lista.'; + break; + } } } + + if (!$stMensagem) { + $arLocacoes = Sessao::read('arLocacoes'); + $inCount = count($arLocacoes); + $arLocacoes[$inCount]['id'] = $inCount + 1; + $arLocacoes[$inCount]['stProcessoLocacao'] = $_REQUEST['stProcessoLocacao']; + $arLocacoes[$inCount]['stExercicioLocacao'] = $_REQUEST['stExercicioLocacao']; + $arLocacoes[$inCount]['dtIniLocacao'] = $_REQUEST['dtIniLocacao']; + $arLocacoes[$inCount]['dtFimLocacao'] = $_REQUEST['dtFimLocacao']; + $arLocacoes[$inCount]['inCodEntidadeLocacao'] = $_REQUEST['inCodEntidadeLocacao']; + $arLocacoes[$inCount]['dtContrato'] = $_REQUEST['dtContrato']; + $arLocacoes[$inCount]['inCodLocatario'] = $_REQUEST['inCodLocatario']; + $arLocacoes[$inCount]['inNumEmpenhoLocacao'] = $_REQUEST['inNumEmpenhoLocacao']; + $arLocacoes[$inCount]['inValorLocacao'] = $_REQUEST['inValorLocacao']; + $arLocacoes[$inCount]['stNomLocatario'] = $_REQUEST['stNomLocatario']; + + $stJs .= montaListaLocacoes( $arLocacoes ); + $stJs .= "jq('#stProcessoLocacao').val('');"; + $stJs .= "jq('#stExercicioLocacao').val('".Sessao::getExercicio()."');"; + $stJs .= "jq('#dtIniLocacao').val('');"; + $stJs .= "jq('#dtFimLocacao').val('');"; + $stJs .= "jq('#dtContrato').val('');"; + $stJs .= "jq('#inCodLocatario').val('');"; + $stJs .= "jq('#stNomLocatario').html(' ');"; + $stJs .= "jq('#inValorLocacao').val('');"; + $stJs .= "jq('#inCodEntidadeLocacao').val('');"; + $stJs .= "jq('#stNomEntidadeLocacao').val('');"; + $stJs .= "jq('#inNumEmpenhoLocacao').val('');"; + + Sessao::write('arLocacoes' , $arLocacoes); + } else { + $stJs .= "alertaAviso('".$stMensagem."','frm','erro','".Sessao::getId()."'); \n"; + } + break; + + case 'incluirDocumento' : + $stJs = isset($stJs) ? $stJs : null; + if ($_REQUEST['stDocumento'] == '') { + $stMensagem = 'Selecione um documento.'; + } elseif ($_REQUEST['stExercicio'] == '') { + $stMensagem = 'Selecione o ano de vencimento.'; + } elseif ( $_REQUEST['stExercicio'] != '' AND $_REQUEST['stExercicio'] > Sessao::getExercicio() ) { + $stMensagem = 'O ano do vencimento deve ser menor ou igual ao ano atual.'; + } elseif ($_REQUEST['inMes'] == '') { + $stMensagem = 'Selecione o mês de vencimento.'; + } elseif ($_REQUEST['stSituacao'] == '') { + $stMensagem = 'Selecione a situação do documento.'; + } elseif ($_REQUEST['stSituacao'] == 'pago') { + if ($_REQUEST['stExercicioEmpenho'] == '') { + $stMensagem = 'Informe o exercícío do empenho.'; + } elseif ($_REQUEST['inCodEntidadeOculto'] == '') { + $stMensagem = 'Informe a entidade do empenho.'; + } + if ($_REQUEST['inCodigoEmpenho'] == '') { + $stMensagem = 'Informe o código do empenho.'; + } + } if ( count( Sessao::read('arDocumentos') ) > 0 ) { foreach ( Sessao::read('arDocumentos') AS $arTemp ) { if ( ($arTemp['cod_documento'] == $_REQUEST['stDocumento']) AND ($arTemp['ano_documento'] == $_REQUEST['stExercicio']) ) { @@ -647,7 +933,7 @@ switch ($stCtrl) { } else { $stJs .= "alertaAviso('".$stMensagem."','frm','erro','".Sessao::getId()."'); \n"; } - break; + break; case 'montaAlteracaoDocumento' : @@ -675,6 +961,27 @@ switch ($stCtrl) { $stJs .= "$('incluiDocumento').setAttribute( 'onclick','montaParametrosGET(\'alterarDocumento\',\'stDocumento,stExercicio,inMes,stSituacao,stExercicioEmpenho,inCodEntidadeOculto,inCodigoEmpenho,stNomFornecedor,hdnId\');');"; break; + case 'montaAlteracaoLocacoes' : + $arLocacoes = Sessao::read('arLocacoes'); + $inCount = $_REQUEST['id']; + $inCount = $inCount - 1; + + $stJs .= "jq('#hdnIdLocacao').val ('".$_REQUEST['id']."');"; + $stJs .= "jq('#stProcessoLocacao').val ('".$arLocacoes[$inCount]['stProcessoLocacao']."');"; + $stJs .= "jq('#stExercicioLocacao').val ('".$arLocacoes[$inCount]['stExercicioLocacao']."');"; + $stJs .= "jq('#dtIniLocacao').val ('".$arLocacoes[$inCount]['dtIniLocacao']."');"; + $stJs .= "jq('#dtFimLocacao').val ('".$arLocacoes[$inCount]['dtFimLocacao']."');"; + $stJs .= "jq('#dtContrato').val ('".$arLocacoes[$inCount]['dtContrato']."');"; + $stJs .= "jq('#inCodEntidadeLocacao').val ('".$arLocacoes[$inCount]['inCodEntidadeLocacao']."');"; + $stJs .= "jq('#inCodLocatario').val ('".$arLocacoes[$inCount]['inCodLocatario']."');"; + $stJs .= "jq('#stNomLocatario').html ('".$arLocacoes[$inCount]['stNomLocatario']."');"; + $stJs .= "jq('#inNumEmpenhoLocacao').val ('".$arLocacoes[$inCount]['inNumEmpenhoLocacao']."');"; + $stJs .= "jq('#inValorLocacao').val ('".$arLocacoes[$inCount]['inValorLocacao']."');"; + + $stJs .= "$('incluiDadosLocacao').value = 'Alterar';"; + $stJs .= "$('incluiDadosLocacao').setAttribute( 'onclick','montaParametrosGET(\'alterarLocacao\',\'hdnIdLocacao,stProcessoLocacao,stExercicioLocacao,dtIniLocacao,dtFimLocacao,dtContrato,inCodEntidadeLocacao,inCodLocatario,stNomLocatario,inNumEmpenhoLocacao,inValorLocacao\');');"; + break; + case 'alterarDocumento' : if ($_REQUEST['stDocumento'] == '') { $stMensagem = 'Selecione um documento.'; @@ -755,6 +1062,113 @@ switch ($stCtrl) { break; + case 'alterarLocacao' : + if ($_REQUEST['stProcessoLocacao'] == '') { + $stMensagem = 'Selecione um processo.'; + } elseif ($_REQUEST['inNumEmpenhoLocacao'] == '') { + $stMensagem = 'Informe o empenho da locação.'; + } elseif ($_REQUEST['stExercicioLocacao'] == '') { + $stMensagem = 'Selecione o ano da locação.'; + } elseif ( $_REQUEST['stExercicioLocacao'] != '' AND $_REQUEST['stExercicioLocacao'] > Sessao::getExercicio() ) { + $stMensagem = 'O ano do vencimento deve ser menor ou igual ao ano atual.'; + } elseif ($_REQUEST['dtIniLocacao'] == '') { + $stMensagem = 'Informe a data de início da locação.'; + } elseif ($_REQUEST['dtIniLocacao'] != '' && $_REQUEST['dtIniLocacao'] < '01/01/'.Sessao::getExercicio()) { + $stMensagem = 'A data de início da locação não pode ser menor que o ano atual.'; + } elseif ($_REQUEST['dtFimLocacao'] == '') { + $stMensagem = 'Informe a data de término da locação.'; + } elseif ($_REQUEST['dtFimLocacao'] != '' && $_REQUEST['dtFimLocacao'] <= $_REQUEST['dtIniLocacao']) { + $stMensagem = 'A data de término da locação não pode ser menor ou igual que a data de início da locação.'; + } elseif ($_REQUEST['inCodEntidadeLocacao'] == '') { + $stMensagem = 'Selecione a entidade para a locação.'; + } elseif ($_REQUEST['dtContrato'] == '') { + $stMensagem = 'Informe a data do contrato de locação.'; + } elseif ($_REQUEST['dtContrato'] != '' && ($_REQUEST['dtContrato'] < $_REQUEST['dtIniLocacao'] || $_REQUEST['dtContrato'] > $_REQUEST['dtFimLocacao'])) { + $stMensagem = 'A data do contrato ser igual ou maior que a data de início e menor ou igual que a data de término da locação.'; + } elseif ($_REQUEST['inCodLocatario'] == '') { + $stMensagem = 'Selecione o locatário.'; + } elseif ($_REQUEST['inValorLocacao'] == '') { + $stMensagem = 'Informe o valor da locação.'; + } + + if ( count( Sessao::read('arLocacoes') ) > 0 ) { + foreach ( Sessao::read('arLocacoes') AS $arTemp ) { + if ( ($arTemp['stProcessoLocacao'] == $_REQUEST['stProcessoLocacao']) + && ($arTemp['stExercicioLocacao'] == $_REQUEST['stExercicioLocacao']) + && ($arTemp['dtIniLocacao']."&&".$arTemp['dtFimLocacao'] == $_REQUEST['dtIniLocacao']."&&".$_REQUEST['dtFimLocacao']) + && ($arTemp['inCodEntidadeLocacao'] == $_REQUEST['inCodEntidadeLocacao']) + && ($arTemp['dtContrato'] == $_REQUEST['dtContrato']) + && ($arTemp['inCodLocatario'] == $_REQUEST['inCodLocatario']) + && ($arTemp['inValorLocacao'] == $_REQUEST['inValorLocacao']) + && ($arTemp['inNumEmpenhoLocacao'] == $_REQUEST['inNumEmpenhoLocacao']) + ) { + $stMensagem = 'Esta locação já está na lista.'; + break; + } + } + } + + if (!$stMensagem) { + $arLocacoes = Sessao::read('arLocacoes'); + + $inCount = $_REQUEST['hdnIdLocacao']; + $inCount = $inCount - 1; + $arLocacoes[$inCount]['id'] = $_REQUEST['hdnIdLocacao']; + $arLocacoes[$inCount]['stProcessoLocacao'] = $_REQUEST['stProcessoLocacao']; + $arLocacoes[$inCount]['stExercicioLocacao'] = $_REQUEST['stExercicioLocacao']; + $arLocacoes[$inCount]['dtIniLocacao'] = $_REQUEST['dtIniLocacao']; + $arLocacoes[$inCount]['dtFimLocacao'] = $_REQUEST['dtFimLocacao']; + $arLocacoes[$inCount]['inCodEntidadeLocacao'] = $_REQUEST['inCodEntidadeLocacao']; + $arLocacoes[$inCount]['dtContrato'] = $_REQUEST['dtContrato']; + $arLocacoes[$inCount]['inCodLocatario'] = $_REQUEST['inCodLocatario']; + $arLocacoes[$inCount]['inNumEmpenhoLocacao'] = $_REQUEST['inNumEmpenhoLocacao']; + $arLocacoes[$inCount]['inValorLocacao'] = $_REQUEST['inValorLocacao']; + $arLocacoes[$inCount]['stNomLocatario'] = $_REQUEST['stNomLocatario']; + + $stJs .= montaListaLocacoes( $arLocacoes ); + $stJs .= "jq('#hdnId').val ('');"; + $stJs .= "jq('#stProcessoLocacao').val('');"; + $stJs .= "jq('#stExercicioLocacao').val('".Sessao::getExercicio()."');"; + $stJs .= "jq('#dtIniLocacao').val('');"; + $stJs .= "jq('#dtFimLocacao').val('');"; + $stJs .= "jq('#dtContrato').val('');"; + $stJs .= "jq('#inCodLocatario').val('');"; + $stJs .= "jq('#stNomLocatario').html(' ');"; + $stJs .= "jq('#inValorLocacao').val('');"; + $stJs .= "jq('#inCodEntidadeLocacao').val('');"; + $stJs .= "jq('#stNomEntidadeLocacao').val('');"; + $stJs .= "jq('#inNumEmpenhoLocacao').val('');"; + + $stJs .= "$('incluiDadosLocacao').value = 'Incluir';"; + $stJs .= "$('incluiDadosLocacao').setAttribute( 'onclick','montaParametrosGET(\'incluirDadosLocacao\',\'stProcessoLocacao,stExercicioLocacao,dtIniLocacao,dtFimLocacao,dtContrato,inCodLocatario,stNomLocatario,inValorLocacao,inCodEntidadeLocacao,stNomEntidadeLocacao,inNumEmpenhoLocacao\');');"; + Sessao::write('arLocacoes' , $arLocacoes); + + //se estivesse excluido, remove das excluidas + if ( count( Sessao::read('arLocacoesExcluidas') ) > 0 ) { + foreach ( Sessao::read('arLocacoesExcluidas') AS $arTemp ) { + if (($arTemp['stProcessoLocacao'] != $_REQUEST['stProcessoLocacao'] ) && + ($arTemp['stExercicioLocacao'] != $_REQUEST['stExercicioLocacao'] ) && + ($arTemp['dtIniLocacao'] != $_REQUEST['dtIniLocacao'] ) && + ($arTemp['dtFimLocacao'] != $_REQUEST['dtFimLocacao'] ) && + ($arTemp['inCodEntidadeLocacao'] != $_REQUEST['inCodEntidadeLocacao']) && + ($arTemp['dtContrato'] != $_REQUEST['dtContrato'] ) && + ($arTemp['inCodLocatario'] != $_REQUEST['inCodLocatario'] ) && + ($arTemp['inNumEmpenhoLocacao'] != $_REQUEST['inNumEmpenhoLocacao'] ) && + ($arTemp['inValorLocacao'] != $_REQUEST['inValorLocacao'] ) && + ($arTemp['stNomLocatario'] != $_REQUEST['stNomLocatario'] ) + ) { + $arAux[] = $arTemp; + } + } + } + + Sessao::write('arLocacoesExcluidas' , $arAux); + } else { + $stJs .= "alertaAviso('".$stMensagem."','frm','erro','".Sessao::getId()."'); \n"; + } + + break; + case 'excluirDocumento' : $arAux = array(); $arDocumentosExcluidos = Sessao::read('arDocumentosExcluidos'); @@ -772,6 +1186,32 @@ switch ($stCtrl) { $stJs .= montaListaDocumentos( Sessao::read('arDocumentos') ); break; + case 'excluirLocacoes' : + $arAux = array(); + $arLocacoesExcluidas = Sessao::read('arLocacoesExcluidas'); + + foreach ( Sessao::read('arLocacoes') AS $arTemp ) { + if ($arTemp['id'] != $_REQUEST['id']) { + $arAux[] = $arTemp; + } else { + $inCount = count($arLocacoesExcluidas); + $arLocacoesExcluidas[$inCount]['stProcessoLocacao'] = $arTemp['stProcessoLocacao']; + $arLocacoesExcluidas[$inCount]['stExercicioLocacao'] = $arTemp['stExercicioLocacao']; + $arLocacoesExcluidas[$inCount]['dtIniLocacao'] = $arTemp['dtIniLocacao']; + $arLocacoesExcluidas[$inCount]['dtFimLocacao'] = $arTemp['dtFimLocacao']; + $arLocacoesExcluidas[$inCount]['inCodEntidadeLocacao'] = $arTemp['inCodEntidadeLocacao']; + $arLocacoesExcluidas[$inCount]['dtContrato'] = $arTemp['dtContrato']; + $arLocacoesExcluidas[$inCount]['inCodLocatario'] = $arTemp['inCodLocatario']; + $arLocacoesExcluidas[$inCount]['inNumEmpenhoLocacao'] = $arTemp['inNumEmpenhoLocacao']; + $arLocacoesExcluidas[$inCount]['inValorLocacao'] = $arTemp['inValorLocacao']; + $arLocacoesExcluidas[$inCount]['stNomLocatario'] = $arTemp['stNomLocatario']; + } + } + Sessao::write('arLocacoesExcluidas' , $arLocacoesExcluidas); + Sessao::write('arLocacoes' , $arAux); + $stJs .= montaListaLocacoes( Sessao::read('arLocacoes') ); + break; + case 'limparDocumentos' : $stJs .= "$('hdnId').value = '';"; @@ -787,6 +1227,26 @@ switch ($stCtrl) { break; + case 'limparDadosLocacao' : + + $stJs .= "jq('#hdnId').val('');"; + $stJs .= "jq('#stProcessoLocacao').val ('');"; + $stJs .= "jq('#stExercicioLocacao').val ('".Sessao::getExercicio()."');"; + $stJs .= "jq('#dtIniLocacao').val ('');"; + $stJs .= "jq('#dtFimLocacao').val ('');"; + $stJs .= "jq('#dtContrato').val ('');"; + $stJs .= "jq('#inCodLocatario').val ('');"; + $stJs .= "jq('#stNomLocatario').html ('');"; + $stJs .= "jq('#inNumEmpenhoLocacao').val ('');"; + $stJs .= "jq('#inValorLocacao').val ('');"; + $stJs .= "jq('#inCodEntidadeLocacao').val ('');"; + $stJs .= "jq('#stNomEntidadeLocacao').html ('');"; + + $stJs .= "$('incluiDadosLocacao').value = 'Incluir';"; + $stJs .= "$('incluiDadosLocacao').setAttribute( 'onclick','montaParametrosGET(\'incluirDadosLocacao\',\'hdnId,stProcessoLocacao,stExercicioLocacao,dtIniLocacao,dtFimLocacao,dtContrato,inCodEntidadeLocacao,inCodLocatario,stNomLocatario,inNumEmpenhoLocacao,inValorLocacao\');');"; + + break; + case 'montaAlterar' : //seleciona a origem do bem diff --git a/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/PRManterVeiculo.php b/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/PRManterVeiculo.php index 3de4bbe..e820ddd 100755 --- a/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/PRManterVeiculo.php +++ b/gestaoPatrimonial/fontes/PHP/frota/instancias/veiculo/PRManterVeiculo.php @@ -29,7 +29,7 @@ * @author Analista: Gelson W. Gonçalves * @author Desenvolvedor: Henrique Boaventura - * $Id: PRManterVeiculo.php 59920 2014-09-22 14:27:58Z arthur $ + * $Id: PRManterVeiculo.php 61654 2015-02-20 20:34:48Z jean $ * Casos de uso: uc-03.02.06 */ @@ -51,6 +51,9 @@ include_once( CAM_GP_FRO_MAPEAMENTO."TFrotaTipoVeiculo.class.php" ); include_once( CAM_GP_FRO_MAPEAMENTO."TFrotaControleInterno.class.php" ); include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioBemResponsavel.class.php" ); include_once( CAM_GP_PAT_MAPEAMENTO."TPatrimonioVeiculoUniorcam.class.php" ); +include_once( CAM_GPC_TCERN_MAPEAMENTO."TTCERNVeiculoCategoriaVinculo.class.php" ); +include_once( CAM_GP_FRO_MAPEAMENTO.'TFrotaVeiculoLocacao.class.php' ); + $stPrograma = "ManterVeiculo"; $pgFilt = "FL".$stPrograma.".php"; @@ -77,6 +80,7 @@ $obTPatrimonioBemResponsavel = new TPatrimonioBemResponsavel(); $obTFrotaTipoVeiculo = new TFrotaTipoVeiculo(); $obTPatrimonioVeiculoUniorcam = new TPatrimonioVeiculoUniorcam(); $obTFrotaControleInterno = new TFrotaControleInterno(); +$obTFrotaVeiculoLocacao = new TFrotaVeiculoLocacao(); Sessao::setTrataExcecao( true ); Sessao::getTransacao()->setMapeamento( $obTFrotaVeiculo ); @@ -93,6 +97,12 @@ Sessao::getTransacao()->setMapeamento( $obTFrotaMotoristaVeiculo ); Sessao::getTransacao()->setMapeamento( $obTPatrimonioBemResponsavel ); Sessao::getTransacao()->setMapeamento( $obTPatrimonioVeiculoUniorcam ); Sessao::getTransacao()->setMapeamento( $obTFrotaControleInterno ); +Sessao::getTransacao()->setMapeamento( $obTFrotaVeiculoLocacao ); + +if ($_REQUEST['inCategoriaVeiculo']) { + $obTTCERNVeiculoCategoriaVinculo = new TTCERNVeiculoCategoriaVinculo(); + Sessao::getTransacao()->setMapeamento( $obTTCERNVeiculoCategoriaVinculo ); +} switch ($stAcao) { case 'incluir': @@ -304,6 +314,63 @@ switch ($stAcao) { } } } + + //seta os dados da table frota.veiculo_locacao e inclui + if ( is_array( Sessao::read('arLocacoes') ) ) { + foreach ( Sessao::read('arLocacoes') AS $arTemp ) { + $obTFrotaVeiculoLocacao->setDado( 'id' , $arTemp['id'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_veiculo' , $inCodVeiculo ); + $obTFrotaVeiculoLocacao->setDado( 'cod_processo' , substr($arTemp['stProcessoLocacao'],0,5) ); + $obTFrotaVeiculoLocacao->setDado( 'ano_exercicio', substr($arTemp['stProcessoLocacao'],6,4) ); + $obTFrotaVeiculoLocacao->setDado( 'cgm_locatario', $arTemp['inCodLocatario'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_contrato' , $arTemp['dtContrato'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_inicio' , $arTemp['dtIniLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_termino' , $arTemp['dtFimLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'exercicio' , $arTemp['stExercicioLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_entidade' , $arTemp['inCodEntidadeLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_empenho' , $arTemp['inNumEmpenhoLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'vl_locacao' , $arTemp['inValorLocacao'] ); + + $obTFrotaVeiculoLocacao->recuperaPorChave($rsVeiculoLocacao); + + if ($rsVeiculoLocacao->getNumLinhas() > 0) { + $obTFrotaVeiculoLocacao->alteracao(); + } else { + $obTFrotaVeiculoLocacao->inclusao(); + } + } + } + + if ( is_array( Sessao::read('arLocacoesExcluidas') ) ) { + foreach ( Sessao::read('arLocacoesExcluidas') AS $arTemp ) { + $obTFrotaVeiculoLocacao->setDado( 'id' , $arTemp['id'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_veiculo' , $inCodVeiculo ); + $obTFrotaVeiculoLocacao->setDado( 'cod_processo' , substr($arTemp['stProcessoLocacao'],0,5) ); + $obTFrotaVeiculoLocacao->setDado( 'ano_exercicio', substr($arTemp['stProcessoLocacao'],6,4) ); + $obTFrotaVeiculoLocacao->setDado( 'cgm_locatario', $arTemp['inCodLocatario'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_contrato' , $arTemp['dtContrato'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_inicio' , $arTemp['dtIniLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_termino' , $arTemp['dtFimLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'exercicio' , $arTemp['stExercicioLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_entidade' , $arTemp['inCodEntidadeLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_empenho' , $arTemp['inNumEmpenhoLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'vl_locacao' , $arTemp['inValorLocacao'] ); + + $obTFrotaVeiculoLocacao->recuperaPorChave($rsVeiculoLocacaoExclusao); + + if ($rsVeiculoLocacaoExclusao->getNumLinhas > 0) { + $obTFrotaVeiculoLocacao->exclusao(); + } + } + } + + if ($_REQUEST['inCategoriaVeiculo']) { + $obTTCERNVeiculoCategoriaVinculo = new TTCERNVeiculoCategoriaVinculo(); + $obTTCERNVeiculoCategoriaVinculo->setDado('cod_veiculo', $_REQUEST['inCodVeiculo']); + $obTTCERNVeiculoCategoriaVinculo->setDado('cod_categoria', $_REQUEST['inCategoriaVeiculo']); + $obErro = $obTTCERNVeiculoCategoriaVinculo->inclusao(); + } + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=".$stAcao,'Veículo - '.$inCodVeiculo,"incluir","aviso", Sessao::getId(), "../"); } else { SistemaLegado::exibeAviso(urlencode($stMensagem).'!',"n_incluir","erro"); @@ -587,6 +654,68 @@ switch ($stAcao) { } } } + + //seta os dados da table frota.veiculo_locacao e inclui + if ( is_array( Sessao::read('arLocacoes') ) ) { + foreach ( Sessao::read('arLocacoes') AS $arTemp ) { + $obTFrotaVeiculoLocacao->setDado( 'id' , $arTemp['id'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_veiculo' , $_REQUEST['inCodVeiculo'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_processo' , substr($arTemp['stProcessoLocacao'],0,5) ); + $obTFrotaVeiculoLocacao->setDado( 'ano_exercicio', substr($arTemp['stProcessoLocacao'],6,4) ); + $obTFrotaVeiculoLocacao->setDado( 'cgm_locatario', $arTemp['inCodLocatario'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_contrato' , $arTemp['dtContrato'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_inicio' , $arTemp['dtIniLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_termino' , $arTemp['dtFimLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'exercicio' , $arTemp['stExercicioLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_entidade' , $arTemp['inCodEntidadeLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_empenho' , $arTemp['inNumEmpenhoLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'vl_locacao' , $arTemp['inValorLocacao'] ); + + $obTFrotaVeiculoLocacao->recuperaPorChave($rsVeiculoLocacao); + + if ($rsVeiculoLocacao->getNumLinhas() > 0) { + $obTFrotaVeiculoLocacao->alteracao(); + } else { + $obTFrotaVeiculoLocacao->inclusao(); + } + } + } + + if ( is_array( Sessao::read('arLocacoesExcluidas') ) ) { + foreach ( Sessao::read('arLocacoesExcluidas') AS $arTemp ) { + $obTFrotaVeiculoLocacao->setDado( 'id' , $arTemp['id'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_veiculo' , $_REQUEST['inCodVeiculo'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_processo' , substr($arTemp['stProcessoLocacao'],0,5) ); + $obTFrotaVeiculoLocacao->setDado( 'ano_exercicio', substr($arTemp['stProcessoLocacao'],6,4) ); + $obTFrotaVeiculoLocacao->setDado( 'cgm_locatario', $arTemp['inCodLocatario'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_contrato' , $arTemp['dtContrato'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_inicio' , $arTemp['dtIniLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_termino' , $arTemp['dtFimLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'exercicio' , $arTemp['stExercicioLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_entidade' , $arTemp['inCodEntidadeLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_empenho' , $arTemp['inNumEmpenhoLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'vl_locacao' , $arTemp['inValorLocacao'] ); + + $obTFrotaVeiculoLocacao->recuperaPorChave($rsVeiculoLocacaoExclusao); + + if ($rsVeiculoLocacaoExclusao->getNumLinhas > 0) { + $obTFrotaVeiculoLocacao->exclusao(); + } + } + } + + if ($_REQUEST['inCategoriaVeiculo']) { + $obTTCERNVeiculoCategoriaVinculo->setDado('cod_veiculo', $_REQUEST['inCodVeiculo']); + $obTTCERNVeiculoCategoriaVinculo->setDado('cod_categoria', $_REQUEST['inCategoriaVeiculo']); + $obTTCERNVeiculoCategoriaVinculo->recuperaPorChave($rsVinculo); + + if ($rsVinculo->getNumLinhas() > 0) { + $obErro = $obTTCERNVeiculoCategoriaVinculo->alteracao(); + } else { + $obErro = $obTTCERNVeiculoCategoriaVinculo->inclusao(); + } + } + SistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao."&inCodVeiculo=".Sessao::read('codVeiculoFiltro'), 'Veículo - '.$_REQUEST['inCodVeiculo'],"alterar","aviso", Sessao::getId(), "../"); } else { SistemaLegado::exibeAviso(urlencode($stMensagem),"n_incluir","erro"); @@ -652,6 +781,33 @@ switch ($stAcao) { //deleta da table frota.veiculo $obTFrotaVeiculo->setDado('cod_veiculo', $_REQUEST['inCodVeiculo'] ); $obTFrotaVeiculo->exclusao(); + + $obTTCERNVeiculoCategoriaVinculo->setDado('cod_veiculo', $_REQUEST['inCodVeiculo']); + $obTTCERNVeiculoCategoriaVinculo->exclusao(); + + //seta os dados da table frota.veiculo_locacao e exclui + if ( is_array( Sessao::read('arLocacoes') ) ) { + foreach ( Sessao::read('arLocacoes') AS $arTemp ) { + $obTFrotaVeiculoLocacao->setDado( 'id' , $arTemp['id'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_veiculo' , $_REQUEST['inCodVeiculo'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_processo' , substr($arTemp['stProcessoLocacao'],0,5) ); + $obTFrotaVeiculoLocacao->setDado( 'ano_exercicio', substr($arTemp['stProcessoLocacao'],6,4) ); + $obTFrotaVeiculoLocacao->setDado( 'cgm_locatario', $arTemp['inCodLocatario'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_contrato' , $arTemp['dtContrato'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_inicio' , $arTemp['dtIniLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'dt_termino' , $arTemp['dtFimLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'exercicio' , $arTemp['stExercicioLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_entidade' , $arTemp['inCodEntidadeLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'cod_empenho' , $arTemp['inNumEmpenhoLocacao'] ); + $obTFrotaVeiculoLocacao->setDado( 'vl_locacao' , $arTemp['inValorLocacao'] ); + + $obTFrotaVeiculoLocacao->recuperaPorChave($rsVeiculoLocacao); + + if ($rsVeiculoLocacaoExclusao->getNumLinhas > 0) { + $obTFrotaVeiculoLocacao->exclusao(); + } + } + } sistemaLegado::alertaAviso($pgList."?".Sessao::getId()."&stAcao=".$stAcao,'Veículo - '.$_REQUEST['inCodVeiculo'],"excluir","excluir", Sessao::getId(), "../"); diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php b/gestaoPatrimonial/fontes/PHP/licitacao/classes/mapeamento/TLicitacaoContrato.class.php index 87382df..71ff6db 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; } @@ -1572,13 +1571,13 @@ function montaRecuperaAutorizacaoLicitacao() AND ll.cod_licitacao = ".$this->getDado('inCodLicitacao') ." AND ll.cod_modalidade = ".$this->getDado('inCodModalidade') ." AND ll.exercicio = '".$this->getDado('stExercicioLicitacao') ."' - - -ORDER BY autorizacao_empenho.cod_autorizacao - "; - return $stSql; -} -public function recuperaStatusLicitacao(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + + ORDER BY autorizacao_empenho.cod_autorizacao "; + + return $stSql; + } + + public function recuperaStatusLicitacao(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") { return $this->executaRecupera("montaRecuperaStatusLicitacao",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); } @@ -1620,4 +1619,123 @@ public function recuperaStatusLicitacao(&$rsRecordSet,$stFiltro="",$stOrder="",$ return $stSql; } + + public function recuperaLicitacaoParticipante(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") + { + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaLicitacaoParticipante().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; + } + + public function montaRecuperaLicitacaoParticipante() + { + $stSql = " SELECT edital.num_edital + , modalidade.descricao + , licitacao.exercicio + , licitacao.cod_objeto + , licitacao.timestamp + , licitacao.cod_licitacao||'/'||licitacao.exercicio as num_licitacao + , licitacao.cod_entidade + , sw_cgm.nom_cgm as entidade + , licitacao.cod_modalidade + , licitacao.cod_licitacao + , licitacao.cod_processo + , licitacao.exercicio_processo + , edital.cod_modalidade + , licitacao.cod_mapa + , edital.dt_entrega_propostas + , edital.hora_entrega_propostas + , edital.local_entrega_propostas + , edital.local_abertura_propostas + , edital.dt_abertura_propostas + , edital.hora_abertura_propostas + , edital.condicoes_pagamento + , edital.dt_validade_proposta + , edital.dt_validade_proposta-edital.dt_entrega_propostas as qtd_dias_validade + + FROM licitacao.licitacao + + LEFT 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.exercicio + + --ver se abaixo vou precisar + INNER JOIN licitacao.comissao_licitacao + ON comissao_licitacao.cod_licitacao = licitacao.cod_licitacao + AND comissao_licitacao.cod_modalidade = licitacao.cod_modalidade + AND comissao_licitacao.cod_entidade = licitacao.cod_entidade + AND comissao_licitacao.exercicio = licitacao.exercicio + + INNER JOIN compras.modalidade + ON licitacao.cod_modalidade = modalidade.cod_modalidade + + INNER JOIN orcamento.entidade + ON entidade.cod_entidade = licitacao.cod_entidade + AND entidade.exercicio = licitacao.exercicio + + INNER JOIN sw_cgm + ON entidade.numcgm = sw_cgm.numcgm + + WHERE 1=1 \n"; + + if ( $this->getDado( 'num_edital' ) ) { + $stSql .= " AND edital.num_edital = '". $this->getDado( 'num_edital' )."' \n"; + } + + if ( $this->getDado( 'exercicio' ) ) { + $stSql .= " AND licitacao.exercicio = '". $this->getDado( 'exercicio' )."' \n"; + } + + if ( $this->getDado( 'cod_entidade' ) ) { + $stSql .= " AND licitacao.cod_entidade in ( ". $this->getDado( 'cod_entidade' )." ) \n"; + } + + if ( $this->getDado( 'cod_modalidade' ) ) { + $stSql .= " AND licitacao.cod_modalidade = ". $this->getDado( 'cod_modalidade' )." \n"; + } + + if ( $this->getDado( 'cod_licitacao' ) ) { + $stSql .= " AND licitacao.cod_licitacao = ". $this->getDado( 'cod_licitacao' )." \n"; + } + + if ( $this->getDado( 'cod_processo' ) ) { + $stSql .= " AND licitacao.cod_processo = ". $this->getDado( 'cod_processo' )." \n"; + } + + if ( $this->getDado( 'cod_mapa' ) ) { + $stSql .= " AND licitacao.cod_mapa = ". $this->getDado( 'cod_mapa' )." \n"; + } + + if ( $this->getDado( 'cod_tipo_licitacao' ) ) { + $stSql .= " AND licitacao.cod_tipo_licitacao = ". $this->getDado( 'cod_tipo_licitacao' )." \n"; + } + + if ( $this->getDado( 'cod_criterio' ) ) { + $stSql .= " AND licitacao.cod_criterio = ". $this->getDado( 'cod_criterio' )." \n"; + } + + if ( $this->getDado( 'cod_tipo_objeto' ) ) { + $stSql .= " AND licitacao.cod_tipo_objeto = ". $this->getDado( 'cod_tipo_objeto' )." \n"; + } + + if ( $this->getDado( 'cod_objeto' ) ) { + $stSql .= " AND licitacao.cod_objeto = ". $this->getDado( 'cod_objeto' )." \n"; + } + + if ( $this->getDado( 'cod_comissao' ) ) { + $stSql .= " AND comissao_licitacao.cod_comissao = ". $this->getDado( 'cod_comissao' )." \n"; + } + + return $stSql; + } + } + +?> \ No newline at end of file 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 5675794..b6d0cf4 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 60662 2014-11-06 18:19:55Z jean $ + $Id: FMManterHomologacao.php 61615 2015-02-13 19:33:09Z jean $ */ 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/FLManterManutencaoParticipante.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FLManterManutencaoParticipante.php new file mode 100755 index 0000000..f914a0b --- /dev/null +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FLManterManutencaoParticipante.php @@ -0,0 +1,116 @@ + +get('stAcao'); + +//DEFINICAO DOS COMPONENTES DO FORMULARIO +$obForm = new Form(); +$obForm->setAction ( $pgList ); + +$obHdnCtrl = new Hidden(); +$obHdnCtrl->setName ( "stCtrl" ); +$obHdnCtrl->setValue ( $stCtrl ); + +$obHdnAcao = new Hidden(); +$obHdnAcao->setName ( "stAcao" ); +$obHdnAcao->setValue ( $stAcao ); + +$obPopUpMapa = new IPopUpMapaCompras($obForm); + +$obNumLicitacao = new IMontaNumeroLicitacaoMultiploEntidadeUsuario($obForm); + +$obPopUpProcesso = new IPopUpProcesso($obForm); + +$obTipoLicitacao = new ISelectTipoLicitacao(); + +$obCriterioJulgamento = new ISelectCriterioJulgamento(); + +$obTipoObjeto = new ISelectTipoObjeto(); + +$obObjeto = new IPopUpObjeto($obForm); + +$obEdital = new IPopUpNumeroEdital($obForm); +$obEdital->obCampoCod->setId( "numEdital" ); +$obEdital->obCampoCod->setName( "numEdital" ); + +$obComissao = new ISelectComissao(); + +$obFormulario = new Formulario(); +$obFormulario->addForm( $obForm ); +$obFormulario->addHidden( $obHdnCtrl ); +$obFormulario->addHidden( $obHdnAcao ); +$obNumLicitacao->geraFormulario( $obFormulario ); +$obFormulario->addComponente( $obPopUpProcesso ); +$obFormulario->addComponente( $obEdital ); +$obFormulario->addComponente( $obPopUpMapa ); +$obFormulario->addComponente( $obTipoLicitacao ); +$obFormulario->addComponente( $obCriterioJulgamento ); +$obFormulario->addComponente( $obTipoObjeto ); +$obFormulario->addComponente( $obObjeto ); +$obFormulario->addComponente( $obComissao ); +$obFormulario->Ok(); +$obFormulario->Show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; +?> diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FMManterManutencaoParticipante.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FMManterManutencaoParticipante.php index 9d96ec4..48bb90d 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FMManterManutencaoParticipante.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/FMManterManutencaoParticipante.php @@ -35,7 +35,7 @@ * Casos de uso : uc-03.05.18 - * $Id: FMManterManutencaoParticipante.php 59612 2014-09-02 12:00:51Z gelson $ + * $Id: FMManterManutencaoParticipante.php 61786 2015-03-03 21:11:42Z arthur $ */ @@ -59,35 +59,32 @@ $stAcao = $request->get('stAcao'); if (empty($stAcao)) $stAcao = 'manter'; - + $stLocation = $pgList . "?". Sessao::getId() . "&stAcao=" . $stAcao; -/* - * Definição dos componentes(objetos) que irão ser adicionados no formulário - */ +// Recupera a licitação atraves do request +$jsOnload = "executaFuncaoAjax('exibeLicitacao','"."&numEdital=".$request->get('stNumEdital').".&inCodModalidade=".$request->get('inCodModalidade')."&stExercicioLicitacao=".$request->get('stExercicioLicitacao')."&inCodLicitacao=".$request->get('inCodLicitacao')."&inCodEntidade=".$request->get('inCodEntidade')."');"; + //Define o form que será incluido no formulário (padrão no framework) $obForm = new Form; $obForm->setAction( $pgProc ); $obForm->setTarget( "oculto" ); + //Define o Hidden de ação (padrão no framework) $obHdnAcao = new Hidden; $obHdnAcao->setName( "stAcao" ); $obHdnAcao->setValue( $stAcao ); + //Define o Hidde de controle (padrão no framework) $obHdnCtrl = new Hidden; $obHdnCtrl->setName( "stCtrl" ); $obHdnCtrl->setValue( "" ); -include_once(CAM_GP_LIC_COMPONENTES."IMontaNumeroLicitacao.class.php"); - -$obPopUpNumeroEdital = new IPopUpNumeroEdital( $obForm ); -$obPopUpNumeroEdital->obCampoCod->setId("numEdital"); -$obPopUpNumeroEdital->obCampoCod->setName ( "numEdital" ); -$obPopUpNumeroEdital->setNull(false); -$obPopUpNumeroEdital->setId(''); -$obPopUpNumeroEdital->obCampoCod->obEvento->setOnBlur("if (jQuery(this).val() != '') { ajaxJavaScript('".$pgOcul."?".Sessao::getId()."&numEdital='+this.value,'exibeLicitacao'); }"); +$obHdnEdital = new Hidden; +$obHdnEdital->setName ("numEdital"); +$obHdnEdital->setId ("numEdital"); +$obHdnEdital->setValue($request->get('stNumEdital')); -//$obObjetoLic = new ILabelObjetoProcessoLicitatorio(); $obObjetoLic = new Hidden; $obObjetoLic->setName("objetoLicitatorio"); $obObjetoLic->setId("objetoLicitatorio"); @@ -114,13 +111,15 @@ $obSpnParticipante->setId( 'spnParticipante' ); */ $obFormulario = new Formulario; $obFormulario->addForm ( $obForm ); + //Define o caminho de ajuda do Caso de uso (padrão no Framework) $obFormulario->setAjuda ("UC-03.05.18" ); $obFormulario->addHidden ( $obHdnCtrl ); $obFormulario->addHidden ( $obHdnAcao ); +$obFormulario->addHidden ( $obHdnEdital ); + $obFormulario->addTitulo ( "Manutenção de Participantes da Licitação" ); -$obFormulario->addComponente ( $obPopUpNumeroEdital ); $obFormulario->addHidden ( $obObjetoLic ); $obFormulario->addSpan ( $obSpnEdital ); @@ -135,3 +134,5 @@ $obFormulario->Ok(); $obFormulario->show(); include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterManutencaoParticipante.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterManutencaoParticipante.php new file mode 100755 index 0000000..d4e4e7c --- /dev/null +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterManutencaoParticipante.php @@ -0,0 +1,230 @@ + +get('stAcao'); + +if (empty($stAcao)) { + $stAcao = "alterar"; +} + +if (is_array(Sessao::read('link'))) { + $_REQUEST = Sessao::read('link'); +} else { + foreach ($_REQUEST as $key => $valor) { + $link[$key] = $valor; + } + Sessao::write('link' , $link); +} + +if ($_REQUEST['stExercicioLicitacao']) { + $obTLicitacaoLicitacao->setDado( 'exercicio', $_REQUEST['stExercicioLicitacao'] ); +} + +if ( count($_REQUEST['inCodEntidade']) > 0 ) { + $obTLicitacaoLicitacao->setDado( 'cod_entidade', implode(',', $_REQUEST['inCodEntidade']) ); +} + +if ($_REQUEST['inCodModalidade']) { + $obTLicitacaoLicitacao->setDado( 'cod_modalidade', $_REQUEST['inCodModalidade'] ); +} + +if ($_REQUEST['inCodLicitacao']) { + $obTLicitacaoLicitacao->setDado( 'cod_licitacao', $_REQUEST['inCodLicitacao'] ); +} + +if ($_REQUEST['stChaveProcesso']) { + $arProcesso = explode('/', $_REQUEST['stChaveProcesso']); + $obTLicitacaoLicitacao->setDado( 'cod_processo', intval($arProcesso[0]) ); +} + +if ($_REQUEST['numEdital']) { + $arEdital = explode('/',$_REQUEST['numEdital']); + $obTLicitacaoLicitacao->setDado( 'num_edital', $arEdital[0] ); +} + +if ($_REQUEST['stMapaCompras']) { + $arMapa = explode('/', $_REQUEST['stMapaCompras'] ); + $obTLicitacaoLicitacao->setDado( 'cod_mapa', $arMapa[0] ); +} + +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['stObjeto']) { + $obTLicitacaoLicitacao->setDado( 'cod_objeto', $_REQUEST['stObjeto'] ); +} + +if ($_REQUEST['inCodComissao']) { + $obTLicitacaoLicitacao->setDado( 'cod_comissao', $_REQUEST['inCodComissao'] ); +} + +$stFiltro = " + -- A Licitação não pode estar anulada. + 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 + ) + -- O Edital não pode estar anulado. + AND NOT EXISTS ( + SELECT 1 + FROM licitacao.edital_anulado + WHERE edital_anulado.num_edital = edital.num_edital + AND edital_anulado.exercicio = edital.exercicio + ) \n "; + +$stOrder = " ORDER BY licitacao.exercicio DESC + , licitacao.cod_entidade + , licitacao.cod_licitacao + , licitacao.cod_modalidade "; + +$obTLicitacaoLicitacao->recuperaLicitacaoParticipante( $rsLicitacaoParticipante,$stFiltro,$stOrder ); + +$obLista = new Lista; +$obLista->obPaginacao->setFiltro("&stLink=".$stLink ); +$obLista->setRecordSet( $rsLicitacaoParticipante ); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Licitação"); +$obLista->ultimoCabecalho->setWidth( 10 ); +$obLista->commitCabecalho(); + +$obLista->addCabecalho(); +$obLista->ultimoCabecalho->addConteudo("Entidade"); +$obLista->ultimoCabecalho->setWidth( 30 ); +$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(" "); +$obLista->ultimoCabecalho->setWidth( 5 ); +$obLista->commitCabecalho(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "num_licitacao" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("ESQUERDA"); +$obLista->ultimoDado->setCampo( "[cod_entidade] - [entidade]" ); +$obLista->commitDado(); + +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento("DIREITA"); +$obLista->ultimoDado->setCampo( "[cod_processo]/[exercicio_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("&inNumEdital" , "num_edital" ); +$obLista->ultimaAcao->addCampo("&stExercicio" , "exercicio" ); +$obLista->ultimaAcao->addCampo("&stNumEdital" , "[num_edital]/[exercicio]" ); +$obLista->ultimaAcao->addCampo("&stExercicioLicitacao" , "exercicio"); +$obLista->ultimaAcao->addCampo("&inCodEntidade" , "cod_entidade"); +$obLista->ultimaAcao->addCampo("&inCodModalidade" , "cod_modalidade"); +$obLista->ultimaAcao->addCampo("&inCodLicitacao" , "cod_licitacao"); +$obLista->ultimaAcao->addCampo("&dtEntrega" , "dt_entrega_propostas"); +$obLista->ultimaAcao->addCampo("&qtdDiasValidade" , "qtd_dias_validade"); +$obLista->ultimaAcao->addCampo("&dtValidade" , "dt_validade_proposta"); +$obLista->ultimaAcao->addCampo("&stHoraEntrega" , "hora_entrega_propostas"); +$obLista->ultimaAcao->addCampo("&stLocalEntrega" , "local_entrega_propostas"); +$obLista->ultimaAcao->addCampo("&dtAbertura" , "dt_abertura_propostas"); +$obLista->ultimaAcao->addCampo("&stHoraAbertura" , "local_abertura_propostas "); +$obLista->ultimaAcao->addCampo("&stLocalAbertura" , "hora_abertura_propostas"); +$obLista->ultimaAcao->addCampo("&txtCodPagamento" , "condicoes_pagamento"); + +$obLista->ultimaAcao->setLink( $pgForm."?stAcao=".$stAcao.Sessao::getId().$stLink ); + +$obLista->setAjuda("UC-03.05.16"); +$obLista->commitAcao(); +$obLista->show(); + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; + +?> \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterProcessoLicitatorio.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterProcessoLicitatorio.php index c51d879..8e2f699 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterProcessoLicitatorio.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/LSManterProcessoLicitatorio.php @@ -31,7 +31,7 @@ * Casos de uso: uc-03.05.15 - $Id: LSManterProcessoLicitatorio.php 60189 2014-10-06 13:31:59Z carolina $ + $Id: LSManterProcessoLicitatorio.php 61721 2015-02-27 16:19:16Z michel $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/pacotes/FrameworkHTML.inc.php'; @@ -111,7 +111,7 @@ if ($_REQUEST['stExercicioLicitacao']) if ($_REQUEST['stChaveProcesso']) { $arProcesso = explode ('/',$_REQUEST['stChaveProcesso']); $obTLicitacaoLicitacao->setDado('cod_processo',$arProcesso[0]); - $obTLicitacaoLicitacao->setDado('exercicio_processo', "'".$arProcesso[1]."'"); + $obTLicitacaoLicitacao->setDado('exercicio_processo', $arProcesso[1]); } if ($_REQUEST['inPeriodicidade'] != "") { @@ -163,7 +163,6 @@ if ($stAcao == 'consultar') { } $obTLicitacaoLicitacao->recuperaLicitacao($rsLicitacao,$stFiltro, $stOrder); - $stFiltro = $stLink = ""; $stLink .= "&stAcao=".$stAcao; 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/OCManterManutencaoParticipante.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterManutencaoParticipante.php index d12e909..8d9571a 100644 --- a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterManutencaoParticipante.php +++ b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterManutencaoParticipante.php @@ -33,7 +33,7 @@ * @ignore - * $Id: OCManterManutencaoParticipante.php 60841 2014-11-18 16:34:46Z michel $ + * $Id: OCManterManutencaoParticipante.php 61786 2015-03-03 21:11:42Z arthur $ * Casos de uso : uc-03.05.18 */ @@ -525,6 +525,7 @@ switch ($stCtrl) { $stJs.= "document.getElementById('numEdital').focus();"; break; } + list($ano, $mes, $dia) = array_reverse(explode('/',$_REQUEST['dataInclusao'])); $timestampInclusao = $ano.$mes.$dia; @@ -595,27 +596,15 @@ switch ($stCtrl) { break; case 'exibeLicitacao': - + + /* //le o objeto da licitacao //e monta a lista de participantes ja cadastrados if (empty($_REQUEST['numEdital'])) { - //o numero da licitazao ta zerado, limpa tudo $stJs .= "document.getElementById('objetoLicitatorio').innerHTML = ''; "; $stJs .= "document.getElementById('spnEdital').innerHTML = ''; "; $stJs .= "document.getElementById('spnListaParticipantesLic').innerHTML = ''; "; $stJs .= "document.getElementById('spnParticipante').innerHTML = ''; "; - $stJs .= "document.getElementById('numEdital').focus();"; - break; - } - - $arEdital = explode('/', $_REQUEST['numEdital'] ); - $numEdital = $arEdital[0]; - $exercicioEdital = $arEdital[1]; - - if (empty($numEdital) || (int) $numEdital==0) { - $stJs .= "document.getElementById('numEdital').value = '';"; - $stJs .= "document.getElementById('numEdital').focus();"; - $stJs .= "alertaAviso('O Número do Edital deve ser preenchido!', 'form','erro','".Sessao::getId()."');"; break; } @@ -632,28 +621,64 @@ switch ($stCtrl) { AND edital_anulado.exercicio = edital.exercicio )"; $objEdital->recuperaLicitacao($rsLic,$stFiltro); + //licitacao nao encontrada if ($rsLic->eof()) { //Aviso de que o edital nao existe $stJs .= "alertaAviso('Edital ".$numEdital."/".$exercicioEdital." não encontrado!', 'form','erro','".Sessao::getId()."');"; - //Limpa tudo $stJs .= "document.getElementById('objetoLicitatorio').innerHTML = ''; "; $stJs .= "document.getElementById('spnEdital').innerHTML = ''; "; $stJs .= "document.getElementById('spnListaParticipantesLic').innerHTML = ''; "; $stJs .= "document.getElementById('spnParticipante').innerHTML = ''; "; - $stJs .= "document.getElementById('numEdital').value = '';"; - $stJs .= "document.getElementById('numEdital').focus();"; break; } - + $obTLicitacaoLicitacao = new TLicitacaoLicitacao; $obTLicitacaoLicitacao->setDado('exercicio' , $rsLic->getCampo('exercicio') ); $obTLicitacaoLicitacao->setDado('cod_licitacao' , $rsLic->getCampo('cod_licitacao') ); $obTLicitacaoLicitacao->setDado('cod_modalidade' , $rsLic->getCampo('cod_modalidade') ); $obTLicitacaoLicitacao->setDado('cod_entidade' , $rsLic->getCampo('cod_entidade') ); - + */ + + $obTLicitacaoLicitacao = new TLicitacaoLicitacao; + $obTLicitacaoLicitacao->setDado('exercicio' , $request->get('stExercicioLicitacao') ); + $obTLicitacaoLicitacao->setDado('cod_licitacao' , $request->get('inCodLicitacao') ); + $obTLicitacaoLicitacao->setDado('cod_modalidade' , $request->get('inCodModalidade') ); + $obTLicitacaoLicitacao->setDado('cod_entidade' , $request->get('inCodEntidade') ); + + if($request->get('numEdital')){ + $arEdital = explode('/', $request->get('numEdital') ); + $numEdital = $arEdital[0]; + $exercicioEdital = $arEdital[1]; + + $obTLicitacaoLicitacao->setDado('num_edital', $arEdital[0] ); + } + + + $stFiltro = " + -- A Licitação não pode estar anulada. + 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 + ) + -- O Edital não pode estar anulado. + AND NOT EXISTS ( + SELECT 1 + FROM licitacao.edital_anulado + WHERE edital_anulado.num_edital = edital.num_edital + AND edital_anulado.exercicio = edital.exercicio + ) \n "; + + $obTLicitacaoLicitacao->recuperaLicitacaoParticipante( $rsLic, $stFiltro ); + //$obTLicitacaoLicitacao->debug(); + # Verifica se a licitação pertencente ao edital não foi homologada. $obTLicitacaoLicitacao->recuperaLicitacaoNaoHomologada($rsLicitacaoNaoHomologada); + //$obTLicitacaoLicitacao->debug(); # Verifica se a licitação pertencente ao edital não foi julgada. $obTLicitacaoLicitacao->recuperaLicitacaoNaoJulgada($rsLicitacaoNaoJulgada); @@ -661,13 +686,13 @@ switch ($stCtrl) { # Se retornar registro, é por que possui julgamento. if ($rsLicitacaoNaoJulgada->getNumLinhas() > 0) { if ($rsLicitacaoNaoJulgada->getCampo('cod_cotacao') == '') { #Se não estiver anulado, não deve deixar reutilizá-la - $stJs .= "alertaAviso('A licitação nº ".$rsLic->getCampo('cod_licitacao')." vinculada a esse Edital já foi julgada!', 'form','erro','".Sessao::getId()."');"; + $stJs .= "alertaAviso('A licitação nº ".$rsLic->getCampo('cod_licitacao')." vinculada a esse Edital já foi julgada!', 'form','erro','".Sessao::getId()."'); window.location = '".$pgList."';" ; $obErro = true; } } if ($rsLicitacaoNaoHomologada->getNumLinhas() <= 0) { - $stJs .= "alertaAviso('A licitação nº ".$rsLic->getCampo('cod_licitacao')." vinculada a esse Edital já foi homologada!', 'form','erro','".Sessao::getId()."');"; + $stJs .= "alertaAviso('A licitação nº ".$rsLic->getCampo('cod_licitacao')." vinculada a esse Edital já foi homologada!', 'form','erro','".Sessao::getId()."'); window.location = '".$pgList."'; "; $obErro = true; } @@ -677,8 +702,6 @@ switch ($stCtrl) { $stJs .= "document.getElementById('spnEdital').innerHTML = ''; "; $stJs .= "document.getElementById('spnListaParticipantesLic').innerHTML = ''; "; $stJs .= "document.getElementById('spnParticipante').innerHTML = ''; "; - $stJs .= "document.getElementById('numEdital').value = '';"; - $stJs .= "document.getElementById('numEdital').focus();"; break; } @@ -707,7 +730,7 @@ switch ($stCtrl) { $obLblNumeroLicitacao->geraFormulario( $obFormulario ); $obFormulario->montaInnerHTML(); - $stJs .= "document.getElementById('numEdital').value = '".$numEdital."/".$exercicioEdital."';"; + //$stJs .= "document.getElementById('numEdital').value = '".$numEdital."/".$exercicioEdital."';"; $stJs.= "document.getElementById('spnEdital').innerHTML = '".$obFormulario->getHTML()."';"; //coloca na sessao os valores da data de criacao e de adjudicacao da licitacao diff --git a/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php b/gestaoPatrimonial/fontes/PHP/licitacao/instancias/processoLicitatorio/OCManterProcessoLicitatorio.php index 5307b01..b53681f 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 60641 2014-11-05 13:14:49Z jean $ + $Id: OCManterProcessoLicitatorio.php 61490 2015-01-23 18:50:21Z evandro $ */ @@ -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 2cc4d2b..8bcf351 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 60659 2014-11-06 16:17:39Z diogo.zarpelon $ + $Id: PRManterProcessoLicitatorio.php 61490 2015-01-23 18:50:21Z evandro $ */ @@ -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 6a1aecb..5c93dbd 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 60624 2014-11-04 17:04:51Z jean $ + $Id: TPatrimonioBem.class.php 61776 2015-03-03 17:41:03Z carlos.silva $ Caso de uso: uc-03.01.09 Caso de uso: uc-03.01.21 @@ -834,6 +834,7 @@ class TPatrimonioBem extends Persistente , bem_comprado.num_orgao , bem_comprado.num_unidade , TO_CHAR(bem_comprado.data_nota_fiscal,'dd/mm/yyyy') AS data_nota_fiscal + , bem_comprado.caminho_nf , bem_responsavel.numcgm as num_responsavel , bem_responsavel.nom_cgm as nom_responsavel , bem.depreciavel @@ -1088,6 +1089,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; @@ -1130,6 +1149,7 @@ class TPatrimonioBem extends Persistente , unidade.nom_unidade AS nom_unidade_a , bem_comprado.cod_empenho , bem_comprado.nota_fiscal + , bem_comprado.caminho_nf , bem_responsavel.numcgm as num_responsavel , bem_responsavel.nom_cgm as nom_responsavel , TO_CHAR(bem_responsavel.dt_inicio,'dd/mm/yyyy') AS dt_inicio diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemComprado.class.php b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemComprado.class.php index 990b089..8e7887c 100755 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemComprado.class.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/classes/mapeamento/TPatrimonioBemComprado.class.php @@ -59,8 +59,9 @@ function TPatrimonioBemComprado() $this->AddCampo('cod_empenho' ,'integer',false,'' ,false,false); $this->AddCampo('num_orgao' ,'integer',false,'' ,false,false); $this->AddCampo('num_unidade' ,'integer',false,'' ,false,false); - $this->AddCampo('nota_fiscal' ,'char' ,false,'30.0',false,false); + $this->AddCampo('nota_fiscal' ,'varchar',false,'30' ,false,false); $this->AddCampo('data_nota_fiscal' ,'date' ,true ,'' ,false,false); + $this->AddCampo('caminho_nf' ,'varchar',true ,'100' ,false,false); } 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 9c67ab2..db86a1d 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 60865 2014-11-19 17:58:40Z arthur $ + $Id: TPatrimonioDepreciacaoAnulada.class.php 61653 2015-02-20 19:35:15Z arthur $ $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 990cfb6..9959bad 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TPatrimonioGrupo.class.php 61653 2015-02-20 19:35:15Z arthur $ */ @@ -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 25b435b..9b0f707 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FLManterBem.php 61613 2015-02-13 18:36:56Z jean $ * 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 2063451..ca97b6e 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FLManterTransferirBem.php 61462 2015-01-20 13:17:23Z diogo.zarpelon $ * 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 4d37870..08f2eae 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 60864 2014-11-19 17:50:29Z arthur $ + $Id: FMManterBem.php 61776 2015-03-03 17:41:03Z carlos.silva $ * 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(), "../"); @@ -224,6 +232,7 @@ if ($stAcao == 'alterar') { $obForm = new Form; $obForm->setAction ($pgProc); $obForm->setTarget ("oculto"); +$obForm->setEncType( "multipart/form-data" ); //Cria o hidden da acao $obHdnAcao = new Hidden; @@ -258,6 +267,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' ); @@ -494,7 +518,7 @@ $obCmbUnidade->setId ("inCodUnidade"); $obCmbUnidade->setValue ($rsBem->getCampo('num_unidade')); $obCmbUnidade->setStyle ("width: 200px"); $obCmbUnidade->setCampoID ("cod_unidade"); -$obCmbUnidade->setCampoDesc("descricao"); +$obCmbUnidade->setCampoDesc("descricao"); $obCmbUnidade->addOption ('', 'Selecione'); //instancia componente TextBox para o ano do empenho @@ -531,6 +555,24 @@ $obDataNotaFiscal->setName( 'dataNotaFiscal' ); $obDataNotaFiscal->setNull( true ); $obDataNotaFiscal->setValue( $rsBem->getCampo( 'data_nota_fiscal' ) ); +$obFileArquivoNF = new FileBox; +$obFileArquivoNF->setNull ( true ); +$obFileArquivoNF->setRotulo ( "Arquivo Nota Fiscal" ); +$obFileArquivoNF->setTitle ( "Informe o caminho do arquivo" ); +$obFileArquivoNF->setName ( "fileArquivoNF" ); +$obFileArquivoNF->setId ( "fileArquivoNF" ); +$obFileArquivoNF->setSize ( 35 ); +$obFileArquivoNF->setValue ( "" ); + +$obLocalizacao = new Link; +$obLocalizacao->setRotulo("Download da Nota Fiscal"); +$obLocalizacao->setHref( CAM_GP_PAT_ANEXOS.$rsBem->getCampo( 'caminho_nf' )); +if($rsBem->getCampo( 'caminho_nf' ) != '') { + $obLocalizacao->setValue ($rsBem->getCampo( 'caminho_nf' )); +} +$obLocalizacao->setTarget("oculto"); + + if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio()) == 02) { include_once CAM_GPC_TCEAL_MAPEAMENTO.'TTCEALTipoDocumentoFiscal.class.php'; @@ -542,7 +584,7 @@ if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio()) == 02) $obCmbTipoDocFiscal->setName( 'inCodTipoDocFiscal' ); $obCmbTipoDocFiscal->setId( 'inCodTipoDocFiscal' ); $obCmbTipoDocFiscal->setTitle( 'Informe o tipo do documento fiscal.' ); - $obCmbTipoDocFiscal->setValue( $rsBem->getCampo( 'cod_tipo_documento_fiscal') ); + $obCmbTipoDocFiscal->setValue( $rsBem->getCampo( 'cod_tipo_documento_fiscal') ); $obCmbTipoDocFiscal->setNull(true ); $obCmbTipoDocFiscal->setCampoId( 'cod_tipo_documento_fiscal' ); $obCmbTipoDocFiscal->setCampoDesc ("[cod_tipo_documento_fiscal] - [descricao]"); @@ -810,6 +852,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 ); @@ -838,6 +881,12 @@ $obFormulario->addComponente( $obDtIncorporacao ); $obFormulario->addComponente( $obNumEmpenho ); $obFormulario->addComponente( $obNumNotaFiscal ); $obFormulario->addComponente( $obDataNotaFiscal ); +$obFormulario->addComponente( $obFileArquivoNF ); + +if (($stAcao == 'alterar') && ($rsBem->getCampo('caminho_nf') != '')) { + $obFormulario->addComponente( $obLocalizacao ); +} + if (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio()) == 02) { $obFormulario->addComponente( $obCmbTipoDocFiscal ); } @@ -873,6 +922,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 +1021,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 c58d47b..87a473f 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 60719 2014-11-11 17:09:19Z diogo.zarpelon $ + $Id: FMManterConsultarBem.php 61776 2015-03-03 17:41:03Z carlos.silva $ */ @@ -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' ); @@ -196,6 +207,14 @@ $obLblNumNotaFiscal = new Label(); $obLblNumNotaFiscal->setRotulo( 'Número da Nota Fiscal' ); $obLblNumNotaFiscal->setValue( $rsBem->getCampo('nota_fiscal') ); +$obLocalizacao = new Link; +$obLocalizacao->setRotulo("Download da Nota Fiscal"); +$obLocalizacao->setHref( CAM_GP_PAT_ANEXOS.$rsBem->getCampo( 'caminho_nf' )); +if($rsBem->getCampo( 'caminho_nf' ) != '') { + $obLocalizacao->setValue ($rsBem->getCampo( 'caminho_nf' )); +} +$obLocalizacao->setTarget("oculto"); + //label para o responsavel $obLblResponsavel = new Label(); $obLblResponsavel->setRotulo( 'Responsável' ); @@ -294,6 +313,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 ); @@ -313,6 +333,7 @@ $obFormulario->addComponente( $obLblUnidadeA ); $obFormulario->addComponente( $obLblDataIncorporacao ); $obFormulario->addComponente( $obLblEmpenho ); $obFormulario->addComponente( $obLblNumNotaFiscal ); +$obFormulario->addComponente( $obLocalizacao ); switch (SistemaLegado::pegaConfiguracao('cod_uf', 2, Sessao::getExercicio())) { case 02: diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/FMManterTransferirBem.php index 1e310f2..0ed1117 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterTransferirBem.php 61462 2015-01-20 13:17:23Z diogo.zarpelon $ * 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 cc417ee..9264f7a 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 60864 2014-11-19 17:50:29Z arthur $ + * $Id: OCManterBem.php 61522 2015-01-29 18:33:35Z carlos.silva $ */ @@ -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..79bc37c 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,36 +87,28 @@ 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"); } }else{ $obErro = $obTPatrimonioDepreciacao->recuperaMaxCompetenciaDepreciada($rsMaxCompetenciaDepreciada); - + $stFiltroDepreciacao = "\n WHERE competencia = '".$inMesCompetenciaFiltro."'"; $obErro = $obTPatrimonioDepreciacao->recuperaMaxCodDepreciacao($rsMaxDepreciacao, $stFiltroDepreciacao ); $obErro = $obTPatrimonioDepreciacaoAnulada->recuperaMaxCodDepreciacaoAnulada($rsMaxAnulada, $stFiltroDepreciacao ); @@ -124,8 +118,8 @@ switch ($stAcao) { $obErro = $obTPatrimonioDepreciacaoAnulada->recuperaMaxCodDepreciacaoAnulada($rsMaxAnuladaAnterior, $stFiltroAnterior); $obErro = $obTPatrimonioDepreciacaoAnulada->recuperaMaxCompetenciaAnulada($rsMxCompetenciaAnterior, $stFiltroAnterior); - $stProximaCompetencia = ($rsMaxCompetenciaDepreciada->getCampo('max_competencia') != "201412") ? substr(($rsMaxCompetenciaDepreciada->getCampo('max_competencia') + 1), 4, 6)."/".substr($rsMaxCompetenciaDepreciada->getCampo('max_competencia'),0,4) : substr($rsMaxCompetenciaDepreciada->getCampo('max_competencia'), 4, 6)."/".substr($rsMaxCompetenciaDepreciada->getCampo('max_competencia'),0,4); - + $stProximaCompetencia = ($rsMaxCompetenciaDepreciada->getCampo('max_competencia') != $request->get("inExercicio")."12") ? substr(($rsMaxCompetenciaDepreciada->getCampo('max_competencia') + 1), 4, 6)."/".substr($rsMaxCompetenciaDepreciada->getCampo('max_competencia'),0,4) : substr($rsMaxCompetenciaDepreciada->getCampo('max_competencia'), 4, 6)."/".substr($rsMaxCompetenciaDepreciada->getCampo('max_competencia'),0,4); + if (!$obErro->ocorreu()) { // Verifica se a competência anterior possui anulação, não pode depreciar a atual sem antes depreciar novamente a anterior. @@ -146,10 +140,10 @@ switch ($stAcao) { // Não pode ser maior que a competência logada do sistema. } elseif (((int) $_REQUEST['inExercicio'] == date('Y') && (int) $_REQUEST['inCompetencia'] > date('m')) || ((int) $_REQUEST['inExercicio'] != date('Y'))) { - $obErro->setDescricao("A competência selecionada não pode ser maior que a atual do sistema!"); + $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/PRLancamentoContabilDepreciacao.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRLancamentoContabilDepreciacao.php index b90da36..9137f14 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRLancamentoContabilDepreciacao.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRLancamentoContabilDepreciacao.php @@ -95,7 +95,7 @@ switch ($stAcao) { // Verifica se existe se já foi feito algum lançamento. Caso sim, o proximo lançamento não pode ser menor, nem maior que próximo mês a lançar } elseif ($rsUltimoLancamento->getCampo('max_competencia') != "" && ($inAnoMesCompetencia < $rsUltimoLancamento->getCampo('max_competencia') || $inAnoMesCompetencia > ($rsUltimoLancamento->getCampo('max_competencia') + 1))) { - $stProximaCompetencia = ($rsUltimoLancamento->getCampo('max_competencia') != "201412") ? substr(($rsUltimoLancamento->getCampo('max_competencia') + 1), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4) : substr($rsUltimoLancamento->getCampo('max_competencia'), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4); + $stProximaCompetencia = ($rsUltimoLancamento->getCampo('max_competencia') != $inExercicio."12") ? substr(($rsUltimoLancamento->getCampo('max_competencia') + 1), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4) : substr($rsUltimoLancamento->getCampo('max_competencia'), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4); $obErro->setDescricao("A competência selecionada deve ser igual a ".$stProximaCompetencia); // Verifica se não existe nenhuma depreciação no sistema, só pode efetuar lançamentos se existir depreciação. @@ -167,7 +167,7 @@ switch ($stAcao) { // Quando já foi feito ao menos um estorno, avisa o usário o mês a ser estornado. Deve seguir a seguencia do maior para o menor lançamento. if ( $rsUltimoLancamento->getNumLinhas() > 0 && $rsUltimoLancamento->getCampo('estorno') == "t" && ( $inAnoMesCompetencia > $rsUltimoLancamento->getCampo('max_competencia') || $inAnoMesCompetencia < ($rsUltimoLancamento->getCampo('max_competencia') -1))) { - $stProximaCompetencia = ($rsUltimoLancamento->getCampo('max_competencia') != "201401") ? substr(($rsUltimoLancamento->getCampo('max_competencia') - 1), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4) : substr($rsUltimoLancamento->getCampo('max_competencia'), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4); + $stProximaCompetencia = ($rsUltimoLancamento->getCampo('max_competencia') != $inExercicio."01") ? substr(($rsUltimoLancamento->getCampo('max_competencia') - 1), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4) : substr($rsUltimoLancamento->getCampo('max_competencia'), 4, 6)."/".substr($rsUltimoLancamento->getCampo('max_competencia'),0,4); $obErro->setDescricao("A competência selecionada deve ser igual a ".$stProximaCompetencia); // Verifica se é o primeiro estorno das competências. diff --git a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/bem/PRManterBem.php index 81d0af2..1d38870 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 60864 2014-11-19 17:50:29Z arthur $ + * $Id: PRManterBem.php 61776 2015-03-03 17:41:03Z carlos.silva $ * 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); @@ -296,14 +317,34 @@ switch ($stAcao) { $arMontaCodOrgaoM = explode("-", $_REQUEST['inMontaCodOrgaoM']); $arMontaCodUnidadeM = explode("-", $_REQUEST['inMontaCodUnidadeM']); $obTPatrimonioBemComprado->setDado( 'cod_bem' , $inCodBem ); - $obTPatrimonioBemComprado->setDado( 'exercicio' , $_REQUEST['stExercicio'] ); - $obTPatrimonioBemComprado->setDado( 'cod_entidade' , $_REQUEST['inCodEntidade'] ); - $obTPatrimonioBemComprado->setDado( 'cod_empenho' , $_REQUEST['inNumEmpenho'] ); - $obTPatrimonioBemComprado->setDado( 'nota_fiscal' , $_REQUEST['stNumNotaFiscal'] ); - $obTPatrimonioBemComprado->setDado( 'num_orgao' , $_REQUEST['inCodOrgao'] ); - $obTPatrimonioBemComprado->setDado( 'num_unidade' , $_REQUEST['inCodUnidade'] ); - $obTPatrimonioBemComprado->setDado( 'data_nota_fiscal' , $_REQUEST['dataNotaFiscal'] ); + $obTPatrimonioBemComprado->setDado( 'exercicio' , $_REQUEST['stExercicio'] ); + $obTPatrimonioBemComprado->setDado( 'cod_entidade' , $_REQUEST['inCodEntidade'] ); + $obTPatrimonioBemComprado->setDado( 'cod_empenho' , $_REQUEST['inNumEmpenho'] ); + $obTPatrimonioBemComprado->setDado( 'nota_fiscal' , $_REQUEST['stNumNotaFiscal'] ); + $obTPatrimonioBemComprado->setDado( 'num_orgao' , $_REQUEST['inCodOrgao'] ); + $obTPatrimonioBemComprado->setDado( 'num_unidade' , $_REQUEST['inCodUnidade'] ); + $obTPatrimonioBemComprado->setDado( 'data_nota_fiscal', $_REQUEST['dataNotaFiscal'] ); + if ( $_FILES['fileArquivoNF']['name'] != '' ) { + $stDestinoAnexo = CAM_GP_PAT_ANEXOS; + $stEnderecoArquivo = $_FILES['fileArquivoNF']['tmp_name']; + $stNomeArquivo = $_FILES['fileArquivoNF']['name'] ; + if (file_exists($stDestinoAnexo.$stNomeArquivo)) { + $stMensagem = 'Arquivo já existente, informe um arquivo com outro nome.'; + } else { + if ($_FILES['fileArquivoNF']['size'] < 10485760) { + //Seta campo com nome do arquivo + $obTPatrimonioBemComprado->setDado( 'caminho_nf' , $_FILES['fileArquivoNF']['name']); + + $boMoveArquivo = move_uploaded_file( $stEnderecoArquivo, $stDestinoAnexo.$stNomeArquivo ); + if (!$boMoveArquivo) { + $stMensagem = 'Erro ao incluir arquivo.'; + } + } else { + $stMensagem = 'Arquivo excede tamanho máximo de 10MB.'; + } + } + } $obTPatrimonioBemComprado->inclusao(); @@ -376,7 +417,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 +539,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,6 +604,50 @@ 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') { @@ -604,24 +707,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 +721,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 +748,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) { @@ -675,6 +776,27 @@ switch ($stAcao) { $obTPatrimonioBemComprado->setDado( 'num_orgao' , $_REQUEST['inCodOrgao' ]); $obTPatrimonioBemComprado->setDado( 'num_unidade' , $_REQUEST['inCodUnidade' ]); $obTPatrimonioBemComprado->setDado( 'data_nota_fiscal' , $_REQUEST['dataNotaFiscal' ]); + + if ( $_FILES['fileArquivoNF']['name'] != '' ) { + $stDestinoAnexo = CAM_GP_PAT_ANEXOS; + $stEnderecoArquivo = $_FILES['fileArquivoNF']['tmp_name']; + $stNomeArquivo = $_FILES['fileArquivoNF']['name'] ; + if (file_exists($stDestinoAnexo.$stNomeArquivo)) { + $stMensagem = 'Arquivo já existente, informe um arquivo com outro nome.'; + } else { + if ($_FILES['fileArquivoNF']['size'] < 10485760) { + //Seta campo com nome do arquivo + $obTPatrimonioBemComprado->setDado( 'caminho_nf' , $_FILES['fileArquivoNF']['name']); + + $boMoveArquivo = move_uploaded_file( $stEnderecoArquivo, $stDestinoAnexo.$stNomeArquivo ); + if (!$boMoveArquivo) { + $stMensagem = 'Erro ao incluir arquivo.'; + } + } else { + $stMensagem = 'Arquivo excede tamanho máximo de 10MB.'; + } + } + } $obTPatrimonioBemComprado->alteracao(); @@ -747,7 +869,7 @@ switch ($stAcao) { //altera a table patrimonio.bem_responsavel //coloca a data de fim do último responsável e inclui o novo $obTPatrimonioBemResponsavel->setDado( 'cod_bem' , $_REQUEST['inCodBem'] ); - $obTPatrimonioBemResponsavel->setDado( 'timestamp', $rsBemResponsavel->getCampo( 'timestamp' ) ); + $obTPatrimonioBemResponsavel->setDado( 'timestamp', $rsBemResponsavel->getCampo( 'timestamp' ) ); $obTPatrimonioBemResponsavel->setDado( 'dt_inicio', $rsBemResponsavel->getCampo( 'dt_inicio' ) ); $obTPatrimonioBemResponsavel->setDado( 'dt_fim' , $_REQUEST['dtInicioResponsavel'] ); $obTPatrimonioBemResponsavel->setDado( 'numcgm' , $rsBemResponsavel->getCampo( 'numcgm' ) ); @@ -809,6 +931,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 +1074,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 +1091,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 39eacdf..a41f24e 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: PRManterTransferirBem.php 61675 2015-02-24 17:00:21Z franver $ * 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 5ede6a3..9bb0076 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: PRManterGrupo.php 61751 2015-02-27 21:30:49Z arthur $ */ @@ -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,31 @@ switch ($stAcao) { $obTPatrimonioGrupo->recuperaGrupo($rsPatrimonioGrupo, $stFiltro); if ($rsPatrimonioGrupo->getNumLinhas() <= 0) { + + $obTPatrimonioGrupo->setDado('cod_plano_grupo' , $_REQUEST['inCodPlanoDepreciacao']); + $obTPatrimonioGrupo->recuperaGrupoPlanoDepreciacao( $rsGrupoPlanoDepreciacao ); + + 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 +173,6 @@ switch ($stAcao) { } $obTPatrimonioGrupo->setDado( 'depreciacao', $inDepreciacao ); - $obTPatrimonioGrupo->alteracao(); //deleta da table grupo_plano_analitica @@ -157,19 +188,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/OCGeraRelatorioBemEntidade.php b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioBemEntidade.php index f2e3c34..1bd4ca0 100644 --- a/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioBemEntidade.php +++ b/gestaoPatrimonial/fontes/PHP/patrimonio/instancias/relatorio/OCGeraRelatorioBemEntidade.php @@ -109,8 +109,10 @@ if ($_REQUEST['boBemBaixado'] != '' ) { if ($_REQUEST['inCodOrganogramaAtivo'] != '') { if ($_REQUEST['inCodOrganogramaClassificacao'] != '') { + if($_REQUEST['inCodOrganogramaAtivo'] != '') $boPermissaoHierarquica = SistemaLegado::pegaDado('permissao_hierarquica', 'organograma.organograma', ' WHERE cod_organograma = '.$_REQUEST['inCodOrganogramaAtivo']); - + + if($_REQUEST['hdnUltimoOrgaoSelecionado'] != '') $stOrgaoReduzido = SistemaLegado::pegaDado('orgao_reduzido', 'organograma.vw_orgao_nivel', ' WHERE cod_orgao = '.$_REQUEST['hdnUltimoOrgaoSelecionado']); if ($boPermissaoHierarquica == 't'){ 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..bcf8cfa 100644 --- a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql +++ b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_acumulada.plsql @@ -52,13 +52,17 @@ BEGIN , competencia_depreciado.max_competencia FROM patrimonio.bem - -- Recupera o valor do bem. + -- Recupera o valor do bem, para calcular vl_acumumlado e quota das proximas inserções. + -- Quando o bem possuir reavaliação, é desconsiderado as deprecaiações antigas e feitas novas a partir so novo valor. LEFT JOIN ( SELECT depreciacao.cod_bem , depreciacao.cod_depreciacao , depreciacao.timestamp , depreciacao.competencia - , depreciacao.vl_depreciado + , CASE WHEN (SELECT COUNT(cod_depreciacao) FROM patrimonio.depreciacao_reavaliacao WHERE cod_bem = '||inCodBem||') = 0 + THEN 0.00 + ELSE depreciacao.vl_depreciado + END vl_depreciado , CASE WHEN depreciacao_anulada.cod_bem IS NOT NULL AND depreciacao_anulada.cod_depreciacao IS NOT NULL @@ -66,23 +70,34 @@ BEGIN ''anulada'' ELSE ''depreciado'' - END AS situacao - FROM patrimonio.depreciacao + END AS situacao + + FROM patrimonio.depreciacao LEFT JOIN patrimonio.depreciacao_anulada ON depreciacao_anulada.cod_bem = depreciacao.cod_bem AND depreciacao_anulada.cod_depreciacao = depreciacao.cod_depreciacao AND depreciacao_anulada.timestamp = depreciacao.timestamp + + INNER JOIN patrimonio.depreciacao_reavaliacao + ON depreciacao.cod_depreciacao = depreciacao_reavaliacao.cod_depreciacao + AND depreciacao.cod_bem = depreciacao_reavaliacao.cod_bem + AND depreciacao.timestamp = depreciacao_reavaliacao.timestamp ) AS depreciado ON depreciado.cod_bem = bem.cod_bem - -- Recupera as competências minima e máxima que ainda não foram anuladas. + -- Recupera as competências minima e máxima reavaliadas e que ainda não foram anuladas. LEFT JOIN ( SELECT depreciacao.cod_bem , MIN(depreciacao.competencia) AS min_competencia , MAX(depreciacao.competencia) AS max_competencia FROM patrimonio.depreciacao + + INNER JOIN patrimonio.depreciacao_reavaliacao + ON depreciacao.cod_depreciacao = depreciacao_reavaliacao.cod_depreciacao + AND depreciacao.cod_bem = depreciacao_reavaliacao.cod_bem + AND depreciacao.timestamp = depreciacao_reavaliacao.timestamp LEFT JOIN patrimonio.depreciacao_anulada ON depreciacao_anulada.cod_depreciacao = depreciacao.cod_depreciacao @@ -92,6 +107,10 @@ BEGIN WHERE depreciacao_anulada.cod_bem IS NULL AND depreciacao_anulada.cod_depreciacao IS NULL AND depreciacao_anulada.timestamp IS NULL + + AND depreciacao_reavaliacao.cod_reavaliacao = (SELECT MAX(cod_reavaliacao) + FROM patrimonio.reavaliacao + WHERE cod_bem = '||inCodBem||' ) GROUP BY depreciacao.cod_bem @@ -121,13 +140,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 +216,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..c8039f4 100644 --- a/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql +++ b/gestaoPatrimonial/fontes/PLPGSQL/patrimonio/fn_depreciacao_automatica.plsql @@ -45,13 +45,14 @@ 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; + boPlanoAtivoExercicio BOOLEAN; rcBens RECORD; rcDepreciacao RECORD; @@ -60,6 +61,9 @@ AS $$ DECLARE BEGIN +-- flag que verifica se existe algum bem depreciavel com cod_plano, no bem ou no grupo, configurado para o exercicio. +boPlanoAtivoExercicio := false; + stQuery := 'SELECT parametro , valor FROM administracao.configuracao @@ -83,6 +87,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 +97,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 +123,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 +154,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; @@ -165,12 +173,34 @@ stQuery := ' SELECT bem.cod_bem IF vlValorMinimoDepreciacao IS NOT NULL THEN stQuery := stQuery||' AND bem.vl_bem >= '||vlValorMinimoDepreciacao; END IF; - - + FOR rcBens IN EXECUTE stQuery LOOP - vlBem := rcBens.vl_bem; - + boPlanoAtivoExercicio := true; + + -- Caso o bem esteja marcado como depreciavel, mas 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 +232,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 +277,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); @@ -311,6 +297,10 @@ FOR rcBens IN EXECUTE stQuery LOOP END LOOP; END LOOP; +IF boPlanoAtivoExercicio = false THEN + RAISE EXCEPTION 'Necessário configurar uma Conta Contábil de Depreciação Acumulada para o grupo ou nos bens depreciavéis do exercicío - %', stExercicio; +END IF; + RETURN; END; $$ LANGUAGE 'plpgsql'; \ No newline at end of file diff --git a/gestaoPatrimonial/fontes/RPT/almoxarifado/report/design/saidaDiversa.rptdesign b/gestaoPatrimonial/fontes/RPT/almoxarifado/report/design/saidaDiversa.rptdesign index 88e6b63..23bdef2 100644 --- a/gestaoPatrimonial/fontes/RPT/almoxarifado/report/design/saidaDiversa.rptdesign +++ b/gestaoPatrimonial/fontes/RPT/almoxarifado/report/design/saidaDiversa.rptdesign @@ -586,11 +586,6 @@ this.queryText = this.queryText + " AND natureza_lancamento.num_lancamento 285mm - lote - row["num_lancamento"]+" / "+row["exercicio_lancamento"] - string - - Requisitante params["prRequisitante"].value string 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/gestaoPatrimonial/fontes/SQL/GP_2037.sql b/gestaoPatrimonial/fontes/SQL/GP_2037.sql new file mode 100644 index 0000000..bb7e2c8 --- /dev/null +++ b/gestaoPatrimonial/fontes/SQL/GP_2037.sql @@ -0,0 +1,86 @@ +/* + ********************************************************************************** + * * + * @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.7 +* +* Gelson Gonçalves - 20150211 +* +*/ + +---------------- +-- Ticket #22676 +---------------- + +CREATE TABLE frota.veiculo_cessao ( + id INTEGER NOT NULL, + cod_veiculo INTEGER NOT NULL, + cod_processo INTEGER NOT NULL, + exercicio VARCHAR(4) NOT NULL, + cgm_cedente INTEGER NOT NULL, + dt_inicio DATE, + dt_termino DATE, + CONSTRAINT pk_veiculo_cessao PRIMARY KEY (id), + CONSTRAINT fk_veiculo_cessao_1 FOREIGN KEY (cod_veiculo) + REFERENCES frota.veiculo (cod_veiculo), + CONSTRAINT fk_veiculo_cessao_2 FOREIGN KEY (cod_processo,exercicio) + REFERENCES sw_processo (cod_processo,ano_exercicio), + CONSTRAINT fk_veiculo_cessao_3 FOREIGN KEY (cgm_cedente) + REFERENCES sw_cgm_pessoa_juridica (numcgm) + +); + +GRANT ALL ON frota.veiculo_cessao TO GROUP urbem; + +---------------- +-- Ticket #22677 +---------------- + +CREATE TABLE frota.veiculo_locacao ( + id INTEGER NOT NULL, + cod_veiculo INTEGER NOT NULL, + cod_processo INTEGER NOT NULL, + ano_exercicio VARCHAR(4) NOT NULL, + cgm_locatario INTEGER NOT NULL, + dt_contrato DATE NOT NULL, + dt_inicio DATE NOT NULL, + dt_termino DATE NOT NULL, + exercicio VARCHAR(4) NOT NULL, + cod_entidade INTEGER NOT NULL, + cod_empenho INTEGER NOT NULL, + vl_locacao NUMERIC(14,2) NOT NULL, + CONSTRAINT pk_veiculo_locacao PRIMARY KEY (id), + CONSTRAINT fk_veiculo_locacao_1 FOREIGN KEY (cod_veiculo) + REFERENCES frota.veiculo (cod_veiculo), + CONSTRAINT fk_veiculo_locacao_2 FOREIGN KEY (cod_processo,ano_exercicio) + REFERENCES sw_processo (cod_processo,ano_exercicio), + CONSTRAINT fk_veiculo_locacao_3 FOREIGN KEY (cgm_locatario) + REFERENCES sw_cgm_pessoa_juridica (numcgm), + CONSTRAINT fk_veiculo_locacao_4 FOREIGN KEY (exercicio,cod_entidade,cod_empenho) + REFERENCES empenho.empenho (exercicio,cod_entidade,cod_empenho) +); + +GRANT ALL ON frota.veiculo_locacao 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 438df95..acd7fe9 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: OCGeraDespesasSIOPE.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ @@ -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 b7efef2..c5d7864 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 61307 2015-01-05 15:58:11Z carolina $ + * $Id: OCGeraRGFAnexo1.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ * 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 c0348ba..1d4f00c 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 61108 2014-12-09 16:05:31Z michel $ + $Id: OCGeraRGFAnexo3.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ 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 5675378..d895a2d 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 61130 2014-12-10 17:25:29Z michel $ + $Id: OCGeraRGFAnexo4.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ 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 5d5ebbe..b15601b 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 61194 2014-12-15 12:55:20Z michel $ + $Id: OCGeraRREOAnexo1.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ 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 5e4ae01..5ce2e01 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 61256 2014-12-22 13:22:19Z michel $ + $Id: OCGeraRREOAnexo16.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ @@ -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 5f77de1..0287ea3 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 61131 2014-12-10 17:56:24Z arthur $ + $Id: OCGeraRREOAnexo18.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ @@ -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 09d2d6b..7fb5868 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 61299 2014-12-30 19:21:12Z arthur $ + $Id: OCGeraRREOAnexo2.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ 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 e23dc62..93ca8d9 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: OCGeraRREOAnexo3.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ 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 3785b7d..63397e6 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 61114 2014-12-09 17:41:12Z michel $ + $Id: OCGeraRREOAnexo9.php 61605 2015-02-12 16:04:02Z diogo.zarpelon $ */ 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..0f4017b 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 61572 2015-02-09 16:23:27Z michel $ * * @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/instancias/exportacao/ativoPermanente.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEAL/instancias/exportacao/ativoPermanente.inc.php index 198b6bf..2361af9 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 61572 2015-02-09 16:23:27Z michel $ * * @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 dc6fc6b..c2678ae 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 , CASE WHEN acao.num_acao = 9 OR acao.num_acao = 2137 THEN '09999' ELSE lpad(lpad(acao_unidade_executora.num_orgao::VARCHAR, 2, '0')||lpad(acao_unidade_executora.num_unidade::VARCHAR, 2, '0'),5,'0') @@ -161,6 +161,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 @@ -169,6 +204,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 d1b54a6..c8b15e7 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 61121 2014-12-10 12:11:19Z lisiane $ + * $Id: TTCEMGCTB.class.php 61742 2015-02-27 19:28:57Z lisiane $ */ @@ -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..188031f --- /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/TTCEMGConfiguracaoOrgao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGConfiguracaoOrgao.class.php index 6b59fa5..99d2319 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 61325 2015-01-06 19:40:31Z lisiane $ + $Id: TTCEMGConfiguracaoOrgao.class.php 61575 2015-02-10 12:53:21Z franver $ $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 02c3b17..10e0578 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/classes/mapeamento/TTCEMGMetasFiscais.class.php @@ -33,12 +33,12 @@ * @package URBEM * @subpackage Mapeamento * - * $Id: TTCEMGMetasFiscais.class.php 59719 2014-09-08 15:00:53Z franver $ + * $Id: TTCEMGMetasFiscais.class.php 61464 2015-01-20 13:38:33Z jean $ * * $Name: $ - * $Date: 2014-09-08 12:00:53 -0300 (Seg, 08 Set 2014) $ - * $Author: franver $ - * $Rev: 59719 $ + * $Date: 2015-01-20 11:38:33 -0200 (Ter, 20 Jan 2015) $ + * $Author: jean $ + * $Rev: 61464 $ */ include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/valida.inc.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 9064e31..cf6ab08 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 59719 2014-09-08 15:00:53Z franver $ - * $Revision: 59719 $ - * $Author: franver $ - * $Date: 2014-09-08 12:00:53 -0300 (Seg, 08 Set 2014) $ + * $Id: TTCEMGRegistrosArquivoPrograma.class.php 61505 2015-01-27 13:16:29Z evandro $ + * $Revision: 61505 $ + * $Author: evandro $ + * $Date: 2015-01-27 11:16:29 -0200 (Ter, 27 Jan 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 c1f0288..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; } @@ -267,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..0d4838d --- /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..cea1ebf --- /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..8868e4e --- /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/exportacao/obsMetaArrecadacao.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/obsMetaArrecadacao.inc.php index 2fe5402..3af422e 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/obsMetaArrecadacao.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/exportacao/obsMetaArrecadacao.inc.php @@ -44,6 +44,8 @@ $obTTCEMGObsMetaArrecadacao = new TTCEMGObsMetaArrecadacao(); $obTTCEMGObsMetaArrecadacao->setDado('exercicio' , Sessao::getExercicio()); + $obTTCEMGObsMetaArrecadacao->setDado('mes' , $arFiltros['inPeriodo']); + $obTTCEMGObsMetaArrecadacao->recuperaDadosArquivo($rsArquivo); $obExportador->roUltimoArquivo->addBloco($rsArquivo); 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 66e06a4..87dd1c9 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 @@ -31,10 +31,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: AOC.csv.inc.php 61373 2015-01-12 17:26:51Z evandro $ - * $Date: 2015-01-12 15:26:51 -0200 (Seg, 12 Jan 2015) $ + * $Id: AOC.csv.inc.php 61458 2015-01-19 16:42:50Z evandro $ + * $Date: 2015-01-19 14:42:50 -0200 (Seg, 19 Jan 2015) $ * $Author: evandro $ - * $Rev: 61373 $ + * $Rev: 61458 $ * */ /** @@ -291,7 +291,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 cb05d35..2191e79 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 @@ -31,7 +31,7 @@ * @author Desenvolvedor: Lisiane Morais * * @ignore - * $Id: CTB.csv.inc.php 61121 2014-12-10 12:11:19Z lisiane $ + * $Id: CTB.csv.inc.php 61742 2015-02-27 19:28:57Z lisiane $ * $Date:$ * $Author:$ * $Rev:$ @@ -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 624aff8..c5775e3 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 @@ -31,10 +31,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: CVC.csv.inc.php 61369 2015-01-12 13:53:38Z arthur $ - * $Date: 2015-01-12 11:53:38 -0200 (Seg, 12 Jan 2015) $ - * $Author: arthur $ - * $Rev: 61369 $ + * $Id: CVC.csv.inc.php 61685 2015-02-25 17:21:05Z lisiane $ + * $Date: 2015-02-25 14:21:05 -0300 (Qua, 25 Fev 2015) $ + * $Author: lisiane $ + * $Rev: 61685 $ * */ /** @@ -57,15 +57,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/EXT.csv.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/EXT.csv.inc.php index edc60a6..4e2c3a5 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/EXT.csv.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCEMG/instancias/layout_arquivos/acompanhamentoMesal/EXT.csv.inc.php @@ -31,10 +31,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: EXT.csv.inc.php 61383 2015-01-13 12:55:37Z evandro $ - * $Date: 2015-01-13 10:55:37 -0200 (Ter, 13 Jan 2015) $ + * $Id: EXT.csv.inc.php 61519 2015-01-29 15:38:40Z evandro $ + * $Date: 2015-01-29 13:38:40 -0200 (Qui, 29 Jan 2015) $ * $Author: evandro $ - * $Rev: 61383 $ + * $Rev: 61519 $ * */ /** @@ -50,11 +50,11 @@ $rsRecordSetEXT23 = new RecordSet(); $rsRecordSetEXT24 = new RecordSet(); $obTTCEMGExtraOrcamentarias = new TTCEMGExtraOrcamentarias(); -$obTTCEMGExtraOrcamentarias->setDado('exercicio', Sessao::getExercicio()); -$obTTCEMGExtraOrcamentarias->setDado('entidades', $stEntidades); -$obTTCEMGExtraOrcamentarias->setDado('mes', $stMes); -$obTTCEMGExtraOrcamentarias->setDado('dt_inicial', $stDataInicial); -$obTTCEMGExtraOrcamentarias->setDado('dt_final', $stDataFinal); +$obTTCEMGExtraOrcamentarias->setDado('exercicio' , Sessao::getExercicio()); +$obTTCEMGExtraOrcamentarias->setDado('entidades' , $stEntidades); +$obTTCEMGExtraOrcamentarias->setDado('mes' , $stMes); +$obTTCEMGExtraOrcamentarias->setDado('dt_inicial' , $stDataInicial); +$obTTCEMGExtraOrcamentarias->setDado('dt_final' , $stDataFinal); //Tipo Registro 10 $obTTCEMGExtraOrcamentarias->recuperaExportacao10($rsRecordSetEXT10); @@ -70,7 +70,6 @@ $obTTCEMGExtraOrcamentarias->recuperaExportacao22($rsRecordSetEXT22); //Tipo Registro 23 $obTTCEMGExtraOrcamentarias->recuperaExportacao23($rsRecordSetEXT23); - /* ------------------------------ O registro 24 foi comentado para motivos de teste conforme requisitado por Silvia Martins Silva 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 0beb6b5..54927c0 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 @@ -31,10 +31,10 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: NTF.csv.inc.php 61365 2015-01-12 11:41:35Z evandro $ - * $Date: 2015-01-12 09:41:35 -0200 (Seg, 12 Jan 2015) $ - * $Author: evandro $ - * $Rev: 61365 $ + * $Id: NTF.csv.inc.php 61568 2015-02-09 11:41:58Z michel $ + * $Date: 2015-02-09 09:41:58 -0200 (Seg, 09 Fev 2015) $ + * $Author: michel $ + * $Rev: 61568 $ * */ /** @@ -67,8 +67,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 e854118..1087842 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 @@ -31,16 +31,19 @@ * @author Desenvolvedor: Franver Sarmento de Moraes * * @ignore - * $Id: ORGAO.csv.inc.php 61325 2015-01-06 19:40:31Z lisiane $ - * $Date: 2015-01-06 17:40:31 -0200 (Ter, 06 Jan 2015) $ - * $Author: lisiane $ - * $Rev: 61325 $ + * $Id: ORGAO.csv.inc.php 61575 2015-02-10 12:53:21Z franver $ + * $Date: 2015-02-10 10:53:21 -0200 (Ter, 10 Fev 2015) $ + * $Author: franver $ + * $Rev: 61575 $ * */ + /** * ORGAO.csv | Autor : Michel Teixeira */ + include_once CAM_GPC_TCEMG_MAPEAMENTO."TTCEMGConfiguracaoOrgao.class.php"; + $rsRecordSetORGAO10 = new RecordSet(); $rsRecordSetORGAO11 = new RecordSet(); $stVersao = 'Versão: '.Sessao::getVersao(); @@ -48,6 +51,7 @@ $stVersao = 'Versão: '.Sessao::getVersao(); $obTTCEMGConfiguracaoOrgao = new TTCEMGConfiguracaoOrgao; $obTTCEMGConfiguracaoOrgao->setDado('exercicio',Sessao::getExercicio()); $obTTCEMGConfiguracaoOrgao->setDado('entidade',$stEntidades); + if(Sessao::getExercicio() >= 2015){ $obTTCEMGConfiguracaoOrgao->setDado('versao',$stVersao); $obTTCEMGConfiguracaoOrgao->recuperaOrgao2015($rsRecordSetORGAO10); @@ -55,8 +59,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 @@ -69,7 +75,6 @@ $arRecordSetORGAO99 = array( $rsRecuperaORGAO99 = new RecordSet(); $rsRecuperaORGAO99->preenche($arRecordSetORGAO99); - if (count($rsRecordSetORGAO10->getElementos()) > 0) { $inCount=0; foreach ($rsRecordSetORGAO10->getElementos() as $arORGAO10) { @@ -113,12 +118,12 @@ if (count($rsRecordSetORGAO10->getElementos()) > 0) { $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_documento"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(14); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("versao"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(50); } if (count($rsRecordSetORGAO11->getElementos()) > 0) { @@ -175,12 +180,12 @@ if (count($rsRecordSetORGAO10->getElementos()) > 0) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoMaximo(50); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dtinicio"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dtfinal"); - $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); $obExportador->roUltimoArquivo->roUltimoBloco->setDelimitador(';'); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(8); @@ -199,8 +204,10 @@ if (count($rsRecordSetORGAO10->getElementos()) > 0) { $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); } + $rsRecordSetORGAO10 = null; $rsRecordSetORGAO11 = null; $obTTCEMGConfiguracaoOrgao = null; -$rsRecuperaORGAO99 = null; +$rsRecuperaORGAO99 = null; + ?> \ No newline at end of file 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 15f25b4..694710a 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 61345 2015-01-08 19:26:58Z lisiane $ - * $Date: 2015-01-08 17:26:58 -0200 (Qui, 08 Jan 2015) $ - * $Author: lisiane $ - * $Rev: 61345 $ + * $Id: RSP.csv.inc.php 61577 2015-02-10 16:27:09Z franver $ + * $Date: 2015-02-10 14:27:09 -0200 (Ter, 10 Fev 2015) $ + * $Author: franver $ + * $Rev: 61577 $ * */ /** @@ -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/TCERN/classes/mapeamento/TTCERNCategoriaVeiculoTCE.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNCategoriaVeiculoTCE.class.php new file mode 100644 index 0000000..032b793 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNCategoriaVeiculoTCE.class.php @@ -0,0 +1,56 @@ + +setTabela('tcern.categoria_veiculo_tce'); + $this->setCampoCod('cod_categoria'); + $this->setComplementoChave(''); + + $this->AddCampo('cod_categoria', 'integer', true, '', true, true ); + $this->AddCampo('nom_categoria', 'varchar', false, '20', false, false ); + } +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNEspecieVeiculoTCE.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNEspecieVeiculoTCE.class.php new file mode 100644 index 0000000..b632935 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNEspecieVeiculoTCE.class.php @@ -0,0 +1,47 @@ + +setTabela('tcern.especie_veiculo_tce'); + $this->setCampoCod('cod_especie_tce'); + $this->setComplementoChave(''); + $this->AddCampo('cod_especie_tce', 'integer', true, '', true, true); + $this->AddCampo('nom_especie_tce', 'integer', true, '', false, false); +} + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoTCE.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoTCE.class.php new file mode 100644 index 0000000..a8de799 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoTCE.class.php @@ -0,0 +1,74 @@ + +setTabela('tcern.tipo_veiculo_tce'); + $this->setCampoCod('cod_tipo_tce'); + $this->setComplementoChave(''); + $this->AddCampo('cod_tipo_tce', 'integer', true, '' , true , false); + $this->AddCampo('nom_tipo_tce', 'varchar', true, '200', false, false); +} + +function recuperaTipoVeiculoTCE(&$rsRecordSet, $stFiltro = "", $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->montaRecuperaTipoVeiculoTCE().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, $boTransacao ); + + return $obErro; +} + +function montaRecuperaTipoVeiculoTCE() +{ + $stSql = "SELECT + * + FROM + tcern.tipo_veiculo_tce "; + if ($this->getDado('inCodTipoVeiculo') ) + $stSql .= " where cod_tipo_tce = ".$this->getDado('inCodTipoVeiculo')." \n"; + + return $stSql; +} + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoVinculo.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoVinculo.class.php new file mode 100644 index 0000000..bfd9311 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNTipoVeiculoVinculo.class.php @@ -0,0 +1,49 @@ + +setTabela('tcern.tipo_veiculo_vinculo'); + $this->setCampoCod('cod_tipo'); + $this->setComplementoChave(''); + $this->AddCampo('cod_tipo' , 'integer', true, '' , true , true); + $this->AddCampo('cod_especie_tce', 'integer', true, '' , false, true); + $this->AddCampo('cod_tipo_tce' , 'integer', true, '' , false, true); + +} + +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNVeiculoCategoriaVinculo.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNVeiculoCategoriaVinculo.class.php new file mode 100644 index 0000000..8a7f158 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTCERNVeiculoCategoriaVinculo.class.php @@ -0,0 +1,56 @@ + +setTabela('tcern.veiculo_categoria_vinculo'); + $this->setCampoCod('cod_veiculo'); + $this->setComplementoChave(''); + + $this->AddCampo('cod_veiculo' , 'integer', true, '', true, true ); + $this->AddCampo('cod_categoria', 'integer', true, '', false, true ); + } +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTRNAnexo28.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTRNAnexo28.class.php new file mode 100644 index 0000000..e28d45f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/classes/mapeamento/TTRNAnexo28.class.php @@ -0,0 +1,332 @@ + + + +executaRecupera("montaRecuperaHeader",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaHeader() + { + $stSql = " + SELECT + '0' AS tipo_registro + , 'ANEXO28' AS nom_arquivo + , '".$this->getDado('exercicio')."0".$this->getDado('inBimestre')."' AS bimestre + , 'O' AS tipo_arquivo + , to_char(CURRENT_DATE,'dd/mm/yyyy') AS dt_arquivo + , substr(CAST(CURRENT_TIME AS text),1,8) AS hr_arquivo + , configuracao_entidade.valor AS cod_orgao + , sw_cgm.nom_cgm AS nom_orgao + + FROM administracao.configuracao_entidade + + JOIN orcamento.entidade + ON entidade.exercicio = configuracao_entidade.exercicio + AND entidade.cod_entidade = configuracao_entidade.cod_entidade + + JOIN sw_cgm + ON sw_cgm.numcgm = entidade.numcgm + + WHERE configuracao_entidade.exercicio = '".$this->getDado('exercicio')."' + AND configuracao_entidade.cod_entidade = ( SELECT valor::INTEGER + FROM administracao.configuracao + WHERE parametro = 'cod_entidade_prefeitura' + AND exercicio = '".$this->getDado('exercicio')."' + ) + AND configuracao_entidade.cod_modulo = 49 + AND configuracao_entidade.parametro = 'cod_orgao_tce'"; + return $stSql; + } + + public function recuperaRegistro1(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro1",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro1() + { + $stSql = " + SELECT + '1' AS tipo_registro + , bem_processo.cod_processo AS processo_origem + , sw_cgm_pessoa_juridica.cnpj AS cnpj + , sw_cgm.nom_cgm AS nome_contratado + , TO_CHAR(bem.dt_aquisicao, 'dd/mm/yyyy') AS dt_aquisicao + , bem.vl_bem AS vl_aquisicao + + FROM patrimonio.bem_processo + + INNER JOIN patrimonio.bem + ON bem.cod_bem = bem_processo.cod_bem + + INNER JOIN patrimonio.bem_comprado + ON bem_comprado.cod_bem = bem.cod_bem + + INNER JOIN frota.proprio + ON proprio.cod_bem = bem.cod_bem + + INNER JOIN empenho.empenho + ON empenho.cod_empenho = bem_comprado.cod_empenho + AND empenho.cod_entidade = bem_comprado.cod_entidade + AND empenho.exercicio = bem_comprado.exercicio + + INNER JOIN empenho.pre_empenho + ON pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + AND pre_empenho.exercicio = empenho.exercicio + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = pre_empenho.cgm_beneficiario + + INNER JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = sw_cgm.numcgm + + WHERE bem_comprado.exercicio = '".$this->getDado('exercicio')."' + AND bem_comprado.cod_entidade IN (".$this->getDado('inCodEntidade').") + AND TO_CHAR(bem.dt_aquisicao, 'yyyy/mm/dd') BETWEEN '".$this->getDado('dtInicial')."' AND '".$this->getDado('dtFinal')."' + "; + return $stSql; + } + + public function recuperaRegistro2(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro2",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro2() + { + $stSql = " SELECT + '2' AS tipo_registro + , bem_processo.cod_processo AS processo_origem + , sw_cgm_pessoa_juridica.cnpj AS cnpj + , sw_cgm.nom_cgm AS nome_locatario + , TO_CHAR(veiculo_locacao.dt_contrato, 'dd/mm/yyyy') AS dt_contrato + , TO_CHAR(veiculo_locacao.dt_inicio, 'dd/mm/yyyy') AS ini_locacao + , TO_CHAR(veiculo_locacao.dt_termino, 'dd/mm/yyyy') AS fim_locacao + , veiculo_locacao.vl_locacao AS vl_locacao + + FROM patrimonio.bem_processo + + INNER JOIN patrimonio.bem + ON bem.cod_bem = bem_processo.cod_bem + + INNER JOIN patrimonio.bem_comprado + ON bem_comprado.cod_bem = bem.cod_bem + + INNER JOIN frota.proprio + ON proprio.cod_bem = bem.cod_bem + + INNER JOIN frota.veiculo + ON veiculo.cod_veiculo = proprio.cod_veiculo + + INNER JOIN frota.veiculo_locacao + ON veiculo_locacao.cod_veiculo = veiculo.cod_veiculo + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = veiculo_locacao.cgm_locatario + + INNER JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = veiculo_locacao.cgm_locatario + + WHERE bem_comprado.exercicio = '".$this->getDado('exercicio')."' + AND bem_comprado.cod_entidade IN (".$this->getDado('inCodEntidade').") + AND TO_CHAR(bem.dt_aquisicao, 'yyyy/mm/dd') BETWEEN '".$this->getDado('dtInicial')."' AND '".$this->getDado('dtFinal')."' + "; + return $stSql; + } + + public function recuperaRegistro3(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro3",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro3() + { + $stSql = " SELECT + '3' AS tipo_registro + , bem_processo.cod_processo AS processo_origem + , sw_cgm_pessoa_juridica.cnpj AS cnpj_cedente + , sw_cgm.nom_cgm AS orgao_cedente + , veiculo_cessao.dt_inicio AS dt_inicio + , veiculo_cessao.dt_termino AS dt_final + + + FROM patrimonio.bem_processo + + INNER JOIN patrimonio.bem + ON bem.cod_bem = bem_processo.cod_bem + + INNER JOIN patrimonio.bem_comprado + ON bem_comprado.cod_bem = bem.cod_bem + + INNER JOIN frota.proprio + ON proprio.cod_bem = bem.cod_bem + + INNER JOIN frota.veiculo + ON veiculo.cod_veiculo = proprio.cod_veiculo + + INNER JOIN frota.veiculo_cessao + ON veiculo_cessao.cod_veiculo = veiculo.cod_veiculo + + INNER JOIN empenho.empenho + ON empenho.cod_empenho = bem_comprado.cod_empenho + AND empenho.cod_entidade = bem_comprado.cod_entidade + AND empenho.exercicio = bem_comprado.exercicio + + INNER JOIN empenho.pre_empenho + ON pre_empenho.cod_pre_empenho = empenho.cod_pre_empenho + AND pre_empenho.exercicio = empenho.exercicio + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = veiculo_cessao.cgm_cedente + + INNER JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = veiculo_cessao.cgm_cedente + + INNER JOIN sw_processo + ON sw_processo.cod_processo = bem_processo.cod_processo + AND sw_processo.ano_exercicio = bem_processo.ano_exercicio + + WHERE bem_comprado.exercicio = '".$this->getDado('exercicio')."' + AND bem_comprado.cod_entidade IN (".$this->getDado('inCodEntidade').") + AND TO_CHAR(bem.dt_aquisicao, 'yyyy/mm/dd') BETWEEN '".$this->getDado('dtInicial')."' AND '".$this->getDado('dtFinal')."' + "; + return $stSql; + } + + public function recuperaRegistro4(&$rsRecordSet,$stFiltro="",$stOrder="",$boTransacao="") + { + return $this->executaRecupera("montaRecuperaRegistro4",$rsRecordSet,$stFiltro,$stOrder,$boTransacao); + } + + public function montaRecuperaRegistro4() + { + $stSql = " SELECT + '4' AS tipo_registro + , bem_processo.cod_processo AS processo_origem + , CASE WHEN veiculo_situacao.situacao = 'locacao' THEN 2 + WHEN veiculo_situacao.situacao = 'cessao' THEN 3 + WHEN veiculo_situacao.situacao IS NULL THEN 1 + END AS situacao + , especie_veiculo_tce.nom_especie_tce AS id_especie + , tipo_veiculo_tce.nom_tipo_tce AS id_tipo + , marca.nom_marca||' '||modelo.nom_modelo AS id_marca + , veiculo.ano_fabricacao AS ano_fabricacao + , veiculo.placa AS placa + , veiculo.num_certificado AS renavam + , combustivel.nom_combustivel AS id_combustivel + , veiculo.capacidade_tanque AS tanque + , categoria_veiculo_tce.nom_categoria AS id_categoria + + FROM patrimonio.bem_processo + + INNER JOIN patrimonio.bem + ON bem.cod_bem = bem_processo.cod_bem + + INNER JOIN patrimonio.bem_comprado + ON bem_comprado.cod_bem = bem.cod_bem + + INNER JOIN frota.proprio + ON proprio.cod_bem = bem.cod_bem + + INNER JOIN frota.veiculo + ON veiculo.cod_veiculo = proprio.cod_veiculo + + INNER JOIN frota.veiculo_combustivel + ON veiculo_combustivel.cod_veiculo = veiculo.cod_veiculo + + INNER JOIN frota.combustivel + ON combustivel.cod_combustivel = veiculo_combustivel.cod_combustivel + + INNER JOIN frota.marca + ON marca.cod_marca = veiculo.cod_marca + + INNER JOIN frota.modelo + ON modelo.cod_modelo = veiculo.cod_modelo + AND modelo.cod_marca = veiculo.cod_marca + + INNER JOIN frota.tipo_veiculo + ON tipo_veiculo.cod_tipo = veiculo.cod_tipo_veiculo + + INNER JOIN tcern.tipo_veiculo_vinculo + ON tipo_veiculo_vinculo.cod_tipo = tipo_veiculo.cod_tipo + + INNER JOIN tcern.especie_veiculo_tce + ON especie_veiculo_tce.cod_especie_tce = tipo_veiculo_vinculo.cod_especie_tce + + INNER JOIN tcern.tipo_veiculo_tce + ON tipo_veiculo_tce.cod_tipo_tce = tipo_veiculo_vinculo.cod_tipo_tce + + INNER JOIN tcern.veiculo_categoria_vinculo + ON veiculo_categoria_vinculo.cod_veiculo = veiculo.cod_veiculo + + INNER JOIN tcern.categoria_veiculo_tce + ON categoria_veiculo_tce.cod_categoria = veiculo_categoria_vinculo.cod_categoria + + LEFT JOIN ( + SELECT cod_veiculo, 'locacao' AS situacao FROM frota.veiculo_locacao + + UNION + + SELECT cod_veiculo, 'cessao' AS situacao FROM frota.veiculo_cessao + ) AS veiculo_situacao + ON veiculo_situacao.cod_veiculo = veiculo.cod_veiculo + + INNER JOIN sw_processo + ON sw_processo.cod_processo = bem_processo.cod_processo + AND sw_processo.ano_exercicio = bem_processo.ano_exercicio + + WHERE bem_comprado.exercicio = '".$this->getDado('exercicio')."' + AND bem_comprado.cod_entidade IN (".$this->getDado('inCodEntidade').") + AND TO_CHAR(bem.dt_aquisicao, 'yyyy/mm/dd') BETWEEN '".$this->getDado('dtInicial')."' AND '".$this->getDado('dtFinal')."' + "; + return $stSql; + } + + +} \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/FMManterVinculoTipoVeiculo.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/FMManterVinculoTipoVeiculo.php new file mode 100644 index 0000000..f4bb24d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/FMManterVinculoTipoVeiculo.php @@ -0,0 +1,140 @@ + +get('stAcao'); + +if (empty( $stAcao )) { + $stAcao = "alterar"; +} + +$stLocation = $pgList . "?". Sessao::getId() . "&stAcao=" . $stAcao; + +$obForm = new Form; +$obForm->setAction( $pgProc ); +$obForm->setTarget( "oculto" ); + +$obHdnAcao = new Hidden; +$obHdnAcao->setName( "stAcao" ); +$obHdnAcao->setValue( $stAcao ); + +$obHdnCtrl = new Hidden; +$obHdnCtrl->setName( "stCtrl" ); +$obHdnCtrl->setValue( "" ); + +//Lista os Tipos de Veículos cadastrados no Sistema +$obTFrotaTipoVeiculo = new TFrotaTipoVeiculo(); +$obTFrotaTipoVeiculo->recuperaVinculoTipoVeiculo($rsTipoVeiculo, '', 'tipo_veiculo.cod_tipo'); + +$obLista = new Lista(); +$obLista->setMostraPaginacao(false); +$obLista->setTitulo('Lista dos Tipos de Veículos do URBEM'); +$obLista->setRecordSet($rsTipoVeiculo); + +//Cabeçalhos +$obLista->addCabecalho('', 5); +$obLista->addCabecalho('Tipo Veículo', 35); + +//Dados +$obLista->addDado(); +$obLista->ultimoDado->setAlinhamento('ESQUERDA'); +$obLista->ultimoDado->setCampo('[cod_tipo] - [nom_tipo]'); +$obLista->commitDado(); + +$obTTCERNEspecieVeiculoTCE = new TTCERNEspecieVeiculoTCE(); +$obTTCERNEspecieVeiculoTCE->recuperaTodos ($rsEspecieVeiculoTCE); + +$obCmbEspecieVeiculoTCE = new Select; +$obCmbEspecieVeiculoTCE->setName ('inCodEspecie_[cod_tipo]_'); +$obCmbEspecieVeiculoTCE->setId ('inCodEspecie_[cod_tipo]_'); +$obCmbEspecieVeiculoTCE->setValue ('[cod_especie_tce]'); +$obCmbEspecieVeiculoTCE->addOption ('', 'Selecione'); +$obCmbEspecieVeiculoTCE->setCampoId ('[cod_especie_tce]'); +$obCmbEspecieVeiculoTCE->setCampoDesc ('[nom_especie_tce]'); +$obCmbEspecieVeiculoTCE->setStyle ("width: 230"); +$obCmbEspecieVeiculoTCE->preencheCombo ( $rsEspecieVeiculoTCE ); + +$obLista->addCabecalho('Espécie Veículo TCE', 20); +$obLista->addDadoComponente($obCmbEspecieVeiculoTCE); +$obLista->ultimoDado->setAlinhamento('CENTRO'); +$obLista->ultimoDado->setCampo("especie_veiculo"); +$obLista->commitDadoComponente(); + +$obTTCERNTipoVeiculoTCE = new TTCERNTipoVeiculoTCE(); +$obTTCERNTipoVeiculoTCE->recuperaTipoVeiculoTCE ($rsTipoVeiculoTCE); + +$obCmbTipoVeiculoTCE = new Select; +$obCmbTipoVeiculoTCE->setName ('inCodTipo_[cod_tipo]_'); +$obCmbTipoVeiculoTCE->setId ('inCodTipo_[cod_tipo]_'); +$obCmbTipoVeiculoTCE->setValue ('[cod_tipo_tce]'); +$obCmbTipoVeiculoTCE->addOption ('', 'Selecione'); +$obCmbTipoVeiculoTCE->setCampoId ('[cod_tipo_tce]'); +$obCmbTipoVeiculoTCE->setCampoDesc ('[nom_tipo_tce]'); +$obCmbTipoVeiculoTCE->setStyle ("width: 230"); +$obCmbTipoVeiculoTCE->preencheCombo ( $rsTipoVeiculoTCE ); + +$obLista->addCabecalho('Tipo Veículo TCE', 20); +$obLista->addDadoComponente($obCmbTipoVeiculoTCE); +$obLista->ultimoDado->setAlinhamento('CENTRO'); +$obLista->ultimoDado->setCampo("tipo_veiculo"); +$obLista->commitDadoComponente(); + +$obSpnCodigos = new Span(); +$obSpnCodigos->setId('spnCodigos'); + + +$obLista->montaHTML(); +$obSpnCodigos->setValue($obLista->getHTML()); + +//DEFINICAO DOS COMPONENTES +$obFormulario = new Formulario(); +$obFormulario->addForm ($obForm); + +$obFormulario->addHidden($obHdnAcao); +$obFormulario->addHidden($obHdnCtrl); +$obFormulario->addSpan ($obSpnCodigos); + +$obFormulario->OK(); +$obFormulario->show(); + +$jsOnload = "executaFuncaoAjax('carregaSelectsForm');"; + +include_once '../../../../../../gestaoAdministrativa/fontes/PHP/framework/include/rodape.inc.php'; diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/OCManterVinculoTipoVeiculo.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/OCManterVinculoTipoVeiculo.php new file mode 100644 index 0000000..eeae58b --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/OCManterVinculoTipoVeiculo.php @@ -0,0 +1,105 @@ + +recuperaVinculoTipoVeiculoTCERN ($rsVinculo, '', ' ORDER BY cod_tipo'); + + while (!$rsVinculo->EOF()) { + + if ($rsVinculo->getCampo('cod_especie_tce')) { + $obTTCERNTipoVeiculoVinculoTCE = new TTCERNEspecieVeiculoTCE(); + $obTTCERNTipoVeiculoVinculoTCE->recuperaTodos($rsEspecieVeiculo, ' WHERE cod_especie_tce = '.$rsVinculo->getCampo('cod_especie_tce')); + + $obTTCERNTipoVeiculoTCE = new TTCERNTipoVeiculoTCE(); + $obTTCERNTipoVeiculoTCE->recuperaTodos($rsTipoVeiculo, ' WHERE cod_tipo_tce = '.$rsVinculo->getCampo('cod_tipo_tce')); + + $inCountAUX = 1; + + while (!$rsEspecieVeiculo->EOF()) { + if ($rsVinculo->getCampo('cod_especie_tce') == $rsEspecieVeiculo->getCampo('cod_especie_tce')) { + $stSelected = 'selected'; + } else { + $stSelected = ''; + } + + $stJs .= "f.inCodEspecie_".$rsVinculo->getCampo('cod_tipo')."_".$rsVinculo->getCorrente().".options[".$inCountAUX."] = "; + $stJs .= "new Option('".$rsEspecieVeiculo->getCampo('nom_especie_tce')."', '".$rsEspecieVeiculo->getCampo('cod_especie_tce')."', '".$stSelected."');"; + $inCountAUX++; + $rsEspecieVeiculo->proximo(); + } + + $inCountAUX = 1; + + while (!$rsTipoVeiculo->EOF()) { + if ($rsVinculo->getCampo('cod_tipo_tce') == $rsTipoVeiculo->getCampo('cod_tipo_tce')) { + $stSelected = 'selected'; + } else { + $stSelected = ''; + } + + $stJs .= "f.inCodTipo_".$rsVinculo->getCampo('cod_tipo')."_".$rsVinculo->getCorrente().".options[".$inCountAUX."] = "; + $stJs .= "new Option('".$rsTipoVeiculo->getCampo('nom_tipo_tce')."', '".$rsTipoVeiculo->getCampo('cod_tipo_tce')."', '".$stSelected."');"; + $inCountAUX++; + $rsTipoVeiculo->proximo(); + } + + $inCountAUX++; + } + + $rsVinculo->proximo(); + } + + break; +} + +if ($stJs) { + echo $stJs; + +} diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/PRManterVinculoTipoVeiculo.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/PRManterVinculoTipoVeiculo.php new file mode 100644 index 0000000..caea866 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/configuracao/PRManterVinculoTipoVeiculo.php @@ -0,0 +1,92 @@ + +get('stAcao'); + +$arVinculo = array(); + +foreach ($_REQUEST as $key => $value) { + if ($value) { + $arKey = explode ('_', $key); + if ($arKey[0] == 'inCodEspecie') { + $arVinculo[$arKey[2]]['tipo_urbem'] = $arKey[1]; + $arVinculo[$arKey[2]]['especie'] = $value; + } + + if ($arKey[0] == 'inCodTipo') { + $arVinculo[$arKey[2]]['tipo_urbem'] = $arKey[1]; + $arVinculo[$arKey[2]]['tipo'] = $value; + } + } +} + +switch ($stAcao) { + case 'manter' : + + if (is_array($arVinculo)) { + $obTTCERNTipoVeiculoVinculo = new TTCERNTipoVeiculoVinculo(); + $obTTCERNTipoVeiculoVinculo->recuperaTodos($rsVinculos); + + while (!$rsVinculos->EOF()) { + $obTTCERNTipoVeiculoVinculo->setDado('cod_tipo', $rsVinculos->getCampo('cod_tipo')); + $obTTCERNTipoVeiculoVinculo->exclusao(); + $rsVinculos->proximo(); + } + + foreach ($arVinculo as $key => $arValue) { + + if ($arValue['especie'] && $arValue['tipo']) { + $obTTCERNTipoVeiculoVinculo->setDado('cod_tipo' , $arValue['tipo_urbem']); + $obTTCERNTipoVeiculoVinculo->setDado('cod_especie_tce', $arValue['especie']); + $obTTCERNTipoVeiculoVinculo->setDado('cod_tipo_tce' , $arValue['tipo']); + $obTTCERNTipoVeiculoVinculo->inclusao(); + } + } + + SistemaLegado::alertaAviso($pgForm."?".Sessao::getId()."&stAcao=$stAcao","Configuração ","incluir","incluir_n", Sessao::getId(), "../"); + + } else { + + sistemaLegado::exibeAviso(urlencode('É necessário vincular ao menos um tipo de veículo!'),"n_incluir","erro"); + + } +} + +Sessao::encerraExcecao(); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/ANEXO28.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/ANEXO28.inc.php new file mode 100644 index 0000000..1aee97b --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/ANEXO28.inc.php @@ -0,0 +1,194 @@ + +setDado('inBimestre' , $inBimestre); + $obTTRNAnexo28->setDado('inCodEntidade', $inCodEntidade); + $obTTRNAnexo28->setDado('exercicio' , Sessao::getExercicio()); + $obTTRNAnexo28->setDado('dtInicial' , Sessao::getExercicio()."/01/01" ); + + $mes = $inBimestre * 2; + $dtFinal = date('Y/m/d',strtotime(Sessao::getExercicio()."-$mes-1 +1 month -1 day")); + + $obTTRNAnexo28->setDado('dtFinal', $dtFinal); + + $obTTRNAnexo28->recuperaRegistro1($rsRegistro1); + $obTTRNAnexo28->recuperaRegistro2($rsRegistro2); + $obTTRNAnexo28->recuperaRegistro3($rsRegistro3); + $obTTRNAnexo28->recuperaRegistro4($rsRegistro4); + + //AQUISIÇÃO DE VEICULOS + foreach ($rsRegistro1->arElementos as $arRegistro1) { + + $stChave1 = $arRegistro1['processo_origem']; + + $rsBloco = 'rsBloco_'.$i; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro1)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("processo_origem"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cnpj"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_contratado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_aquisicao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATE_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_aquisicao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + //LOCAÇÃO + foreach ($rsRegistro2->arElementos as $arRegistro2) { + + if ($stChave1 === $arRegistro2['processo_origem']) { + + $rsBloco = 'rsBloco_'.$i; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro2)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("processo_origem"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cnpj"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nom_locatario"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(50); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("dt_contrato"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATE_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ini_locacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATE_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fim_locacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATE_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_locacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + } + + //CESSÃO + foreach ($rsRegistro3->arElementos as $arRegistro3) { + + if ($stChave1 === $arRegistro3['processo_origem']) { + + $rsBloco = 'rsBloco_'.$i; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro3)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("processo_origem"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cnpj_cedente"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(14); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("orgao_cedente"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(100); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("ini_cessao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATE_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("fim_cessao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATE_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(10); + } + } + + //VEICULOS + foreach ($rsRegistro4->arElementos as $arRegistro4) { + if ($stChave1 === $arRegistro4['processo_origem']) { + + $rsBloco = 'rsBloco_'.$i; + unset($$rsBloco); + $$rsBloco = new RecordSet(); + $$rsBloco->preenche(array($arRegistro4)); + + $obExportador->roUltimoArquivo->addBloco($$rsBloco); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_registro"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("situacao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(1); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("processo_origem"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(20); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("id_especie"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(2); + } + } + } + } +?> \ No newline at end of file diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/FLManterExportacao.php b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/FLManterExportacao.php index 6d2cbba..7b627c5 100755 --- a/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/FLManterExportacao.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCERN/instancias/exportacao/FLManterExportacao.php @@ -92,11 +92,11 @@ $arNomeArquivos = array( ,'ANEXO23.TXT' ,'ANEXO26.TXT' ,'ANEXO27FUNDEFBBAAS.TXT' + ,'ANEXO28.TXT' ,'ANEXO42.TXT' ,'ANEXO02DESPESAFUNCAO.TXT' ,'EMPBBAA.TXT' ,'LICBBAA.TXT' - //,'QDD.TXT' ,'RECBBAAS.TXT' ); diff --git a/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php b/gestaoPrestacaoContas/fontes/PHP/TCERS/classes/mapeamento/FExportacaoLiquidacao.class.php index d9a6d2c..5fb54ee 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: 59612 $ + $Revision: 61774 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: michel $ + $Date: 2015-03-03 13:24:44 -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 8c1116a..3382d38 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: 59612 $ + $Revision: 61480 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: carlos.silva $ + $Date: 2015-01-21 17:21:23 -0200 (Qua, 21 Jan 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 8692b6f..27c3258 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: RExportacaoTCERSArquivosPrincipais.class.php 61774 2015-03-03 16:24:44Z michel $ */ /* 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 747719c..9c3947a 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FLExportacaoPrincipais.php 61473 2015-01-21 13:32:02Z evandro $ * 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 be48057..fa397f0 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: 59612 $ + $Revision: 61473 $ $Name$ $Autor: $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Date: 2015-01-21 11:32:02 -0200 (Qua, 21 Jan 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 a712815..cd99d8f 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: OCExportacaoPrincipais.php 61774 2015-03-03 16:24:44Z michel $ * 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/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..d27cb5d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TCMGOConfiguracaoLOA.class.php @@ -0,0 +1,143 @@ + +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')."' + "; + + 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 a35ae6f..2d26598 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: 59612 $ + $Revision: 61769 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-03-03 10:20:41 -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 8d95c47..27c2d2c 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTCMGOAtivoFinanceiro.class.php 61525 2015-01-29 19:21:26Z evandro $ * 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..33fbec2 --- /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 5d7f33e..26c6405 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTCMGOAtivoPermanenteCreditos.class.php 61679 2015-02-25 13:07:38Z evandro $ * 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..c94a43f --- /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..74906d2 --- /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/TTCMGOConfiguracaoUnidadeGestora.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoUnidadeGestora.class.php new file mode 100644 index 0000000..c975026 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOConfiguracaoUnidadeGestora.class.php @@ -0,0 +1,82 @@ + +setDado("exercicio",Sessao::getExercicio()); + $this->setDado("cod_modulo",0); /*verificar número gerado pelos DBAs*/ +} + +function recuperaUnidadeGestora(&$rsRecordSet, $stFiltro = "", $stOrdem = "", $boTransacao = "") +{ + $obErro = new Erro; + $obConexao = new Conexao; + $rsRecordSet = new RecordSet; + $stSql = $this->montaRecuperaUnidadeGestora().$stFiltro.$stOrdem; + $this->stDebug = $stSql; + $obErro = $obConexao->executaSQL( $rsRecordSet, $stSql, "", $boTransacao ); +} + +function montaRecuperaUnidadeGestora() +{ + $stSql = " SELECT entidade.cod_entidade + , sw_cgm.nom_cgm + , configuracao_entidade.valor + FROM sw_cgm + INNER JOIN orcamento.entidade + ON entidade.numcgm = sw_cgm.numcgm + LEFT JOIN administracao.configuracao_entidade + ON configuracao_entidade.exercicio = entidade.exercicio + AND configuracao_entidade.cod_entidade = entidade.cod_entidade + AND configuracao_entidade.cod_modulo = 0 + AND configuracao_entidade.parametro = 'tc_codigo_unidade_gestora' + WHERE entidade.exercicio = '".Sessao::getExercicio()."' + AND entidade.cod_entidade = ".$this->getDado('cod_entidade')." + "; + return $stSql; +} + +} +?> diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODDA.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODDA.class.php new file mode 100644 index 0000000..db3c1d2 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGODDA.class.php @@ -0,0 +1,152 @@ + +montaRecuperaArquivoExportacao10($stFiltro, $stOrdem); + $this->setDebug($stSQL); + + return $obConexao->executaSQL($rsRecordSet, $stSQL, $boTransacao); + } + + public function montaRecuperaArquivoExportacao10() + { + $stSQL = " SELECT DISTINCT + '10' as tipo_registro + ,(SELECT num_orgao + FROM tcmgo.orgao + where exercicio = '2015' + AND uf_crc_contador = 'GO' + ) as cod_orgao + ,divida_ativa.cod_inscricao as numr_insc_divida_ativa + ,'2' as nome_unidade_gestora + , CASE WHEN sw_cgm_pessoa_juridica.numcgm IS NULL THEN + 1 + ELSE + 2 + END as tipo_devedor + , CASE WHEN sw_cgm_pessoa_juridica.cnpj IS NULL THEN + sw_cgm_pessoa_fisica.cpf + ELSE + sw_cgm_pessoa_juridica.cnpj + END as cpf_cnpj_devedor + , remove_acentos(sw_cgm.nom_cgm) as nome_devedor + , genero_credito.cod_natureza as tipo_divida + , TO_CHAR(divida_ativa.dt_inscricao,'ddmmyyyy') as data_inscricao + , COALESCE(divida_processo.cod_processo,0) as numr_proc_admin + , CASE WHEN (cobranca_judicial.cod_inscricao IS NOT NULL OR parcelamento.judicial = true) + THEN 1 + WHEN cobranca_judicial.cod_inscricao IS NULL + THEN 3 + ELSE + 2 + END AS situacao_cobranca + , 0.00 AS vl_original_divida + , 0.00 AS vl_ant_principal_atualizado + , 0.00 AS vl_ant_juros_atualizado + + , 0.00 AS vl_saldo_anterior + + , 0.00 AS vl_insc_princ_atual_periodo + , 0.00 AS vl_insc_juros_atual_periodo + , 0.00 AS vl_atualiz_monet_principal + , 0.00 AS vl_juros_periodo + , 0.00 AS vl_abatimento_principal + , 0.00 AS vl_abatimento_juros + , 0.00 AS vl_baixa_rec_principal + , 0.00 AS vl_baixa_rec_juros + , 0.00 AS vl_baixa_canc_principal + , 0.00 AS vl_baixa_canc_juros + , 0.00 AS vl_ajuste_exe_ant_principal + , 0.00 AS vl_ajuste_exe_ant_juros + , 0.00 AS vl_principal_atualizado + , 0.00 AS vl_juros_atualizado + , 0.00 AS vl_saldo_atual + + FROM divida.divida_ativa + + INNER JOIN divida.divida_cgm + ON divida_cgm.exercicio = divida_ativa.exercicio + AND divida_cgm.cod_inscricao = divida_ativa.cod_inscricao + + INNER JOIN sw_cgm + ON sw_cgm.numcgm = divida_cgm.numcgm + + LEFT JOIN sw_cgm_pessoa_fisica + ON sw_cgm_pessoa_fisica.numcgm = divida_cgm.numcgm + + LEFT JOIN sw_cgm_pessoa_juridica + ON sw_cgm_pessoa_juridica.numcgm = divida_cgm.numcgm + + LEFT JOIN divida.divida_parcelamento + ON divida_parcelamento.exercicio = divida_ativa.exercicio + AND divida_parcelamento.cod_inscricao = divida_ativa.cod_inscricao + + LEFT JOIN divida.parcelamento + ON parcelamento.num_parcelamento = divida_parcelamento.num_parcelamento + + LEFT JOIN divida.parcela_origem + ON parcela_origem.num_parcelamento = parcelamento.num_parcelamento + + INNER JOIN monetario.credito + ON credito.cod_credito = parcela_origem.cod_credito + AND credito.cod_natureza = parcela_origem.cod_natureza + AND credito.cod_genero = parcela_origem.cod_genero + AND credito.cod_especie = parcela_origem.cod_especie + + INNER JOIN monetario.especie_credito + ON especie_credito.cod_especie = credito.cod_especie + AND especie_credito.cod_genero = credito.cod_genero + AND especie_credito.cod_natureza = credito.cod_natureza + + INNER JOIN monetario.genero_credito + ON genero_credito.cod_natureza = especie_credito.cod_natureza + AND genero_credito.cod_genero = especie_credito.cod_genero + + LEFT JOIN divida.divida_processo + ON divida_processo.exercicio = divida_ativa.exercicio + AND divida_processo.cod_inscricao = divida_ativa.cod_inscricao + + LEFT JOIN divida.cobranca_judicial + ON cobranca_judicial.cod_inscricao = divida_ativa.cod_inscricao + AND cobranca_judicial.exercicio = divida_ativa.exercicio + + WHERE divida_ativa.exercicio = '".$this->getDado('exercicio')."' + + "; + return $stSQL; + + } + +} + +?> \ No newline at end of file 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/TTCMGOLNC.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLNC.class.php index c8fb854..79c79d9 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLNC.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTCMGOLNC.class.php @@ -33,10 +33,10 @@ * @package URBEM * @subpackage Mapeamento - * $Id: TTCMGOLNC.class.php 59612 2014-09-02 12:00:51Z gelson $ - * $Revision: 59612 $ - * $Author: gelson $ - * $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + * $Id: TTCMGOLNC.class.php 61763 2015-03-02 20:20:08Z evandro $ + * $Revision: 61763 $ + * $Author: evandro $ + * $Date: 2015-03-02 17:20:08 -0300 (Seg, 02 Mar 2015) $ * Casos de uso: uc-06.04.00 */ @@ -125,7 +125,7 @@ class TTCMGOLNC extends Persistente{ $stSql = " -- CONTA CRÉDITO -- REGISTRO A -SELECT '11' AS tipo_registro +SELECT DISTINCT '11' AS tipo_registro , (SELECT cod_tipo FROM tcmgo.orgao WHERE exercicio = '".$this->getDado('exercicio')."')::INTEGER AS tipo_unidade , (LPAD(lo.cod_entidade::VARCHAR,2,'0')||LPAD(oa.num_letra::VARCHAR,2,'0')||LPAD(lo.cod_lote::VARCHAR, 9,'0')) AS num_controle , REPLACE(pc.cod_estrutural, '.','') AS cod_conta @@ -221,7 +221,7 @@ SELECT '11' AS tipo_registro UNION -- REGISTRO S, E, L e P -SELECT '11' AS tipo_registro +SELECT DISTINCT '11' AS tipo_registro , (SELECT cod_tipo FROM tcmgo.orgao WHERE exercicio = '".$this->getDado('exercicio')."')::INTEGER AS tipo_unidade , (LPAD(lo.cod_entidade::VARCHAR,2,'0')||LPAD(oa.num_letra::VARCHAR,2,'0')||LPAD(lo.cod_lote::VARCHAR, 9,'0')) AS num_controle , REPLACE(pc.cod_estrutural, '.','') AS cod_conta @@ -305,7 +305,7 @@ SELECT '11' AS tipo_registro AND tt.tipo = lo.tipo AND tt.cod_entidade = lo.cod_entidade - INNER JOIN contabilidade.lancamento_empenho AS le + LEFT JOIN contabilidade.lancamento_empenho AS le ON le.cod_lote = l.cod_lote AND le.exercicio = l.exercicio AND le.tipo = l.tipo @@ -343,7 +343,7 @@ SELECT '11' AS tipo_registro UNION -- REGISTRO T -SELECT '11' AS tipo_registro +SELECT DISTINCT '11' AS tipo_registro , (SELECT cod_tipo FROM tcmgo.orgao WHERE exercicio = '".$this->getDado('exercicio')."')::INTEGER AS tipo_unidade , (LPAD(lo.cod_entidade::VARCHAR,2,'0')||LPAD(oa.num_letra::VARCHAR,2,'0')||LPAD(lo.cod_lote::VARCHAR, 9,'0')) AS num_controle , REPLACE(pc.cod_estrutural, '.','') AS cod_conta @@ -447,7 +447,7 @@ UNION -- CONTA DÉBITO -- REGISTRO A -SELECT '11' AS tipo_registro +SELECT DISTINCT '11' AS tipo_registro , (SELECT cod_tipo FROM tcmgo.orgao WHERE exercicio = '".$this->getDado('exercicio')."')::INTEGER AS tipo_unidade , (LPAD(lo.cod_entidade::VARCHAR,2,'0')||LPAD(oa.num_letra::VARCHAR,2,'0')||LPAD(lo.cod_lote::VARCHAR, 9,'0')) AS num_controle , REPLACE(pc.cod_estrutural, '.','') AS cod_conta @@ -543,7 +543,7 @@ SELECT '11' AS tipo_registro UNION -- REGISTRO S, E, L e P -SELECT '11' AS tipo_registro +SELECT DISTINCT '11' AS tipo_registro , (SELECT cod_tipo FROM tcmgo.orgao WHERE exercicio = '".$this->getDado('exercicio')."')::INTEGER AS tipo_unidade , (LPAD(lo.cod_entidade::VARCHAR,2,'0')||LPAD(oa.num_letra::VARCHAR,2,'0')||LPAD(lo.cod_lote::VARCHAR, 9,'0')) AS num_controle , REPLACE(pc.cod_estrutural, '.','') AS cod_conta @@ -627,7 +627,7 @@ SELECT '11' AS tipo_registro AND tt.tipo = lo.tipo AND tt.cod_entidade = lo.cod_entidade - INNER JOIN contabilidade.lancamento_empenho AS le + LEFT JOIN contabilidade.lancamento_empenho AS le ON le.cod_lote = l.cod_lote AND le.exercicio = l.exercicio AND le.tipo = l.tipo @@ -665,7 +665,7 @@ SELECT '11' AS tipo_registro UNION -- REGISTRO T -SELECT '11' AS tipo_registro +SELECT DISTINCT '11' AS tipo_registro , (SELECT cod_tipo FROM tcmgo.orgao WHERE exercicio = '".$this->getDado('exercicio')."')::INTEGER AS tipo_unidade , (LPAD(lo.cod_entidade::VARCHAR,2,'0')||LPAD(oa.num_letra::VARCHAR,2,'0')||LPAD(lo.cod_lote::VARCHAR, 9,'0')) AS num_controle , REPLACE(pc.cod_estrutural, '.','') AS cod_conta 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..95f7826 --- /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 4512b3f..f0c2990 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTCMGOPassivoFinanceiro.class.php 61684 2015-02-25 15:24:42Z michel $ * 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 57fc162..2e7fef4 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTCMGORecita.class.php 61770 2015-03-03 13:26:42Z evandro $ * Casos de uso: uc-06.04.00 */ @@ -985,5 +985,113 @@ 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 + , ( SELECT SUBSTR(valor,1,1) + FROM administracao.configuracao_entidade + WHERE configuracao_entidade.exercicio = receita.exercicio + AND configuracao_entidade.cod_entidade = receita.cod_entidade + AND parametro = 'tc_ug_orgaounidade' + ) as cod_orgao + , ( SELECT SUBSTR(valor,3,2) + FROM administracao.configuracao_entidade + WHERE configuracao_entidade.exercicio = receita.exercicio + AND configuracao_entidade.cod_entidade = receita.cod_entidade + AND parametro = 'tc_ug_orgaounidade' + ) as cod_unidade + , rubrica + , TRIM(descricao) as especificacao + , tabela.vl_original AS vl_previsto + , tabela.cod_recurso as cod_fonte_recurso + FROM + ( + SELECT + tabela.cod_recurso + , REPLACE(tabela.cod_estrutural::VARCHAR,'.','') AS rubrica + , tabela.vl_original + , tabela.descricao + , tabela.cod_receita + 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 + ) + ORDER BY tabela.cod_estrutural + ) AS tabela + JOIN orcamento.receita + ON receita.cod_receita = tabela.cod_receita + AND receita.exercicio = '".$this->getDado("exercicio")."' + "; + 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 + , ( SELECT SUBSTR(valor,1,1) + FROM administracao.configuracao_entidade + WHERE configuracao_entidade.exercicio = receita.exercicio + AND configuracao_entidade.cod_entidade = receita.cod_entidade + AND parametro = 'tc_ug_orgaounidade' + ) as cod_orgao + , ( SELECT SUBSTR(valor,3,2) + FROM administracao.configuracao_entidade + WHERE configuracao_entidade.exercicio = receita.exercicio + AND configuracao_entidade.cod_entidade = receita.cod_entidade + AND parametro = 'tc_ug_orgaounidade' + ) as cod_unidade + , rubrica as rubrica + , tabela.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 + , tabela.cod_receita + 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 + ) + + GROUP BY tabela.cod_recurso, tabela.cod_estrutural, tabela.cod_receita + ORDER BY cod_recurso , cod_estrutural + ) AS tabela + JOIN orcamento.receita + ON receita.cod_receita = tabela.cod_receita + AND receita.exercicio = '".$this->getDado("exercicio")."' + "; + 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..6be7f3d --- /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/TTGOBLP.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOBLP.class.php index 4ba2880..dedc9e1 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOBLP.class.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGOBLP.class.php @@ -33,7 +33,7 @@ * @ignore - * $Id: TTGOBLP.class.php 59612 2014-09-02 12:00:51Z gelson $ + * $Id: TTGOBLP.class.php 61563 2015-02-05 15:54:03Z lisiane $ * Casos de uso: uc-06.04.00 */ @@ -53,167 +53,84 @@ class TTGOBLP extends Persistente public function montaRecuperaTodos() { + $exercicio = "'".$this->getDado('exercicio')."'"; + $dtInicial = "'01/01/".$this->getDado('exercicio')."'"; + $dtFinal = "'31/12/".$this->getDado('exercicio')."'"; + $entidade = "'".$this->getDado('cod_entidade')."'"; $stSql = " - SELECT - '10' as TipoRegistro - , CASE WHEN cta_credito.tipo_valor = 'C' THEN cta_credito.tipoLancamento - WHEN cta_debito.tipo_valor = 'D' THEN cta_debito.tipoLancamento - END AS tipoLancamento - , CASE WHEN cta_credito.tipo_valor = 'C' THEN cta_credito.tipoConta - WHEN cta_debito.tipo_valor = 'D' THEN cta_debito.tipoConta - END AS tipoConta - , CASE WHEN cta_credito.tipo_valor = 'C' THEN cta_credito.vlSaldoAnterior - WHEN cta_debito.tipo_valor = 'D' THEN cta_debito.vlSaldoAnterior - END AS vlSaldoAnterior - , cta_credito.vlSaldoAnterior + cta_credito.vlSomaCreditos - cta_debito.vlSomaDebitos as vlSaldoExercSeg - FROM - contabilidade.plano_analitica - LEFT JOIN ( SELECT - contas_pai.tipo_lancamento as tipoLancamento - , contas_pai.tipo_conta as tipoConta - , valor_lancamento.vl_lancamento as vlSaldoAnterior - , soma_creditos.sum as vlSomaCreditos - , plano_conta.cod_conta - , soma_creditos.cod_plano - , soma_creditos.exercicio - , soma_creditos.tipo_valor - FROM - contabilidade.plano_conta - LEFT JOIN ( SELECT - publico.fn_mascarareduzida(plano_conta.cod_estrutural) as mascara_reduzida - , balanco_blpaaaa.exercicio - , balanco_blpaaaa.tipo_lancamento - , balanco_blpaaaa.tipo_conta - FROM - contabilidade.plano_conta - , tcmgo.balanco_blpaaaa - WHERE - balanco_blpaaaa.exercicio = plano_conta.exercicio - AND balanco_blpaaaa.cod_conta = plano_conta.cod_conta ) as contas_pai - ON ( contas_pai.exercicio = plano_conta.exercicio ) - , contabilidade.plano_analitica - , 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 ) - LEFT JOIN ( SELECT - conta_credito.cod_plano - , conta_credito.exercicio - , conta_credito.tipo_valor - , SUM(valor_lancamento.vl_lancamento) - , valor_lancamento.cod_entidade - FROM - contabilidade.conta_credito - , contabilidade.valor_lancamento - WHERE - 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 - AND conta_credito.tipo <> 'I' - GROUP BY conta_credito.cod_plano - , conta_credito.exercicio - , conta_credito.tipo_valor - , valor_lancamento.cod_entidade ) as soma_creditos - ON ( soma_creditos.cod_plano = conta_credito.cod_plano - AND soma_creditos.exercicio = conta_credito.exercicio - AND soma_creditos.cod_entidade = conta_credito.cod_entidade ) - WHERE - plano_conta.cod_estrutural like contas_pai.mascara_reduzida||'%' - AND plano_analitica.cod_conta = plano_conta.cod_conta - AND plano_analitica.exercicio = plano_conta.exercicio - AND conta_credito.exercicio = plano_analitica.exercicio - AND conta_credito.cod_plano = plano_analitica.cod_plano - AND conta_credito.exercicio = '".$this->getDado('exercicio')."' - AND conta_credito.cod_entidade IN (".$this->getDado('cod_entidade').") - AND valor_lancamento.tipo = 'I' - ) as cta_credito - ON ( cta_credito.cod_plano = plano_analitica.cod_plano - AND cta_credito.cod_conta = plano_analitica.cod_conta - AND cta_credito.exercicio = plano_analitica.exercicio ) - - LEFT JOIN ( SELECT - contas_pai.tipo_lancamento as tipoLancamento - , contas_pai.tipo_conta as tipoConta - , valor_lancamento.vl_lancamento as vlSaldoAnterior - , soma_debitos.sum as vlSomaDebitos - , plano_conta.cod_conta - , soma_debitos.cod_plano - , soma_debitos.exercicio - , soma_debitos.tipo_valor - FROM - contabilidade.plano_conta - LEFT JOIN ( SELECT - publico.fn_mascarareduzida(plano_conta.cod_estrutural) as mascara_reduzida - , balanco_blpaaaa.exercicio - , balanco_blpaaaa.tipo_lancamento - , balanco_blpaaaa.tipo_conta - FROM - contabilidade.plano_conta - , tcmgo.balanco_blpaaaa - WHERE - balanco_blpaaaa.exercicio = plano_conta.exercicio - AND balanco_blpaaaa.cod_conta = plano_conta.cod_conta ) as contas_pai - ON ( contas_pai.exercicio = plano_conta.exercicio ) - , contabilidade.plano_analitica - , 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 ) - LEFT JOIN ( SELECT - conta_debito.cod_plano - , conta_debito.exercicio - , conta_debito.tipo_valor - , SUM(valor_lancamento.vl_lancamento) - , valor_lancamento.cod_entidade - FROM - contabilidade.conta_debito - , contabilidade.valor_lancamento - WHERE - 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 - AND conta_debito.tipo <> 'I' - GROUP BY conta_debito.cod_plano - , conta_debito.exercicio - , conta_debito.tipo_valor - , valor_lancamento.cod_entidade ) as soma_debitos - ON ( soma_debitos.cod_plano = conta_debito.cod_plano - AND soma_debitos.exercicio = conta_debito.exercicio - AND soma_debitos.cod_entidade = conta_debito.cod_entidade ) - WHERE - plano_conta.cod_estrutural like contas_pai.mascara_reduzida||'%' - AND plano_analitica.cod_conta = plano_conta.cod_conta - AND plano_analitica.exercicio = plano_conta.exercicio - AND conta_debito.exercicio = plano_analitica.exercicio - AND conta_debito.cod_plano = plano_analitica.cod_plano - AND conta_debito.exercicio = '".$this->getDado('exercicio')."' - AND conta_debito.cod_entidade IN (".$this->getDado('cod_entidade').") - AND valor_lancamento.tipo = 'I' - ) as cta_debito - ON ( cta_debito.cod_plano = plano_analitica.cod_plano - AND cta_debito.cod_conta = plano_analitica.cod_conta - AND cta_debito.exercicio = plano_analitica.exercicio ) - WHERE - plano_analitica.exercicio = '".$this->getDado('exercicio')."' - AND cta_credito.tipo_valor is not null - AND cta_debito.tipo_valor is not null - "; - - return $stSql; + SELECT * + FROM ( + SELECT 10 AS registro + , '01' AS tipo_lancamento + , tipo_conta + , SUM(vl_saldo_anterior) AS vl_saldo_anterior + , SUM(vl_saldo_creditos) AS vl_saldo_creditos + , SUM(vl_saldo_debitos) AS vl_saldo_debitos + , SUM(vl_saldo_atual) AS vl_saldo_atual + , SUM((vl_saldo_anterior + vl_saldo_creditos) - vl_saldo_debitos) AS saldo_exerc_seguinte + FROM( SELECT * + FROM tcmgo.balanco_patrimonial_ativo( ".$exercicio.",".$dtInicial.",".$dtFinal.",".$entidade." ) + AS ( cod_estrutural VARCHAR + , nivel INTEGER + , nom_conta VARCHAR + , vl_saldo_anterior NUMERIC + , vl_saldo_debitos NUMERIC + , vl_saldo_creditos NUMERIC + , vl_saldo_atual NUMERIC + , tipo_conta INTEGER ) + ORDER BY cod_estrutural ) AS TABELA + GROUP BY tipo_conta + + UNION ALL + + SELECT 10 AS registro + , '02' AS tipo_lancamento + , tipo_conta + , SUM(vl_saldo_anterior) AS vl_saldo_anterior + , SUM(vl_saldo_creditos) AS vl_saldo_creditos + , SUM(vl_saldo_debitos) AS vl_saldo_debitos + , SUM(vl_saldo_atual) AS vl_saldo_atual + , SUM((vl_saldo_anterior + vl_saldo_creditos) - vl_saldo_debitos) AS saldo_exerc_seguinte + FROM( SELECT * + FROM tcmgo.balanco_patrimonial_passivo( ".$exercicio.",".$dtInicial.",".$dtFinal.",".$entidade." ) + AS ( cod_estrutural VARCHAR + , nivel INTEGER + , nom_conta VARCHAR + , vl_saldo_anterior NUMERIC + , vl_saldo_debitos NUMERIC + , vl_saldo_creditos NUMERIC + , vl_saldo_atual NUMERIC + , tipo_conta INTEGER ) + ORDER BY cod_estrutural ) AS TABELA + GROUP BY tipo_conta + + UNION ALL + + SELECT 10 AS registro + , '02' AS tipo_lancamento + , tipo_conta + , SUM(vl_saldo_anterior) AS vl_saldo_anterior + , SUM(vl_saldo_creditos) AS vl_saldo_creditos + , SUM(vl_saldo_debitos) AS vl_saldo_debitos + , SUM(vl_saldo_atual) AS vl_saldo_atual + , SUM((vl_saldo_anterior + vl_saldo_creditos) - vl_saldo_debitos) AS saldo_exerc_seguinte + FROM( + SELECT * + FROM tcmgo.balanco_patrimonial_patrimonio_liquido( ".$exercicio.",".$dtInicial.",".$dtFinal.",".$entidade." ) + AS ( cod_estrutural VARCHAR + , nivel INTEGER + , nom_conta VARCHAR + , vl_saldo_anterior NUMERIC + , vl_saldo_debitos NUMERIC + , vl_saldo_creditos NUMERIC + , vl_saldo_atual NUMERIC + , tipo_conta INTEGER) + ORDER BY cod_estrutural ) AS TABELA + GROUP BY tipo_conta + ) AS tabela + ORDER BY tipo_lancamento, tipo_conta "; + + return $stSql; } } diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/classes/mapeamento/TTGODES.class.php index 1349bc1..a4c768e 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: 59612 $ + $Revision: 61664 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-02-23 17:13:27 -0300 (Seg, 23 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 794813d..41bf39f 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTGOPFR.class.php 61567 2015-02-06 11:47:54Z michel $ * 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..1949874 --- /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 2a81247..d8cd1c6 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTGOREP.class.php 61600 2015-02-12 12:13:25Z franver $ * 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 06024a5..e29b815 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: TTGOROP.class.php 61551 2015-02-04 15:12:44Z evandro $ * 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..4716767 --- /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..281446f --- /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 80b6cde..b759e4a 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: FMManterApcaaaa.php 61679 2015-02-25 13:07:38Z evandro $ * 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..246ae7b --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/FMManterConfiguracaoLeisLDO.php @@ -0,0 +1,146 @@ + +get('stAcao') == '') { + $stAcao = 'incluir'; +} else { + $stAcao = $request->get('stAcao'); +} + +$rsTTCMGOConfiguracaoLeisLDO = new RecordSet(); + +$obTTCMGOConfiguracaoLeisLDO = new TTCMGOConfiguracaoLeisLDO(); +$stFiltro = " AND tipo_configuracao = 'alteracao' "; +$stFiltro .= " AND status = true "; +$stFiltro .= " AND configuracao_leis_ldo.exercicio = '".Sessao::getExercicio()."'"; +$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 ### +$obLblLeiLDO = new Label; +$obLblLeiLDO->setRotulo ( "Lei do LDO" ); +$obLblLeiLDO->setId ( "stNomeLeiLDO"); +$obLblLeiLDO->setName ( "stNomeLeiLDO" ); + +### 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->addComponente ( $obLblLeiLDO ); +$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..45066e5 --- /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..6393666 --- /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 e98d6c6..27b3157 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterDividaFundada.php 61773 2015-03-03 14:45:24Z michel $ * 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 ( $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 bb20394..187fb02 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FMManterObra.php 61522 2015-01-29 18:33:35Z carlos.silva $ */ 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..c67b3c5 --- /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..7a8182a --- /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..3b00c8a --- /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..9c06437 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/LSManterResponsavelLicitacao.php @@ -0,0 +1,239 @@ + + $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 ll.timestamp::DATE 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..1ddede9 --- /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 7f7dd35..d2c60e6 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..dd6b633 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/OCManterConfiguracaoLeisLDO.php @@ -0,0 +1,321 @@ + +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_GF_LDO_MAPEAMENTO.'TLDOHomologacao.class.php'; + $obTLDOHomologacao = new TLDOHomologacao(); + $obTLDOHomologacao->recuperaLDOPorAnoPPANorma($rsLDO); + + $stNomeLeiLDO = ' '; + while (!$rsLDO->eof()) { + $stNomeLeiLDO = $rsLDO->getCampo("descricao_norma_ldo"); + + $rsLDO->proximo(); + } + + $stJs = "d.getElementById('stNomeLeiLDO').innerHTML = '".$stNomeLeiLDO."';\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..96465a8 --- /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 9b7ba45..f248848 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 59612 2014-09-02 12:00:51Z gelson $ + *$Id: OCManterDividaFundada.php 61530 2015-01-30 13:52:09Z jean $ * 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 89d4087..4a45785 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: OCManterObra.php 61522 2015-01-29 18:33:35Z carlos.silva $ */ 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..e876f18 --- /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 b4be033..b0ec66d 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..12451b8 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/configuracao/PRManterConfiguracaoLeisLDO.php @@ -0,0 +1,143 @@ +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 + $obTTCMGOConfiguracaoLeisLDO->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisLDO->setDado('tipo_configuracao',"consulta"); + $obTTCMGOConfiguracaoLeisLDO->setDado('status',true); + $obTTCMGOConfiguracaoLeisLDO->recuperaPorChave($rsTTCMGOConfiguracaoLeisLDO,$boTransacao); + + while (!$rsTTCMGOConfiguracaoLeisLDO->eof()) { + $obTTCMGOConfiguracaoLeisLDO = new TTCMGOConfiguracaoLeisLDO(); + $obTTCMGOConfiguracaoLeisLDO->setDado('exercicio',Sessao::getExercicio()); + $obTTCMGOConfiguracaoLeisLDO->setDado('cod_norma',$rsTTCMGOConfiguracaoLeisLDO->getCampo('cod_norma')); + $obTTCMGOConfiguracaoLeisLDO->setDado('tipo_configuracao',"consulta"); + $obTTCMGOConfiguracaoLeisLDO->setDado('status',false); + + $obErro = $obTTCMGOConfiguracaoLeisLDO->alteracao($boTransacao); + + $rsTTCMGOConfiguracaoLeisLDO->proximo(); + } + + $obTTCMGOConfiguracaoLeisLDO = new TTCMGOConfiguracaoLeisLDO(); + // INCLUINDO LEIS DE ALTERAÇÃO + if (!$obErro->ocorreu()) { + $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()) + break; + } + } + + 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); + + if ($obErro->ocorreu()) + break; + } + } + } + } + + 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..aeeda0a --- /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..e60f3ed --- /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 b0ee144..53dd894 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 59612 2014-09-02 12:00:51Z gelson $ + * $Id: PRManterContaOrgao.php 61678 2015-02-24 19:28:14Z jean $ * 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 b62b12d..82db617 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: PRManterDividaFundada.php 61697 2015-02-26 12:46:40Z evandro $ * 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..81b3aa6 --- /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 c2ac3f4..a7a2a30 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: 59612 $ + $Revision: 61769 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-03-03 10:20:41 -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 aadc981..13edbbb 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: 59612 $ + $Revision: 61525 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-01-29 17:21:26 -0200 (Qui, 29 Jan 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 da85182..bf7dd53 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: 59612 $ + $Revision: 61679 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-02-25 10:07:38 -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/BLP.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/BLP.inc.php index 19107c2..7505e99 100644 --- a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/BLP.inc.php +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/BLP.inc.php @@ -55,25 +55,42 @@ Construção $obExportador->roUltimoArquivo->addBloco($arRecordSet[$stArquivo]); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tiporegistro"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("registro"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipolancamento"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_lancamento"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipoconta"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_conta"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(02); - $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vlsaldoanterior"); + $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("vlsaldoexercseg"); + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("saldo_exerc_seguinte"); $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("VALOR_ZEROS_ESQ"); $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(06); + + $recordSet2[$stArquivo] = new RecordSet(); + $recordSet2[$stArquivo]->preenche(array(array('tipo_registro' => 99, 'numero_registro' => $i))); + + $obExportador->roUltimoArquivo->addBloco($recordSet2[$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->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo(30); + + $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/DDA.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DDA.inc.php new file mode 100644 index 0000000..13d517f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DDA.inc.php @@ -0,0 +1,221 @@ + +setDado('cod_entidade',Sessao::getCodEntidade()); +$obTTCMGOConfiguracaoUnidadeGestora->recuperaUnidadeGestora($rsUnidadeGestora, "", "", $obTransacao); + +$obTTCMGODDA = new TTCMGODDA(); +$obTTCMGODDA->setDado('exercicio' , Sessao::getExercicio() ); +$obTTCMGODDA->setDado('nome_unidade_gestora', $rsUnidadeGestora ); +$obTTCMGODDA->recuperaArquivoExportacao10($rsRegistro10, "", "", $obTransacao); + +$inCount = 0; + +if (!$rsRegistro10->eof()) { + foreach ($rsRegistro10->arElementos as $stChave){ + + $stChave['numero_sequencial'] = ++$inCount; + + $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_orgao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 2 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numr_insc_divida_ativa"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_unidade_gestora"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 100 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_devedor"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 1 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("cpf_cnpj_devedor"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 14 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("nome_devedor"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("CARACTER_ESPACOS_DIR"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 100 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("tipo_divida"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 1 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("data_inscricao"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("DATA_DDMMYYYY"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 8 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numr_proc_admin"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 15 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("situacao_cobranca"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 1 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_original_divida"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_ant_principal_atualizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_ant_juros_atualizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $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_insc_princ_atual_periodo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_insc_juros_atual_periodo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_atualiz_monet_principal"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_juros_periodo"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_abatimento_principal"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_abatimento_juros"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_rec_principal"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_rec_juros"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_canc_principal"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_baixa_canc_juros"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_ajuste_exe_ant_principal"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_ajuste_exe_ant_juros"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_principal_atualizado"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("VALOR_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 13 ); + + $obExportador->roUltimoArquivo->roUltimoBloco->addColuna("vl_juros_atualizado"); + $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_sequencial"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); + $obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + } +} + +$arRegistro99 = array(); +$arRegistro99['tipo_registro'] = '99'; +$arRegistro99['numero_sequencial'] = ++$inCount; + +$$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( 504 ); + +$obExportador->roUltimoArquivo->roUltimoBloco->addColuna("numero_sequencial"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTipoDado("NUMERICO_ZEROS_ESQ"); +$obExportador->roUltimoArquivo->roUltimoBloco->roUltimaColuna->setTamanhoFixo( 6 ); + +unset($arRegistro99); +unset($$rsBloco99); +unset($rsUnidadeGestora); +unset($obTTCMGODDA); +unset($rsRegistro10); + +?> + + + diff --git a/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php b/gestaoPrestacaoContas/fontes/PHP/TCMGO/instancias/exportacao/DES.inc.php index ff41c0a..6aa5308 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: 59612 $ + $Revision: 61664 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-02-23 17:13:27 -0300 (Seg, 23 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 5ebbdb0..4baf3c9 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: FLExportacaoBalanco.php 61571 2015-02-09 13:28:01Z evandro $ * Casos de uso: uc-06.04.00 */ @@ -93,10 +93,11 @@ $obRdbTipoExportArqCompactado->setValue ( "compactados" ); $arNomeArquivos = array( 'AFD.txt', 'AFR.txt', - // 'APB.txt', - 'APC.txt', + 'APB.txt', + 'APC.txt', 'BLP.txt', 'COM.txt', + 'DDA.txt', 'DES.txt', 'IdeBalanco.txt', 'OrgaoBalanco.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 daea256..0942482 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 59612 2014-09-02 12:00:51Z gelson $ - * $Rev: 59612 $ - * $Author: gelson $ - * $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + * $Id: HBL.inc.php 61511 2015-01-28 12:23:51Z arthur $ + * $Rev: 61511 $ + * $Author: arthur $ + * $Date: 2015-01-28 10:23:51 -0200 (Qua, 28 Jan 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 cb6d079..92b46b6 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 59612 2014-09-02 12:00:51Z gelson $ - * $Rev: 59612 $ - * $Author: gelson $ - * $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + * $Id: HML.inc.php 61704 2015-02-26 15:50:25Z michel $ + * $Rev: 61704 $ + * $Author: michel $ + * $Date: 2015-02-26 12:50:25 -0300 (Qui, 26 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 94458c5..fb1abad 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 59612 2014-09-02 12:00:51Z gelson $ - * $Rev: 59612 $ - * $Author: gelson $ - * $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + * $Id: JGL.inc.php 61712 2015-02-27 12:52:56Z michel $ + * $Rev: 61712 $ + * $Author: michel $ + * $Date: 2015-02-27 09:52:56 -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 0a26b73..042570a 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 59612 2014-09-02 12:00:51Z gelson $ + $Id: OCExportacaoBalancete.php 61662 2015-02-23 18:48:44Z carlos.silva $ * 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 f619005..2feb3af 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: 59612 $ + $Id: PFD.inc.php 61684 2015-02-25 15:24:42Z michel $ + $Revision: 61684 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: michel $ + $Date: 2015-02-25 12:24:42 -0300 (Qua, 25 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 985ac92..02a85bb 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: 59612 $ + $Revision: 61567 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: michel $ + $Date: 2015-02-06 09:47:54 -0200 (Sex, 06 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 73d6caf..5793712 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 59612 2014-09-02 12:00:51Z gelson $ - * $Rev: 59612 $ - * $Author: gelson $ - * $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ - + * $Id: PRL.inc.php 61496 2015-01-26 18:19:27Z evandro $ + * $Rev: 61496 $ + * $Author: evandro $ + * $Date: 2015-01-26 16:19:27 -0200 (Seg, 26 Jan 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 c8d212c..a0f8520 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: 59612 $ + $Revision: 61698 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: jean $ + $Date: 2015-02-26 10:26:54 -0300 (Qui, 26 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 143e4ed..51692ff 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: 59612 $ + $Revision: 61551 $ $Name$ - $Author: gelson $ - $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + $Author: evandro $ + $Date: 2015-02-04 13:12:44 -0200 (Qua, 04 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 875dd37..6e62f7f 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 59612 2014-09-02 12:00:51Z gelson $ - * $Rev: 59612 $ - * $Author: gelson $ - * $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ + * $Id: RPL.inc.php 61694 2015-02-25 21:20:33Z jean $ + * $Rev: 61694 $ + * $Author: jean $ + * $Date: 2015-02-25 18:20:33 -0300 (Qua, 25 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..cd3fe8e --- /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..1b486b1 --- /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 115b43b..9555dc0 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 61101 2014-12-08 19:27:45Z evandro $ +* $Id: relatorioRGFAnexo2RPPS_novo_mensal.plsql 61691 2015-02-25 19:48:43Z franver $ * 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 a4f2c67..0c5af5c 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 61165 2014-12-12 12:32:08Z jean $ +* $Id: relatorioRGFAnexo2_novo_mensal.plsql 61691 2015-02-25 19:48:43Z franver $ * 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 f9ce1e3..526df00 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 61129 2014-12-10 17:04:54Z evandro $ + $Id: relatorioRREOAnexo4_despesa.plsql 61499 2015-01-26 19:45:57Z evandro $ */ 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 561daf0..559634d 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 59612 2014-09-02 12:00:51Z gelson $ -* $Revision: 59612 $ +* $Id: FTCEMGArquivoEXTRegistro20.plsql 61569 2015-02-09 13:08:15Z michel $ +* $Revision: 61569 $ * $Name$ -* $Author: gelson $ -* $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ +* $Author: michel $ +* $Date: 2015-02-09 11:08:15 -0200 (Seg, 09 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 4625383..77d3e81 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: 59612 $ +* $Revision: 61556 $ * $Name$ -* $Author: gelson $ -* $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ +* $Author: evandro $ +* $Date: 2015-02-04 16:20:51 -0200 (Qua, 04 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..60cbff3 --- /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 61567 2015-02-06 11:47:54Z michel $ + */ + +/** + * 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/TCMGOBlpAtivo.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpAtivo.plsql new file mode 100644 index 0000000..60daf2f --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpAtivo.plsql @@ -0,0 +1,1073 @@ +/* + ********************************************************************************** + * * + * @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-02.02.11 + */ + +/* + +*/ + +CREATE OR REPLACE FUNCTION tcmgo.balanco_patrimonial_ativo (varchar, varchar, varchar, varchar) RETURNS SETOF RECORD AS $$ + +DECLARE + stExercicio ALIAS FOR $1; + stDtInicial ALIAS FOR $2; + stDtFinal ALIAS FOR $3; + stCodEntidades ALIAS FOR $4; + 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 lo.cod_entidade IN (' || stCodEntidades || ') + AND pa.exercicio = ' || quote_literal(stExercicio) || ' + ORDER BY pc.cod_estrutural + ) as tabela + '; + 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 lo.cod_entidade IN (' || stCodEntidades || ') + AND pa.exercicio = ' || quote_literal(stExercicio) || ' + ORDER BY pc.cod_estrutural + ) as tabela + '; + 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 CAST(cod_estrutural AS VARCHAR) as cod_estrutural + , nivel + , CAST(nom_conta AS VARCHAR) as nom_conta + , SUM(valores[1] * multiplicador) as vl_saldo_anterior + , SUM(valores[2] * multiplicador) as vl_saldo_debitos + , SUM(valores[3] * multiplicador) as vl_saldo_creditos + , SUM(valores[4] * multiplicador) as vl_saldo_atual + , tipo_conta + FROM ( + + --CONTA CAIXA E EQUIVALENTE + SELECT '||quote_literal('1.1.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.1.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.1.0.0.00.00')||') as nivel + , ''Caixa e Equivalentes de Caixa'' as nom_conta + , 1 as multiplicador + , 1 as tipo_conta + + UNION ALL + + --DEDUZ DA CONTA CAIXA E EQUIVALENTE + SELECT '||quote_literal('1.1.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.1.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.1.0.0.00.00')||') as nivel + , ''Caixa e Equivalentes de Caixa'' as nom_conta + , -1 as multiplicador + , 1 as tipo_conta + + UNION ALL + + --CONTA CRÉDITOS TRIBUTÁRIOS A RECEBER + SELECT '||quote_literal('1.1.2.1.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.1.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.1.0.00.00')||') as nivel + , ''Créditos Tributários a Receber'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --DEDUZ DA CONTA CRÉDITOS TRIBUTÁRIOS A RECEBER + SELECT '||quote_literal('1.1.2.1.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.1.0.00.00')||') as nivel + , ''Créditos Tributários a Receber'' as nom_conta + , -1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CLIENTES + SELECT '||quote_literal('1.1.2.2.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.2.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.2.0.00.00')||') as nivel + , ''Clientes'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CRÉDITOS DE TRANSFERÊNCIAS A RECEBER + SELECT '||quote_literal('1.1.2.3.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.3.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.3.0.00.00')||') as nivel + , ''Créditos de Transferências a Receber'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS CONCEDIDOS + SELECT '||quote_literal('1.1.2.4.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.4.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.4.0.00.00')||') as nivel + , ''Empréstimos e Financiamentos Concedidos'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA TRIBUTÁRIA + SELECT '||quote_literal('1.1.2.5.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.5.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.5.0.00.00')||') as nivel + , ''Dívida Ativa Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --DEDUZ DA CONTA DÍVIDA ATIVA TRIBUTÁRIA + SELECT '||quote_literal('1.1.2.5.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.5.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.5.0.00.00')||') as nivel + , ''Dívida Ativa Tributária'' as nom_conta + , -1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA NÃO TRIBUTÁRIA + SELECT '||quote_literal('1.1.2.6.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.6.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.6.0.00.00')||') as nivel + , ''Dívida Ativa não Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA AJUSTE DE PERDAS DE CRÉDITOS A CURTO PRAZO + SELECT '||quote_literal('1.1.2.9.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.9.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.9.0.00.00')||') as nivel + , ''(-) Ajuste de Perdas de Créditos a Curto Prazo'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA AJUSTE DE PERDAS DE CRÉDITOS A CURTO PRAZO + SELECT '||quote_literal('1.1.2.9.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.2.9.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.2.9.0.00.00')||') as nivel + , ''(-) Ajuste de Perdas de Créditos a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DEMAIS CRÉDITOS E VALORES A CURTO PRAZO + SELECT '||quote_literal('1.1.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.3.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.3.0.0.00.00')||') as nivel + , ''Demais Créditos e Valores a Curto Prazo'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA INVESTIMENTOS E APLICAÇÕES TEMPORÁRIAS A CURTO PRAZO + SELECT '||quote_literal('1.1.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.4.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.4.0.0.00.00')||') as nivel + , ''Investimentos e Aplicações Temporárias a Curto Prazo'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA ESTOQUES + SELECT '||quote_literal('1.1.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.5.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.5.0.0.00.00')||') as nivel + , ''Estoques'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA VPD PAGAS ANTECIPADAMENTE + SELECT '||quote_literal('1.1.9.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.1.9.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.1.9.0.0.00.00')||') as nivel + , ''VPD Pagas Antecipadamente'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + + UNION ALL + + --CONTA CRÉDITOS TRIBUTÁRIOS A RECEBER + SELECT '||quote_literal('1.2.1.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.01.00')||') as nivel + , ''Créditos Tributários a Receber'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CRÉDITOS TRIBUTÁRIOS A RECEBER + SELECT '||quote_literal('1.2.1.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.3.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.01.00')||') as nivel + , ''Créditos Tributários a Receber'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CRÉDITOS TRIBUTÁRIOS A RECEBER + SELECT '||quote_literal('1.2.1.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.4.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.01.00')||') as nivel + , ''Créditos Tributários a Receber'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CRÉDITOS TRIBUTÁRIOS A RECEBER + SELECT '||quote_literal('1.2.1.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.5.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.01.00')||') as nivel + , ''Créditos Tributários a Receber'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CLIENTES + SELECT '||quote_literal('1.2.1.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.02.00')||') as nivel + , ''Clientes'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CLIENTES + SELECT '||quote_literal('1.2.1.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.3.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.02.00')||') as nivel + , ''Clientes'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CLIENTES + SELECT '||quote_literal('1.2.1.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.4.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.02.00')||') as nivel + , ''Clientes'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA CLIENTES + SELECT '||quote_literal('1.2.1.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.5.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.02.00')||') as nivel + , ''Clientes'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS CONCEDIDOS + SELECT '||quote_literal('1.2.1.1.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.03.00')||') as nivel + , ''Empréstimos e Financiamentos Concedidos'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS CONCEDIDOS + SELECT '||quote_literal('1.2.1.1.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.3.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.03.00')||') as nivel + , ''Empréstimos e Financiamentos Concedidos'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS CONCEDIDOS + SELECT '||quote_literal('1.2.1.1.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.4.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.03.00')||') as nivel + , ''Empréstimos e Financiamentos Concedidos'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS CONCEDIDOS + SELECT '||quote_literal('1.2.1.1.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.5.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.03.00')||') as nivel + , ''Empréstimos e Financiamentos Concedidos'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.1.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.04.00')||') as nivel + , ''Dívida Ativa Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.3.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.04.00')||') as nivel + , ''Dívida Ativa Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.4.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.04.00')||') as nivel + , ''Dívida Ativa Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.5.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.04.00')||') as nivel + , ''Dívida Ativa Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA NÂO TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.05.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.1.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.05.00')||') as nivel + , ''Dívida Ativa não Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA NÂO TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.05.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.3.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.05.00')||') as nivel + , ''Dívida Ativa não Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA NÂO TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.05.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.4.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.05.00')||') as nivel + , ''Dívida Ativa não Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DÍVIDA ATIVA NÂO TRIBUTÁRIA + SELECT '||quote_literal('1.2.1.1.0.05.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.5.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.05.00')||') as nivel + , ''Dívida Ativa não Tributária'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA AJUSTE DE PERDAS DE CRÉDITOS A LONGO PRAZO + SELECT '||quote_literal('1.2.1.1.0.99.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.1.99.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.99.00')||') as nivel + , ''Ajuste de Perdas de Créditos a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA AJUSTE DE PERDAS DE CRÉDITOS A LONGO PRAZO + SELECT '||quote_literal('1.2.1.1.0.99.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.3.99.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.99.00')||') as nivel + , ''Ajuste de Perdas de Créditos a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA AJUSTE DE PERDAS DE CRÉDITOS A LONGO PRAZO + SELECT '||quote_literal('1.2.1.1.0.99.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.4.99.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.99.00')||') as nivel + , ''Ajuste de Perdas de Créditos a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA AJUSTE DE PERDAS DE CRÉDITOS A LONGO PRAZO + SELECT '||quote_literal('1.2.1.1.0.99.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.1.5.99.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.1.0.99.00')||') as nivel + , ''Ajuste de Perdas de Créditos a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 6 as tipo_conta + + UNION ALL + + --CONTA DEMAIS CRÉDITOS E VALORES A LONGO PRAZO + SELECT '||quote_literal('1.2.1.2.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.2.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.2.0.00.00')||') as nivel + , ''Demais Créditos e Valores a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA INVESTIMENTOS E APLICAÇÕES TEMPORÁRIAS A LONGO PRAZO + SELECT '||quote_literal('1.2.1.3.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.3.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.3.0.00.00')||') as nivel + , ''Investimentos e Aplicações Temporárias a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA ESTOQUES + SELECT '||quote_literal('1.2.1.4.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.4.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.4.0.00.00')||') as nivel + , ''Estoques'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA VDP PAGAS ANTECIPADAMENTE + SELECT '||quote_literal('1.2.1.9.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.1.9.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.1.9.0.00.00')||') as nivel + , ''VDP Pagas Antecipadamente'' as nom_conta + , 1 as multiplicador + , 2 as tipo_conta + + UNION ALL + + --CONTA PARTICIPAÇÕES AVALIADAS PELO MÉTODO DE EQUIVALÊNCIA PATRIMONIAL + SELECT '||quote_literal('1.2.2.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.01.00')||') as nivel + , ''Participações Avaliadas pelo Método de Equivalência Patrimonial'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PARTICIPAÇÕES AVALIADAS PELO MÉTODO DE EQUIVALÊNCIA PATRIMONIAL + SELECT '||quote_literal('1.2.2.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.3.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.01.00')||') as nivel + , ''Participações Avaliadas pelo Método de Equivalência Patrimonial'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PARTICIPAÇÕES AVALIADAS PELO MÉTODO DE EQUIVALÊNCIA PATRIMONIAL + SELECT '||quote_literal('1.2.2.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.4.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.01.00')||') as nivel + , ''Participações Avaliadas pelo Método de Equivalência Patrimonial'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PARTICIPAÇÕES AVALIADAS PELO MÉTODO DE EQUIVALÊNCIA PATRIMONIAL + SELECT '||quote_literal('1.2.2.1.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.5.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.01.00')||') as nivel + , ''Participações Avaliadas pelo Método de Equivalência Patrimonial'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PADRÕES AVALIADAS PELO MÉTODO DE CUSTO + SELECT '||quote_literal('1.2.2.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.02.00')||') as nivel + , ''Padrões Avaliadas pelo Método de Custo'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PADRÕES AVALIADAS PELO MÉTODO DE CUSTO + SELECT '||quote_literal('1.2.2.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.3.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.02.00')||') as nivel + , ''Padrões Avaliadas pelo Método de Custo'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PADRÕES AVALIADAS PELO MÉTODO DE CUSTO + SELECT '||quote_literal('1.2.2.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.4.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.02.00')||') as nivel + , ''Padrões Avaliadas pelo Método de Custo'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PADRÕES AVALIADAS PELO MÉTODO DE CUSTO + SELECT '||quote_literal('1.2.2.1.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.1.5.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.1.0.02.00')||') as nivel + , ''Padrões Avaliadas pelo Método de Custo'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE PARTICIPAÇÕES PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.01.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Participações Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE PARTICIPAÇÕES PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.3.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.01.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Participações Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE PARTICIPAÇÕES PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.4.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.01.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Participações Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE PARTICIPAÇÕES PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.5.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.01.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Participações Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA PROPRIEDADES PARA INVESTIMENTOS + SELECT '||quote_literal('1.2.2.2.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.2.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.2.0.00.00')||') as nivel + , ''Propriedades para Investimentos'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA DEPRECIAÇÃO ACUMULADA DE PROPRIEDADES PARA INVESTIMENTOS + SELECT '||quote_literal('1.2.2.8.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.8.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.8.1.01.00')||') as nivel + , ''Depreciação Acumulada de Propriedades para Investimentos'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE PROPRIEDADES DE INVESTIMENTOS + SELECT '||quote_literal('1.2.2.9.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.1.02.00')||') as nivel + , ''Redução ao Valor Recuperável de Propriedades de Investimentos'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA INVESTIMENTOS DO RPPS DE LONGO PRAZO + SELECT '||quote_literal('1.2.2.3.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.3.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.3.0.00.00')||') as nivel + , ''Investimentos do RPPS de Longo Prazo'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE INVESTIMENTOS DO RPPS + SELECT '||quote_literal('1.2.2.9.1.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.1.03.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Investimentos do RPPS'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA DEMAIS INVESTIMENTOS PERMANENTES + SELECT '||quote_literal('1.2.2.7.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.7.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.7.0.00.00')||') as nivel + , ''Demais Investimentos Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE DEMAIS INVESTIMENTOS PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.1.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.04.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Demais Investimentos Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE DEMAIS INVESTIMENTOS PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.3.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.04.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Demais Investimentos Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE DEMAIS INVESTIMENTOS PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.4.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.04.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Demais Investimentos Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE DEMAIS INVESTIMENTOS PERMANENTES + SELECT '||quote_literal('1.2.2.9.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.2.9.5.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.2.9.0.04.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Demais Investimentos Permanentes'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA BENS MÓVEIS + SELECT '||quote_literal('1.2.3.1.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.1.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.1.0.00.00')||') as nivel + , ''Bens Móveis'' as nom_conta + , 1 as multiplicador + , 3 as tipo_conta + + UNION ALL + + --CONTA (-)DEPRECIAÇÃO/AMORTIZAÇÃO/EXAUSTÃO ACUMULADA DE BENS MÓVEIS + SELECT '||quote_literal('1.2.3.8.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.8.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.8.1.01.00')||') as nivel + , ''(-) Depreciação/Amortização/Exaustão Acumulada de Bens Móveis'' as nom_conta + , 1 as multiplicador + , 3 as tipo_conta + + UNION ALL + + --CONTA (-)DEPRECIAÇÃO/AMORTIZAÇÃO/EXAUSTÃO ACUMULADA DE BENS MÓVEIS + SELECT '||quote_literal('1.2.3.8.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.8.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.8.1.01.00')||') as nivel + , ''(-) Depreciação/Amortização/Exaustão Acumulada de Bens Móveis'' as nom_conta + , 1 as multiplicador + , 3 as tipo_conta + + UNION ALL + + --CONTA (-)DEPRECIAÇÃO/AMORTIZAÇÃO/EXAUSTÃO ACUMULADA DE BENS MÓVEIS + SELECT '||quote_literal('1.2.3.8.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.8.1.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.8.1.01.00')||') as nivel + , ''(-) Depreciação/Amortização/Exaustão Acumulada de Bens Móveis'' as nom_conta + , 1 as multiplicador + , 3 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE BENS MÓVEIS + SELECT '||quote_literal('1.2.3.9.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.9.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.9.1.01.00')||') as nivel + , ''Redução ao Valor Recuperável de Bens Móveis'' as nom_conta + , 1 as multiplicador + , 3 as tipo_conta + + UNION ALL + + --CONTA BENS IMÓVEIS + SELECT '||quote_literal('1.2.3.2.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.2.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.2.0.00.00')||') as nivel + , ''Bens Imóveis'' as nom_conta + , 1 as multiplicador + , 4 as tipo_conta + + UNION ALL + + --CONTA (-)DEPRECIAÇÃO/AMORTIZAÇÃO/EXAUSTÃO ACUMULADA DE BENS IMÓVEIS + SELECT '||quote_literal('1.2.3.8.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.8.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.8.1.02.00')||') as nivel + , ''(-) Depreciação/Amortização/Exaustão Acumulada de Bens Imóveis'' as nom_conta + , 1 as multiplicador + , 4 as tipo_conta + + UNION ALL + + --CONTA (-)DEPRECIAÇÃO/AMORTIZAÇÃO/EXAUSTÃO ACUMULADA DE BENS IMÓVEIS + SELECT '||quote_literal('1.2.3.8.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.8.1.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.8.1.02.00')||') as nivel + , ''(-) Depreciação/Amortização/Exaustão Acumulada de Bens Imóveis'' as nom_conta + , 1 as multiplicador + , 4 as tipo_conta + + UNION ALL + + --CONTA (-)DEPRECIAÇÃO/AMORTIZAÇÃO/EXAUSTÃO ACUMULADA DE BENS IMÓVEIS + SELECT '||quote_literal('1.2.3.8.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.8.1.06.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.8.1.02.00')||') as nivel + , ''(-) Depreciação/Amortização/Exaustão Acumulada de Bens Imóveis'' as nom_conta + , 1 as multiplicador + , 4 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE BENS IMÓVEIS + SELECT '||quote_literal('1.2.3.9.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.3.9.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.3.9.1.02.00')||') as nivel + , ''Redução ao Valor Recuperável de Bens Imóveis'' as nom_conta + , 1 as multiplicador + , 4 as tipo_conta + + UNION ALL + + --CONTA SOFTWARES + SELECT '||quote_literal('1.2.4.1.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.1.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.1.0.00.00')||') as nivel + , ''Softwares'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA AMORTIZAÇÃO ACUMULADA DE SOFTWARES + SELECT '||quote_literal('1.2.4.8.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.8.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.8.1.01.00')||') as nivel + , ''(-) Amortização Acumulada de Softwares'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE SOFTWARES + SELECT '||quote_literal('1.2.4.9.1.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.9.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.9.1.01.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Softwares'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA MARCAS, DIREITOS E PATENTES INDUSTRIAIS + SELECT '||quote_literal('1.2.4.2.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.2.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.2.0.00.00')||') as nivel + , ''Marcas, Direitos e Patentes Industriais'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA AMORTIZAÇÃO ACUMULADA DE MARCAS, DIREITOS E PATENTES INDUSTRIAIS + SELECT '||quote_literal('1.2.4.8.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.8.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.8.1.02.00')||') as nivel + , ''(-) Amortização Acumulada de Marcas, Direitos e Patentes Industriais'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE MARCAS, DIREITOS E PATENTES INDUSTRIAIS + SELECT '||quote_literal('1.2.4.9.1.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.9.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.9.1.02.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Marcas, Direitos e Patentes Industriais'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA DIREITO DE USO DE IMÓVEIS + SELECT '||quote_literal('1.2.4.3.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.3.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.3.0.00.00')||') as nivel + , ''Direito de Uso de Imóveis'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA AMORTIZAÇÃO ACUMULADA DE DIREITOS DE USO DE IMÓVEIS + SELECT '||quote_literal('1.2.4.8.1.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.8.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.8.1.03.00')||') as nivel + , ''(-) Amortização Acumulada de Direitos de Uso de Imóveis'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + UNION ALL + + --CONTA REDUÇÃO AO VALOR RECUPERÁVEL DE DIREITOS DE USO DE IMÓVEIS + SELECT '||quote_literal('1.2.4.9.1.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('1.2.4.9.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('1.2.4.9.1.03.00')||') as nivel + , ''(-) Redução ao Valor Recuperável de Direitos de Uso de Imóveis'' as nom_conta + , 1 as multiplicador + , 7 as tipo_conta + + ) as tabela + GROUP BY cod_estrutural + , nivel + , nom_conta + , tipo_conta + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN NEXT reRegistro; + 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/TCMGOBlpPassivo.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPassivo.plsql new file mode 100644 index 0000000..3be9072 --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPassivo.plsql @@ -0,0 +1,430 @@ +/* + ********************************************************************************** + * * + * @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-02.02.11 + */ + +/* + +*/ + +CREATE OR REPLACE FUNCTION tcmgo.balanco_patrimonial_passivo (varchar, varchar, varchar, varchar) RETURNS SETOF RECORD AS $$ + +DECLARE + stExercicio ALIAS FOR $1; + stDtInicial ALIAS FOR $2; + stDtFinal ALIAS FOR $3; + stCodEntidades ALIAS FOR $4; + 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 lo.cod_entidade IN (' || stCodEntidades || ') + AND pa.exercicio = ' || quote_literal(stExercicio) || ' + ORDER BY pc.cod_estrutural + ) as tabela + '; + 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 lo.cod_entidade IN (' || stCodEntidades || ') + AND pa.exercicio = ' || quote_literal(stExercicio) || ' + ORDER BY pc.cod_estrutural + ) as tabela + '; + 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 CAST(cod_estrutural AS VARCHAR) as cod_estrutural + , nivel + , CAST(nom_conta AS VARCHAR) as nom_conta + , SUM(valores[1] * multiplicador) as vl_saldo_anterior + , SUM(valores[2] * multiplicador) as vl_saldo_debitos + , SUM(valores[3] * multiplicador) as vl_saldo_creditos + , SUM(valores[4] * multiplicador) as vl_saldo_atual + , tipo_conta + FROM ( + + --CONTA OBRIGAÇÕES TRABALHISTAS, PROVIDENCIÁRIAS E ASSISTENCIAIS A PAGAR A CURTO PRAZO + SELECT '||quote_literal('2.1.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.1.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.1.0.0.00.00')||') as nivel + , ''Obrigações Trabalhistas, Previdenciárias e Assistenciais a Pagar a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES TRABALHISTAS, PROVIDENCIÁRIAS E ASSISTENCIAIS A PAGAR A CURTO PRAZO + SELECT '||quote_literal('2.1.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.1.2.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.1.0.0.00.00')||') as nivel + , ''Obrigações Trabalhistas, Previdenciárias e Assistenciais a Pagar a Curto Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES TRABALHISTAS, PROVIDENCIÁRIAS E ASSISTENCIAIS A PAGAR A CURTO PRAZO + SELECT '||quote_literal('2.1.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.1.4.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.1.0.0.00.00')||') as nivel + , ''Obrigações Trabalhistas, Previdenciárias e Assistenciais a Pagar a Curto Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS A CURTO PRAZO + SELECT '||quote_literal('2.1.2.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.2.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.2.0.0.00.00')||') as nivel + , ''Empréstimos e Financiamentos a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 6 AS tipo_conta + + UNION ALL + + --CONTA FORNECEDORES E CONTAS A PAGAR A CURTO PRAZO + SELECT '||quote_literal('2.1.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.3.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.3.0.0.00.00')||') as nivel + , ''Fornecedores e Contas a Pagar a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 1 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES FISCAIS A CURTO PRAZO + SELECT '||quote_literal('2.1.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.4.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.4.0.0.00.00')||') as nivel + , ''Obrigações Fiscais a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES DE REPARTIÇÃO A OUTROS ENTES + SELECT '||quote_literal('2.1.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.5.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.5.0.0.00.00')||') as nivel + , ''Obrigações de Repartição a Outros Entes'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA PROVISÕES A CURTO PRAZO + SELECT '||quote_literal('2.1.7.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.7.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.7.0.0.00.00')||') as nivel + , ''Provisões a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA DEMAIS OBRIGAÇÕES A CURTO PRAZO + SELECT '||quote_literal('2.1.8.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.8.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.8.0.0.00.00')||') as nivel + , ''Demais Obrigações a Curto Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA DEMAIS OBRIGAÇÕES A CURTO PRAZO + SELECT '||quote_literal('2.1.8.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.1.8.9.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.1.8.0.0.00.00')||') as nivel + , ''Demais Obrigações a Curto Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES TRABALHISTAS, PREVIDENCIÁRIAS E ASSISTENCIAIS A PAGAR A LONGO PRAZO + SELECT '||quote_literal('2.2.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.1.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.1.0.0.00.00')||') as nivel + , ''Obrigações Trabalhistas, Previdenciárias e Assistenciais a Pagar a Longo Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES TRABALHISTAS, PREVIDENCIÁRIAS E ASSISTENCIAIS A PAGAR A LONGO PRAZO + SELECT '||quote_literal('2.2.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.1.4.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.1.0.0.00.00')||') as nivel + , ''Obrigações Trabalhistas, Previdenciárias e Assistenciais a Pagar a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA EMPRÉSTIMOS E FINANCIAMENTOS A LONGO PRAZO + SELECT '||quote_literal('2.2.2.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.2.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.2.0.0.00.00')||') as nivel + , ''Empréstimos e Financiamentos a Longo Prazo'' as nom_conta + , -1 as multiplicador + , 6 AS tipo_conta + + UNION ALL + + --CONTA FORNECEDORES A LONGO PRAZO + SELECT '||quote_literal('2.2.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.3.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.3.0.0.00.00')||') as nivel + , ''Fornecedores a Longo Prazo'' as nom_conta + , -1 as multiplicador + , 1 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES FISCAIS A LONGO PRAZO + SELECT '||quote_literal('2.2.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.4.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.4.0.0.00.00')||') as nivel + , ''Obrigações Fiscais a Longo Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES FISCAIS A LONGO PRAZO + SELECT '||quote_literal('2.2.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.4.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.4.0.0.00.00')||') as nivel + , ''Obrigações Fiscais a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES FISCAIS A LONGO PRAZO + SELECT '||quote_literal('2.2.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.4.2.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.4.0.0.00.00')||') as nivel + , ''Obrigações Fiscais a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA OBRIGAÇÕES FISCAIS A LONGO PRAZO + SELECT '||quote_literal('2.2.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.4.3.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.4.0.0.00.00')||') as nivel + , ''Obrigações Fiscais a Longo Prazo'' as nom_conta + , 1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA PROVISÕES A LONGO PRAZO + SELECT '||quote_literal('2.2.7.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.7.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.7.0.0.00.00')||') as nivel + , ''Provisões a Longo Prazo'' as nom_conta + , -1 as multiplicador + , 3 AS tipo_conta + + UNION ALL + + --CONTA DEMAIS OBRIGAÇÕES A LONGO PRAZO + SELECT '||quote_literal('2.2.8.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.8.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.8.0.0.00.00')||') as nivel + , ''Demais Obrigações a Longo Prazo'' as nom_conta + , -1 as multiplicador + , 5 AS tipo_conta + + UNION ALL + + --CONTA RESULTADO DEFERIDO + SELECT '||quote_literal('2.2.9.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.2.9.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.2.9.0.0.00.00')||') as nivel + , ''Resultado Deferido'' as nom_conta + , -1 as multiplicador + , 5 AS tipo_conta + ) as tabela + GROUP BY cod_estrutural + , nivel + , nom_conta + , tipo_conta + '; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN NEXT reRegistro; + 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/TCMGOBlpPatrimonioLiquido.plsql b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPatrimonioLiquido.plsql new file mode 100644 index 0000000..077804d --- /dev/null +++ b/gestaoPrestacaoContas/fontes/PLPGSQL/TCMGO/TCMGOBlpPatrimonioLiquido.plsql @@ -0,0 +1,1065 @@ +/* + ********************************************************************************** + * * + * @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-02.02.11 + */ + +/* + +*/ + +CREATE OR REPLACE FUNCTION tcmgo.balanco_patrimonial_patrimonio_liquido (varchar, varchar, varchar, varchar) RETURNS SETOF RECORD AS $$ + +DECLARE + stExercicio ALIAS FOR $1; + stDtInicial ALIAS FOR $2; + stDtFinal ALIAS FOR $3; + stCodEntidades ALIAS FOR $4; + stSql VARCHAR := ''; + stSqlComplemento VARCHAR := ''; + reRegistro RECORD; + arRetorno NUMERIC[]; + boUpdateRelatorio BOOLEAN; + +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 lo.cod_entidade IN (' || stCodEntidades || ') + AND pa.exercicio = ' || quote_literal(stExercicio) || ' + ORDER BY pc.cod_estrutural + ) as tabela + '; + 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 lo.cod_entidade IN (' || stCodEntidades || ') + AND pa.exercicio = ' || quote_literal(stExercicio) || ' + ORDER BY pc.cod_estrutural + ) as tabela + '; + 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 := 'CREATE TEMPORARY TABLE tmp_relatorio AS + SELECT CAST(cod_estrutural AS VARCHAR) as cod_estrutural + , nivel + , CAST(nom_conta AS VARCHAR) as nom_conta + , SUM(valores[1] * multiplicador) as vl_saldo_anterior + , SUM(valores[2] * multiplicador) as vl_saldo_debitos + , SUM(valores[3] * multiplicador) as vl_saldo_creditos + , SUM(valores[4] * multiplicador) as vl_saldo_atual + , 8 AS tipo_conta + FROM ( + + --CONTA PATRIMÔNIO LIQUIDO + SELECT '||quote_literal('2.3.0.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.0.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.0.0.0.00.00')||') as nivel + , ''Patrimônio Liquido'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA PATRIMÔNIO SOCIAL E CAPITAL SOCIAL + SELECT '||quote_literal('2.3.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.1.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.1.0.0.00.00')||') as nivel + , ''Patrimônio Social e Capital Social'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA PATRIMÔNIO SOCIAL E CAPITAL SOCIAL + SELECT '||quote_literal('2.3.1.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.1.2.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.1.0.0.00.00')||') as nivel + , ''Patrimônio Social e Capital Social'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA ADIANTAMENTO PARA FUTURO AUMENTO DE CAPITAL + SELECT '||quote_literal('2.3.2.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.2.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.2.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA ADIANTAMENTO PARA FUTURO AUMENTO DE CAPITAL + SELECT '||quote_literal('2.3.2.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.2.0.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.2.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA RESERVAS DE CAPITAL + SELECT '||quote_literal('2.3.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.3.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.3.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVAS DE CAPITAL + SELECT '||quote_literal('2.3.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.3.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.3.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVAS DE CAPITAL + SELECT '||quote_literal('2.3.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.3.2.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.3.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVAS DE CAPITAL + SELECT '||quote_literal('2.3.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.3.3.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.3.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVAS DE CAPITAL + SELECT '||quote_literal('2.3.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.3.4.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.3.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVAS DE CAPITAL + SELECT '||quote_literal('2.3.3.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.3.9.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.3.0.0.00.00')||') as nivel + , ''Adiantamento para Futuro Aumento de Capital'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE AVALIAÇÃO PATRIMONIAL + SELECT '||quote_literal('2.3.4.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.4.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.4.0.0.00.00')||') as nivel + , ''Ajustes de Avaliação Patrimonial'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.2.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.3.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.4.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.5.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.7.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA RESERVA DE LUCROS + SELECT '||quote_literal('2.3.5.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.5.9.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.5.0.0.00.00')||') as nivel + , ''Reserva de Lucros'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA DEMAIS RESERVAS + SELECT '||quote_literal('2.3.6.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.6.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.6.0.0.00.00')||') as nivel + , ''Demais Reservas'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA DEMAIS RESERVAS + SELECT '||quote_literal('2.3.6.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.6.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.6.0.0.00.00')||') as nivel + , ''Demais Reservas'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA DEMAIS RESERVAS + SELECT '||quote_literal('2.3.6.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.6.9.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.6.0.0.00.00')||') as nivel + , ''Demais Reservas'' as nom_conta + , -1 as multiplicador + '; + +IF ( (stDtInicial = '01/01/'||stExercicio ) AND (stDtFinal = '31/12/'||stExercicio) ) THEN +--regra do relatorio para quando o relatorio for emitido para todo o exercicio + stSql := stSql || ' + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.3.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.4.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.5.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.1.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.3.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.4.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.5.01.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , 1 as multiplicador + '; +ELSE +--regra do relatorio para quando o relatorio for emitido durante o exercicio + boUpdateRelatorio := true; + stSql := stSql ||' + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('4.0.0.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('3.0.0.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DO EXERCICIO + SELECT '||quote_literal('2.3.7.0.0.01.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.01.00')||') as nivel + , ''Resultado do Exercício'' as nom_conta + , -1 as multiplicador + + '; +END IF; + + stSql := stSql || ' + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.3.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.4.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.5.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.1.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.3.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA RESULTADO DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.02.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.4.02.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.02.00')||') as nivel + , ''Resultado de Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.3.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.4.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.5.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.1.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.3.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.4.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AJUSTES DE EXERCÍCIOS ANTERIORES + SELECT '||quote_literal('2.3.7.0.0.03.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.5.03.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.03.00')||') as nivel + , ''Ajustes Exercícios Anteriores'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.1.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.3.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.4.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.1.5.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.1.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.3.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.4.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.5.04.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.1.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.3.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.4.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.5.05.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.1.06.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.3.06.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.4.06.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA OUTROS RESULTADOS + SELECT '||quote_literal('2.3.7.0.0.04.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.7.2.5.06.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.7.0.0.04.00')||') as nivel + , ''Outros Resultados'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --CONTA AÇÕES/COTAS EM TESOURARIA + SELECT '||quote_literal('2.3.9.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.9.0.0.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.9.0.0.00.00')||') as nivel + , ''Ações/Cotas em Tesouraria'' as nom_conta + , 1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA AÇÕES/COTAS EM TESOURARIA + SELECT '||quote_literal('2.3.9.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.9.1.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.9.0.0.00.00')||') as nivel + , ''Ações/Cotas em Tesouraria'' as nom_conta + , -1 as multiplicador + + UNION ALL + + --DEDUZ DA CONTA AÇÕES/COTAS EM TESOURARIA + SELECT '||quote_literal('2.3.9.0.0.00.00')||' as cod_estrutural + , contabilidade.totaliza_balanco_patrimonial( publico.fn_mascarareduzida('||quote_literal('2.3.9.2.2.00.00')||') ) as valores + , publico.fn_nivel('||quote_literal('2.3.9.0.0.00.00')||') as nivel + , ''Ações/Cotas em Tesouraria'' as nom_conta + , -1 as multiplicador + + + --ADICIONADO LINHAS PARA ALINHAR O RELATÓRIO + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.9999999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.9999999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.99999999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.99999999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + UNION ALL + + --LINHA PARA COMPENSAR TAMANHO DE TABELAS + SELECT '||quote_literal('2.999999999999999999999')||' as cod_estrutural + , ARRAY[0.00,0.00,0.00,0.00] as valores + , publico.fn_nivel('||quote_literal('2.999999999999999999999')||') as nivel + , '''' as nom_conta + , 1 as multiplicador + + ) as tabela + GROUP BY cod_estrutural + , nivel + , nom_conta + '; +EXECUTE stSql; + +IF (boUpdateRelatorio = true) THEN + + UPDATE tmp_relatorio + SET vl_saldo_atual = (SELECT SUM(vl_saldo_atual) FROM tmp_relatorio WHERE nivel = 6) + WHERE cod_estrutural = '2.3.7.0.0.00.00'; + + UPDATE tmp_relatorio + SET vl_saldo_anterior = (SELECT SUM(vl_saldo_anterior) FROM tmp_relatorio WHERE nivel = 6) + WHERE cod_estrutural = '2.3.7.0.0.00.00'; + + UPDATE tmp_relatorio + SET vl_saldo_atual =( (SELECT vl_saldo_atual FROM tmp_relatorio WHERE cod_estrutural = '2.3.1.0.0.00.00') + + + (SELECT vl_saldo_atual FROM tmp_relatorio WHERE cod_estrutural = '2.3.7.0.0.00.00') + ) + ,vl_saldo_anterior =( (SELECT vl_saldo_anterior FROM tmp_relatorio WHERE cod_estrutural = '2.3.1.0.0.00.00') + + + (SELECT vl_saldo_anterior FROM tmp_relatorio WHERE cod_estrutural = '2.3.7.0.0.00.00') + ) + WHERE cod_estrutural = '2.3.0.0.0.00.00'; + +END IF; + +stSql := 'SELECT * FROM tmp_relatorio'; + + FOR reRegistro IN EXECUTE stSql + LOOP + RETURN NEXT reRegistro; + 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_relatorio; + 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'; \ No newline at end of file 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 081a083..d655054 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: 59612 $ +* $Revision: 61679 $ * $Name$ -* $Author: gelson $ -* $Date: 2014-09-02 09:00:51 -0300 (Ter, 02 Set 2014) $ +* $Author: evandro $ +* $Date: 2015-02-25 10:07:38 -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 e719eff..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: 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.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 51789fb..6b510ec 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 - Copyright (c) 2006 <<CNM - Confederacao Nacional de Municipios>> - Eclipse BIRT Designer Version 4.4.0.v201405191524 Build <4.4.0.v20140606-1451> + Eclipse BIRT Designer Version 2.5.0.v20090603 Build <2.5.0.v20090617-0630> mm + Copyright (c) 2006 <<CNM - Confederacao Nacional de Municipios>> 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,11 +352,91 @@ extensionProperties.odaPassword = params["db_password"].value; ]]> - + + + param_1 + exercicio + string + 1 + true + false + + + param_2 + cod_entidade + string + 2 + true + false + + + param_3 + data_fim + string + 3 + true + false + + + param_4 + exercicio + string + 4 + true + false + + + param_5 + data_inicio + string + 5 + true + false + + + param_6 + data_fim + string + 6 + true + false + + + param_7 + cod_entidade + string + 7 + true + false + + + param_8 + exercicio + string + 8 + true + false + + + param_9 + exercicio + string + 9 + true + false + + + param_10 + exercicio + string + 10 + true + false + + Data Source - - bottom sans-serif 7pt @@ -606,9 +685,8 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> saldo_bruto_vinculados - dataSetRow["disponibilidade_caixa_bruta"] + dataSetRow["disponibilidade_caixa_bruta"]; decimal - true total_vinculado @@ -631,15 +709,13 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> obrigacoes - dataSetRow["obrigacoes_financeiras"] + dataSetRow["obrigacoes_financeiras"]; decimal - true caixa_liquida - dataSetRow["disponibilidade_liquida"] + dataSetRow["disponibilidade_liquida"]; decimal - true total_caixa_liquida @@ -702,6 +778,7 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]>
+ 12.170833333333333mm #000000 solid 1px @@ -709,7 +786,6 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> solid 1px middle - 12.170833333333333mm 7pt @@ -855,6 +931,7 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]> + 3.96875mm //} ]]> - 3.96875mm #000000 solid @@ -932,10 +1008,10 @@ ORÇAMENTOS FISCAL E DA SEGURIDADE SOCIAL]]>