[RESOLVIDO] For eachs demorados

mas mesmo usando os campos chave, se não existe na base um codigo que vc está procurando, no for each é claro, ele demora pra te responder que não achou nada ou pra terminar o for each, esse é o problema, tanto que existe uma tecnica que é aconselhavel usar, por exemplo, vc quer ler o saldo de estoque dos estabelecimentos e deposito, normalmente o que fazemos ......

Código:

                put unformatted
                    ttResumo.cod-estabel[contador] ';'
                    ttResumo.serie[contador] ';'
                    ttResumo.nr-nota-fis[contador] ';'
                    ttResumo.quantidade[contador] ';'.

Agora, pra ganhar performance, vc deve fazer assim ....

Código:

for each estabelecimento no-lock
    where estabelec.cod-estabel >= estabInicial
      and estabelec.cod-estabel <= estabFinal:

    for each deposito no-lock
        where deposito.cod-depos >= deposInicial
          and deposito.cod-depos <= deposFinal:
        for each  saldo-estoq no-lock
            where saldo-estoq.cod-estabel = estabelec.cod-estabel
              and saldo-estoq.cod-depos   = deposito.cod-depos:

        end.

    end.
end.

Mas o que acontece, dependendo do que vc precisa, não dá diferença, então eu faço do primeiro jeito, que é mais facil de pensar na logica do processo, então eu faço a coisa acontecer e depois eu altero para ver se ganho performance.

outro macete interessante é quando se trata de datas ......

Código:

for each movto-estoq no-lock
    where movto-estoq.dt-trans >= 01/01/2015
      and movto-esotq.dt-trans <= 01/31/2015:

end.

fica mais rapido se fizer ......

Código:

define variable dataTemp as date no-undo.

repeat dataTemp = 01/01/2015 to 01/31/2015:
    for each  movto-estoq no-lock
        where movto-estoq.dt-trans = dataTemp:
    end.

end.

Mas eu repito, isso não é regra geral, depende muito do contexto do que vc está fazendo.

Mas a minha idéia em relação ao topico do post é a questão de que um can-find, que só verifica se existe, sem retornar cache, buffer nem nada pode ser mais util do que sair direto em um for each, ou seja, vc só ir no for each na certeza de que vai encontrar o que precisa.

Pessoal, no meu exemplo o primeiro codigo colei errado

Código:

        for each  saldo-estoq no-lock
            where saldo-estoq.cod-estabel >= estabInicial
              and saldo-estoq.cod-estabel <= estabFinal
              and saldo-estoq.cod-depos   >= deposInicial
              and saldo-estoq.cod-depos   <= deposFinal:

        end.

Então, nos exemplos que citei, faltou colocar o can-find pra ficar melhor .... seguindo a logica do POST .....

Código:

for each estabelecimento no-lock
    where estabelec.cod-estabel >= estabInicial
      and estabelec.cod-estabel <= estabFinal:

    for each deposito no-lock
        where deposito.cod-depos >= deposInicial
          and deposito.cod-depos <= deposFinal:
        if can-find(first saldo-estoq where saldo-estoq.cod-estabel = estabelec.cod-estabel and saldo-estoq.cod-depos = deposito.cod-depos) then do:
            for each  saldo-estoq no-lock
                where saldo-estoq.cod-estabel = estabelec.cod-estabel
                  and saldo-estoq.cod-depos   = deposito.cod-depos:
            end.
        end.
    end.
end.

e ....

Código:

define variable dataTemp as date no-undo.

repeat dataTemp = 01/01/2015 to 01/31/2015:
    if can-find(first movto-estoq where movto-estoq.dt-trans = dataTemp) then do:
        for each  movto-estoq no-lock
            where movto-estoq.dt-trans = dataTemp:
        end.

    end.
end.