Disminuir cantidades en una tabla

[Nicolas_2011]

Buen dia foreros tengo un progamita en el cual se compra y se vende mercaderias tengo una tabla para VENTAS, una tabla para COMPRAS, una tabla para PRODUCTOS, (Ahi mas pero creo q estas involucran lo q necesito), Lo cual es lo siguiente ya se al momento de una venta o al momento de una compra, en la tabla de PRODUCTOS necesito que aumenten o disminuyen la cantidad 'stock' de producto que se esta vendiendo o comprando.
yo al momento de seleccionar la cantidad y el producto ejecuto esta linea de codigo

Fmodulo.Tproducto.Active := True;
Fmodulo.Tproducto.Edit;
Fmodulo.Tproducto ['Stock'] := Fmodulo.Tproducto ['Stock'] + Fmodulo.Tdetallefactura['cantidad'];
Fmodulo.Tproducto.Active := False;

Esto siendo en el caso de la compra.

Pero por eso estoy aqui, al momento de probarlo voy a la BD reviso la tabla de productos y no modifico absolutamente nada.
alguna ayuda??

[roman]

Te faltaría poner


Fmodulo.Tproducto.Post;


después de la asignación del nuevo valor.

// Saludos

[Nicolas_2011]

Te faltaría poner

Código Delphi [-] (http://www.clubdelphi.com/foros/#)Fmodulo.Tproducto.Post;


después de la asignación del nuevo valor.

// Saludos


Amigo el codigo me queda asi

Fmodulo.Tproducto.Active := True;
Fmodulo.Tproducto.Edit;
Fmodulo.Tproducto ['Stock'] := Fmodulo.Tproducto ['Stock'] + Fmodulo.Tdetallefactura['cantidad'];
Fmodulo.Tproducto.Post;
Fmodulo.Tproducto.Active := False;

Pero me da error diciendo que la columna stock no puede ser nula

[roman]

Bueno, el código es correcto, ya el problema debe ser otra cosa. Quizá el valor de Fmodulo.Tdetallefactura['cantidad'] no sea correcto y delphi lo convierte en null al asignarlo. Prueba poniendo así:


Fmodulo.Tproducto.FieldByName('Stock').AsInteger := Fmodulo.Tproducto.FieldByName('Stock').AsInteger + Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger;


para discernir mejor porqué se da el error.

// Saludos

[Nicolas_2011]

Bueno, el código es correcto, ya el problema debe ser otra cosa. Quizá el valor de Fmodulo.Tdetallefactura['cantidad'] no sea correcto y delphi lo convierte en null al asignarlo. Prueba poniendo así:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)Fmodulo.Tproducto.FieldByName('Stock').AsInteger := Fmodulo.Tproducto.FieldByName('Stock').AsInteger + Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger;


para discernir mejor porqué se da el error.

// Saludos


Bien. Ahora ya no me da ningun error. pero no modifica el producto en la BD. :mad:

[roman]

Debe haber un error en los datos. Verifica el valor de Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger, poniendo, por ejemplo:


ShowMessage(IntTotr(Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger));


// Saludos

[Nicolas_2011]

Debe haber un error en los datos. Verifica el valor de Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger, poniendo, por ejemplo:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)ShowMessage(IntTotr(Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger));


// Saludos

Bien cometi un error al no aclarar algo desde un principio puse una variable 'cant' para igualar. osea asi
Fmodulo.Tdetallefactura['cantidad'] := cant;

ahora en vez de poner las lineas anteriores puse asi
Fmodulo.Tproducto.FieldByName('Stock').AsInteger := Fmodulo.Tproducto.FieldByName('Stock').AsInteger + cant;

ahora no da error y si modifica el stock en la base de datos. Pero hay otro problema ahora. por ejemplo compre 10 bolsas de arroz y ya tenia 10 osea al actualizar tengo 20. perfecto anda bien. pero ahora al querer agregar otra compra por ejemplo fideos compro 50 bolsas y tenia 10 deberia tener 60 pero no. esas 50 bolsas se suman al stock de arroz de 20 pasa a 70 espero q me entiendas. es decir todas las siguentes compras se suman a la primera que hice.

[roman]

Bueno, tienes que moverte al registro adecuado. La asignación a Fmodulo.Tproducto.FieldByName('Stock').AsInteger será siempre al registro activo. Si cambias de producto pues tienes que ubicarte en ese otro producto usandlo Locate o algún méodo similar.

// Saludos

[Nicolas_2011]

