restar entre 2 tablas de mysql y mostrar en reporte

[edgar_prospero]

pues mira ya ando un poco perdido si me pudieras ayudar para implementarlo de esa forma agregando un campo existencias en mi tabla productos y de como puedo hacerle te lo agradeceria mucho

[[Caral]]

Hola
Simplemente agrega el campo existencias a la tabla productos.
coloca aqui el codigo que usas para hacer una entrada o una salida y te pongo un ejemplo.
Pon tambien los campos de la tabla productos para estar mas seguro.
Saludos
PD: Ponle a un producto determinado (como prueba) una existencia X para que veas como se hace el update.

[edgar_prospero]

a ver si me explico de otro form voy metiendo los datos en un dbgrid de la siguiente forma

Código Delphi [-]
form4.clientdataset1.Append;

    
    form4.clientdataset1['serie'] := form4.serie.Text;
    form4.clientdataset1['documento']:=form4.documento.Text;
   form4.clientdataset1['folio'] := form5.folio.Text;
    form4.clientdataset1['codigo'] := form5.codigo.Text;

    form4.clientdataset1['nombre'] := form5.nombre.Text;
    form4.clientdataset1['cantidad'] := form5.cantidad.Text;
    form4.clientdataset1['precio'] := form5.precio.Text;
     form4.clientdataset1['unidad']:=form5.unidad.Text;
    form4.clientdataset1['id']:=form5.id.Text;
     form4.clientdataset1['importe']:= floatToStr( StrTofloat(form5.cantidad.Text) * StrTofloat(form5.precio.Text) );

     form4.clientdataset1['fecha'] := form4.fecha.Date;

    form4.clientdataset1.Post;

ya que tengo las entradas que voy a meter en mi base de datos por medio de un boton guardar que tiene el siguiente codigo los mando a la base de datos:

Código Delphi [-]
clientdataset1.ApplyUpdates(0);
 
showmessage('grabado con exito ');

los campos de mi tabla productos son:
codigo, nombre, fecha,precio, status, fec_baja, unidad, cantidad, id, existencias

[[Caral]]

Hola
Tienes un boton en el que aplicas el update del dataset.
No se que componente usas para conectarte pero digamos que es un query normal.
Coloca un query (del componente que uses) lo conectas a la bd y pones este codigo en el boton del update.

Primero cuentas o sumas el dato del campo cantidad de la tabla entradas, lo guardas en una variable:
Despues generas el update de la tabla productos del campo existencias.

Código Delphi [-]
var dato: real;
begin
// guardas los datos, esto ya lo estas haciendo en ese boton
clientdataset1.ApplyUpdates(0);
showmessage('grabado con exito ');

//Sumo el campo cantidad, segun el codigo del producto
Query1.slq.text.= 'Select sum(cantidad) as cantidad from Entradas where codigo = :cod';
Query1.Params[0].Value:=  form5.codigo.Text;
Query1.Open;
dato:= FloatToStr(Query1.Fields[0].Text);
Query1.Close;

// genero el update de la tabla productos al campo existencias, segun el codigo del producto
Query1.SQL.Text := 'Update Productos set Existencias = Existencias + :Nuevodato Where Codigo = :cod';
Query1.Params[0].Value:= dato;
Query1.Params[1].Value:=  form5.codigo.Text;
Query1.ExecSQL;

showmessage('existencia actualizada ');
end;

Espero que lo entiendas.
Saludos

[edgar_prospero]

me marca este error [DCC Error] Unit4.pas(248): E2250 There is no overloaded version of 'FloatToStr' that can be called with these arguments

en esta linea
dato:= FloatToStr(Query1.Fields[0].Text);

[[Caral]]

Hola
Puede ser:
1- que el campo cantidad sea integer y no float en tu tabla.
de ser asi, cambia estas lineas:

Código Delphi [-]
var dato: Integer;

y esta:

Código Delphi [-]
dato:= StrToInt(Query1.Fields[0].Text);

2- puede ser al reves si el campo en la tabla es float:
cambialo asi:

Código Delphi [-]
dato:= StrToFloat(Query1.Fields[0].Text);

Saludos

[roman]

Empezado por edgar_prospero

me marca este error [DCC Error] Unit4.pas(248): E2250 There is no overloaded version of 'FloatToStr' that can be called with these arguments

en esta linea
dato:= FloatToStr(Query1.Fields[0].Text);

La función FloatToStr recibe un número flotante como parámetro y tú le estás pasando una cadena. Si tu campo realmente es de este tipo entonces basta que pongas:

Código Delphi [-]
dato:= FloatToStr(Query1.Fields[0].AsFloat);

Pero, por otro lado, dado que, al parecer, quieres el valor en formato de texto, entonces ni siquiera tienes que usar FloatToStr y simplemente pones:

Código Delphi [-]
dato:= Query1.Fields[0].AsString;

// Saludos

[edgar_prospero]

efectivamente ese era mi error ya se pudo ejecutar el programa y no marca error pero no actualiza el campo de existencias no se si me este faltando algo en el componente