Erro no Manifesto do Destinatário

[Jorge Be]

Bom dia senhores, estou fazendo em ambiente de homologação um teste para confirmação do Manifesto do Destinatário, mas me retorna esta mensagem de erro:

Abaixo segue o código que estou usando para fazer esta confirmação:

ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.Evento.Add;
ACBrNFe1.EventoNFe.Evento.Add.InfEvento.cOrgao   := 91;
ACBrNFe1.EventoNFe.Evento.Add.infEvento.chNFe    := mNota_ManifCHAVEACESSO.AsString;
ACBrNFe1.EventoNFe.Evento.Add.infEvento.CNPJ     := Dm2.qFiliaisCCNPJCPF.AsString;
ACBrNFe1.EventoNFe.Evento.Add.infEvento.dhEvento := now;
ACBrNFe1.EventoNFe.Evento.Add.infEvento.tpEvento := teManifDestConfirmacao;
ACBrNFe1.EventoNFe.Evento.Add.infEvento.nSeqEvento := 1;
ACBrNFe1.EventoNFe.Evento.Add.infEvento.versaoEvento := '1.00';
ACBrNFe1.EnviarEvento(1);
if AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135 then

Se puderem me ajudar, agradeço!

[BigWings]

5 minutos atrás, Jorge Be disse:

ACBrNFe1.EventoNFe.Evento.Add;

Cada chamada ao método Evento.Add ou Evento.New é um novo evento sendo criado.

Então você está gerando um lote com 8 eventos, e preenchendo apenas uma tag de cada.

Use:

with ACBrNFe1.EventoNFe.Evento.New do
begin
  InfEvento.cOrgao := 91;
  ...

Ou:

uses
  pcnEnvEventoNfe;

[...]

var
  evento: TInfEventoCollectionItem;
begin
  evento := ACBrNFe1.EventoNFe.Evento.New;
  evento.infEvento.cOrgao := 91;
  ...

 

[Jorge Be]

4 horas atrás, BigWings disse:

Cada chamada ao método Evento.Add ou Evento.New é um novo evento sendo criado.

Então você está gerando um lote com 8 eventos, e preenchendo apenas uma tag de cada.

Use:

with ACBrNFe1.EventoNFe.Evento.New do
begin
  InfEvento.cOrgao := 91;
  ...

Ou:

uses
  pcnEnvEventoNfe;

[...]

var
  evento: TInfEventoCollectionItem;
begin
  evento := ACBrNFe1.EventoNFe.Evento.New;
  evento.infEvento.cOrgao := 91;
  ...

 

Muito obrigado pela ajuda, usei o 1º exemplo e deu certo!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.