Sistema muito lento

[PITERGALDIANO]

Boa tarde a todos

Pessoal tenho um sistema de caixa que trabalho com centro de custo... a estrutura é a seguinte:

DBF´s
FINANC.DBF
CUSTO.DBF

Os dois arquivos tem em comum um campo chamado chave que uso para fazer o relacionamento....

O problema é que quando mando somar o campo VALOR do DBF CUSTO.DBF o sistema fica muito lendo...

está ai o PRG:
-------------------------------------------------------------------------------
Sele afc
Index On afc->Chave To Indice1
Sele arqdcc
Index On arqdcc->chave To Indice2
Set Rela To arqdcc->chave Into afc
Sum arqdcc->Valor To nDppCc For ( afc->DataLiq == dDataCont )
-------------------------------------------------------------------------------

Obs.: afc->dataLiq é a data de liquidação no arquivo
dDataCont é a data fornecida pelo usuário para fazer o filtro de data


Me ajudem, está muito lento

Obrigado