Filtrar TFDTable

[[duilioisola]]

Tengo una aplicación que con el tiempo se ha vuelto lenta.
El problema es que al abrir la tabla se trae todos los registros antes de aplicar el filtro. En mi caso particular, pedidos de ejercicios anteriores que no deseo ver.
Ej.

Código Delphi [-]
// Padidos.TableName = 'PEDIDOS' (EJERCICIO, NUMERO, FECHA, etc.)
Pedidos.Close;
Pedidos.Filtered := Fasle;Pedidos.Filter := 'EJERCICIO=2026';
Pedidos.Filtered := True;Pedidos.Open;

¿Hay alguna forma de agregar la sentencia WHERE para que solo trabaje con los registros que deseo?
O quizás algo como agregarle parámetros y antes de hacer el Open rellenarlo con el ejercicio.
Se que podría utilizar Querys con el SQL hecho a mano, pero estoy tratando de evitarlo.


¿Cómo trabajáis vosotros?


Lo raro es que la tabla detalle, que está enlazada mediante MasterSource y MasterFields, se abre inmediatamente, a pesar de tener muchos más registros. Pareciera que aplica el WHERE antes de hacer el Open.


Ej.

Código Delphi [-]
// PadidosDetalle.TableName = 'PEDIDOS_DETALLE' (EJERCICIO, NUMERO, LINEA, ARTICULO, etc.)
// PadidosDetalle.MasterSource = dsPEDIDOS
// PadidosDetalle.MasterFields = 'EJERCICIO, NUMERO'
PadidosDetalle.Close;
PadidosDetalle.Open;

[Neftali [Germán.Estévez]]

Yo crepo que la opción de las Querys es la mejor, y te recomendaría ir cambiándolas poco a poco, pero si no deseas (o no puedes) hacerlo, revisa las siguientes propiedades del TFDTable:
* FechOptions/Mode
* FechOptions/AutoFechAll

De todas formas ese comportamiento es extraño.

[[duilioisola]]

Estuve mirando y jugando con las propiedades que mencionas antes de escribir en el foro, pero no he apreciado ninguna diferencia.

Si es extraño, pero real... es raro que el componente no tenga alguna forma de acotar la búsqueda para hacer el filtro sobre lo que interesa. Idealmente una propiedad para asignar el WHERE.

En mi caso la cabecera de pedidos tiene

• EMPRESA, EJERCICIO, CANAL, SERIE, TIPO, NUMERO y 104 campos más.
• El total del registros es 48000

De los cuales, solo quiero los de la empresa + ejercicio + canal actual... unos 1400 registros.
Y mediante Filter quiero el que NUMERO = xxx... 1 solo registro
Esto tarda 4 segundos en cargar, para poder imprimir una etiqueta.

El detalle

• Tiene los mismos campos para poder hacer una foreign key, y otros 25 campos
• Tiene 216000 registros

No tarda nada porque a través del MasterSource se filtra seguramente mediante el WHERE antes de ejecutar el filtro del componente.

Lo he solucionado con Querys como mencionas y ahora no tarda nada en salir la etiqueta, pero esto me tiene mosqueado . Para una etiqueta no hay problema, pero para el resto de la aplicación es conveniente que el componente lo haga todo y no tengas que hacer Querys para cada dato... y luego los UPDATES, INSERTS y DELETES.

Gracias de todos modos!

[chenech]

Recuerdo con los TTables del BDE me pasaba lo mismo con el Filter, según la documentación de Borland decia que abría la tabla con todos los registros y luego los filtraba, yo lo solucioné en su momento con SetRange y aplicar un índice pero creo que los TFDTables no tienen esa opción de Range, a mi me tocó cambiar todas las referencias de Table a Query en una antigua aplicación al migrarla, es un buen trabajo si tienes muchos.

Así lo usaba:

TContadores->SetRangeStart();
TContadores->FieldByName("CODIGO")->AsFloat = EDesdeCodigo->Text;
TContadores->SetRangeEnd();
TContadores->FieldByName("CODIGO")->AsFloat = EHastaCodigo->Text;
TContadores->ApplyRange();

