Delphi - Consulta

Hola a todos, alguien me puede decir como por que no me esta haciendo el sum correctamente, solo me lo hace para el primer registro...

Select CP.CodProd CodP,P.Articulo,P.InvInicial,sum(P.V_Entrada*CP.Cantidad)as Tot,CP.Cantidad
From CompraProd CP,FacCompra FC,Producto P Where CP.NumFac=FC.NumFac and P.CodProd=CP.CodProd Group By CodProd,CP.Cantidad,P.Articulo,P.InvInicial Union
Select VP.CodProd CodP,P.Articulo,P.InvInicial,Sum(P.v_Salida*VP.Cantidad) Tot,VP.Cantidad
From VentaProd VP,FacVenta FV,Producto P Where VP.NumFac=FV.NumFac and P.CodProd=VP.CodProd Group By CodProd,VP.Cantidad,P.Articulo,P.InvInicial

Tu problema está en el FROM

Cuando pones las tablas así nada más obligas al manejador a buscar conicidencias en todas las relaciones que pones, usa en lugar de relaciones directas JOIN o LEFT JOIN

checa el mensaje "Consulta SQL Sirjhan Betancourt (29/07/2008)" que está más abajo, ahi puse una consulta así

Para asegurar que se muestren todas las filas, deberías usar Union All. Además, atendiendo a lo que dice ET, si tu motor de base de datos lo permite, deberías usar los joins.
Así, tu query quedaría más o menos como esto:

Select
CP.CodProd CodP,
P.Articulo,
P.InvInicial,
sum(P.V_Entrada*CP.Cantidad)as Tot,
CP.Cantidad
From
CompraProd CP inner join FacCompra FC
on CP.NumFac=FC.NumFac inner join Producto P
on P.CodProd=CP.CodProd
Group By
CP.CodProd,
P.Articulo,
P.InvInicial,
CP.Cantidad

Union All

Select
VP.CodProd CodP,
P.Articulo,
P.InvInicial,
Sum(P.v_Salida*VP.Cantidad) Tot,
VP.Cantidad
From
VentaProd VP inner join FacVenta FV
on VP.NumFac=FV.NumFac inner join Producto P
on P.CodProd=VP.CodProd
Group By
CodProd,
VP.Cantidad,
P.Articulo,
P.InvInicial

Espero que te sirva.

Saludos.