evento CALCFIELDS largo rompe datos en dbgrid

[[duilioisola]]

Para acelerar el tema podrías llenar un TStringList con los nombres de los proveedores y luego buscarlos de esta tabla en vez de hacer un Query Completo.

Yo hago algo parecido para guardar el stock para no tener que buscarlo/calcularlo cada vez ya que el articulo puede repetirse en muchos documentos.
Los TStringList pueden guardar registro en formato "KEY=VALUE" y puedes acceder a estos de forma rápida ya que están en memoria.
En tu caso quizás puedes rellenar en el OnCreate la lista de todos los proveedores ya que no se supone que es una tabla que cambiará.

Código Delphi [-]
  private
     { Private declarations }
     StockAlm: TStrings;
    [...]

procedure TDMxxx.DataModuleCreate(Sender: TObject);
begin
  StockAlm := TStringList.Create;
  [...]
end;

procedure TDMxxx.DataModuleDestroy(Sender: TObject);
begin
  StockAlm.Free;
  [...]
end;

procedure TDMxxx.QMDetalleCalcFields(DataSet: TDataSet);
var
  i : integer;
  Stock : double;
  Articulo : string;
begin
     /// Busco el stock en la lista. Si no lo encuentro lo calculo y lo guardo

     Stock := 0;
     Articulo := QMDetalleARTICULO.AsString;

     with StockAlm do
     begin
        i := IndexOfName(Articulo);
        if (i < 0) then
        begin
           Stock := DMMain.DameStockArticulo(Articulo);
           Values[Articulo] := FloatToStr(Stock);
        end
        else
        begin
           Stock := StrToFloat(Values[Articulo]);
        end;
     end;

     QMDetalleSTOCK.AsFloat := Stock;
  [...]
end;

procedure TDMxxx.ReiniciaStock(Articulo: string = '');
var
  i : integer;
begin
  /// Borra registro para volver a calcularlo

  if (Articulo <> '') then
  begin
     with StockAlm do
     begin
        i := IndexOfName(Articulo);
        if (i >= 0) then
           Delete(i);
     end;
  end
  else
     StockAlm.Clear;
end;