Substituicao ao Comando ACBrNFe.Configuracoes.Arquivos.Save

[CEDG]

Amigos , ja revirei esse forum e naum achei resposta....

Antes eu usava o comando : ACBrNFe.Configuracoes.Arquivos.Save('NomedoArquivo.XML',DM.ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML), para salvar uma copia do XML de evento em um outro lugar...

Agora naum acho o substituro deste comando Save.,..

Se alguem puder me ajudar fico grato

 

 

[Agnaldo Prates]

Var Old_Pasta: String;

Begin

    Old_Pasta := ACBrNF1.Configuracoes.Arquivos.PathSalvar ;

    ACBrNF1.Configuracoes.Arquivos.PathSalvar := Pasta_Destino;

    Try

     ACBrNF1.NotasFiscais.Items[0].GravarXML(Seu_Arquivo , Pasta_Destino );

   Finally

    ACBrNF1.Configuracoes.Arquivos.PathSalvar := old_Pasta;

   End;

End;

 

[CEDG]

Perfeito, naum tinha pensado nessa solucao....

 

Obrigado !!!!