XmlNode não pode ser nulo

[Phoenixsistemas]

Ao enviar uma NFSe ele me retorna o  Seguinte erro.

O documento XML difere da assinatura

O documento XML não pode conter alterações após a assinatura

 

Trecho do Código

 

var
  ValorISS: Double;
  i: Integer;
begin
  with ACBrNFSeX1 do
  begin
    NotasFiscais.NumeroLote := NumLote;
    NotasFiscais.Transacao := True;

    with NotasFiscais.New.NFSe do
    begin

      Configuracoes.Geral.IdentarXML := False;

      Numero                     := NumDFe;

      IdentificacaoRps.Serie     := '85';
      IdentificacaoRps.Numero    := Numero;

      DataEmissao                := Now;
      NaturezaOperacao           := no1;
      RegimeEspecialTributacao   := retMicroempresaMunicipal;
      OptanteSimplesNacional     := snSim;
      IncentivadorCultural       := snNao;
      Competencia                := Now;

      Servico.Valores.ValorServicos  := 190.00;
      Servico.Valores.IssRetido := stNormal;
      Servico.Valores.ValorIssRetido := 0.00;

      Servico.Valores.BaseCalculo      := ( Servico.Valores.ValorServicos -
                                            Servico.Valores.ValorDeducoes -
                                            Servico.Valores.DescontoIncondicionado
                                          );

      Servico.Valores.Aliquota         := 0.0398;

      Servico.Valores.ValorLiquidoNfse := ( Servico.Valores.ValorServicos          -
                                            Servico.Valores.ValorPis               -
                                            Servico.Valores.ValorCofins            -
                                            Servico.Valores.ValorInss              -
                                            Servico.Valores.ValorIr                -
                                            Servico.Valores.ValorCsll              -
                                            Servico.Valores.OutrasRetencoes        -
                                            Servico.Valores.ValorIssRetido         -
                                            Servico.Valores.DescontoIncondicionado -
                                            Servico.Valores.DescontoCondicionado
                                          );

      Servico.Valores.ValorIssRetido   := 0.00;

      Producao := snNao;

      Servico.CodigoMunicipio           := edtCodCidade.Text;

      Servico.ItemListaServico          := '1401';
      Servico.CodigoTributacaoMunicipio := '452000101';
      Servico.Discriminacao             := 'SERVICO PRESTADO AO VEICULO: VOLVO PLACA: PWL-3051'+
                                           'Trib. Aprox. R$: 25,56 Federal e 5,80 Municipal Fonte: IBPT 5oi7eW';

      Servico.MunicipioIncidencia       := StrToIntDef(edtCodCidade.Text, 0);

      Prestador.IdentificacaoPrestador.CNPJ               := edtEmitCNPJ.Text;
      Prestador.IdentificacaoPrestador.InscricaoMunicipal := edtEmitIM.Text;

      Prestador.RazaoSocial                               := edtEmitRazao.Text;
      Prestador.NomeFantasia                              := edtEmitRazao.Text;
      Prestador.cUF                                       := UFtoCUF(edtEmitUF.Text);
      Prestador.Endereco.Endereco                         := edtEmitLogradouro.Text;
      Prestador.Endereco.Numero                           := edtEmitNumero.Text;
      Prestador.Endereco.Bairro                           := edtEmitBairro.Text;
      Prestador.Endereco.CodigoMunicipio                  := edtCodCidade.Text;
      Prestador.Endereco.xMunicipio                       := CodIBGEToCidade(StrToIntDef(edtCodCidade.Text, 0));
      Prestador.Endereco.UF                               := edtEmitUF.Text;
      Prestador.Endereco.CodigoPais                       := 1058;
      Prestador.Endereco.xPais                            := 'BRASIL';
      Prestador.Endereco.CEP                              := edtEmitCEP.Text;
      Prestador.Contato.Telefone                          := '1633224455';
      Prestador.Contato.Email                             := '[email protected]';

      Tomador.IdentificacaoTomador.Tipo                   := tpPJdoMunicipio;
      Tomador.IdentificacaoTomador.CpfCnpj                := '41908849000145';
      Tomador.IdentificacaoTomador.InscricaoMunicipal     := '72055808';
      Tomador.RazaoSocial                                 := 'INSCRICAO DE TESTE';
      Tomador.Endereco.TipoLogradouro                     := 'RUA';
      Tomador.Endereco.Endereco                           := 'RUA PRINCIPAL';
      Tomador.Endereco.Numero                             := '100';
      Tomador.Endereco.Complemento                        := 'APTO 11';
      Tomador.Endereco.Bairro                             := 'CENTRO';
      Tomador.Endereco.CodigoMunicipio                    := edtCodCidade.Text;
      Tomador.Endereco.xMunicipio                         := CodIBGEToCidade(StrToIntDef(edtCodCidade.Text, 0));
      Tomador.Endereco.UF                                 := edtEmitUF.Text;
      Tomador.Endereco.CodigoPais                         := 1058; // Brasil
      Tomador.Endereco.CEP                                := edtEmitCEP.Text;
      Tomador.Endereco.xPais                              := 'BRASIL';
      Tomador.IdentificacaoTomador.InscricaoEstadual      := '123456';
      Tomador.Contato.Telefone                            := '1622223333';
      Tomador.Contato.Email                               := '[email protected]';
      Tomador.AtualizaTomador                             := snNao;
      Tomador.TomadorExterior                             := snNao;

    end;
 

 

 

1-env-lot.xml 1-rec.xml ORIGINAL PREFEITURA DE CONTAGEM - GINFIS 7.875412543316336E8.xml

[Italo Giurizzato Junior]

Boa tarde,

Vou incluir na minha lista de tarefas para analisar o problema.

[Italo Giurizzato Junior]

Boa tarde,

Favor atualizar todos os fontes de todas as pastas, reinstale a suíte ACBr e faça novos testes.

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Phoenixsistemas]

Em 10/07/2021 at 16:53, Italo Giurizzato Junior disse:

Boa tarde,

Favor atualizar todos os fontes de todas as pastas, reinstale a suíte ACBr e faça novos testes.

RESOLVIDO!

[Juliomar Marchetti]

Obrigado por reportar.

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