Histórico da Página

...

Filtragem prévia dos acordos: A query agora retorna todos os acordos que atendem aos filtros antes de executar o cálculo de saldo por meio da função fsaldoacordopromoc, evitando que ela seja chamada desnecessariamente.
Redução de chamadas à função: O número de execuções da função fsaldoacordopromoc foi reduzido de quatro para apenas uma.
Otimização dos EXISTS: A lógica dos EXISTS foi centralizada com o uso de JOINs, reduzindo a repetição de código e melhorando a performance geral da query.
Novo parâmetro de data inicial: Foi adicionado um parâmetro opcional para data de início, permitindo um filtro mais preciso dos acordos processados.

Filtro por acordos já processados: Incluído um filtro baseado na coluna IndVerbaAutoZeraSaldo da tabela Mrl_CustoVerba, garantindo que acordos que já passaram pelo processo de zerar saldo não sejam considerados novamente.

Bloco de código

language	sql
theme	RDark
firstline	1
title	Nova query de busca para rotina de zerar saldo
linenumbers	true

 with AcordosBase as (select Acordo.NroAcordo,
                             Acordo.NroEmpresa,
                             Acordo.SeqFornecedor,
                             Acordo.SeqComprador,
                             Acordo.VlrAcordo,
                             Acordo.IndUtilContrSald,
                             max(case 
                                   when Verba.NroAcordo is not null then
                                     1
                                   else   
                                     0
                                 end) TemVerba,             
                             max(case 
                                   when Verba.DtaFinal >= trunc(sysdate) and Verba.QtdLimiteVerba > decode(nvl(Verba.QtdUtilizadaVerba, 0), 0, -1, Verba.QtdUtilizadaVerba) then
                                     1
                                   else
                                     0
                                 end) TemVerbaVigente,
                            nvl(max(Verba.IndVerbaAutoZeraSaldo), 'N') IndVerbaAutoZeraSaldo                                      
         
                     from  Msu_AcordoPromoc Acordo
                      left  join Mrl_CustoVerba Verba on Acordo.NroAcordo = Verba.Nroacordo

                           andon   Acordo.NroEmpresaNroAcordo  = Verba.NroEmpresaAcordoNroacordo
                      where     and  Acordo.AppOrigemNroEmpresa = 2Verba.NroEmpresaAcordo
                           and   Acordo.DtaInicial >= pdDtaInicial
nvl(Verba.IndTipAcordo, 'R') = 'R'
                        and   Acordo.DtaFimand + 1Verba.StatusVerba <= pdDtaFinal'A'
                      and   nvl(Verba.IndVerbaAutoZeraSaldo, 'N')where Acordo.AppOrigem = 'N'2
                     and  and Acordo.DtaInicial >= nvl(pdDtaInicial, Acordo.StatusAcordo, 'P') != 'R'DtaInicial)
                      and   Acordo.SituacaoAcordoDtaFim not+ in ('R', 'C')1 <= pdDtaFinal
                      and   nvl(VerbaAcordo.IndTipAcordoStatusAcordo, 'RP') != 'R'
                      and   Verba.StatusVerba = 'A'Acordo.SituacaoAcordo not in ('R', 'C')
                      group by Acordo.NroAcordo,
                               Acordo.NroEmpresa,
                               Acordo.SeqFornecedor,
                               Acordo.SeqComprador,
                               Acordo.VlrAcordo,
                               Acordo.IndUtilContrSald),
      -- SALDO DO ACORDO
      SaldoAcordo as (select AcordosBase.NroAcordo,
                             AcordosBase.NroEmpresa,
                             fsaldoacordopromoc(AcordosBase.NroEmpresa,  
                                                AcordosBase.NroAcordo, 
                                                AcordosBase.SeqFornecedor) as VlrSaldo
                      from   AcordosBase AcordosBase),               
      -- ACORDOS COM VERBAS VENCIDAS
      AcordosComVerba as (select AcordosBase.*, 
                                 'S' as IndExisteVerba,
                                 AcordosBase.NroEmpresa as NroEmpAcordo,
                                 Saldo.VlrSaldo
                          from   AcordosBase AcordosBase
                          left   join SaldoAcordo Saldo on AcordosBase.NroAcordo  = Saldo.Nroacordo
                          and    AcordosBase.NroEmpresa = Saldo.NroEmpresa
                          where  Saldo.VlrSaldo > 0
                          and    AcordosBase.TemVerba = 1
                          and    AcordosBase.TemVerbaVigente = 0
                         and    AcordosBase.IndVerbaAutoZeraSaldo = 'N'),
      -- ACORDOS SEM VERBA
      AcordosSemVerba as (select AcordosBase.*,
                                 'N' as IndExisteVerba,
                                 AcordosBase.NroEmpresa AS NroEmpAcordo,
                                 Saldo.VlrSaldo
                          from   AcordosBase AcordosBase
                          left   join SaldoAcordo Saldo on AcordosBase.NroAcordo  = Saldo.Nroacordo
                          and    AcordosBase.NroEmpresa = Saldo.NroEmpresa
                          where  Saldo.VlrSaldo > 0
                          and    AcordosBase.TemVerba = 0)
  select * 
  from AcordosComVerba
                                      
  union all
                                      
  select * 
  from AcordosSemVerba

05. REQUISITOS DE VERSÃO

Se estiver na versão 24.07, atualizar o sistema para o service pack 24.07.042 043 ou service pack superior.

Se estiver na versão 25.01, atualizar o sistema para o service pack 25.01.016 017 ou service pack superior.

...

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 10

Nova versão Atual

Chave

05. REQUISITOS DE VERSÃO

OUTROS DOCUMENTOS TÉCNICOS