{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil Tahoma;}{\f1\fnil\fcharset0 Tahoma;}} {\colortbl ;\red0\green0\blue0;} \viewkind4\uc1\pard\cf1\f0\fs16 declare \par @codigoEmpresa char(3), \par @exercicio char(4), \par @mes int, \par @codigoEdigitoBanco varchar(5), \par @codigoOrgao varchar(5) \par \par set @codigoEmpresa =:codigoEmpresa \par set @exercicio =:exercicioCorrente \par set @mes =\f1 :mesCorrente\f0 \par set @codigoEdigitoBanco =:codigoEdigitoBanco \par set @codigoOrgao =:codigoOrgao \par \par \par select distinct \par cast(NE_NumeroEmpenho as varchar) as NE_Numero, \par cast(NE_NumeroEmpenho as varchar)+cast(PE_NumeroPagto as varchar) as PE_NumeroPg, \par NE_NumeroEmpenho, \par AT_CodigoOrgao, \par OR_NomeOrgao, \par NE_CodigoAtividade, \par AT_NomeAtividade, \par NE_CodigoRubrica, \par NE_CodigoFonteRecurso, \par FN_NomeFornecedor, \par CD_NomeCidade, \par NE_Data, \par PE_OrigemEducacao as NE_OrigemEducacao, \par PE_OrigemSaude as NE_OrigemSaude, \par NE_ModalidadeEmpenho, \par NE_NumeroNotaFiscal, \par NE_Historico, \par NE_Valor as NE_ValorEmpenho, \par IsNull(CtAnulacoesEmpenhos.AE_Valor,0) as NE_ValorAnulacao, \par GD_NumeroNotaFiscal, \par CtPagtoEmpenhos.PE_NumeroPagto, \par CtPagtoEmpenhos.PE_Data, \par CtPagtoEmpenhos.PE_OrigemRecursos, 1 as PE_Mes, CtPagtoEmpenhos.PE_OrigemEducacao, \par CtPagtoEmpenhos.PE_OrigemSaude, \par CtPagtoEmpenhos.PE_Movimento, \par CtPagtoEmpenhos.PE_Lote, \par CtPagtoEmpenhos.PE_CodigoBanco, \par CtPagtoEmpenhos.PE_DigitoBanco, \par CtPagtoEmpenhos.PE_Valor, \par \f1 PC_NomeConta,\f0 \par IsNull(CtAnulacaoPagamento.AP_Valor,0) as AP_Valor from CtPagtoEmpenhos \par \f1 left\f0 JOIN CTPlanoContas on PC_CodigoPlano = PE_CodigoBanco \par and PC_DigitoPlano = PE_DigitoBanco \par \tab\tab\tab and PC_CodigoEmpresa = PE_CodigoEmpresa \par \tab\tab\tab and PC_Exercicio = PE_Exercicio \par \par \par INNER JOIN CTEMPENHOS ON NE_NUMEROEMPENHO=CTPAGTOEMPENHOS.PE_NUMEROEMPENHO AND \par NE_LETRAEMPENHO =CTPAGTOEMPENHOS.PE_LETRAEMPENHO AND \par NE_CODIGOEMPRESA=CTPAGTOEMPENHOS.PE_CODIGOEMPRESA AND \par NE_EXERCICIO =CTPAGTOEMPENHOS.PE_EXERCICIO \par INNER JOIN CTATIVIDADE ON AT_CODIGOATIVIDADE =NE_CODIGOATIVIDADE AND \par AT_CODIGOEMPRESA =NE_CODIGOEMPRESA AND \par AT_EXERCICIO =NE_EXERCICIO \par INNER JOIN ORCORGAO ON OR_CODIGOORGAO =AT_CODIGOORGAO AND \par OR_CODIGOEMPRESA =AT_CODIGOEMPRESA AND \par OR_EXERCICIO =AT_EXERCICIO \par INNER JOIN CTFORNECEDORES ON FN_CODIGOFORNECEDOR=NE_CODIGOFORNECEDOR AND \par FN_CODIGOEMPRESA =NE_CODIGOEMPRESA \par INNER JOIN CTBAIRROS ON BR_CODIGOBAIRRO =FN_CODIGOBAIRRO \par INNER JOIN CTCIDADES ON CD_CODIGOCIDADE =BR_CODIGOCIDADE \par LEFT OUTER JOIN CtGuiasDespesasOrcamentarias ON GD_NUMEROGUIA =CTPAGTOEMPENHOS.PE_NUMEROEMPENHO AND \par GD_LETRAGUIA =CTPAGTOEMPENHOS.PE_LETRAEMPENHO AND \par GD_DigitoGuia =CTPAGTOEMPENHOS.PE_NUMEROPAGTO AND \par GD_CODIGOEMPRESA=CTPAGTOEMPENHOS.PE_CODIGOEMPRESA AND \par GD_EXERCICIO =CTPAGTOEMPENHOS.PE_EXERCICIO LEFT OUTER JOIN (SELECT AP_NUMEROEMPENHO, \par AP_LETRAEMPENHO, \par AP_NUMEROPAGTO, \par AP_CODIGOEMPRESA, \par AP_EXERCICIO, \par SUM(AP_VALOR) AS AP_VALOR \par FROM CTANULACAOPAGAMENTO \par WHERE AP_CODIGOEMPRESA=@codigoEmpresa AND \par AP_EXERCICIO =@exercicio AND \par MONTH(AP_DATA) <=@mes \par GROUP BY AP_NUMEROEMPENHO, \par AP_LETRAEMPENHO, \par AP_NUMEROPAGTO, \par AP_CODIGOEMPRESA, \par AP_EXERCICIO) AS \par CTANULACAOPAGAMENTO ON CTANULACAOPAGAMENTO.AP_NUMEROEMPENHO =CTPAGTOEMPENHOS.PE_NUMEROEMPENHO AND \par CTANULACAOPAGAMENTO.AP_LETRAEMPENHO =CTPAGTOEMPENHOS.PE_LETRAEMPENHO AND \par CTANULACAOPAGAMENTO.AP_NUMEROPAGTO =CTPAGTOEMPENHOS.PE_NUMEROPAGTO AND \par CTANULACAOPAGAMENTO.AP_CODIGOEMPRESA =CTPAGTOEMPENHOS.PE_CODIGOEMPRESA AND \par CTANULACAOPAGAMENTO.AP_EXERCICIO =CTPAGTOEMPENHOS.PE_EXERCICIO LEFT OUTER JOIN (SELECT AE_NUMEROGUIA, \par AE_LETRAGUIA, \par AE_CODIGOEMPRESA, \par AE_EXERCICIO, \par SUM(AE_VALOR) AS AE_VALOR \par FROM CTANULACOESEMPENHOS \par WHERE AE_CODIGOEMPRESA=@codigoEmpresa AND \par AE_EXERCICIO =@exercicio AND \par MONTH(AE_DATA) <=@mes \par GROUP BY AE_NUMEROGUIA, \par AE_LETRAGUIA, \par AE_CODIGOEMPRESA, \par AE_EXERCICIO) AS \par CTANULACOESEMPENHOS ON CTANULACOESEMPENHOS.AE_NUMEROGUIA =NE_NUMEROEMPENHO AND \par CTANULACOESEMPENHOS.AE_LETRAGUIA =NE_LETRAEMPENHO AND \par CTANULACOESEMPENHOS.AE_CODIGOEMPRESA =NE_CODIGOEMPRESA AND \par CTANULACOESEMPENHOS.AE_EXERCICIO =NE_EXERCICIO left outer join CtDocumentosCopiasCheques on (DCC_TipoDocumento='NE' or \par DCC_TipoDocumento='SE') and \par (DCC_NumeroDocumento=CtPagtoEmpenhos.PE_NumeroEmpenho) and \par (DCC_LetraDocumento =CtPagtoEmpenhos.PE_LetraEmpenho ) and \par (DCC_DigitoDocumento=CtPagtoEmpenhos.PE_NumeroPagto ) and \par (DCC_CodigoEmpresa =CtPagtoEmpenhos.PE_CodigoEmpresa) and \par (DCC_Exercicio =CtPagtoEmpenhos.PE_Exercicio ) where CtPagtoEmpenhos.PE_CodigoEmpresa=@codigoEmpresa and CtPagtoEmpenhos.PE_Exercicio =@exercicio and AT_CodigoOrgao\f1 like @codigoOrgao+'%'\f0 and month(CtPagtoEmpenhos.PE_Data)<=@mes and (cast(CtPagtoEmpenhos.PE_CodigoBanco as varchar)+cast(CtPagtoEmpenhos.PE_DigitoBanco as varchar)= @codigoEdigitoBanco or cast(CtDocumentosCopiasCheques.DCC_CodigoBanco as varchar)+cast(CtDocumentosCopiasCheques.DCC_DigitoBanco as varchar)= @codigoEdigitoBanco) order by NE_CodigoRubrica, PE_DATA, FN_NomeFornecedor, \par NE_NumeroEmpenho, \par CtPagtoEmpenhos.PE_NumeroPagto \par \par \par \par }