FiveTech Support Forums

Hola a todos,

Tengo mas que un problema una duda de planteamiento.

Escribo un formulario de altas o modificaciones donde relleno los gets.
Pero al cerrar la ventana, quiero comprobar si los cambios se han guardado ya.

He pensado hacerlo con una variable chivato o incluso cargando los campos en variables y compararlos con
los nuevos valores introducidos.

Pero no me convence mucho esta estrategia pues la veo un poco "sucia" y complicada.

He oido que el recordset tiene un metodo o propiedad para estos casos y poder comparar si se han guardado las modificaciones.

Si alguien de vosotros se ha visto en esta situación y ha encontrado una solución mas elegante, o sabe si existe ese metodo del recordset, le agradecería lo comentase.

Sería de muy gran ayuda.
Gracias.

Jafive

Simple...
Al traer el recordset, guarda su contenido en un Array..
Edita los campos .. y al validar si sales o no del modo edicion vuelve a comparar el recordset con el array recien guardado... si existe una diferencia del contenido.. obvio que se modifico...

Crea el array asi..

Local miReg:={}
For x= 1 to oRcs:Fields:Count
aadd(miReg, oRcs:Fields( x-1 ):value)
Next

Para Comparar

Local lModificados:=.F.

For x= 1 to oRcs:Fields:Count
If oRcs:Fields( x-1 ):value <> miReg[x]
lModificados:=.T.
Endif
Next

Jafive:

Algo más simple:

Sintaxis del método GetRows()

array := recordset.GetRows(Rows, Start, Fields )

Mira este tópico

http://sqlcmd.blogspot.com/search?updat ... results=12

Saludos

oRs:Status
indicates the status of the current record in the recordset.

if oRs:Status is 0 or 8, the record is not modified.
1 -> Newly added record to be saved
2 -> Modified
4 -> Deleted

for other values of oRs:Status, please see
http://www.w3schools.com/ado/prop_rs_status.asp

For comparing with Original values, it is NOT necessary to copy the values into an Array. Every recordset keeps a copy of the Original Values of each field of each record.

oRs:Fields( n ):Value --> Present Value
oRs:Fields( n ):OriginalValue --> Original Value read from the data source.

Amigos compañeros de camino,

Muchas gracias por vuestra colaboración.
Esperaba una ayuda y me habeis ofrecido varias alternativas todas excelentes.

Muyyy agradecido.
Thank you very much.