[[Caral]]

Hola
independientemente de las entradas o salidas o como las guardes lo que necesitas es saber la existencia de X producto, verdad ?.

Hagamos un ejercicio:
Digamos que tienes el mismo codigo que envia la informacion al dbgrid pero con un dato adicional y que solo guardara la informacion en una de las dos tablas, supongamos que es la tabla entradas, entonces:
a la tabla entradas le añades un campo llamado TIPO (Texto) 2
ahora colocas un combobox en el form y pones en el text.
Entrada
Salida

Con esto a la hora de guardar la informacion se sabrá si fue una entrada o una salida en una sola tabla (despues veremos la parte del folio que es mas sencilla)

Pondremos el codigo que va enviando al dbgrid (de momento) asi:

Código Delphi [-]
var A : String;
begin
   // aqui se define si es entrada o salida dependiendo del combobox
   If combobox.text = 'Entrada' then
   begin
   A:= 'E';
  end
  else begin
  A:= 'S';
  end;
  // aqui se envia el dato al dbgrid
    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['TIPO'] := Combobox1.text;  // aqui esta el dato (entrada o salida)

    form4.clientdataset1.Post;

Como ves en una variable guardo una letra que sera guardada en la tabla en el campo TIPO.
Empecemos por aqui y me dices como va.

Saludos