Pesquisar na Comunidade

Olá Pessoal! Tudo bem com vocês. Pessoal, de um tempo pra cá, cerca de 2 meses há trás, nosso sistema passou ter muitas notas (Nfc-e), rejeitadas devido há alguns problemas com arredondamento de valores. O sistema que trabalhamos é voltado para restaurantes, sendo que o mesmo utiliza sempre valores vindo de uma balança, que na maioria das vezes o peso x preço do produto acaba que não vem arredondado. Então quase sempre nós obtemos o retorno do SEFAZ informando: 564-Rejeição: Total do Produto / Serviço difere do somatório dos itens 610-Rejeição: Total da NF difere do somatório dos Valores compõe o valor Total da NF. Vou postar aqui a maneira que eu preencho o componente AcbrNfe para poder gerar a nfc-e. Prod.xProd := ServerMetodos.QrprodutosVendaPRODUTO.Value; Prod.NCM := ServerMetodos.QrprodutosVendaCLASSIFICACAO_FISCAL.Value; Prod.EXTIPI := ''; Prod.CFOP := ServerMetodos.QrprodutosVendaCFOP.Value; Prod.uCom := ServerMetodos.QrprodutosVendaUNIDADE.Value; Prod.qCom := ServerMetodos.QrprodutosVendaQTDE.Value ; Prod.vUnCom := RoundABNT(ServerMetodos.QrprodutosVendaUNITARIO.Value,2); // totalizador para colocar no fin Prod.vProd := RoundABNT(ServerMetodos.QrprodutosVendaQTDE.Value * ServerMetodos.QrprodutosVendaUNITARIO.ascurrency,2); prod.IndTot := itSomaTotalNFe; Prod.uTrib := ServerMetodos.QrprodutosVendaUNIDADE.Value; Prod.qTrib := ServerMetodos.QrprodutosVendaQTDE.Value ; Prod.vUnTrib := ServerMetodos.QrprodutosVendaUNITARIO.Value; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vOutro := RoundABNT(ServerMetodos.QrprodutosVendaACRESCIMO.ascurrency,2); Prod.vDesc := RoundABNT(ServerMetodos.QrprodutosVendaDESCONTO.AsCurrency,2); // totalizando Total.ICMSTot.vBC := RoundABNT(BaseDeCalculo,2); Total.ICMSTot.vICMS := RoundABNT(ValorDeICMS,2); Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := RoundABNT(FormPagamento.edtsubtotal.Value,2); // subtotal produtos Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := RoundABNT(Partilha_Desc,2);// total descontos Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := RoundABNT(Partilha_Acres,2); // total de acréscimos Total.ICMSTot.vNF := RoundABNT(Totalnf,2); // total do pedido Obs.: Pessoal vale ressaltar que quando a desconto ou acréscimo na operação é feito um rateio antes para para todos os produtos, depois soma esses valores rateado para não haver sobras, pois se houver sobra desse rateio ele é incluso em alguns dos itens pertencente a operação. Resumindo, alguém poderia me sujerir algo pra solucionar esse problema, sendo que não é todas as notas que são rejeitas e sim algumas que são produtos vindo da balança. Desde já muito obrigado.