Comparação de Páginas

...

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):
  
  

  Bloco de código
  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

• Considerando que no campo AjusteICMSSubst foi salvo o valor de -0,859874 e no campo Qtde foi salvo o valor de 5.177:
  • (-0,859874 * 5177) * - 1 = 4.451,567968 > aplicando a função FormatCurrencyDecimals, o valor no relatório é apresentado como 4.451,57