Jump to content

dev botao

XmlNode não pode ser nulo


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1004 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

  • Consultores
  • Solution

Boa tarde,

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

  • Thanks 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Administradores

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 1004 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.