carlos_tedex Postado 18 Outubro, 2015 Compartilhar Postado 18 Outubro, 2015 Boa noite, Não estou conseguindo localizar a propriedade no código abaixo para pegar o Protocolo e o cStat dos eventos da NF-e. ACBrNFe1.WebServices.Consulta.NFeChave := sChave; ACBrNFe1.WebServices.Consulta.Executar; For i := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1 do begin sMSG := 'E V E N T O S' + sLineBreak + 'Protocolo: ?????' + sLineBreak + 'cStat: ?????' + sLineBreak + 'Chave: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.chNFe + sLineBreak + 'SeqEvento: ' + IntToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento) + sLineBreak + 'CNPJ: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.CNPJ + sLineBreak + 'Dt Evento: ' + DateTimeToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.dhEvento) + sLineBreak + 'Tp Evento: ' + TpEventoToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpEvento) + sLineBreak + 'DescEvento: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento + sLineBreak + 'Tp Amb: ' + TpAmbToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpAmb); ShowMessage(sMSG); end; Link para o comentário Compartilhar em outros sites More sharing options...
magisystem Postado 23 Fevereiro Compartilhar Postado 23 Fevereiro ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[i].RetInfEvento.nProt Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora