La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  65152 - VALIDACION DE DATOS
Autor:  Jose Gzz
Hola, necesito de su ayuda para validar la información de una base de datos en FOX PRO 2.6 , tengo una BD "hogares" en la que necesito validar que la informacion que se encuentra en los campos "CveM" (numerico) y "Nombre" (texto) este registrada en otra BD "catalogo" donde se encuentran los valores permitidos par esos campos, por lo que necesito que cada registro de la BD "hogares" sea validada contra la BD "catalogo" y en caso de no encontrarlo enviar un msj de "error".

De antemano muchas Gracias !!!
  Respuesta:  Carlos Quisay
Hola, te envio un prg para que lo corras y puedas validar la informacion
espero te sirva. 
close data

busco=0

nomb=space(40)

selec 1

use hogares

index on Cvem to indice

go top

do while not eof()

 busco=cvem

 nomb=alltrim(nombre)

 selec 2

 use catalogo

 go top

 locate for cvem=busco and alltrim(nombre)=nomb

 if not found()

   wait wind 'Registro no encontrado...' +nomb

 endif

 selec 1

 skip

enddo

close data