Dudas y problemas con :bEditValid

[Armando]

Amigos:

Tengo dudas con un xBrowse y FastEdit y no se como resolverlas, me explico

Utilizo MySql, El xBrowse contiene solo una columna, el contenido de dicha columna es
un código postal y es llave de mi tabla

Code: Select all  Expand view  RUN

:bPastEof   := {|| Agregar(oBrw)}            <= Se agrega un registro e blanco y espera lo que teclee el usuario

:bEditValid := { | oGet, oCol | Validar(oBrw,oGet:VarGet()) }
 

En la funcion Validar(), puede devolver (.T.) o (.F.) dependiendo del resultado de la
validación, si el resultado de la validación es (.T.) no tengo problema, pero cuando
el resultado es (.F.) digamos porque el código postal que el usuario teclea ya exista
en la tabla, el registro recién agregado se queda en blanco y si el usuario avanza mas
allá del final del Browse, se vuelve a agregar un registro en blanco con el consabido
error de llave duplicada, como puedo evitarlo?

Espero haberme explicado para contar con su apoyo

Gracias

[cmsoft]

Puedes controlarlo en la funcion Agregar haciendo el control de que no haya ya agregado un registro en blanco

Code: Select all  Expand view  RUN

************************************************************
** Agregar un familiar a la lista
STATIC FUNCTION Agregar(oBrw)
LOCAL lRta, oError, base
IF oApp:oServer:Query("SELECT codigopostal FROM mitabla WHERE codigopostal = ' ' "):RecCount() > 0
   RETURN nil
ENDIF
lRta := MsgNoYes("Desea agregar ...?","Atencion")
IF lRta
....
 

Otra alternativa es haces un INSERT IGNORE en tu tabla, cosa de que ignore el insert si el codigo existe
Mira si te sirve...

[Armando]

Hola César:

Muchas gracias voy a tirar por el INSERT IGNORE.

Saludos

[FranciscoA]

Hola Armando.
Esto es para DBF, pero creo que la misma logica te servirá traduciendola a MySql:
//Agregar 1 registro si el campo fecha de linea anterior no está vacío

Code: Select all  Expand view  RUN

 WITH OBJECT oBrw
   :bPastEof  := { || if( !Empty(oBrw:Fecha:Value)  ,;
                        ( (oBrw:cAlias)->(DbAppend()) ,;
                          oBrw:GoLeftMost() ,;
                          oBrw:Refresh() ), )}  
END

Saludos.

[Armando]

Francisco:

Muchas gracias por el aporte, lo voy a intentar.

Saludos