Olá amigos,
Estou implementando essa carta de correção e está retornando a mesma mensagem de erro. Uso DELPHI 2007 com Fast Report, vejam como estou implementando:
procedure CarregaCorrecao;
var
lNomeArquivo2: String;
lString: TStrings;
begin
lString := TStringList.Create;
try
lString.Clear;
lACBrNFe.EventoNFe.Evento.Clear;
lNomeArquivo2 := TSistema.SomenteNumeros(lACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID)+'-corr.xml';
Dtm_Arquivos.AcionaFiltroXMLCorr(lNomeArquivo2);
lACBrNFe := Frm_Principal.ACBrNFe(Dtm_Arquivos.TemRegistros, True);
if Dtm_Arquivos.TemRegistros then
begin
Dtm_Arquivos.ClientDataSetARQUIVO.SaveToFile(lACBrNFe.Configuracoes.Arquivos.GetPathCCe + '\' + Dtm_Arquivos.ClientDataSetNOME_ARQUIVO.AsString);
if TSistema.ArquivoExiste(lACBrNFe.Configuracoes.Arquivos.GetPathCCe + '\' + Dtm_Arquivos.ClientDataSetNOME_ARQUIVO.AsString) then
begin
lString.LoadFromFile(lACBrNFe.Configuracoes.Arquivos.GetPathCCe + '\' + Dtm_Arquivos.ClientDataSetNOME_ARQUIVO.AsString);
lACBrNFe.EventoNFe.LerXMLFromString( lString.Text); //ou lACBrNFe.EventoNFe.LerXML dá mesmo erro!
ansi
end;
end;
finally
FreeAndNil(lString);
end;
end;