Componente para actualizar datos de un query...

[tgsistemas]

Neftali,

y si hiciera la consulta original de este modo ??

select PL.CDGOPARTE, PL.CDGOLIN, PL.TPLGIA, PL.H1_E, PL.H1_S, PL.H2_E, PL.H2_S, PL.HT,
PL.PRODUC, PL.CNTCTOS, PL.VENTAS,
P.CDGO, P.NMROORDEN, P.CDGOTOP, P.FECHA, T.NMBRECMPLTO, P.ACTIVO

from tblcbcra p, tbldetalle pl, trbjdres t

WHERE (
(pl.cdgoparte = p.cdgo) AND
(t.cdgo = p.cdgotop) AND
(P.NMROORDEN = XXXXXXX AND P.FECHA = '14/10/2009')
)
order by T.NMBRECMPLTO

de este modo no hay ningún join por el medio y podría definir la clave principal de la tabla tbldetalle para hacer el update automáticamente ??

[Neftali [Germán.Estévez]]

Creo que no va a funcionar Toni. N es una Join, pero es un producto cartesiano.
El problema no está en la JOIN es si, sino en mezclar datos de diferentes tablas en un DataSet.

[tgsistemas]

He buscado información al respecto, he visto varios casos de qry de más de una tabla
Por lo que he entendido, el update resultante se gestiona en función de algunas propiedades de los campos en el DataSet original mediante banderas que se parametrizan en ProviderFlags.
Los campos que se actualizarán con la propiedad pfInUpdate, los campos implicados en el where con la propiedad pfInWhere y los de clave principal con pfInKey.

Siguiendo esas premisas he parametrizados todos los campos y me gustaría saber si conoces algún método para que pueda ver la sentencia sql del update resultante.

En la qry original he identificado todos los campos con su nombre correcto de tabla, sin utilizar alias para intentar evitar problemas de identificación de éstos.

El error que produce ahora al realizar el ApplyUpdates es El nombre de la columna CDGOPARTE no es válido y El nombre de la columna CDGOLIN no es válido, ambos campos son la clave principal de la tabla tbldetalle que és la que se debe actualizar.

Es posible que el problema venga por tratarse de tablas Maestro/Detalle ??

Muchas gracias por la ayuda

[Neftali [Germán.Estévez]]

Empezado por tgsistemas

...y me gustaría saber si conoces algún método para que pueda ver la sentencia sql del update resultante.

Lo siento Toni.
Nunca he llegado a este punto y creo que no debes intentar actualizar con el ApplyUpdates.

Por internet he encontrado esto, que viene a ser más o menos lo que tiene más lógica:

ApplyUpdates cannot handle updates to a join. You need to create a
BeforeUpdateRecord event handler for the DSP and create and execute the
UPDATE statements for each table.

[tgsistemas]

Neftali,

al final lo he resuelto siguiendo tus indicaciones, creando un campo actualizado que voy marcando al guardar los cambios en el ClientDataSet, en un button he creado un proceso que recorre el ClientDataSet y lanza un qry de update en función del valor del campo actualizado. Hasta aquí todo funciona perfectamente y realiza los updates correctamente

El problema que tengo ahora es que en el DBGrid asociado al ClientDataSet se pueden añadir líneas y quisiera eliminar esa opción, es decir, que no puedan añadir ninguna línea, pero no sé cómo hacerlo ??

Muchas Gracias

[tgsistemas]

Perdón, no me expliqué demasiado bien...

lo que quiero es no permitir insert ya sea bloqueando el DBGrid que muestra los datos, en ClientDataSet o en el Provider.

Sorry por la confusión generada

[Neftali [Germán.Estévez]]

Prueba a poner en el OnNewRecord del ADOQuery:

Código Delphi [-]
  ADOQuery.Cancel;