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

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

Código Delphi [-]
Fmodulo.Tproducto.Post;

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

// Saludos

[Nicolas_2011]

Empezado por roman

Te faltaría poner

Código Delphi [-]Fmodulo.Tproducto.Post;


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

// Saludos

Amigo el codigo me queda asi

Código Delphi [-]
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í:

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

Empezado por 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í:

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

[roman]

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

Código Delphi [-]
ShowMessage(IntTotr(Fmodulo.Tdetallefactura.FieldByName('cantidad').AsInteger));

// Saludos