Para quem utiliza o componente ACBrNFe, devemos acrescentar as seguintes linhas na rotina que alimenta o componente:
(para mais detalhes aconselho abrir o programa exemplo do componente ACBrNFe)
ACBrNFe1.EventoNFe.Evento.Clear;
with ACBrNFe1.EventoNFe.Evento.New do
begin
infEvento.chNFe := Chave;
infEvento.CNPJ := CNPJ;
infEvento.dhEvento := now;
infEvento.tpEvento := teAtorInteressadoNFe;
infEvento.nSeqEvento := StrToIntDef(nSeqEvento, 1);
infEvento.detEvento.cOrgaoAutor := UFtoCUF(xUF);
infEvento.detEvento.tpAutor := StrToTipoAutor(Ok, TipoAtor);
infEvento.detEvento.verAplic := VerAplic;
// No momento a SEFAZ só aceita apenas 1 CNPJ/CPF
with InfEvento.detEvento.autXML.New do
CNPJCPF := AutXML;
infEvento.detEvento.tpAutorizacao := StrToAutorizacao(Ok, TipoAutoriz);
end;
ACBrNFe1.EnviarEvento(StrToInt(idLote));