restar existencias de mysql

[edgar_prospero]

que hay amigos ya hace tiempo de este post pero ya logre hacer que me reste las existencias nomas que tengo un problema que al ir agregando los productos al dbgrid ya desde ahi me quita las existencias y queiro quelo haga hasta que guarde el producto porque encaso de un error de que me equivoque de producto lo voy a eliminar del dbgrid pero a se va a quedar modificado en existencias ojala me puedan ayudar

Código Delphi [-]
procedure TForm1.clientdataset1AfterPost(DataSet: TDataSet);   
begin
  with clientdataset2 do   
  begin     
    Edit;     
    FieldByName('EXISTENCIA').Value := FieldByName('EXISTENCIA').Value -       clientDataSet1.FieldByName('CANTIDAD').Value;     
  Post;   
end;

[Casimiro Noteví]

Empezado por edgar_prospero

que hay amigos ya hace tiempo de este post pero ya logre hacer que me reste las existencias nomas que tengo un problema que al ir agregando los productos al dbgrid ya desde ahi me quita las existencias y queiro quelo haga hasta que guarde el producto porque encaso de un error de que me equivoque de producto lo voy a eliminar del dbgrid pero a se va a quedar modificado en existencias ojala me puedan ayudar

Amigo, imagina que eso lo ha escrito otra persona, intenta leerlo a ver si lo entiendes, sin ni un un signo de puntuación, no se sabe dónde acaba una frase y empieza otra, no se sabe si afirmas, preguntas, confirmas... en fin, que cuesta entenderlo.

[edgar_prospero]

tienes toda la razon tratare de explicarme de mejor forma y sacar mis clases de español para la puntuacion.

gracias a su ayuda logre hacer que me restara las existencias con el codigo que puse anteriormente, pero tengo el problema que con ese evento de afterpost al ir mandando mis productos al dbgrid ya me lo va descontando de existencias, siendo que lo que necesito es que haga el descuento hasta que le de en el boton guardar. no se si ahora me explicaria un poco mejor jeje

[Casimiro Noteví]

Ahora sí
Bueno, entonces si no quieres que descuente existencias por cada línea que se va guardando... te queda solamente una opción: cuando le des a terminar/finalizar/aceptar el documento, o sea, cuando se termina, antes de salir debes de recorrer el dataset con todas las líneas y hacer la resta por cada una de ellas. Resumiendo, hacer "lo mismo" pero manualmente. Algo así (tú debes sustituir los dataset, nombres de tablas, campos, etc.), es sólo para que te hagas una idea:

Código Delphi [-]
qlineas.first;
while not qlineas.eof do
begin  
  update tablaexistencias set existencias=existencias - qlineas.cantidad.asinteger;
  post;
  qlineas.next;
end;

Aunque, desde luego, la otra opción es más efectiva.

[roman]

No entiendo cuál es el problema. Mientras no se haga el ApplyUpdtes de ambos ClientDataSets, no se guardarán los registros cambiados en la base de datos.

// Saludos