Problema para Actualizar en un VirtualQuery

[darkamerico]

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

1) Pon un ShowMessage de los parámetros de la sentencia, para ver que estás actualizando realmente el valor.
2) Revisa el valor de Base de Datos, para saber (lo primero) si es un problema visual o de Base de Datos (así centras el problema).


Por lo que he visto en el vídeo, el componente de cantidad no es un componente de Dataware. Pensé que lo estaban modificando sobre el DBGrid. En ese caso no normal para recalculos sería utilizar alguno de los eventos de cambio del Dataset. De esa forma, por ejemplo, funcionaría todo igual si hicieras el cambio por código (de la cantidad).
Al no ser un componente Dataware, yo lo que haría sería poner ese código en un módulo de Datos (procedure ActualizacionLineaDetalle) y hacer la llamada desde el evento.
De esta forma al menos, "separas" la parte visual de la parte lódica/Datos.

Si me sale posteo el codigo

Saludos

[darkamerico]

Saludos Neftali, me pareció prudente cambiar los 2 componentes de texto txtCantidad y txtPrevioVenta a componentes DB-Aware, ahora son TCxDBTextEdit y estan conectados a sus respectivos campos correctamente. Aquí los cambios:

Paso 1: En el Evento OnExit de txtCantidad hago el post:

Código Delphi [-]
procedure TfrmCompras.txtCantidadExit(Sender: TObject);
begin
  ds_Carrito.Edit;
  ds_Carrito.DataSet.Post;
  gridCarritoCompraDBTableView1.DataController.DataSet.Refresh;
  q_CalcTotal.Close;
  q_CalcTotal.Open;
  txtMontoTotal.Text:=q_CalcTotal.Fields[0].AsString;
end;

Sin embargo, al intentar cambiar un valor la aplicación arroja un error: Assertion failure (D:\Projects\MemData.pas, line 7161), luego al salir del foco del componente aparece el mensaje de que el DataSet no esta en Edit o Insert Mode...

Recuerda que estoy trabajando sobre un VirtualTable llamado vt_Carrito, de modo que la única forma que conozco de saber que se realizo bien es mediante la visualizacion de sus registros en la grilla.

Saludos

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

Empezado por darkamerico

Sin embargo, al intentar cambiar un valor la aplicación arroja un error: Assertion failure (D:\Projects\MemData.pas, line 7161), luego al salir del foco del componente aparece el mensaje de que el DataSet no esta en Edit o Insert Mode...

Normalmente ese error ocurre cuando intentas cambiar un Dataset (un valor de un campo) estando en el estado "incorrecto".
Las líneas en el orden correcto serían algo así; Revisa que las estés haciendo correctamente

Código Delphi [-]
   ...   

   // Cambiar el estado

   Dataset.Edit;
   // Modificar el campo

   Dataset.FieldByname('NOMBRECAMPO').AsString := 'aa';
   ... otras formas de modificar valores
   // Guardar los cambios
   Dataset.Post

Revisa las líneas donde estés cambiando campos del Dataset y asegurate de que el Dataset está en modo Edit;



Haz debug paso a paso y dinos exactamente la línea que está fallando.

[darkamerico]

Este es el error...AQUI

El formulario Compras lo subi Aqui

Un abrazo