Exportar xml para diretório

[nildglan]

Pessoal  atravez do acbr como exporto para diretório um xml que ta carregado no compontente do acbrnfe?

[Alexandre de Paula]

Bom dia

No programa exemplo da NFe você tem o botão "Gerar NFe". Nele tem o seguinte codigo:

procedure TfrmACBrNFe.btnGerarXMLClick(Sender: TObject);
var
  vAux: String;
begin
  vAux := '';
  if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then
    exit;

  ACBrNFe1.NotasFiscais.Clear;

  AlimentarComponente(vAux);

  ACBrNFe1.NotasFiscais.Assinar;

  ACBrNFe1.NotasFiscais.Items[0].GravarXML();

  ShowMessage('Arquivo gerado em: ' + ACBrNFe1.NotasFiscais.Items[0].NomeArq);
  MemoDados.Lines.Add('Arquivo gerado em: ' + ACBrNFe1.NotasFiscais.Items[0].NomeArq);

  MemoResp.Lines.LoadFromFile(ACBrNFe1.NotasFiscais.Items[0].NomeArq);

  LoadXML(MemoResp, WBResposta);

  pgRespostas.ActivePageIndex := 1;
end;   

Aí você pode ver a função GravarXML e logo abaixo o log com o nome do arquivo.

[Alexandre de Paula]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[nildglan]

não quero assinar xml essas coisas somente exportar porque to carregando do banco

[Alexandre de Paula]

11 minutos atrás, Alexandre de Paula disse:

  ACBrNFe1.NotasFiscais.Items[0].GravarXML();

somente essa parte então.

[nildglan]

fiz isso mais não salvou xml no diretório,  carreguei primeiro do banco 

 DMNFe.ACBrNFe1.NotasFiscais.LoadFromString(qrnotaXML.Value);
      DMNFe.ACBrNFe1.NotasFiscais.Items[0].GravarXML();

e fiz mais não salvou

[Alexandre de Paula]

Verfique se o carregamento da nota ocorreu com sucesso. É possível acessar as informações da nota no componente antes de salvar?
Pode verificar via debug.
Verfique também os paths configurados no componente se não estão em local diferente e o arquivo está sendo salvo em outro local.

[nildglan]

valeu deu certo fiz assim 

DMNFe.ACBrNFe1.NotasFiscais.Items[0].GravarXML('Caminho do xml')

Editado 18 Setembro, 2023 por nildglan

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.