Fórum Problema Currency Paradox com 15, 2 #238588
19/06/2004
0
Prezados Amigos,
Estou com um serio problema com o campo ´currency´. Ex: quando calculo o preco de venda em cima de uma margem de lucro informada o valor do preco de venda e gerado com uma dizima, no banco de dados (Paradox) este valor e armazenado com todas as casa depois da virgula ex: 1,2893938 mas na tela o valor aparece 1,29. Isto e um problema pois quando vou efetuar uma venda na impressora fiscal ele pega o valor 1,2893938 mas preciso que ele receba 1,29.
Como faço para que esse valor seja armazenado somente com 2 casas decimais?
Desde ja Agradeco!
Lafitti Informática Ltda
Marcos Pereira Leite
Dept. Engenharia
lafitti@brturbo.com
:?:
Estou com um serio problema com o campo ´currency´. Ex: quando calculo o preco de venda em cima de uma margem de lucro informada o valor do preco de venda e gerado com uma dizima, no banco de dados (Paradox) este valor e armazenado com todas as casa depois da virgula ex: 1,2893938 mas na tela o valor aparece 1,29. Isto e um problema pois quando vou efetuar uma venda na impressora fiscal ele pega o valor 1,2893938 mas preciso que ele receba 1,29.
Como faço para que esse valor seja armazenado somente com 2 casas decimais?
Desde ja Agradeco!
Lafitti Informática Ltda
Marcos Pereira Leite
Dept. Engenharia
lafitti@brturbo.com
:?:
Lafitti
Curtir tópico
+ 0
Responder
Posts
19/06/2004
Aroldo Zanela
Colega,
Não conheço Paradox, mas acredito que ele tenha um tipo específico como Numeric(X,Y) e para enviar para o ECF, use SimpleRoundTo ou RoundTo(Valor, -2).
Não conheço Paradox, mas acredito que ele tenha um tipo específico como Numeric(X,Y) e para enviar para o ECF, use SimpleRoundTo ou RoundTo(Valor, -2).
Responder
Gostei + 0
19/06/2004
Mmtoor
procedure RoundDecimal(var AValue: double; Const ADecimal: integer);
var
strValue : string;
begin
strValue := FloatToStrF(AValue,ffFixed,18,ADecimal);
AValue := StrToFloat(strValue);
end;
var
strValue : string;
begin
strValue := FloatToStrF(AValue,ffFixed,18,ADecimal);
AValue := StrToFloat(strValue);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)