Fórum converssao de tipos #427818

01/11/2012

0

Delphi

olá pessoal bom dia! pessoal to fazendo o seguinte estou imprimindo uma venda e ta ficando quase bom,
nesse campo "SAIPROD_VALORPRODUTO" que vocês podem observar na impressão ele esta ficando com o valor assim "200"
e eu queria converter para "R$ 200,00"
como eu faço?
ja coloquei assim .AsString:= format('%4.2n',[tabelaSaida_produtoSAIPROD_VALORPRODUTO.value]));
e nada.



Printer.Canvas.TextOut(Coluna,Linha, TabelaSaida_Produto.FieldByName('SAIPROD_COR_PROD').AsString);
Coluna:= Coluna + (Tamanho * 30);
Printer.Canvas.TextOut(Coluna,Linha, TabelaSaida_Produto.FieldByName('SAIPROD_VALORPRODUTO').AsString);
Coluna:= Coluna + (Tamanho * 30);
Glebson Guimaraes

Glebson Guimaraes

Responder

Posts

01/11/2012

Joel Rodrigues

Cara, a coluna do DataSet (DataSet, Table, Query, etc) possui uma propriedade "DisplayFormat". Nela você pode definir o seguinte: "R$ #,##0.00". Experimenta fazer isso.

Boa sorte.
Responder

Gostei + 0

01/11/2012

Glebson Guimaraes

VALEU JOEL DEU CERTO SIM
Responder

Gostei + 0

01/11/2012

Glebson Guimaraes

puts! dessa forma

tem hora que fica bom e tem ora q nao tipo "200" R$200,00

Responder

Gostei + 0

01/11/2012

Claudia Nogueira

Tenta assim:

Printer.Canvas.TextOut(Coluna,Linha, FormatFloat('R$ #,###,##0.00',TabelaSaida_Produto.FieldByName('SAIPROD_VALORPRODUTO').AsFloat));

puts! dessa forma

tem hora que fica bom e tem ora q nao tipo "200" R$200,00

Responder

Gostei + 0

13/11/2012

Glebson Guimaraes

Tenta assim:

Printer.Canvas.TextOut(Coluna,Linha, FormatFloat('R$ #,###,##0.00',TabelaSaida_Produto.FieldByName('SAIPROD_VALORPRODUTO').AsFloat));

puts! dessa forma

tem hora que fica bom e tem ora q nao tipo "200" R$200,00




oi claudia,se voce tiver um tempinho num esquece daquele exemplo nao por favor obrigado!
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar