Alterações no Envio de Evento no ACBrNFe

[_asseinfo]

Boa tarde pessoal,

 

Estou utilizando o cancelamento da seguinte forma:

 

 

ACBr.NotasFiscais.Clear;

ACBr.NotasFiscais.LoadFromStream(XML); //Carrega o XML

ACBr.Cancelamento(justificativa);

 

e pego o retorno em:

 

ACBr.WebServices.Cancelamento.cStat

 

Fui efetuar um teste de cancelamento hoje em modo homologação e recebo a mensagem "Desativado de acordo com Ajuste SINIEF 16/12. Usar o Evento de Cancelamento (NT 2011/006)".

 

Como devo utilizar agora o cancelamento?

 

Obrigado.

[peterson161]

Agora você deve cancelar utilizando Eventos.

Consulte o Demo para saber a maneira correta de cancelar, analisando o código de um dos dois botões:

- Cancelamento NFe com XML

- Cancelamento NFe pela Chave

[_asseinfo]

OK.

Obrigado pela dica peterson161.

 

Eu analisei o código lá.

Eu só gostaria de saber como pegar o xml com o cancelamento sem salvar em arquivo.

No nosso software não utilizamos os arquivos salvos. Pegamos as informações diretamente do componente.

Você sabe como se tem essa informação disponível?

Você sabe também onde eu pego o cStat no retorno do cancelamento?

[peterson161]

Excelente explicação no site do Regys:

http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/

[_asseinfo]

Mais uma vez muito obrigado ao peterson161 e a todos os colaboradores do projeto ACBr.

[carlosfilho]

Bom dia, para quem tem problema de horario segue uma dica.

 

 ACBrNFe1.WebServices.StatusServico.Executar;
 ACBrNFe1.EventoNFe.Evento.Clear;
 ACBrNFe1.EventoNFe.idLote := StrToInt(idLote) ;
  with ACBrNFe1.EventoNFe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := ACBrNFe1.WebServices.StatusServico.dhRecbto;  //(pegar data e hora do servidor nfe)
     infEvento.tpEvento := teCCe;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.detEvento.xCorrecao := Correcao;
   end;
  ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));
 

[carlosmarian]

Bom dia, para quem tem problema de horario segue uma dica.

 

 ACBrNFe1.WebServices.StatusServico.Executar;

 ACBrNFe1.EventoNFe.Evento.Clear;

 ACBrNFe1.EventoNFe.idLote := StrToInt(idLote) ;

  with ACBrNFe1.EventoNFe.Evento.Add do

   begin

     infEvento.chNFe := Chave;

     infEvento.CNPJ   := CNPJ;

     infEvento.dhEvento := ACBrNFe1.WebServices.StatusServico.dhRecbto;  //(pegar data e hora do servidor nfe)

     infEvento.tpEvento := teCCe;

     infEvento.nSeqEvento := StrToInt(nSeqEvento);

     infEvento.detEvento.xCorrecao := Correcao;

   end;

  ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));

 

Olá,

    tive relatos de alguns cliente que ao efetuar o cancelamento estão recebendo critica referente a data.

    e esta crítica ocorre de forma aleatória, e eu não conseguia identificar o motivo, então isso pode ajudar neste caso?

 

at+

[Vilmardiogo]

Olá pessoal, com estas mudanças do cancelamento, qual a maneira correta de pegar os retornos do cancelamento ?

 

Antes eu pegava assim:

 

 

    sProtocolo  := ACBrNFe1.WebServices.Cancelamento.Protocolo;

    DataCancNFe := ACBrNFe1.WebServices.Cancelamento.DhRecbto;

    Status_Ret  := ACBrNFe1.WebServices.Cancelamento.cStat;

    xChaveNFe := ACBrNFe1.WebServices.Cancelamento.NFeChave;

 

Com as mudanças posso fazer assim:

 

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

    DataCancNFe := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

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

    xChaveNFe := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe;

 

 

Se alguém tiver alguma dica, obrigado.

[peterson161]

http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/

[wagner aragao]

Olá

Pessoal, quando se usa o componente dá para corrigir o envio do cancelamento por evento assim , e quando usa o monitor ?? como passo os dados da data e hora ??

t+

[Kiko Fernandes]

Olá

Pessoal, quando se usa o componente dá para corrigir o envio do cancelamento por evento assim , e quando usa o monitor ?? como passo os dados da data e hora ??

t+

Wagner vc testou com o exemplo que o André postou nest link? 

 

[Fernando Minotto]

Acabei de identificar o problema do cOrgão.

O problema ocorre pois o AN não aceita o valor 90 como cOrgao.


