Ver Mensaje Individual
  #8  
Antiguo 13-03-2009
Bauhaus1975 Bauhaus1975 is offline
Miembro
 
Registrado: may 2005
Ubicación: Málaga
Posts: 135
Reputación: 22
Bauhaus1975 Va por buen camino
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.
Responder Con Cita