Incompatible types: 'TRetEventoNFeCollectionItem' and 'TObject'

Curso Emissor NFC-e
1

Quando tento compilar o codigo fonte, obtenho essa mensagem de erro, nesta linha
“NFCe.Emissor.pas(754): E2010 Incompatible types: ‘TRetEventoNFeCollectionItem’ and ‘TObject’”

Comentei esse trecho do for, e compilou normalmente.

O que pode ser?

Desde já, agradeço!

2

Provavelmente alguma incompatibilidade com versão do ACBr. Qual versão está usando?

3

Versao Instalador: 2.4.3.1
Versão do delphi: Delphi 11 Alexandria Win32

[infNFe]
versao=4.0

Local onde ocorre o erro:

for Evento in NFeConsulta.procEventoNFe do // Nesta linha gera o erro
begin
ProtocoloEvento := TProtocoloEventoNFeDTO.Create;
ProtocoloEvento.evento := TEventoNFeDTO.Create;
ProtocoloEvento.retEvento := TRetornoEventoNFeDTO.Create;
try
ProtocoloEvento.evento.id := Evento.RetEventoNFe.InfEvento.id;
ProtocoloEvento.evento.cOrgao := Evento.RetEventoNFe.InfEvento.cOrgao;

    case Evento.RetEventoNFe.InfEvento.tpAmb of
      taProducao: ProtocoloEvento.evento.tpAmb := 'Producao';
      taHomologacao: ProtocoloEvento.evento.tpAmb := 'Homologacao';
    end;

    ProtocoloEvento.evento.CNPJ := Evento.RetEventoNFe.InfEvento.CNPJ;
    ProtocoloEvento.evento.chNFe := Evento.RetEventoNFe.InfEvento.chNFe;
    ProtocoloEvento.evento.dhEvento := Evento.RetEventoNFe.InfEvento.dhEvento;
    ProtocoloEvento.evento.tpEvento := TpcnTpEventoString[Integer(Evento.RetEventoNFe.InfEvento.tpEvento)];
    ProtocoloEvento.evento.nSeqEvento := Evento.RetEventoNFe.InfEvento.nSeqEvento;
    ProtocoloEvento.evento.versaoEvento := Evento.RetEventoNFe.InfEvento.versaoEvento;
    ProtocoloEvento.evento.DescEvento := Evento.RetEventoNFe.InfEvento.DescEvento;
    ProtocoloEvento.evento.TipoEvento := Evento.RetEventoNFe.InfEvento.TipoEvento;
    ProtocoloEvento.evento.detEvento := GetDetalheEvento(
      Evento.RetEventoNFe.InfEvento.tpEvento,
      Evento.RetEventoNFe.InfEvento.detEvento
    );

    BindingRetornoEvento(ProtocoloEvento.retEvento,
      Evento.RetEventoNFe.retEvento.Items[0].RetInfEvento);

    Result.procEventoNFe.Add(ProtocoloEvento);
  except
    ProtocoloEvento.evento.Free;
    ProtocoloEvento.retEvento.Free;
    ProtocoloEvento.Free;
    raise;
  end;
end;
4

Atualizamos o repositório GIT com as correções.
Faça o cadastro no nosso GIT (https://git.landgraf.dev) e solicite o acesso ao repositório por aqui.

5

Bom dia Wagner, tudo bem? Estou com este problema, consegue me ajudar? Delphi 10.2

[dcc32 Error] NFCe.Emissor.pas(753): E2010 Incompatible types: ‘TRetEventoNFeCollectionItem’ and ‘TObject’

verifiquei sua postagem acima mas não está funcionando o link.

Att. Luciano Benito

6

Boa tarde @lucianobenito,

O link oficial com o fonte mais atualizado agora é esse: