Uso de Modified y nueva versión 1.1

[jrcpoli]

Saludos:
Tengo un formulario hijo para modificaciones y editar ciertos
registros, lo que quiero detectar es que si se han realizado
modificaciones en algunos de los campos de ese formulario y si se pulsa
la tecla que contenga mrCLOSE me pregunte si quiero salir sin guardarlas
o por el contrario no cierre el formulario y le dé la oportunidad al
operador de pulsar mrOK para guardar los cambios, he utilizado este
código en el botón "CERRAR".
METHOD BTCancelClick( oSender ) CLASS TFormIndiviEdit
LOCAL lCorrecto := Nil
WITH OBJECT ::oParent:oDbfIndividual
IF :lOnEdit
*
lCorrecto := .T.
*
IF :Modified
IF MsgNoYes("Has modificado algún campo sin guardarlo" +
CHR(13) +;
"Si deseas guardarlo pulsa NO y luego Recalcular" +
CHR(13) + ;
"Si no deseas guardarlo pulsa SI" + CHR(13) + CHR(13) +;
"¿No deseas guardar los cambios y
cerrar.?",AppData:gCaption)
*
lCorrecto := .F.
*
ENDIF
ENDIF
*
IF lCorrecto
:Cancel()
ENDIF
*
ELSE
*
lCorrecto := Nil
*
ENDIF
END
*
RETURN lCorrecto
El método lOnEdit funciona perfecto pero Modified no hace nada seguro
que es que no lo empleo correctamente por eso de mi pregunta.
PD. No he actualizado por lo tanto estoy trabajando con la 1.0b
Segunda cuestión como he visto que han surgido algunas correcciones cosa
por otra parte normal, y que a todos nos ocurre cuando lanzamos algo
nuevo, podí­ais poner un resumen cuando lo tengáis claro de los ficheros
que hay que incluir en la librerí­a Xailer en sustitución de los otros o
mandar una nueva librerí­a con los ficheros incorporados.
Gracias.
José Ramón Castro.

[jfgimenez]

José Ramón,
> El método lOnEdit funciona perfecto pero Modified no hace nada seguro que
> es que no lo empleo correctamente por eso de mi pregunta.
>
> PD. No he actualizado por lo tanto estoy trabajando con la 1.0b
Precísamente esto se ha modificado en esta versión.
> Segunda cuestión como he visto que han surgido algunas correcciones cosa
> por otra parte normal, y que a todos nos ocurre cuando lanzamos algo
> nuevo, podíais poner un resumen cuando lo tengáis claro de los ficheros
> que hay que incluir en la librería Xailer en sustitución de los otros o
> mandar una nueva librería con los ficheros incorporados.
Vamos a dejar pasar unos días por si salen más bugs, y entonces sacaremos la
versión 1.1a
--
Un saludo,
José F. Giménez
http://www.xailer.com

[jrcpoli]

Saludos:
He actualizado a la versión 1.1 y efectivamente Modified de la clase
TDataSet funciona ahora correctamente, detecta que ha ha producido una
modificación en los campos asociados estando con lOnEdit a verdadero que
quiere decir que estamos editando el registro.
José Ramón Castro.
Jose F. Gimenez escribió:
> José Ramón,
>
>> El método lOnEdit funciona perfecto pero Modified no hace nada seguro que
>> es que no lo empleo correctamente por eso de mi pregunta.
>>
>> PD. No he actualizado por lo tanto estoy trabajando con la 1.0b
>
> Precí­samente esto se ha modificado en esta versión.
>
>
>> Segunda cuestión como he visto que han surgido algunas correcciones cosa
>> por otra parte normal, y que a todos nos ocurre cuando lanzamos algo
>> nuevo, podí­ais poner un resumen cuando lo tengáis claro de los ficheros
>> que hay que incluir en la librerí­a Xailer en sustitución de los otros o
>> mandar una nueva librerí­a con los ficheros incorporados.
>
> Vamos a dejar pasar unos dí­as por si salen más bugs, y entonces sacaremos la
> versión 1.1a
>