Possivel Bug TACBrECFVirtualClassCupom.SetDescAcresSubtotal

[douglas_k]

Bom dia pessoal,

   No calculo do rateio do desconto e acréscimo no subtotal na função SetDescAcresSubtotal da classe ACBrECFVirtual no final dela tem as seguintes linhas:

     if P > 0 then  // Commo assim ? Não achou um campeão ? Então use o primeiro Totalizador
       P := 0;

   Nesse ponto quando não é encontrado nenhum totalizador para ele jogar valor do resíduo do calculo ele joga na primeira alíquota que ele encontra. Problema que com o teste acima mesmo que ele encontre e mova o índice correto da alíquota para P, ele sempre vai acabar de jogar na primeira alíquota, por isso o teste deve ser trocado para P < 0 que ai só será jogado para a primeira alíquota quando não encontrar nenhuma na rotina anterior.

if P < 0 then  // Commo assim ? Não achou um campeão ? Então use o primeiro Totalizador
       P := 0;

   Outro ponto é que tanto no calculo do percentual efetivo quanto no valor do rateio é utilizado o round (RoundABNT). Pelo Exemplo: http://partners.bematech.com.br/bemacast/Paginas/post.aspx?idPost=5790  ele utiliza o trunc para efetuar os calculos. Por esse motivo tambem substitui o RoundABNT pelo TruncTo.

 

 

 

[Daniel Simoes]

Se deseja sugerir melhorias nos fontes, por favor anexe as Units modificadas...

[douglas_k]

Boa tarde Daniel,

   Uhum agora esta em anexo a unit.

ACBrECFVirtual.pas

[Daniel Simoes]

Suas modificações estão corretas... ótima analise...

Obrigado pela contribuição.. já no SVN...