Tengo el siguiente problema trato de enviar la suma de un campo a un Edit pero me manda el siguiente error:
"When GROUP BY exist, every simple fiels in projectors must be in GROUP BY"
El codigo que tengo es el siguiente:
Código Delphi
[-]
procedure TFrm_VentasDia.BBtn_MostrarClick(Sender: TObject);
var
VarFecha:string;
auxiliar:Real;
begin
VarFecha:=UPPERCASE(inputbox('Consulta por fecha de venta','Introduzca la fecha
de venta',''));
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select Consecutivo, CveCliente, NombreCompleto, Codigo, Grupo,
Marca, Talla,Modelo,Descripcion,Precio,FechaVenta, sum(precio) as total');
Query1.SQL.Add('from Ventas.db');
Query1.SQL.Add('Where FechaVenta =:Fecha');
Query1.sql.Add('Order by Marca,Talla');
Query1.ParamByName('Fecha').asdatetime:=strtodate(VarFecha);
Query1.Open;
auxiliar :=Query1.fieldbyname('total').AsFloat;
Edit1.Text:=floattostr(auxiliar);
end;
Gracias por la ayuda: