Boa noite galera. Faz dias que implementei algumas modificações em relação a NFe 4.0, porém o Evento de Manifestação está retornando um exception em branco, eu debuguei inclusive e não consegui descobrir o problema. Alguém passou por isso ou pode me dar uma luz?
Quando eu volto para 3.10, o evento funciona sem problema nenhum.
Segue o código:
dmDataSets.NFE.EventoNFe.Evento.Clear;
with dmDataSets.NFE.EventoNFe.Evento.Add do
begin
InfEvento.cOrgao := 91;
infEvento.chNFe := Chave;
infEvento.CNPJ := Trim(SoNumeros(CNPJ));
infEvento.dhEvento := now;
InfEvento.detEvento.xJust := Trim(Mensagem);
case Tipo of
0: infEvento.tpEvento := teManifDestConfirmacao;
1: infEvento.tpEvento := teManifDestCiencia;
2: infEvento.tpEvento := teManifDestDesconhecimento;
3: infEvento.tpEvento := teManifDestOperNaoRealizada;
end;
end;
dmDataSets.NFE.EnviarEvento(StrToInt(IDLote));
Se já tem um post sobre isso eu acabei não encontrando, e se precisarem de mais algo é só me avisar.
Desde já, obrigado.