Formato moneda Firebird 2.1

[Casimiro Notevi]

En los campos del dataset debes poner el displayformat que te interese, ejemplo: '#,##0.00'

[santiago14]

Empezado por Casimiro Notevi

En los campos del dataset debes poner el displayformat que te interese, ejemplo: '#,##0.00'

¿Podrías poner un ejemplo por favor?

Supongamos que tenemos la siguiente forma:

Código Delphi [-]
  with qProducto do
  begin
    close;
    sql.clear;
    sql.add('Select p.cod_producto, p.nombre_producto, p.precio_producto as precio_unitario, ');
    sql.add('p.estado_producto ');
    sql.add('From productos p ');
    sql.add('Where p.nombre_producto LIKE :descripcion ');
    sql.add('and p.medida_producto LIKE :unidad ');
    sql.add('Order by p.nombre_producto asc ');

    ParamByName('descripcion').AsString:='%' + ansiUpperCase(descripcion) + '%';
    ParamByName('unidad').AsString:='%' + ansiUpperCase(unidad_medida) + '%';
    try
      Open;
    except
      raise;
    end; //del try
  end; //del with

Aquí me devuelve la lista, y los precios (p.precio_producto) tienen el problema citado. Lo veo cuando pongo la lista que me devuelve el query en la grilla.

Gracias.

[Casimiro Notevi]

Puedes poner algo así como:

Código Delphi [-]
qProducto.FieldByName('precio_producto').displayformat:='#,##0.00';

[ContraVeneno]

Utilizando el formato "$ ,0.00", sería fuciciente; no es necesario poner el símbolo " # ".

[santiago14]

Empezado por Casimiro Notevi

Puedes poner algo así como:

Código Delphi [-]
qProducto.FieldByName('precio_producto').displayformat:='#,##0.00';

"DisplayFormat" no está en la lista de propiedades del objeto TMDOQuery (qProducto), estuve buscando alguno que se pareciera pero nada.

Gracias.

[Casimiro Notevi]

¿Qué componente estás usando?, un ¿MDOdataSet?, entonces haz un 'cast', algo así como:
(qProducto as TDataSet).Fieldbyname('precio_producto').displayformat := '#0.00';

[Casimiro Notevi]

Lo he probado así:

Código Delphi [-]
(qProducto.FieldByName('precio_costo') as TMDOFloatField).DisplayFormat := '#,##0.00';

Otra cosa que puedes hacer es doble click en el componente query, añades los campos y entonces luego usarías algo así como:

Código Delphi [-]
qProductoprecio_costo.DisplayFormat := '#,##0.00';

[guillotmarc]

Otra posibilidad :

qProducto.FieldByName('precio_producto').Currency := True;

Saludos.

[santiago14]

Empezado por Casimiro Notevi

¿Qué componente estás usando?, un ¿MDOdataSet?, entonces haz un 'cast', algo así como:
(qProducto as TDataSet).Fieldbyname('precio_producto').displayformat := '#0.00';

Para realizar la consulta uso un TMDOQuery.
Voy a probar con las diversas opciones que me han puesto y luego les comento.

[santiago14]

He probado todas las opciones que me han dado y no resultaron. Parece que hoy no es un buen día. Seguiré intentando.
Gracias igual.