Sem Protocolo ou Protocolo Errado.

[LuizFernando]

Boa tarde a todos,

 

Também estava com o problema de enviar o RPS para a prefeitura, mas em alguns casos não obtinha o nº de protocolo.

 

criei a rotina abaixo para resolver o problema.

 

 

try

 

ACBrNFSe1.Enviar(nroRPS, False)

 

// False para não imprimir a NF, tenho um botão específico para isto

 

except

         on E: Exception do begin

 

// O ACBR (webservice) lança uma exceção informando que o RPS já foi informado

 

// Caso  este seja o caso, executa a rotina ConsultarNFSeporRps passando os parâmetros que já estavam carregados quandopedi para enviar o RPS

 

if  (E.Message =  'RPS ja informado.') then begin

              try

 

                    ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,

                                ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,

                                TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo),

                                ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj,

                                ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal);

 

              if  ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero <> '' then begin

 

                       // Campos com retorno útil para realizar o update no Banco de Dados

 

                        ACBrNFSe1.NotasFiscais.Items[0].XML_NFSe;

                        ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo;

                        ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero;

                       ACBrNFSe1.NotasFiscais.Items[0].NFSe.DataEmissao;

 

 

              end;