
Yo lo implementé de esta forma, de seguro hay otros métodos mas fáciles
Creas un formulario
En el click de cada botón del pad numérico
DO CASE
CASE POSIDECI = 1
efectivo = VAL(ALLTRIM(STR(efectivo)) + "1") && cada boton con su respectivo numero 2,3,4,5,6,7,8,9,0
CASE POSIDECI = 2
POSIDECI = 3
efectivo = VAL(ALLTRIM(STR(efectivo)) + ".1")
CASE POSIDECI = 3
POSIDECI = 4
efectivo = efectivo + 0.01
*******CALCULANDO*******
CAMBIO=0
IF CAMBIO >= 0
THISFORM.IMPRIMIR.ENABLED=.T.
THISFORM.IMPRIMIR.SETFOCUS
ENDIF
THISFORM.REFRESH
ENDCASE
THISFORM.REFRESH
Posideci indica si es decimal o entero y si ya pulsaste el primer numero decimal.
Este funciona solo para un textbox (efectivo) pero puedes hacerlo para varios e indicarle en cual textbox deseas ingresar los numeros, espero no haberte confundido y que te ayude de algo. Saludos