610-rejeição 610-Rejeição: Total da NF difere do somatório dos Valores compõe o valor Total da NF

[Kleber Paulo]

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.