Registro H010 Gera Apenas 4 Decimais Por Causa Do Parâmetro Ser Currency No Lfill

[Hugototall]

Olá!
 

Na geração do registro H010 o campo VL_UNI mesmo se informando valores com 6 casas decimais, ele gera o valor considerando apenas 4 decimais, devido ao parâmetro ser do tipo currency, e depois utilizando o FormatCurrency ele adiciona dois zeros para completar as 6 decimais exigidas pelo campo.

 

Eu corrigi o problema da seguinte forma :

 

 

function TACBrTXTClass.LFill(Value: Double;
                        Size: Integer;
                        Decimal: Integer = 2;
                        Nulo: Boolean = false;
                        Caracter: Char = '0';
                        Mascara: String = ''): String;
var
intFor, intP: Integer;
strCurMascara: string;
begin
  strCurMascara := FCurMascara;
  // Se recebeu uma mascara como parametro substitue a principal
  if Mascara <> '' then
     strCurMascara := Mascara;

  /// Se o parametro Nulo = true e Value = 0, será retornado '|'
  if (Nulo) and (Value = 0) then
  begin
     Result := FDelimitador;
     Exit;
  end;
  intP := 1;
  for intFor := 1 to Decimal do
  begin
     intP := intP * 10;
  end;
  if strCurMascara <> '' then
     Result := FDelimitador + FormatFloat(strCurMascara, Value)
  else
     Result := LFill(Trunc(Value * intP), Size, Nulo, Caracter);
end;

 

[EMBarbosa]

Realmente, a precisão de mais de 4 casas decimais não é compatível com o tipo Currency.

Alguém acha que poderia haver algum problema nesta alteração em outros componentes que usam o LFill?

[Isaque Pinheiro]

Ei Elton, acredito que não ha problema algum nessa alteração, ou seja não consegui mentalmente detectar algum ponto que possa gerar problema.

[EMBarbosa]

Também não lembro de nenhum problema que possa ser gerado. Assim, se não houver nenhuma manifestação contrária vou subir a correção para o SVN.

[EMBarbosa]

Subi as alterações para o SVN na Revisão  6149. Com um pequeno ajuste, usei Extended ao invés de Double.

O motivo é que Extended possui uma precisão bem maior que Double.

Pelo que vi está tudo certo.

Favor testar e reportar qualquer problema.

Obrigado