Consultar pela chave

[Caetano]

Boa tarde a todos companheiros que nao tem feriado...hehee

Alguem poderia me ajudar. Quando consulto a NF-e pela chave usando o comando abaixo.

ACBrNFe1.WebServices.Consulta.Executar;

Como trazer todas as descrições dos eventos relacionados a esta nota, eu estou usando a linha abaixo, mas só traz o primeiro.

ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[0].RetEventoNFe.InfEvento.DescEvento;

Att;

Caetano

[marcelo_sp]

Caetano , tem que fazer um laço "for" e utilizar o count , ai vc atribui o resultado a uma variavel integer no laço .

for i := 0 to ...

ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento;

[Caetano]

Boa noite marcelo

Tem alguem exemplo pra mim acompanhar?

Att;

Caetano

[marcelo_sp]

Caetano , na verdade ontem feriado respondi a sua pergunta só no tato sem verificar os fontes aqui , mas no caso a sua pergunta do Comando "ACBrNFe1.WebServices.Consulta.Executar" só vai resultar no status de como esta a NFe pela chave , não vai retornar os eventos relacionados a Chave da NFe consultada como vc quer !!!

Não existe consultar os eventos de somente uma só NFe pela sua chave , somente consultar as NFe Destinadas ai aparece tudo relacionando ao CNPJ em questão = Emissão da NFe , CCe , Cancelamento , então neste caso vc utilizaria "Consulta NFe Destinadas" presente no Demo do ACBrNFe .

Se for o caso de necessidade vc pode fazer um filtro no seu Aplicativo para filtrar o retorno de somente uma chave , entende ? quando for retornando as informações vc lista somente aquela chave em questão !

[Caetano]

Obrigado pela resposta marcelo.

Então eu não consigo consultar uma nfe e trazer todas as informações referente a ela ex: Eventos de carta de correção, cancelamentos.

Att

Caetano

[Caetano]

Eu estava procurando aqui no fórum e encontrei isso

viewtopic.php?f=6&t=6356&p=33760&hilit=consultar+eventos#p33760

mas não entedi bem como funciona.

[marcelo_sp]

A sim , neste caso o retorno é distribuido no componente assim :

ACBrNFe1.ConsultaNFeDest(CNPJ,

StrToIndicadorNFe(ok,indNFe),

StrToIndicadorEmissor(ok,IndEmi),

UltNSu) ;

// Retorno de NFe's

for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do

begin

if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then

begin

memo1.lines.add(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome) ;

memo1.lines.add(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe ) ;

memo1.lines.add(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF ) ;

memo1.lines.add(VarToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF)) ;

memo1.lines.add(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE) ;

memo1.lines.add(DateToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi)) ;

memo1.lines.add(VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF)) ;

memo1.lines.add(VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe)) ;

memo1.lines.add(VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitConf));

end ;

end ;

// Retorno de NFe's

// Retorno de Cancelamento's

for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do

begin

if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.chNFe) <> '' then

begin

memo1.lines.add( AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.xNome );

memo1.lines.add( AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.vNF );

// memo1.lines.add( AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc...

end ;

end ;

// Retorno de CCe's

for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do

begin

if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCCe.chNFe) <> '' then

begin

memo1.lines.add( AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCCe.chNFe );

memo1.lines.add( AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCCe.descEvento );

// memo1.lines.add( AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCCe...

end ;

end ;