Hola
No te bloquees, revisa el codigo del form factura, ahi veras un boton guardar, revisa el codigo, lo que hace es esencialmente lo que he tratado de explicarte.
Tranquilo, te ayudaremos hasta que lo hagas.
Saludos

ok le voy a dar una buena revisada pero no se si sea compatible con lo que hago ya que yo no guardo los registros de esa manera utilizo un
clientdataset1.ApplyUpdates(0); y ya es el unico codigo que tengo en mi boton guardar

Hola
Yo no se si sigo sin entender algo.
1-Tienes una serie de edits
2-los llenas con informacion
3-los vas guardando.

Aqui es donde me pierdo,
1.los vas guardando presionando el boton que aplica el update o el codigo que contiene el POST los va guardando ?.
2-cada vez que incluyes un producto es diferente o siempre es el mismo con diferentes cantidades (cosa que no veo logica pero pregunto por si acaso).
Saludos

a ver si me explico en un form tengo varios edit los cuales lleno de informacion y por un boton los envio a otro form a un dbgrid ahi voy agregando los registros que necesite normalmente son diferentes codigos ya que tengo los que necesito ahora si le doy en el boton guardar donde tengo el clientdataset1.ApplyUpdates(0); y todos esos registros con su codigo cada uno se guardan con un solo numero de folio por ejmplo el 1, pero en los demas folio puedo volver a guardar regisrtos que ya haya guardado antes,ya que por ejemplo si me llegan 5 recamaras con codigo rec30 se me ocurre le doy entrada con su numero de folio y en una semana me llegan otras 2 recamaras de las mismas pues le doy entrada con otro numero de folio no se si me entiendas un poco

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

perfecto gracias por tu tiempo lo implementare de esa forma hay te digo como me fue

Hola
Despues de hacer esto seria muy sencillo generar una consulta que nos muestre los datos de una entrada o salida segun un numero de folio, una fecha determinada y un producto x.
Si sacamos este dato sera muy sencillo restar las entradas de las salidas segun un producto x, que es lo que necesitas, segun entiendo.
Saludos

listo ya a la hora de guardar ya se me guarda en tipo si es entrada o es salida ahora mi duda seria para asignarle su propio folio secuencial a cada entrada y a cada salida como seria por ejemplo tiene que haber un folio 1 tanto para entrdaas como para salidas

mira cuando abro por decir la entrada y mi ultimo folio que use era 4 mediante el siguiente codigo en el edit me aparecia 5 :



query.Close;
query.SQL.Text:='SELECT folio FROM entradas ORDER BY folio desc LIMIT 1';
query.Open;
folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Hola
Ese no es problema, aqui tuve un error revisalo otra vez, puse que se guardara el dato del combobox y no de la variable.
Si usas el codigo que puse no haria falta la variable para nada pero el campo seria mas grande para contener la palabra completa, osea asi:

Código Delphi [-]
  // 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;

Si usas el dato de la letra entonces seria 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'] := A;  // aqui esta el dato (entrada o salida)

    form4.clientdataset1.Post;

Revisa y me dices.
saludos

Hola
Cuando se necesita saber el numero de folio que sigue tanto de entradas como de salidas se hace asi:
usando el mismo combobox:

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;
  query.Close;
  query.SQL.Text:='SELECT max(folio) FROM entradas where tipo = '+A;
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Como ves simplemente se saca el dato del folio dependiendo de si es entrada o salida en el campo que creaste.
saludos

mmm no me queda muy claro donde voy a usar ese codigo para el folio porque lo que yo necesitareia es que en cuanto entre al form en el combox pues tengo entradas por default entonces que me aparesca el numerp de folio que le correpsonde desde un principio y que si el combobox lo muevo a salidas automaticamente me ponga el folio que corresponde

Hola
En el evento OnChange del combobox.
Saludos

diras que como doy carrilla amigo pero me marca error column 's' in where clause creo que hoy la traigo de malas

porque checandolo salen mas detallitos por ejemplo si tengo un folio 1 de entrada y 1 de salida, tengo la funcion de que en el edit de folio tecleo 1 y me trae al dbgrid los registros con ese folio y en estos momentos le pongo 1 y me trae lso folio 1 de entrada y salida este codigo uso para trarme los datos con el evento key press:

Código Delphi [-]
 if Key = #13 then
  begin

 query.Close;
   query.SQL.Text := 'select * from entradas where folio=:txtfolio';
    query.Params[0].Value := folio.Text;

    query.Open;

    serie.Text :=  query.FieldByName('serie').asString;
    fecha.Date := query.FieldByName('fecha').AsDateTime;

  clientdataset1.Close;
  clientdataset1.Params.ParamByName('folio').AsInteger := StrToIntDef(Folio.Text, 0);
  clientdataset1.Open;

