Valor Monetário em DBGrid
Tenho uma rotina em meu programa que faz um cálculo e armazzena o valor em um campo de uma tabela.
Gostaria de saber como visulizar em DBGrid esse valor com R$ e as casas decimais.
Exemplo:
Valor armazenado => 179,334521
Valor que quero visualizar = > R$ 179,33
Valeu a força!!!
JR.
Gostaria de saber como visulizar em DBGrid esse valor com R$ e as casas decimais.
Exemplo:
Valor armazenado => 179,334521
Valor que quero visualizar = > R$ 179,33
Valeu a força!!!
JR.
Jrjoliv2003
Curtidas 0
Respostas
G1b4
02/08/2004
Caro, jrjoliv2003
Vá no seu dataset e entre no fields editor, selecione o campo que você quer o valor monetário e na propriedade currency coloque TRUE.
Espero ter ajudado :D !!!
Vá no seu dataset e entre no fields editor, selecione o campo que você quer o valor monetário e na propriedade currency coloque TRUE.
Espero ter ajudado :D !!!
GOSTEI 0
Jrjoliv2003
02/08/2004
Valeu!!!
JR.
JR.
GOSTEI 0
Jrjoliv2003
02/08/2004
1) No FildsEditor da Table, selecionei o campo e na propriedade currency, coloquei true;
2) No FildsEditor da Table, selecionei o campo e na propriedade Displayformat, coloquei #,,0.00, e na propriedade Editformat, coloquei 0.00;
Coloquei essa formatação em minhas tabelas e apareceu na DBgrid. Sem querer exclui a DBGrid. Coloquei outra e agora não aparece o R$ com as casas decimais na DBgrid.
O que será que aconteceu?
Valeu a força!!!
Galera!! Sou novato, por isso pergunto tanto. É meu Projeto Final de Curso que está faltando algumas coisas. Desculpe.
JR.
2) No FildsEditor da Table, selecionei o campo e na propriedade Displayformat, coloquei #,,0.00, e na propriedade Editformat, coloquei 0.00;
Coloquei essa formatação em minhas tabelas e apareceu na DBgrid. Sem querer exclui a DBGrid. Coloquei outra e agora não aparece o R$ com as casas decimais na DBgrid.
O que será que aconteceu?
Valeu a força!!!
Galera!! Sou novato, por isso pergunto tanto. É meu Projeto Final de Curso que está faltando algumas coisas. Desculpe.
JR.
GOSTEI 0
Deryck
02/08/2004
Cara não posso fica no site direto, sempre que quiser saber algo, se eu souber , terei prazer em ajudá-lo, quando quiser postar algo, poste no clube e me mande por e-mailtambém, que se possível, te responderei pelo mail e pelo clube delphi! :arrow:
jordano.soares@csnet.com.br
jordano.soares@csnet.com.br
GOSTEI 0
Jrjoliv2003
02/08/2004
Galera!!!
Estou tentando colocar o símbolo monetário e as casas decimais. Usei essa formatação
no campo da tabela (ibtable):
No FildsEditor da Table, selecione o campo e na propriedade Displayformat, coloque R$ #,,0.00,
e na propriedade Editformat, coloque R$ 0.00;
Nos dbedit aparecem só que no dbgrid não. Uso delphi5 com Interbase 6 (dialect 1).
O campo está com tipo de dado numeric (15,2).
Se aparece no dbedit deveria aparecer na dbgrid também certo?
Quem puder ajudar...
Valeu a força!!
Obs: já ativei a propriedade currency para True e nada muda.
JR.
Estou tentando colocar o símbolo monetário e as casas decimais. Usei essa formatação
no campo da tabela (ibtable):
No FildsEditor da Table, selecione o campo e na propriedade Displayformat, coloque R$ #,,0.00,
e na propriedade Editformat, coloque R$ 0.00;
Nos dbedit aparecem só que no dbgrid não. Uso delphi5 com Interbase 6 (dialect 1).
O campo está com tipo de dado numeric (15,2).
Se aparece no dbedit deveria aparecer na dbgrid também certo?
Quem puder ajudar...
Valeu a força!!
Obs: já ativei a propriedade currency para True e nada muda.
JR.
GOSTEI 0
Jrjoliv2003
02/08/2004
Tenho essa codificação para colocar o dbgrid zebrado. Se tiro essa codificação a formatação de R$ 00,00 aparece. Não sei proque esse efeito está impedindo de exibir o R$.
If odd(data.IBTPag.RecNo) then
begin
DBGrid3.Canvas.Font.Color:= clBlack;
DBGrid3.Canvas.Brush.Color:= clInactiveCaptionText;
end
else
begin
DBGrid3.Canvas.Font.Color:= clBlack;
DBGrid3.Canvas.Brush.Color:= clWhite;
end;
DBGrid3.Canvas.FillRect(Rect);
DBGrid3.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Valeu a força!!
JR.
If odd(data.IBTPag.RecNo) then
begin
DBGrid3.Canvas.Font.Color:= clBlack;
DBGrid3.Canvas.Brush.Color:= clInactiveCaptionText;
end
else
begin
DBGrid3.Canvas.Font.Color:= clBlack;
DBGrid3.Canvas.Brush.Color:= clWhite;
end;
DBGrid3.Canvas.FillRect(Rect);
DBGrid3.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Valeu a força!!
JR.
GOSTEI 0
Jrjoliv2003
02/08/2004
Galera!!!
Resolvi com a ajuda de um colega. Troquei essa linha:
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Por essa:
DBGrid3.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.DisplayText);
Essa linha está no final da codificação na colocação do DBGrid Zebrado.
Valeu!!!
JR.
Resolvi com a ajuda de um colega. Troquei essa linha:
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Por essa:
DBGrid3.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.DisplayText);
Essa linha está no final da codificação na colocação do DBGrid Zebrado.
Valeu!!!
JR.
GOSTEI 0