Cancelamento de NFe

[Luiz Carlos de Lima]

Boa tarde,

Estou fazendo o cancelamento de NFe, mas estou tendo dúvida sobre o cStat do Retorno.

A nota esta com 48 horas de emissão, então deveria retornar erro, informando que a nota está fora do prazo de cancelamento.

      ACBrNFe.EventoNFe.Evento.Clear;
      with ACBrNFe.EventoNFe.Evento.New do
      begin
        infEvento.chNFe                    := dsNotasSaidas.DataSet.FieldByName('ChaveNFe_NotaSaida_Material').AsString;
        infEvento.detEvento.nProt  := dsNotasSaidas.DataSet.FieldByName('ProtocNFe_NotaSaida_Material').AsString;
        infEvento.CNPJ                     := vCNPJCertificado;
        infEvento.dhEvento               := LerDataHoraAtual;
        infEvento.tpEvento               := teCancelamento;
        infEvento.detEvento.xJust := Justificativa;
      end;

      Retorno := ACBrNFe.EnviarEvento(1);

      vCodRetorno := ACBrNFe.WebServices.Consulta.cStat;
      vRetorno    := IntToStr(ACBrNFe.WebServices.EnvEvento.cStat);

       Retornos:
           Retorno          = true
           vCodRetorno = 100
           vRetorno        = 128   (Lote de Evento Processado: o lote foi processado), quando deveria retornar o cStat 135 (Evento registrado e vinculado a NF-e: recebido...)

Como saber se o procedimento de cancelamento foi efetivado?

Grato pela atenção

[BigWings]

3 minutos atrás, Luiz Carlos de Lima disse:

Como saber se o procedimento de cancelamento foi efetivado?

 

ACBrNFe1.EnviarEvento(nLote);

cStat := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;
nProt := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
xMotivo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

 

[Luiz Carlos de Lima]

Grato, resolvido.

[Italo Giurizzato Junior]

Obrigado por reportar.

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