Falha na validação dos dados do Envio de Evento
'90' violates enumeration constraint of '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53 91'.
The element '{http://www.portalfis...f.br/nfe}cOrgao' with value '90' failed to parse.

fiz o seguinte ajuste na função.


function TInfEvento.getcOrgao: integer;
// (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO);
// (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17);
begin
   if FcOrgao <> 0 then
      Result := FcOrgao
else
begin
case fTpEvento of
teCCe,teCancelamento:
begin
Result := StrToInt(copy(FChave,1,2));
{Estados que utilizam a SVAN: ES, MA, PA, PI, RN => Devem utilizar 91}
if Result in [32,21,15,22,24] then
Result := 91;
end
else
Result := 91;
end;
end;
end;


estou validando no cliente mas creio que seja este o problema.

[André Ferreira de Moraes]

Acabei de identificar o problema do cOrgão.

O problema ocorre pois o AN não aceita o valor 90 como cOrgao.

Falha na validação dos dados do Envio de Evento

'90' violates enumeration constraint of '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53 91'.

The element '{http://www.portalfis...f.br/nfe}cOrgao' with value '90' failed to parse.

fiz o seguinte ajuste na função.

function TInfEvento.getcOrgao: integer;

// (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO);

// (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17);

begin

   if FcOrgao <> 0 then

      Result := FcOrgao

else

begin

case fTpEvento of

teCCe,teCancelamento:

begin

Result := StrToInt(copy(FChave,1,2));

{Estados que utilizam a SVAN: ES, MA, PA, PI, RN => Devem utilizar 91}

if Result in [32,21,15,22,24] then

Result := 91;

end

else

Result := 91;

end;

end;

end;

estou validando no cliente mas creio que seja este o problema.

Isso foi corrigido hoje pela manhã, por favor atualize seus fontes.

[Fernando Minotto]

Isso foi corrigido hoje pela manhã, por favor atualize seus fontes.

 

Fiz a atualização a 30 minutos e ainda continha o erro. mas vou fazer o procedimento novamente.

Fazendo a alteração acima consegui resolver com os clientes!

Ufa!

 

-- PS: Acabei de atualizar e esta ok. Muito obrigado!

Editado 2 Abril, 2013 por Fernando Minotto

[[email protected]]

Olá Pessoal,

 

Atualmente estou usando a versão 0.7.7.1 do "ACBr NFe MONITOR" e pesquisando como gerar um evento para cancelar uma NFe vi em outro tópico uma dica de um colega para usar o comando "NFe.EnviarEvento" mas conforme poderão ver abaixo não funcionou. Alguem saberia me dizer onde estou errando?

 

Comando:

NFe.EnviarEvento("EVENTO", idLote=38593, "EVENTO001", chNFe=22130407051752000120550010000064181000641818, cOrgao=22, CNPJ=07051752000120, dhEvento=2013-04-02T10:43:13-03:00, tpEvento=110111, nProt=422130003537495, xJust="TESTE DE CANCELAMENTO VIA EVENTO")
 

Resposta do ACBrNFeMonitor:

ERRO: Comando inválido (NFe.EnviarEvento("EVENTO", idLote=38593, "EVENTO001", chNFe=22130407051752000120550010000064181000641818, cOrgao=22, CNPJ=07051752000120, dhEvento=2013-04-02T10:43:13-03:00, tpEvento=110111, nProt=422130003537495, xJust="TESTE DE CANCELAMENTO VIA EVENTO"))
 

[André Ferreira de Moraes]

Use a versão disponibilizada neste post -

[[email protected]]

André,

 

Com a nova versão funcionou perfeitamente !!!!

Muito obrigado pela ajuda e atenção !!!!

Espero poder retirbuir qualquer dia...

 

Abraço.

 

Ricardo Dantas.

[brunohk]

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?

[Régys Silveira]

Verifique o que é retornado em "EventoRetorno.retEvento.Items[X].RetInfEvento.cStat"

[brunohk]

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?

[Danilo]

debuga e veja se ele está carregando o 'Numero do Protocolo' ....

 

 InfEvento.detEvento.nProt := ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt;

[brunohk]

estava carregando sim, descobri o que era, estava falta o novo schema reposnsavel pelo envio, joguei

la na pasta e passou...

 

obrigado ae

Att. Bruno

[edsonjplima]

o meu está dessa forma:

 

ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));

[AlexandreBertolato]

E para quem usa o acbrnfemonitor como fica o envio do comando ? E qual versão usar ?

[Juliomar Marchetti]

Por favor utilizem a "PESQUISA" já foi respondido em outros tópicos isso