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
                           and  Acordo.NroEmpresa = Verba.NroEmpresaAcordo
                           and  nvl(Verba.IndTipAcordo, 'R') = 'R'
                           and  Verba.StatusVerba = 'A'
                     where Acordo.AppOrigem = 2
                     and   Acordo.DtaInicial >= nvl(pdDtaInicial, Acordo.DtaInicial)
                     and   Acordo.DtaFim + 1 <= pdDtaFinal
                     and   nvl(Acordo.StatusAcordo, 'P') != 'R'
                     and   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

...

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 11

Nova versão Atual

Chave

OUTROS DOCUMENTOS TÉCNICOS