Erro Consulta Nfse Por Rps - Savetostream Sem Conteudo Nas Tags Do Xml

[medreis]

Olá,

 

 

Após a atualização dos fontes, esta ocorrendo erro ao consultar NFSE por RPS.

 

Ao salvar os dados no Stream o conteúdo das tags vem vazio

 

ACBrNFSe1.NotasFiscais.Items[0].SaveToStream(vNfseStream);

 

 

 

Estou utilizando o provedor ginfes, anexo o conteúdo do XML retornado.

 

 

Obrigado

nf.xml

[Leonardo Gregianin]

Bom dia medreis,

 

Ao passar os caminhos para salvar:

   ACBrNFSe1.Configuracoes.Arquivos.PathGer :=
   ACBrNFSe1.Configuracoes.Arquivos.PathRPS :=
   ACBrNFSe1.Configuracoes.Arquivos.PathNFSe :=
   ACBrNFSe1.Configuracoes.Arquivos.PathCan :=
   ACBrNFSe1.Configuracoes.Geral.PathSalvar :=

e habilitar as propriedades para salvar:

   ACBrNFSe1.Configuracoes.Arquivos.Salvar := True;
   ACBrNFSe1.Configuracoes.Geral.Salvar := True;
   ACBrNFSe1.Configuracoes.WebServices.Salvar := True;

Após a consulta os arquivos são salvos automaticamente por isso não entendi o porque de usar SaveToStream.

Outra situação é: Será que o correto seria mesmo utilizar SaveToStream? Em algumas situações eu utilizo SaveToFile:

ACBrNFSe1.NotasFiscais.Items[0].SaveToFile(ACBrNFSe1.Configuracoes.Arquivos.PathNFSe + '\' + nronfse + '.xml');

Desculpe se falei qualquer besteira.

[medreis]

Olá Leonardo.

 

Eu salvo os arquivos XMLs, no Banco de Dados ai eu uso savetoStream para salvar os dados em um variável e depois realizar a importação do arquivo para um campo no banco de dados utilizando,  eu já salvo os arquivos no disco também, mas como sempre estou tendo problemas com o Stream, acho que vou modificar meu código para LoadFromFile...

 

 

Veja o código

 

      vNfseStream := TStringStream.Create('');
        Try
          cds_Nota.Edit;
          ACBrNFSe1.NotasFiscais.Items[0].SaveToStream(vNfseStream);
          TBlobField(cds_Nota.FieldByName('NFSE_XML_RETORNO_LOTE')).LoadFromStream(vNfseStream);
          (Ds_nota.DataSet as TClientDataSet).ApplyUpdates(-1);
        Finally
          vNfseStream.Free;
        End;