evento CALCFIELDS largo rompe datos en dbgrid

[Casimiro Noteví]

Empezado por emeceuy

... Se que una solucion seria hacer un gran query con join y ya traer la info de todas las tablas jutas, pero quisiera evitarlo para evitar pasar horas reconstruyendo y modificando todo.

Es que dbf y bde...
Pero sí, deberías quitar todo eso del evento calcfields y crear un select completo.
Ya sabes, algo como:

Código SQL [-]
select 
  c.id, c.numero, c.total, c.idproveedor
  p.nombre
from tbcompras c
join tbproveedores p on p.id=c.idproveedor
etc...

[emeceuy]

Empezado por Casimiro Notevi

Es que dbf y bde...
[/sql]

Si... lo se pffffffffffff...

Gracias por tu respuesta, Casimiro...

Se que es una solucion pero como son muchos modulos que modificar, me llevaria muchas horas y quisiera dejarlo como un plan C si no encuentro otra solucion:
plan A: limitando la repeticion de la tecla cuando se deja presionada (que ahi es que avanza rapidamente y surge el problema)
plan B: haciendo que el proceso en DBTables de mostrar un registro (de arriba o de abajo del grid) no continue con el siguiente registro hasta que finalice con el registro anterior (proceso en el cual esta incluido el calcfiles). Eso enlenteceria la velocidad de desplazamiento, no habria problema. Probé algunas cosas pero no consegui hacerlo funcionar bien.

Saludos!

[[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;

[emeceuy]

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

Gracias por tu respuesta duilioisola !

Voy a probarlo, seguramente va a acelerar.

Saludos!