Valor Monetário no Dbgrid

Delphi

13/10/2008

:?:
Olá a todos.
Uso Delphi + DbExpress
Como apresentar campo monetário com ,00 no Dbgrid.
Abaixo o código que monto os campos do Dbgrid

procedure MontaGridPedidos;
begin

With FrM1010.GridPedidos do
begin
Columns.Clear;

Coluna := Columns.Add;
Coluna.Title.Caption := ´Lancto´;
Coluna.FieldName := ´Ped_Cod´;
Coluna.Width := 60;

Coluna := Columns.Add;
Coluna.Title.Caption := ´Dt.Pedido´;
Coluna.FieldName := ´Ped_DtPedido´;
Coluna.Width := 80;

Coluna := Columns.Add;
Coluna.Title.Caption := ´Razão Social´;
Coluna.FieldName := ´Cli_RazaoSocial´;
Coluna.Width := 290;

Coluna := Columns.Add;
Coluna.Title.Caption := ´Valor Total´;
Coluna.FieldName := ´Ped_Valor´;
Coluna.Width := 75;
end;

TFloatField(d.CdsPed.FieldByName´Ped_Valor´)).DisplayFormat := ´,#0.00´;

end;


Mas não apresenta os valore monetários com duas decimais.

Abraços
Neto


Neto

Neto

Curtidas 0

Respostas

Eniorm

Eniorm

13/10/2008

eu costumo usar a máscara ´R$ #,,0.00´ e funciona corretamente

abraços


GOSTEI 0
Neto

Neto

13/10/2008

Eu não adiciono os campos da tabela no Cds.
Neto


GOSTEI 0
Eniorm

Eniorm

13/10/2008

TFloatField(d.CdsPed.FieldByName´Ped_Valor´)).DisplayFormat := ´R$ #,,0.00´;


GOSTEI 0
Ricardo_ascii

Ricardo_ascii

13/10/2008

Olá Enio,


Para colocar campo monetário no dbgrid sem estar adicionado os campos no componente eu faço o seguinte:



with dm.table1 do
TCurrencyField(FieldbyName(´VALOR´)).DisplayFormat:= ´,#0.00´;


Abraço, Ricardo


´NÃO ESQUEÇAM DE POSTAR NO FÓRUM OS RESULTADOS DOS TESTES PARA AJUDAR OS COMPANHEIROS´.


GOSTEI 0
POSTAR