Error ilógico al indexar.

[fernandomoralesdr]

Hola.

Este es el código:
1 use usuarios new
2 oMeter:nTotal := USUARIOS->( lastrec() )
3 oSay:SetText( "Indexando USUARIOS..." )
4 oSay:Refresh()

5 index on CODIGO tag CODIGO for ! deleted()
6 index on upper( NOMBRE ) tag NOMBRE for ! deleted()
7 close

Estoy teniendo un error aparentemente "ilógico" al intentar indexar este archivo, concretamente cuando va a ejecutar la linea 5 arroja este mensaje:

Application
===========
Path and name: C:\FWH\TRABAJO\TRANSPOR\MENU.exe (32 bits)
Size: 3,307,520 bytes
Time from start: 0 hours 0 mins 17 secs
Error occurred at: 06/05/2010, 11:28:37
Error description: Error DBCMD/2001 Workarea not in use: ORDCREATE

Primero: no hay ningún otro archivo abierto.
Segundo: se supone que si el área de trabajo no está en uso debería abortar en la línea 2 y no en la 5.

Este programa se encarga de indexar todos los archivos de la aplicación y el funcionamiento para cada uno de ellos es idéntico, así que antes de llegar aquí ha procesado un montón de archivos más sin problemas.
Si el programa lo llevo a Fivewin para Clipper ya perfectamente y usando los mismos datos.

Tengo otro programa que indexa los archivos según selección del usuario y con este en concreto no da error, siendo el código idéntico.

¿Alguna explicación al respecto?

Gracias y un saludo,
Fernando Morales

[joseluisysturiz]

Saludos, prueba asi, nose..digo..solo que pegue el ! de la palabra deleted()

index on CODIGO tag CODIGO for !deleted()

[karinha]

Code: Select all  Expand view

#Include "FiveWin.Ch"

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

function Main()

   RDDSETDEFAULT( "DBFCDX" )

   USE USUARIOS

   IF .NOT. FILE( "USUARIOS.DBF" )
      ? [Sin usuarios...]
      QUIT
   ENDIF

   MsgMeter( { | oMeter, oText, oDlg, lEnd | ;
             BuildIndex( oMeter, oText, oDlg, @lEnd ) },;
             "Indexando USUARIOS..." )

   USE

return nil

//----------------------------------------------------------------------------//

function BuildIndex( oMeter, oText, oDlg, lEnd )

   FIELD CODIGO, NOMBRE

   oMeter:nTotal = RecCount()

   INDEX ON CODIGO TAG CODIGO TO USUARIOS ;
         EVAL ( oMeter:Set( RecNo() ), SysRefresh(), ! lEnd )

   INDEX ON UPPER(NOMBRE) TAG NOMBRE TO USUARIOS ;
         EVAL ( oMeter:Set( RecNo() ), SysRefresh(), ! lEnd )

   SET ORDER TO 01

   GO TOP

   BROWSE()

return nil

//----------------------------------------------------------------------------//