Ir para conteúdo
  • Cadastre-se

dev botao

Enviar E-mail Danfe com o FortesReport


Henrique Souza
  • Este tópico foi criado há 2355 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores
2 horas atrás, Henrique Souza disse:

Olá 

Utilizo os métodos ACBrNFe1.EnviarEmail e ACBrNFe1.EnviarEmailEvento

Ambos funcionam perfeitamente

Porém  notei a existência de um botão "Enviar" no ACBrNFeDANFeRL

Ele está desabilitado, como proceder para utiliza-lo?

Obrigado

Tu diz no preview né?

se for isso não está sendo configurado no componente internamente por isso!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 9 meses depois ...
Em 26/10/2016 at 18:07, Henrique Souza disse:

Obrigado pela atenção,

É exatamente no preview

Se entendi sua resposta, não há como habilitar o botão pelo ACBr.

É isso?

Eu uso este código para enviar pelo botão enviar

Chamo ele pela propriedade send RLPreview1

_email_enviar:=T_email_enviar.create(application);
_email_enviar.CreateShowAndFree(TRLPreviewForm(Sender).Preview.Pages);

 

procedure T_email_enviar.CreateShowAndFree(aPages:TRLGraphicStorage);
var
 pdf, ftr :TRLCustomSaveFilter;
 s,preview,tmpfile,tmpext:string;
 go:boolean;

 qtabela : TZQuery;

 IdSMTP1     : TIdSMTP;
 IdMessage1  : TIdMessage;
 Texto       : TidText;
 HTML        : TidText;
 IdSSL       : TIdSSLIOHandlerSocketOpenSSL;
 Anexo       : TIdAttachmentFile;
begin
  // CRIA O DIRETORIO ANEXO
  if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Anexo') then
        ForceDirectories(ExtractFilePath(Application.ExeName)+'Anexo');

  with T_email_enviar.Create(nil) do
  begin
      Pages           :=aPages;
      EdtAssunto.Text :=Pages.Title;
      // procura no diretório corrente
      GetDir(0,s);
      preview:=IncludeTrailingBackslash(s)+SelfFileName;
      // se não achar procura no diretório do executável
      if not FileExists(preview) then
        preview:=IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)+
        'Anexo')+SelfFileName;
      // valida os filtros
      pdf:=SaveFilterByFileName('.pdf');
      //
      go:=(ShowModal=mrOk);
      if not go then
        Exit;
      // seleciona filtro
        ftr:=pdf;
      if ftr=nil then
        tmpext:='.exe'
      else
        tmpext:=ftr.DefaultExt;
      //
      tmpfile:=ExpandFileName(ChangeFileExt('Anexo\'+EdtAssunto.Text+' '+
      FormatDateTime('yyyy-mm-dd',now)+'.',tmpext));
//      try
        // faz selfprint
        if ftr=nil then
          MakeSelfPrint(preview,tmpfile,Pages)
        else
        begin
          // filtra
          ftr.FileName:=tmpfile;
          FilterPages(Pages,ftr,1,1,'',1);
        end;


end;

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

gostaria de reativar o tópico, pois não consigo usar o evento send do previewsetup.

Poderiam me ajudar com isto?

incluí no meu relatório o previewsetup.

programei o previewsetup.onsend := mostraOi;

procedure tform.mostraOi(Sender:TObject);

begin

showMessage('oi');

end;

Ele não apresenta a mensagem, habilita o botão, mas não apresenta a mensagem.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 hora atrás, tonygyn disse:

gostaria de reativar o tópico, pois não consigo usar o evento send do previewsetup.

Poderiam me ajudar com isto?

incluí no meu relatório o previewsetup.

programei o previewsetup.onsend := mostraOi;

procedure tform.mostraOi(Sender:TObject);

begin

showMessage('oi');

end;

Ele não apresenta a mensagem, habilita o botão, mas não apresenta a mensagem.

Ler as regras do fórum e aguardar. vou fechar esse tópico.

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2355 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.