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 : não arredonda, mantendo o número imediatamente anterior
- Maior que 5 = arredonda: 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):
- aaaa
- bbbb
Os parâmetros são:
Valor
Decimais Corrente - True-Considera o Tipo default da tela, False-Utiliza o tipo abaixo
Tipo - Define o tipo configurado abaixo
...
Parâmetro
...
Valor para Report Builder
...
Descrição
...
SO
...
0
...
Sistema Operacional
...
clDefaultSisPetro (default)
...
1
...
Decimais padrão do SisPetro
...
clSales
...
2
...
Casas Decimais Utilizadas em Vendas
...
clShopping
...
3
...
Casas Decimais Utilizadas em Compras
...
clShipping
...
4
...
Casas Decimais Utilizadas em Frete
...
clCosts
...
5
...
Casas Decimais utilizadas em Custos
...
clForeignCurrency
...
6
...
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
...
clInteger
...
7
...
Casas Decimais utilizadas para truncar valores (0 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