D�vida com SaveDialog

Question

Ol� pessoal, bom dia, tudo bem?Estou com um probleminha aqui.Tenho um componente SaveDialog em meu form e preciso utiliz�-lo mais de 1 vez. Na primeira vez que eu dou um SaveDialog1.Execute e salvo o ...

Osocram · Answer

Post o seu codigo aqui amigo.
Para podermos analisar e tentar te ajudar.

Ol� pessoal, bom dia, tudo bem? Estou com um probleminha aqui. Tenho um componente SaveDialog em meu form e preciso utiliz�-lo mais de 1 vez. Na primeira vez que eu dou um SaveDialog1.Execute e salvo o arquivo ele funciona, por�m na segunda vez que eu preciso salvar o arquivo e dou outro SaveDialog1.Execute n�o aparece a janela de di�logo para salvar. O que ser� que pode ser? Preciso destruir o componente e cri�-lo novamente? Desde j� agrade�o a aten��o.

Srmaitp · Answer

O problema � o seguinte: estou adaptando meu sistema com o projeto de Nota Fiscal Eletr�nica, e quando gera o arquivo XML e for transmitir pra SEFAZ o webserive estiver inativo, precisa-se gerar outro arquivo, salvar este arquivo e gerar o outro arquivo XML e salvar novamente.
Por�m quando gero o primeiro arquivo e salvo, ele salva, por�m na segunda vez que for salvar o arquivo, n�o abre a janela de di�logo.
Mas se este primeiro arquivo n�o precisar ser gerado, a rotina funciona normalmente, e a janela de di�logo funciona corretamente.

Osocram · Answer

Sem vc postar o bloco do codigo que esta dando erro � complicado falar oq esta errado.

O problema � o seguinte: estou adaptando meu sistema com o projeto de Nota Fiscal Eletr�nica, e quando gera o arquivo XML e for transmitir pra SEFAZ o webserive estiver inativo, precisa-se gerar outro arquivo, salvar este arquivo e gerar o outro arquivo XML e salvar novamente. Por�m quando gero o primeiro arquivo e salvo, ele salva, por�m na segunda vez que for salvar o arquivo, n�o abre a janela de di�logo. Mas se este primeiro arquivo n�o precisar ser gerado, a rotina funciona normalmente, e a janela de di�logo funciona corretamente.

Osocram · Answer

ja que vc ainda n�o postou o codigo eu fiz um teste simples aqui

procedure TForm1.btnClick(Sender: TObject);
var
  vo_save:TSaveDialog;
begin
  vo_save := TSaveDialog.create(nil);
  try
    if vo_save.Execute then
      showmessage(vo_save.FileName);

    if vo_save.Execute then
      showmessage(vo_save.FileName);
  finally
    FreeAndNil(vo_save);
  end;
end;

e funcionou normal.
se quiser testar.

Srmaitp · Answer

SaveDialog1.FileName := FormatDateTime(�yyyymmdd�, Date) + �T� + FormatDateTime(�hhmmss�, Date) + �-ped-sta.xml�;
SaveDialog1.InitialDir := DataModule2.SQLDataSetConfiguracoes.FieldByName(�CAMINHO_SALVAR_NFE�).AsString;
If SaveDialog1.Execute Then Begin
...My_DPEC.OwnerDocument.SaveToFile(SaveDialog1.FileName);

=====================================
SaveDialog1.FileName := Copy(Id_Nfe,4,47)+�-nfe�;
SaveDialog1.InitialDir := DataModule2.SQLDataSetConfiguracoes.FieldByName(�CAMINHO_SALVAR_NFE�).AsString;
MessageDlg(�A nota fiscal eletr�nica foi gerada com sucesso !�,mtInformation,[mbOk],0);
If SaveDialog1.Execute Then Begin
...My_NFE.OwnerDocument.SaveToFile(SaveDialog1.FileName);

Quando o arquivo � salvo no primeiro SaveDialog1.Execute, ele n�o abre a janela de di�logo depois na segunda vez, mas se n�o salvar na primeira vez, na segunda executa normalmente.
Estou achando que � a biblioteca que estou usando que est� com problemas (My_NFE).

Srmaitp · Answer

Desculpem a minha falta de aten��o. Deu certo aqui.Valew....

F�rum D�vida com SaveDialog #372497