TACBrECFVirtualClassCupom.SetDescAcresSubtotal repassando mais 10% no valor da venda quando com descontos

[LIDERNetwork]

Bom dia Colegas,

Após a ultima atualização do ACBrECFVirtual.pas o mesmo veio com um alteração no rateio do desconto/acréscimo para alíquotas diferenciadas conforme especificado em:

http://partners.bematech.com.br/bemacast/Paginas/post.aspx?idPost=5790

O problema é que vendas com cartão de crédito é acrescentado ao valor da venda a porcentagem do desconto. EXEMPLO: Venda de R$ 60,00 desconto de 10% no subtotal ficaria R$ 66,00 sendo valor da venda R$ 54,00 e essa diferença é impressa no Relatório Gerencial antes dos comprovantes da transação do cartão.

O problema é na classe CBrECFVirtualClassCupom.SetDescAcresSubtotal linha 937:

fpSubTotal := fpSubTotal + fpDescAcresSubtotal;

Para contornar o problema apenas troquei a soma pela subtração ficando:

fpSubTotal := fpSubTotal - fpDescAcresSubtotal;

Para resolver deveria criar um rotina para saber se a variável fpDescAcresSubtotal trata-se de um desconto ou acréscimo no valor e assim a rotina acima ser de soma para acréscimo ou subtração para desconto.

 

if fpDescAcresSubtotal > fpSubTotal then

fpSubTotal := fpSubTotal + fpDescAcresSubtotal

else

fpSubTotal := fpSubTotal - fpDescAcresSubtotal;

O que gostaria de saber dos colegas é se alguém está passando por isso, pois pode ser meu código com alguma inconsistência tratada antes de se chamar a classe em questão.

OBS: Postei em NFC-e porque utilizo o Posprinter+Virtual com ESC/POS