SORT usando Leto

[coucello]

Bom dia senhores,
Estamos tentando fazer a migração para uso de LETO porém estamos tendo erro de integridade ao usar uma rotina com SORT em uma base de dados. Já pesquisamos sobre eventual histórico dessa situação mas não encontramos nenhuma referência. Abaixo trecho da rotina. Alguma sugestão ?

cRDD := RDDSetDefault() // Guarda a forma de acesso ao DBF
RDDSetDefault("DBFCDX") // Define acesso via DBFCDX

vArqTemp := 'C:\TEMP\SQL'+NFeRandomico()
ALTF1 := .F.
do case
case TPLCTO == 'D'
sort on CONTA to (vArqTemp) for TIPOLANC == 'D'

case TPLCTO == 'C'
sort on CONTA to (vArqTemp) for TIPOLANC == 'C'

otherwise
sort on CONTA to (vArqTemp)
endcase
use (vArqTemp) alias SQLPLANO new exclusive // VIA "DBFCDX"

RDDSetDefault(cRDD) // Restaura forma de acesso pr‚via

index on CONTA tag A to (vArqTemp)
index on upper(DESCRICAO) tag B to (vArqTemp)
set order to 1
go top

[sygecom]

Já viu que o LETODB tem uma FUNCTION letoSort(), tentou substituir para ver se resolve?