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?