FoxPro/Visual FoxPro - error con boton programar

buenas estoy comenzando en el mundo de visual foxpro y estoy programando un sistema para imprimir las planillas de pago de impuesto el problema se me da cuando programo el boton buscar, este es el codigo que estoy utilizando

select datos_calculo
set order to peri_impo
seek alltrim(thisform.peri_impo.value)
if eof()
messagebox("no existe registro")
else
thisform.mostrar
endif


pero asi cuando lo ejecuto meda el siguiente error

PROGRAM ERROR
Functuin argument value or count is invalid

y el error me lo refleja en la linea de seek alltrim, si anulo esa linea solo me muestra el primer registro de la tabla. si peden ayudarme se lo agradeceria.

Y ya intentaste con la funcion "Locate for"

Ejemplo:

select datos_calculo
set order to peri_impo
Locate for peri_impo = alltrim(thisform.peri_impo.value)
if found() then
Thisform.mostrar
else
messagebox("No existe registro, intente de nuevo",0+48,"Buscar")
return 0
endif


Suerte►

Neo ya lo probe no me da el error pero no me muestra ningun dato se va directamente a no se encontro registro porque sera eso disculpen el fastidio pero es que estoy comenzando en el mundo de la programacion

me puedes enviar una imagen del error que te muestra vfp?? a mi email??

Suerte►

pone antes del seek un SUSPEND y cuando se interrumpa fijate con el debug el valor del campo y el del value.

no hace nada cuando le coloco el suspend ninguno de los botones funciona

el suspend lo que hace es suspender la ejecucion del programa para que puedas ver con el DEBUG cual es el valor del VALUE (en tu caso).
Antes de ejecutar el programa
1. anda a Herramientas y luego a Depurador ( Debug), minimizalo ( te queda en la barra de tareas de window)

2.ejecuta el programa

3. cuando el programa llegue al suspend abri el DEBUG y verifica los valores.

cual es tu correo porque lo envio a ese y no me da respuesta

ya me enviaste la imagen o algun ejemplo??

si ya te lo envie

Hola,

Una pregunta
¿Qué tipo de dato es el campo o índice << peri_impo>>..?

Si la respuesta es (Numérico)
ENTONCES quítale el alltrim()
y que quede así:

********************
select datos_calculo
set order to peri_impo
if seek(thisform.peri_impo.value)
thisform.mostrar
else
messagebox("no existe registro")
endif
***********************************************

Espero te ayude.

SUERTE.

G.S.

NO ES UN CAMPO DATE PORQUE TENGO QUE BUSCARLO POR LA FECHA DE EMISION PARA PODER HACER EL CUADRE

Si es un campo fecha no le puedes poner un alltrim()......

has intentado con lo que te he enviado???...

GABRIEL NO HACE NADA AL PULSAR BUSCAR SE QUEDA EN BLANCO TODOS LOS TXTBOX NO MUSTRA NADA

no lo pude bajar.....está muy pesado??

Mejor envialo como .bmp, jpg

pero ya no te sale el error:

¿Puedes enviar tu código?:

o tu form:
Bueno primero decias qu emitia un error.

Me imagino que eso ya no sucede.

Si la respuesta es (date)
ENTONCES quítale el alltrim()
y que quede así:

********************
select datos_calculo
set order to peri_impo
if seek(thisform.peri_impo.value)
thisform.mostrar
else
messagebox("no existe registro")
endif
***********************************************

Espero te ayude.

SUERTE.

G.S.