Sr. Antonio Linares

[Ruben]

BUEN DIA SABE ESTOY ATORADO CON ESTO 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(cVar,oGet)
EDEFINE SAY cVar PROMPT oGet 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

[MGA]

Amigo, não esta faltando setar o indice?

EX:
DBSETORDER(1)


Espero ter ajudado

[Antonio Linares]

Ruben,

Estas declarando una variable local, que no está inicializada:

local cClientes

y a continuación la intentas usar como alias. De ahí viene el error:

IF (cClientes)->(DBSEEK(aYDts))

cClientes debes hacerlo igual al alias que desees usar, por ejemplo:

local cClientes := "Clientes"

IF (cClientes)->(DBSEEK(aYDts))

[Ruben]

Gracias Antonio ya cambie eso y ya me deja ejecutar mi programa

Solo que ahora tecleo un num de cliente y se brinca al else

[Ruben]

Gracias Antonio ya funciona a la perfeccion

Gracias por la ayuda a todos los del foro