[Alterações no Envio de Evento no ACBrNFe]

mas ele nem chega a retnorar pois o retorno ta dentro do if da função ACBrNFe.EnviarEventoNFe(NumeroLote)

como é retnornada um falso ele não pega o retorno e a função EventoRetorno.retEvento.Items[X].RetInfEvento.cStat não e reconhecida

fora do if mesmo dando erro na ACBrNFe.EnviarEventoNFe(NumeroLote) ele traz um retorno?

[Alterações no Envio de Evento no ACBrNFe]

Bom dia,

Estou criando o evento de cancelamento da nota da seguinte forma:

 

   NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

      //carregar o xml da nota
      ACBrNFe.NotasFiscais.Clear;
      ACBrNFe.NotasFiscais.LoadFromFile(CaminhoXML);
      //cria evento cancelamento
      ACBrNFe.EventoNFe.Evento.Clear;
      ACBrNFe.EventoNFe.idLote := NumeroLote;
      try
        with ACBrNFe.EventoNFe.Evento.Add do
        begin
           InfEvento.chNFe   := ChaveNF;
           InfEvento.CNPJ    := aCNPJ;
           InfEvento.dhEvento:= now;
           InfEvento.tpEvento:= teCancelamento;
           InfEvento.detEvento.nProt := ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt;
           InfEvento.detEvento.xJust := xMotivo;
        end;
        //enviar o evento de cancelamento
        if ACBrNFe.EnviarEventoNFe(NumeroLote) then
        begin
          with ACBrNFe.WebServices.EnvEvento do
          begin
            if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then
            begin
              raise Exception.CreateFmt(
              'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:'  + sLineBreak +
              'Código:%d' + sLineBreak +
              'Motivo: %s', [
              EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,
              EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]);
            end;
            // retornos
            DataHoraEvento  := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;
            NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
            XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
            sl.Text         := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
            CodigoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;
            MotivoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;
 

No ambiente de homologaçao e nos cliente em produção funcionou em quase todos mas teve um caso espcial

em que na chamada do metodo ACBrNFe.EnviarEventoNFe(NumeroLote) ele simplesmente não executou o cancelamento

retornando falso mas tambem não acusa nenhum erro, tentei desativar o firewall e ate mesmo desativei o anti-virus com

medo que estivesse bloquando algo mas ele passa verifiquei todos parametros do evento e estão todos correto tambem,

alguem passou por algo semelhante ou tem alguma sugestão do que pode estar ocasionando isso?

[Duvida sobre como pegar NSU de reposta]

deu certo Regys valeu pela ajuda

[Duvida sobre como pegar NSU de reposta]

bom dia,

estou usando um gerenciador da auttar e ele está fazendo todas as transações corretamente,

no entanto eu precisaria de no momento da transação ou logo após saber qual o codigo NSU da transação,

existe alguma forma de pega-lo através do ACBrTEFD1 ou ACBrECF1??

Att. Bruno