evento CALCFIELDS largo rompe datos en dbgrid

[emeceuy]

Hola buen dia !

Tengo una aplicacion bastante vieja a la que necesito hacer una modificacion.

La aplicacion usa un TQuery con BDE y tablas DBF (si, ya se, es viejo), cuya informacion muestra en un TDBGid. Ese Query tiene campos calculados, ya que mucha de la informacion guardada en la base de datos es un codigo y no necesito mostrar el codigo y la descripcion. Por ejemplo, guardo el PROVEEDOR codigo 11, pero en la grilla quiero mostrar "11 - PROVEEDOR X". Para eso hago una consulta a la tabla de proveedores y busco el nombre, y asi armo el campo calculado.

El problema es que en el procedimiento OnCalcFields del Query tiene varias de esas consultas a otras tablas, y lo hace "lento".

A los efectos del usuario, ni lo nota. Si me desplazo en la grilla usando la barra de desplazamiento, o el scroll, o mismo las flechas arriba y abajo (y la presiono registro a registro, levantandola), no hay problema. Pero el error sucede cuando dejas presionado la tecla de la flecha de arriba o abajo y se desplaza rapidamente. Ahi los registros que por ejemplo estaban arriba y no se veian, cuando los muestra, no los muestra bien (los entrevera con otros registros). Si me desplazo dentro de los registros que muestra (o que entran) en la grilla, no hay problema. El problema surge cuando tiene que mostrar los que no se ven y estan arriba o abajo, y dejo presionada la tecla de arriba o abajo.

No se si se entiende, es mas dificil de explicar el problema de lo que realmente es. Mi sospecha es que como el evento oncalcfields tiene consultas a otras tablas, se hace demorado, y ahi se le entreveran los registros al delphi, porque cuando te desplazas "lentamente" no hay problema.

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.

Alguien tuvo este problema? Se les ocurre solucion?

Muchas gracias, saludos !

Marcelo

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