tanks JimB and Cetin but my performance degrade is not takes to create index but when i do a replace of a document of 2000 records.
this is my oper database:
* Usa archivio
USE (XDIR_AZI+"MOVART")
*
* Verifica indici
NE_ERRORE=-1
SET INDEX TO (XDIR_AZI+"MOVART1.CDX") ORDER 1
IF NE_ERRORE=1
USE (XDIR_AZI+"MOVART") EXCLUSIVE
IF FILE(XDIR_AZI+"MOVART1.IDX")
ERASE (XDIR_AZI+"MOVART1.IDX")
ENDIF
IF FILE(XDIR_AZI+"MOVART2.IDX")
ERASE (XDIR_AZI+"MOVART2.IDX")
ENDIF
USE (XDIR_AZI+"MOVART") EXCLUSIVE
DO PSINDEX WITH "O"

INDEX ON DTOS(MADMOV)+STR(MANMOV,5)+STR (MANRIG,3) TAG MOVART1 OF (XDIR_AZI+"MOVART1") FOR .NOT.DELETED()

INDEX ON MATMCOD+MAARCOD1+DTOS(MADMOV)+STR(MANMOV,5)+STR(MANRIG,3) TAG MOVART2 OF (XDIR_AZI+"MOVART1") FOR .NOT.EMPTY(MAARCOD1).AND..NOT.DELETED()

INDEX ON MATMCOD+MATCMTIP+MAARCOD1+DTOS(MADMOV)+STR(MANMOV,5)+STR(MANRIG,3) TAG MOVART3 OF (XDIR_AZI+"MOVART1") FOR .NOT.EMPTY(MAARCOD1).AND..NOT.DELETED()

*********
INDEX ON MATMCOD+MATCMTIP+MAARCOD1+DTOS(MADMOV)+STR(MANMOV,5)+STR(MANRIG,3) TAG MOVART4 OF (XDIR_AZI+"MOVART1") FOR .NOT.EMPTY(MAARCOD1).AND.MAQMOV#MALPREL ***!!!!!this is my modify***
*********


INDEX ON MATMCOD+MACFX+MACLI+DTOS(MADMOV)+STR(MANMOV,5)+STr(MANRIG,3) +MAARCOD1 TAG MOVART5 OF (XDIR_AZI+"MOVART1") FOR .NOT.EMPTY(MAARCOD1).AND..NOT.EMPTY(MACLI)
DO PSINDEX WITH "C"
USE (XDIR_AZI+"MOVART")
SET INDEX TO (XDIR_AZI+"MOVART1.CDX") ORDER 1
ENDIF
NE_ERRORE=0
*
* Fine
RETURN
the time of waiting is 3 minutes befor my modify is 1 minute

i hope my english help you to understand

Vincenzo Longobardi
Cisco Consulting Srl