Edito:
He buscado aqqui y si dice que lo tiene, con Range me funcionaba a mi en los antiguos TTable.:
https://docwiki.embarcadero.com/Libr...DTable_Methods

[[newtron]]

Como comenta el colega chenech, la forma de hacerlo sin querys sería aplicando un rango a la tabla mediante un índice. Crearías un índice por el campo EJERCICIO y luego sería algo parecido a esto:

Código Delphi [-]
Pedidos.open;
Pedidos.Indexname := 'EJERCICIO';
Pedidos.SetRangeStart;
Pedidos.FieldByname('EJERCICIO').AsInteger:=2026;
Pedidos.SetRangeEnd;
Pedidos.FieldByname('EJERCICIO').AsInteger:=2026;
Pedidos.Applyrange;

Después de esto te encontrarás la tabla solo con los registros que cumplan la condición.


Saludos.

[Combat-F2D]

No se si es el caso, pero no descartes tirar de FDQuery y volcar el FDMemtable; esta última en RAM te será mas ágil
que tener que tirar de FDTable.
No se si será una tontería lo que digo, pero .....

[[duilioisola]]

FDQuery ---> FDMemTable ---> DataSource

Está bien para cuando tienes un formulario para visualizar datos...

¿Cuál es la "mejor práctica" para trabajar con datos cuando hay que editarlos?
Yo lo estoy haciendo así:

Supongamos esta estructura:
- PEDIDOS que tienen NUMERO, FECHA, CLIENTE, ...
- PEDIDOS_DETALLE que tienen NUMERO, LINEA, ARTICULO, CANTIDAD, ...

¿Cómo hacéis el DataModule para que sea editable?

FDQuery (TPedido) ---> DataSource (dsPedido)
- SQL = "select * from PEDIDOS order by numero"
|
+--------> FDUpdateSQL
           - DeleteSQL = "delete from PEDIDOS where numero=:old_numero"
           - InsertSQL = "insert into PEDIDOS (numero, fecha, cliente, ...) values (:numero, :fecha, :cliente, ...)"
           - FetchRowSQL = "selet * from PEDIDOS where numero=:numero"
           - LockSQL = "???"
           - ModifySQL = "update PEDIDOS set fecha = :fecha, cliente=:cliente, ...  where numero=:old_numero"
           - UnlockSQL = "???"

FDQuery (TPedidoDetalle) ---> DataSource (dsPedidoDetalle)
- SQL = "select * from PEDIDOS_DETALLE where numero=:numero order by linea"
- MasterSource = dsPedido
- MasterFields = 'NUMERO'
|
+--------> FDUpdateSQL
           - DeleteSQL = "delete from PEDIDOS_DETALLE where numero=:old_numero and linea=:old_linea"
           - InsertSQL = "insert into PEDIDOS_DETALLE (numero, linea, articulo, cantidad, ...) values (:numero, :linea, :articulo, :cantidad, ...)"
           - FetchRowSQL = "selet * from PEDIDOS_DETALLE where numero=:old_numero and linea=:linea"
           - LockSQL = "???"
           - ModifySQL = "update PEDIDOS_DETALLE set articulo = :articulo, cantidad=:cantidad, ...  where numero=:old_numero and linea=:old_linea"
           - UnlockSQL = "???"

[Combat-F2D]

mas o menos lo mismo que tu planteas, edito las memtable , y si procede lanzo la sql correpondiente sobre el origen real de los datos (BBDD)
unas veces será más logico u optimizado, y puede ser que otras veces con las simples FDTables sea lo mas comodo.

yo en su momento por problemas de red, solía hacer una descarga de las query sobre las memtables , podia tardar algo más,
pero luego par amoverme desplazarme, etc, me resultaba más eficiente; peor vamos, es una idea sin más; seguramente haya formas
más eficientes, dependiendo de las circunstancias.