Capturar Data Evento NFe

[Eptus]

Bom dia,

Utilizo essas propriedades para pegar os dados do evento, mas sempre a data de recebimento do evento está vindo como "30/12/199" (em tese, está vindo nulo)

                        If (Resumo_Evento) And (ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].ResEvento.chNFe <> '') Then Begin
                           sEveChave := ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].ResEvento.chNFe;
                           sEveProt := ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].ResEvento.nProt;
                           iEveSeq := ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].ResEvento.nSeqEvento;
                           sEveDescricao := ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].ResEvento.xEvento;
                           sEveDtEvento := DateToStr(ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].resNFe.dhEmi);
                           sEveDtRecbto := DateToStr(ACBrNFeTemp.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[iDoc].resNFe.dhRecbto);

                     End;

como faço para pegar corretamente a data do evento e a data de recebimento do evento?

[Italo Giurizzato Junior]

Bom dia Eptus,

Favor checar novamente a sua rotina, pois as duas ultimas linhas você esta pegando a data/hora de resNFe, o correto não seria ResEvento?