NFse - Consigo fazer a consulta mas não o cancelamento - Nao existe NFS-e emitida com o numero do documento ou do RPS ou periodo pesquisado.

[AlexandreReisCosta]

Estou fazendo implementação da NF-SE - de São José dos campos.  Consegui fazer o Envio e a Consulta sem problemas... 

Porém ao tentar fazer o cancelamento em Ambiente de homologação não estou conseguindo.... ele retorna o seguinte erro 

---------------------------
CorpDFe - Documentos Fiscais Eletrônicos
---------------------------
NFS-e nao encontrada.
Nao existe NFS-e emitida com o numero do documento ou do RPS ou periodo pesquisado.

--------------------------

Segue o código abaixo
ACBrNFSe.ConsultarLoteRps(ACBrNFSe.NotasFiscais.NumeroLote, ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo) ;
Result := ACBrNFSe.CancelarNFSe (strCodCancel,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.Numero,
                                     strMotCancel,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.NumeroLote,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.CodigoVerificacao,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.SeriePrestacao,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.IdentificacaoRps.Numero,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.IdentificacaoRps.Serie,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.ValorCredito);

Tentei também assim mas sem sucesso

Result := ACBrNFSe.CancelarNFSe (strCodCancel,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.Numero,
                                     strMotCancel,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.NumeroLote,
                                     ACBrNFSe.NotasFiscais.Items[ 0 ].NFSe.CodigoVerificacao);

Se alguém conseguir me ajudar ficaria muito GRATO

Abraços...

 

Editado 12 Novembro, 2021 por AlexandreReisCosta

[Italo Giurizzato Junior]

Bom dia Alexandre,

Noto que ainda esta usando o componente antigo: ACBrNFSeX.

Lhe convido a iniciar os testes com o novo componente de emissão de NFS-e: ACBrNFSeX
O componente ACBrNFSe não vai mais ter manutenção.

Manual de Migração
https://www.projetoacbr.com.br/forum/topic/63017-manual-de-migração-para-o-novo-componente-de-emissão-de-nfs-e/

Faça os testes usando o programa exemplo do novo componente.
 

[AlexandreReisCosta]

Olá Italo uma honra ter uma resposta tua, irei seguir o procedimento conforme indicado e dou a resposta assim que concluir, informando se deu certo!

 

[AlexandreReisCosta]

Olá, Fiz as alterações conforme as citações porém agora estou me deparando com este erro abaixo:

ACBrNFSe.Emitir(ACBrNFSe.NotasFiscais.NumeroLote);

Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Erro Interno: 87
Erro HTTP: 0
URL: https://homol-notajoseense.sjc.sp.gov.br/notafiscal-ws/NotaFiscalSoap
Erro: 87 - 
Correção: 
--------

....

Editado 16 Novembro, 2021 por AlexandreReisCosta

[AlexandreReisCosta]

O erro era questão de configuração dos protocolo de comunicação HTTPLIB. Troquei pelo do Indy. 

Porém agora estou continuando a migração pois começaram as rejeições... as questões do usuário e senha 

vou tentar resolver aqui

Código  : E179
Mensagem: Erro na autenticação.
Correção: O usuário correspondente ao documento utilizado para autenticação não possui autorização para realizar o serviço para a empresa parametrizada via CNPJ e inscrição municipal do arquivo.

[Italo Giurizzato Junior]

Boa tarde Alexandre,

Você tinha dito que com o componente antigo você consegue emitir e consultar, correto?

Por favor anexe os arquivos "soap" gerados ao emitir usando o componente antigo e o novo para que eu possa analisar.

[AlexandreReisCosta]

Tenho os XMLs pois ao desinstalar o componentes e instalar novamente não consigo gerar a versão anterior

[Italo Giurizzato Junior]

Alexandre,

Não precisa desinstalar o componente antigo, você pode ter ambos (antigo e novo) instalados no Delphi sem nenhum problema.

Outra coisa procure sempre realizar testes usando o programa exemplo.

[AlexandreReisCosta]

Desculpe não ter feito de forma adequada, é que realmente fiquei atrasado com este assunto depois de ter dado continuidade na versão antiga do componente NFSE

Estes dados estão indo em branco...

   Emitente.WSUser
   Emitente.WSSenha        
   Emitente.WSFraseSecr    
   Emitente.WSChaveAcesso  
   Emitente.WSChaveAutoriz 

Eles tem relação com a Mensagem seriam obrigatórios?

Editado 16 Novembro, 2021 por AlexandreReisCosta

[Italo Giurizzato Junior]

Alexandre,

Analisando o código deste provedor, ele não se utiliza dessas propriedades de configuração.

No caso do novo componente ACBrNFSeX, por favor substitua a unit atual por esta em anexo e faça novos testes.

DSFSJC.Provider.pas

[AlexandreReisCosta]

OK Pra já

[AlexandreReisCosta]

Continuou dando na mesma

[Italo Giurizzato Junior]

Alexandre,

Você reinstalou o ACBr e compilou a aplicação com a opção Build?

[AlexandreReisCosta]

As alterações por mim realizadas fora a troca do dos componentes de tela foram

