Error DBCMD/2001 Workarea not in use: DBSEEK

[Ruben]

BUEN DIA TENGAN TODOS LOS DEL FORO, ESTOY ATORADO CON ESTO QUIZAS A ALGUIEN LE HA SUCEDIDO....

PORFA ORIENTENME


CUANDO TENGO ESTE TIPO DE ERROR QUE ES LO QUE TENGO QUE HACER

Path and name: C:\APLICACIONES\CXC\cxc.Exe (32 bits)
Size: 1,499,648 bytes
Time from start: 0 hours 0 mins 14 secs
Error occurred at: 07/03/08, 10:30:32
Error description: Error DBCMD/2001 Workarea not in use: DBSEEK

Stack Calls
===========
Called from: => DBSEEK(0)
Called from: cap_doc.prg => TRAE_CLIENTE(135)
Called from: cap_doc.prg => (b)DOC_CAP(99)
Called from: TGET.PRG => TGET:LVALID(0)
Called from: CONTROL.PRG => TGET:FWLOSTFOCUS(0)
Called from: CONTROL.PRG => TGET:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => SYSREFRESH(0)
Called from: CONTROL.PRG => TCONTROL:KEYCHAR(0)
Called from: TGET.PRG => TGET:KEYCHAR(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TGET:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: cap_doc.prg => DOC_CAP(117)
Called from: cap_doc.prg => (b)CAP_DOC(61)
Called from: BUTTON.PRG => TBUTTON:CLICK(0)
Called from: CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: cap_doc.prg => CAP_DOC(71)
Called from: cxc.prg => (b)CREAMENU(65)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: cxc.prg => MAIN(49)

TENGO UNA CAPTURA DE DOCUMENTOS DESDE UN DLG EN EL CUAL TENGO UN CAMPO QUE SE LLAMA CLAVE Y ES DE CLIENTES, CUANDO EL USUARIO INTRODUCE LA CLAVE EN EL OTRO EDITBOX ME TIENE QUE APARECER EL NOMBRE. PERO ME MANDA ESTE ERROR.

ESTE ES EL GET Y EL SAY

REDEFINE get aYDts[4] ID 104 OF oDlg1 PICTURE "9999" WHEN NwMod valid TRAE_CLIENTE(aYDts[4],oGet)
REDEFINE SAY oget PROMPT cNombre id 105 OF oDlg1


Y ESTA ES MI FUNCION

FUNCTION Trae_Cliente(cNombre,oGet)
local cClientes
IF (cClientes)->(DBSEEK(aYDts))
cNomCli := (cClientes)->NOMBRE
oGet:Refresh()
RETURN(.T.)
ELSE
MsgInfo("Cliente no registrado")

RETURN(.F.)

ENDIF

return nil

[karinha]

SELECT CLIENTES

CLIENTES :- ALIAS()

[Ruben]

ok Karinha lo provare

Gracias

[sysctrl2]

Ruben lo que observo es :

que estas buscando una variable que no es compatible con el campo,

la variable aYdts[4] es un objeto

REDEFINE get aYDts[4] ID 104 OF oDlg1 PICTURE "9999" WHEN NwMod valid TRAE_CLIENTE(aYDts[4],oGet)
REDEFINE SAY oget PROMPT cNombre id 105 OF oDlg1


REDEFINE GET oGet VAR cVar valid trae_cliente( cVar, oGet )



FUNCTION Trae_Cliente(cVar,oGet)
local cClientes
IF (cClientes)->(DBSEEK(cVar))
cNomCli := (cClientes)->NOMBRE
oGet:Refresh()
RETURN(.T.)
ELSE
MsgInfo("Cliente no registrado")

RETURN(.F.)



saludos ..

[Ruben]

ME SIGUE MARCANDO EL MISMO ERROR

EN EL DBSEEK

Error description: Error DBCMD/2001 Workarea not in use: DBSEEK

[RenOmaS]

Code: Select all

FUNCTION Trae_Cliente(cVar,oGet) 
local cClientes 

pues como ves cClientes es local , y en ese momento es NIL

por lo cual no lo puedes utilizar como referencia a un alias.

Salu2

[Patricio Avalos Aguirre]

El problema esta

Code: Select all

local cClientes
IF (cClientes)->(DBSEEK(cVar))

la variable ccliente es NIL


cCliente debe tener un alias Válido