Correção - Erro Impressão Danfe Fast Report

[abinoan]

Bom dia, 

Após atualizar o ACBr , ao imprimir o danfe (fast report) me reparei com o erro de impressão.

Verifiquei que erro foi na unit ACBrNFeDANFeFRDM. Erro ocorre ao tentar ler o campo 'Mask_vUnCom' como numero.

A linha com erro foi comentada e adicionada linha com correção. Segue método abaixo:

Function TACBrNFeFRClass.FormatValorUnitario( dValor : Double ) : String;
begin
  With cdsParametros do
  begin
    case FieldByName('iFormato').AsInteger of
     // 0 : Result := FormatFloatBr( dValor , FloatMask( FieldByName('Mask_vUnCom').AsInteger));
      0 : Result := FormatFloatBr( dValor , FloatMask( FieldByName('Casas_vUnCom').AsInteger));
      1 : Result := FormatFloatBr( dValor , FieldByName('Mask_vUnCom').AsString);
      else
        Result := FormatFloatBr( dValor , FloatMask( FieldByName('Mask_vUnCom').AsInteger));
    end;
  end;
end;
 

Espero ter contribuído.

Abraço a todos.

 

 

[hleorj]

Obrigado .no Svn