Dar formato de moneda a consulta SQL

[Phacko]

¿ que tal?. Tengo duda respecto a dar formato de moneda en una etiqueta, a una cantidad obtenida de una consulta SQL, esta consulta es la suma de un campo. Base de datos de Firebird, Interbase y Delphi 2010. Gracias de antemano.

[Casimiro Notevi]

¿Y cuál es la duda?

[Phacko]

Gracias, la duda es ¿como darle formato? a la suma obetenida por la consulta:

Código SQL [-]
Select sum(Importe) from ventas

al presentarla en una TLabel o en un TEdit.

Gracias nuevamente

[[Al González]]

Necesitamos que nos ayudes a ayudarte. Primera pregunta: ¿qué tipo de objeto o componente estás usando para lanzar la consulta? ¿Podemos ver esa parte de tu código?

Un consejo, asegúrate de que tus mensajes de consulta en los tableros tengan al menos 1024 caracteres, ya que los foros aplican un mecanismo de validación automático HashiMirö, el cual envía los mensajes de apertura de hilo más cortos y confusos al final de la cola de espera.

[Phacko]

Bien seré un poco mas explicito. Hago una consulta para mostrar movimientos en un DBGrid, todo bien, pero es necesario obtener el total de uno de los campos y mostrarlo con formato de moneda en un TLAbel, que es lo que no he logrado, para lo que hago una consulta de todos los campos para el DBGrid y realizo otra para obtener la suma de los registros de el campo Importe, el resultado se obtiene bien en un DBEdit o en un DBText pero sin formato por tal razón pensé en utilizar un TLabel o TEdit para poder dar el formato de moneda. Utilizo un IBQuery y DataSource. Realmente no se que mas decir al respecto. O si alguien me puede recomendar otra forma de obtener y mostrar la suma del campo, lo agradecería mucho.

Gracias, espero ser un poco mas claro.

[[AgustinOrtu]]

Código Delphi [-]
  Label.Caption := CurrToStr(moneda);
  Label.Caption := CurrToStrF(moneda, ffCurrency, 2):

Eso son solo dos ejemplos. Hay muchísimas maneras de transformar moneda a texto

FormatCurr

CurrToStrF

http://www.delphibasics.co.uk/RTL.asp?Name=CurrToStr

Aunque coincido con los compañeros, no das información suficiente. Por ejemplo, necesitas que aparezca o no determinado símbolo de moneda? Cuantos decimales utilizar? Utilizas la configuración regional del sistema operativo o prefieres establecer los distintos parámetros (símbolo moneda, separador miles, separador decimales, símbolo de negativo, cantidad de dígitos, etc)

Saludos

[Phacko]

Gracias por la respuesta, el símbolo de moneda no es necesario, 2 decimales, separador de miles, es algo sencillo.
Gracias.

[ecfisa]

Hola Phacko.

Código Delphi [-]
  with tu_Query do
  begin
    Close;
    SQL.Text:= 'SELECT SUM(IMPORTE) AS TOTAL FROM VENTAS';
    Open;
    TFloatField(FieldByName('TOTAL')).DisplayFormat := ',0.00';
  end;

Si creas el campo persistente, en tiempo de diseño puedes asignar el valor a la propiedad DisplayFormat desde el Object Inspector.

Saludos

[Casimiro Notevi]

Empezado por Al González

Un consejo, asegúrate de que tus mensajes de consulta en los tableros tengan al menos 1024 caracteres, ya que los foros aplican un mecanismo de validación automático HashiMirö, el cual envía los mensajes de apertura de hilo más cortos y confusos al final de la cola de espera.

Ciertamente, este había sido penalizado por el sistema, había sido enviado a la cola de "pendientes y confusos", es muy difícil sacarlo de ahí
Menos mal que alguno de los expertos moderadores consiguió rescatarlo aplicando un AEBD (algoritmo de expresiones binarias difusas) y pudo ser contestado por fin

[Phacko]

Gracias Ecfisa por responder, mis dudas se van dicipando, imagino que si utilizo un DBText al DBSource, mostrará la cantidad con formato. Estoy más frío de lo que pensaba. Probaré tu sugerencia y comento. Nuevamente gracias.
Tendré mas cuidado en futuras consultas.
Gracias a todos.

[Casimiro Notevi]

El libro indispensable.

[Phacko]

Como siempre, estoy muy agradecido.

La grandesa de un pueblo... su gente.

[Phacko]

Hola a todos.

He hecho la prueba del código y todo perfecto, como anillo al dedo. De nuevo muchas gracias.

En alguna ocasión lo dije, ahora lo confirmo, mi reconocimiento a todos por regalar parte de su tiempo y compartir sus conocimientos, que entre familia y trabajo, que ya es mucho decir, piensan en los demás y se dan espacio para hacerlo.

Muchas gracias.
A sus ordenes y mi admiración.