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

    Pregunta:  66224 - AYUDA EN CONTROL DE DUPLICADOS DE REGISTROS
Autor:  Victor Hugo Cuellar
Hola... necesito por favor una manito en un problema que se me presento en un modulo de captura de informacion...
Al intentar crear un nuevo registro necesito validarlo para saber si existe y si es asi me notifique... de lo contrario me deje crearlo...
A continuacion les muestro el codigo que me recomendaron pero no me funciona...

IF .NOT. SEEK(STR(this.value, 12), 'ccnit', 'nitlla')
INSERT INTO ccnit (nitlla, nitdes, cedula) VALUES (this.value, 'nuevo tercero', 0)
ENDIF
thisform.release

este codigo esta en el procedimiento lostfocus del campo de captura llamado txCod

De ante mano les agradesco
  Respuesta:  Jose Maria Vilar
1.- Si le estableciste una clave 

     sele archivo

    set order to   clave

    if seek( clave)

       =message("ya existe este registro")  como quieras

    else

      insert ........

     o appe blank

        replace .....

        replace ....                de la forma que quieras usar

   endif


2.- Si no le estableciste una clave 

     sele archivo

     locate for ...... == ........

     if found()

       =message("ya existe este registro")  como quieras

     else

      insert ........

     o appe blank

        replace .....

        replace ....                de la forma que quieras usar

   endif



Espero habertelo explicado bien, cualquier cosa me avisas