531-Total da BC difere do somatório, nota de devolução com redução de ICMS

[Luciano Ramos Palandi]

Senhores por favor quem puder dar uma ajuda, tenho uma nota de devolução no valor de 183,02 e preciso destacar icms de 18% com redução de 33,33%, o cliente é do simples nacional, segue parte do código e xml em anexo, desde já grato.

 

 // Totais da nota fiscal
    Total.ICMSTot.vBC        := 122.02;
    Total.ICMSTot.vICMS      := 21.97;

 

//rotina para emissao de nota com calculo de icms percorrendo os produtos
            ICMS.CSOSN := StrToCSOSNIcms(ConverteOk, '900');
            if not ConverteOk then
              raise Exception.Create('Situaçãoo tributária no simples nacional desconhecida.');
            ICMS.modBC  := dbiValorOperacao;
            ICMS.vBC    := (dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency*
                           dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)-
                        (((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency*
                           dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)*33.33)
                           /100);//0.00;
            ICMS.pICMS  := 18.00;
            ICMS.vICMS  := ((((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency *
                     dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat) * 18)/100)-
                           ((((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency *
                           dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat) * 18)/100)
                           *33.33)/100);
            ICMS.pRedBC := 33.33;

 

35230344339621000170550010000000771000000018-nfe.xml

[Cleber Ferreira]

Bom dia,

Realizei a soma da BCICMS e VICMS e não vi erro de soma.

[Breno Luiz]

Em validação da NF-e não tem problema. Você pode alterar o valor da BC de um produto para fazer o teste, ele vai retornar o erro, porém esse XML está correto. Tem que se certificar de que é realmente esse XML que está sendo enviado.

[Luciano Ramos Palandi]

Bom dia Cleber e Breno, após eu ressomar inumeras vezes adicionei um RoundTo -2 e a nota foi emitida, muito obrigado pela atenção de vocês.

  roundTO((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency*
                   dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)-
                 (((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency*
                   dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)*33.33)/100),-2); 

[Cleber Ferreira]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.