Bueno, tienes que moverte al registro adecuado. La asignación a Fmodulo.Tproducto.FieldByName('Stock').AsInteger será siempre al registro activo. Si cambias de producto pues tienes que ubicarte en ese otro producto usandlo Locate o algún méodo similar.

// Saludos

Nunca utilizamos el locate. Podrias explicarme como hacerlo?

[roman]

Cuando añades cantidad al arroz, ¿cómo hiciste para localizar ese producto, arroz?

// Saludos

[Nicolas_2011]

Cuando añades cantidad al arroz, ¿cómo hiciste para localizar ese producto, arroz?

// Saludos

Desde un listado de productos. (dbgrid)

[roman]

¿Y lo mismo haces con el segundo producto? Porque entonces no deberías tener probema. El componente Fmodulo.Tproducto ¿es el mismo que está conectado al dbgrid?

// Saludos

[Nicolas_2011]

¿Y lo mismo haces con el segundo producto? Porque entonces no deberías tener probema. El componente Fmodulo.Tproducto ¿es el mismo que está conectado al dbgrid?

// Saludos

el datasurce del dbgrid esta conectado al dsqproducto ( query)

[Casimiro Notevi]

Creo que estás un poco verde, amigo Nicolas_2011, te voy a recomendar un libro estupendo, es gratis, puedes descargarlo desde nuesto FTP y está aquí (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4.pdf.zip), habla de la programación en delphi con bases de datos, es de lo mejor que te puedas encontrar, además es muy didáctico y ameno.
Te aconsejo que lo tengas como tu "libro de cabecera", después de leerlo verás "de otra manera" el mundo de la programación con bases de datos :)

[roman]

el datasurce del dbgrid esta conectado al dsqproducto ( query)

A ver. Es que , o bien como dice Casimiro, estás verde, o bien no te estoy entendiendo.

Tus datos siempre van a estar representados en un dataset, bien sea un Table o un Query. Un dataset siempe tiene un registro que es el activo. Cuando recién abres el dataset, dicho registro activo será el primero. Para moverte por el dataset hay muchas formas. Puedes hacerlo manualmente con métodos como Next, Prior, First, Last o Locate, o bien porquedicho Dataset está conectado a un control de rejilla como un dbgrid o un control de navegación como un dbnavigator.

Pero si tienes dos datasets apuntando al mismo conjunto de datos, como parece ser el caso con TProducto y dsqproducto, pues cada uno tiene su propio registro activo.

Para una mejor ayuda tendrías que describir con más amplitud el proceso que sigues para una venta o una compra. Y no me refiero a que nos pongas aquí todo el código de tu proyecto, sino que describas dónde mustras tus productos, cómo realizas una compra, el usuario tiene que seleccionar el producto o qué?, etc.

// Saludos

[Nicolas_2011]

Creo que estás un poco verde, amigo Nicolas_2011, te voy a recomendar un libro estupendo, es gratis, puedes descargarlo desde nuesto FTP y está aquí (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4.pdf.zip), habla de la programación en delphi con bases de datos, es de lo mejor que te puedas encontrar, además es muy didáctico y ameno.
Te aconsejo que lo tengas como tu "libro de cabecera", después de leerlo verás "de otra manera" el mundo de la programación con bases de datos :)

Muchas gracias ya lo descargue :)

[Nicolas_2011]

A ver. Es que , o bien como dice Casimiro, estás verde, o bien no te estoy entendiendo.

Tus datos siempre van a estar representados en un dataset, bien sea un Table o un Query. Un dataset siempe tiene un registro que es el activo. Cuando recién abres el dataset, dicho registro activo será el primero. Para moverte por el dataset hay muchas formas. Puedes hacerlo manualmente con métodos como Next, Prior, First, Last o Locate, o bien porquedicho Dataset está conectado a un control de rejilla como un dbgrid o un control de navegación como un dbnavigator.

Pero si tienes dos datasets apuntando al mismo conjunto de datos, como parece ser el caso con TProducto y dsqproducto, pues cada uno tiene su propio registro activo.

Para una mejor ayuda tendrías que describir con más amplitud el proceso que sigues para una venta o una compra. Y no me refiero a que nos pongas aquí todo el código de tu proyecto, sino que describas dónde mustras tus productos, cómo realizas una compra, el usuario tiene que seleccionar el producto o qué?, etc.

// Saludos

