Disminuir cantidades en una tabla

[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

[Nicolas_2011]

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

Bien cometi un error al no aclarar algo desde un principio puse una variable 'cant' para igualar. osea asi

Código Delphi [-]
Fmodulo.Tdetallefactura['cantidad'] := cant;

ahora en vez de poner las lineas anteriores puse asi

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