Hijole amigos pues resulta que ya ingrese el codigo pero al momento de oprimir el boton actualizar me hace el calculo mal es decir si yo tengo 100 piezas me aparece 20 les pongo en si el codigo de nuevo para que vean si estoy cometiendo un error
Código:
procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
begin
with dm1.T_productos do
begin
active:=true;
SetKey;
FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
GotoNearest;
edit;
fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
fieldbyname('fecha_entrada').asstring:=sedit2.Text;
fieldbyname('piezas').asstring:=sedit1.Text;
fieldbyname('id_proveedor').asinteger:=v_idproveedor;
post;
refresh;
end;
begin
dm1.T_productos.Edit;
dm1.T_productos.FieldbyName('piezas').AsFloat:= dm1.T_productos.FieldbyName('piezas').AsFloat + StrToFloat(sEdit1.Text);
dm1.T_productos.Post;
end;
end;
De antemano gracias.