Cancelamento de NFe

Luiz Carlos de Lima · 12 Agosto, 2020

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 · 12 Agosto, 2020

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;