Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   restar entre 2 tablas de mysql y mostrar en reporte (https://www.clubdelphi.com/foros/showthread.php?t=80127)

edgar_prospero 06-09-2012 02:31:24

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 06-09-2012 02:34:48

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 06-09-2012 02:41:09

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 06-09-2012 03:03:07

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 06-09-2012 03:10:56

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 06-09-2012 03:19:40

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 06-09-2012 04:11:48

Cita:

Empezado por edgar_prospero (Mensaje 442004)
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 06-09-2012 16:47:51

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

edgar_prospero 06-09-2012 17:46:54

ya logre hacer que me afecte inventarios pero hay nu detalle, si meto una entrada con cantidad de 5 en existencias me aparecen 5 ahi todo bien
pero si con ese mismo codigo agrego otra entrada con cantidad 1 deberia de dejarme en existencias 6 pero me vuelve a sumar los 5 que tenia en un principio y me aparece 11

Caral 07-09-2012 00:12:34

Hola
Declara al principio del codiigo:
Dato:= 0;

Asi la variable se iniciara siempre en cero.
Saludos

edgar_prospero 07-09-2012 00:19:44

pues no amigo sigue en las mismas por ejemplo si tengo un un folio con varios registros ya guardados y ese folio lo vuelvo a abrir en un dbgrid para agregar otro registro me vuelve a actualizar los codigos que estan ahi

Caral 07-09-2012 00:23:52

Hola
No entiendo, creo que el problema es que guardas varios productos a la vez, osea, vas cargando los productos en el dbgrid y luego los guardas.
me parece que para que el codigo de actualización sea eficiente tiene que estar en el codigo que guarda cada item.
Saludos

edgar_prospero 07-09-2012 00:29:54

tratare de explicar mi codigo a ver si me doy a entender, en un form tengo varios edit los cuales voy llenando con los datos(codigo, nombre, precio, etc) ahi con un boton lo envio a otro edit donde tengo un dbgrid entonces se agrega el primer registro y asi puedo agregar todos los registros que necesite pero solo estande manera temporal ya que uso un clientdataset, ya que quiero guardarlo utilizo un boton que uso con solo el codigo clientdataset1.ApplyUpdates(0); y todos esos registros se guardan con un folio por decir 2, si ya despues me doy cuenta que me falto agregar otro registro con ese nuemro de folio lo vuelvo a mostrar en el dbgrid con todosl los registrs que tienen ese folio lo agrego y otra vez le doy en guardar pero solo me guarda el ultimo codigo que agregue, y con lo que estamnos haciendo ahorita me vuelve a sumar todas las cantidades, no se si abra otra manera de intentarlo

Caral 07-09-2012 00:38:51

Hola
Te voy a explicar como se hace normalmente un sistema de inventario.
Se tienen:
1 tabla productos
1 tabla transacciones.
En la tabla productos se tiene un campo existencias y los datos del producto
en la tabla transacciones se tiene un campo que define si es entrada (E) o salida (S) y la fecha de la transaccion.
Es muy sencillo llevar estas dos tablas.
Al tener el concepto que llevas te complicas mas de la cuenta sin sentido.
Estructurar esto es muy sencillo, casi lo tienes listo.
saludos

edgar_prospero 07-09-2012 00:42:52

si entiendo lo que me quieres decir pero mi problema esta en que tengo que llevar entradas en una tabla y salidas en otra porque van ordenadas por un folio consecutivo por eso no utilizo una tabla, e ahi por que me estoy complicando la existencia pero me imagino que si debe de haber solucion a mi problema aunque este complicado

Caral 07-09-2012 00:47:03

Hola
Cual es el problema en llevar un folio consecutivo de entradas y otro de salidas en una sola tabla ?.
Saludos

edgar_prospero 07-09-2012 00:50:34

pues necesito un folio 1 para entradas y un folio 1 para salidas y aunque si se puede como que se me hizo mas revuelto pero al no a ver solucion a como lo quiero hacer creo que tratare de implementarlo de esa manera aunque tendre que cambiar gran parte de mi diseño

Caral 07-09-2012 00:52:31

Hola
Dame un tiempo, voy a hacerte un ejemplo con access, pero con sql normal para que lo puedas aplicar a tu sistema.
Eso si, dame un rato.
Saludos

Caral 07-09-2012 01:11:28

Hola
Viendo el tutorial de facturacion que puse en delphiaccess la parte de factura es muy similar a lo que quieres hacer, solo se tendrian que hacer muy pequeñas modificaciones.
AQUI esta el archivo para que lo descargues, veas y me digas tus dudas.
Saludos
PD: Revisa el form factura.

edgar_prospero 07-09-2012 01:24:16

no pues cada vez estoy mas perdido amigo no logro identificar que parte podria ayudarme con mi problema de restar 2 campos de tablas diferentes, creo que ya me bloquie en esto :confused:


La franja horaria es GMT +2. Ahora son las 08:04:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi