Transformar valores numéricos para moeda no Relatório

[hend.maia 0]

Boa tarde,

 

Tenho os valores de cada produto do meu estoque, ai na hora de gerar um relatório queria mostrar esses valores no formato de moeda.

 

 

[Roberto Fagundes 40]

Melhor você fazer direto na consulta.

Qual BD você usa ?

[hend.maia 0]

Firebird 2.1

 

Mas como faço isso ???

[Roberto Fagundes 40]

De que forma você está fazendo o relatório?

Posta o código...

[hend.maia 0]

procedure TF_RelEstoque.proc;

begin

IBDS_FormEstoque.Close;

if ComboBox1.ItemIndex=0 then

IBDS_FormEstoque.SelectSQL.Strings[1]:='order by est_nome'

else //[1] = cria a linha 1 no select do dataset

IBDS_FormEstoque.SelectSQL.Strings[1]:='order by est_codigo';

IBDS_FormEstoque.Open;

IBDS_FormEstoque.First;

end;

procedure TF_RelEstoque.btVisualizarClick(Sender: TObject);

begin

proc;

inherited;

end;

procedure TF_RelEstoque.btImprimirClick(Sender: TObject);

begin

proc;

inherited;

end;

procedure TF_RelEstoque.QP_PadraoBeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

inherited;

QREmpresa.Caption:='SYSPRO - INFORMATICA';

QRTitulo.Caption:='Listagem de Produtos';

QRMensagem.Caption:='Listagem por Ordem '+ComboBox1.Text;

end;

end.

Resolvi já, peguei o dataset adicionei os campos q fazem parte do formulário e nos campos que precisavam formato de moeda coloquei currency como true.