Ayuda con consulta que me tiene ...

[marcoszorrilla]

Mira a ver si con esta idea lo logras:

Código SQL [-]
  Select E.lote, Sum(E.entrada),T.articulo,Sum(T.kgs),Sum( T.kgs / E.Entrada)  as Rdto 
  From Tenentradas as E,Ttransformaciones as T
  Where E.lote = t.Lote
  Group By E.Lote, T.Articulo

Un Saludo.

[rtorioa]

Te ha pasado exactamente lo mismo que a mi, esa consulta no va bien
por cada ocurrencia en la tabla transformaciones de un articulo multiplica el sum(entradas),

es decir, me multiplica los sum por cada ocurrencia en las tablas, no lo entiendo ......

[[Ivanzinho]]

Prueba con esto :

Código SQL [-]
Select E.lote, Sum(E.kgs), T.articulo,Sum(T.kgs), Sum(T.kgs)/Sum(E.kgs) as Rdto
from Tentradas as E, Ttransformaciones as T
Where E.lote = T.lote
Group By E.lote, T.articulo

[rtorioa]

igual, me sale lo mismo,
¿ que es lo que está mal?
Esto me esta fastidiando ...

[[Ivanzinho]]

Mira lo probe y si que da el resultado que comentas, yo lo solucione de la sigunete manera

Cree la vista VEntrada donde agrupo todas las entradas del mismo lote en el mismo registro

Código SQL [-]
CREATE VIEW VENTRADA(LOTE,KGS)
AS
select lote, sum(kgs) from Tentrada
Group by lote;

y luego hice la siguiente consulta

Código SQL [-]
Select E.lote, E.kgs, T.articulo,Sum(T.kgs), Sum(T.kgs)/E.kgs as Rdto
from Ventrada E, Ttransformaciones T
Where E.lote = T.lote
Group By E.lote, T.articulo, E.kgs

Así sí funciona, lo probé

Un saludo y espero que te valga esta forma.

[rtorioa]

Utilizo access y no me deja crear vistas, no se si podré hacer algo parecido.

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