Formatar BDText�s

Question

Como formato um DBText para valores monet�rios, tipo mostrar ao menos 2 casas decimais sempre ou 3 ... nao precisa o sinal de R$ ?...

Renato_sp · Answer

Defini o campo do tipo numeric (12,2) e no delphi coloca a propriedade do TField como currency para true que o proprio delphi poe a mascara
R$ 0,00, espero ter ajudado..

Falow

Renato/SP

Tuskinhu · Answer

Nao entendi como fazer.. vou colocar como eu estou usando...
DBExpress ( SqlConnection -> SQLQuery -> DataProvider -> CliDataSet -> DataSource )

Destes somente o DataSource esta na tela da consulta e o resto em um data module...

Aqui como eu uso o c�digo:

  try
    Bd.CtoCDS.Close;
    with BD.CtoQry do
    begin
      Close;
      SQL.Clear;
      SQL.Text := �Select CTO.SERIE, CTO.EMISSAO, ...�
    end;  // Qry
    Bd.CtoCDS.Open;
  except
    on E: Exception do
    begin
      MsgError(�Erro na consulta de dados do conhecimento.� + #1313 +
               �SQL: � + Bd.CtoQry.SQL.Text + 1313 +
               �Erro compilador: � + E.Message );
    end;
  end;

Onde encaixo essas mudan�as?? NO caso o nome do campo q eu quero aplicar � TOTAL_PRESTACAO para que saia com 2 casas.

Fsflorencio · Answer

O Renato_SP disse para alterar no fieldlist da query a propriedade currency do field que vc deseja alterar.

Se vc n�o quiser que apare�a o s�mbolo monet�rio, vc pode colocar na propriedade EditFormat e DisplayFormat do TField o seguinte: #,0.00 que ele vai ficar formatado com duas casas decimais.

Renato_sp · Answer

� isso ae... fsflorencio, acho que a melhor forma de se fazer isso � como definimos !!! tanto com R$ ou nao... � o mais pratico...        :D      Renato / SP...

Rodolpho123 · Answer

Lembrando que a propriedade [b:0b26b4ed2a]Currency[/b:0b26b4ed2a] l� o a formata��o monet�ria do Windows, e a DisplayFormat fica [b:0b26b4ed2a]fixa[/b:0b26b4ed2a] no c�digo. Caso um dia a moeda mude de formato, o [b:0b26b4ed2a]DisplayFormat[/b:0b26b4ed2a] vai ter que mudar tmb....

Tuskinhu · Answer

mas os TFields nao aparecem pra mim, pq o comando SQL s� � executado em runtime, e nao em design, e eu nao sei como se adiciona em runtime,, se vc puder me colocar um exemplo.....

Gandalf.nho · Answer

Use FieldByName para se referir aos Fields em tempo de execu��o e setar suas propriedades...

Tuskinhu · Answer

acho que o carnaval me deixou lento... nao consegui achar como colocar as configuracoes...

vc pode me dar o exemplo?

DataModule: BD
ClientDataSet:CtoCDS

ai eu usaria Bd.CtoCDs.FieldByName(�Total_Prestacao�)....

dai eu nao consegui mais nada...

Afarias · Answer

BD.CtoCDs.FieldByName(�Total_Prestacao�).Currency := True;ouBD.CtoCDs.FieldByName(�Total_Prestacao�).DisplayFormat := �R$ ,#0.00�;T+...

Tuskinhu · Answer

AFarias:BD.CtoCDs.FieldByName(�Total_Prestacao�).Currency := True; Erro: Undeclared Identifier : �Currency�ou BD.CtoCDs.FieldByName(�Total_Prestacao�).DisplayFormat := �R$ ,#0.00�; Erro: Undeclared Identifier : �DisplayFormat�Deram erros os 2!...

Afarias · Answer

Deve ser por causa do tipo de campo (TField)n�o s�o todos eles q tem essas propriedades -- por exemplo, campos �texto� (TStringField) n�o tem.T+...

Rodolpho123 · Answer

Tuskinhu, tente fazer isto no evento [b:287da49f0f]AfterOpen[/b:287da49f0f] do seu Cds:

TFloatField( DataSet.FieldByName.(�SEUCAMPO�) ).DisplayFormat := �R$ #,0.00�;
ou
TFloatField( DataSet.FieldByName.(�SEUCAMPO�) ).Currency := True;

Tuskinhu · Answer

Rodolpho123, valeu mesmo !!! Funcionou como eu desejava !!!Obrigado a vc e ao AFarias pela ajuda !!!!Abra�os!!!!...

F�rum Formatar BDText�s #49311