qreport QrDbText propiedad Mask

[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