Colocar quot;DBquot; e quot;CRquot; Em Saldos Contábeis

É necessário que exista um flag em sua tabela, vamos chamá-lo de sts_saldo_contabil.

Caso vc esteja utilizando o firebird ou sql server use da seguinte maneira:

select case sts_grupo_contabil
when 1 then ´CR´
else ´DE´
end as Saldo
from movimentacao

Caso seja o MSAccess utilize assim:

select iif(sts_grupo_contabil = 1, ´CR´,´DE´)
from movimentacao

Espero ter ajudado

microbios,

mais uma opção:

Crie uma função que acrescenta CR ou DB no fim da formatação
(função FormatFloat) do Delphi

Veja o código:

function FormataSaldo(valorSaldoContabil: Double): string;
begin
Result := ´0,00´;
if (valorSaldoContabil > 0.0) then
Result := FormatFloat(´#,,0.00´, valorSaldoContabil) + ´CR´
else if (valorSaldoContabil < 0.0) then
Result := FormatFloat(´,,0.00´, valorSaldoContabil) +
´DB´;
end;

Eu testei e funcionou sem problemas.

procedure TForm1.Button1Click(...);
showmessage(formataSaldo(strtofloat(edit1.text)));
end;

(Estou considerando que vc está trabalhando sempre com duas
casas decimais)

Espero que auxilie.

carlosrm

:D

Obrigado a CarlosRM, e RUISALLES!

Todas as Opções me servirão de um jeito e de outro também.... :lol:
Programo para vários Bancos de Dados.... Então!

Obrigado, e até breve!

Microbios