restar entre 2 tablas de mysql y mostrar en reporte

[[Caral]]

Hola
El codogo que te di deberia restar la suma del campo cantidad de la tabla entradas con la suma del campo camtidad de la tabla salidas.
Si por cada entrada de producto la cantidad es uno y lo mismo pasa en la tabal salidas el total sera cero, eso es seguro.
Ahora si es asi lo que necesitarias es simplemente sumar la cantidad de registros, asi si te dara la cantidad de entradas y salidas.
Me sigue pareciendo que la opcion logica es poner un campo existencias en la tabla productos y hacer un sencillo update por cada entrada y salida.
saludos
Edito: Deberias ver si el te esta restando la totalidad si es asi se necesitaria generar una condicion a la sentencia sql

[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