Nota aprovada aparecia como rejeitada

[pradilsoncarlos]

Emiti a nfse e ela me retornou a mensagem em anexo, no entanto a nfse estava aprovada.

Faço a consulta com esse código após enviar:

                  if ConfiguracaoIni.chkConsultarSituacao.Checked = True Then
                     Begin
                        If ConsultarSituacao(Protocolo) Then
 

ou esse:

                  Else if ConfiguracaoIni.chkConsultarSituacao.Checked = False Then
                     Begin
                        if ConsultarSituacao(ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo,ACBrNFSe1.NotasFiscais.Items[0].NFSe.NumeroLote) then
                           Begin
                              ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                              ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                              TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));
 

mas no caso em questão usei o primeiro

 

Fiz com esse depois de já ter enviado e retornou aprovada:

      wAprovada := ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                 ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                 TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

 

Alguém pode ajudar, acredito que estou consultando de maneira errada. Peço ajuda pq só tenho como testar no cliente.

 

Obrigado.

Adilson.
 

 

[Italo Giurizzato Junior]

Boa tarde Adilson,

A mensagem é clara, o RPS não foi aceito por já existir outro com o mesmo numero, serie e tipo.

É preciso descobrir qual foi o ultimo RPS enviado para dar continuidade na numeração.

[pradilsoncarlos]

14 horas atrás, Italo Jurisato Junior disse:

Boa tarde Adilson,

A mensagem é clara, o RPS não foi aceito por já existir outro com o mesmo numero, serie e tipo.

É preciso descobrir qual foi o ultimo RPS enviado para dar continuidade na numeração.

Eu até achei que fosse isso mesmo, mas depois que consultei da seguinte forma:

  wAprovada := ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                 ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                 TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

Ele retornou o xml em anexo, o horário e data de emissão são o horário que eu fiz o envio e ele retornou mensagem que já existia. Outra coisa os dados, tudo é da nfse que eu fiz o cliente não emitiu outra com essa numeração, ai então imaginei que fosse por causa da consulta que poderia estar errada. Outra coisa, pensando bem, me recordo também de ter retornado time out.

2019000000001500-nfse.xml

[pradilsoncarlos]

problema resolvido

[Felipe E. Resende Mesquita]

Obrigado por reportar.

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