Xailer & OZ Software

cPicture := "9999"
lZeroFill := .T.
en el evento OnExit tengo este codigo pero la propieda lModifi no se pone a
verdadero la primera vez que entrar, la segunda y sucesivas si esta a
verdadero
METHOD controlExit( oSender, oNextCtl ) CLASS FrmEdit
Local cValor := Nil
LogDebug(" oSender:lModify ->", oSender:lModify)
LogDebug(" oSender:Value ->", oSender:Value)
If oSender:lModify = .T. .and. !Empty(oSender:Value)
If (cValor := Appdata:oServer:QueryValue("SELECT regimen FROM
regimen WHERE codigo='"+oSender:Value+"'")) # Nil
LogDebug(" Valor->", cValor)
Else
MsgInfo("No existe, Por favor verifiquelo.")
Return .F.
EndIf
EndIf
RETURN Nil
Un saludo a todos
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4316 (20090807) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com