Revision en segundo plano de una tabla paradox

[chrids506]

Saludos, tengo un problemita, tengo una aplicación que maneja el inventario de una bodega (de una importadora), pero necesito que mientras la aplicación se encuentre ejecutándose esta verifique la tabla de datos de productos buscando 2 cosas:
1 que la cantidad de unidades sea mayor a cero (de no ser así notificar)
2 que la cantidad de unidades sea mayor al piso (cantidad de unidades minimas establecidas al momento de agregar el producto)

quiero que esto se haga en segundo plano, pero no se como, alguna idea?


Composición de la tabla de datos: |Codigo|Nombre|Unidades|Costo|Piso|


Saludos, y gracias de antemano
Chrids

[[Lepe]]

En segundo plano podría ser ocultandolo al usuario, por ejemplo con un timer y que se ejecute cada X segundos.

la única forma que tendrás de hacerlo es por consultas (Tquery), es lo más eficiente.

1 que la cantidad de unidades sea mayor a cero (de no ser así notificar)

Código SQL [-]
select codigo, nombre from productos where unidades <= 0

Para cada registro de esa consulta, deberás notificarlo como quieras, mediante un log, una ventanita que se abre e indica los nombres de productos, etc.


2 que la cantidad de unidades sea mayor al piso (cantidad de unidades minimas establecidas al momento de agregar el producto)

Código SQL [-]
select codigo, nombre from productos where unidades > piso

Lo mismo que antes, todos los registros que haya en esa consulta, serán los que quieres notificar.

Intuyo que no has usado un Tquery, así que pon uno en el form, establece su propiedad DatabaseName, en la propiedad sql haz clic y escribe ese código sql.

Añade un TDatasource, en su propiedad Dataset, elige el Query1.

Pon un Grid (para ver los resultados) su propiedad Datasource, que apunte a un TDatasource anterior.

Establece la propiedad Active del TQuery a true y verás los resultados incluso en tiempo de diseño.

Saludos

[chrids506]

Empezado por Lepe

Añade un TDatasource, en su propiedad Dataset, elige el Query1.

Pon un Grid (para ver los resultados) su propiedad Datasource, que apunte a un TDatasource anterior.

Establece la propiedad Active del TQuery a true y verás los resultados incluso en tiempo de diseño.

Saludos

Tiempo sin verte Lepe, me agrada que estes bien, el problema es que sigo sin saber SQL, yo me conecto asi (de mente porque no tengo el código aquí):

DataModule1.DataSource1.Table1.Database := {direción}
DataModule1.DataSource1.Table1.Data := {direción}
DataModule1.DataSource1.Table1.Active

o algo así, para hacer las busquedas uso un locate, no habrá forma de hacerlo con .first, .next y la propiedad Eof? o no es recomendable?

[chrids506]

Tengo otra pregunta, que pasa si hago un while cada X segundos, la aplicación se quedaría pagada mientras termina no?

[[ArdiIIa]]

Lo mas oportuno sería lanzar un Thread que vaya haciendo el trabajo.
En el directorio Demos\db\BkQuery tienes la aplicación BkQuery que te ilustra como hacerlo.

[chrids506]

Gracias por la ayuda