SELE &NUM_AREA
USE &VARQUIVO EXCLUSIVE
*----- metodo direto ------ __dbsort(arq2,{ordem},NIL,NIL,NIL,NIL,.f.)
DBSORT(ARQ_SORT,ORIG_SORT,NIL,NIL,NIL,NIL,.f.)
* INDEX ON &CAMPO_CDX TO &ARQ_CDX
* USE &VARQUIVO INDEX &ARQ_CDX EXCLUSIVE
* COPY TO &ARQ_SORT
*__________
use
ERASE(VARQUIVO)
*---------
RENAME &ARQ_SORT TO &VARQUIVO
*---------
== NA PARTE DE CIMA A FUNCAO DBSORT
ELA EM CLIP53 E BEM RAPIDA, VARIAS VEZES TESTADAS
JA NO XHARBOUR E LENTA PORQUE
---- TESTADO COM MESMO ARQUIVO DE MOVIMENTO GRANDE ---
PRECISO DE ALGUMA DICA ??
