Consultar Pela Chave

[Hetosoft Sistemas]

Consultar pela Chave

min retorna isto

ate ai blz

 

Identificador : 51131103953552000102650010000005011000005019
Ambiente : 2
Versão Aplicativo : 3.00
Status Código : 100
Status Descrição : Autorizado o uso da NF-e
UF : MT
Chave Acesso : 51131103953552000102650010000005011000005019
Recebimento : 21/11/2013 14:36:17
Protocolo : 151130000031303
Digest Value : 87w/44wWjure5InXMafTPHWpFVI=

 

 

Mais como faço para ter so a data do protocolo , estou

tentando com o codigo abaixo mais nao retorna nada

 

 

procedure TForm_NFe.btnConsultarChaveClick(Sender: TObject);
var
 vChave : String;
begin
  if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', vChave)) then
    exit;

  ACBrNFe1.WebServices.Consulta.NFeChave := vChave;
  MudarParaNFeOuNFCe(0);
  ACBrNFe1.WebServices.Consulta.Executar;

  MemoResp.Lines.Text :=  UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS);
  memoRespWS.Lines.Text :=  UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS);
  LoadXML(MemoResp, WBResposta);
  LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS);


  ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo);