Impressão De Evento

[softcom.wendel]

Estou com problema no seguinte código

 

procedure TUnt_Ctrl_Nfe.Imprimir_Evento(pPath_Xml, pPath_Xml_Evento: string);
begin
  if FileExists(pPath_Xml_Evento) and FileExists( pPath_Xml ) then
    begin
      NFe.NotasFiscais.Clear;
      NFe.NotasFiscais.LoadFromString( pPath_Xml );

      NFe.EventoNFe.Evento.Clear;
      NFe.EventoNFe.LerXMLFromString( pPath_Xml_Evento );

      NFe.ImprimirEvento;
    end
    else
      MessageDlg('Os Arquivos passados para Impressão não foram encontrados, verifique!', mtError, [mbOK],0);
end;
 

O Componente não consegue carregar os xmls e dá erro nos dois...conferi o path passado e os arquivos e mesmo assim dá erro...o que poderia ser?

 

Agradeço a ajuda

 

 

[Juliomar Marchetti]

Estou com problema no seguinte código

 

procedure TUnt_Ctrl_Nfe.Imprimir_Evento(pPath_Xml, pPath_Xml_Evento: string);

begin

  if FileExists(pPath_Xml_Evento) and FileExists( pPath_Xml ) then

    begin

      NFe.NotasFiscais.Clear;

      NFe.NotasFiscais.LoadFromString( pPath_Xml );

      NFe.EventoNFe.Evento.Clear;

      NFe.EventoNFe.LerXMLFromString( pPath_Xml_Evento );

      NFe.ImprimirEvento;

    end

    else

      MessageDlg('Os Arquivos passados para Impressão não foram encontrados, verifique!', mtError, [mbOK],0);

end;

 

O Componente não consegue carregar os xmls e dá erro nos dois...conferi o path passado e os arquivos e mesmo assim dá erro...o que poderia ser?

 

Agradeço a ajuda

Bom dia!

veja o comando acima é para carregar o xml de uma string!

se quer carregar de um arquivo é LoadFromFile!