...
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^ Value:= 0; end; end;
Onde FormatCurrencyDecimals(((ItensNF['ajusteICMSSubst']* ItensNF['qtde']) * -1),false,1);
...