Problema Currency Paradox com 15, 2
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
Curtidas 0
Respostas
Aroldo Zanela
19/06/2004
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).
GOSTEI 0
Mmtoor
19/06/2004
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;
GOSTEI 0