Estoy intentando hacer algo simple como mostrar en un DBGrid una columna como Currency.
Si bien lo he logrado exitosamente en otras oportunidades, esta vez es un campo calculado y no lo puedo hacer andar.
La consulta es esta:
Código Delphi
[-] Modulo.Consulta.Active := FALSE;
Modulo.Consulta.SQL.Clear;
Modulo.Consulta.SQL.Add('SELECT Month(Fecha)as Mes, SUM(Total) as Total FROM Ventas');
Modulo.Consulta.SQL.Add('WHERE Year(Fecha) = :pFecha');
Modulo.Consulta.SQL.Add('GROUP BY Month(Fecha)');
Modulo.Consulta.Parameters.ParamByName('pFecha').Value := Edit_Anio.Text;
Modulo.Consulta.Active := TRUE;
He probado las siguientes opciones:
Opción 1:Código Delphi
[-]Modulo.Consulta.SQL.Add('SELECT Month(Fecha)as Mes, FORMAT(SUM(Total),"Currency") as Total FROM Ventas');
Resultado: El DBGrid no muestra nada en esa columna
Opción 2:
Código Delphi
[-]Modulo.Consulta.SQL.Add('SELECT Month(Fecha)as Mes, CCur(SUM(Total)) as Total FROM Ventas');
Resultado: El DBGrid muestra los resultados igual que en la consulta original
Opción 3: Varios intentos en el evento DrawCell con cosas del siguiente estilo
Código Delphi
[-]DBGrid_Ventas.Fields[1].SetFieldType(ftCurrency);
Resultado: Idem anterior.
Estoy trabajando en Delphi 7, con ADO y base de datos en Access.
¿En que le puedo estar errando?.
Gracias de antemano!