Ayuda con consulta que me tiene ...

[[Ivanzinho]]

prueba a hacer lo siguiente a ver si te funciona:

1.-crea la siguiente query

Código Delphi [-]
consulta := '';
consulta := consulta + 'Select lote, articulo,Sum(kgs) kgs ' ;
consulta := consulta + 'from Ttransformaciones ';
consutla := consulta + 'Group By lote, articulo';
 
query.Close;
query.SQL.Clear;
query.SQL.Add(consulta);
query.Open;

2.- Crea dos campos calculados KgsEnt y RdTo donde:
2.1 kgsEnt es :

Código SQL [-]
Select Sum(kgs) from Tentrada
where lote = querylote.value

2.2 y Rdto es:

Código Delphi [-]
Rdto := querykgs.value / querykgsEnt.value;

No lo probe pero debería funcionar, aunque igual hay algún error tonto por el medio pero no creo que te de problema alguno.

Pruébalo y ya me comentarás.

Suerte

[rtorioa]

Joer, ahora si q me has liao, no te he entendido muy bien, ¿donde te creas los campos calculados?

Menuda consultita ...

[[Ivanzinho]]

Empezado por rtorioa

Joer, ahora si q me has liao, no te he entendido muy bien, ¿donde te creas los campos calculados?

Menuda consultita ...

Que lenguaje de programación estás usando, di por supuesto que usabas delphi, pero igual supuse de más

[rtorioa]

si, uso delphi, pero bueno, como la consulta todavía no la tengo clara la estoy probando en access directamente, luego ya generarla en delphi y mandarla no tengo problema, pero claro, mientras la consulta no funcione....

Creo que me expliqué, gracias y un saludo.

[[Ivanzinho]]

Empezado por rtorioa

si, uso delphi, pero bueno, como la consulta todavía no la tengo clara la estoy probando en access directamente, luego ya generarla en delphi y mandarla no tengo problema, pero claro, mientras la consulta no funcione....

Creo que me expliqué, gracias y un saludo.

Ok, yo con el access no te puedo ayudar mucho, ya que lo único que tengo echo con el son pequeñas BD´s caseras, pero si haces como te comente aqui no creo que tengas ningun problema.

Lo que tienes que hacer es agregar un componente Query a tu formulario, en la propiedad SQL pones :

Código SQL [-]
Select lote, articulo,Sum(kgs) kgs;
from Ttransformaciones
Group By lote, articulo

luego haces dobleclick sobre el componente pinchas con el botón derecho y añades todos los campos, luego creas los campos que te comente anteriormente (KgsEnt y Rdto) pinchando con el botón derecho pero ahora eliges new field (Crea los dos).

En el evento OnCalcField del query calculas el valor de estos dos campos como te comente aqui, para el campo KgsEnt tendras que usar otra query y agregarle la consulta que te indico.

Finalmete solo te quedara asignarle un DataSource y este relacionarlo con una grid.

Si tienes alguna duda sobre la utilización de los querys te recomiendo que te descargues La cara oculta de delphi 4 de aquí el libro tiene cosas que ya se quedaron algo anticuadas (ya tiene sus años) pero para lo que se comentó en este hilo te vale perfectamente.

Espero que lo soluciones lo antes posible (mantenme informado )

[rtorioa]

si señor, eres un genio, ya lo solucioné.

Me cré esa tabla en access con un select .... into y hice la consulta que tu me pasaste y.... ¡FUNCIONA!
Muchisimas gracias, te debo una