NFSE Curitiba

[Ehdu]

Boa tarde.

Procurei no fórum porém não achei nada parecido com o problema que estou tendo, tentei acionar a prefeitura de Curitiba e nada, até agora não respoderam.

Aparentemente o envio esta certo inclusive retorna o protocolo, porém quando ConsultarNfseRpsEnvio retorna erro:

                <Codigo>E4</Codigo>
                <Mensagem>Esse RPS nao foi enviado para a nossa base de dados</Mensagem>
                <Correcao>Envie o RPS para emissao da NFS-e.</Correcao>

Já olhei a documentação e esta tudo certo, não sei o que estou errando.

Alguém já teve este problema? Poderia me ajudar?

 

211-con-nfse-rps.xml 211-comp-nfse.xml 1462-rec.xml 1462-env-lot.xml

[Italo Giurizzato Junior]

Boa tarde,

Você esta errando no seu fluxo.

O provedor ISSCuritiba que atende a cidade de Curitiba segue a versão 1 do layout da ABRASF.

Nessa versão, após o envio do lote devemos consultar a situação do lote, caso a situação seja 3 ou 4 devemos consultar o lote.

Se a situação for 3, ao consultar o lote teremos a lista de rejeições.

Se a situação for 4, ao consultar o lote teremos o XML da NFS-e.

[Ehdu]

Obrigado pela Ajuda Italo.

Mudou o problema agora:

Implementei meu código assim:

Citar

 

Enviou := ACBrNFSe.Enviar(Lote);
If Enviou then
begin
  ACBrNFSe.ConsultarSituacao(dtNfe.AcbrNfse.NotasFiscais.Items[0].NFSe.Protocolo, ACBrNFSe.NotasFiscais.NumeroLote);
  if( ACBrNFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Count = 0 ) then
    MsgErro := ACBrNFSe.WebServices.ConsSitLoteRPS.Msg + sLineBreak;
    if (ACBrNFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.Situacao <> SituacaoLoteRPSToStr(slrProcessadoSucesso)) then
      begin
        for i := 0 to ACBrNFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Count -1 do
        MsgErro := IfThen( MsgErro <> '', MsgErro + sLineBreak ) +
                             'Código   : ' + ACBrNFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[i].Codigo +
                             'Mensagem : ' + ACBrNFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[i].Mensagem +
                             'Correção : ' + ACBrNFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[i].Correcao

    end;

    if ACBrNFSe.ConsultarNFSeporRps(
                ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                TipoRPSToStr(ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)) then

 

Porém o arquivo retornou com o erro 3.

Tens ideia do que possa ser?

Eu mudei alguns parâmetros, coloquei AguardaConsultaRet em 1000 e tentativas em 10 e mesmo assim continuo com este problema.

 

1466-env-lot.xml 637685896352152110-con-sit.xml 1466-rec.xml 637685896352152110-sit.xml

[Italo Giurizzato Junior]

Bom dia,

Chegou a nota que nas propriedades de configuração do componente existe uma propriedade chamada ConsultaLoteAposEnvio?

Se ela for True, o componente realiza o fluxo que lhe mostrei acima de forma automática.

[Ehdu]

Sim, esta false.

Com false eu estou fazendo o fluxo na mão no código postado ali em cima certo?

Ou estou errado?

Editado 30 Setembro, 2021 por Ehdu

[Italo Giurizzato Junior]

Coloca a propriedade com o valor True e simplifique o seu código.