Ñ aparece no Grid qdo é 120,00, os zeros finais ñ aparecem.

Delphi

07/09/2007

Tenho dois campos de valores. Todos os dois não aparecem no grid os centavos quando são zero exemplo:
Fica assim no banco = 120,00
Fica assim no grid = 120

O campo de valores do banco está NUMERIC 15,2.
É assim que faço a inserção:
dm.sdsLancamento.ParamByName(´total´).AsFloat:=StrToFloat(total.Text);


Como resolvo?


Jpauloss

Jpauloss

Curtidas 0

Respostas

Microbios

Microbios

07/09/2007

Colega,

é simples.. vá nas propriedades do campo (no componente tabela) no object inspector e ache a propriedade CURRENCY... coloque-a como TRUE!


GOSTEI 0
Dbergkamps10

Dbergkamps10

07/09/2007

olá
se a dica do microbios nao funcionar, vc pode mudar a propriedade no object inspector EditFormat:=0.00 e a Display Format:=R$ 0,00 la no campo do dataset


GOSTEI 0
Jpauloss

Jpauloss

07/09/2007

olá se a dica do microbios nao funcionar, vc pode mudar a propriedade no object inspector EditFormat:=0.00 e a Display Format:=R$ 0,00 la no campo do dataset


Fiz desse jeito e ficou sem os centavos. Exemplo: gravei 100,25 mas só aparece 100.

Mas alguma ideia?


GOSTEI 0
Jeimyson

Jeimyson

07/09/2007

[quote:b81c508788=´dbergkamps10´]olá se a dica do microbios nao funcionar, vc pode mudar a propriedade no object inspector EditFormat:=0.00 e a Display Format:=R$ 0,00 la no campo do dataset


Fiz desse jeito e ficou sem os centavos. Exemplo: gravei 100,25 mas só aparece 100.

Mas alguma ideia?[/quote:b81c508788]

Brow,

Acho que isso deve funcionar...

dm.sdsLancamento.ParamByName(´total´).AsFloat:=FormatFloat(´#,0.00´,StrToFloat(total.Text));

Espero ter ajudado!!! :D


GOSTEI 0
Dbergkamps10

Dbergkamps10

07/09/2007

nao se esqueca q vc tem q mudar no fields editor do cds ou tb.


GOSTEI 0
Jpauloss

Jpauloss

07/09/2007

A dica deu certo.
Agora só consegui pelo delphi 7. No BDS 2006 não pega não, será que um defeito?


GOSTEI 0
Martins

Martins

07/09/2007

A dica deu certo. Agora só consegui pelo delphi 7. No BDS 2006 não pega não, será que um defeito?


Você está com todos os Services Pack do BDS 2006?

Acredito q atualizando o BDS2006 esse Bug seja corrigido.


GOSTEI 0
Jpauloss

Jpauloss

07/09/2007

[quote:60891cc28d=´jpauloss´]A dica deu certo. Agora só consegui pelo delphi 7. No BDS 2006 não pega não, será que um defeito?


Você está com todos os Services Pack do BDS 2006?

Acredito q atualizando o BDS2006 esse Bug seja corrigido.[/quote:60891cc28d]

To não. Onde pega? Vc tem para enviar por e-mail para min?


GOSTEI 0
POSTAR