Data De Emissão Do Rps

[leufmt]

Bom dia galera.

Alguém sabe como faço para pegar a Data de Emissão do RPS após o envio com sucesso?

 

Já consigo pegar o Número é Série:

     ADOQNotas.FieldByName('NUMERORPS_NOT').AsString :=  ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero;
     ADOQNotas.FieldByName('SERIERPS_NOT').AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie;
     ADOQNotas.FieldByName('DATAEMISSAORPS_NOT').AsDateTime := ????;
 

[leufmt]

Bom dia pessoal.

Me ajudem por favor.

 

Estou pegando a data de emissão do rps mas esta vindo 30/12/1899.

Uso o comando

ADOQNotas.FieldByName('DATAEMISSAORPS_NOT').AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps;

[Juliomar Marchetti]

Verificou se no xml qual data vem?

[leufmt]

no xml esta correto

[Juliomar Marchetti]

no xml esta correto

Certo então agora vamos por parte

no local onde faz o parse do xml conferiu como ele tá convertendo?

[Roberto.Godinho]

Boa tarde,

 

 

se possivel posta o XML retornado pra gente da uma olhada.

[leufmt]

Descobri o que era.

Eu não esta informando a data para este campo ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissaoRps

só para este ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissao

 

Agora estou informando

ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissao := Now;

ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissaoRps := Now;

 

Agora deu certo.

 

Era bobeira.

 

Mas obrigado pessoal