Erro ao utilizar XmlNfse, carregando duas tag de XML

[chico_lopes]

 

Boa tarde

 

    temos uma função que o cliente importa o XML de NFS-e e guardo o mesmo dentro do banco de dados da seguinte forma 

     ACBrNFSeX1.NotasFiscais.Clear;
     ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
     QCADASTROAXMLRECEB.AsString := ACBrNFSeX1.NotasFiscais.Items[0].XmlNfse;

e verifiquei que ele gerou uma Tag de xml a mais

  <?xml version="1.0" encoding="UTF-8" ?> 
  <?xml version="1.0" encoding="ISO-8859-1" ?> 
- <nfse>
- <rps>
  <nro_recibo_provisorio>118</nro_recibo_provisorio> 
  <serie_recibo_provisorio>RPS</serie_recibo_provisorio> 
  <data_emissao_recibo_provisorio>19/08/2024</data_emissao_recibo_provisorio> 
  <hora_emissao_recibo_provisorio>00:00:00-03</hora_emissao_recibo_provisorio> 
  </rps>

 

e ao carregar o XML pelo comando 

ACBrNFSeX1.NotasFiscais.LoadFromString(qry.FieldByName('AXMLRECEB').AsString);

apresenta o erro abaixo 

XML declaration allowed only at the start of the document

 

se retirar uma das Tags ele não apresenta o problema.

 

verifiquei q é nesse ponto da unit ACBrNFSeXNotasFiscais, porém não sei se pode ser alterado essa regra.

function TNotaFiscal.GetXmlNfse: String;
begin
  Result := FXmlNfse;
  if Result = '' then
    Exit;

  if not XmlEhUTF8(Result) then
    Result := '<?xml version="1.0" encoding="UTF-8"?>' + Result;
end;