Work Area Not indexed

[johnlinares]

Antonio
I have this error and I can't figure it out
Workarea not indexed
stack calls:
DBSEEK(0)
ART_DESCR(51)
(b)MAIN(30)
TGET:LVALID(0)
TGET:FWLOSTFOCUS(0)
TGET:HANDLEEVENT(0)
_FWPPC(0)
WINRUN(0)
TWINDOW:ACTIVATE(0)
MAIN(45)
__________________
this is the source code
// FiveWin for Pocket PC - Testing browses

#include "FWCE.ch"

//REQUEST DBFCDX

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

function Main()

local oWnd
LOCAL cArt,nExi:=0,cAlm
LOCAL cDir := CurDir()

USE ( cDir + "\ARTICUL" ) NEW
IF ! File( cDir + "\ARTICUL.NTX" )
INDEX ON ARTICUL->CARTCOD TO ( cDir + "\ARTICUL" )
endif

articul->( OrdSetFocus( cDir+"\ARTICUL" ) )
articul->( DbGoTop() )


cArt := Space(Len(ARTICUL->CARTCOD))

DEFINE WINDOW oWnd TITLE "Inventario Fisico"

@ 2, 1 SAY "Articulo:" SIZE 70, 20

@ 2, 12 GET cArt SIZE 70, 20 VALID Art_Descr(cArt)

@ 8, 1 SAY "Existencia:" SIZE 70, 20

@ 8, 12 GET nExi SIZE 70, 20



@ 12, 1 BUTTON "Ajustar" SIZE 80, 30 ;
ACTION ExiAjusta(cArt,nExi)


@ 12, 37 BUTTON "Done" SIZE 80, 30 ;
ACTION oWnd:End()

ACTIVATE WINDOW oWnd

return nil

FUNCTION Art_Descr(cArt)

IF !ARTICUL->(DbSeek(cArt))
RETURN .T.
END

@ 3,1 SAY ARTICUL->CARTDES SIZE 140, 20
@ 5,1 SAY Transform(0,"999,999")SIZE 100, 20
RETURN .T.

PROCEDURE ExiAjusta(cArt,nExi)
IF !ARTICUL->(DbSeek(cArt)) .OR. Empty(cArt)
MsgInfo("Articulo no existe")
END

Art_Descr()
JpSvrSend("IF",cArt,nExi)

RETURN

PROCEDURE JpSvrSend(cMod,cArt,nExi)
msgInfo("INFO SENT TO SERVER")
RETURN
*************************
What's wrong? I can't go on.
help please

[Richard Chidiak]

John

try set index to ( cDir + "\ARTICUL" )

HTH

Richard

[johnlinares]

John

try set index to ( cDir + "\ARTICUL" )

HTH

Richard

Yes, I am on.
Thanks Richard