[[Caral]]

Hola
Esto me pasa por escribir rapido, hace falta un close:

Código Delphi [-]
Var
 Clave : String;
 costoac: Real;
begin
   Zcompras.SQL.Text:= 'SELECT Cantidad, CostoF, Subtotal, CostoAc,Clave FROM compras ';
  Zcompras.open;

  if( Edit3.Text<> '') then
  begin
  cantidad:=  Zcompras.Fields[0].AsInteger;
  precio:= Zcompras.Fields[1].AsFloat;
  sub:= Zcompras.Fields[2].AsFloat;
  anterior:= Zcompras.Fields[3].AsFloat;
  clave:=Zcompras.Fields[4].asString;
  distribuir:=strtofloat(Edit3.Text);
 porcentaje:=(Precio/Updatesub)*100;
 miparte:=(distribuir*porcentaje)/100;
 CostoNuevo:=miparte/cantidad;
 costoac:=trunc(anterior+CostoNuevo);

 Zcompras.Close;  
 Zcompras.SQL.Text:= ' update compras set CostoAc = :costoac WHERE Clave = :clave';
 Zcompras.ParamByName('costoac').AsFloat:= costoac;
 Zcompras.ParamByName('clave').AsFloat:= clave;
 Zcompras.ExecSQL;

end;
   end;

Saludos