Conteúdo Do Acbrnfe.webservices.consulta.proceventonfe

[douglaswf]

Boa tarde colegas!

 

Quando chamo o método ACBrNfe.WebServices.Consulta.Executar, as propriedades do 

 

Não sei se é um erro ou se é o conceito do objeto, mas notei que quando chamado o Método ACBrNfe.WebServices.Consulta.Executar, ele atualiza as propriedades do ACBrNfe.WebServices.Consulta.procEventoNFe

 

Notei porém que se eu chamar uma consulta de uma chave que possui eventos, e depois chamar uma consulta para uma chave que não possui eventos, o ACBR não limpa os valores da NFe anterior. Não sei se é um problema ou se é o conceito do componente, mas como sofri com isso, achei importante trazer pra discussão.

Para testar é só executar este exemplo: A segunda NFe não tem eventos, mas o fonte vai mostrar que ela fica com o evento de "cancelamento" da consulta anterior alimentado.

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

  ok, Repete: Boolean;

  xCount: integer;

begin

  ACBrNFe1.Configuracoes.Certificados.Certificado := edit7.Text;

  ACBrNFe1.Configuracoes.Certificados.Senha := edit6.Text;

  ACBrNFe1.Configuracoes.WebServices.Ambiente:=StrToTpAmb(ok,'1');

 

 

  ACBrNfe1.Configuracoes.WebServices.UF:='SC';

  ACBrNfe1.WebServices.Consulta.NFeChave:='42150211908362000100550010000002951000023609';

  ACBrNfe1.WebServices.Consulta.Executar;

  xCount:=ACBrNfe1.WebServices.Consulta.procEventoNFe.Count;

  showmessage('cStat: ' + IntToStr(ACBrNfe1.WebServices.Consulta.cStat));

  showmessage('Qtd Eventos: '+ IntToStr(xcount));

 

 

  ACBrNfe1.Configuracoes.WebServices.UF:='SC';

  ACBrNfe1.WebServices.Consulta.NFeChave:='42150275315333012549550010009597441009597443';

  ACBrNfe1.WebServices.Consulta.Executar;

  xCount:=ACBrNfe1.WebServices.Consulta.procEventoNFe.Count;

  showmessage('cStat: ' + IntToStr(ACBrNfe1.WebServices.Consulta.cStat));

  showmessage('Qtd Eventos: '+ IntToStr(xcount));

 

 

end;

 

[ricardo_casc]

Em todas as operações eu limpo o componente.
 

 

ACBrNFe.NotasFiscais.Clear;

ACBrNFe.EventoNFe.Evento.Clear;

[douglaswf]

Certo, também fiz dessa forma e solucionou. a questão é se o ACBR nao deveria zerar o objeto evento já que ele fica com dados de uma NFe consultada e dados de outra NFe nos eventos...

[marcelolours]

Creio que não, devido a possibilidade de se acumular eventos e enviar em lote! Se limpasse sozinho não haveria essa possibilidade.