| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Notificação por Email quando produto for alterado |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
 Item_PE.prw (anexo) | | FBEMAIL.prw (anexo) | |
|
|
|
|
|
Mensagem do
BIASOUZA26
em 17/11/2020, 10:40 h
Local: RJ Registro: 18/09/2020 Postagens: 7 |
Pessoal, preciso criar uma customização ao qual quando um produto for alterado ou incluido a contabilidade receba uma notificação.
Alguem pode me ajudar? |
|
|
|
Mensagem do
INFOBRENO
em 17/11/2020, 11:27 h
Local: MT Registro: 02/03/2011 Postagens: 117 |
| Breno Nogueira |
|
|
|
Mensagem do
DILSONDIAS
em 17/11/2020, 11:44 h
Local: CE Registro: 30/03/2006 Postagens: 88 |
Você pode utilizar o PE A010TOK, segue exemplo:
Testa assim qualquer coisa altera o que precisar.
#Include ‘Protheus.ch‘
User Function A010TOK()
Local lRet := .T.
If Inclui .Or. Altera
MEmail()
EndIf
Return lRet
Static Function MEmail()
Local cAccount := Lower(Alltrim(GetMv("MV_RELACNT")))
Local cEnvia := Lower(Alltrim(GetMv("MV_RELFROM")))
Local cPassword := Alltrim(GetMv("MV_RELPSW"))
Local cServer := Alltrim(GetMv("MV_RELSERV"))
Local cRecebe := Alltrim(GetMv("MV_YMT010I"))
Local aFiles := {}
Local nI := 1
Local cMensagem := ‘‘
Local cTos
Local CRLF := Chr(13) + Chr(10)
Local lConectou := .F.
cMensagem := ‘ Novo Produto Cadastrado em Mossoró, Aquiraz e Itaú‘ + CRLF +;
‘ Produto Código ‘ + _cCod + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Descrição do Produto ‘ + _cDesc + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Todos os envolvidos por favor completar o cadastro ‘ + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Atenciosamente, ‘ + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Dilson Castro ‘ + CRLF
cMensagem += ‘ Gerente de Tecnologia da Informação ‘ + CRLF
cMensagem += ‘ USIBRAS Mossoró/Aquiraz ‘ + CRLF
cMensagem += ‘ FAN CONSTRUÇÕES Mossoró/Aquiraz ‘ + CRLF
CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou
MailAuth(ALLTRIM(cAccount),ALLTRIM(cPassword)) // qdo nao conseguir autenticar ver antivirus no servidor
SEND MAIL FROM cEnvia TO cRecebe SUBJECT ‘Cadastro de um novo Produto - Codigo ‘ + _cCod BODY cMensagem RESULT lEnviado
If lEnviado
Alert("E-mail enviado")
Else
cMensagem := ""
GET MAIL ERROR cMensagem
Alert(cMensagem)
Endif
DISCONNECT SMTP SERVER Result lDisConectou
If lDisConectou
Alert("Desconectado com servidor de E-Mail - " + cServer)
Endif
Return |
|
|
|
Mensagem do
SILVAM
em 17/11/2020, 12:33 h
Local: SP Registro: 22/09/2020 Postagens: 2 |
O Protheus tem essa funcionalidade no padrão através da rotina Eventviewer.
Nela é possível configurar quais usuários receberam o evento de inclusão/alteração de qualquer cadastro. Segue o link da documentação:
https://tdn.totvs.com/display/public/PROT/Configurar+Event+Viewer |
|
|
|
Mensagem do
BIASOUZA26
em 17/11/2020, 15:12 h
Local: RJ Registro: 18/09/2020 Postagens: 7 |
| @silvam o Event Viewer não tem nada que contemple alteração |
|
|
|
Mensagem do
BIASOUZA26
em 17/11/2020, 16:40 h
Local: RJ Registro: 18/09/2020 Postagens: 7 |
@breno na etapa da conecção esta apresentando erro de syntax pra mim
CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou
|
|
|
|
Mensagem do
BIASOUZA26
em 17/11/2020, 16:41 h
Local: RJ Registro: 18/09/2020 Postagens: 7 |
DILSONDIAS na etapa da conecção esta apresentando erro de syntax pra mim
CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou |
|
|
|
Mensagem do
EMERSON.EN
em 17/11/2020, 17:42 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
veja se não está faltando declarar
#Include "AP5Mail.Ch"
|
|
|
|
Mensagem do
DILSONDIAS
em 17/11/2020, 18:03 h
Local: CE Registro: 30/03/2006 Postagens: 88 |
No meu fonte utilizei esses includes
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
#INCLUDE "AP5MAIL.CH"
Desculpe não peguei do inicio do fonte, testa agora. |
|
|
|
Mensagem do
WALTERFCAR
em 18/11/2020, 08:54 h
Local: SP Registro: 14/10/2015 Postagens: 61 |
Cara, eu abordaria esse problrma de outra maneira.
Criaria o campo reservado b1_msexp e então uma JOB, ou schedule para enviar para o email deles os produtos incluídos ou alterados no dia. |
|
|
|
Mensagem do
LCA.LEO
em 15/12/2020, 09:35 h
Local: PR Registro: 09/01/2020 Postagens: 25 |
Bom dia,
Aqui na empresa utilizamos o MT010_MVC
Lè0 |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