ANTES

    Emitente.WebUser      := strUserWeb;
    Emitente.WebSenha     := strSenhaWeb;
    Emitente.WebFraseSecr := strFraseSecWeb;

DEPOIS

    Emitente.WsUser       := strUserWeb;
    Emitente.WsSenha      := strSenhaWeb;
    Emitente.WsFraseSecr  := strFraseSecWeb;

ANTES

  NotasFiscais.Add.NFSe.PROTOCOLO := strProtocolo

DEPOIS

//CAMPO DESCONTINUADO

//NotasFiscais.Add.NFSe.PROTOCOLO := strProtocolo

ANTES

      Servico.ResponsavelRetencao       := ptTomador;

DEPOIS

       Servico.ResponsavelRetencao       := rtTomador;

ANTES

    ValorServicos := Quantidade * ValorUnitario;

DEPOIS

     ValorTotal    := Quantidade * ValorUnitario;

 

ANTES

      Prestador.CNPJ               := strEmitCNPJ;
      Prestador.InscricaoMunicipal := strEmitIM;

      Prestador.Senha        := strSenhaWeb;
      Prestador.FraseSecreta := strFraseSecWeb;
      Prestador.cUF          := intEmitUFCod;
      Prestador.Usuario         := intWebUser;
      Prestador.CNPJ_Prefeitura := strCNPJPrefeitura;

DEPOIS

      Prestador.IdentificacaoPrestador.Cnpj               := strEmitCNPJ;
      Prestador.IdentificacaoPrestador.InscricaoMunicipal := strEmitIM;

      // DESCONTINUADOS
      //Prestador.Senha        := strSenhaWeb;
      //Prestador.FraseSecreta := strFraseSecWeb;
      //Prestador.cUF          := intEmitUFCod;
      //Prestador.Usuario         := intWebUser;
      //Prestador.CNPJ_Prefeitura := strCNPJPrefeitura;

 

ANTES

      PrestadorServico.RazaoSocial              := strEmitRazao;
      PrestadorServico.NomeFantasia             := strEmitRazao;
      PrestadorServico.Contato.Telefone         := strEmitTelefone;
      PrestadorServico.Endereco.Endereco        := strEmitLogradouro;
      PrestadorServico.Endereco.Numero          := strEmitNumero;
      PrestadorServico.Endereco.Bairro          := strEmitBairro;
      PrestadorServico.Endereco.CodigoMunicipio := strEmitCidadeCod;
      PrestadorServico.Endereco.UF              := strEmitUF;
      PrestadorServico.Endereco.CEP             := strEmitCEP;
      PrestadorServico.Endereco.CodigoPais      := intEmitPaisCod;
      PrestadorServico.Endereco.xPais           := strEmitPais;

DEPOIS

     // DESCONTINUADO PrestadorServico

      Prestador.RazaoSocial              := strEmitRazao;
      Prestador.NomeFantasia             := strEmitRazao;
      Prestador.Contato.Telefone         := strEmitTelefone;
      Prestador.Endereco.Endereco        := strEmitLogradouro;
      Prestador.Endereco.Numero          := strEmitNumero;
      Prestador.Endereco.Bairro          := strEmitBairro;
      Prestador.Endereco.CodigoMunicipio := strEmitCidadeCod;
      Prestador.Endereco.UF              := strEmitUF;
      Prestador.Endereco.CEP             := strEmitCEP;
      Prestador.Endereco.CodigoPais      := intEmitPaisCod;
      Prestador.Endereco.xPais           := strEmitPais;

após fiz a substituição conforme o modelo de exemplo, que ficou bem melhor

 

4 minutos atrás, Italo Giurizzato Junior disse:

Alexandre,

Você reinstalou o ACBr e compilou a aplicação com a opção Build?

Vou fazer conforme instrução

Editado 16 Novembro, 2021 por AlexandreReisCosta

[AlexandreReisCosta]

Pronto fiz a reinstalação do componente após a substituição do arquivo enviado... continuou dando a mesma mensagem

Mensagem: E179 / Erro na autenticação. / O usuário correspondente ao documento utilizado para autenticação não possui autorização para realizar o serviço para a empresa parametrizada via CNPJ e inscrição municipal do arquivo.

 

[AlexandreReisCosta]

Vou Considerar a questão do cancelamento ok 

Pois este assunto agora já é outro

Mensagem: Erro na autenticação.
Correção: O usuário correspondente ao documento utilizado para autenticação não possui autorização para realizar o serviço para a empresa parametrizada via CNPJ e inscrição municipal do arquivo.

[AlexandreReisCosta]

O mesmo ocorre quando tento usar o 

EXE de teste

[Juliana Tamizou]

Bom dia.

Fechando aqui pois já foi criado um novo tópico para a outra dúvida.

At.

[Italo Giurizzato Junior]

Bom dia Alexandre,

Pode ser que esse provedor exige que o contribuinte solicite uma autorização para poder realizar o cancelamento via webservice.

Sem essa autorização ao tentar cancelar é retornado a mensagem.

 

O usuário correspondente ao documento utilizado para autenticação não possui autorização para realizar o serviço para a empresa parametrizada via CNPJ e inscrição municipal do arquivo.