Acbr - Nfe - Webservice Nfeenvevento

[rbfboni]

Boa Tarde

 

Estou utilizando a função do TACBrNFe.EnviarEventoNFe, mas mesmo que o retorno do evento tenha erro ( cStat ) ele não esta apresentando a mensagem. Realizei um teste preenchendo a data do evento com uma data/hora maior que hoje, e ele não retorna o erro referente ao problema, retorna sempre como se tivesse dado certo !

 

 

Realizei uma alteração na unit ACBrNFeWebServices na função TNFeEnvEvento.Executar adicionando após a leitura do XML de retorno a validação dos cStat por Retorno Enviado.

 

 

    For j:= 0 to EventoRetorno.retEvento.Count-1 do

    Begin

      if Result then

      begin

        Result := (EventoRetorno.retEvento.Items[j].RetInfEvento.cStat = 128) or (EventoRetorno.retEvento.Items[j].RetInfEvento.cStat = 135) or (EventoRetorno.retEvento.Items[j].RetInfEvento.cStat = 136);

        if not Result then

          Self.FMsg := EventoRetorno.retEvento.Items[j].RetInfEvento.xMotivo;

      end;

    End;

 

 Esta errado ?

[Régys Silveira]

Já existe tópicos tratando deste assunto por favor utilize a pesquisa do fórum, agora ela usa o google e funciona corretamente.