TClientDataSet.applyupdates (error: record not found or changed by another user)

[Bauhaus1975]

Buenas de nuevo, allá vamos. Primero respondo, y luego agrego

Con el Debug detenido justo antes de la sentencia que lanza la excepción 'DatabaseError(SRecordChanged);'. Ello en el método y unit: procedure TSQLResolver.DoExecSQL(SQL: TWideStringList; Params: TParams);

He mirado el contenido de SQL.Text, sólo pidiendolo sobre el código porque sobre el inspector de objetos 'local variables', el depurador no mostraba tal propiedad. Este es su contenido, tras haber añadido informacion a cada campo directamente, para acotar el error más a fondo:

Código SQL [-]

SQL.Text 'update "CLIENTE"  set'#$D#$A' "FORMAPAGO" = ?,'#$D#$A' "IDUSUARIO" = ?,'#$D#$A' 
"NOMBRE" = ?,'#$D#$A' "DOMICILIO" = ?,'#$D#$A' "TELEFONO1" = ?,'#$D#$A' "TELEFONO2" = 
?,'#$D#$A' "WEB" = ?,'#$D#$A' "FAX" = ?,'#$D#$A' "FECHAALTA" = ?,'#$D#$A' "IDCONTACTO" = 
?,'#$D#$A' "OBSERVACIONES" = ?'#$D#$A'where'#$D#$A' "ID" = ? and'#$D#$A' "NIF" = ? 
and'#$D#$A' "FORMAPAGO" is null and'#$D#$A' "IDUSUARIO" = ? and'#$D#$A' "PUBLICO" = ? 
and'#$D#$A' "ACTIVIDAD" = ? and'#$D#$A' "NOMBRE" = ? and'#$D#$A' "APELLIDOS" = ? 
and'#$D#$A' "DOMICILIO" = ? and'#$D#$A' "CP" = ? and'#$D#$A' "CODIGOPROVINCIA" = ? 
and'#$D#$A' "MUNICIPIO" = ? and'#$D#$A' "EMAIL" = ? and'#$D#$A' "TELEFONO1" = ? 
and'#$D#$A' "TELEFONO2" is null and'#$D#$A' "WEB" is null and'#$D#$A' "FAX" is null 
and'#$D#$A' "FECHAALTA" = ? and'#$D#$A' "IDCONTACTO" is null and'#$D#$A' "OBSERVACIONES" 
is null'#$D#$A

Y Esta es la query realizada, que inicialmente obtiene los datos del cliente para mostrarlos en el formulario:

Código SQL [-]
'SELECT c.ID as 
IDCliente,c.NIF,c.FormaPago,c.IDUsuario,c.Publico,c.Actividad,c.Nombre,c.Apellidos,c.Domic
ilio,c.CP,c.CodigoProvincia,c.Municipio,c.EMail,c.Telefono1,c.Telefono2,c.Web,c.Fax,c.Fech
aAlta,c.IDContacto,c.Observaciones FROM cliente c WHERE ID = 1'

Ahora viene lo mejor, ayer estuve haciendo un programa de prueba para aislar la funcionalidad que puede ocasionar el problema. Cree una tabla cliente con tres campos (ID,Nombre,Direccion) añadi las clases implicadas, y... ¡voila! funcionaba perfectamente. ¿Qué puedo hacer? pues seguramente alguna parte del programa está afectando, pero mira que llevo horas depurando, no hay queries que 'intoxiquen' al provider, ni nada que yo haya visto que pueda afectar. Lo único que se me ocurre es ir añadiendo código a mi programa de prueba hasta que ocurra el mismo error que ahora se da en el programa completo.

¿Alguna idea más? Gracias y un saludo.

[[Al González]]

¡Hola!

Excelente dato. No sé si ya notaste que esa sentencia "Update Cliente..." no está usando upWhereKeyOnly, sino que pareciera usar upWhereAll.

Empezado por ayuda de Delphi

TUpdateMode is the type of the UpdateMode property. UpdateMode specifies how the records are located when the ApplyUpdates method is called. TUpdateMode includes the following values:

Value Meaning

upWhereAll All columns (fields) are used to locate the record.
upWhereChanged Only key field values and the original value of fields that have changed are used to find the record.
upWhereKeyOnly Only key fields are used to find the record.

Está usando un "Where" con todos los campos para intentar localizar el registro. Esto, además de ser poco eficiente, suele presentar el problema que nos reportas desde el comienzo del hilo (normalmente es porque otro usuario o programa modifica el registro, pero también puede pasar que alguno de los parámetros para el Where no haya sido obtenido correctamente).

En teoría, si UpdateMode fuese upWhereKeyOnly, ese "Update Cliente..." debería terminar en un simple "Where ID = ?", y no incluir a todos los demás campos en la cláusula Where. Funcionando entonces correctamente.

Nuevamente, al estar detenido el programa en ese punto, revisa qué valor tiene la propiedad Provider.UpdateMode. No con el inspector, sino metiendo "Provider.UpdateMode" a las observaciones (watches). Todo parece indicar que NO es upWhereKeyOnly, sino upWhereAll. ¿Alguna parte del programa estará cambiando esa propiedad?

Esperamos tus avances.

Al González.

[Bauhaus1975]

Hola de nuevo,
lamento la tardanza en responder, resulta que he estado estudiando bien en el tema. Y tienes razón, se colaba en un sitio no esperado el cambio de la propiedad Provider.UpdateMode a upWhereAll. Cuanto siento el tiempo que hemos perdido por algo que no era tan complicado en realidad.

Después de 'arreglar' este error he seguido con problemas asociados pues el provider era usado por otras queries (en algunos casos del programa) y perdía la referencia del registro del DataSet original. Quizá por simplificar (usar un Provider que se alimenta de varias queries) he terminado complicando más el tema.

Bueno, muchas gracias de nuevo por tu valiosa ayuda.
Volveremos a vernos pronto, seguro.
Saludos.

[[Al González]]

Empezado por Bauhaus1975

Cuanto siento el tiempo que hemos perdido por algo que no era tan complicado en realidad.

Descuida. No es para mí una pérdida de tiempo, y creo que para ti tampoco. Este ejercicio ha sido útil para ambos y algo de lo dicho podrá servirle también a otros.

Empezado por Bauhaus1975

Quizá por simplificar (usar un Provider que se alimenta de varias queries) he terminado complicando más el tema.

Puede que valga la pena abrir un hilo sobre esa cuestión particular.

[Bauhaus1975]

Bien, entonces quizá lo mejor es que cuando tenga listo y depurado el tema haga una exposición de cómo he organizado la distribución de Queries+Providers+DataSet y discutamos ¿cierto?.

Esta organización la estoy usando en una clase genérica que he creado, la cual define un comportamiento bastante común: sacar listados de esa entidad, obtener datos de ficha, actualizar, etc. Y clases que siempre suelen funcionar igual como 'clientes', 'contactos', 'proveedores' etc la heredan.

Gracias y un saludo.