Hola José
En primer lugar gracias por tu respuesta
Entiendo tu logica en el primer caso evento OnChange.
En el segundo caso OnExit, a mi entender es que llego a la misma conclusion
que se es util ::lModify
esto es lo que yo quiero hacer
El control es un TDBDateEdit
METHOD NifExit( oSender, oNextCtl ) CLASS FrmEditPer_
If ::oNif:lModify == .T.
::oNif:Value := letradni(::oNif:Value)
If Appdata:oServer:QueryValue("SELECT count(*) FROM per_" + ;
" WHERE nif='" + ::oNif:Value+"'") <> 0
MsgInfo("El numero de NIF introducido ya Existe, por favor
verifiquelo.")
::oNif:lModify := .F.
Return .F.
EndIf
EndIf
Return .T.
Por eso creo que existe algun problema con esa propieda
Gracias
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escribió
en el mensaje news:[email=4b03f1da@svctag-j7w3v3j....]4b03f1da@svctag-j7w3v3j....[/email]
> Saludos:
>
> Puede que este equivocado, pero prefiero responderte que te quedes sin
> respuesta, y así si estoy equivocado saldremos de dudas los dos.
>
> Juan Jose escribió:
>> Hola a todos
>>
>> estoy probando un tdbedit, y encuentro que no actualiza en el OnChange la
>> propieda lModify cuando cambias el valos a mano o por el calendario, es
>> eso normal
>
> OnChange es un evento que se dispara cuando se produce un cambio en el
> valor del control, por lo tanto no creo que se tenga que evaluar la
> propiedad lModify, porque si se dispara es que ha habido una modificación.
>
> Por el contrario OnExit es un evento que se dispara cuando se sale del
> control que tiene asignado dicho evento, pudiendo decir a que control ira
> o si no contiene los valores que nosotros queremos podremos hacer que no
> se salga y continúe, hasta que el valor sea el adecuado, por lo tanto si
> que tiene lógica dicha propiedad que nos puede hacer comprobar si en el
> control se han producido modificaciones.
>
>>
>> Gracias
>>
>>
>
> José Ramón Castro
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 4617 (20091118) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
>
http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4617 (20091118) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com