{\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 
\par set @codigoEmpresa      =:codigoEmpresa
\par set @exercicio          =:exercicioCorrente
\par 
\par 
\par 
\par  select                              
\par cast(RA_NumeroEmpenho as varchar)+RA_LetraEmpenho as RA_Numero,               
\par RA_NumeroEmpenho,              
\par RA_LetraEmpenho,               
\par RA_CodigoFuncao,               
\par RA_CodigoSubFuncao,            
\par RA_Exercicio,                  
\par RA_CodigoOrgao,                
\par OR_NomeOrgao,                  
\par RA_CodigoAtividade,            
\par RA_CodigoRubrica,              
\par RA_CodigoFonteRecurso,         
\par RA_CodigoFornecedor,           
\par FN_NomeFornecedor,             
\par RA_CodigoObra,                 
\par LO_NomeLocalObra,              
\par RA_Data,                       
\par RA_Historico,                  
\par RA_Valor,                      
\par RA_CodigoEmpresa,              
\par RA_ValorCancelado as Cancelado ,                                                                                                                     
\par FU_NomeFuncao,
\par SF_NomeSubFuncao,
\par (select isnull(sum(ds_valor),0) ds_valor from CtGuiasDespesasExtraORcamentarias  
\par where                                                                            
\par DS_NumeroEmpenhoRA = RA_NumeroEmpenho and                                        
\par DS_LetraEmpenhoRA  = RA_LetraEmpenho  and                                        
\par DS_ExercicioRA     = RA_Exercicio     and                                        
\par DS_CodigoEmpresa  =RA_CodigoEmpresa and                                          
\par DS_Exercicio    =@exercicio) RA_ValorPagto,              
\par RA_Valor - ( IsNull(sum(DS_Valor),0) + (IsNull(RA_ValorPagoEA,0)) + (IsNull(RA_ValorCancelado,0)))  as RA_SaldoEmpenho     
\par from CtRestosAPagar 
\par inner join CtFornecedores on FN_CodigoFornecedor =RA_CodigoFornecedor and                                                              
\par FN_CodigoEmpresa    =RA_CodigoEmpresa                                   
\par left outer join CtLocalObras on LO_CodigoLocalObra  =RA_CodigoObra       and                                                              
\par LO_CodigoEmpresa    =RA_CodigoEmpresa                                      
\par left outer join CtGuiasDespesasExtraORcamentarias on DS_NumeroEmpenhoRA=RA_Numeroempenho and                                                                        
\par DS_LetraEmpenhoRA =RA_LetraEmpenho  and                                                                        
\par DS_ExercicioRA    =RA_Exercicio     and                                                                        
\par DS_CodigoEmpresa  =RA_CodigoEmpresa                       
\par left outer join OrcOrgao                          on OR_CodigoOrgao    =RA_CodigoOrgao   and                                                                        
\par OR_Exercicio      =RA_Exercicio     and                                                                        
\par OR_CodigoEmpresa  = RA_CodigoEmpresa      
\par inner join ctFuncao on RA_CodigoFuncao       = FU_CodigoFuncao
\par inner join ctSubFuncao on RA_CodigoSubFuncao = SF_CodigoSubFuncao
\par 
\par where  RA_CodigoEmpresa=@codigoEmpresa     
\par 
\par group by                                                     
\par cast(RA_NumeroEmpenho as varchar)+RA_LetraEmpenho,       
\par RA_Cancelado,                  
\par RA_NumeroEmpenho,              
\par RA_LetraEmpenho,               
\par RA_CodigoFuncao,               
\par RA_CodigoSubFuncao,            
\par RA_Exercicio,                  
\par RA_CodigoOrgao,                
\par OR_NomeOrgao,                  
\par RA_CodigoAtividade,            
\par RA_CodigoRubrica,              
\par RA_CodigoFonteRecurso,         
\par RA_CodigoFornecedor,           
\par FN_NomeFornecedor,             
\par RA_CodigoObra,                 
\par LO_NomeLocalObra,              
\par RA_Data,                       
\par RA_Historico,                  
\par RA_Valor,                      
\par RA_ValorCancelado,             
\par FU_NomeFuncao,
\par SF_NomeSubFuncao,
\par RA_ValorPagoEA,                
\par RA_codigoEmpresa         
\par 
\par having 
\par 
\par (select isnull(sum(ds_valor),0) ds_valor from CtGuiasDespesasExtraORcamentarias  
\par where                                                                            
\par DS_NumeroEmpenhoRA = RA_NumeroEmpenho and                                        
\par DS_LetraEmpenhoRA  = RA_LetraEmpenho  and                                        
\par DS_ExercicioRA     = RA_Exercicio     and                                        
\par DS_CodigoEmpresa  =RA_CodigoEmpresa and                                          
\par DS_Exercicio    =@exercicio) > 0
\par 
\par order by 
\par RA_Codigo\f1 Funcao\f0 ,
\par \f1 RA_CodigoSubFuncao,\f0 
\par RA_Exercicio,              
\par RA_CodigoOrgao,           
\par FN_NomeFornecedor
\par 
\par 
\par 
\par }
 