[RESOLVIDO] [RESOLVIDO] - Lentidao For each

Galera bom dia,
estou com um programa específico para fazer manutençao, porem o for each está muito grande.
E com isso o processamento acaba perdendo a performace.

Gostaria de alguma idéia:
segue o código.


FOR EACH pedido-compr NO-LOCK USE-INDEX data-pedido
WHERE pedido-compr.data-pedido >= dt-emissaop_ini
AND pedido-compr.data-pedido <= dt-emissaop_fim
AND pedido-compr.num-pedido >= i-pedido_ini
AND pedido-compr.num-pedido <= i-pedido_fim,
EACH ordem-compra NO-LOCK USE-INDEX pedido
WHERE ordem-compra.num-pedido = pedido-compr.num-pedido
AND ordem-compra.cod-estabel >= c-estabelecimento_ini
AND ordem-compra.cod-estabel <= c-estabelecimento_fim
AND ordem-compra.data-emissao >= dt-emissaoo_ini
AND ordem-compra.data-emissao <= dt-emissaoo_fim
AND ordem-compra.requisitante >= c-requisitante_ini
AND ordem-compra.requisitante <= c-requisitante_fim
AND ordem-compra.numero-ordem >= i-ordem_ini
AND ordem-compra.numero-ordem <= i-ordem_fim
/*AND ordem-compra.cod-comprado >= c-comprador_ini
AND ordem-compra.cod-comprado <= c-comprador_fim */
AND ordem-compra.it-codigo >= c-item_ini
AND ordem-compra.it-codigo <= c-item_fim
AND (ordem-compra.situacao = i-confirmadas
OR ordem-compra.situacao = i-nao_confirmadas
OR ordem-compra.situacao = i-cotadas
OR ordem-compra.situacao = i-emcotacao
OR ordem-compra.situacao = i-recebidas) ,
EACH emitente NO-LOCK
WHERE emitente.cod-emitente = ordem-compra.cod-emitente
AND emitente.nome-abrev >= c-nome_abreviado_ini
AND emitente.nome-abrev <= c-nome_abreviado_fim,
EACH prazo-compra NO-LOCK USE-INDEX ordem
WHERE prazo-compra.numero-ordem = ordem-compra.numero-ordem
AND prazo-compra.data-entrega >= dt-entrega_ini
AND prazo-compra.data-entrega <= dt-entrega_fim,
EACH item NO-LOCK
WHERE item.it-codigo = ordem-compra.it-codigo
AND ITEM.fm-codigo >= c-familia_ini
AND ITEM.fm-codigo <= c-familia_fim
AND item.ge-codigo >= tt-param.i-grupo-ini
AND item.ge-codigo <= tt-param.i-grupo-fim,
each doc-pend-aprov USE-INDEX doc-pend-aprov-9 no-lock
where doc-pend-aprov.ind-tip-doc >= 4
AND doc-pend-aprov.ind-tip-doc <= 6
AND doc-pend-aprov.num-pedido = pedido-compr.num-pedido
AND doc-pend-aprov.cod-aprov >= c-aprovador_ini
AND doc-pend-aprov.cod-aprov <= c-aprovador_fim
BY pedido-compr.num-pedido:

Segue os Indices:
Tab: pedido-compra
data-pedido 9 2 + data-pedido
+ num-pedido
Tab: prazo-compra
pu ordem 9 2 + numero-ordem
+ parcela

Tab: ordem-compra:
pedido 9 2 + num-pedido
+ numero-ordem

Tab: doc-pend-aprov
doc-pend-aprov-9 11 3 + ind-tip-doc
+ num-pedido
+ cod-aprov

Alguns detalhes: o uso do >= <=, modifique a lógica e use > < no lugar. O uso de OR com use-index, evita qualquer otimização de query que por ventura o Progress faria.

Aconselho você a fazer for each apenas com campos indexados

os outros campos utilizar case ou if para filtrar.

fica bem mais rápido.

Nooooooooooossa!!!!
Era isso mesmo!
Eduardo ficou fera!

Ficou rapidão hem!

Obrigado pela dica.

Forte abraço!