   INDEX ON VAL(Field->FERRACOD) TAG FERRACOD TO CADTPFER           ;
         FOR !DELETED()                                             ;
         EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
         EVERY 10

   INDEX ON Field->FERRANOME TAG FERRANOME TO CADTPFER              ;
         FOR !DELETED()                                             ;
         EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
         EVERY 10
