Alterações na unit ACBrECFVirtual

douglas_k · 10 Junho, 2016

Bom dia Pessoal,

Estou fazendo alguns testes após atualizar o ACBr e encontrei alguns problemas na unit ACBrECFVirtual, dessa forma tentei corrigir e gostaria de ver se assim esta correto.

- Primeiro problema ocorria ao cancelar um item que foi efetuado um desconto. No momento do cancelamento do item ele estava desfazendo corretamente as informações mas na continuação do cupom no momento que era efetuado o subtotal dele o valor do desconto estava somando no total vendido por alíquota, por exemplo, um item de 10,00 reais foi vendido com desconto de 2,00, ao cancelar o item e finalizar o cupom com outros produtos ele ficava esses 2 reais no total vendido por alíquota.

Corrigi isso na rotina TACBrECFVirtualClassCupom.CancelaItem(NumItem: Integer); inicializando DescAcres := 0;

- No cancelamento de um item com desconto ele também não estava somando corretamente o valor de cancelados em aberto, estava só somando a venda liquida e teria que ser o valor bruto, senão depois o calculo do valor liquido não fecha.

Corrigi isso na rotina TACBrECFVirtualClass.CancelaItemVendido(NumItem: Integer); somando o valor bruto no cancelados em aberto fpCuponsCanceladosEmAbertoTotal := fpCuponsCanceladosEmAbertoTotal + TotBruto;

Para simular os erros acima pode ser feito um cupom com 2 itens um com desconto e outro não e o com desconto ser cancelado e então finalizar o cupom.

- Em outro ponto quando é efetuado um cancelamento de um cupom que tem desconto no subtotal ele esta descontando o valor bruto do item do total da alíquota e deveria ser o valor liquido já que na venda ele soma o liquido na alíquota, assim gerando diferença.

Corrigi isso na rotina TACBrECFVirtualClass.CancelaCupom(NumCOOCancelar: Integer); onde ele remove o total diário por alíquotas alterando para TotalAliq := TotalLiquido; hoje esta TotalAliq := Total;

Em anexo a unit.

ACBrECFVirtual.pas