Utilizando arredondamento de valores

O padrão de arredondamento de valores no Report Builder é diferente do padrão de arredondamento do SisPetro.

No Report Builder segue as seguintes regras:

• Menor ou igual a 5: não arredonda, mantendo o número imediatamente anterior
• Maior que 5:  arredonda, somando 1 ao número imediatamente anterior

No SisPetro as regras para arredondamento seguem o que está definido pela ABNT (Associação Brasileira de Normas Técnicas):

• Ver Regras para Arredondamento de Casas decimais no Sispetro

Para uso no Report Builder foi criada a função FormatCurrencyDecimalsExtended, que segue as mesmas regras utilizadas no SisPetro.

A função deve ser informada com os parâmetros FormatCurrencyDecimalsExtended(eValor,bDecimalsCorrente,iTypeDecimals), onde:

• eValor: cálculo de valores
  
  
• bDecimalsCorrente:
  • true: utilizar somente com orientação da Futura

  • false: utilizar na grande maioria dos casos
    
    

• iTypeDecimals: define o tipo de decimais conforme tabela abaixo
  
  

  Valor para iTypeDecimals	Definição
  0	Sistema Operacional: o que está definido nas configurações do Windows
  1 (Padrão)	Casas decimais padrão do SisPetro: 2 casas decimais
  2	Casas decimais utilizadas em Vendas: conforme definido no perfil de sistema > aba Vendas
  3	Casas decimais utilizadas em Compras: conforme definido no perfil de sistema > aba Compras
  4	Casas decimais utilizadas em Frete: conforme definido no perfil de sistema > aba Fretes
  5	Casas decimais utilizadas em Custos: 6 casas decimais
  6	Casas decimais utilizadas em Taxas de Conversão de Moeda: até 6 casas decimais
  7	As casas decimais são truncadas: não é feito arredondamento. Exemplo: 1,65 fica 1

Exemplo de uso da função em um campo para calcular o valor do complemento de ICMS:

• No OnCalc do campo ComplementoICMS (criado no relatório):
  
  

  begin
  // Complemento o campo AjusteICMSSubst é salvo negativo. Quando positivo é ressarcimento e não precisa imprimir
    if (NaturezaOperacaoEmp['GeraICMSRetidoFonte']= 1) and (ItensNF['ajusteICMSSubst']< 0) then begin
        Value := FormatCurrencyDecimals(((ItensNF['ajusteICMSSubst']* ItensNF['qtde']) * -1),false,1);
    end else begin
       Value:= 0;
    end;
  end;

Onde FormatCurrencyDecimals(((ItensNF['ajusteICMSSubst']* ItensNF['qtde']) * -1),false,1);

• eValor: ((ItensNF['ajusteICMSSubst']* ItensNF['qtde']) * -1)
• bDecimalsCorrente: false
• iTypeDecimals: 1