Pesquisar na Comunidade

Olá a todos, Tive dificuldades na utilização do ACBrECFNaoFiscal, onde estou utilizando os métodos em um sistema para posto de combustível. (Utilizo o ACBREcf com ACBrECFVirtualNaoFiscal para fazer a Venda do "Cupom" na tela do aplicativo, após a finalização geramos o SAT.) O problema estava na finalização do cupom, onde não nos permitia continuar, pois os valores não batiam (Valor da Finalização com o Subtotal). Após muitas analises e pesquisas verificamos que o método vendeitem, por padrão arredonda (RoundABNT), mas no caso de posto de combustível os valores devem ser truncados. Tentei achar alguma solução que não fosse alterar o fonte, mas não consegui encontrar nada. Então por isso estou enviando para vocês a solução que encontramos e que está funcionando. Peço por gentileza que se já existir alguma solução desconsidere o que foi feito e me passe o que devo fazer para que funcione corretamente. Agora vou descrever o que foi feito. Na unit: ACBrECFClass Criei uma propriedade: TruncarItemECF: Boolean com seu valor default False; (Justificativa da criação da nova propriedade: Não achei legal utilizar as propriedades: ArredondaPorQtd ou ArredondaItemMFD, pois poderia influenciar em algum outro processos, por isso resolvi criar uma nova propriedade exclusivamente para isso) Após isso na Unit: ACBrECF, também fiz a implementação da propriedade. Dentro da Unit.: ACBrECFNaoFiscal, no método: VendeItem fiz a seguinte implementação. iF TrucarItemECF Then Total := TruncTo( Qtd * ValorUnitario, -2) Else Total := RoundABNT( Qtd * ValorUnitario, -2) ; Se a property estiver habilitada, o valor será truncado, caso contrário continuará da mesma maneira. Segue em anexo as 3 units alteradas. Obrigado desde já pela atenção e auxilio. ACBrECF.pas ACBrECFClass.pas ACBrECFNaoFiscal.pas

Olá a todos. Estou anexando nesse post 3 arquivos alterados para atender a seguinte necessidade: 1) Estamos utilizando o componente ACBrECFNaoFiscal (ACBrECFVirtualPrinter) para fazer o inicio de vendas, onde temos casos de itens arredondam e outros truncam; Ex: Combustível trunca e Demais produtos arredonda. No ECFVirtual por padrão arredondava sempre. Para resolver esse caso fiz a seguinte alteração no método vendaitem: Procedure VendeItem( Codigo, Descricao : String; AliquotaECF : String; Qtd : Double ; ValorUnitario : Double; ValorDescontoAcrescimo : Double = 0; Unidade : String = ''; TipoDescontoAcrescimo : String = '%'; DescontoAcrescimo : String = 'D'; CodDepartamento: Integer = -1 ) ; override ; Se as property ArredondaPorQtd e ArredondaItemMFD estiverem igual a False. O valor total será truncado (Trunca) do contrário irá arredondar (RoundABNT); Essa alteração foi feito em ambos fontes: ACBrECFNaoFiscal e ACBrECFVirtualPrinter. Dentro do ACBrUtil, criei a function Trunca. Em todos nossos testes resolveu e atendeu corretamente. Espero não ter feito nada de incorreto. Me coloco a disposição para quaisquer esclarecimento. Muito obrigado pela atenção e ajuda. ACBrECFNaoFiscal.pas ACBrECFVirtualPrinter.pas ACBrUtil.pas