PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  Projetos
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
WORKFLOW para envio de BOLETOS
Versão:
11.8
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
BoletoPDF_.rar (anexo)
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário TAILA TAILA em 06/12/2016, 10:35 h
Local: MG  Registro: 13/08/2013  Postagens: 22
Prezados, bom dia!

Alguém teria um exemplo de como fazer o WORKFLOW para envio de BOLETOS?

Preciso implementar este modelo aqui na empresa.

Desde já agradeço


Taila Rodrigues

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário TGALEANO TGALEANO em 06/12/2016, 11:38 h
Local: SP  Registro: 28/08/2007  Postagens: 10
Bom dia.

Preciso desta funcionalidade também, se alguém puder ajudar agradeço.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário TGALEANO TGALEANO em 06/12/2016, 11:39 h
Local: SP  Registro: 28/08/2007  Postagens: 10
Bom dia.

Preciso desta funcionalidade também, se alguém puder ajudar agradeço.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário KANAAMLRR KANAAMLRR em 06/12/2016, 12:55 h
Local: SP  Registro: 19/11/2010  Postagens: 160
Utilize a classe FWMSPrinter
Ela tem a possibilidade de salvar um relatório em PDF, depois disso utilize a
TMailMessage para enviar o e-mail com o boleto em anexo.

Abraço!
At.,
Kanaãm L. R. Rodrigues

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário CASALINHA CASALINHA em 06/12/2016, 13:34 h
Local: SP  Registro: 16/02/2008  Postagens: 3
Boa tarde, segue o modelo de uma rotina que envia e-mail com anexo:

#include ‘protheus.ch‘
#include ‘parmtype.ch‘

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³EnvMail   ºAutor ³                    º Data ³ 06/12/16   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Envio de e-mail com anexo                                 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³                                                            º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function EnvMail(_cFile, cNota, _cTipo )


//_cFile = Caminho do arquivo que será anexado Ex: ‘C:\arquivos\boleto.pdf‘

     Local cBody, nInd, aMsg, cTitle, _cFile
     Local aFiles :={}
     Local aMsg :={}
     Local cTo := Alltrim(SA1->A1_EMAILCQ)   //e-mail do cliente para envio de Laudo XML

     
          cTitle := "Laudo "
          aAdd(aFiles, Alltrim(Lower(_cFile)))

     
      //aAdd(aFiles, Alltrim(Lower(‘\relato_flo\fabricatgw\laudos\txt_html\00000715001.html‘) ) )
          aAdd(aMsg, "Segue anexo o Laudo de Análise ref. Nota Fiscal " + cNota )
     
          cBody := ‘‘
          cBody += ‘
          cBody += ‘size=2>Workflow - Serviço Envio de Mensagens


          For nInd := 1 TO Len(aMsg)
               cBody += ‘
‘ + aMsg[nInd] + ‘


          Next
          cBody += ‘‘
     
          If !Empty(cTo)
               WFNotifyAdmin( cTo , cTitle, cBody, aFiles )
          Endif
     

Return Nil


Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PA_ PA_ em 06/12/2016, 17:59 h
Local: MG  Registro: 08/01/2009  Postagens: 14
Segue uma classe que fiz a algum tempo.

Ela possui o boleto do banco Itaú homologado gerando em PDF e enviando em anexo por email.

Por ser uma classe vocês poderão implantar outros bancos facilmente.

Em caso de dúvidas pode me contactar pelo email paulohalves0@gmail.com

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MULLER2008 MULLER2008 em 07/12/2016, 07:37 h
Local: RJ  Registro: 02/02/2008  Postagens: 19
Bom dia, poderia enviar para o meu email muller.luiz@gmail.com obrigado.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário RAGUIARO RAGUIARO em 07/12/2016, 09:53 h
Local: SP  Registro: 06/12/2010  Postagens: 2
Bom dia, poderia enviar para o meu e-mail também raguiaro@gmail.com obrigado.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário RAGUIARO RAGUIARO em 07/12/2016, 09:54 h
Local: SP  Registro: 06/12/2010  Postagens: 2
Bom dia, poderia enviar para o meu e-mail também raguiaro@gmail.com obrigado.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PHABYUS PHABYUS em 07/12/2016, 10:05 h
Local: SP  Registro: 15/08/2016  Postagens: 51
Bom dia! Tudo bem?
Entre em contato, pois, tenho uma solução legal...
Skype / Email
fabio.rossetto@holdonsistemas.com.br
(011) 2639-5430 / 9 9867-1129
Abraços
Rossetto

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário CHAGAS CHAGAS em 07/12/2016, 10:07 h
Local: SP  Registro: 14/09/2005  Postagens: 161
me envie por favor.

douglas.chagas@gmail.com

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PA_ PA_ em 07/12/2016, 17:35 h
Local: MG  Registro: 08/01/2009  Postagens: 14
Devido a procura que recebi por mensagens, se quiserem podem me adicionar no Skype paulohalves.ti

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário EDIMAGALHA EDIMAGALHA em 14/12/2016, 09:55 h
Local: MG  Registro: 09/05/2016  Postagens: 9
bom dia poderia me enviar para mim o modelo do boleto ITAU

muito obrigado

email edimagalhaess@gmail.com

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário TAILA TAILA em 20/12/2016, 15:24 h
Local: MG  Registro: 13/08/2013  Postagens: 22
Vou fazer alguns testes amigos.

Obrigada pelo auxilio.

Atenciosamente

Taila Rodrigues

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MARCIOHBS MARCIOHBS em 09/06/2022, 15:36 h
Local: SP  Registro: 16/09/2020  Postagens: 8
Olá, alguém tem impressão de boleto da Caixa que possa compartilhar?

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal