Clipper/FiveWin - Get con On Change

 
Vista:

Get con On Change

Publicado por Ingrid Lauria (48 intervenciones) el 04/05/2006 18:58:16
Estoy usando un get en donde pongo el numero de cliente y quiero que al lado aparezca el nombre, este es el get y la funcion:

@ 1,1 get Num size 60,12 right on change Nombre (Num)

function Numero(Num)
local Inex:="INCORRECTO"
seek Num
if found()
@ 2,1 get Clientes->Nombre when .f.
else
@ 2,1 get Inex when .f.
retu nil

El problema que tengo es que cuando pongo un numero nuevo aparece el nombre del cliente que estaba antes.
Donde està el error?
Gracias a los que me respondan.
Ingrid
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Get con On Change

Publicado por Miguel (7 intervenciones) el 04/05/2006 21:39:19
Ya viste que tienes get en lugar de say....

prueba asi

function nombre(nNum)
Local lRet := .t
if alias->(dbseek(nNum))
@ 2,1 say alias->nombre
else
@ 2,1 say "inexistente"
lRet := .f.
endif
return lRet
// supongo que tienes activo el indice adecuado
// se me hace raro que busques con un campo numerico, funcionan mejor en tipo character, pero bueno...........

espero te sirva....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Get con On Change

Publicado por ingrid (48 intervenciones) el 04/05/2006 21:45:09
te agradezco muchisimo por tu tiempo en responderme, pero mi problema no està en la busqueda, sino en que no refresca el get .
Gracias igual.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Get con On Change

Publicado por lorenzo (180 intervenciones) el 05/05/2006 09:38:49
Yo cambiaria On Change por Valid(), es decir

...
nomcli:='' ; codigo:=0
define dialog odlg resource 'cliente'
redefine say onomcli prompt nomcli id 100 of odlg
redefine get ocodigo var codigo id 101 of odlg picture '999999' valid(buscar())
....
activate dialog odlg center

funct buscar()
seek Num
if found()
nomcli=Clientes->Nombre
onomcli:refresh() && con esto refresca el nombre
else
nomcli='NO EXISTE EL CLIENTE'
onomcli:refresh() && con esto refresca el nombre
return .f.
endif
retu .t.

Espero te oriente algo
Un saludo.
LORENZO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Get con On Change

Publicado por Ingrid Lauria (48 intervenciones) el 05/05/2006 15:21:19
GRACIAS!!!!!!!!!
CON VALID FUNCIONÓ CORRECTAMENTE.
INGRID
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar