Codigo mas conveniente para botones para touch validando numeros
El textbox y los botones estan en el mismo formulario... En el textbox en lostfocus tengo el siguiente codigo:
SET ESCAPE OFF
*SET DEFAULT TO C:\VSEEK\
USE Demages ORDER pin
SEEK(thisform.ppin.value)
IF FOUND()
thisform.pPin.Value=Demages.Pin
thisform.text1.value=Demages.Marca
thisform.text2.Value=Demages.Modelo
thisform.text3.Value=Demages.Colr
thisform.text4.Value=Demages.Zona
thisform.text5.Value=Demages.Alarm
thisform.Edit1.Value=Demages.Observan
thisform.text6.Value=Demages.horain
WAIT WINDOW AT 30,75 "LO ENCONTRE" TIMEOUT 1
ELSE
Messagebox("EL REGISTRO NO EXISTE", 64," VALETSEEK>>>>>>>ERROR ")
Thisform. Release
ENDIF
Y en lo botones de numero tengo:algo como esto Thisform.ppin.Value=alltrim(thisform.ppin.value)+"1" solo que para el boton para escribir 2 el +"1" cambia a +"2" y asi sucesivamente... Al digitar desde mi teclado por ejemplo el registro 11 me da como resultado todo el registro perfectamente pero al hacerlo desde los botones me aparece de una vez "EL REGISTRO NO EXISTE" en texbox builder tengo input mask=99 y marcado enable at run time y hide selection no entiendo lo que pasa