Bien.. un form. en el cual tengo dbgrid el cual funcionara como un detalle de venta(por detras esta dicha tabla) en el se reflejaran los productos que seleccionare. un vez que haya puesto la cantidad del producto que se quiere luego se presionara un boton 'agregar producto' el cual abrira el formulario en donde esta el listado de productos. se seleccionara un producto y se presionara boton "seleccionar" esto enviara todos los datos de este producto al dbgrid (detalle de venta) ademas de tambien postearlo en la BD. Lo que quiero que tambien haga este boton es que modifique el stock de el / los productos seleccionados.

[Casimiro Notevi]

Muchas gracias ya lo descargue :)

Estupendo, ya estás tardando en leerlo :)

[oscarac]

por lo que pude leer, al parecer no estas ubicando el producto correctamente....

Yo particularmente hago las actualizaciones de Stock en una tabla cuando se cierra el mes, puesto que dentro del mes pueden hacerse modificaciones, reingresos, eliminaciones, altas, bajas de productos, documentos, etc, lo cual hace que el stock se encuentre en total movimiento

si quiero calcular el stock hago lo siguiente

busaco el dato del saldo anterior (en una tabla)
luego reviso los movimientos del mes (o periodo)
sumo y resto en una tabla temporal para mostarlo....:eek:
y listo

OJO solo son ideas... la tuya tambien puede ser muy buena...

[Nicolas_2011]

por lo que pude leer, al parecer no estas ubicando el producto correctamente....

Yo particularmente hago las actualizaciones de Stock en una tabla cuando se cierra el mes, puesto que dentro del mes pueden hacerse modificaciones, reingresos, eliminaciones, altas, bajas de productos, documentos, etc, lo cual hace que el stock se encuentre en total movimiento

si quiero calcular el stock hago lo siguiente

busaco el dato del saldo anterior (en una tabla)
luego reviso los movimientos del mes (o periodo)
sumo y resto en una tabla temporal para mostarlo....:eek:
y listo

OJO solo son ideas... la tuya tambien puede ser muy buena...

Muy buena idea. Gracias por compratirla ^\||/

[roman]

Yo particularmente hago las actualizaciones de Stock en una tabla cuando se cierra el mes, puesto que dentro del mes pueden hacerse modificaciones, reingresos, eliminaciones, altas, bajas de productos, documentos, etc, lo cual hace que el stock se encuentre en total movimiento

si quiero calcular el stock hago lo siguiente

busaco el dato del saldo anterior (en una tabla)
luego reviso los movimientos del mes (o periodo)
sumo y resto en una tabla temporal para mostarlo....:eek:


Hay algo que no entiendo aquí. Si sólo actualizas el stock cada mes, ¿cómo sabes, al momento de hacer una venta, si tienes mercancia disponible?

// Saludos

[roman]

Bien.. un form. en el cual tengo dbgrid el cual funcionara como un detalle de venta(por detras esta dicha tabla) en el se reflejaran los productos que seleccionare. un vez que haya puesto la cantidad del producto que se quiere luego se presionara un boton 'agregar producto' el cual abrira el formulario en donde esta el listado de productos. se seleccionara un producto y se presionara boton "seleccionar" esto enviara todos los datos de este producto al dbgrid (detalle de venta) ademas de tambien postearlo en la BD. Lo que quiero que tambien haga este boton es que modifique el stock de el / los productos seleccionados.

A ver, tienes un dbgrid con los detalles de la venta que, imagino, está conectado a una tabla detallesVenta ( o de nombre similar) en la base de datos. La tabla detallesVenta tendrá, como mínimo estos tres campos:

ventaId, productoId, cantidad

es decir, el ID de la venta a la que pertenece, el ID del producto que se agrega y la cantidad de este producto.

Me parece que lo que yo haría es usar el evento AfterPost del dataset conectado a este DBGrid de detalles. En este evento, dispones entonces del ID del producto en cuestión y de la cantidad. Así, en este evento puedes hacer una actualización del stock:


procedure TablaDetallesVentaAfterPost(Dataset: TDtaSet);
begin
// Aquí buscas el artículo en l tabla de productos
TablaProductos.Locate('ID', DataSet['articuloId'], []);

// Disminuyes la cantidad vendida
TablaProcuctos['stock'] := TablaProductos['stock'] - DataSet['cantidad'];

// Grabas el cambio en la base
TablaProductos.Post;
end;


Para una compra haces lo mismo en el AfterPost de TablaDetallesCompra, aumentando en lugar de disminuir, la cantidad del stock.

// Saludos