Hola
1-revisa que el dato del campo sea esa S
2-Si es asi y no la palabra completa ponlo 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;
  query.Close;
  query.SQL.Text:='SELECT max(folio) FROM entradas where tipo = '+QuotedStr(A);
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

o 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;
  query.Close;
  query.SQL.Text:='SELECT max(folio) FROM entradas where tipo = '''+ A + '*''';
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Vamos por partes amigo
Saludos

tiens razon me acelero jeje mira me sale este error ahora query:field 'folio' not found

Hola
Eso dice que el campo folio no lo encuentra, revisa que este bien escrito y por supuesto que este ese campo en la tabla.
amigo, se que no me conoces pero aqui saben que no soy programador, esto lo hago por hoovi, no esperes demasiado de este novato, trato de ayudar con mis pocos conocimientos de esto.
saludos

Hola
Ya nos contaras como te fue con esto.
Saludos

pues seras novato como dices pero me has echado mucho la mano amigo, ya pude hacer que no me marcara error el problema me sale por la parte de max(folio), lo cmabie por el siguiente codigo no me marca error pero en folio siempre me pone uno aunque tenga 10 siempre es 1

Código Delphi [-]
If combobox1.text = 'Entrada' then  
   begin
   A:= 'E';
   end
   else begin
   A:= 'S';
   end;
  query.Close;

  query.SQL.Text:='SELECT folio FROM entradas where tipo = '''+ A + '*'' ';
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Hola
Tal vez mysql no acepta max(), trata de usar Last(), asi:

Código Delphi [-]
If combobox1.text = 'Entrada' then  
   begin
   A:= 'E';
   end
   else begin
   A:= 'S';
   end;
  query.Close;

  query.SQL.Text:='SELECT Last(folio) FROM entradas where tipo = '''+ A + '*'' ';
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Saludos

no tampoco lo acepta no es correcta marca error de sintaxis, no se como se puda adecuar de la manera que yo lo hagopor jemplo con el siguiente codigo es como pongo mi utlimo folio +1 y no me da problema pero a esto no se puede acomodar nomas siempre me pone 1y como observacion en la parte qe le pngo +1 si le llego a poner +20 en el edit de folio aparece 20

Código Delphi [-]
query.Close;
     query.SQL.Text:='SELECT folio FROM entradas ORDER BY folio desc LIMIT 1';
     query.Open;
    folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Desde luego que lo acepta. MySQL sí admite la función max.

// Saludos

pues entonces no se porque cuando pongo max(folio) me marca esto: query:field 'folio' not found y pues si existe folio y esta bien escrito

El error no te lo da MySQL. Si fuera así, el error sería:

Código SQL [-]
Unknown column 'folio' in 'field list'

El error te lo está dando el componente query y la razón es muy sencilla. En tu consulta no hay ningún campo llamado folio. Cuando pones:

Código SQL [-]
select max(folio) from entradas

el resultado es un conjunto de datos con una columna y esa columna se llama 'max(folio)' y no folio.

Lo puedes resolver muy fácil poniendo un alias a la consulta:

Código SQL [-]
select max(folio) as folio from entradas

O bien, leyendo el dato por su índice en lugar de su nombre:

Código Delphi [-]
folio.text := IntToStr(query[0].asInteger  + 1) ;

// Saludos

pues efectivamente ya con el alias no marca error aunque todavia no logro mi objetivo que es si el ultimo folio usado es 3 en el edit folio me aparesca 4 que seria el siguiente a usar

pues como no logro hacer qe me quede estoy intentando otra cosa que pongo a continuacion pero nomas me funciona una vez al cargar el form el combobox esta en entradas y el nuemro de folio que le corresponde al mover el combobox a salidas el nuemro de folio se cambia al que le corresponde pero nomas esa vez me funciona si le vuelvo a poner en entradas ya nose mueve folio:

Código Delphi [-]
procedure TForm4.ComboBox1Change(Sender: TObject);

begin

if (ComboBox1.Text='ENTRADA') THEN
        begin
 query.Close;
     query.SQL.Text:='SELECT folio FROM entradas ORDER BY folio desc LIMIT 1';
     query.Open;
    folio.text := IntToStr(query.FieldByName('folio').asInteger +1);

        end
       else begin
 if (ComboBox1.Text='SALIDAS') THEN

 query.Close;
     query.SQL.Text:='SELECT folio2 FROM entradas ORDER BY folio2 desc LIMIT 1';
     query.Open;
    folio.text := IntToStr(query.FieldByName('folio2').asInteger +1) ;

       end;

una disculpa fue error mio en lugar de entrada era entradas ya con ese cambio se logro lo que queria jeje muchas gracias por su ayuda este hilo ya es demasiado grande seguire avanzando y para mi siguiente duda abrire uno nuevo

Si es una duda que no tiene nada que ver con esta, en caso contrario debes seguir aquí.