qreport QrDbText propiedad Mask

[shoulder]

Hola gracias como me explican ustedes funciona, pero aqui viene el problema...quieren que liste con 4 decimales.. por eso uso en el select la instruccion

format((if (b.precios is null,sum(a.stock_actual * a.valor), (sum(a.stock_actual * a.valor) + (b.precios)))) + if (sinoc.preciosinoc is null,0, sinoc.preciosinoc),4)

y en el qreport no me hace caso a la mascara que defina o a los valores por defectos que inicialice me escribe siempre

1,000,000.0000


(sino uso esa instruccion me vienen dos decimales)

[[Al González]]

¿Ya intentaste poniendo el formato ,0.0000?

[shoulder]

Hola, si intente, pero al poner format dentro del select y como el Mysql tiene por defecto el formato , (miles) y . decimales, no me hace caso a nada la mascara. No se que alterativa inventar.

[ecfisa]

Empezado por shoulder

Hola, si intente, pero al poner format dentro del select y como el Mysql tiene por defecto el formato , (miles) y . decimales, no me hace caso a nada la mascara. No se que alterativa inventar.

Hola shoulder.

Tratándose de un TQRDBText, se hace difícil unificar ejemplos y resultados ya que dependen de los datos. Pero creo un modo simple de hacerlo es usando el viejo DBDEMOS que viene con Delphi.

En un form pone: Un TQuickRep, un TQRBand (rbTitle), un TQRDBText, un TTable, un TDataSource y reproducí este ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DecimalSeparator    := ',';
  ThousandSeparator   := '.';
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName    := 'orders.db';
  QRDBText1.Mask      := ',0.00';
  QRDBText1.DataSet   := Table1;
  QRDBText1.DataField := 'AmountPaid';
  Table1.Open;
  QuickRep1.Preview
end;

Podras notar que si intercambias los valores de las variables DecimalSeparator y ThousandSeparator donde había puntos habrá comas y viceversa.

Saludos.

[shoulder]

Hola, lo solucione asi, dentro del mysql puse esta sentencia.

SELECT REPLACE(REPLACE(REPLACE(FORMAT("1111.00", 2), ".", "@"), ",", "."), "@", ",")

[Theluar]

tambien puedes definir el formato en el datafield ligado al DBText1 en la propiedad DisplayFormat := ###,###.00 .

Saludos