hola que tal cuando digitas el codigo, y presionas enter lo primero que se dispara es el valid del text donde estas digitando el codigo. procura que los codigos tengas el ancho de campo asi no te das problemas cuando hace busquedas, o usa alltrim
x ejempll
en el valid del text de la columna donde stas ubicads. podes acer esto
if !empty(this.value)
local XCOD as caracter
XCOD= alltrim(this.value) &&&&& alltrim opcional en mi caso casi nunca lo uso ya que los codigos siempre los limito que sean igual de ancho q el campo y formato mascara de entrada etc esto lo encontra en propiedades del text pestaña datos o data si esta en ingles tu fox.
select codigo, descripcion,existencia, punit,costo ;
from bodstock;
WHERE ALLTRIM(CODIGO)=XCOD into cursor tmpCOD
IF _TALLY > 0 &&&&si la consultaa salio exitosa pues es mayor q cero.
=MESSAGEBOX("Codigo de producto no existe, intente de nuevo",0+16,"Advertencia")
RETURN
ENDIF
endif
este es un ejemplo sencillo
lo puse asi ya que tu programacion la haces en base a consulta, no utilizas seek es para tablas indexadas en foxpro. o cursores readwrite.
Pero como dice mi amigo Plinio Postea el codigo.
saludes
Douglas
