FoxPro/Visual FoxPro - INGRESO DE DATOS A DB

que alguien me ayude porfavor, mi problema es que estoy haciendo un ingreso nuevo a una tabla pero antes valido que el codigo no exista para no duplicar mi problema es que cuando no existe me blanqueo todos los campos y no me deja ingresar nada proque como que va al final del registro y no permite ingresar adjunto el fuente paara que me digan que hacer !! gracias.. desde Guatemala

IF this.value <=0 then
WAIT WINDOW 'Debe de ingresar el codigo de empresa por favor'
RETURN .F.
ENDIF

SELECT 1
SEEK this.value
IF EOF() THEN
WAIT WINDOW 'Codigo de empresa no existe' NOWAIT
ELSE
wait window 'Codigo existe' NOWAIT
SET FILTER TO estatus ='V'

ENDIF

Hola David:

En el codigo que mandas encontre algunos problemas que se solucionarian asi:

IF THIS.VALUE <=0 then
WAIT WINDOW 'Debe de ingresar el codigo de empresa por favor'
RETURN .F.
ENDIF

SELECT 1
MIREGISTRO = RECNO()
SET ORDER TO CODIGO && Para asegurarme que estoy parado en el order que corresponde
SEEK THIS.VALUE

* Lo que sigue a continuacion esta mal expresado porque un seek no necesita un control
* de EOF() como el LOCATE, por lo que yo lo dejaria así:

IF !FOUND()
WAIT WINDOW 'Codigo de empresa no existe' NOWAIT
GO MIREGISTRO
ELSE
WAIT WINDOW 'Codigo existe' NOWAIT
SET FILTER TO estatus ='V' && Esto no se porque lo haces pero supongo que estaria
*bien, aunque de ser asi tambien tendria que tener su par en el !FOUND()
ENDIF

* Otra opcion para el IF seria esta:

IF SEEK(THIS.VALUE)
WAIT WINDOW 'Codigo existe' NOWAIT
SET FILTER TO estatus ='V'
ELSE
WAIT WINDOW 'Codigo de empresa no existe' NOWAIT
SET FILTER TO
GO MIREGISTRO
ENDIF

Probalo y si seguis con problemas mandame un mail que te doy una mano.

Saludos desde Argentina!!!

hola quiro sader a cerca de programas en visual foxpro de ingreso y modificado

hola quiro sader a cerca de programas en visual foxpro de ingreso y modificado

hola quiro sader a cerca de programas en visual foxpro de ingreso y modificado

hola quiro sader a cerca de programas en visual foxpro de ingreso y modificado

hola quiro sader a cerca de programas en visual foxpro de ingreso y modificado