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 ?
