Ver Mensaje Individual
  #1  
Antiguo 22-12-2009
PallyRS PallyRS is offline
Miembro
 
Registrado: nov 2008
Ubicación: Nuevitas - Cuba
Posts: 43
Reputación: 0
PallyRS Va por buen camino
Thumbs up Mostrar en Reporte suma de records iguales ((Solucionado))

Hola Foro:

Tengo una consulta realizada para que me muestre en un reporte los campos de una tabla, pero con la condición de que si existen records de un mismo producto solo me muestre una vez y con la suma de este.

Les coloco el código para que me ayuden pues no logro que eso suceda, en realidad me muestre todo, sin hacer la agrupación ó resumen deseado. Estoy utilizando Delphi 7 y QuicReport

Gracias de antemano.

Código Delphi [-]
Anual:=DMPlanNegocio.ADOTFecha_PlanAnual.CurValue;
DMPlanNegocio.ADOQuery_PlanVentasFisicas.Close; DMPlanNegocio.ADOQuery_PlanVentasFisicas.SQL.Clear;
DMPlanNegocio.ADOQuery_PlanVentasFisicas.SQL.Add('SELECT Cliente, Producto, Anual, UM, SUM(Enero) AS Enero, SUM(Febrero)AS Febrero, Sum(marzo) AS Marzo, Sum(abril) AS Abril, Sum(mayo) AS Mayo, Sum(junio) AS Junio, Sum(julio) AS Julio,');
DMPlanNegocio.ADOQuery_PlanVentasFisicas.SQL.Add('Sum(agosto) AS Agosto, Sum(sept) AS Sept, Sum(octubre) AS Octubre, Sum(noviemb) AS Noviemb, Sum(diciemb) AS Diciemb');
DMPlanNegocio.ADOQuery_PlanVentasFisicas.SQL.Add('FROM PlanVentasFisicas');
DMPlanNegocio.ADOQuery_PlanVentasFisicas.SQL.Add('WHERE Anual= :Anual');
DMPlanNegocio.ADOQuery_PlanVentasFisicas.Parameters.ParamByName('Anual').Value:=Anual;
DMPlanNegocio.ADOQuery_PlanVentasFisicas.SQL.Add('GROUP BY Cliente, Producto, Anual, UM');
DMPlanNegocio.ADOQuery_PlanVentasFisicas.ExecSQL;   DMPlanNegocio.ADOQuery_PlanVentasFisicas.Active:=True;

Permitanme adicionarles algo para que estén más claro, no sé si esto influya.
Estoy trabajando sobre un servidor SQLSERVER 2005 Express Edition

Última edición por PallyRS fecha: 23-12-2009 a las 20:38:14.
Responder Con Cita